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