home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / PRISONER.DSK / CLUES.bas < prev    next >
BASIC Source File  |  2014-09-09  |  368b  |  10 lines
  1. 0  HOME 
  2. 1  PRINT 
  3. 3000  DIM CL%(11,60)
  4. 3001  PRINT  CHR$(4);"OPEN PR.LOST"
  5. 3003  PRINT  CHR$(4);"READ PR.LOST"
  6. 3005  FOR I = 0 TO 11: FOR J = 1 TO 60: INPUT CL%(I,J): NEXT J,I
  7. 3008  PRINT  CHR$(4);"CLOSE"
  8. 3010  FOR T1 = 0 TO 11:T2 = 1:TP$ = ""
  9. 3018  IF CL%(T1,T2)  THEN TP$ = TP$ + CHR$((CL%(T1,T2) -17)/2):T2 = T2 +1: IF T2 < = 60  THEN 3018
  10. 3020  PRINT TP$: NEXT T1