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 (9 lines) | stat: -rw-r--r-- 185 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
 
5 open "output.txt" for output as 1
10 def fna(x) = x + fna(x)
15 on error goto 100
20 print#1, fna(2)
30 print#1, "end"
40 end
100 print#1, "error", err, erl
110 resume next