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 (16 lines) | stat: -rw-r--r-- 297 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
5 open "output.txt" for output as 1
10 on error goto 100
20 go to 30
30 go  to 40
40 GO TO 50
50 GO  TO 60
60 GO SUB 1000
70 GO  SUB 1000
80 go sub 1000
90 go  sub 1000
95 print #1, "end"
99 END
100 print#1, "error", err, erl
110 resume next
1000 print#1, "subroutine"
1010 return