mirror
/
RosettaCodeData
mirror of https://github.com/acmeism/RosettaCodeData.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
RosettaCodeData/Task/Loops-While/MSX-Basic/loops-while.basic

6 lines
86 B
Plaintext
Raw Permalink Blame History

10 I% = 1024
20 IF I% = 0 THEN END
30 PRINT I%
40 I% = I%/2 : rem INT(I/2)
50 GOTO 20
Reference in New Issue View Git Blame Copy Permalink