dowhile.bas

来自「这是一个简易的basic语言解释器, 可供我们学习和改进.」· BAS 代码 · 共 14 行

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"