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