home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1994 August
/
1994-08b.d64
/
directory
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
511b
|
17 lines
100 rem reader jim butterfield
110 data 2422,7542,0
120 read x
130 if x=0 then print "unknown system!":end
140 x=x+0:if peek(x)<>asc("j") goto 120
150 x=x+1:if peek(x)<>asc("i") goto 120
160 x=x+1:if peek(x)<>asc("m") goto 120
170 x=x+1:if peek(x)<>asc(" ") goto 120
180 x=x+1:if peek(x)<>asc("b") goto 120
190 x=x+1
200 rem sys to the code, wherever
210 open 15,8,15
220 open 1,8,0,"$0:*=s"
230 get#15,e,e$:if e<>0 then printe$:stop
240 sys x
250 close 1