home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / c64 / bbs / dtjdocs.arc / PRINTER (.txt) < prev   
Encoding:
Commodore BASIC  |  1993-04-03  |  3.2 KB  |  62 lines
  1. 10 CLR:PRINT"SETTING UP ML...":FORI=0TO999:READA:IFA>=0THENPOKE49152+I,A:NEXT
  2. 15 POKE56,60:POKE55,0:CLR:POKE53280,0:POKE53281,0
  3. 20 PRINT"ô─╘╩-┬┬╙ ─OCUMENTATION ╨RINTER"
  4. 25 PRINT">> ╥EV 900321"
  5. 30 INPUT"      ─OCUMENTATION ON DRIVE  8¥¥¥";D
  6. 33 INPUT"       ╨RINTER DEVICE NUMBER  4¥¥¥";P1
  7. 36 INPUT"   ╨RINTER SECONDARY ADDRESS  7¥¥¥";P2
  8. 40 INPUT"╨RINTER TYPE (0=┴╙├╔╔,1=├┬═)  1¥¥¥";P:IFP>0THEN50
  9. 42 INPUT"╙END LINEFEEDS? (0=╬O,1=┘ES)  1¥¥¥";LF
  10. 44 INPUT"╙END FORMFEEDS? (0=╬O,1=┘ES)  1¥¥¥";FF
  11. 50 N=0:REM _ NX1000 NLQ MODE = 1
  12. 60 INPUT"    ╙TARTING PAGE (OPTIONAL)";P$:SP=-(P$<>"")
  13. 70 PRINT"╔NSERT DOCUMENTATION DISK IN DRIVE AND  PRESS ANY KEY TO PRINT."
  14. 80 POKE198,0:WAIT198,255:GETA$
  15. 90 P$=LEFT$(P$,5)+CHR$(0):OPEN1,D,15:CLOSE1:IFSTTHEN80
  16. 100 OPEN4,P1,P2:OPEN1,D,15:OPEN8,D,8,"DTJBBS.DOC":INPUT#1,E,E$:IFETHEN1000
  17. 110 POKE49158,P:POKE49159,N:FORI=1TOLEN(P$):POKE49159+I,ASC(MID$(P$,I,1)):NEXT
  18. 120 PRINT "╙ETTING UP...":SYS49155
  19. 130 PRINT "╨RESS ╨ TO PAUSE OR ┴ TO ABORT.":I$="":L=0
  20. 135 PRINT""MID$("╙EARCHING╨RINTING",10-SP*9,9)
  21. 140 SYS49152#8,I$:S=ST:GOSUB200:IFI$>""THENI$="            "+I$
  22. 141 IFSP<0THENPRINT:PRINT"╨RINTING...":SP=0
  23. 142 IFASC(I$+" ")<>12THEN150
  24. 144 IFFF=0THENFORI=LTO65:PRINT#4:NEXTI:I$=MID$(I$,2)
  25. 146 L=0
  26. 150 PRINT#4,I$:L=L+1:IFLFTHENPRINT#4,"
  27. ";
  28. 160 IFS=0THEN140
  29. 170 CLOSE8:CLOSE1:PRINT#4:CLOSE4:PRINT"─ONE.":END
  30. 200 GETA$:IFA$="A"ORA$="┴"THENCLOSE8:CLOSE1:CLOSE4:PRINT"┴BORTED.":END
  31. 210 IFA$<>"P"ANDA$<>"╨"THENRETURN
  32. 220 PRINT"╙╨┴├┼ TO CONTINUE.æ":POKE198,0:WAIT198,255
  33. 230 PRINT"                  æ":GOTO200
  34. 1000 CLOSE8:CLOSE1:CLOSE4:PRINT"û";E$;"":END
  35. 10000 DATA76,64,192,76,14,192,0,0,0,0,0,0,0,0,32,204,255,162,8,32,198,255,169
  36. 10010 DATA0,141,32,208,141,33,208,133,144,133,251,133,253,133,254,169,60,133
  37. 10020 DATA252,32,207,255,160,0,145,251,201,0,240,8,230,251,208,241,230,252,208
  38. 10030 DATA237,76,204,255,32,204,255,32,121,0,32,155,183,32,198,255,32,121,0
  39. 10040 DATA32,115,0,32,139,176,133,73,132,74,160,0,132,253,132,254,140,102,192
  40. 10050 DATA32,228,192,160,0,32,142,193,153,52,3,201,13,240,3,200,208,235,153
  41. 10060 DATA52,3,32,178,192,208,221,169,0,141,8,192,32,204,255,32,203,193,169
  42. 10070 DATA52,162,3,133,111,134,112,24,132,97,152,101,111,133,113,166,112,144
  43. 10080 DATA1,232,134,114,152,32,117,180,166,111,164,112,32,136,182,32,202,180
  44. 10090 DATA32,44,170,76,121,0,173,8,192,208,1,96,173,52,3,201,12,208,248,140
  45. 10100 DATA224,192,169,46,32,22,231,192,0,240,20,136,185,52,3,201,32,208,244
  46. 10110 DATA162,255,232,200,189,8,192,217,52,3,240,246,160,0,201,0,96,165,253
  47. 10120 DATA5,254,208,72,32,74,193,201,14,144,4,201,31,144,1,96,141,253,192,169
  48. 10130 DATA30,56,233,0,74,133,252,169,0,133,253,106,133,251,32,74,193,5,251,133
  49. 10140 DATA251,169,60,133,254,160,0,165,251,5,252,240,201,177,253,230,253,208
  50. 10150 DATA2,230,254,201,0,16,244,165,251,208,2,198,252,198,251,76,21,193,160
  51. 10160 DATA0,177,253,230,253,208,2,230,254,201,0,16,6,41,127,132,253,132,254
  52. 10170 DATA76,245,192,0,173,73,193,240,9,169,0,141,73,193,169,32,208,10,32,103
  53. 10180 DATA193,16,5,141,73,193,41,127,201,0,96,0,0,173,101,193,240,9,206,101
  54. 10190 DATA193,173,102,193,201,0,96,32,207,255,201,31,208,246,32,207,255,56,233
  55. 10200 DATA32,141,101,193,32,207,255,141,102,193,76,103,193,174,6,192,208,1,96
  56. 10210 DATA41,127,201,13,240,4,201,12,208,3,201,0,96,201,123,144,4,9,96,208,245
  57. 10220 DATA201,97,144,4,41,95,208,237,201,96,208,3,10,208,230,201,91,176,226
  58. 10230 DATA201,65,144,4,9,128,208,218,201,32,176,214,169,0,96,173,7,192,208,9
  59. 10240 DATA140,214,193,160,0,192,0,208,1,96,185,52,3,200,201,40,208,243,185,52
  60. 10250 DATA3,201,40,208,236,136,140,3,194,136,200,185,58,3,153,52,3,201,13,208
  61. 10260 DATA245,173,214,193,56,233,6,141,214,193,160,0,76,213,193,-1
  62.