5 IFA=0THENA=1:LOAD"GP[201]",8,8
10 DIMZ(8,4),AN(4):SA=1:GA=4
20 FORI=1TO39:LN$=LN$+"[192]":NEXT
30 POKE53280,1:POKE53281,1:POKE646,0
100 POKE53272,23
110 GOSUB10000
120 PRINT" [196]RUCKER-[193]NPASSUNG"
130 PRINT" [199][201][199][193]-[208][213][194][204][201][211][200]"
140 PRINT
150 PRINT"  A) [211]TEUERZEICHEN EINGEBEN"
160 PRINT
170 PRINT"  B) [211]TEUERZEICHEN AUSGEBEN"
180 PRINT
190 PRINT"  C) [211]EKUNDAERADRESSE:";PEEK(28728)
200 PRINT
210 PRINT"  D) [199]ERAETEADRESSE:  ";PEEK(28727)
220 PRINT
230 PRINT"  E) [208]ARAMETER SPEICHERN"
240 PRINT
250 PRINT"  X) [197]XIT"
300 POKE198,0:WAIT198,1
310 GETA$
320 ONASC(A$)-64GOTO1000,2000,4000,5000,3000
370 IFA$="X"THENEND
380 GOTO300
1000 GOSUB10000
1010 PRINT" [211]TEUERZEICHEN EINGEBEN"
1020 PRINT
1030 PRINT
1040 PRINT
1050 PRINT"  [197]INSCHALTEN DES [199]RAFIK-[205]ODUS:"
1060 X=0:BY=28687:GOSUB20000
1070 PRINT"  [218]EILENVORSCHUB N/216TEL [218]OLL:"
1080 X=1:BY=28695:GOSUB20000
1090 PRINT"  [196]RUCKERRESET:                "
1100 X=2:BY=28703:GOSUB20000
1110 PRINT"  [208]APIERVORSCHUB (FORM FEED):  "
1120 X=3:BY=28711:GOSUB20000
1130 PRINT"  [218]EILENVORSCHUB (CR/LF):      "
1140 X=4:BY=28719:GOSUB20000
1999 GOTO100
2000 GOSUB10000
2010 PRINT" [211]TEUERZEICHEN AUSGEBEN"
2020 PRINT
2030 PRINT
2040 PRINT
2050 PRINT:PRINT"[199]RAFIK EIN:":A=28687:E=28694:GOSUB40000
2070 PRINT:PRINT"[218]-VORSCHUB:":A=28695:E=28702:GOSUB40000
2090 PRINT:PRINT"[210]ESET     :":A=28703:E=28710:GOSUB40000
2110 PRINT:PRINT"[198]ORM [198]EED :":PRINTPEEK(28711);
2130 PRINT:PRINT"[204]INE [198]EED :":PRINTPEEK(28719)
2150 POKE198,0:WAIT198,1:POKE198,0
2160 GOTO100
3000 OPEN15,8,15,"S:GP[201]"
3010 OPEN1,8,1,"GP[201]"
3020 PRINT#1,CHR$(15)CHR$(112);
3030 FORX=0TO4
3040 I=1:IFAN(X)=0GOTO3080
3050 FORI=1TOAN(X)
3060 PRINT#1,CHR$(Z(I,X));
3070 NEXT
3080 IFI>8GOTO3110
3090 PRINT#1,CHR$(255);
3100 I=I+1:GOTO3080
3110 NEXT
3120 PRINT#1,CHR$(GA);CHR$(SA);:CLOSE1
3130 INPUT#15,A$,B$,T$,S$
3140 PRINT"";
3150 PRINTA$","B$","T$","S$;
3160 POKE198,0:WAIT198,1:POKE198,0
3170 CLOSE15:GOTO100
4000 GOSUB10000
4010 PRINT" [211]EKUNDAERADRESSE EINGEBEN"
4020 PRINT
4030 PRINT
4040 PRINT
4050 PRINT"  [211]EKUNDAERADRESSE: ";STR$(PEEK(28728))+"[157]";
4060 OPEN1,0:INPUT#1,A$:CLOSE1
4070 SA=VAL(A$):POKE28728,SA
4080 IFSA<0ORSA>255GOTO4000
4090 GOTO100
5000 GOSUB10000
5010 PRINT" [199]ERAETEADRESSE EINGEBEN"
5020 PRINT
5030 PRINT
5040 PRINT
5050 PRINT"  [199]ERAETEADRESSE: ";STR$(PEEK(28727))+"[157]";
5060 OPEN1,0:INPUT#1,A$:CLOSE1
5070 GA=VAL(A$):POKE28727,GA
5080 IFGA<4ORGA>7GOTO5000
5090 GOTO100
10000 PRINTCHR$(147);
10010 PRINTLN$:PRINT:PRINT:PRINTLN$
10050 PRINTCHR$(19):RETURN
20000 PRINT
20010 PRINT"  [215]IEVIELE [211]TEUERZEICHEN: ";
20020 OPEN1,0:INPUT#1,A$:CLOSE1
20030 IF(A$<"0"ORA$>"8")ORLEN(A$)>1THENPRINT:PRINT"[145]";:GOTO20010
20040 AN=VAL(A$):IFAN=0THENPRINT:PRINT:GOTO20120
20050 PRINT:PRINT
20060 FORI=1TOAN
20070 PRINT" ";I;"[157]. [211]TEUERZEICHEN: ";STR$(PEEK(BY+I-1))+"[157][157][157]";
20080 OPEN1,0:INPUT#1,A$:CLOSE1
20090 Z(I,X)=VAL(A$):POKEBY+I-1,Z(I,X)
20100 PRINT
20110 NEXT
20120 PRINT
20130 PRINT"  [211]IND DIE [197]INGABEN RICHTIG ?"
20140 POKE198,0:WAIT198,1
20150 GETA$
20160 IFA$<>"N"GOTO20200
20170 GOSUB30000
20180 PRINT"":GOTO20000
20200 GOSUB30000
20210 PRINT""
20220 AN(X)=AN:RETURN
30000 PRINT""
30010 FORI=1TO12
30020 PRINT"                                       "
30030 NEXT:RETURN
40000 FORI=ATOE:PRINTSTR$(PEEK(I))+",";:NEXT:RETURN