10 CLS:INPUT A,B,H:FOR X=A TO B STEP H' Оператор CLS важен!
20 IF CSRLIN=22 THEN PRINT X,X^2:FOR I=1 TO 1000:NEXT:LOCATE 0,1 ELSE PRINT X,X^2
30 NEXTX:FORI=(22-CSRLIN)*POS(0)TO(23-CSRLIN)*39:PRINTCHR$(32);:NEXT:A$=INPUT$(1)