home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
89xx
/
8910a.d64
/
trs
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
326b
|
16 lines
100 OPEN2,8,15:OPEN1,8,2,"#"
110 T=18:S=1
120 PRINT#2,"U1 2 0";T;S
130 GET#1,T$,S$
140 FOR J= 1 TO 8
145 T=ASC(T$+CHR$(0)):S=ASC(S$+CHR$(0))
150 GET#1,F$:FT=ASC(F$+CHR$(0))
160 IF (FT=130) OR (FT=194) THEN 200
170 FORI= 1 TO 31:GET#1,W$:NEXT
180 GOTO300
200 GET#1,A$,B$:PRINTASC(A$+CHR$(0)),ASC(B$+CHR$(0)),
210 FORI=1TO16:GET#1,A$:PRINTA$;:NEXT:PRINT
220 FORI=19TO31:GET#1,W$:NEXT
300 NEXT:IF T<>0 THEN 120
310 CLOSE1:CLOSE2