23250 PRINT " Enter the type of calculation you want then press return. 0 for none";
23260 LI = 24
23270 GOSUB 600
23300 GOSUB 60000
23305 IF DT# = 0 THEN 31000
23310 CT(N) = DT#
23320 ON DT# GOSUB 24000,24100,24200,24300,24400,24500,24600,24700,24800,24900,25000,25100,25200,25300,25400,25500,25600,25700,25800,25900,24100,24100,24100,24100,24100,24100,24100,24100,24100,52000
23340 RETURN
24000 REM - ADD ROUTINE
24010 GOSUB 5000
24020 GOSUB 9000
24030 PRINT " DO YOU WANT TO ADD ANY MORE NUMBERS TO THIS TARGET FIELD "
24035 PRINT " 1 - YES 2 - NO "
24040 GOSUB 60000
24050 IF DT# = 2 THEN RETURN
24060 GOSUB 5500
24090 GOTO 24020
24100 REM - SUBTRACT
24110 GOSUB 5000
24120 RETURN
24200 REM MULTIPLY
24210 GOSUB 5000
24220 GOSUB 6000
24230 RETURN
24300 REM DIVIDE BY ANOTHER NUMBER
24310 GOSUB 5000
24320 GOSUB 6000
24325 CT(N) = 5
24330 RETURN
24400 REM DIVIDE INTO ANOTHER NUMBER
24410 GOSUB 5000
24420 GOSUB 6000
24425 CT(N) = 4
24430 RETURN
24500 REM MAXIMUM
24510 GOSUB 5000
24520 X(N) = -1E+07
24590 RETURN
24600 REM MIN
24610 GOSUB 5000
24620 X(N) = 999999999#
24690 RETURN
24700 REM ADD TO A CONSTANT
24710 GOSUB 5000
24720 GOSUB 7000
24790 RETURN
24800 REM MULTIPY BY A CONSTANT
24810 GOSUB 5000
24820 GOSUB 7000
24890 RETURN
24900 REM SUBTACT FROM A CONSTANT
24910 GOSUB 5000
24920 GOSUB 7000
24990 RETURN
25000 REM SUBTACT A CONSTANT FROM
25010 GOSUB 5000
25020 GOSUB 7000
25090 RETURN
25100 REM DIVIDE BY A CONSTANT
25110 GOSUB 5000
25120 GOSUB 7000
25190 RETURN
25200 REM DIVIDE INTO A CONSTANT
25210 GOSUB 5000
25220 GOSUB 7000
25300 REM CUSTOM 13
25390 RETURN
25400 REM CUSTOM 14
25490 RETURN
25500 REM CUSTOM 15
25590 RETURN
25600 REM CUSTOM 16
25690 RETURN
25700 REM CUSTOM 17
25790 RETURN
25800 REM CUSTOM 18
25890 RETURN
25900 REM CUSTOM 19
25990 RETURN
26000 REM ABS
26010 X = ABS(X)
26030 RETURN
26100 REM ATN
26110 X = ATN(X)
26130 RETURN
26200 REM COS
26210 X = COS(X)
26230 RETURN
26300 REM EXP
26310 X = EXP(X)
26330 RETURN
26400 REM LOG
26410 X = LOG(X)
26430 RETURN
26500 REM SIN
26510 X = SIN(X)
26530 RETURN
26600 REM SQR
26610 X = SQR(X)
26630 RETURN
26700 REM SQUARED
26710 X = X * X
26730 RETURN
26800 REM TAN
26810 X = TAN(X)
26830 RETURN
26900 REM
26910 X = X(T2) + XC
26930 RETURN
27000 REM PERFORM CALCULATIONS
27050 T2 = TF(T)
27060 XK = XCST(T)
27070 S = CF(T)
27075 XS = X(S)
27080 X = X(T)
27100 ON CT(T) GOSUB 28000,28100,28200,28300,28400,28500,28600,28700,28800,28900,29000,29100,29200,29300,29400,29500,29600,29700,29800,29900,26000,26100,26200,26300,26400,26500,26600,26700,26800,26900
27105 XC = X - X(T2)
27110 X(T2) = X
27120 T$ = STR$(X)
27130 T3 = LEN(T$)
27140 T1$ = "__________"
27150 B$ = MID$(T1$,T3)
27160 A$ = B$ + T$
27162 IF T3 > 11 THEN A$ = LEFT$(A$,11)
27165 A$ = RIGHT$(A$,11)
27167 DT# = X
27168 IF DS(T2) = 2 THEN GOSUB 49020
27170 L = LIN(T2)
27180 C = COL(T2)
27190 S = SCR(T2)
27200 IF L$(S,L) = "" THEN L$(S,L) = " "
27205 L$ = L$(S,L)
27210 B$ = MID$(L$,1,C)
27220 T = LEN(A$)
27230 T = C + T+1
27240 C$ = MID$(L$,T)
27250 L$(S,L) = B$ + A$ + C$
27260 IF S = SN THEN GOSUB 27800
27300 IF CT(T2) = 0 THEN RETURN
27310 T = T2
27320 GOTO 27000
27800 REM PRINT CALCULATED LINE ON SCREEN
27810 LI = L
27820 GOSUB 600
27830 PRINT L$(SN,L)
27840 LI = LKT
27850 TB = CKT
27855 GOSUB 650
27860 RETURN
28000 REM ADD TO A FIELD
28010 X = X(T2) + XC
28030 RETURN
28100 REM SUBTRACT
28110 X = X(T2) - XC
28130 RETURN
28200 REM MULT
28210 X = X(T)*XS
28230 RETURN
28300 REM DIVIDE BYFIELD
28305 IF XS = 0 THEN X = 0
28306 IF XS = 0 THEN RETURN
28310 X = X(T)/XS
28330 RETURN
28400 REM DIVIDE INTO
28405 IF X(T) = 0 THEN X = 0
28406 IF X(T) = 0 THEN RETURN
28410 X = XS/X(T)
28430 RETURN
28500 REM MAX
28510 IF X(T) > X(T2) THEN X = X(T) ELSE X =X(T2)
28530 RETURN
28600 REM MIN
28610 IF X(T) < X(T2) THEN X = X(T) ELSE X = X(T2)
28630 RETURN
28700 REM ADD CONSTANT
28710 X = X(T) + XK
28730 RETURN
28800 REM MULTIPLY CONSTANT
28810 X = X(T)* XK
28830 RETURN
28900 REM SUBTRACT CONSTANT
28910 X = X(T)-XK
28930 RETURN
29000 REM SUBTRACT FROM CONSTANT
29010 X = XK - X(T)
29030 RETURN
29100 REM DIVIDE BY A CONSTANT
29110 X = X(T)/XK
29130 RETURN
29200 REM DIVIDE INTO A CONSTANT
29205 IF X(T) = 0 THEN X = 0
29206 IF X(T) = 0 THEN RETURN
29210 X = XK/X(T)
29230 RETURN
29300 REM CUSTOM 14
29330 RETURN
29400 REM CUSTOM 15
29430 RETURN
29500 REM CUSTOM 16
29530 RETURN
29600 REM CUSTOM 17
29630 RETURN
29700 REM CUSTOM 18
29730 RETURN
29800 REM CUSTOM 19
29830 RETURN
29900 REM CUSTOM 20
29930 RETURN
30000 REM START SPREAD SHEET
30010 GOSUB 500
30020 CSFLG = 0
30100 REM
30200 FOR T = 1 TO 20
30210 PRINT L$(SN,T)
30220 NEXT T
30300 LI = 1
30310 GOSUB 600
30320 PRINT "*"
30330 LKT = 1
30340 CKT = 1
31000 REM *** MENU
31010 IF CFFLG = 5 THEN 5000
31015 IF CFFLG2= 5 THEN 5500
31030 IF SFLG = 5 THEN 6000
31050 LI = 21
31060 GOSUB 600
31070 PRINT "*** ENTER THE OPTION NUMBER THEN PRESS RETURN *** ON SCREEN ";SN
31080 PRINT "0-EXIT 1-INPUT NUMBER 2-INPUT OVERLAY LINE 3-NEW NUMBER 4-DEFINE CALCULATION "