RosettaCodeData/Task/100-doors/Minimal-BASIC/100-doors.basic
2024-04-19 16:56:29 -07:00

7 lines
133 B
Text

10 PRINT "FOLLOWING DOORS ARE OPEN:"
20 LET I = 0
30 REM LOOP
40 LET I = I + 1
50 PRINT I * I; " ";
60 IF I * I < 100 THEN 30
70 END