home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 June / 64er_Magazin_87-06_1987_Markt__Technik_de_Side_B.d64 / install._loader (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  61 lines
  1. 100 rem" installation zu super-hardcopy
  2. 110 [143]" (c) 1986 by thomas hohenberger
  3. 120 :
  4. 130 ifl=0thenl=1:load"super-hardcopy",8,1
  5. 140 print"[147] installation zu 'super-hardcopy'":print
  6. 150 print" bitte geben sie die druckerparameter    ein !":print
  7. 160 input" geraeteadresse  4[157][157][157]";ga:poke52960,ga
  8. 170 input" sekundaeradr.   1[157][157][157]";sa:poke52962,sa
  9. 180 print:print" einschaltcharacter  mastergrafikmodus"
  10. 190 print" (esc,x,y,anzahl)"
  11. 200 x=peek(53176):y=peek(53177)
  12. 210 print" x=  ";x:print"[145]";:inputx
  13. 220 print" y=  ";y:print"[145]";:inputy
  14. 230 poke53176,x:poke53177,y
  15. 240 print:print" einschaltcharacter 8/72 inch linefeed   (esc,x,y)"
  16. 250 x=peek(53160):y=peek(53161)
  17. 260 print" x=  ";x:print"[145]";:inputx
  18. 270 print" y=  ";y:print"[145]";:inputy
  19. 280 poke53160,x:poke53161,y
  20. 290 print:print" einschaltcharacter linker rand          (esc,x,y)"
  21. 300 x=peek(53163):y=peek(53164)
  22. 310 print" x=  ";x:print"[145]";:inputx
  23. 320 print" y=  ";y:print"[145]";:inputy
  24. 330 poke53163,x:poke53164,y
  25. 340 print:print" sollen die tastencodes zum ausloesen"
  26. 350 print" einer hardcopyfunktion geaendert"
  27. 360 print" werden (j) ?"
  28. 370 getw$:ifw$=""then370
  29. 380 ifw$<>"j"then540
  30. 390 print:print" bitte geben sie im folgenden die"
  31. 400 print" tasten ein, die in verbindung mit der"
  32. 410 print" ctrl-taste die hardcopyfunktionen aus-"
  33. 420 print" loesen sollen !"
  34. 430 print
  35. 440 a=53180
  36. 450 print" funktion :"
  37. 460 print" screencopy ";:gosub640
  38. 470 print" inverse screencopy ";:gosub640
  39. 480 print" hardcopy $2000 ";:gosub640
  40. 490 print" hardcopy $4000 ";:gosub640
  41. 500 print" hardcopy $6000 ";:gosub640
  42. 510 print" hardcopy $8000 ";:gosub640
  43. 520 print" hardcopy $a000 ";:gosub640
  44. 530 print" hardcopy $e000 ";:gosub640
  45. 540 print:print" sie haben nun eine abgeaenderte"
  46. 550 print" version der 'super-hardcopy' im"
  47. 560 print" speicherbereich $cc00-$cfff"
  48. 570 print" druecken sie  s [146] zum initialisieren"
  49. 580 print" der hardcopy-tastenabfrage."
  50. 590 getw$:ifw$=""then590
  51. 600 ifw$="s"thensys52224
  52. 610 print:print" sie koennen die neue version nun mit"
  53. 620 print" einem monitor (cc00-cfff) abspeichern !"
  54. 630 new
  55. 640 a=a+1
  56. 650 t=peek(203):ift=64then650
  57. 660 gett$:printt$
  58. 670 pokea,t
  59. 680 ifpeek(203)=tthen680
  60. 690 return
  61.