100 SCREEN 1
200 CLS
300 PRINT
400 INPUT " ENTER S TO SQUARE OR C TO CUBE ", DO$
450 PRINT
500 IF DO$ = "S" THEN GOSUB 1000
600 IF DO$ = "C" THEN GOSUB 2000
700 IF DO$ = "Q" THEN SYSTEM
800 BEEP
900 GOTO 300
1000 INPUT " ENTER NUMBER TO SQUARE ", X
1100 N = X * X
1200 PRINT
1300 PRINT X; "SQUARED ="; N
1400 PRINT "__________________"
1500 RETURN
2000 INPUT " ENTER NUMBER TO CUBE ", Y
2100 Z = Y * Y * Y
2200 PRINT
2300 PRINT Y; "CUBED ="; Z
2400 PRINT "__________________"
2500 RETURN