5 REM  SAVE MENY
7 DIM N$(99%)=12%,T$(20%)=3%
10 ; CHR$(12); : ; "Egils snabbmeny, var god v{lj"
12 T9%=9% : FOR I%=1% TO T9% : READ T$(I%) : NEXT I%
14 DATA INF,REM,TXT,DAT,FR],SVR,FEL,MAS,ABS
20 C%=1% : REM C% ger filnr f|r ASC$(C%)
40 FOR D%=0% TO 1% : POKE -767%,D%
50 GOSUB 220 : IF S1%<>0% THEN 160
60 ; : ; : ; "Drive:"D%;
65 GOSUB 500
70 R%=1% : T%=2% : FOR S%=0% TO 7%
80 IF M%(S%)<2% THEN 150 ELSE GOSUB 200
90 IF S1%<>0% THEN 250 ELSE B%=-2816%
100 FOR N%=1% TO 16% : GOSUB 170
110 IF ASC(N$)=255% OR ASC(N$)=0% THEN 140
115 GOTO 600 : REM ...Ta bort textfiler
120 ; CHR$(64%+C%)" : "MID$(N$,5%,8)' ';
125 N$(C%)=MID$(N$,5%,8)+'.'+MID$(N$,13%,3)
130 C%=C%+1% : R%=R%+1% : IF R%<4% ; ""; ELSE R%=1% : ; ' ';
135 IF C%>60% GOSUB 700
140 NEXT N%
150 NEXT S%
160 NEXT D% : GOTO 300
170 N$="" : FOR I%=0% TO 15%
180 N$=N$+CHR$(PEEK(B%+I%)) : NEXT I%
190 B%=B%+16% : RETURN 
200 S1%=CALL(24678%,SWAP%(T%)+S%*32%)
210 S1%=PEEK(-747%) : RETURN 
220 T%=0% : S%=6% : GOSUB 200
230 B%=-2577% : FOR I%=0% TO 7%
240 M%(I%)=PEEK(B%+I%) : NEXT I% : RETURN 
250 ; "Diskfel Drive:"D%,S1% : STOP 
300 ; : ; ' Ditt val :   '; : GOTO 400
310 IF A%>C%+63% THEN 400 : A$=N$(A%-64%) : GOTO 320
320 ; A$; : POKE 65013%,0%
330 CHAIN A$
400 A%=INP(56%)-128% : IF A%>64% THEN 310 ELSE 400
500 X$="" : Z%=CALL(24678%,0%) : IF PEEK(-747%) THEN 570
510 FOR I%=-2568% TO -2561% : X$=X$+CHR$(PEEK(I%))
520 NEXT I% : IF (ASC(X$)>64% AND ASC(X$)<94%) X$='     Flexskiva:    : '+X$ ELSE X$=''
530 ; X$
540 RETURN 
570 ; "Diskfel" : END 
600 REM ...EJ TEXTFILER
605 REM ... FOR I%=1% TO T9% :   ; MID$(N$,13%,3%);T$(I%); :   NEXT I% :   GET A$
610 T$=MID$(N$,13%,3%) : FOR I%=1% TO T9% : IF T$=T$(I%) GOTO 140
620 NEXT I% : GOTO 120
700 REM ...N[R BOKSTAVERNA TAGIT SLUT
720 ; : ; 'Tryck <- om du v{ljer bland dessa,      -> om du skall ha de f|ljande.';
730 GET A$ : IF A$=CHR$(8%) GOTO 740 ELSE IF A$=CHR$(9%) GOTO 750 ELSE 730
740 N%=16% : S%=7% : D=1% : GOTO 760
750 ; CUR(1%,0%)SPACE$(1240%)CUR(2%,0%); : C%=1% : GOTO 760
760 RETURN