PROGRAM 12


'  FILENAME:  PROG12.BAS
'  THIS PROGRAM IS A MENU DRIVEN PROGRAM AND GIVES THE USER THE OPTION TO
'  DO ONE OF FIVE THINGS:  DISPLAY TIME, DISPLAY DATE, DISPLAY SQUARE
'  ROOT OF A NUMBER, DISPLAY NUMBER RAISED TO A POWER, OR QUIT THE
'  PROGRAM.
CLS
        GOSUB IFTHENDATA
END
IFTHENDATA:
        DO
                PRINT
                PRINT "1.  DISPLAY THE CURRENT TIME"
                PRINT "2.  DISPLAY THE CURRENT DATE"
                PRINT "3.  DISPLAY THE SQUARE ROOT OF A NUMBER"
                PRINT "4.  DISPLAY A NUMBER RAISED TO A POWER"
                PRINT "5.  QUIT"
                PRINT
                INPUT "TYPE IN A NUMBER TO SELECT A OPTION ", NUMBER$
                PRINT
                DO
                        IF NUMBER$ < "1" THEN
                                INPUT "PLEASE, TYPE IN THE NUMBERS (1-5) TO SELECT A OPTION: ", NUMBER$
                                PRINT
                        END IF
                        IF NUMBER$ > "5" THEN
                                INPUT "PLEASE, TYPE IN THE NUMBERS (1-5) TO SELECT A OPTION: ", NUMBER$
                                PRINT
                        END IF
                LOOP UNTIL NUMBER$ >= "1" AND NUMBER$ <= "5"
                CLS
                IF NUMBER$ = "1" THEN PRINT "THE CURRENT TIME IS "; TIME$; "."
                IF NUMBER$ = "2" THEN PRINT "THE CURRENT DATE IS "; DATE$; "."
                IF NUMBER$ = "3" THEN INPUT "ENTER A NUMBER:  ", NUMBER1
                LET SQUAREROOT = SQR(NUMBER1)
                IF NUMBER$ = "3" THEN PRINT
                IF NUMBER$ = "3" THEN PRINT "THE SQUARE ROOT OF"; NUMBER1; "IS"; SQUAREROOT; ". "
                IF NUMBER$ = "4" THEN INPUT "ENTER A NUMBER: ", NUMBER2
                IF NUMBER$ = "4" THEN PRINT
                IF NUMBER$ = "4" THEN INPUT "ENTER THE POWER OF THE NUMBER: ", NUMBER3
                IF NUMBER$ = "4" THEN PRINT
                LET RAISED = NUMBER2 ^ NUMBER3
                IF NUMBER$ = "4" THEN PRINT "THE NUMBER"; NUMBER2; "RAISED TO THE"; NUMBER3; "POWER IS"; RAISED; "."
                IF NUMBER$ = "5" THEN CLS
        LOOP UNTIL NUMBER$ = "5"
RETURN

'  OUTFILE:  PROG12.OUT

1.  DISPLAY THE CURRENT TIME
2.  DISPLAY THE CURRENT DATE
3.  DISPLAY THE SQUARE ROOT OF A NUMBER
4.  DISPLAY A NUMBER RAISED TO A POWER
5.  QUIT

TYPE IN A NUMBER TO SELECT A OPTION 5




BACK TO CIS133 PAGE.