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
|
10 REM PC-BASIC test: expression errors
20 OPEN "output.txt" FOR OUTPUT AS 1
25 ON ERROR GOTO 1000
100 PRINT#1, SQRT(-1)
110 PRINT#1, SQRT(-1.)
120 PRINT#1, SQRT(-1#)
130 PRINT#1, (-1)^0.5
140 PRINT#1, (-1.)^0.5
150 PRINT#1, (-1#)^0.5
160 PRINT#1, 0^-1
170 PRINT#1, 0^-1.
180 PRINT#1, 0^-1#
190 PRINT#1, LOG(0)
195 PRINT#1, LOG(0#)
200 PRINT#1, 1/0
210 PRINT#1, 1/0/0
220 PRINT#1, 0/0
230 PRINT#1, 1#/0
240 PRINT#1, 1/0-1/0
250 PRINT#1, (-1)/0
260 PRINT#1, -1/0
270 PRINT#1, 1\0
280 PRINT#1, 1 MOD 0
290 PRINT#1, -1/0#
300 PRINT#1, 65536\1
900 CLOSE
910 END
1000 PRINT#1, "Error:", ERR, ERL
1010 RESUME NEXT
|
