5 !example BASIC program which reads the USER.SYS file
10 map1 record
20 map2 usrnam,s,8 ! user name
30 map2 fill,x,12 ! filler
80 map2 etim,b,4 ! elapsed time
90 map2 ctim,b,4 ! processor time
100
105 lookup "dsk0:user.sys[1,2]",size
106 maxrec = abs(size)*16 ! maximum number of records in file
110 open #1,"dsk0:user.sys[1,2]",random,32,rec
115 read'next:
120 read #1,record
125 if usrnam="" then goto eof
130 print rec,usrnam,etim/60,ctim/60
140 rec=rec+1: if rec<maxrec then goto read'next
160 eof:
170 close #1
180 end
