1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
10 REM PC-BASIC test
20 REM SWAP syntax
30 OPEN "OUTPUT.TXT" FOR OUTPUT AS 1
40 ON ERROR GOTO 1000
50 SWAP
60 SWAP A
65 PRINT#1, A, B, C
70 SWAP A,
75 PRINT#1, A, B, C
80 SWAP A, B
85 PRINT#1, A, B, C
90 SWAP A, B,
95 PRINT#1, A, B, C
100 SWAP A, B, C
105 PRINT#1, A, B, C
110 A=1: B=2: C=3
112 SWAP A, "1"
115 PRINT#1, A, B, C
120 SWAP A, 1
125 PRINT#1, A, B, C
130 SWAP A, B$
135 PRINT#1, A, B, C
140 SWAP A, B$,
145 PRINT#1, A, B, C
150 SWAP
155 PRINT#1, A, B, C
160 SWAP A
165 PRINT#1, A, B, C
170 SWAP A,
175 PRINT#1, A, B, C
180 SWAP A, B
185 PRINT#1, A, B, C
190 SWAP A, B,
195 PRINT#1, A, B, C
200 SWAP A, B, C
205 PRINT#1, A, B, C
210 SWAP A, "1"
215 PRINT#1, A, B, C
220 SWAP A, 1
225 PRINT#1, A, B, C
230 SWAP A, B$
235 PRINT#1, A, B, C
240 SWAP A, B$,
245 PRINT#1, A, B, C
999 END
1000 PRINT#1, "ERROR:", ERR, ERL
1010 RESUME NEXT
|
