100 REM Programme test2.bas
110 REM bwbasic test2.bas
120 LET B=1
130 WHILE B
140   INPUT "Borne:";B
150   FOR I=1 TO B
160     PRINT "I=";I;"I^2=";I^2;"I^1/2=";SQR(I)
170   NEXT I
180 WEND
190 PRINT "Fin du programme test2.bas"
200 END