home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug090.ark / GLCLEAR.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  438 b   |  16 lines
  1. 520 DIM N(2,20)
  2. 530 DIM K$(6,20)
  3.     open "b:glsize" as 1:read #1;z2,z3:close 1
  4.      open "b:gl" recl 138 as 1
  5. 1510 FOR Z2=1 TO Z3
  6. 1515 read #1,z2;n(2,1),n(2,2),n$,n(2,4),n(2,5),n(2,6),\
  7.           n(2,7),n(2,8),n(2,9),n(2,10)
  8. 1516 FOR Z=4 TO 10:N(2,Z)=0:NEXT Z
  9. 1515 print #1,z2;n(2,1),n(2,2),n$,n(2,4),n(2,5),n(2,6),\
  10.           n(2,7),n(2,8),n(2,9),n(2,10)
  11. 1520 IF n(2,2)=0 THEN 1535
  12.      n$=""
  13. 1525 NEXT Z2
  14. 1535 CLOSE 1
  15.     END
  16.