File: fornext.bas

package info (click to toggle)
bwbasic 2.20pl2-13
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, bullseye
  • size: 1,764 kB
  • sloc: ansic: 21,002; makefile: 80
file content (13 lines) | stat: -rw-r--r-- 343 bytes parent folder | download | duplicates (12) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
10 REM FORNEXT.BAS -- Test FOR-NEXT Statements 
20 REM 
30 PRINT "FORNEXT.BAS: Test FOR-NEXT Statements" 
40 PRINT "A FOR-NEXT Loop with STEP statement:" 
50 FOR i=1 to 30 step 2 
60 PRINT "FOR: i is ";i 
70 NEXT i 
80 REM 
90 PRINT "A FOR-NEXT Loop without STEP statement:" 
100 FOR i = 2 to 7 
110 PRINT "FOR: i is ";i 
120 NEXT i 
130 END