COPYSYS BASpA A 5antwor"" antwor(C)  C  COPYSYS.BAS (replaces SYSGEN.COM and BOOTGEN.COM)"     ,  ,+ B gB gB "dummy" B ( a-z2 Adress < byt+F  Adress,("&"byt)PZ Adress  d byt+n  Adress,("&"byt)x 21,1C,A0,CD,D4,BC,22,1D,A0,79,32,1F,A0,21,20,A0,5E,23,56,23,4E,21,30,A0,DF,1D,A0,C0,84,01,00,02,11,68,42,21,30,A0,ED,B0,C9antwor"Y" antwor"Y" ; ,"This program copies the first two tracks."; ,"========================================="> , "Source disk in Drive (A/B) ? "(); "" "A" "B" (C)) "A" quell "A") "B" quell "B" > , "Destination disk in Drive (A/B) ? "(); "" "A" "B"" (C)', "A" zie "A"'6 "B" zie "B" @ J  , quellT  ,^ ,h ,!r trac | sekto 6 ,  sekto( trac),, ! , trac# " , sekto@  6 zhB trac( sekto) zs( z)+ ,("&"(z,,))+ ,("&"(z,,))     quell zie ,"Please insert destination disk in "" "() ," Press any key... "; C""  , zie  , ,! ,& trac 0 sekto  4: ,  sekto( trac),6D zhB trac( sekto)N zs( z)+X ,("&"(z,,))+b ,("&"(z,,))l v ! , trac# " , sekto@     , ()# "Another copy (Y/N) ? "; antwor"" antwor"" antwor(C)  CATE 15,5:PRINT"Dieses Programm kopiert die ersten beiden Trac