home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / sh7x / sh72b.d64 / super-hardcopy (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  6KB  |  117 lines
  1. 10 REM*********************************
  2. 11 REM*                               *
  3. 12 REM*         SUPER-HARDCOPY        *
  4. 13 REM*                               *
  5. 14 REM*    1985 BY CHRISTIAN STETTER  *
  6. 15 REM*                               *
  7. 16 REM*          HAYDNSTR.17          *
  8. 17 REM*                               *
  9. 18 REM*        8850 DONAUWOERTH       *
  10. 19 REM*                               *
  11. 20 REM*********************************
  12. 100 POKE 53281,006
  13. 110 POKE45,140:POKE46,020
  14. 120 POKE47,003:POKE48,021
  15. 130 POKE49,250:POKE50,021
  16. 140 F$(0)=" SCHWARZ   :"
  17. 150 F$(1)=" WEISS     :"
  18. 160 F$(2)=" ROT       :"
  19. 170 F$(3)=" TUERKIS   :"
  20. 180 F$(4)=" VIOLETT   :"
  21. 190 F$(5)=" GRUEN     :"
  22. 200 F$(6)=" BLAU      :"
  23. 210 F$(7)=" GELB      :"
  24. 220 F$(8)=" ORANGE    :"
  25. 230 F$(9)=" BRAUN     :"
  26. 240 F$(10)=" HELLROT   :"
  27. 250 F$(11)=" GRAU 1    :"
  28. 260 F$(12)=" GRAU 2    :"
  29. 270 F$(13)=" HELLGRUEN :"
  30. 280 F$(14)=" HELLBLAU  :"
  31. 290 F$(15)=" GRAU 3    :"
  32. 300 AE%=0:PRINT"[147][154]         *** SUPER HARDCOPY ***"
  33. 310 PRINT"     [157]   1985 BY CHRISTIAN STETTER"
  34. 320 GOSUB830:GOSUB860:GOSUB890:GOSUB900:GOSUB910:GOSUB920:GOSUB930:GOSUB970
  35. 330 PRINT"";:GOSUB830
  36. 340 GETA$:IFA$=""THEN340
  37. 350 IFA$=CHR$(157)THENAE%=1:PRINT"[145][145]";:GOSUB830
  38. 360 IFA$=CHR$(29)THENAE%=0:PRINT"[145][145]";:GOSUB830
  39. 370 IFA$<>CHR$(13)THEN340
  40. 380 PRINT"[145][145][154]";:GOSUB830:IFAE%=0THEN 730
  41. 390 PRINT"";:GOSUB860
  42. 400 GETA$:IFA$=""THEN400
  43. 410 IFA$=CHR$(157)THENIN%=0:PRINT"[145][145]";:GOSUB860
  44. 420 IFA$=CHR$(29)THENIN%=1:PRINT"[145][145]";:GOSUB860
  45. 430 IFA$<>CHR$(13)THEN400
  46. 440 PRINT"[145][145][154]";:GOSUB860
  47. 450 PRINT"";:GOSUB890:PRINTTAB(15)"[145]";:INPUTGA%
  48. 460 PRINT"[145][154]";:GOSUB890
  49. 470 PRINT"";:GOSUB900:PRINTTAB(15)"[145]";:INPUTSA%
  50. 480 PRINT"[145][154]";:GOSUB900
  51. 490 PRINT"";:GOSUB910:PRINTTAB(15)"[145]";:INPUTST$:GOSUB1020
  52. 500 PRINT"[145][154]";:GOSUB910
  53. 510 PRINT"";:GOSUB920:PRINTTAB(15)"[145]";:INPUTGR$:GOSUB1100
  54. 520 PRINT"[145][154]";:GOSUB920
  55. 530 PRINT"";:GOSUB930:POKE214,11:SYS58732
  56. 540 GETA$:IFA$=CHR$(141)THEN PRINT"[145][154]":GOSUB930:GOTO730
  57. 550 IFA$=CHR$(13)THEN 580
  58. 560 IFA$<"0" OR A$>"5" THEN 540
  59. 570 CT%=VAL(A$):GOTO 530
  60. 580 PRINT"[154]";:GOSUB930
  61. 590 POKE214,14:SYS58732
  62. 600 FOR I=0 TO 7
  63. 610 PRINT"";F$(I)F%(I,CT%);
  64. 620 POKE213,19:INPUT"[157][157][157][157]";F%(I,CT%)
  65. 630 IF F%(I,CT%)<0 OR F%(I,CT%)>8 THEN PRINTTAB(15)"[145]";:GOTO620
  66. 640 PRINT"[145][154]";F$(I)F%(I,CT%)
  67. 650 NEXTI
  68. 660 POKE214,14:SYS58732
  69. 670 FOR I=8 TO 15
  70. 680 PRINTTAB(23)"";F$(I);F%(I,CT%);
  71. 690 INPUT"[157][157][157][157]";F%(I,CT%)
  72. 700 IF F%(I,CT%)<0 OR F%(I,CT%)>8 THEN PRINTTAB(38)"[145]";:GOTO620
  73. 710 PRINTTAB(23)"[145][154]";F$(I)F%(I,CT%)
  74. 720 NEXTI
  75. 730 POKE214,22:SYS58732
  76. 740 AE%=0:PRINT"";:GOSUB970
  77. 750 GETA$:IFA$=""THEN750
  78. 760 IFA$=CHR$(157)THENAE%=1:PRINT"[145][145]";:GOSUB970
  79. 770 IFA$=CHR$(29)THENAE%=0:PRINT"[145][145]";:GOSUB970
  80. 780 IFA$<>CHR$(13)THEN750
  81. 790 PRINT"[145][145][154]";:GOSUB970:IFAE%=0THEN 820
  82. 800 POKE45,011:POKE46,033
  83. 810 PRINT"[147]SAVE"CHR$(34)"@0:SUPER-HARDCOPY"CHR$(34)",8":END
  84. 820 SYS05714
  85. 830 PRINT"PARAMETER AENDERN: ";
  86. 840 IF AE%=0THENPRINT"JA/NEIN[146]":RETURN
  87. 850 PRINT"JA[146]/NEIN":RETURN
  88. 860 PRINT"INTERFACE      : ";
  89. 870 IFIN%=0THENPRINT"CENTRONICS[146]/SERIELL":RETURN
  90. 880 PRINT"CENTRONICS/SERIELL[146]":RETURN
  91. 890 PRINT" GERAETENUMMER :"GA%:RETURN
  92. 900 PRINT" SEKUNDAERADR. :"SA%:RETURN
  93. 910 PRINT" START-SEQUENZ :";:GOSUB980:RETURN
  94. 920 PRINT" GRAFIK-SEQUENZ:";:GOSUB990:RETURN
  95. 930 PRINT"FARBCODETABELLE:"CT%"[154]"
  96. 940 FOR I=0 TO 7
  97. 950 PRINTF$(I)F%(I,CT%)TAB(23)F$(I+8)F%(I+8,CT%)
  98. 960 NEXTI:RETURN
  99. 970 PRINT" SPEICHERN: ";:GOTO840
  100. 980 FORI=0TOAS%:BY=ST%(I):GOSUB1000:PRINT" "BY$;:NEXT:PRINT:RETURN
  101. 990 FORI=0TOAG%:BY=GR%(I):GOSUB1000:PRINT" "BY$;:NEXT:PRINT:RETURN
  102. 1000 BY%=BY/16:BY$=CHR$(48+BY%-(BY%>9)*7):BY%=BYAND15
  103. 1010 BY$=BY$+CHR$(48+BY%-(BY%>9)*7):RETURN
  104. 1020 ST$=ST$+" ":AS%=-1:B$="":FORI=1TOLEN(ST$)
  105. 1030 A$=MID$(ST$,I,1)
  106. 1040 IFA$=" "THENGOSUB1070:GOTO1060
  107. 1050 B$=B$+A$:NEXTI
  108. 1060 AS%=AS%+1:ST%(AS%)=BY:NEXTI:RETURN
  109. 1070 B$=RIGHT$("00"+B$,2):BY=0
  110. 1080 FORJ=1TO2:B%=ASC(B$):B%=B%-48+(B%>64)*7
  111. 1090 B$=MID$(B$,2):BY=16*BY+B%:NEXT:RETURN
  112. 1100 GR$=GR$+" ":AG%=-1:B$="":FORI=1TOLEN(GR$)
  113. 1110 A$=MID$(GR$,I,1)
  114. 1120 IFA$=" "THENGOSUB1070:GOTO1140
  115. 1130 B$=B$+A$:NEXTI
  116. 1140 AG%=AG%+1:GR%(AG%)=BY:NEXTI:RETURN
  117.