CLS startagain: PRINT "Give me a number: "; INPUT x IF x >= 0 THEN PRINT SQR(x) ELSE PRINT "OK, it is: "; SQR(-x) END IF GOTO startagain