1 REM ++++++++++++++++++++++++++++++++
2 REM ! Program ....   UNSAVE
3 REM ! Utg}va  1.0    80-08-09
4 REM ! av (c) Magnus Lundberg
5 REM ! {ndrat av Modulservice  S.]
7 REM ! Minne 16 Kbytes f|r flexskiva
8 REM ! Ins{nt av S.]
9 REM ++++++++++++++++++++++++++++++++
10 REM 
11 REM Screened by  C R LERIN.
12 REM 
13 REM Med unsave tar man bort ett
14 REM eller flera program fr}n skivan
15 REM genom att v{lja p} en meny
16 REM 
17 REM 
110 DIM P$(99%)=16%,P1$(1%)=12%
111 ; "Extension  "; : INPUT E$
112 P%=0% : L%=0% : OPEN 'PR:' ASFILE L%
113 E2%=12% : REM L{ngd per pgm
114 FOR I%=0% TO 99% : P$(I%)="" : NEXT I%
115 FOR D%=0% TO 1%
116 T%=0% : S%=6% : GOSUB 135
117 IF Z% FOR I%=0% TO 7% : V%(I%)=15% : NEXT I% : GOTO 119
118 A%=62959% : FOR I%=0% TO 7% : V%(I%)=PEEK(A%+I%) : NEXT I%
119 T%=2% : FOR S%=0% TO 7% : IF V%(S%)>1% GOSUB 135 ELSE 130
120 IF Z% AND 128% ; 'Luckan |ppen DR'CHR$(D%+48%,58%) : FOR T=0% TO 999% : NEXT T : S%=8% : GOTO 130
121 IF Z% AND 16% ; 'AM ERR sektor'S%' DR'CHR$(D%+48%) : GOTO 130
122 IF Z% AND 8% ; 'CMC ERR sektor'S%' DR'CHR$(D%+48%) : GOTO 130
123 IF Z% AND 4% ; 'DATA LOST sektor'S%' DR'CHR$(D%+48%) : GOTO 130
124 IF Z% ; Z% : GOTO 130
125 A%=62720%+16%
126 FOR N%=0% TO 15% : GOSUB 136
127 IF INSTR(1%,N$,'LBL')<>0% P1$(D%)=LEFT$(N$,8%) : P1$(D%)=LEFT$(P1$(D%),INSTR(1%,P1$(D%)+' ',' ')-1%)
128 IF INSTR(8%,N$,E$) P$(P%)=LEFT$(N$,8%) : P%=P%+1%
129 NEXT N%
130 NEXT S%
131 NEXT D%
132 A%=INP(7)
133 GOSUB 138
134 ; CUR(20,0); : I$=P$(I%) : KILL I$+"."+E$ : GOTO 112
135 POKE 64769%,D% : Z%=CALL(24678%,SWAP%(T%)+S%*32%) : Z%=PEEK(64789%) : RETURN 
136 N$="" : FOR I%=4% TO 14% : N$=N$+CHR$(PEEK(A%+I%)) : NEXT I% : A%=A%+16% : RETURN 
137 ; #L%,CHR$(12%);
138 P$=P1$(0%)+P1$(1%) : IF LEN(P$)>8% P$=P1$(0%)+' & '+P1$(1%)
139 IF LEN(P$)<20% P$=P$+' ' : GOTO 139
140 ; #L%CHR$(13%)"Unsave("E$"): "P$
141 ; #L%STRING$(40%,61%)
142 FOR R%=0% TO 18% : FOR K%=0% TO P% STEP 19% : I%=R%+K%
143 I$=RIGHT$(NUM$(I%),2%)
144 IF LEN(I$)<2% I$=' '+I$
145 IF LEN(P$(I%))<E2% P$(I%)=P$(I%)+' ' : GOTO 145
146 IF P$(I%)=SPACE$(E2%) 148
147 ; #L%I$' 'P$(I%);
148 NEXT K% : ; #L% : NEXT R%
149 ; #L% : ; #L%SPACE$(28%)'Nr:';
150 INPUTLINE #L%A$ : A$=LEFT$(A$,LEN(A$)-2%) : ONERRORGOTO 140
151 I%=VAL(A$) : IF I%>P%-1% 140
152 IF I%<0% 140
153 RETURN