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 LOCATE syntax and allowed ranges
25 REM in addition to the tests in LOCATE/
30 OPEN "OUTPUT.TXT" FOR OUTPUT AS 1
40 ON ERROR GOTO 10000
50 LOCATE
60 LOCATE 1
62 LOCATE 1,
64 LOCATE 1,2
66 LOCATE 1,2,
68 LOCATE 1,2,1
70 LOCATE 1,2,1,
72 LOCATE 1,2,1,4
74 LOCATE 1,2,1,4,5
76 LOCATE 1,2,1,4,5,
78 LOCATE 1,2,1,4,5,6
80 LOCATE ,2
82 LOCATE ,2,
84 LOCATE ,2,1
86 LOCATE ,2,1,
88 LOCATE ,2,1,4
90 LOCATE ,2,1,4,5
92 LOCATE ,2,1,4,5,
94 LOCATE ,2,1,4,5,6
100 LOCATE ,
102 LOCATE ,,
104 LOCATE ,,1
106 LOCATE ,,1,
108 LOCATE ,,1,4
110 LOCATE ,,1,4,5
112 LOCATE ,,1,4,5,
114 LOCATE ,,1,4,5,6
980 LOCATE 32768, 1, 0
990 LOCATE 256, 1, 0
1000 LOCATE 32, 1, 0
1010 LOCATE 1, 32768, 0
1020 LOCATE 1, 256, 0
1030 LOCATE 1, 32, 0
1040 LOCATE 1, 1, 32768
1050 LOCATE 1, 1, 256
1060 LOCATE 1, 1, 32
1070 LOCATE 1, 1, 2
1080 LOCATE 1, 1, 1
1090 LOCATE 1, 1, 0
1095 LOCATE 1, 1, -1
9999 END
10000 PRINT#1, ERR, ERL
10010 RESUME NEXT
|
