10 REM SAVE meny 81-04-10
14 REM +--------------------------+
15 REM !                          !
20 REM ! (c) Magnus Lundberg      !
30 REM !     Nyfors               !
40 REM !     190 40  ROSERSBERG   !
50 REM !     tfn 0760-380 25      !
55 REM !                          !
56 REM +--------------------------+
60 L%=0% : OPEN 'PR:' ASFILE L%
70 E2%=10% : P9%=55% : E$='BAC'
90 DIM P$(P9%)=16%,D$(P9%)=2%,P1$(1%)=12%
91 FOR I%=1% TO P% : P$(I%)='' : NEXT I%
92 P%=1% : P$(0%)='Menyprogr'
100 FOR D%=0% TO 1%
110 T%=0% : S%=6% : GOSUB 330
120 IF Z% FOR I%=0% TO 7% : V%(I%)=15% : NEXT I% : GOTO 140
130 A%=62959% : FOR I%=0% TO 7% : V%(I%)=PEEK(A%+I%) : NEXT I%
140 T%=2% : FOR S%=0% TO 7% : IF V%(S%)>1% GOSUB 330 ELSE 250
150 IF Z% AND 128% ; 'Luckan |ppen DR'CHR$(D%+48%,58%) : FOR T=0% TO 999% : NEXT T : S%=8% : GOTO 250
160 IF Z% AND 16% ; 'AM ERR sektor'S%' DR'CHR$(D%+48%) : GOTO 250
170 IF Z% AND 8% ; 'CMC ERR sektor'S%' DR'CHR$(D%+48%) : GOTO 250
180 IF Z% AND 4% ; 'DATA LOST sektor'S%' DR'CHR$(D%+48%) : GOTO 250
190 IF Z% ; Z% : GOTO 250
200 A%=62720%+16%
210 FOR N%=0% TO 15% : GOSUB 370
220 IF INSTR(1%,N$,'LBL')<>0% P1$(D%)=LEFT$(N$,8%) : P1$(D%)=LEFT$(P1$(D%),INSTR(1%,P1$(D%)+' ',' ')-1%)
225 IF INSTR(1%,N$,'MENY') 240
227 IF P%>P9% 270
230 IF INSTR(8%,N$,E$) P$(P%)=LEFT$(N$,8%) : D$(P%)=CHR$(D%+48%,58%) : P%=P%+1%
240 NEXT N%
250 NEXT S%
260 NEXT D%
270 A%=INP(7%)
280 GOSUB 410
290 ; CUR(21%,0%); : IF I%=0% 91 ELSE CHAIN 'DR'+D$(I%)+P$(I%)+'.'+E$
300 REM 
310 REM 
320 REM 
330 POKE 64769%,D% : Z%=CALL(24678%,SWAP%(T%)+S%*32%) : Z%=PEEK(64789%) : RETURN 
340 REM 
350 REM 
360 REM 
370 N$='' : FOR I%=4% TO 14% : N$=N$+CHR$(PEEK(A%+I%)) : NEXT I% : A%=A%+16% : RETURN 
380 REM 
390 REM 
400 REM 
410 P$=P1$(0%)+P1$(1%) : IF LEN(P$)>8% P$=P1$(0%)+' & '+P1$(1%)
420 IF LEN(P$)<20% P$=P$+' ' : GOTO 420
430 ; #L%CHR$(12%)"Programlista("E$"): "P$
440 ; #L%STRING$(40%,61%)
450 FOR R%=0% TO 18% : FOR K%=0% TO P% STEP 19% : I%=R%+K%
455 IF I%>P9% 510
460 I$=RIGHT$(NUM$(I%),2%)
470 IF LEN(I$)<2% I$=' '+I$
480 IF LEN(P$(I%))<E2% P$(I%)=P$(I%)+' ' : GOTO 480
490 IF P$(I%)=SPACE$(E2%) 510
500 ; #L%I$' 'P$(I%);
510 NEXT K% : ; #L% : NEXT R% : ; CUR(23%,28%)'Nr:';
520 GOSUB 600
530 ; CUR(23%,31%); : INPUTLINE #L%A$ : A$=LEFT$(A$,LEN(A$)-2%) : ONERRORGOTO 430
540 I%=VAL(A$) : IF I%>P%-1% 430
550 IF I%<0% 430
560 RETURN 
570 REM 
580 REM 
590 REM 
600 D%=0% : IF (PEEK(65008%) AND 4%)=0% 600
610 FOR I%=0% TO 2% : Z%(I%)=255% XOR PEEK(65008%+I%) : NEXT I%
620 Z$=ADD$(MUL$(NUM$(256%*Z%(2%)+Z%(1%)),'512',0%),NUM$(Z%(0%)*2%),0%)
630 IF COMP%(Z$,'8640000')>-1% D%=D%+1% : Z$=SUB$(Z$,'8640000',0%) : GOTO 630
640 Z=INT(VAL(Z$)/100%) : H%=Z/3600% : Z=Z-3600*H% : M%=Z/60% : S%=Z-60%*M%
650 H$=RIGHT$(NUM$(100%+H%),3%)
660 M$=RIGHT$(NUM$(100%+M%),3%)
670 S$=RIGHT$(NUM$(100%+S%),3%)
680 ; CUR(2%,27%)'Time 'H$':'M$':'S$;
690 POKE 32751%,160%
700 IF PEEK(65013%)<128% 600 ELSE RETURN