home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 89xx / 8910a.d64 / trs (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  326b  |  16 lines

  1. 100 OPEN2,8,15:OPEN1,8,2,"#"
  2. 110 T=18:S=1
  3. 120 PRINT#2,"U1 2 0";T;S
  4. 130 GET#1,T$,S$
  5. 140 FOR J= 1 TO 8
  6. 145 T=ASC(T$+CHR$(0)):S=ASC(S$+CHR$(0))
  7. 150 GET#1,F$:FT=ASC(F$+CHR$(0))
  8. 160 IF (FT=130) OR (FT=194) THEN 200
  9. 170 FORI= 1 TO 31:GET#1,W$:NEXT
  10. 180 GOTO300
  11. 200 GET#1,A$,B$:PRINTASC(A$+CHR$(0)),ASC(B$+CHR$(0)),
  12. 210 FORI=1TO16:GET#1,A$:PRINTA$;:NEXT:PRINT
  13. 220 FORI=19TO31:GET#1,W$:NEXT
  14. 300 NEXT:IF T<>0 THEN 120
  15. 310 CLOSE1:CLOSE2
  16.