File: TEST.BAS

package info (click to toggle)
pcbasic 2.0.5-1
  • links: PTS
  • area: main
  • in suites: bookworm
  • size: 33,352 kB
  • sloc: python: 27,753; sh: 64; makefile: 13
file content (18 lines) | stat: -rw-r--r-- 341 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
10 REM PC-BASIC test 
20 REM WAIT syntax
30 OPEN "OUTPUT.TXT" FOR OUTPUT AS 1
40 ON ERROR GOTO 1000
45 WAIT
50 WAIT 0
60 WAIT 0,
70 WAIT 0, 256
75 WAIT 0, 32768
80 WAIT 0, 255,
90 WAIT 0, 255, 255
100 WAIT 0, 255, 255,
110 WAIT "1"
120 WAIT "1", 255
130 WAIT &H60, 255, "1",
999 END
1000 PRINT#1, ERR, ERL
1010 RESUME NEXT