September Morn Update

2019-09-12 10:33:56 -07:00 · 2019-09-12 10:33:56 -07:00 · aac6731f2c
commit aac6731f2c
parent 4e2d22a71d
6856 changed files with 141342 additions and 21127 deletions
--- a/Task/Loops-Do-while/BASIC/loops-do-while-3.basic
+++ b/Task/Loops-Do-while/BASIC/loops-do-while-3.basic
@ -1,4 +1,5 @@
-10 LET X=0
-20 LET X=X+1
-30 PRINT X
-40 IF X/6<>INT (X/6) THEN GOTO 20
+100 LET I=0
+110 DO
+120   LET I=I+1
+130   PRINT I
+140 LOOP UNTIL MOD(I,6)=0