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
48
|
10 REM PC-BASIC test
20 REM calculated jumps
30 open "output.txt" for output as 1
40 on error goto 1000
50 print#1, 50
60 a = 0: gosub 500
61 a = 1: gosub 500
62 a = 2: gosub 500
69 a = -1: gosub 500
70 a = 255: gosub 500
71 a = 256: gosub 500
72 a = 32767: gosub 500
73 a = 65535: gosub 500
160 a = 0: gosub 600
161 a = 1: gosub 600
162 a = 2: gosub 600
169 a = -1: gosub 600
170 a = 255: gosub 600
171 a = 256: gosub 600
172 a = 32767: gosub 600
173 a = 65535: gosub 600
260 a = 0: gosub 700
261 a = 1: gosub 700
269 a = -1: gosub 700
270 a = 255: gosub 700
271 a = 256: gosub 700
272 a = 32767: gosub 700
273 a = 65535: gosub 700
360 a = 0: gosub 800
361 a = 1: gosub 800
369 a = -1: gosub 800
370 a = 255: gosub 800
371 a = 256: gosub 800
372 a = 32767: gosub 800
373 a = 65535: gosub 800
490 end
500 on a goto
510 print#1, 510: return
600 on a gosub
610 print#1, 610: return
700 on a then
710 print#1, 710: return
800 on a else
810 print#1, 810: return
1000 print#1, err, erl, a
1010 resume next
|
