File: TEST.BAS

package info (click to toggle)
pcbasic 2.0.7-9
  • links: PTS
  • area: main
  • in suites: sid
  • size: 35,416 kB
  • sloc: python: 28,411; sh: 103; makefile: 10
file content (26 lines) | stat: -rw-r--r-- 471 bytes parent folder | download | duplicates (5) 
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 STRIG syntax
30 OPEN "OUTPUT.TXT" FOR OUTPUT AS 1
40 ON ERROR GOTO 1000
50 STRIG
60 STRIG ON
70 STRIG OFF
80 STRIG STOP
90 STRIG(0) ON
100 STRIG(0) OFF
110 STRIG(0) STOP
120 STRIG(1) ON
130 STRIG(2) ON
140 STRIG(3) ON
150 STRIG(4) ON
160 STRIG(5) ON
170 STRIG(6) ON
180 STRIG(-1) ON
190 STRIG(256) ON
200 STRIG(32768) ON
210 STRIG("1") ON
220 STRIG 1 ON
230 STRIG "1"
999 END
1000 PRINT#1, ERR, ERL
1010 RESUME NEXT