10 PRINT"[147]";:GOSUB59000
20 BR=MB:I7=1:I8=1
30 ST$="[193]USWAHL MIT DEN [208]FEILTASTEN,  AUSLOESEN MIT <[210]ETURN>":GOSUB1700
40 GOSUB1600
50 GOSUB1500:IFRI=0THEN50
60 IFRI=1THENGOSUB1300:I7=I7+1:I8=1:IFI7>MNTHENI7=1
70 IFRI=2THENGOSUB1300:I7=I7-1:I8=1: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 GOTO40
900 ZL=0:GOSUB1200
999 END
1100 GOSUB1200:PRINT"[176]";:FORI9=1TOBR:PRINT"[192]";:NEXT:PRINT"[174]"
1110 FORI9=1TOHO:PRINTTAB(SP)"[221]"SPC(BR)"[221]":NEXT
1120 PRINTTAB(SP)"[173]";:FORI9=1TOBR:PRINT"[192]";:NEXT:PRINT"[189]";:RETURN
1200 POKE214,ZL:POKE211,SP:SYS58640:RETURN
1300 GOSUB1200:FORI9=1TOHO+2:PRINTTAB(SP)LEFT$(L$,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 GOSUB1100:SP=SP+1
1610 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$:PRINTL$;:ZL=ZL-1:GOSUB1200:EN$="[164]":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:GOSUB1100:ZL=ZL+1:SP=SP+1:GOSUB1200
4910 PRINT""LEFT$(L$,BR);:GOSUB1200:PRINTMN$(I7,I8)"[146]";
4920 ZL=ZL+2:GOSUB1200:PRINT"[193]UF [215]IEDERSEHEN!";
4930 ST$="[196]ANKE FUER'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:GOSUB1100:ZL=ZL+1:SP=SP+1:GOSUB1200
5010 PRINT""LEFT$(L$,BR);:GOSUB1200:PRINTMN$(I7,I8)"[146]";
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:GOSUB1100:ZL=ZL+1:SP=SP+1:GOSUB1200
6010 PRINT""LEFT$(L$,BR);:GOSUB1200:PRINTMN$(I7,I8)"[146]";
6020 ZL=ZL+2:GOSUB1200:PRINT"[205]ENUES IN [194][193][211][201][195]";
6030 ZL=ZL+1:GOSUB1200:PRINT"VON";
6040 ZL=ZL+1:GOSUB1200:PRINT"        [193]RNDT [196]ETTKE[151]";
6050 ST$="[214]IEL [211]PASS 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:ZL=0:SP=0:BR=0:HO=0:X9$="":EN$="":ST$=""
59010 READ MN,SM,MB:DIM MN$(MN,SM),MN%(MN)
59020 FORI9=1TOMN:READMN$(I9,0):NEXT
59025 FORI8=1TOMN:READMN%(I8):SM=MN%(I8):FORI9=1TOSM:READMN$(I8,I9):NEXT:NEXT
59080 L$="                                       ":LG=1
59090 FC=11:FB=15:FR=12:POKE53281,FB:POKE53280,FR:POKE646,FC
59095 PRINT""L$" ";:FORI9=1TOMN:SP=(I9-1)*MB:GOSUB1200:PRINTMN$(I9,0);:NEXT:PRINT"[146]";
59099 RETURN
60000 DATA 4,6,10:REM ANZAHL MENUES,MAX. ANZAHL SUBMENUES, MENUEBREITE
60010 DATA "[196]ATEI","[194]EARB.","[197]XTRAS","[200]ILFE"
60020 DATA 5,"[206]EU","[207]EFFNEN","[211]CHLIESSEN","[211]PEICHERN","[194]EENDEN"
60030 DATA 4,"[210]UECKGAENG","[193]USSCHNEID","[203]OPIEREN","[197]INFUEGEN"
60040 DATA 2,"[201]MPORT","[197]XPORT"
60050 DATA 3,"[213]EBER...","[201]NDEX","[193]LLGEMEIN"