home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 October / 1987-10.d64 / font printer (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  2.7 KB  |  85 lines
  1. 10 rem copyright 1987 compute! publications, inc. - all rights reserved
  2. 20 rem c64 & 1526 (or 802) printer only
  3. 30 print"[147]   copyright 1987 compute! pub., inc."
  4. 40 printtab(11)"all rights reserved":gosub460
  5. 50 dimch(80):ii=51200
  6. 60 sys49152:ifpeek(49449)=1thengosub450:goto60
  7. 70 print:input"document filename";f$:print
  8. 80 input"is the document saved as screen codes   (ie., speedscript files)";k$
  9. 90 sf=0:g$=",s,r":ifleft$(k$,1)="y"theng$=",p,r":sf=1
  10. 100 print"[147]insert text disk and press a key"
  11. 110 poke198,0:wait198,1:poke198,0
  12. 120 open15,8,15:open8,8,8,"0:"+f$+g$
  13. 130 close8:input#15,a,b$:close15
  14. 140 ifa<>0thenprint"error - ";b$:print:gosub450:goto70
  15. 150 open8,8,8,"0:"+f$+g$
  16. 160 open4,4:open5,4,5
  17. 170 fl=0:get#8,a$,a$
  18. 180 ps=0
  19. 190 iffl<>0thenclose8:close5:print#4:close4:goto390
  20. 200 get#8,a$:fl=st:ifsfandasc(a$)>127thench(ps)=32:goto250
  21. 210 ifa$=chr$(13)or(sfanda$=chr$(31))thench(ps)=-1:goto280
  22. 220 ifsfthench(ps)=asc(a$):goto250
  23. 230 print"[147]";chr$(34);a$
  24. 240 ch(ps)=peek(1025)
  25. 250 ps=ps+1:iffl<>0thench(ps)=-1
  26. 260 ifps=80thench(ps)=-1:goto280
  27. 270 goto200
  28. 280 ps=0
  29. 290 b=ch(ps)
  30. 300 ifb=-1thenprint#4:goto180
  31. 310 a$=""
  32. 320 forj=ii+8*btoii+8*b+7
  33. 330 a$=a$+chr$(peek(j))
  34. 340 next
  35. 350 print#5,a$
  36. 360 print#4,spc(ps);chr$(254);chr$(141);
  37. 370 ps=ps+1
  38. 380 goto290
  39. 390 print"[147]"
  40. 400 poke198,0
  41. 410 print" do you want to print another document"
  42. 420 print"         using this font";:input"  n[157][157][157]";an$
  43. 430 ifleft$(an$,1)="y"thenprint"[147]":goto70
  44. 440 end
  45. 450 fort=1to1500:next:return
  46. 460 print"...loading ml":fori=49152to49503:reada:x=x+a:pokei,a:next
  47. 470 ifx<>44368thenprint"error in data statement.":end
  48. 480 return
  49. 490 data 169,52,160,193,32,30,171,32,74,192
  50. 500 data 32,11,193,32,159,192,169,0,133,251
  51. 510 data 141,40,193,160,200,132,252,162,7,160
  52. 520 data 7,177,251,106,145,251,126,42,193,136
  53. 530 data 16,245,202,16,240,160,7,185,42,193
  54. 540 data 145,251,136,16,248,24,165,251,105,8
  55. 550 data 133,251,165,252,105,0,133,252,206,40
  56. 560 data 193,208,210,96,160,0,140,41,193,132
  57. 570 data 204,132,253,32,228,255,162,8,221,30
  58. 580 data 193,240,246,202,16,248,164,253,201,20
  59. 590 data 208,5,192,0,240,231,136,201,13,240
  60. 600 data 13,204,39,193,240,221,201,20,240,4
  61. 610 data 153,96,193,200,162,1,134,205,166,207
  62. 620 data 208,252,120,32,210,255,88,201,13,208
  63. 630 data 196,169,0,153,96,193,169,1,133,205
  64. 640 data 165,207,208,252,169,1,133,204,96,169
  65. 650 data 15,168,162,8,32,186,255,169,0,32
  66. 660 data 189,255,32,192,255,169,1,162,8,160
  67. 670 data 0,32,186,255,173,51,193,162,96,160
  68. 680 data 193,32,189,255,169,0,162,0,160,200
  69. 690 data 32,213,255,32,207,192,96,162,15,32
  70. 700 data 198,255,32,207,255,141,50,193,201,48
  71. 710 data 240,36,169,1,32,195,255,32,204,255
  72. 720 data 169,13,32,210,255,173,50,193,32,210
  73. 730 data 255,162,15,32,198,255,32,207,255,201
  74. 740 data 13,208,241,169,1,141,41,193,32,204
  75. 750 data 255,169,15,32,195,255,96,169,96,133
  76. 760 data 251,160,193,132,252,160,255,200,177,251
  77. 770 data 208,251,140,51,193,96,0,145,17,157
  78. 780 data 29,148,34,19,147,16,0,0,0,0
  79. 790 data 0,0,0,0,0,0,0,0,147,17
  80. 800 data 17,73,78,83,69,82,84,32,70,79
  81. 810 data 78,84,32,68,73,83,75,32,38,32
  82. 820 data 69,78,84,69,82,32,70,79,78,84
  83. 830 data 32,70,73,76,69,78,65,77,69,58
  84. 840 data 13,0
  85.