S d NNNN25ACNNN@@AV s sAg@A3( @ A6 @ @I%%BACKUP TAPE UTILITY FOR MACHINE##LANGUAGE PROGRAM OR TO BACKUP""ANY 600 BAUD TAPE WITH SHORTIRG'S FOR THAT MATTERAUTHOR ED STEWART90@5 } HOW MANY COPIES 9 j6-6-@'6-@36-@?6-AVK+%@jSET LOW MEMORY GRAPHICS MODEW?6-F:AB,$%F:AA,&F:AE,$%F:AD,&AK!B'gW6-A' ;,SET STRING LENGTH.67@,.67,..67@,."INITIALIZE STRING IN 30([ AC:,&+P:C:,',$,4AP:C:,',[POKE STRING ADDRESS FOR M.L. ROUTINE<<-A6Ae"!% <POKE IN M.L. ROUTINEF A SET TRAP FOR EOFJK#(@ INSERT INPUT TAPEK(@ P/@AUC"6-/OPEN INPUTZ$-A($SET INPUT LOOPd?)@6-%A(?FILL CASSETTE BUFFER FROM TAPEx@6-?:A6,@MOVE BUFFER TO STRING AND MARK BUFFER EMPTY* '(NOT ENOUGH RAM TO COPY TAPE*JF:A,"A6)+%@J(@ INSERT OUTPUT TAPE5+(@ 5 A(ERROR - F:A,* #B*SET UP FOR 2ND M.L PROGRAM-A6Af,"  ,POKE IN 2ND M.L. PROGRAMS AC:,&+P:C:,',$,4AP:C:,',SSET UP STRING FOR 2ND PROGRA/@AUC/OPEN OUTPUT TAPE0-A(0SETUP OUTTAPE LOOP COUNTERI6-?:A6,IEMPTY STRING TO CASSETTE BUFFER AND MARK BUFFER FULLJ6-@:7%A(,,*JPUT LAST BYTE IN BUFFER AND WRITE TO TAPE, @E+%@3(@ THAT'S ALL FOLKSESAY DONE OK NOWT6-%@=-@A !3AA6= A(#hh104,174,138,2,134,61,160,0,162,0,185,0,4,129,203,200,230,203,208,2,230,204,196,61,240,3,76,10,6,96'll104,169,128,133,61,160,0,162,0,161,203,153,0,4,200,230,203,208,2,230,204,196,61,240,3,76,9,6,198,61,96 D:CASCOPY