home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / 87xx / 8706b.d64 / pfox+ (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.