BCX Console Demonstration Program s97.bas

 ' ----------------------------- 
 ' Demonstrates the SWAP command 
 ' ----------------------------- 
 
 DIM a$
 DIM b$
 
 DIM c!
 DIM d!
 
 a$ = "12345"
 b$ = "67890"
 
 SWAP a$, b$ : PRINT a$ : PRINT b$
 
 c! = 3.3
 d! = 4.4
 
 SWAP c!, d! : PRINT c! : PRINT d!