home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HyperLib 1997 Winter - Disc 1
/
HYPERLIB-1997-Winter-CD1.ISO.7z
/
HYPERLIB-1997-Winter-CD1.ISO
/
オンラインウェア
/
PRG
/
bwbasic-2.10.sit
/
bwbasic-2.10
/
bwbtest
/
dowhile.bas
< prev
next >
Wrap
BASIC Source File
|
1993-11-09
|
237b
|
14 lines
10 REM DOWHILE.BAS -- Test DO WHILE-LOOP
20 PRINT "START"
30 LET X = 0
40 DO WHILE X < 25
50 PRINT "x is ";X
60 LET X = X + 1
70 LET Y = 0
80 DO WHILE Y < 2
90 PRINT "y is "; Y
100 LET Y = Y + 1
110 LOOP
120 LOOP
130 PRINT "END"