12 lines
191 B
Text
12 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
|