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 (24 lines) | stat: -rw-r--r-- 435 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
 
10 REM PC-BASIC test 
20 REM DIM syntax
30 OPEN "ERRORS.TXT" FOR OUTPUT AS 1
40 ON ERROR GOTO 1000
50 DIM
60 DIM A
70 DIM A[
80 DIM A[1
90 DIM A[1]
100 DIM A[1],
110 DIM B[1], C(1)
120 DIM C(1]
130 DIM D[1)
140 DIM E(1), E(1)
150 DIM F(1), F(2)
160 DIM A$
170 DIM A$(10)
180 DIM Z#(10), Z$(10), Z%(10), Z!(10)
190 DIM K(A$)
200 DIM BIG%(32768)
210 DIM BIG2%(256)
220 END
1000 PRINT#1, ERR, ERL
1010 RESUME NEXT