100 DIM TYP$(5)
110 TYP$(1)="NORMAL"
120 TYP$(2)="CENTRONIC"
130 TYP$(3)="MPS801"
140 TYP$(4)="MPS802"
150 TYP$(5)="INDIVIDUELL"
10000 POKE53265,11:POKE53281,0:POKE53280,11:PRINT"[147][152]";
10010 PRINT"[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]";
10020 PRINT"[221][146]     +  +  +  [212][160][160][197][160][160][216][160][160][212][160][160]+  +  +     [152][221]";
10030 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]"
10040 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]"
10050 PRINT"1) [206][207][210][205][193][204] [201][197][195]-[194]US + [210][211]232  ([193][211][195][201][201])"
10060 PRINT"2) [195][197][206][212][210][207][206][201][195]  ([193][211][195][201][201])          "
10070 PRINT"3) [205][208][211]801 + [214][195]1525  ([195][194][205])          "
10080 PRINT"4) [205][208][211]802 + [214][195]1526  ([195][194][205])  "
10085 PRINT"5) [201][206][196][201][214][201][196][213][197][204][204]"
10090 PRINT"[215]AEHLEN [211]IE ? ";
10100 POKE53265,27
10110 POKE198,0:WAIT198,1:GETX$
10120 IFASC(X$)<49ORASC(X$)>53THEN 10110
10125 PRINTX$
10130 OPEN1,8,3,"TYP,S,R":OPEN15,8,15:INPUT#15,ER
10140 IF ER=62 THEN20000
10150 INPUT#1,TYP
10160 PRINT#15,"R0:"TYP$(TYP)"=0:DRUCKER        D"
10170 CLOSE1:PRINT#15,"S0:TYP"
20000 TYP=VAL(X$)
20010 CLOSE1:CLOSE15:OPEN1,8,3,"TYP,S,W"
20020 PRINT#1,TYP
20030 OPEN15,8,15
20040 PRINT#15,"R0:DRUCKER        D=0:"TYP$(TYP)"
20050 [160]1:[160]15
20060 [153]"LOADLOAD"[199](34)"0:LADER"[199](34)",8"
20070 [153]"RUN"
20080 [151]631,19:[151]632,13:[151]633,13:[151]198,3