home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / SUPER-AIDE.SDA / DOC.DRIVER (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.9 KB  |  36 lines
  1. 10 REM KINDA THROWN TOGETHER BY KEVIN HISEL
  2. 20 PRINT"":GOTO60
  3. 30 GETZ$:IFZ$=""THEN30
  4. 40 IFZ$="Q"THENCLOSE2:CLOSE15:CLOSE4:PRINT"[147]":END
  5. 50 RETURN
  6. 60 POKE53281,0:POKE53280,11:PRINT"[147][200]ANG ON...":FORI=49152TO49372:READX:POKEI,X:NEXT
  7. 70 CLOSE15:CLOSE2:CLOSE4:OPEN15,8,15
  8. 80 I$="":PRINT"[147][153][215]HICH DOC FILE TO PRINT/VIEW?":PRINT" 1) [195]OMMANDS":PRINT" 2) [207]THER [212]OPICS":PRINT" 3) [211]CREEN [197]DITOR":PRINT" 4) [216]-[205]ON":PRINT" ----------------":PRINT" [209]) [209]UIT":GOSUB30:IFZ$="1"THENI$="COMMANDS.DOC
  9. 90 [139]Z$[178]"2"[167]I$[178]"OTHER.DOC
  10. 100 IFZ$="3"THENI$="EDITOR.DOC
  11. 110 [139]Z$[178]"4"[167]I$[178]"XMON.DOC
  12. 120 IFI$=""THENGOTO80
  13. 130 PRINT"[147][153]         [[208]]RINTER OR [[211]]CREEN?         ";
  14. 140 GOSUB30:IFZ$="P"THENOPEN4,4,7:POKE828,82:GOTO170
  15. 150 IFZ$="S"THENOPEN4,3:POKE828,41:GOTO170
  16. 160 GOTO140
  17. 170 PRINT"[147][153] [200]IT ANY KEY TO PAUSE, [211][200][201][198][212] WILL ABORT ":IFPEEK(828)=82THENPRINT"[145]     [206]OW PRINTING FILE TO PRINTER...
  18. 180 [159]2,8,8,DR$[170]":"[170]I$[170]",S,R":[141]290:[139]E0[167]210
  19. 190 [158]49152:[161]#2,Z$:K[178]ST:[139]K[178]0[167][152]4,Z$;
  20. 200 [139]K[178]0[167][153]:[153][166]7)"LENWAITONTINUE ";
  21. 210 [139]K[167]K[178]0::[153]:[153][166]12)
  22. 220 [153]"VALWAITXIT OR (null)WAITRY ATNGAIN
  23. 230 GOSUB30:IFZ$="E"THENGOSUB310:GOTO70
  24. 240 IFE0=0THENIFZ$="C"THEN190
  25. 250 IFZ$<>"T"THEN280:PRINT"[147]":GOSUB310:GOTO130
  26. 260 IFE0=0THENPRINT"[147]":GOSUB310:GOTO130
  27. 270 IFE0THENPRINT"[147]":CLOSE2:GOTO130
  28. 280 GOTO230
  29. 290 INPUT#15,E0,E1$,E2$,E3$:IFE0=0THENRETURN
  30. 300 K=1:PRINT"[153][196][201][211][203] [197][210][210][207][210]:":PRINTE0" "E1$" T:"E2$" S:"E3$"":CLOSE2:PRINT#4:CLOSE4:RETURN
  31. 310 IFE0=0THENCLOSE2:PRINT#4:CLOSE4
  32. 320 RETURN:DATA162,4,32,201,255,165,154,141,61,3,201,3,208,5,162,2,32,198,255,169,0,133,254,133,251,32,149,192,173,141,2,201,1,208,3,76,204,255,32,71,192,138,240,3,76,208,192,165,254,101,251,205,60,3,176,6,32,105,192
  33. 330 DATA76,25,192,32,136,192,32,105,192,76,25,192,32,192,192,160,0,132,251,162,0,32,228,255,166,144,240,3,132,251,96,153,62,3,200,201,13,240,4,201,32,208,234,132,251,96,32,174,192,160,0,76,113,192,185,62,3,201
  34. 340 DATA13,208,4,32,136,192,96,32,210,255,200,230,254,152,197,251,208,234,96,32,174,192,169,13,32,210,255,169,0,133,254,96,165,198,240,16,169,0,133,198,173,141,2,201,1,208,1,96,165,198,240,244,169,0,133,198,96,72
  35. 350 DATA173,61,3,201,3,240,8,32,204,255,162,4,32,201,255,104,96,173,61,3,201,3,240,8,32,204,255,162,2,32,198,255,96,165,251,240,3,32,105,192,32,136,192,76,204,255
  36.