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
55
56
57
58
59
60
61
62
|
10 REM PC-BASIC test
20 REM POINT function
30 OPEN "OUTPUT.TXT" FOR OUTPUT AS 1
40 ON ERROR GOTO 10000
45 SCREEN 9
50 PRINT#1, POINT
60 PRINT#1, POINT(
70 PRINT#1, POINT("ABC"
80 PRINT#1, POINT(1
90 PRINT#1, POINT(1.5
100 PRINT#1, POINT(-1)
110 PRINT#1, POINT(1)
120 PRINT#1, POINT(-1.5)
130 PRINT#1, POINT(1.4)
140 PRINT#1, POINT(-1.5#)
150 PRINT#1, POINT(1.4#)
160 PRINT#1, POINT("ABC")
200 PRINT#1, POINT(0)
300 PRINT#1, POINT(1)
310 PRINT#1, POINT(#1)
320 PRINT#1, POINT (1)
330 PRINT#1, POINT(1, 2)
400 PRINT#1, POINT(1, #2)
420 PRINT#1, POINT(1, 2, 3)
430 PRINT#1, POINT(256)
440 PRINT#1, POINT(32768)
450 PRINT#1, POINT(65536)
500 PRINT#1, POINT(0, 0)
505 PRINT#1, POINT(1, 0)
510 PRINT#1, POINT(-1, 0)
520 PRINT#1, POINT(256, 0)
530 PRINT#1, POINT(65536, 0)
540 PRINT#1, POINT(1.701412E+38, 0)
550 PRINT#1, POINT(1.701411834604692D+38, 0)
600 PRINT#1, POINT(1, "ABC")
610 PRINT#1, POINT("ABC", 1)
620 PRINT#1, POINT(-1, "ABC")
630 PRINT#1, POINT("ABC", -1)
1500 PRINT#1, POINT(0, 1)
1505 PRINT#1, POINT(1, 1)
1510 PRINT#1, POINT(-1, 1)
1520 PRINT#1, POINT(256, 1)
1530 PRINT#1, POINT(65536, 1)
1540 PRINT#1, POINT(1.701412E+38, 1)
1550 PRINT#1, POINT(1.701411834604692D+38, 1)
4500 PRINT#1, POINT(0, -1)
4505 PRINT#1, POINT(1, -1)
4510 PRINT#1, POINT(-1, -1)
4520 PRINT#1, POINT(256, -1)
4530 PRINT#1, POINT(65536, -1)
4540 PRINT#1, POINT(1.701412E+38, -1)
4550 PRINT#1, POINT(1.701411834604692D+38, -1)
6500 PRINT#1, POINT(0, 32768)
6505 PRINT#1, POINT(1, 32768)
6510 PRINT#1, POINT(-1, 32768)
6520 PRINT#1, POINT(256, 32768)
6530 PRINT#1, POINT(65536, 32768)
6540 PRINT#1, POINT(1.701412E+38, 32768)
6550 PRINT#1, POINT(1.701411834604692D+38, 32768)
9999 END
10000 PRINT#1, ERR, ERL
10010 RESUME NEXT
|
