home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / utl / switch.200 < prev    next >
Text File  |  2006-10-19  |  660b  |  8 lines

  1. 0 'SWITCH.200 BY CARMEN PAONE [72677,42]
  2. 1 'MODIFIED BY HARVEY CHRISLEY 18APR92
  3. 2 FORI=63574TO63620:READX:POKEI,X:NEXTI:E$=CHR$(27)
  4. 3 CLS:PRINTE$;"p    F8 - Swap   Ω  Shift F8 - Exit      ";E$;"q":FILES:PRINT:INPUT"NAME #1:";A$:INPUT"NAME #2:";B$:ONERRORGOTO6
  5. 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
  6. 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
  7. 6 BEEP:T$=A$:A$=B$:B$=T$:RESUME4
  8.