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 (17 lines) | stat: -rw-r--r-- 336 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
10 REM PC-BASIC test 
20 REM TIMER syntax
30 OPEN "OUTPUT.TXT" FOR OUTPUT AS 1
40 ON ERROR GOTO 1000
42 ON TIMER("") GOSUB 500
44 ON TIMER GOSUB 500
50 ON TIMER(10) GOSUB 500
60 TIMER ON
70 TIMER STOP
80 TIMER OFF
90 TIMER PRINT
100 TIMER YADA
110 TIMER(1) ON
120 END
500 RETURN
1000 PRINT#1, ERR, ERL
1010 RESUME NEXT