0 'SWITCH.200 BY CARMEN PAONE [72677,42]
0 'MODIFIED BY H.CHRISLEY [72446,3465]   18APR92
0 '------------------------------------
0 'Asks for two filenames and enters TEXT with the first file. F8 switches to
0 'the second file. Shift-F8 returns to the main menu from either file. An
0 'error will beep and return to the menu.
0 '
0 'C$ contains the ML code that handles entering and exiting from TEXT.
0 'Don't touch it. Changing C$ will cause switch.ba to crash. Switch.ba is
0 'T200 specfic. Will not run on a model 100/102 but I'll be happy to give
0 'the source to anyone who wants to convert it.
0 '
0 'Since the ML code runs in a basic string and not in the ALT LCD buffer,
0 'switch.ba will work with Cleuseau if you toggle Cleuseau off with CTRL<J>
0 'before switching to the other file. Cleuseau can then be toggled on again
0 'after you're in the file. You can switch back and forth as many times as
0 'you want but always remember to toggle Cleuseau off before trying to switch
0 'files. If you forget it'll hang up but hitting reset should return you to
0 'the main menu without losing anything.
0 '
0 'These comments will self-delete when you convert this DO file to a BA file.
0 '------------------------------------
0
1 C$="åÕÅõë*Pöå!"+CHR$(0)+CHR$(0)+CHR$(34)+"Òï9"+CHR$(34)+"PöÕ>"+CHR$(1)+"*PðÃ'sáá"+CHR$(34)+"PöÍ⃯22ï=2"+CHR$(10)+"ïÃ"+CHR$(4)+CHR$(22):VP=VARPTR(C$):ML=PEEK(VP+1)+256*PEEK(VP+2):R=ML+28:A=INT(R/256):B=R-(A*256):D=61520
2 E$=CHR$(27):CLS:PRINTE$;"p    F8 - Swap   ê  Shift F8 - Exit      ";E$;"q":FILES:PRINT:INPUT"NAME #1:";A$:INPUT"NAME #2:";B$:ONERRORGOTO4
3 CLOSE:OPENA$FORAPPENDAS1:VP=VARPTR(#1):CLOSE:DI=PEEK(VP+2)+256*PEEK(VP+3):AD=PEEK(DI)+256*PEEK(DI+1):POKED,B:POKED+1,A:CALLML,,AD:SCREEN,0:X=PEEK(64781):IFX=1ORX=33THENMENUELSET$=A$:A$=B$:B$=T$:GOTO3
4 BEEP:menu