10 DIMTYP$(5):DIMDU$(5)
20 TYP$(1)="NORMAL"
30 TYP$(2)="CENTRONIC":DU$(2)="CEN"
40 TYP$(3)="MPS801":DU$(3)="UMLAUT1"
50 TYP$(4)="MPS802":DU$(4)="UMLAUT2"
60 TYP$(5)="INDIVIDUELL":DU$(5)="INDI"
70 GOSUB80:GOTO110
80 PRINT"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
90 PRINT"[221][146]     +  [205][160][193][160][211][160][212][160][197][160][210][160]-[160][212][160][197][160][216][160][212]   +     [152][221]";
100 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][146]":RETURN
110 PRINT"     [196][160][210][160][213][160][195][160][203][160][197][160][210][160][193][160][213][160][211][160][215][160][193][160][200][160][204]        [146]"
120 PRINT"1) [206][207][210][205][193][204] [201][197][195]-[194]US + [210][211]232  ([193][211][195][201][201])"
130 PRINT"2) [195][197][206][212][210][207][206][201][195]  ([193][211][195][201][201])          "
140 PRINT"3) [205][208][211]801 + [214][195]1525  ([195][194][205])          "
150 PRINT"4) [205][208][211]802 + [214][195]1526  ([195][194][205])  "
160 PRINT"5) [201][206][196][201][214][201][196][213][197][204][204]"
170 PRINT"[215]AEHLEN [211]IE ? ";
180 POKE198,0:WAIT198,1:GETX$
190 IFASC(X$)<49ORASC(X$)>53THEN180
200 TYP=VAL(X$)
202 GOSUB80:PRINT"[211]OLL DIE [194]ILDSCHIRM-[198]ARBE IM 80 [218]-[205]ODUS GEAENDERT WERDEN <J/N>"
203 WAIT198,1:GETFB$
204 IFFB$<>"J"THEN500
205 PRINT" [198]ARBWAHL! ":INPUT" [200]INTERGRUNDFARBE :";HF
206 INPUT" VORDERGRUNDFARBE :";VF
500 GOSUB80:PRINT"[196]ER [194]ASIC-[211]TART WIRD GENERIERT"
520 PRINT"DIE [208]ROGRAMMTEILE WERDEN NACHGELADEN!"
540 GOSUB1000:Z=2053
560 A=231:B=8:N$="T1":L=17+2279:GOSUB900:T3=C
580 N$="T3":L=997+C:GOSUB900
582 IFFB$="J"THENPOKET3+822,16*VF+HF
600 N$="T5":L=510+C:GOSUB900
620 N$="T4":L=2783+C:GOSUB900
640 N$="ZEICHENSATZ":L=4096+C:GOSUB900
660 N$="T2":L=7396+C:GOSUB900
680 N$=TYP$(TYP):L=768+C:GOSUB900
700 N$="FORMULAR*":L=249+C:GOSUB900
720 IFTYP=1THENFORI=2214TO2234:POKEI,234:NEXT:GOTO780
740 N$=DU$(TYP):L=C:GOSUB900:POKEZ+4,A:POKEZ+9,B:ZE=C-L+39424
760 ZE%=ZE/256:POKEZ+13,ZE%:POKEZ+11,ZE-(ZE%*256)
780 GOSUB80:PRINT"P[207]44,8:P[207]45,P[197](174):P[207]46,P[197](175)"
800 PRINT"[196]AS [208]ROGRAMM '"TYP$(TYP)"' KANN JETZT"
820 PRINT"WIE EIN [194]ASIC-[208]ROGRAMM BEHANDELT WERDEN"
840 PRINT"[193]UF [196]ISK ODER [203]ASSETTE ABSPEICHERN,"
860 PRINT"ODER MIT '[210][213][206]' STARTEN!"
880 POKE631,19:POKE632,17:POKE633,17:POKE634,17:POKE635,17:POKE636,13:POKE198,6
890 END
900 Z=Z+18:POKEZ,A:POKEZ+2,B
910 PRINT"  "N$" NACH "B*256+A
920 SYS57812N$,8,0:POKE780,0:POKE781,A:POKE782,B:SYS65493
930 OPEN1,8,15:INPUT#1,E,F$,G,H:CLOSE1
940 IFE=62THENPRINT""F$CHR$(13)"[146][196]ISK MIT "N$" EINLEGEN <TASTE>"
950 IFE=62THENPOKE198,0:WAIT198,1:GOTO910
960 IFE>2THENPRINTE;F$;G;H:END
965 A=PEEK(174):B=PEEK(175):C=B*256+A
970 D%=L/256:POKEZ+9,D%:POKEZ+4,L-(D%*256):RETURN
1000 FORX=2049TO2278:READI:POKEX,I:NEXT:RETURN
1010 DATA11,8,194,7,158,50,48,54,49,0,0,0,120,169,11,141,32,208,141,17,208,169
1020 DATA0,160,0,162,0,32,214,8,169,0,160,77,162,3,32,221,8,169,0,160,0,162
1030 DATA0,32,214,8,169,0,160,229,162,195,32,221,8,169,0,160,0,162,0,32,214
1040 DATA8,169,0,160,254,162,203,32,221,8,169,0,160,0,162,0,32,214,8,169,0,160
1050 DATA223,162,153,32,221,8,169,0,160,0,162,0,32,214,8,169,0,160,0,162,128
1060 DATA32,221,8,169,0,160,0,162,0,32,214,8,169,0,160,228,162,188,32,221,8
1070 DATA169,0,160,0,162,0,32,214,8,169,0,160,0,162,192,32,221,8,169,0,160,0
1080 DATA162,0,32,214,8,169,0,160,249,162,4,32,221,8,169,0,160,0,162,0,32,214
1090 DATA8,169,0,160,0,162,0,32,221,8,32,0,154,169,55,133,1,169,0,170,157,0
1100 DATA200,232,224,41,208,248,141,33,208,169,12,141,134,2,88,76,0,192,133
1110 DATA95,132,96,134,90,96,133,91,132,88,134,89,32,191,163,96