view ply-3.8/example/BASIC/sqrt1.bas @ 8624:6922961990ce

<oerjan> mkx bin/culprits//hoag "$@" | awk \'{print substr($1,2,length($1)-2)}\' | sed "s/.$/\\x0F&/" | xargs
author HackBot
date Mon, 27 Jun 2016 23:52:47 +0000
parents 343ff337a19b
children
line wrap: on
line source

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