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
|
10 REM PC-BASIC test
20 REM PSET and PRESET syntax
22 OPEN "ERRORS.TXT" FOR OUTPUT AS 1
27 ON ERROR GOTO 1000
30 PSET (1,0)
40 PSET
50 PSET 12
60 SCREEN 1
70 PSET (1,0)
80 PSET
90 PSET 12
100 PSET (1000,1000)
110 PSET (32768, 10)
120 PSET (65536,1)
130 PRESET (1,0)
140 PRESET
150 PRESET 12
160 PSET "HI"
170 PSET (1,0),1
180 PRESET (12,10),10
190 PSET (-10,-10)
200 PSET (10,10),256
210 PSET (10,10),-1
220 PSET (10,10),32768
230 PSET (10,10),65536
290 PRESET (-10,-10)
300 PRESET (10,10),256
310 PRESET (10,10),-1
320 PRESET (10,10),32768
330 PRESET (10,10),65536
999 END
1000 PRINT#1, ERR, ERL
1010 RESUME NEXT
|
