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!