7700 X=USR(1680):P=C0:STATS$="All Done ":GOSUB 10300›7710 FOR T=1 TO 5000:STATUS #C2,X:ON PEEK(747)>C0 GOTO 7720:NEXT T›7720 GOSUB 9250:GOSUB 9250:GOTO ICOM›