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
|
10 REM PC-BASIC test
20 REM SCREEN syntax
22 OPEN "OUTPUT.TXT" FOR OUTPUT AS 1
25 ON ERROR GOTO 10000
30 SCREEN
40 SCREEN 0
50 SCREEN 0,
60 SCREEN ,0
70 SCREEN 0,0
80 SCREEN 0,0,
90 SCREEN ,0,0
100 SCREEN 0,0,0
110 SCREEN 0,,0
120 SCREEN 0,0,0,0
130 SCREEN 0,,,
140 SCREEN 0,,,0
150 SCREEN 0,,0,0
152 SCREEN 0,0,0,0,0
155 SCREEN 0,0,0,0,0,
157 SCREEN 0,0,0,0,0,0
158 SCREEN 0,0,0,0,0,0,
160 SCREEN -1
170 SCREEN 255
180 SCREEN 256
190 SCREEN 32768
260 SCREEN 0,-1
270 SCREEN 0,255
280 SCREEN 0,256
290 SCREEN 0,32768
360 SCREEN 0,0,-1
370 SCREEN 0,0,255
380 SCREEN 0,0,256
390 SCREEN 0,0,32768
460 SCREEN 0,0,0,-1
470 SCREEN 0,0,0,255
480 SCREEN 0,0,0,256
490 SCREEN 0,0,0,32768
560 SCREEN 0,0,0,0,-1
570 SCREEN 0,0,0,0,255
580 SCREEN 0,0,0,0,256
590 SCREEN 0,0,0,0,32768
10000 PRINT#1, ERR, ERL
10010 RESUME NEXT
|
