5  REM  TO READ REC 1 OF BBS01F
10  DIM M1$[20]
20  FILES *
25  M1$="SYS"
30  ASSIGN "BBS01F.A002",1,R1,M1$, NR 
40  READ #1,1;A,M,C,U
50  PRINT "A=";A
60  PRINT "M=";M
70  PRINT "C=";C
80  PRINT "U=";U
90  END 
