RosettaCodeData/Task/Generic-swap/GW-BASIC/generic-swap.basic
2023-07-01 13:44:08 -04:00

6 lines
141 B
Text

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