� *******************1� * MENU SYSTEM *K� *******************b� * HAKAN KANTAS *|� *******************”� * TEL : 3701263 *®� *******************æ †P$(20),L$(20),E$(20),S$(20),R$(20):Q$²Ç(34):C$²"," M$²"INSERT DISK AND PRESS A KEY":�560I S1$²"5 DIMP$(20),L$(20),J$(20),S$(20),R$(20),E$(20)"d (S2$²"10 X=1:F$="ªÇ(34)‘ 2S2$²S2$ª"“SELECT"Á <S3$²"20 FORN=1TO20:E$(N)="ªÇ(34)ª",8"ªÇ(34)æ FS3$²S3$ª":NEXT:OPEN2,8,2,"ªÇ(34), PS3$²S3$ª"0:.M,S,R"ªÇ(34)ª":M$="ªÇ(34)ª",8,1"ªÇ(34)ª":Q$=CHR$(34)"y ZS4$²"30 FORN=1TO20:INPUT#2,P$(N),L$(N),J$(N),S$(N),R$(N):IFJ$(N)="ªÇ(34)ž dS4$²S4$ª"1"ªÇ(34)ª"THENE$(N)=M$"× nS5$²"40 NEXT:CLOSE2:PRINTF$:FORN=1TO20:PRINTN;TAB(4) xS5$²S5$ª";P$(N):NEXT:INPUT"ªÇ(34)ª""ªÇ(34)ª";K"[ ‚S6$²"50 PRINT"ªÇ(34)ª"“LOAD"ªÇ(34)ª";Q$;P$(K);Q$;E$(K):IFS$(K)>"™ ŒS6$²S6$ªÇ(34)ª"0"ªÇ(34)ª"THENPRINT"ªÇ(34)ª"SYS"ªÇ(34)´ –S6$²S6$ª";S$(K):X=X+1"ö  S7$²"60 IFR$(K)="ªÇ(34)ª"Y"ªÇ(34)ª"THENPRINT"ªÇ(34)ª"RUN"6 ªS7$²S7$ªÇ(34)ª":X=X+1:IFS$(K)>"ªÇ(34)ª"0"ªÇ(34)ª"THENPRINT"V ´S7$²S7$ªÇ(34)ª"‘‘RUN"ªÇ(34)� ¾S8$²"70 FORZ=0TOX:B=631+Z:POKEB,13:POKE198,Z:NEXT:PRINT"ªÇ(34)ª""¯ ÈS8$²S8$ªÇ(34)Õ Ò™"“ MENU SYSTEM" Ü™"  F1 ’...CREATE MENU FILE"+ æ™"  F2 ’...LOAD MENU FILE"S ð™"  F3 ’...EDIT MENU FILE"{ ú™"  F4 ’...SAVE MENU FILE"¦ ™"  F5 ’...WRITE MENU DRIVER"à ¡K$:‹K$²Ç(133)§�560:‰390Ö ‹K$²Ç(137)§330é "‹K$²Ç(134)§390ü ,‹K$²Ç(138)§3606‹K$²Ç(135)§600@‰2703J�570:Ÿ2,8,2,"0:.M,S,R"bT�N²1¤20:„2,P$(N),L$(N),E$(N),S$(N),R$(N):‚n^ 2:‰390Šh�570:Ÿ2,8,2,"@0:.M,S,W"¿r�N²1¤20:˜2,P$(N)C$L$(N)C$E$(N)C$S$(N)C$R$(N)C$:‚Ë| 2:‰210ù†™"“EDIT OPTION":�N²1¤9:™N;È(P$(N),16):‚0�™" 10 ";È(P$(10),16);"‘‘‘‘‘‘‘‘‘‘":�N²11¤20:™£19)N;iš™È(P$(N),16):‚:™" E’ TO EDIT OR RETURN’ FOR MENU"|¤¡K$:‹K$²""§420Ž®‹K$²Ç(13)§210Ÿ¸‹K$³±"E"§420Ý™" ‘"Ì…"WHICH DIGIT TO EDIT";N$:N²Å(N$):‹N³1°N±20§450DÖ…"ENTER PROGRAM NAME";P$(N):P$(N)²È(P$(N),35)tà…"ENTER BOOT NAME";L$(N):L$(N)²È(L$(N),16)¢ê…"ENTER 1’ FOR 8,1 OR 0’ FOR ,8";E$(N)Åô…"ENTER SYS# OR RETURN";S$(N)íþ‹S$(N)²Ç(13)°S$(N)²""§S$(N)²"":‰530‹S$(N)²""§S$(N)²""8…"RUN COMMAND NEEDED";R$(N):R$(N)²È((R$(N)),1)_‹R$(N)³±"N"¯R$(N)³±"Y"§™"‘‘‘":‰530h&‰390¥0�N²1¤20:P$(N)²"":L$(N)²"":E$(N)²"":S$(N)²"":R$(N)²"":‚:ŽÀ:™"“";M$ÓD¡K$:‹K$²""§580ÙNŽêX™"“NEW"b™S1$:™S2$:™S3$:™S4$:™S5$:™S6$:™S7$:™S8$Il™"SAVE "ªÇ(34)ª"@0:MENU "ªÇ(34)ª",8:SYS64738"lv�Z²0¤10:—631ªZ,13:—198,Zª1:‚:€