[Coco] Copying over an IO ERROR

Allen Huffman alsplace at pobox.com
Tue Feb 3 16:22:40 EST 2015


Looks like it's a semicolon, not a comma, for input.

And it appears it is ON ERR instead of ERROR.

> 10 CLEAR 1000:DIM SD,DD,T,S,S1$,S2$
> 20 INPUT "SRC DRIVE";SD
> 30 INPUT "DST DRIVE";DD
> 40 T=0:S=1
> 50 ON ERR GOTO 130
> 60 PRINT "TRACK:";T;"SECTOR:";S
> 70 DSKI$ SD,T,S,S1$,S2$
> 80 DSKO$ DD,T,S,S1$,S2$
> 90 S=S+1:IF S>18 THEN S=1:T=T+1
> 100 IF T<35 THEN 50
> 110 PRINT "DONE"
> 120 END
> 130 PRINT"ERROR!":GOTO 90


More information about the Coco mailing list