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