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
|
10 REM PC-BASIC test
20 REM LINE syntax
30 OPEN "OUTPUT.TXT" FOR OUTPUT AS 1
40 ON ERROR GOTO 1000
50 SCREEN 1
60 LINE
70 LINE STEP
80 LINE STEP (0,0)
90 LINE (0,0)
100 LINE (0,)
110 LINE (0,0)-(10,10)
120 LINE STEP (0,0)-(10,10)
130 LINE (0,0)- STEP (10,10)
140 LINE STEP (0,0)- STEP (10,10)
150 LINE (0,0)- (10,10),1
160 LINE (0,0)- (10,10),-1
170 LINE (0,0)- (10,10),256
180 LINE (0,0)- (10,10),32768
190 LINE (0,0)- (10,10),1,
200 LINE (0,0)- (10,10),1,B
205 LINE (0,0)- (10,10),,B
210 LINE (0,0)- (10,10),1,BF
220 LINE (0,0)- (10,10),1,B F
230 LINE (0,0)- (10,10),1,F
235 LINE (0,0)- (10,10),1,PRINT
240 LINE (0,0)- (10,10),1,,-32768
250 LINE (0,0)- (10,10),1,,32768
260 LINE (0,0)- (10,10),1,,65536
270 LINE (0,0)- (10,10),,,0
280 LINE (0,0)- (10,10),,,"!"
290 LINE (0,0)- (10,10),"!"
300 LINE (0,0)- (10,10),1,"!"
999 END
1000 PRINT#1, ERR, ERL
1010 RESUME NEXT
|
