home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 March / 64er_Magazin_89-03_1989_Markt__Technik_de_Side_A.d64 / superquality (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  78 lines
  1. 100 :
  2. 110 poke53280,2:poke53281,2:poke646,7
  3. 120 print"[147]***************************"
  4. 130 print"*                         *"
  5. 140 print"*  printfox-superquality  *"
  6. 150 print"*                         *"
  7. 160 print"*  (w) kai ploog          *"
  8. 170 print"*  (c) 64'er              *"
  9. 180 print"*                         *"
  10. 190 print"***************************"
  11. 200 :
  12. 210 ifl<>0then240
  13. 220 l=1:printchr$(8);chr$(14)
  14. 230 goto 300
  15. 240 gosub 520
  16. 250 gosub 650
  17. 260 gosub 350
  18. 270 gosub 410
  19. 280 end
  20. 290 :
  21. 300 rem *** printer-file laden ***
  22. 310 print"[194]itte [208]rogrammdiskette einlegen..."
  23. 320 poke198,0:wait198,1
  24. 330 load"printer",8,1
  25. 340 :
  26. 350 rem *** altes file umbenennen ***
  27. 360 print"[194]itte [218]ieldiskette":print"oder [208]rogrammdisk einlegen..."
  28. 370 poke198,0:wait198,1
  29. 380 open1,8,15,"r:printer.old=printer":close1
  30. 390 return
  31. 400 :
  32. 410 rem *** neues file speichern ***
  33. 420 poke781,219
  34. 430 poke782,99
  35. 440 poke167,0
  36. 450 poke168,96
  37. 460 poke780,167
  38. 470 open1,8,3,"printer"
  39. 480 sys65496
  40. 490 close1
  41. 500 return
  42. 510 :
  43. 520 rem *** modifizieren ***
  44. 530 poke24948,128  :rem hi-quality
  45. 540 poke24949,99
  46. 550 poke24965,128
  47. 560 poke24966,99
  48. 570 poke24813,212
  49. 580 poke24814,99
  50. 590 poke24819,36   :rem lo-quality
  51. 600 poke24843,36
  52. 610 poke24971,81
  53. 620 ifpeek(25442)=23thenpoke25442,24
  54. 630 return
  55. 640 :
  56. 650 rem *** datas einlesen ***
  57. 660 fori=25472to25563
  58. 670 reada:poke i,a
  59. 680 next
  60. 690 fori=25426to25429
  61. 700 reada:poke i,a
  62. 710 next
  63. 720 return
  64. 730 :
  65. 740 data 36, 98, 16, 4, 36, 25, 16, 6
  66. 750 data 76, 136, 97, 234, 234, 234, 72, 165
  67. 760 data 29, 201, 1, 240, 34, 197, 14, 208
  68. 770 data 7, 192, 8, 240, 16, 234, 234, 234
  69. 780 data 104, 72, 37, 15, 32, 179, 98, 32
  70. 790 data 179, 98, 234, 234, 234, 104, 133, 15
  71. 800 data 32, 179, 98, 96, 234, 234, 234, 192
  72. 810 data 1, 208, 229, 104, 72, 37, 15, 32
  73. 820 data 179, 98, 32, 179, 98, 104, 133, 15
  74. 830 data 32, 179, 98, 169, 0, 32, 179, 98
  75. 840 data 32, 179, 98, 96, 165, 29, 133, 14
  76. 850 data 76, 65, 98, 234
  77. 860 data 13,0,51,27
  78.