home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 June / 64er_Magazin_87-06_1987_Markt__Technik_de_Side_B.d64 / pfox+ (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  121 lines
  1. 100 :
  2. 105 ifa<>0thengoto265
  3. 110 :
  4. 115 rem  init
  5. 120 :
  6. 125 leta=1
  7. 130 lettwo$=chr$(34)
  8. 135 printchr$(14)
  9. 140 printchr$(147)
  10. 145 poke53280,15
  11. 150 poke53281,15
  12. 155 poke646,11
  13. 160 :
  14. 165 print"[198]ertig? ([211][208][193][195][197]-[212]aste)"
  15. 170 poke198,0
  16. 175 wait198,1
  17. 180 poke646,6
  18. 185 :
  19. 190 rem  backup printer.old
  20. 195 :
  21. 200 print"[204]ege [211]icherheitskopie";
  22. 205 print"von ";two$;"[208][210][201][206][212][197][210]";
  23. 210 printtwo$;"an"
  24. 215 open15,8,15
  25. 220 print#15,"c:printer.old=printer"
  26. 225 close15
  27. 230 gosub640
  28. 235 :
  29. 240 rem  load printer
  30. 245 :
  31. 250 print"[204]ade [207]riginalfile";
  32. 255 printtwo$;"[208][210][201][206][212][197][210]";two$
  33. 260 load"printer",8,1
  34. 265 gosub640
  35. 270 :
  36. 275 rem  modify hi-quality
  37. 280 :
  38. 285 print"[205]odifiziere";two$;
  39. 290 print"[208][210][201][206][212][197][210]";two$;"im [210][193][205]"
  40. 295 poke24686,128
  41. 300 poke24687,99
  42. 305 poke24948,159
  43. 310 poke24949,99
  44. 315 poke24965,159
  45. 320 poke24966,99
  46. 325 letadr=25426
  47. 330 readaa
  48. 335 ifaa<0thengoto355
  49. 340 pokeadr,aa
  50. 345 letadr=adr+1
  51. 350 goto330
  52. 355 letadr=25472
  53. 360 readaa
  54. 365 ifaa<0then390
  55. 370 pokeadr,aa
  56. 375 letadr=adr+1
  57. 380 goto360
  58. 385 :
  59. 390 rem  modify lo-quality (star nl-10)
  60. 395 :
  61. 400 poke24819,36
  62. 405 poke24843,36
  63. 410 poke24971,81
  64. 415 ifpeek(25442)=23thenpoke25442,24
  65. 420 :
  66. 425 rem  scratch printer
  67. 430 :
  68. 435 print"[204]oesche [207]riginalfile";
  69. 440 print"auf [196]isk"
  70. 445 open15,8,15
  71. 450 print#15,"s:printer"
  72. 455 close15
  73. 460 gosub640
  74. 465 :
  75. 470 rem  save modified printer
  76. 475 :
  77. 480 poke781,208
  78. 485 poke782,99
  79. 490 poke167,0
  80. 495 poke168,96
  81. 500 poke780,167
  82. 505 print"[211]chreibe modifiziertes";
  83. 510 print"[198]ile auf [196]isk"
  84. 515 open1,8,3,"printer"
  85. 520 sys65496
  86. 525 close1
  87. 530 gosub640
  88. 535 :
  89. 540 rem  exit
  90. 545 :
  91. 550 poke646,11
  92. 555 poke198,0
  93. 560 end
  94. 565 :
  95. 570 rem  datas
  96. 575 :
  97. 580 data013,000,051,027,-1
  98. 585 data032,184,096,036,098,016,023,162
  99. 590 data003,189,082,099,032,179,098,202
  100. 595 data016,247,169,001,133,025,032,184
  101. 600 data096,169,000,032,159,099,096,072
  102. 605 data036,098,048,004,104,076,136,097
  103. 610 data165,025,048,248,240,246,036,025
  104. 615 data112,008,009,064,133,025,104,133
  105. 620 data015,096,169,000,032,179,098,032
  106. 625 data179,098,104,072,037,015,032,179
  107. 630 data098,104,133,015,096,000,-1
  108. 635 :
  109. 640 rem  sub disk-error
  110. 645 :
  111. 650 open15,8,15
  112. 655 input#15,b,b$
  113. 660 poke646,2
  114. 665 print"[196]isk-[211]tatus:";
  115. 670 printb$
  116. 675 poke646,6
  117. 680 close15
  118. 685 :
  119. 690 return
  120. 695 :
  121.