start tok64 d64-vEtJKq
0 REM{reverse on}                                  
1 REM{reverse on} re-scratch  (c)stefan freyer     
2 REM{reverse on} publicerat i tidningen 64'er nr  
3 REM{reverse on} 12/1991 p] sidan 54. progammet   
4 REM{reverse on} [r {pound}versatt till svenska av mr.p.
5 REM{reverse on} of softwolves f{pound}r sys pd 1991    
6 REM{reverse on} {pound}vers[ttning (c)peter karlsson   
7 REM{reverse on}                 alias mr.p. 1991 
8 REM{reverse on}                                  
9 REM"{141}{up}{-*40}
10 DIMn(300):c$=CHR$(34):POKE53280,.:POKE53281,.:POKE808,225
20 FORi=.TO4:READg$(i):NEXT:di=18
30 j=.:PRINT"{clear}{yellow}rescratch{white} av stefan freyer":PRINT
40 PRINT"{reverse on}typ{space*2}namn{space*13}{reverse off}":k=1:l=di:OPEN15,8,15,"i0
50 PRINT:OPEN8,8,2,"#2":f=.
60 PRINT#15,"u1:2 0"l;k:GOSUB470
70 FORi=.TO1:GET#8,a$:GOSUB440:i(i)=ASC(a$):NEXT:a=2
80 GET#8,a$:GOSUB440:a=ASC(a$)AND7
90 e$="":FORi=.TO1:GET#8,a$:GOSUB440:h(i)=ASC(a$):NEXT
100 FORi=3TO18:GET#8,a$:e$=e$+a$:NEXT
110 IFe$=""THEN130
120 PRINTg$(a)" "c$e$TAB(11)c$:IFa=.THEN290
130 f=f+1:IFf<8THENa=f*32+2:GOSUB460:GOTO80
140 IFi(.)=.THEN160
150 l=i(.):k=i(1):f=.:GOTO60
160 CLOSE8:IFjTHENPRINT"{red}jag validaterar!":OPEN1,8,15,"v0":CLOSE1
170 GOSUB470:CLOSE15:POKE808,237:END
180 PRINT#15,"u1:2 0"h(.)h(1):RETURN
190 d=2:PRINT"{down}{light gray}sp]r, sektor: ";
200 GOSUB180:FORi=.TO1:GET#8,a$:GOSUB440:n(i)=ASC(a$):POKE808,225
210 PRINTn(i)"{left} ";:NEXT:PRINT:PRINT"{up}{light gray}sp]r, sektor: ";
220 IFn(.)=.THENPRINT:RETURN
230 PRINT#15,"b-f 0"n(.)n(1):h(.)=n(.):h(1)=n(1):n(d)=n(.)
240 n(d+1)=n(1):d=d+2
250 IFds=.THEN200
260 PRINT:PRINT"{reverse on}{red}filen [r {pound}verskriven{reverse off}!":m=NOT(m):a=f*32+2
270 FORi=2TOd-4:STEP2:PRINT#15,"b-f 0"n(i)n(i+1):NEXT
280 h(.)=l:h(1)=k:GOSUB180:GOTO460:h(1)=z%(1):z%(d)=z%(.)
290 PRINT"{green}]terskapa? (j/n){white}
300 GETa$:IFa$=""THEN300
310 IFa$<>"j"THEN130
320 m=.:PRINT"{down}{light green}dessa block allokeras:":n(.)=h(.):GOSUB190:IFmTHEN130
330 PRINT"{down}{156}{reverse on}p{reverse off}rogram-, {reverse on}s{reverse off}ekventiell, {reverse on}u{reverse off}ser- eller{space*6}{reverse on}r{reverse off}elativ fil ?{down}
340 GETf$:IFf$<>"p"ANDf$<>"s"ANDf$<>"u"ANDf$<>"r"THEN340
350 PRINT:IFf$="p"THENg=130:GOTO390
360 IFf$="u"THENg=131:GOTO390
370 IFf$="r"THENg=132:GOTO390
380 g=129
390 PRINT"{light green}{up}filen ]terskapas!
400 h(.)=l:h(1)=k:GOSUB180:h(1)=n(1):n(d)=n(.)
410 a=f*32+2:GOSUB460:PRINT#8,CHR$(g)
420 b=((d-2)/2)+1:PRINT"{down}{green}programl[ngden [r {yellow}{reverse on}"b"{reverse off}{green}";
430 PRINT#15,"u2:2 0"l;k:j=1:PRINT"block!{down}{white}":GOTO130
440 IFa$=""THENa$=CHR$(.)
450 RETURN
460 PRINT#15,"b-p:2"a
470 INPUT#15,e1,d$,e3,e2:IFe1=.THENRETURN
480 PRINTe1,d$,e3,e2:POKE808,237:END
490 DATAdel,seq,prg,usr,rel
stop tok64
(bastext 1.0)