monk/ply/example/BASIC/sqrt1.bas

6 lines
78 B
QBasic

10 LET X = 0
20 LET X = X + 1
30 PRINT X, SQR(X)
40 IF X < 100 THEN 20
50 END