5 IFI9=0THENI9=1:IFPEEK(648)<>204THENLOAD"ZEICHENSATZ",8,1
10 GOSUB59000
20 BR=MB:I7=1:I8=1
30 ST$="[193]USWAHL MIT DEN [208]FEILTASTEN,  AUSL[SEN  MIT <[210]ETURN>":GOSUB1700
40 GOSUB1600
50 I4=1:GOSUB1500:IFRI=0THEN50
60 IFRI=1THENGOSUB1300:I7=I7+1:I8=1:I4=2:IFI7>MNTHENI7=1
70 IFRI=2THENGOSUB1300:I7=I7-1:I8=1:I4=2:IFI7=0THENI7=MN
80 IFRI=3THENI8=I8+1:IFI8>HOTHENI8=1
90 IFRI=4THENI8=I8-1:IFI8=0THENI8=HO
100 IFRI=5THENI6=BR:GOSUB1300:GOSUB1700:GOSUB2000:ZL=1:BR=I6:GOTO30
110 ONI4GOSUB1610,1600:GOTO50
999 END
1100 GOSUB1200:PRINTK$(I5,0);:FORI9=1TOBR:PRINTK$(I5,1);:NEXT:PRINTK$(I5,2)
1110 FORI9=1TOHO:PRINTTAB(SP)K$(I5,3)LEFT$(L$(0),BR)K$(I5,5):NEXT
1120 PRINTTAB(SP)K$(I5,6);:FORI9=1TOBR:PRINTK$(I5,7);:NEXT:PRINTK$(I5,8);:RETURN
1200 POKE214,ZL:POKE211,SP:SYS58640:RETURN
1300 GOSUB1200:FORI9=1TOHO+2:PRINTTAB(SP)LEFT$(L$(1),BR+2);:IFI9<HO+2THENPRINT
1310 NEXT:RETURN
1400 EN$="":I9=0
1405 PRINT"[164][157]";
1410 GETX9$:IFX9$=""THEN1410
1420 IFX9$=CHR$(13)THEN1480
1430 IFX9$=CHR$(20)ANDI9>0THENPRINT" [157][157][164][157]";:I9=I9-1:EN$=LEFT$(EN$,I9)
1440 IFX9$<" "ORX9$>"[218]"THEN1410
1450 IFX9$>"_"ANDX9$<"[193]"THEN1410
1460 IFX9$=CHR$(34)THENPRINTCHR$(148)X9$CHR$(20);
1470 EN$=EN$+X9$:PRINTX9$;:I9=I9+1:IFLG>I9THEN1405
1480 PRINT" ";:RETURN
1500 RI=0
1510 GETX9$:IFX9$=""THEN1510
1520 IFX9$=""THENRI=1
1530 IFX9$="[157]"THENRI=2
1540 IFX9$=""THENRI=3
1550 IFX9$="[145]"THENRI=4
1560 IFX9$=CHR$(13)THENRI=5
1570 RETURN
1600 ZL=1:HO=MN%(I7):SP=MB*(I7-1):IFSP+MB>38THENSP=37-MB
1605 I5=0:GOSUB1100
1610 SP=SP+1:FORI6=1TOHO:ZL=ZL+1:GOSUB1200:IFI6=I8THENPRINT"";
1620 PRINTMN$(I7,I6)"[146]";:NEXT:ZL=1:SP=SP-1
1630 RETURN
1700 ZL=23:SP=0:GOSUB1200:PRINTL$(0):PRINTL$(0);:ZL=ZL-1:GOSUB1200:EN$="[168]":LG=40:GOSUB1800
1710 ZL=ZL+1:GOSUB1200:PRINTST$;:ST$="":EN$="":RETURN
1800 FORI9=1TOLG:PRINTEN$;:NEXT:RETURN
2000 IFI7<>1THEN2050
2010 IFI8=1THENGOSUB5000
2020 IFI8=2THENGOSUB5000
2030 IFI8=3THENGOSUB5000
2040 IFI8=4THENGOSUB5000
2045 IFI8=5THENGOSUB4900
2050 IFI7<>2THEN2100
2060 IFI8=1THENGOSUB5000
2070 IFI8=2THENGOSUB5000
2080 IFI8=3THENGOSUB5000
2090 IFI8=4THENGOSUB5000
2100 IFI7<>3THEN2150
2110 IFI8=1THENGOSUB5000
2120 IFI8=2THENGOSUB5000
2150 IFI7<>4THEN2200
2160 ONI8GOSUB6000,5000,5000
2200 RETURN
4900 ZL=8:SP=8:BR=22:HO=5:I5=3:GOSUB1100:ZL=ZL+3:SP=SP+1:GOSUB1200
4920 PRINT"[193]UF [215]IEDERSEHEN!";
4930 ST$="[196]ANKE F@R'S [205]ITMACHEN! [194]IS DANN.   $[193][196]":GOSUB1700
4940 ZL=1:SP=0:GOSUB1200
4950 END
5000 ZL=8:SP=9:BR=20:HO=5:I5=3:GOSUB1100:ZL=ZL+2:SP=SP+1:GOSUB1200
5010 PRINT"("MN$(I7,I8)")";
5020 ZL=ZL+2:GOSUB1200:PRINT"[215]EITER MIT [212]ASTE.";
5030 ST$="[196]IES IST DIE [211]TATUSZEILE. ":GOSUB1700:LG=1:GOSUB1400
5040 ZL=8:SP=9:BR=20:HO=5:GOSUB1300
5050 RETURN
6000 ZL=8:SP=9:BR=20:HO=5:I5=1:GOSUB1100:ZL=ZL+1:SP=SP+1:GOSUB1200
6010 PRINT"[205]EN@S IN [194][193][211][201][195]";
6020 ZL=ZL+2:GOSUB1200:PRINT"F@R [199][207]64!"
6030 ZL=ZL+1:GOSUB1200:PRINT"VON";
6040 ZL=ZL+1:GOSUB1200:PRINT"        [193]RNDT [196]ETTKE[144]";
6050 ST$="[214]IEL [211]PA\ MIT DIESEM [208]ROGRAMM! ":GOSUB1700:LG=1:GOSUB1400
6060 ZL=8:SP=9:BR=20:HO=5:GOSUB1300
6070 RETURN
59000 I9=0:I8=0:I7=0:I6=0:I5=0:I4=0:ZL=0:SP=0:BR=0:HO=0:X9$="":EN$="":ST$=""
59010 READ MN,SM,MB:DIM MN$(MN,SM),MN%(MN),L$(1),K$(3,8)
59020 FORI9=1TOMN:READMN$(I9,0):NEXT
59025 FORI8=1TOMN:READMN%(I8):SM=MN%(I8):FORI9=1TOSM:READMN$(I8,I9):NEXT:NEXT
59030 FORI9=0TO3:FORI8=0TO8:READK$(I9,I8):NEXT:NEXT
59070 POKE56576,148:POKE53272,59:POKE648,204
59080 L$(0)="                                       ":LG=1
59085 L$(1)="[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
59090 FC=0 :FB=1 :FR=12:POKE53281,FB:POKE53280,FR:POKE646,FC:I8=52263
59091 PRINT"[147]";:SP=0:EN$="[160]":LG=39:FORZL=0TO21:GOSUB1200:GOSUB1800
59092 POKEI8+40*ZL,96:NEXT:ZL=0
59095 GOSUB1200:PRINT""L$(0)" [146]";:FORI9=1TOMN:SP=(I9-1)*MB:GOSUB1200:PRINTMN$(I9,0);:NEXT
59099 RETURN
60000 DATA 4,6,10:REM ANZAHL MENUES,MAX. ANZAHL SUBMENUES, MENUEBREITE
60010 DATA "[196][193][212][197][201]","[194][197][193][210][194].","[197][216][212][210][193][211]","[200][201][204][198][197]"
60020 DATA 5,"[206]EU","[185]FFNEN","[211]CHLIE\EN","[211]PEICHERN","[194]EENDEN"
60030 DATA 4,"[210]@CKG]NGIG","[193]USSCHNEID","[203]OPIEREN","[197]INF@GEN"
60040 DATA 2,"[201]MPORT","[197]XPORT"
60050 DATA 3,"[186]BER...","[201]NDEX","[193]LLGEMEIN"
60060 DATA"[167]","[168]","[169]","[165]"," ","[170]","[173]","[164]","[174]"
60070 DATA"[188]","[177]","[189]","[187]"," ","[184]","[190]","[178]","[191]"
60080 DATA"[182]","[183]","[180]","[182]"," ","[180]","[182]","[175]","[180]"
60090 DATA"[166]","[163]","[162]","[165]"," ","[182]","[220]","[161]","[221]"