0 'SWITCH.200 BY CARMEN PAONE [72677,42]
1 'MODIFIED BY HARVEY CHRISLEY 18APR92
2 FORI=63574TO63620:READX:POKEI,X:NEXTI:E$=CHR$(27)
3 CLS:PRINTE$;"p    F8 - Swap   ê  Shift F8 - Exit      ";E$;"q":FILES:PRINT:INPUT"NAME #1:";A$:INPUT"NAME #2:";B$:ONERRORGOTO6
4 CLOSE:OPENA$FORAPPENDAS1:VP=VARPTR(#1):CLOSE:DI=PEEK(VP+2)+256*PEEK(VP+3):AD=PEEK(DI)+256*PEEK(DI+1):CLS:CALL63574,,AD:SCREEN,0:X=PEEK(64781):IFX=1ORX=33THENMENUELSET$=A$:A$=B$:B$=T$:GOTO4
5 DATA 229,213,197,245,235,42,80,246,229,33,0,0,34,210,239,57,34,80,246,213,62,1,33,114,248,195,39,115,225,225,34,80,246,205,226,131,175,50,50,239,61,50,10,239,195,4,22
6 BEEP:T$=A$:A$=B$:B$=T$:RESUME4