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
49
50
51
52
53
54
|
10 REM PC-BASIC test
20 REM CIRCLE/TEST.BAS
30 OPEN "OUTPUT.TXT" FOR OUTPUT AS 1
40 ON ERROR GOTO 10000
100 CIRCLE
110 CIRCLE (10,10)
120 CIRCLE ("a", 10), 5
130 CIRCLE (10, 10), 5
140 CIRCLE (32768, 10), 5
150 CIRCLE (10, 10), -1
160 CIRCLE (10, 10), 256
170 CIRCLE (10, 10), 32768
180 CIRCLE (10, 10), 5,
190 CIRCLE (10, 10),,1
200 CIRCLE (10, 10), 5, 1
210 CIRCLE (10, 10), 5, -1
220 CIRCLE (10, 10), 5, 256
230 CIRCLE (10, 10), 5, 32768
240 CIRCLE (10, 10), 5, 1,
250 CIRCLE (10, 10), 5, 1, 0.1
260 CIRCLE (10, 10), 5, , 0.1
270 CIRCLE (10, 10), 5, 1, 0.1, -0.1
280 CIRCLE (10, 10), 5,,, -0.1
290 CIRCLE (10, 10), 5, 1, 0.1, -0.1,
300 CIRCLE (10, 10), 5, 1, 0.1, -0.1, 1
310 CIRCLE (10, 10), 5, 1, 0.1, -0.1, 1,
320 CIRCLE (10, 10), 5, 1, 0.1, -0.1, 1, 1
1000 SCREEN 1
1100 CIRCLE
1110 CIRCLE (10,10)
1120 CIRCLE ("a", 10), 5
1130 CIRCLE (10, 10), 5
1140 CIRCLE (32768, 10), 5
1150 CIRCLE (10, 10), -1
1160 CIRCLE (10, 10), 256
1170 CIRCLE (10, 10), 32768
1180 CIRCLE (10, 10), 5,
1190 CIRCLE (10, 10),,1
1200 CIRCLE (10, 10), 5, 1
1210 CIRCLE (10, 10), 5, -1
1220 CIRCLE (10, 10), 5, 256
1230 CIRCLE (10, 10), 5, 32768
1240 CIRCLE (10, 10), 5, 1,
1250 CIRCLE (10, 10), 5, 1, 0.1
1260 CIRCLE (10, 10), 5, , 0.1
1270 CIRCLE (10, 10), 5, 1, 0.1, -0.1
1280 CIRCLE (10, 10), 5,,, -0.1
1290 CIRCLE (10, 10), 5, 1, 0.1, -0.1,
1300 CIRCLE (10, 10), 5, 1, 0.1, -0.1, 1
1310 CIRCLE (10, 10), 5, 1, 0.1, -0.1, 1,
1320 CIRCLE (10, 10), 5, 1, 0.1, -0.1, 1, 1
9999 END
10000 PRINT#1, ERR, ERL
10010 RESUME NEXT
|
