RosettaCodeData/Task/Generic-swap/GW-BASIC/generic-swap.basic

7 lines
141 B
Plaintext

10 CLS : REM 10 HOME for Applesoft BASIC
20 A = 1 : B = 2
30 PRINT " A=";A," B=";B
40 T = A : A = B : B = T
50 PRINT " A=";A," B=";B
60 END