path: root/ext/ply/example/BASIC/sqrt1.bas

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