10 CALL &BC02:MODE 1:FOR a=&A000 TO &A015:READ a$:POKE a,VAL("&"+a$):NEXT
20 PRINT"Speedformat 1988 by Oliver Mayer" 30 PRINT"Drive A/B" 40 d$=INKEY$:IF d$<>"a"AND d$<>"b"THEN 40:ELSE d=ASC(d$)-65 50 PRINT"DATA oder SYSTEM" 60 a$=INKEY$:IF a$="d"THEN s=&C0 ELSE IF a$="s"THEN s=&40 ELSE 60 70 y=&A020:x=y:RESTORE 140:FOR a=1 TO 9:READ b:POKE y,0:POKE y+1,0:POKE y+2,b+s:POKE y+3,2:y=y+4:NEXT 80 LOCATE 1,7:PRINT"Diskette einlegen ":CALL &BB06 90 FOR t=0 TO 39:LOCATE 1,7:PRINT"Formatiere Track"t 100 FOR a=x TO &A042 STEP 4:POKE a,t:NEXT:CALL &A000,d,t,s,x:NEXT 110 LOCATE 1,7:PRINT"Noch eine Diskette ?" 120 a$=INKEY$:IF a$="j" THEN 80 ELSE IF a$="N" THEN END ELSE 120 130 DATA dd,5e,6,dd,56,4,dd,4e,2,dd,66,1,dd,6e,0,df,13,a0,c9,52,c6,7 140 DATA 1,6,2,7,3,8,4,9,5 |