2 *** THIS PROGRAM IS COPYRIGHT MARK BALL *** *** (C) 1988 *** 6519"T " DISKCOPY"#o " "% "SOURCE DRIVE NUMBER (0-4)";SD SD0 { SD}4 s : 30 &FE40,SD* "DESTINATION DRIVE NUMBER (0-4)";DDh SD~DD s @0,5;"**WARNING** THE TWO DISKS WILL HAVE TO BE REMOVED A LOT";:: A~1 r 100:::I~ DD0 { DD}4 s : 30, G &A000,&CF,&BF,&C9: &A000b A~0 r 39} B~0 r 9U &FB50,SD,A,B: SD~DD s :@0,5;"ENTER SOURCE DISK AND PRESS ENTER ":I$~$ &A000,&CF,&A2,&C94@0,1;"READING TRACK";A;"SECTOR";B: @0,2;" ";  &A000S &FB50,DD,A,B: DD~SD s :@0,5;"ENTER DESTINATION DISK AND PRESS ENTER":I~ &A010,&CF,&A3,&C94:@0,2;"WRITING TRACK";A;"SECTOR";B: @0,1;" "; U &A010 p B,A= 705:: "DO YOU MEAN TO END THE PROG (Y/N)";:I$~$ I$}"Y" s = &9FF5,&21,0,0,&11,9,&FF,&E,&FF,&CF,&85,&CF,&01: &9FF5A>A>&11,9,&FF,&E,&FF,&CF,