13 lines
191 B
Text
13 lines
191 B
Text
|
PROGRAM "dowhile"
|
||
|
|
|
||
|
|
DECLARE FUNCTION Entry()
|
||
|
|
|
||
|
|
FUNCTION Entry()
|
||
|
|
val% = 0
|
||
|
|
DO
|
||
|
|
INC val%
|
||
|
|
PRINT val%
|
||
|
|
LOOP WHILE val% MOD 6 <> 0 ' or LOOP UNTIL val% MOD 6 = 0
|
||
|
|
END FUNCTION
|
||
|
|
END PROGRAM
|