10 REM*********************************
11 REM*                               *
12 REM*         SUPER-HARDCOPY        *
13 REM*                               *
14 REM*    1985 BY CHRISTIAN STETTER  *
15 REM*                               *
16 REM*          HAYDNSTR.17          *
17 REM*                               *
18 REM*        8850 DONAUWOERTH       *
19 REM*                               *
20 REM*********************************
100 POKE 53281,006
110 POKE45,140:POKE46,020
120 POKE47,003:POKE48,021
130 POKE49,250:POKE50,021
140 F$(0)=" SCHWARZ   :"
150 F$(1)=" WEISS     :"
160 F$(2)=" ROT       :"
170 F$(3)=" TUERKIS   :"
180 F$(4)=" VIOLETT   :"
190 F$(5)=" GRUEN     :"
200 F$(6)=" BLAU      :"
210 F$(7)=" GELB      :"
220 F$(8)=" ORANGE    :"
230 F$(9)=" BRAUN     :"
240 F$(10)=" HELLROT   :"
250 F$(11)=" GRAU 1    :"
260 F$(12)=" GRAU 2    :"
270 F$(13)=" HELLGRUEN :"
280 F$(14)=" HELLBLAU  :"
290 F$(15)=" GRAU 3    :"
300 AE%=0:PRINT"[147][154]         *** SUPER HARDCOPY ***"
310 PRINT"     [157]   1985 BY CHRISTIAN STETTER"
320 GOSUB830:GOSUB860:GOSUB890:GOSUB900:GOSUB910:GOSUB920:GOSUB930:GOSUB970
330 PRINT"";:GOSUB830
340 GETA$:IFA$=""THEN340
350 IFA$=CHR$(157)THENAE%=1:PRINT"[145][145]";:GOSUB830
360 IFA$=CHR$(29)THENAE%=0:PRINT"[145][145]";:GOSUB830
370 IFA$<>CHR$(13)THEN340
380 PRINT"[145][145][154]";:GOSUB830:IFAE%=0THEN 730
390 PRINT"";:GOSUB860
400 GETA$:IFA$=""THEN400
410 IFA$=CHR$(157)THENIN%=0:PRINT"[145][145]";:GOSUB860
420 IFA$=CHR$(29)THENIN%=1:PRINT"[145][145]";:GOSUB860
430 IFA$<>CHR$(13)THEN400
440 PRINT"[145][145][154]";:GOSUB860
450 PRINT"";:GOSUB890:PRINTTAB(15)"[145]";:INPUTGA%
460 PRINT"[145][154]";:GOSUB890
470 PRINT"";:GOSUB900:PRINTTAB(15)"[145]";:INPUTSA%
480 PRINT"[145][154]";:GOSUB900
490 PRINT"";:GOSUB910:PRINTTAB(15)"[145]";:INPUTST$:GOSUB1020
500 PRINT"[145][154]";:GOSUB910
510 PRINT"";:GOSUB920:PRINTTAB(15)"[145]";:INPUTGR$:GOSUB1100
520 PRINT"[145][154]";:GOSUB920
530 PRINT"";:GOSUB930:POKE214,11:SYS58732
540 GETA$:IFA$=CHR$(141)THEN PRINT"[145][154]":GOSUB930:GOTO730
550 IFA$=CHR$(13)THEN 580
560 IFA$<"0" OR A$>"5" THEN 540
570 CT%=VAL(A$):GOTO 530
580 PRINT"[154]";:GOSUB930
590 POKE214,14:SYS58732
600 FOR I=0 TO 7
610 PRINT"";F$(I)F%(I,CT%);
620 POKE213,19:INPUT"[157][157][157][157]";F%(I,CT%)
630 IF F%(I,CT%)<0 OR F%(I,CT%)>8 THEN PRINTTAB(15)"[145]";:GOTO620
640 PRINT"[145][154]";F$(I)F%(I,CT%)
650 NEXTI
660 POKE214,14:SYS58732
670 FOR I=8 TO 15
680 PRINTTAB(23)"";F$(I);F%(I,CT%);
690 INPUT"[157][157][157][157]";F%(I,CT%)
700 IF F%(I,CT%)<0 OR F%(I,CT%)>8 THEN PRINTTAB(38)"[145]";:GOTO620
710 PRINTTAB(23)"[145][154]";F$(I)F%(I,CT%)
720 NEXTI
730 POKE214,22:SYS58732
740 AE%=0:PRINT"";:GOSUB970
750 GETA$:IFA$=""THEN750
760 IFA$=CHR$(157)THENAE%=1:PRINT"[145][145]";:GOSUB970
770 IFA$=CHR$(29)THENAE%=0:PRINT"[145][145]";:GOSUB970
780 IFA$<>CHR$(13)THEN750
790 PRINT"[145][145][154]";:GOSUB970:IFAE%=0THEN 820
800 POKE45,011:POKE46,033
810 PRINT"[147]SAVE"CHR$(34)"@0:SUPER-HARDCOPY"CHR$(34)",8":END
820 SYS05714
830 PRINT"PARAMETER AENDERN: ";
840 IF AE%=0THENPRINT"JA/NEIN[146]":RETURN
850 PRINT"JA[146]/NEIN":RETURN
860 PRINT"INTERFACE      : ";
870 IFIN%=0THENPRINT"CENTRONICS[146]/SERIELL":RETURN
880 PRINT"CENTRONICS/SERIELL[146]":RETURN
890 PRINT" GERAETENUMMER :"GA%:RETURN
900 PRINT" SEKUNDAERADR. :"SA%:RETURN
910 PRINT" START-SEQUENZ :";:GOSUB980:RETURN
920 PRINT" GRAFIK-SEQUENZ:";:GOSUB990:RETURN
930 PRINT"FARBCODETABELLE:"CT%"[154]"
940 FOR I=0 TO 7
950 PRINTF$(I)F%(I,CT%)TAB(23)F$(I+8)F%(I+8,CT%)
960 NEXTI:RETURN
970 PRINT" SPEICHERN: ";:GOTO840
980 FORI=0TOAS%:BY=ST%(I):GOSUB1000:PRINT" "BY$;:NEXT:PRINT:RETURN
990 FORI=0TOAG%:BY=GR%(I):GOSUB1000:PRINT" "BY$;:NEXT:PRINT:RETURN
1000 BY%=BY/16:BY$=CHR$(48+BY%-(BY%>9)*7):BY%=BYAND15
1010 BY$=BY$+CHR$(48+BY%-(BY%>9)*7):RETURN
1020 ST$=ST$+" ":AS%=-1:B$="":FORI=1TOLEN(ST$)
1030 A$=MID$(ST$,I,1)
1040 IFA$=" "THENGOSUB1070:GOTO1060
1050 B$=B$+A$:NEXTI
1060 AS%=AS%+1:ST%(AS%)=BY:NEXTI:RETURN
1070 B$=RIGHT$("00"+B$,2):BY=0
1080 FORJ=1TO2:B%=ASC(B$):B%=B%-48+(B%>64)*7
1090 B$=MID$(B$,2):BY=16*BY+B%:NEXT:RETURN
1100 GR$=GR$+" ":AG%=-1:B$="":FORI=1TOLEN(GR$)
1110 A$=MID$(GR$,I,1)
1120 IFA$=" "THENGOSUB1070:GOTO1140
1130 B$=B$+A$:NEXTI
1140 AG%=AG%+1:GR%(AG%)=BY:NEXTI:RETURN