Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
24
Task/Loops-While/IWBASIC/loops-while.basic
Normal file
24
Task/Loops-While/IWBASIC/loops-while.basic
Normal file
|
|
@ -0,0 +1,24 @@
|
|||
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
|
||||
Loading…
Add table
Add a link
Reference in a new issue