RESPONSE MESSAGE: Your site

Site hosted by Angelfire.com: Build your free website today!

Email is: (none)
SUBJECT: PROGRAMMING
DATE: 12-19-02 3:46pm
Written by:

TABLE TOP PROGRAM

CLS
GOSUB ItemList
COLOR 3,0: PRINT Oper$:PRINT
PRINT "Make sure NUM LOCK is on"
PRINT "Use numpad keys 4 & 6 to move cursor (backward/forward)"
Mvx = 2
Mvy = 9
PRINT STRING$(40, "-")
PRINT "Table of X"
PRINT STRING$(40, "-")
FOR T = 1 TO 10: PRINT T;: NEXT 
LOCATE Mvy, Mvx: PRINT CHR$(45)

GetRsp:
k$ = INKEY$: IF k$ = "" THEN GOTO GetRsp
OldMvx = Mvx
Value = (INT(Mvx / 3)) + 1: IF Value < 1 THEN Value = 1
IF k$ = "4" THEN Mvx = Mvx - 3: GOSUB ClearLine: IF Mvx <2 THEN Mvx = 2
IF k$ = "6" THEN Mvx = Mvx + 3: GOSUB ClearLine: IF Mvx >= (10 * 3) - 1 THEN Mvx = 29
LOCATE Mvy, Mvx: PRINT CHR$"-"
IF k$ = CHR$(27) THEN CLS: END
IF k$ = CHR$(32) THEN Value(Once + 1) = Value : GOTO OutputNum
GOTO GetRsp

OutputNum:
PRINT: PRINT "Value:"; Value(Once + 1)
Once = Once + 1: IF Once > 1 THEN GOTO Finish
GOTO GetRsp

Finish:
IF Tx = 1 THEN
   Result = Value(1) * Value(2)
   ELSE
   IF Tx = 2 THEN
      Result = Value(1) + Value(2)
      ELSE
      IF Tx = 3 THEN
         Result = Value(1) - Value(2)
         ELSE
         IF Tx = 4 THEN
            Result = Value(1) / Value(2)
            ELSE
            IF Tx = 5 THEN
               Result = Value(1) ^ Value(2)
            END IF
         END IF
      END IF
   END IF
END IF

PRINT Value(1); Op$; Value(2); "="; Result; ""
END

ClearLine:
LOCATE Mvy, Mvx: PRINT CHR$(32);
RETURN

ItemList:
PRINT "(1) MULTIPLY"
PRINT "(2) ADD"
PRINT "(3) SUBTRACT"
PRINT "(4) DIVIDE"
PRINT "(5) EXPONENT"
PRINT

WaitSel:
T$ = INKEY$: IF T$ = "" THEN GOTO WaitSel
SELECT CASE T$
  CASE "1"
    Oper$ = "Multiply": Op$ = "*"
  CASE "2"
    Oper$ = "Add": Op$ ="+"
  CASE "3"
    Oper$ = "Subtract": Op$="-"
  CASE "4"
    Oper$ = "Divide": Op$= "/"
  CASE "5"
    Oper$ = "Exponent": Op$ = "^"
  CASE IS < "1" IS > "9"
    GOTO WaitSel
END SELECT
Tx = VAL(T$)
CLS
RETURN

Return to QBASIC MESSAGE BOARD