File: TEST.BAS

package info (click to toggle)
pcbasic 2.0.7-8
  • links: PTS
  • area: main
  • in suites: forky, sid
  • size: 35,416 kB
  • sloc: python: 28,411; sh: 103; makefile: 10
file content (26 lines) | stat: -rw-r--r-- 527 bytes parent folder | download | duplicates (4) 
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
 
10 REM PC-BASIC test 
20 REM COM syntax
30 OPEN "OUTPUT.TXT" FOR OUTPUT AS 1
40 ON ERROR GOTO 1000
42 ON COM("") GOSUB 500
44 ON COM GOSUB 500
45 ON COM(-1) GOSUB 500
46 ON COM(3) GOSUB 500
47 ON COM(0) GOSUB 500
48 ON COM(256) GOSUB 500
49 ON COM(32768) GOSUB 500
50 ON COM(1) GOSUB 500
60 COM(1) ON
70 COM(1) STOP
80 COM(1) OFF
90 COM(1) PRINT
100 COM(1) YADA
110 COM ON
120 COM(0) ON
130 COM(-1) ON
140 COM(3) ON
150 COM(256) ON
160 COM(32768) ON
500 RETURN
1000 PRINT#1, ERR, ERL
1010 RESUME NEXT