start tok64 d64-4BOg2m 10 REM disk link finder 20 REM (c) 1991 mr.p. of softwolves 30 REM public domain for sys pd 40 POKE53280,.:POKE53281,. 50 PRINT"{clear}{yellow}disk link finder {gray}(c) 1991 mr.p. 60 PRINT"{cm y*16} 65 PRINT"{down}{cyan}{down}for sys pd 70 PRINT"{down}{green}please enter the first block to find 80 PRINT"links for: 100 INPUT"{156}track ";track 110 GOSUB1000:ONerrGOTO100 120 INPUT"{156}sector";sect 130 GOSUB2000:ONerrGOTO120 200 OPEN1,8,2,"#":OPEN2,8,15 210 PRINT"{156}{down}trk sec{space*10}trk sec 220 PRINT"{cm y*3} {cm y*3}{space*10}{cm y*3} {cm y*3} 300 PRINT"{green}reading{.*3} 305 GOSUB1000:z=err:GOSUB2000:ONz+errGOTO400,400 310 PRINT#2,"u1 2 0"track;sect:PRINT#2,"b-p 2 0 320 GET#1,ltrack$,lsect$ 330 PRINT"{up}{space*10}":ntr=ASC(ltrack$+CHR$(.)):nsc=ASC(lsect$+CHR$(.)) 340 PRINT"{up}"MID$(STR$(track+1000),3)","MID$(STR$(sect+1000),3);:begin=0 350 IFntr=.THENPRINT" ends the chain with"nsc"bytes":GOTO400 360 PRINT" links to "MID$(STR$(ntr+1000),3)","MID$(STR$(nsc+1000),3) 370 track=ntr:sect=nsc:GOTO300 400 CLOSE1:CLOSE2 410 END 1000 err=0:IFtrack<1ORtrack>35THENPRINT"{yellow}illegal track number!":err=1 1010 RETURN 2000 err=0:IFsect<0ORsect>20THENerr=1 2010 IFtrack>17ANDsect>18THENerr=1 2020 IFtrack>24ANDsect>17THENerr=1 2030 IFtrack>30ANDsect>16THENerr=1 2040 IFerr=1THENPRINT"{156}illegal sector number! 2050 RETURN stop tok64 (bastext 1.0)