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 (26 lines) | stat: -rw-r--r-- 550 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
4 TRON
5 OPEN "output" FOR OUTPUT AS 1
7 ON ERROR GOTO 1000
10 FOR I = 1 TO 2
20 FOR J = 1 TO 2
25 PRINT#1, I,J
30 NEXT J,I
110 FOR I% = 1 TO 20 STEP 3
120 FOR J% = 1 TO 20 STEP 7
125 PRINT#1, I%, J%
130 NEXT: NEXT
200 FOR I% = 10 TO 20 STEP 32767
210 PRINT#1, I%
220 NEXT
230 FOR I% = 10 TO 20 STEP 32768
240 PRINT#1, I%
250 NEXT
260 FOR I% = 10 TO 20
270 PRINT#1, I%
280 NEXT K
300 FOR I = 10 TO 20 STEP 1.5
310 PRINT#1, I
320 NEXT I
330 NEXT K
999 CLOSE: END
1000 PRINT#1, "error:", ERR, ERL: PRINT ERR, ERL: RESUME NEXT