'
  PROGRAM TO TRANSFER A TEXT FILE K  FROM DRIVE 1 TO DRIVE 2 USING o  DOS 3.3 FILE MANAGER ROUTINES ( ---BY BOB POTTS, LOUISVILLE, KENTUCKY--- c ------------------- d 8192: $2000-95FF IS MY BUFFER n D$(4) x D$"NOMON I,O,C" 	 D$"BLOAD TEXT.TRANSFER.OBJ" 5	 ------------------- [	 RF768:CALL ADDRESS TO READ FILE 	 WF771:CALL ADDRESS TO WRITE FILE 	 RC226:PEEK ADDRESS FOR FM RETURN CODE 	,---------------------- 	6::"TEXT FILE TRANSFER" 
@"------------------" 
J"ENTER FILE NAME:  ";F$ ;
READ FILE FROM DRIVE 1 O
D$"OPEN"F$",D1 _
D$"READ"F$ g
RF x
(RC)5500 
D$"CLOSE" 
"RETURN CODE NOT 'END OF DATA'" 
 
WRITE FILE TO DRIVE 2 
D$"CLOSE" 
D$"OPEN"F$",D2 D$"WRITE"F$ 	WF &(RC)0600 )0D$"CLOSE" F:"RETURN CODE WAS "(RC) LD ZXFINISHED ibD$"CLOSE" l"TRANSFER COMPLETE" v   
