25 lines
457 B
Plaintext
25 lines
457 B
Plaintext
DEF X:INT
|
|
|
|
X=1024
|
|
|
|
OPENCONSOLE
|
|
|
|
WHILE X>0
|
|
|
|
PRINT X
|
|
X=X/2
|
|
|
|
ENDWHILE
|
|
'Output starts with 1024 and ends with 1.
|
|
|
|
'Putting the following in the loop will produce output starting with 512 and ending with 0:
|
|
'X=X/2
|
|
'PRINT X
|
|
|
|
'When compiled as a console only program, a press any key to continue message is automatic.
|
|
'I presume code is added by the compiler.
|
|
CLOSECONSOLE
|
|
|
|
'Since this is, in fact, an IWBASIC console program, which compiles and runs.
|
|
END
|