start tok64 d64-evv84q 10 POKE53281,12:POKE53280,12 20 DIMsc(18) 100 PRINT"{clear}{blue}{space*10}{cm a}{sh asterisk*17}{cm s}" 101 PRINT"{space*10}{sh -}{red} dir error fixer {blue}{sh -}{black}{cm s}" 102 PRINT"{blue}{space*10}{sh -}{space*17}{sh -}{black}{sh -}" 103 PRINT"{blue}{space*10}{sh -}{yellow} by: rocky moore {blue}{sh -}{black}{sh -}" 110 PRINT"{space*10}{blue}{cm z}{sh asterisk*17}{cm x}{black}{sh -}" 111 PRINT"{space*11}{cm z}{sh asterisk*17}{cm x}" 120 PRINT"{down*8}{brown}{space*2}insert disk to fix and press {yellow}[{white}return{yellow}]" 121 PRINT"{down*2}{space*5}{sh space}{space*8}{yellow}<{white}*{yellow}> {cyan}to quit." 130 POKE198,0:WAIT198,1:GETa$:IFa$="*"THENPRINT"{clear}";:NEW 131 IFa$<>CHR$(13)THEN130 135 bl$="{up}{space*39}{up}":FORi=0TO5:PRINTbl$:NEXT 140 t8%=19:s%(0)=255:s%(1)=255:s%(2)=7 145 PRINTbl$:PRINT"{blue}reading disk{yellow}!" 150 OPEN1,8,15,"u9":PRINT#1,"i0":OPEN2,8,2,"#":GOSUB2000:s=0 155 PRINT#1,"u1:2 0 18";s:GOSUB2000 160 GET#2,a$,b$:a=ASC(a$+CHR$(0)):b=ASC(b$+CHR$(0)) 165 IFa=18ANDb>0ANDb<19THENGOSUB1000:s=b:GOTO155 170 GOSUB1000:s=18:GOSUB1000 175 PRINT#1,"u1:2 0 18 0":PRINT#1,"b-p:2 72":GOSUB2000 180 PRINT#2,CHR$(t8%);:FORi=0TO2:PRINT#2,CHR$(s%(i));:NEXT 185 PRINT#1,"u2:2 0 18 0":GOSUB2000 190 PRINTbl$:PRINT"{blue}finished{yellow}{.*4}":CLOSE2:CLOSE1:FORi=0TO20000:NEXT:RUN 999 REM -- block allocate track# 18 -- 1000 d=s/8:s%(d)=s%(d)AND(255-(2^(sAND7))) 1001 t8%=t8%-1:PRINTbl$:PRINT"{blue}allocating sector:{yellow}";s:RETURN 2000 INPUT#1,e$,ee$,t$,s$:IFVAL(e$)<20THENRETURN 2005 PRINTbl$:PRINT"{yellow}disk error:{blue} "e$","ee$","t$","s$ 2010 CLOSE2:CLOSE1:FORi=0TO100000:NEXT:RUN stop tok64 (bastext 1.0)