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-- 480 bytes parent folder | download | duplicates (8) 
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 CALL and CALLS syntax
30 ON ERROR GOTO 10000
1050 CALL
1060 CALL 0
1070 CALL ""
1080 CALL A$
1100 CALL A(0)
1110 CALL A(0,0)
1120 CALL A(C())
1150 CALL A(C%, 0, "")
1160 CALL A("")
1250 CALLS
1260 CALLS 0
1270 CALLS ""
1280 CALLS A$
1300 CALLS A(0)
1310 CALLS A(0,0)
1320 CALLS A(C())
1350 CALLS A(C%, 0, "")
1360 CALLS A("")
1999 END
10000 OPEN "OUTPUT.TXT" FOR APPEND AS 1
10010 PRINT#1, ERR, ERL
10020 CLOSE: RESUME NEXT