,d%:" ESCUE 4 WAYS EVIN UINNen"1. SEQ TO MEMORY 2. MEMORY TO SEQFILEx"3. MEM/SEQ/HEX 4. READ SEQFILE"5. HEX FROM SEQFILE 6. WRITE SEQFILE"7. QUIT" SELECT";S:S7100$ S 200,300,410,530,590,700,160*l" SEQ TO MEMORY *** WRITE TO BANK 1"1:"FILENAME";F$: ASSUMES BANK1 SAFE PLACE)"START ADDRESS IN MEMORY";SO1,8,6,F$",S,R": BASIC V2 STYLEo#1,A$:A$(13):T0:250xA$;S,(A$):SS1:TT1:ST01:230" RESCUE ** BANK 1 MEMORY TO SEQFILE IN ASCII ***`""x,1:"FILENAME";F$6"START AND END ADDRESSES";S,E@ #1,(F$),W: BASIC V7 STYLEJ((S));T1,((S));^SS1:TT1:SE 370h330 r1,(13):1:T"BYTES":[ |"  RESCUE ** MEMORY TO SEQFILE IN HEX ***** " 0:"FILENAME";F$: BANK 0 ASSUMED!"START AND END ADDRESSES";S,E(! #1,(F$),W;!(((S)),2);V!1,(((S)),2);(32);p!SS1:TT1:SE 480y!440!1,(13):1:T"BYTES":!!"" READ SEQ FILE ***********U""h""FILENAME";F$" #8,(F$): #=FILE NUMBER 8 ARBITRARY CHOICE HERE"&#8,A$:ST08:"0A$;":550 #D"(#N PRINT HEX BYTES FROM SEQ?#X"FILENAME";F$:T0u#b #8,(F$): #=FILE NUMBER 8 ARBITRARY CHOICE HERE#l OPEN4,4,7:REM SEND TO PRINTER/WITH LINE620#v#8,A$:ST08:4:#A$(A$,2):A(A$):TT1$ PRINT#4,A$;:IFT=11 THEN T=0:PRINT#4:GOTO610C$((A),2) ;(32);:T17 T0::630$TT1:630: 15/8 19/10 23/12: ADD 2 FOR EACH ADDTL BYTE$"FILENAME";NN$$8,8,8,NN$",S,W$"\\=FINISHED$842,34:208,1:A$:A$"\\"8:$8,A$$715