10 DIMNA$(144),NU$(144) 20 PRINTCHR$(142):PRINTCHR$(8) 30 GOTO1020 40 REM *** ANLEITUNG *** 50 PRINT"[147]";:PRINT 60 PRINTSPC(14)"ANLEITUNG 70 [153] 80 [153]"- DIESES PROGRAMM STELLT EIN MENU FUER 90 PRINT" IHRE DISKETTEN HER UND SPEICHERT ES 100 [153]" AB. SIE MUESSEN ALSO NACHHER NUR NOCH 110 PRINT" DAS MENU LADEN,DAS PROGRAMM DAS SIE 120 [153]" WUENSCHEN AUSWAEHLEN UND SCHON WIRD 130 PRINT" ES IN DEN RECHNER GELADEN. 140 [153] 150 [153][166]11)"VORGEHENSWEISE 160 PRINT 170 PRINT"- WAEHLEN SIE ZUERST MENUPUNKT 2 UND 180 [153]" BESTIMMEN SIE WELCHE PROGRAMME INS 190 PRINT" MENU AUFGENOMMEN WERDEN SOLLEN. 200 [153]" GLEICHZEITIG LEGEN SIE AUCH FEST,OB 210 PRINT" ES MIT ,8 ODER MIT ,8,1 (MASCHINEN- 220 [153]" PROGRAMME) GELADEN WERDEN SOLL. 230 PRINT"- WENN SIE DIESE ARBEIT ERLEDIGT HABEN, 240 [153]" SIND SIE AUTOMATISCH WIEDER IM HAUPT- 250 PRINT" MENU UND KOENNEN NUN MENUPUNKT 4 WAEH-"; 260 PRINT" LEN UM DAS MENU ABZUSPEICHERN ODER 270 [153]" FALLS IHNEN BEI PUNKT 2 EIN FEHLER 280 PRINT" UNTERLAUFEN IST,NOCHMALS VON VORNE 290 [153]" BEGINNEN.ON" 300 [161]T$:[139]T$[178]""[167]300 310 [142] 320 : 330 : 340 [143] *** UEBERNEHMEN *** 350 [153]"LOAD";:A$[178]"":T$[178]"":IN[178]0:X[178]0:XX[178]0 360 [153]"F1 = ,8WAIT F3 = ,8,1WAIT F5 = NICHT UEBERNEHMEN" 370 [160]2:[159]2,8,15 380 [159]1,8,0,"$0" 390 [161]#1,A$,B$ 400 [161]#1,A$,B$ 410 [161]#1,A$,B$ 420 C[178]0 430 [139] A$[179][177]"" [167] C[178][198](A$) 440 [139] B$[179][177]"" [167] C[178]C[170][198](B$)[172]256 450 [161]#1,B$:[139] ST[179][177]0 [167] 540 460 [139] B$[179][177][199](34)[167][137]450 470 [161]#1,B$:[139]B$[179][177][199](34)[175]B$[179][177]"<"[167]A$[178]A$[170]B$:[137] 550 480 [139]B$[179][177][199](34)[167] [137]470 490 [139]X[178]0[167]X[178]1:A$[178]"":[137]520 500 A$[178][201](A$,[195](A$)[171]1) 510 A$[178][200](A$,[195](A$)):[153]A$;:[141]570 520 [161]#1,B$:[139] B$[178][199](32) [167]520 530 [139] ST[178]0 [167] 400 540 [160]1:[153]"LOAD";:[142] 550 [139][195](A$)[177]20[167][137]540 560 [137]470 570 IN[178]IN[170]1:NA$(IN)[178]A$ 580 [161]T$:[139]T$[178]""[167]580 590 [139]T$[178]"INPUT"[167]NU$(IN)[178]"8":[151]214,[194](214):[151]211,20:[158]58640:[153]",8WAIT" 600 [139]T$[178]"INPUT"[167][142] 610 [139]T$[178]"DIM"[167]NU$(IN)[178]"81":[151]214,[194](214):[151]211,20:[158]58640:[153]",8,1WAIT" 620 [139]T$[178]"DIM"[167][142] 630 [139]T$[178]"READ"[167]NA$(IN)[178]"":IN[178]IN[171]1:[151]214,[194](214):[151]211,20:[158]58640 640 [139]T$[178]"READ"[167][153]"NICHT UEBERNOMMENWAIT":[142] 650 [137]580 660 [142] 670 : 680 [143] *** DIRECTORY *** 690 [153]"LOAD"; 700 [160]2:[159]2,8,15:X[178]0:A$[178]"":B$[178]"":C[178]0:LE$[178]"" 710 [159]1,8,0,"$0" 720 [161]#1,A$,B$ 730 [161]#1,A$,B$ 740 [161]#1,A$,B$ 750 C[178]0 760 [139] A$[179][177]"" [167] C[178][198](A$) 770 [139] B$[179][177]"" [167] C[178]C[170][198](B$)[172]256 780 [139]X[178]0[167]TB[178]2:[137]800 790 TB[178]5 800 [153][202]([196](C),2);[163]TB); 810 [161]#1,B$:[139] ST[179][177]0 [167] 950 820 [139] B$[179][177][199](34)[167][137]810 830 [139]X[178]0[167][153]""; 840 [153][199](34);:[153][199](34);:[153]""; 850 [161]#1,B$:[139]B$[179][177][199](34)[175]X[178]0[167][153]""B$;:[137]850:[137]870 860 [139]B$[179][177][199](34)[167][153]B$;:[137]850 870 [139]X[178]0[167][153]""; 880 [153][199](34);:[153][199](34);:[153]""; 890 [161]#1,B$:[139] B$[178][199](32) [167]890 900 [153] [163]24);:C$[178]"" 910 C$[178]C$[170]B$:[161]#1,B$:[139] B$[179][177]"" [167] 910 920 LE$[178][200](C$,6):[139]X[178]0[167]X[178]1:[141]980:[153]"CMDCMDCMDCMD"LE$:[137]940 930 [153]LE$ 940 [139] ST[178]0 [167] 730 950 [153]"CMDBLOCKS FREE":[160]1 960 [161]T$:[139]T$[178]""[167]960 970 T$[178]"":[142] 980 LE[178][195](C$):LE[178]6[171]LE 990 [129]I[178]1[164]LE:ZUS$[178]ZUS$[170]" ":[130] 1000 LE$[178]ZU$[170]LE$:[142] 1010 [143] *** TITEL *** 1020 [151] 53280,6 :[151] 53281,14:[153] [199](142)[199](147); 1030 [153] 1040 [153]"STOP (null)(null)(null) (null)(null)(null) (null)(null)(null)(null)(null)(null)(null) (null)(null)(null) (null)(null) (null)(null) (null)(null) 1050 PRINT" qqqq qqqq qqqqqqq qqqq qq qq qq 1060 [153]" qq qq qq qq qq"[166]6)"qq qq qq qq qq 1070 PRINT" qq qqq qq qq"SPC(6)"qq qq qq qq qq 1080 [153]" qq q qq qq"[166]6)"qq qqqq qq qq 1090 PRINT" qq"SPC(7)"qq qqqq qq qqq qq qq 1100 [153]" qq"[166]7)"qq qq"[166]6)"qq qq qq qq 1110 PRINT" qq"SPC(7)"qq qq"SPC(6)"qq qq qq qq 1120 [153]" qq"[166]7)"qq qqqqqqq qq qq qqqqqqqq 1130 PRINT" qq"SPC(7)"qq qqqqqqq qq qq qqqqqq 1140 [153]:[153] 1150 [153]" ww ww wwww ww w wwwww wwww 1160 PRINT" www www ww ww ww w ww ww w 1170 [153]" ww w w ww ww ww www ww ww w 1180 PRINT" ww w ww wwwwww www wwww wwww 1190 [153]" ww ww ww ww ww w ww ww w 1200 PRINT" ww ww ww ww ww w wwwww ww w 1210 [153] 1220 [153]" "[166]12)"SIMON (TEL 071/85 46 22)"; 1230 [153]" WRITTEN BY"[166]6)"& 1240 PRINT" "SPC(12)"EDY (TEL 071/85 50 46)"; 1250 GETA$:IFA$=""THEN1250 1260 PRINT"[147]" 1270 PRINT," IHRE WAHL :" 1280 PRINT," 1 DIRECTORY EINLESEN" 1290 PRINT," 2 UEBERNEHMEN" 1300 PRINT," 3 INFO" 1310 PRINT," 4 MENU SPEICHERN" 1320 PRINT," 5 ENDE" 1330 GET A$ :IF A$=""THEN 1330 1340 IF A$="1"THEN GOSUB690:GOTO1260 1350 IF A$="2"THEN GOSUB350:GOTO1260 1360 IF A$="3"THEN GOSUB50:GOTO1260 1370 IF A$="4"THEN GOTO1460 1380 IF A$="5"THEN1410 1390 GOTO1330 1400 REM *** ENDE *** 1410 POKE214,23:POKE211,11:SYS58640:PRINT"SIND SIE SICHER ?[145]" 1420 GETT$:IFT$="N"THEN1260 1430 IFT$="J"THENSYS64738 1440 GOTO1420 1450 REM *** DATEI SPEICHERN *** 1460 CLOSE15:OPEN15,8,15:PRINT#15,"S0:MSD":CLOSE15:CLOSE2:OPEN2,8,2,"MSD,S,W" 1470 Z=0 1480 Z=Z+1:IFZ=145THENCLOSE2:GOTO1530 1490 IFNA$(Z)=""THENCLOSE2:GOTO1530 1500 PRINT#2,NA$(Z);NU$(Z) 1510 GOTO1480 1520 REM *** MENU SPEICHERN *** 1530 CLOSE15:OPEN15,8,15:PRINT#15,"S0:MENU":CLOSE15:PRINT"[147][145]";:PRINT"RUN1600" 1540 PRINT"POKE43,PEEK(61)+1:POKE44,PEEK(62)" 1550 PRINT"SAVE"CHR$(34)"MENU"CHR$(34)",8" 1560 PRINT"POKE43,1:POKE44,8" 1570 PRINT"GOTO1260" 1580 POKE631,19:POKE632,13:POKE633,13:POKE634,13:POKE635,13:POKE636,13 1590 POKE637,13:POKE198,7:END 1600 STOP 1610 POKE53280,14:POKE53281,6 1620 PRINT"[147] ICH LADE DIE DATEI":Z=0:DIMNA$(144),NU$(144) 1630 CLOSE2:OPEN2,8,2,"MSD,S,R" 1640 Z=Z+1 1650 INPUT#2,NAA$ 1660 IFRIGHT$(NAA$,1)="8"THENNA$(Z)=LEFT$(NAA$,LEN(NAA$)-1):NU$(Z)=",8" 1670 IFRIGHT$(NAA$,2)="81"THENNA$(Z)=LEFT$(NAA$,LEN(NAA$)-2):NU$(Z)=",8,1 1680 [139]ST[178]64[167][160]2:[137]1700 1690 [137]1640 1700 [153]"LOAD";:Z[178]0 1710 [153]" +MENU-MAKERWAITSGN" 1720 [153]" BY SIMON & EDY" 1730 [153][163]5)"CURSOR UP NAECHSTES ELEMENT" 1740 [153][163]5)"CURSOR DOWN VORHERIGES ELEMENT" 1750 [153][163]5)"RETURN WAEHLEN" 1760 [153]" (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$" 1770 [153]" (null) (null)" 1780 [153]" MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)" 1790 [151]214,15:[151]211,5:[158]58640:[153]NA$(1):Z[178]1 1800 [161]T$:[139]T$[178]""[167]1800 1810 [139]T$[178]"ON"[167]Z[178]Z[170]1:X[178]1:[141]1890:[137]1800 1820 [139]T$[178]""[167]Z[178]Z[171]1:X[178]2:[141]1890:[137]1800 1830 [139]T$[178][199](13)[167][137]1850 1840 [137]1800 1850 [153]"LOAD";:[153]"LOAD"[199](34)NA$(Z)[199](34)NU$(Z) 1860 [153]"POKE646,14:RUN" 1870 [151]631,19:[151]632,13:[151]633,13:[151]198,3:[162] 1880 [143] *** UNTERPROG *** 1890 [139]Z[178]0[167]Z[178]1:[142] 1900 [139]NA$(Z)[178]""[175]X[178]2[167]Z[178]Z[170]1:[142] 1910 [139]Z[178]145[167]Z[178]144:[142] 1920 [139]NA$(Z)[178]""[175]X[178]1[167]Z[178]Z[171]1:[142] 1930 [151]214,15:[151]211,5:[158]58640:[153]" " 1940 [151]214,15:[151]211,5:[158]58640:[153]NA$(Z):[142]