CALCULO.BAS

5  LET RESULT = 0
   LET B = 0
   LET E = 0
   LET R = 0
   CLS
   PRINT , "CALCULADORA"
   PRINT , "==========="
   PRINT
   PRINT
   PRINT
   PRINT "  RAIZ QUADRADA ou POTENCIA? (R ou P)"
   DO
   INPUT TC$
   LET TC$ = UCASE$(TC$)
   LOOP UNTIL TC$ = "R" OR TC$ = "P" OR TC$ = "THAU"
   IF TC$ = "R" THEN GOTO 20
   IF TC$ = "P" THEN GOTO 10
   IF TC$ = "THAU" THEN END

10 CLS : PRINT "  Entre com a base:"
   INPUT B
   PRINT : PRINT "  Entre com o expoente:"
   INPUT E
   IF E = 0 THEN 15
   IF E = 1 THEN 17
   IF E < 0 THEN 19
   FOR POTEN = 1 TO E - 1: LET RESULT = B * B + RESULT
   NEXT POTEN
   PRINT : PRINT B; " ELEVADO A "; E; "  IGUAL A "; RESULT
   PRINT : SHELL "PAUSE": GOTO 5
15 PRINT : PRINT "  TODO NUMERO NATURAL ELEVADO A 0  IGUAL A 1": GOTO 10
17 PRINT : PRINT "  TODO NUMERO NATURAL ELEVADO A 1  IGUAL A ELE MESMO": GOTO 10
19 PRINT : PRINT "  NŽO PODE SER UM NUMERO NEGATIVO": GOTO 10

20 CLS : PRINT "  Entre com o radicando:"
   INPUT R
   IF R < 0 THEN GOSUB 54
   LET RESULT = SQR(R)
   PRINT "A RAIZ QUADRADA DE"; R; "  "; RESULT
   PRINT : SHELL "PAUSE": CLS : GOTO 5
54 PRINT " NŽO PODE SER UM NUMERO NEGATIVO."
   SHELL "PAUSE": CLS : GOTO 20