home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 96 / 096.d81 / contprint (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  101 lines
  1. 5 dv=peek(186):ifdv<8thendv=8
  2. 10 poke53281,0:poke53280,0:print"[147]"
  3. 15 gosub1000
  4. 20 sys57812"input any ce00",dv,0:poke780,0:poke781,0:poke782,206:sys65493
  5. 22 open15,dv,15,"r0:driver=driver":input#15,er,er$,a,a:close15
  6. 23 ifer<>63then30
  7. 24 open8,dv,8,"driver,p,r"
  8. 26 fori=0to5:input#8,e(i):e=e(i):forj=0toe
  9. 27 input#8,d(i,j)
  10. 28 next:next:close8
  11. 30 dimw$(300)
  12. 32 sp$="                                            "
  13. 34 h$="0123456789abcdef"
  14. 40 fori=0to2:readm$(i):next
  15. 42 data" [195]reate a printer driver "
  16. 43 data"  [208]rint [195]ontents [211]heet   "
  17. 44 data"    [209]uit the program     "
  18. 50 fori=0to4:readp$(i):next
  19. 52 data"  [211]ubscript [205]ode   "
  20. 53 data"    [197]lite [208]itch    "
  21. 55 data"  [195]ondensed [205]ode   "
  22. 56 data" [204]ine [211]pacing 7/72 "
  23. 58 data"   [210]eset [208]rinter   "
  24. 100 print"[147][129]  [212][200][197] [205][201][199][200][212][217] [204][207][193][196][211][212][193][210] [195][207][206][212][197][206][212][211] [208][210][201][206][212][197][210][154]"
  25. 105 m=0:t=8
  26. 110 fori=0to2:printtab(t)m$(i):print:next
  27. 120 poke214,5+m*2:print:printtab(t)""m$(m)"[145]"
  28. 130 geta$:ifa$<>"[145]"anda$<>""anda$<>chr$(13)then130
  29. 140 ifa$=chr$(13)then180
  30. 145 printtab(t)"[154]"m$(m)
  31. 150 ifa$="[145]"thenm=m-1:ifm<0thenm=2
  32. 160 ifa$=""thenm=m+1:ifm>2thenm=0
  33. 170 goto120
  34. 180 onm+1goto200,300,400
  35. 200 print"[147][159]    [217]ou will need your printer manual
  36. 202 [153]" in order to enter the following codes.
  37. 204 print" [201]f you put a $ before the very first
  38. 206 [153]" entry, the program will expect the
  39. 208 print" numbers in [200][197][216].
  40. 220 [153]"cont val(NULL)atn(NULL)(NULL)(NULL)val
  41. 225 print"[159]"p$(0)": 27 83 49    [154]or
  42. 227 [153]"open"p$(0)": $1b 53 49
  43. 230 print"[154] [197]nter your printer's code for:
  44. 240 k[178]0:bb[178]0
  45. 250 [151]214,16:[153]:[153]"open"p$(k)": ";:[141]50000:b$[178]q9$
  46. 252 [139][200](b$,1)[178]"$"[176]bb[178]1[167]bb[178]1:[137]280
  47. 255 j[178]0:[129]i[178]1[164][195](b$)
  48. 256 [139][202](b$,i,1)[178]" "[167]d(k,j)[178][197](c$):c$[178]"":j[178]j[170]1:[137]258
  49. 257 c$[178]c$[170][202](b$,i,1)
  50. 258 [130]:d(k,j)[178][197](c$):c$[178]"":e(k)[178]j
  51. 259 k[178]k[170]1:[139]k[179]5[167][151]781,17:[158]59903:[137]250
  52. 260 [141]1000:[159]8,dv,8,"@0:driver,p,w"
  53. 262 [129]i[178]0[164]5:e[178]e(i):[152]8,e:[129]j[178]0[164]e
  54. 264 [152]8,d(i,j)
  55. 266 [130]:[130]:[160]8
  56. 270 [137]100
  57. 280 [139][200](b$,1)[178]"$"[167]b$[178][201](b$,[195](b$)[171]1)
  58. 282 j[178]0:[129]i[178]1[164][195](b$)[169]3:bb$[178][202](b$,i,1)
  59. 283 [129]l[178]1[164]16:[139]bb$[178][202](h$,l,1)[167]u[178]l[171]1:l[178]16
  60. 284 [130]
  61. 286 d(k,j)[178]16[172]u:bb$[178][202](b$,i[170]1,1)
  62. 287 [129]l[178]1[164]16:[139]bb$[178][202](h$,l,1)[167]u[178]l[171]1:l[178]16
  63. 288 [130]
  64. 290 d(k,j)[178]d(k,j)[170]u:j[178]j[170]1
  65. 292 [130]:[137]259
  66. 300 [158]52736,"t.content*",dv:w$(0)[178][201](w$(0),[195](w$(0))[171]2)
  67. 305 h[178][194](252)[172]256[170][194](251):g[178][181](h[173]2):gg[178]h[171]g[172]2
  68. 310 [159]4,4,7
  69. 312 [129]i[178]0[164]3:e[178]e(i):[129]j[178]0[164]e
  70. 314 [152]4,[199](d(i,j));
  71. 316 [130]:[152]4
  72. 318 [130]
  73. 320 [129]i[178]0[164]g
  74. 322 [152]4,w$(i);
  75. 324 [152]4,[200](sp$,42[171][195](w$(i)))w$(i[170]g[170]1)
  76. 330 [130]
  77. 335 [139]gg[167][152]4,w$(h)
  78. 340 e[178]e(4):[129]i[178]0[164]e:[152]4,[199](d(4,i));:[130]:[152]4:[160]4
  79. 350 [137]100
  80. 400 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  81. 410 [139]er[179][177]63[167][153]"load":[128]
  82. 420 [153]"loadstopload"[199](34)"hello connect"[199](34)",8"
  83. 430 [153]"run"
  84. 440 [151]631,13:[151]632,13:[151]198,2:[128]
  85. 1000 [159]15,dv,15,"i":[132]15,er,er$,a,a:[160]15
  86. 1010 [139]er[178]0[167][142]
  87. 1020 [153]" "er$" - lenheck your drive
  88. 1030 print" and press a key.
  89. 1040 [161]a$:[139]a$[178]""[167]1040
  90. 1050 [137]1000
  91. 10000 [159]15,8,15,"s0:contprint":[160]15:[148]"contprint",8:[128]
  92. 50000 q9$[178]"":u9[178]53280:[151]198,0
  93. 50010 [161]a$
  94. 50020 [151]646,[187](1)[172]15[170]1:[153]"tocmd";:[139]a$[178]""[167]50010
  95. 50030 [139]a$[178][199](13)[167][153]" ":[142]
  96. 50040 [139](a$[178][199](20)[175][195](q9$))[167]q9$[178][200](q9$,[195](q9$)[171]1):[137]50080
  97. 50050 [139][195](q9$)[177][178]20[167]t9%[178][194](u9):[151]u9,1:[151]u9,t9%:[137]50010
  98. 50060 [139]a$[179]" "[176](a$[177][199](127)[175]a$[179][199](160))[176]a$[178][199](34)[167]50010
  99. 50070 q9$[178]q9$[170]a$
  100. 50080 [153]""a$;:[137]50010
  101.