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

7 lines
141 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
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