home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / c128 / util / simplerd.sda / SIMPLERD.PRG (.txt) < prev   
Encoding:
Commodore BASIC  |  1993-03-22  |  1.0 KB  |  28 lines
  1. 10 REM * "[211]IMPLE FILE READER BY [195]HUCK"
  2. 20 POKE53280,0:POKE53281,0
  3. 30 S$=CHR$(32):R$=CHR$(13):Q$=CHR$(34)
  4. 40 PRINT"[147]":PRINTCHR$(14)
  5. 50 PRINT"[154][211]IMPLE [198]ILE [210]EADER"
  6. 60 PRINT"[154]     [194]Y [195]HUCK     "
  7. 70 F$="0":F=0:PRINTR$:INPUT"[150][215]HICH DRIVE ";DR
  8. 80 IFDR<8ORDR>15THEN240:(null)GOSUB230:IFSTTHEN240
  9. 90 PRINT:INPUT"[159][198]ILENAME ";NA$
  10. 100 PRINT:INPUT"[159][198]AST OR [211]LOW ([198]/S)";F$
  11. 110 F=ASC(F$):IFF=198ORF=70THENF=0
  12. 120 CLOSE15:OPEN15,DR,15:OPEN2,DR,2,"0:"+NA$+",?,R":INPUT#15,A,B$:PRINT
  13. 130 IFATHENPRINT"[156]"Q$B$Q$:PRINT:GOTO200
  14. 140 PRINT"[153] [208]RESS [211]PACE TO [197]ND [204]ISTING [159]":IFF=0THENPRINT:GOTO170
  15. 150 IFFTHENGET#2,A$:GETB$:IFB$=S$THENPRINT:GOTO200
  16. 160 PRINTA$;:IFSTTHEN200
  17. 162 GOTO150
  18. 170 INPUT#2,A$:GETB$:IFB$=S$THEN200
  19. 180 IFA$=R$THENPRINT:PRINTA$
  20. 182 PRINTA$
  21. 190 IFSTTHEN200
  22. 192 GOTO170
  23. 200 CLOSE2:CLOSE15:PRINT:INPUT"[159][210]EAD [193]NOTHER [198]ILE ([217]/N)";B$
  24. 210 IFB$="[217]"ORB$="Y"ORB$=R$THEN70
  25. 220 IFB$="[206]"ORB$="N"THENEND:ELSEGOTO200
  26. 230 CLOSE15:OPEN15,DR,15:CLOSE15:RETURN
  27. 240 PRINTR$"[196]EVICE [206]OT [208]RESENT":GOTO70
  28.