<= HEXAOTONTOCHBACHNCHFINFOUTDMBADDMYDISPDSMEL@AAA$BsDB( B`a Bg (> > FILE COPIERby Thomas J. Andrews##COPYRIGHT 1992 THOMAS ANDREWS(//Demonstration of memory display technique2ZDISABLE BREAK KEYd""8+Af,U:Af,%@i!!MAKE ROOM FOR CHARACTER SETn 6-F:A, 6-&@x*'@P:'@,*6-&@CA+C400/800 USERS WILL WANT POKE 106,NTOP-4..REORDER CHARACTER SET INTO ATASCII ORDER.6-F:AV, 6-$AV.6-$AV9%AVA9%AAV!!9%Ah%AhAVCREATE FILENAME BUFFERS;@ ,;@ ,((CHECK FOR DISPLAY BUFFER PLACEMENT 6- 6-C:,%@ ++6-P:+%A `,'A@,&P:'A@,<!<6-P:+%A `,'A@,$A@&%@3%% B'g*%A `%!Bc36-B'h&!;,DIMENSION DISPLAY BUFFER;A `,"GET FILE NAMES,. A(.DEV:FILENAME FOR SOURCE6N37@<@,4S)7@<@,4ED( CAN'T USE ITN A@0 A 0DEV:FILENAME FOR DESTINATIONJN37@<@,4S)7@<@,4ED( CAN'T USE ITN A T& 4(NO DUPLICATES!& A^OPEN FILEShJ +-@@J(&PREPARE SOURCE AND DESTINATION DISK(S)r&&(AND DRIVE(S), THEN PRESS START| F:B2y,@A+ 6. 67A `,. +67@,.T A-@@J@@T A %(ERROR #lMA% ASWITCH TO WORK DISPLAY+ +AY+AVF6-U:A`,#6-U:%@,48%@C:,FAY@4COPY FILE AC@C:,A `B@C:,A `+ 6. 67A `,. +67@,. A`lA6A$6-U:AV,$B@C:,GO BACK TO NORMAL DISPLAYAAY#8%@/AVAAY@4&CHECK ABOUT ANOTHER FILE0""COPY ANOTHER FILE? (Y/N):;;7@<@,4Y)7@<@,4yADNO?-FINISH UPN9A+68AfU:Af,&@9XERROR HANDLERb=AY!AV++=AY@4l(ERROR #l(v( PRESS START F:B2y,@A@ + A` D:TOMCOPY.TUR