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 (12 lines) | stat: -rw-r--r-- 505 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
 
4 TRON
5 OPEN "output" FOR OUTPUT AS 1
7 ON ERROR GOTO 1000
110 FOR A!=1 TO 10 STEP 2: PRINT#1, A!: NEXT A!
210 FOR A!=20 TO 10 STEP -1: PRINT#1, A!: NEXT A!
310 FOR A!=1.4 TO 10.5 STEP 1.5: PRINT#1, A!: NEXT A!
410 FOR I!=I! TO I!+10 STEP I!+1: PRINT#1, I!: NEXT I!
510 FOR A!=1 TO 20 STEP 2: PRINT#1, A!: A! = A!*2: NEXT A!
610 FOR A=20 TO 10: PRINT#1, A: NEXT A
710 A=30: FOR A=1 TO 10 STEP 2: PRINT#1, A: NEXT A
999 CLOSE: END
1000 PRINT#1, "error:", ERR, ERL: PRINT ERR, ERL: RESUME NEXT