Email is:
(none)
SUBJECT: PROGRAMMING
DATE: 12-19-02 3:46pm
Written by:
yochatwitme@yahoo.com
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