10 SCREEN,0:CLS:A=64448!:H$="123456789ABCDEF"
15 IF(PEEK(A)=205)AND(PEEK(A+1)=77)AND(PEEK(A+2)=23)AND(PEEK(A+3)=214)AND(PEEK(A+313)=201)THEN50
20 LOCATE0,7:PRINTCHR$(27)"p Wait "CHR$(27)"q";:FORI=0TO315:READB$
30 POKEA+I,16*INSTR(H$,LEFT$(B$,1))+INSTR(H$,RIGHT$(B$,1))
40 NEXT:CLS
50 LOCATE0,7:PRINT"Enter Source Bank (1, 2, 3):";
55 EXECA
60 LOCATE0,7:PRINTCHR$(27)"KTransfer more (Y/N)?";:I$=INPUT$(1):PRINTI$;:IFI$="Y"ORI$="y"THEN10ELSEMENU
70 DATA CD,4D,17,D6,31,CA,D6,FB,C6,07,FE,08,CA,D6,FB,FE,09,C2,F6,FC
80 DATA 3E,0C,32,FA,FC,21,91,F8,CD,C4,FC,FE,FF,CA,F6,FC,B7,F2,18,FC
90 DATA 32,FB,FC,E6,1F,C2,18,FC,3E,0B,E7,E5,23,E5,CD,D3,FC,EB,E1,23
100 DATA 23,D5,0E,08,11,78,FB,CD,C4,FC,E7,12,23,13,0D,C2,03,FC,D1,E1
110 DATA CD,4D,17,FE,0D,CA,1F,FC,11,0B,00,19,C3,DC,FB,D5,CD,9B,22,D1
120 DATA C2,F6,FC,21,E5,FA,CD,D3,FC,44,4D,21,65,F8,D5,11,0B,00,19,D1
130 DATA CD,C4,FC,FE,FF,CA,4F,FC,FE,F0,CA,32,FC,E5,23,B7,FC,E5,FC,E1
140 DATA C3,32,FC,79,93,4F,78,9A,47,3A,FB,FC,FE,A0,CA,74,FC,FE,C0,CA
150 DATA 85,FC,2A,71,F8,C5,CD,90,FC,C1,2A,E1,FA,09,22,E1,FA,C3,3A,23
160 DATA 2A,E3,FA,E5,2A,E5,FA,CD,90,FC,E1,22,E3,FA,C3,3A,23,2A,E1,FA
170 DATA E5,CD,90,FC,E1,C3,3A,23,E5,C5,21,86,F8,01,0B,00,09,7E,FE,FF
180 DATA CA,F2,FC,87,DA,98,FC,C1,E3,D5,CD,0A,6C,D1,DA,F3,FC,E5,EB,CD
190 DATA C4,FC,12,23,13,0B,78,B1,C2,AF,FC,D1,1B,E1,3A,FB,FC,C3,35,24
200 DATA C5,D5,3A,FA,FC,47,F3,CD,EC,7E,FB,7A,D1,C1,C9,CD,C4,FC,F5,23
210 DATA CD,C4,FC,67,F1,6F,C9,7C,90,C0,7D,91,C9,CD,D3,FC,DF,C8,D8,CD
220 DATA DF,FC,D0,44,4D,C9,E1,E1,E1,E1,3E,07,E7,C9,00,00
230 REM XFER 2.0 10/31/91 by Gary Weber
240 REM Original XFER 870621 by William Naoki Kumai