Shareware Overload

home *** CD-ROM | disk | FTP | other *** search

/ Shareware Overload / ShartewareOverload.cdr / database / steel34.zip / SSREMARK.BAS < prev next >

Wrap

BASIC Source File | 1980-01-01 | 33KB | 810 lines

3 DEFDBL X / ALL VARIABLES BEGINNING WITH X ARE DOUBLE PRECISION 4 DEFINT A-W,Y-Z / ALL OTHER VARIABLES ARE INTERGER BY DEFAULT 5 PRINT FRE(0) / PRINT FREE MEMORY , OPTIONAL 10 DIM K$(80) / THE CHARACTERS IN THE INPUT SUBROUTINE 40 DIM XPRT(50),LBL$(50) / THE NUMBERS AND LABEL IN THE BAR CHART 45 DIM L$(20,20) / THE LINES THAT MAKE UP THE SPREADSHEET 50 DIM X(500),SCR(500),LIN(500),COL(500),CT(500),TF(500),CF(500),XCST(500),DS(500) / 51 REM X is the value of each number SCR is the screen the number is on,LIN is the line the number is on, COL is the column the number is on 52 REM CT is the calculation type, TF is the target field, CF is the secondary calculation field, XCST is the constant if any for calculations, DS is the display type 60 PRINT FRE(0) / PRINT FREE MEMORY 70 CH = 8 / CH = THE BACKSPACE CHARACTER 75 PRINT FRE(0) 80 CKT = 1 / INITIALIZE THE COLUMN COUNT TO 1 90 CKT = 1 95 LKT = 1 / INITIALIZE THE LINE COUNT TO 1 98 SN = 1 / INITIALIZE THE SCREEN TO 1 100 GOSUB 50000 / PRINT INTRO 200 GOTO 40000 / ASK FOR FILE NAME OF SPREADSHEET 500 REM ******* CLS 510 CLS / CLEAR SCREEN 520 RETURN 600 REM ** LOCATE COLUMN = 1 610 TB = 1 650 LOCATE LI,TB / LOCATE THE SPOT ON THE SCREEN 660 RETURN 4000 REM INPUT A NUMBER / looks for a number in the spot where the * is 4100 FOR T = 1 TO MAXN / FOR ALL NUMBERS 4110 IF SCR(T) = SN AND LIN(T) = LKT THEN 4200 / IF THE SCREEN NUMBER AND LINE NUMBER MATCH THEN 4200 4120 NEXT T / TRY NEXT NUMBER 4125 N = 0 / NO NUMBER IN THIS SPOT 4126 PRINT " THERE IS NO NUMBER IN THIS SPOT TRY AGAIN" 4127 PRINT "You may put a number here using option 3 or move the * to where a number exists" 4128 PRINT " PRESS ANY KEY TO CONTINUE " 4129 IF INKEY$ = "" THEN 4129 / STAY HERE UNTILL A KEY IS PRESSED 4130 RETURN 4200 IF CKT < (COL(T) - 5) OR CKT > (COL(T) + 5) OR CT(T) = 30 THEN 4120 / IF THE * IS NOT WITHIN 5 SPACES OF THE NUMBER OR THE NUMBER HAS BEEN DELETED THEN RETURN 4210 N = T /THIS IS THE NUMBER IN THIS SPOT 4220 RETURN 5000 REM - FIND TARGET FIELD 5005 CFFLG = 5 5010 GOSUB 9000 /CLEAR LINES 20-24 5020 PRINT "MOVE THE CURSOR TO THE TARGET FIELD THEN PRESS RETURN " 5060 MFLG = 5 5070 GOSUB 60000 / ALLOWS YOU TO MOVE THE CURSOR AROUND 5080 MFLG = 1 5085 GOSUB 4000 / CHECK TO SEE IF THERE IS A NUMBER IN THIS SPOT 5090 IF N = 0 THEN 5000 / IF THERE IS NO NUMBER IN THIS SPOT THEN TRY AGAIN 5100 TF(NH) = N / TARGET FIELD = THE NUMBER IN THIS SPOT 5110 TFH = N /TARGET FIELD HOLD EQUALS THE NUMBER IN THIS SPOT 5190 CFFLG = 1 5200 RETURN 5500 REM - FIND TARGET FIELD 5505 CFFLG = 5 5510 GOSUB 9000 /CLEAR LINES 20-24 5520 PRINT "MOVE THE CURSOR TO ANOTHER FIELD YOU WANT TO ADD THEN PRESS RETURN" 5560 MFLG = 5 /TURN MOVE FLAG ON 5570 GOSUB 60000 /ALLOW YOU TO MOVE THE * AROUND 5580 MFLG = 1 /TURN MOVE FLAG OFF 5585 GOSUB 4000 /CHECK TO SEE IF THERE IS A NUMBER HERE 5590 IF N = 0 THEN 5500 / IF THERE IS NO NUMBER HERE TRY AGAIN 5600 TF(N) = TFH /TARGERT FIELD OF N EQUALS TARGER FIELD HOLD 5610 CT(N) = 1 /CALCULATION TYPE IS ADD 5690 CFFLG = 1 5700 RETURN 6000 REM - FIND SECONDARY CALCULATIN FIELD 6005 SFLG = 5 6010 GOSUB 9000 /CLEAR LINES 21-24 6020 PRINT "MOVE THE CURSOR TO THE SECONDARY CALCULATION FIELD THEN PRESS RETURN" 6060 MFLG = 5 / TURN MOVE FLAG ON 6070 GOSUB 60000 /GOTO INPUT SUBROUTINE TO MOVE THE * TO THE CORRECT FIELD 6080 MFLG = 1 6085 GOSUB 4000 / CHECK TO SEE IF THERE IS A NUMBER WHERE THE * IS 6090 IF N = 0 THEN 6000 / IF THERE IS NOT A NUMBER HERE TRY AGAIN 6100 CF(NH) = N / CALCULATION FIELD EQUALS THIS NUMBER 6110 CF(N) = NH / THE CALCULATION FIELD OF THE SECONDARY CALCULATION NUMBER EQUALS THE SOURCE FIELD 6120 TF(N) = TF(NH) / THE TARGET FIELD EQUALS THE TARGET FIELD OF N HOLD 6130 CT(N) = CT(NH) / THE CALCULATION TYPE OF THE SECONDARY FIELD EQUALS THE CALCULATION TYPE OF THE SOURCE FIELD 6190 SFLG = 1 6200 RETURN 6600 REM - FIND SECONDARY CALCULATIN FIELD 6605 SFLG = 5 7000 REM - GET CONSTANT FOR CALCULATION 7100 GOSUB 9000 /CLEAR LINES 21-24 7110 PRINT "ENTER THE CONSTANT " 7120 GOSUB 60180 /INPUT A DOUBLE PRECISION NUMBER 7130 XCST(NH) = DT# /CONSTANT EQUALS THE VALUE RETURNED FROM THE SUBROUTINE 7140 RETURN 8000 REM ***** FILE NAME ACCEPLABLE TEST ************ 8010 TEST = 1 8100 FOR Q = 1 TO LEN(A$) / FOR EACH CHARACTER IN A$ 8110 K$(Q) = MID$(A$,Q,1) / K$ IS THE CHARACTER 8120 C = ASC(K$(Q)) 8130 IF C < 48 OR C > 122 THEN TEST = 4 / IF NOT A NUMBER OR LETTER THEN TEST IS NEGITIVE 8140 IF Q = 1 AND ( C < 65 OR C > 122 ) THEN TEST = 4 /IF THE FIRST CHARACTER IS NOT A LETTER THEN TEST IS NEGITIVE 8150 NEXT Q /NEXT CHARACTER 8190 RETURN 9000 REM CLEAR BOTTOM LINES 9010 LI = 21 9015 GOSUB 600 / LOCATE 21ST LINE 9020 FOR T = 1 TO 4 9030 PRINT " "; CLEAR LINES 21-24 9040 NEXT T 9041 PRINT " "; 9042 GOSUB 600 9050 RETURN 20000 REM INPUT A NUMBER 20100 GOSUB 9000 /CLEAR LINES 21-24 20110 REM FIND NUMBER 20120 GOSUB 4000 / CHECK IF THERE IS A NUMBER HERE 20130 IF N = 0 THEN RETURN /IF THERE IS A NUMBER HERE THEN RETURN 20140 NH= N / NHOLD EQUALS N 20200 LKT = LIN(T) /LINE COUNT = LINE OF T , T EQUALS N 20210 CKT = COL(T) /COLUMN COUNT = COLUMN OF T 20810 GOSUB 60180 /INPUT DOUBLE PRECISION SUBROUTINE 20815 T = NH /RESET T EQUALS NHOLD 20820 IF DS(T) = 2 THEN GOSUB 49020 /IF DISPLAY TYPE IS A DOLLAR AND CENTS THEN GOSUB 49020 20822 T2= LEN(A$) /T2 IS THE LENGTH OF A$ 20823 T$ = "__________" 20824 B$ = MID$(T$,T2) /B$ EQUALS A STRING OF UNDERLINES 20826 A$ = B$ + A$ /ADD UNDERLINES TO THE FRONT OF THE NUMBER 20828 XC = DT# - X(T) / XC THE CHANGE IN X EQUALS 20830 X(T) = DT# /THE VALUE OF THE NUMBER EQUALS THE VALUE RETURNED FROM THE SUBROUTINE 20835 GOSUB 21130 20838 T = NH /RESET T TO NHOLD 20840 IF CT(T) > 0 THEN GOTO 27000 /IF THERE IS A CALCULATION SPECIFIED FOR THIS NUMBER THEN GOTO 27000 20850 RETURN 21000 REM input overlay line 21010 GOSUB 9000 /CLEAR LINES 21-24 21020 PRINT "ENTER THE STRING " 21100 MAX = 77 /MAXIMUM LENGTH OF THE STRING 21120 GOSUB 62030 /INPUT SUBROUTINE FOR STRINGS 21130 GOSUB 21200 /PUT NEW STRING INTO THE LINE 21140 LI = LKT 21150 GOSUB 600 /LOCATE THE START OF THE LINE AT COLUMN ONE 21155 PRINT L$(SN,LKT) /PRINT THE LINE ONE THE SCREEN 21160 LI = LKT /LINE NUMBER EQUALS LINE COUNT 21170 TB = CKT /TAB EQUALS COLUMN COUNT 21180 GOSUB 650 /LOCATE 21185 PRINT "*" 21190 RETURN 21200 IF L$(SN,LKT) = "" THEN L$(SN,LKT) = " " / IF THERE IS NO STRING THEN SET EQUAL TO SPACES 21205 L$ = L$(SN,LKT) /L$ EQUALS THE CURRENT LINE 21210 B$ = MID$(L$,1,CKT) /B$ EQUALS THE LEFT PART OF THE LINE 21220 T = LEN(A$) /LENGTH OF NEW STRING TO ADD 21230 T = CKT + T+1 21240 C$ = MID$(L$,T) /RIGHT PART OF THE LINE 21250 L$ = B$ + A$ + C$ / THE ENTIRE LINE 21255 L$(SN,LKT) = LEFT$(L$,78) /TRUNCATE EXCESS COLUMNS 21260 RETURN 22000 REM ENTER A NEW NUMBER SUBROUTINE 22010 GOSUB 9000 /CLEAR LINES 21-24 22020 PRINT " HOW DO YOU WANT THIS NUMBER DISPLAYED " 22030 PRINT " 1 - Standard 2 - Dollar and cents format 0 - None" 22040 GOSUB 60000 /INPUT SUBROUTINE 22050 IF DT# < 0 OR DT# > 2 THEN 22000 /IN OPTION OUT OF RANGE THEN TRY AGAIN 22055 IF DT# = 0 THEN 31000 /IF NO NUMBER WANTED HERE THEN 31000 22060 IF DT# = 2 THEN 22500 /IF DOLLAR AND CENTS AMOUNT THEN 22500 22110 MAXN = MAXN + 1 /INCREMENT MAXIMUM NUMBER 22120 SCR(MAXN) = SN /THE SCREEN OF NEW NUMBER EQUALS CURRENT SCREEN 22130 LIN(MAXN) = LKT /THE LINE OF NEW NUMBER EQUALS CURRENT LINE 22140 COL(MAXN) = CKT /THE COLUMN OF NEW NUMBER EQUALS CURRENT LINE 22150 A$ = "__________0" 22200 GOSUB 21130 /PUT __________0 ON THE SCREEN 22210 GOSUB 9000 /CLEAR LINES 21-24 22220 PRINT "DO YOU WANT PLACE A NEW NUMBER RIGHT BELOW THIS ONE" 22230 PRINT " 1 - YES 2 - NO" 22240 GOSUB 60000 /INPUT SUBROUTINE 22250 IF DT# < 1 OR DT# > 2 THEN 22210 /IF OPTION OUT OF RANGE THEN TRY AGAIN 22260 IF DT# = 2 THEN RETURN /IF OPTION EQUALS 2 THEN RETURN 22270 LKT = LKT + 1 /LINE COUNT EQUALS LINE COUNT + 1 22275 GOSUB 22400 /ERASE THE * 22280 GOTO 22110 /PUT THE NEW NUMBER IN 22300 RETURN 22400 REM ERASE * 22410 LI = LKT - 1 /LINE EQUALS LINE COUNT MINUS ONE 22420 TB = CKT /TAB EQUALS COLUMN COUNT 22430 GOSUB 650 /LOCATE 22440 PRINT " "; /OVER PRINT THE * 22450 RETURN 22500 REM ENTER A NEW NUMBER SUBROUTINE 22600 GOSUB 9000 /CLEAR LINES 21-24 22610 MAXN = MAXN + 1 /INCREMENT MAXIMUM NUMBER 22615 DS(MAXN) = 2 /DISPLAY TYPE EQUALS 2 22620 SCR(MAXN) = SN /SCREEN OF NEW NUMBER EQUALS CURRENT SCREEN 22630 LIN(MAXN) = LKT /LINE OF NEW NUMBER EQUALS CURRENT LINE 22640 COL(MAXN) = CKT /COLUMN OF NEW NUMBER EQUALS CURRENT NUMBER 22650 A$ = "$_________0" 22700 GOSUB 21130 / PUT $__________0 IN THE LINE 22710 GOSUB 9000 /CLEAR LINES 22720 PRINT "DO YOU WANT PLACE A NEW NUMBER RIGHT BELOW THIS ONE" 22730 PRINT " 1 - YES 2 - NO" 22740 GOSUB 60000 22750 IF DT# < 1 OR DT# > 2 THEN 22710 /IF OPTION OUT OF RANGE THEN TRY AGAIN 22760 IF DT# = 2 THEN RETURN /IF NO NEW NUMBER RIGHT BELOW THIS NUMBER 22770 LKT = LKT + 1 /INCREMENT LINE COUNT 22775 GOSUB 22400 /ERASE * 22780 GOTO 22610 /PUT NEW NUMBER IN 22800 RETURN 23000 REM DEFINE CALCULATION 23100 GOSUB 9000 /CLEAR LINES 21-24 23200 REM DEFINE CALCULATION 23210 IF N = 0 THEN 31000 /IF THERE IS NO NUMBER HERE THEN RETURN 23215 NH = N /NHOLD EQUALS N 23220 PRINT "1.ADD 2.SUB 3.MULT 4.DIVIDE BY 5.DIVIDE INTO 6.MAX 7.MIN 8.ADD K" 23230 PRINT "9.MULT K 10.N-K 11.K-N 12.N/K 13.K/N 14. to 20. Custom subroutines" 23240 PRINT "21.ABS 22.ATN 23.COS 24.EXP 25.LOG 26.SIN 27.SQR 28.SQ 29.TAN 30.DELETE" 23250 PRINT " Enter the type of calculation you want then press return. 0 for none"; 23260 LI = 24 /LINE NUMBER EQUALS 24 23270 GOSUB 600 / LOCATE 23300 GOSUB 60000 /INPUT SUBROUTINE 23305 IF DT# = 0 THEN 31000 /IF NONE THEN BACK TO OPTIONS 23310 CT(N) = DT# /CALCULATION TYPE EQUALS THE VALUE RETURNED FROM THE INPUT SUBROUTINE 23320 ON DT# GOSUB 24000,24100,24200,24300,24400,24500,24600,24700,24800,24900,25000,25100,25200,25300,25400,25500,25600,25700,25800,25900,24000,24000,24000,24000,24000,24000,24000,24000,24000,52000 23340 GOTO 31000 24000 REM - ADD ROUTINE 24010 GOSUB 5000 /INPUT TARGET FIELD 24020 GOSUB 9000 /CLEAR LINES 21-24 24030 PRINT " DO YOU WANT TO ADD ANY MORE NUMBERS TO THIS TARGET FIELD " 24035 PRINT " 1 - YES 2 - NO " 24040 GOSUB 60000 /INPUT SUBROUTINE 24050 IF DT# = 2 THEN RETURN /IF OPTION 2 THEN RETURN 24060 GOSUB 5500 /INPUT OTHER FIELDS TO ADD 24090 GOTO 24020 24100 REM - SUBTRACT 24110 GOSUB 5000 /INPUT TARGET FIELD 24120 RETURN 24200 REM MULTIPLY 24210 GOSUB 5000 /INPUT TARGET FILED 24220 GOSUB 6000 /INPUT SECONDARY CALCULATION FIELD 24230 RETURN 24300 REM DIVIDE BY ANOTHER NUMBER 24310 GOSUB 5000 /INPUT TARGET NUMBER 24320 GOSUB 6000 /INPUT SECONDARY CALCULATION NUMBER 24325 CT(N) = 5 /CALCULATION TYPE OF SECONDARY NUMBER EQUALS 5 24330 RETURN 24400 REM DIVIDE INTO ANOTHER NUMBER 24410 GOSUB 5000 /INPUT TARGET NUMBER 24420 GOSUB 6000 /INPUT SECONDARY CALCULATION NUMBER 24425 CT(N) = 4 /CALCULATION TYOE OF SECONDARY NUMBER EQUALS 4 24430 RETURN 24500 REM MAXIMUM 24510 GOSUB 5000 /INPUT TARGET NUMBER 24520 X(N) = -1E+07 /INITIALIZE X TO A LOW NUMBER 24590 RETURN 24600 REM MIN 24610 GOSUB 5000 /INPUT TARGER NUMBER 24620 X(N) = 999999999# /INITIALIZE X TO A HIGH NUMBER 24690 RETURN 24700 REM ADD TO A CONSTANT 24710 GOSUB 5000 /INPUT TARGET NUMBER 24720 GOSUB 7000 /INPUT CONSTANT 24790 RETURN 24800 REM MULTIPY BY A CONSTANT 24810 GOSUB 5000 /INPUT TARGET NUMBER 24820 GOSUB 7000 /INPUT CONSTANT 24890 RETURN 24900 REM SUBTACT FROM A CONSTANT 24910 GOSUB 5000 /INPUT TARGET NUMBER 24920 GOSUB 7000 /INPUT CONSTANT 24990 RETURN 25000 REM SUBTACT A CONSTANT FROM 25010 GOSUB 5000 /INPUT TARGER NUMBER 25020 GOSUB 7000 /INPUT CONSTANT 25090 RETURN 25100 REM DIVIDE BY A CONSTANT 25110 GOSUB 5000 /INPUT TARGET NUMBER 25120 GOSUB 7000 /INPUT CONSTANT 25190 RETURN 25200 REM DIVIDE INTO A CONSTANT 25210 GOSUB 5000 /INPUT TARGER NUMBER 25220 GOSUB 7000 /INPUT CONSTANT 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) /T2 IS THE TARGER FIELD 27060 XK = XCST(T) /XK IS THE CONSTANT FOR CALCULATION 27070 S = CF(T) /S IS THE SECONDARY CALCULATION FIELD 27075 XS = X(S) /XS IS THE VALUE OF THE SECONDARY CALCULATION FIELD 27080 X = X(T) /X IS THE VALUE OF THE SOURCE FIELD 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 27110 X(T2) = X /SET THE TARGET FIELD TO X 27120 T$ = STR$(X) /CONVERT X TO A STRING 27130 T3 = LEN(T$) /T3 IS THE LENGTH OF T$ 27140 T1$ = "__________" 27150 B$ = MID$(T1$,T3) 27160 A$ = B$ + T$ /A$ EQUALS UNDERLINES PLUS THE NUMBER 27165 A$ = LEFT$(A$,10) /A$ EQUALS THE LEFT 10 CHARACTERS OF A$ 27167 DT# = X 27168 IF DS(T2) = 2 THEN GOSUB 49020 /IF DOLLAR AND CENTS DISPLAY TYPE THEN 27170 L = LIN(T2) /LINE 27180 C = COL(T2) /COLUMN 27190 S = SCR(T2) /SCREEN 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$ /ENTIRE LINE 27260 IF S = SN THEN GOSUB 27800 /IF THE LINE IS ON THE CURRENT SCREEN THEN PRINT THE LINE 27300 IF CT(T2) = 0 THEN GOTO 31000 /IF THERE IS NO CALCULATION TYPE THE GOTO OPTIONS 27310 T = T2 /THE FIELD TO CALCULATE IS THE TARGET FIELD 27320 GOTO 27000 /CONTINUE WITH CALCULATIONS FOR TARGET FIELD 27800 REM PRINT CALCULATED LINE ON SCREEN 27810 LI = L /LINE NUMBER 27820 GOSUB 600 /LOCATE 27830 PRINT L$(SN,L) /PRINT THE LINE 27840 LI = LKT /LINE EQUALS LINE COUNT 27850 TB = CKT /TAB EQUALS COLUME COUNT 27855 GOSUB 650 /LOCATE 27860 RETURN 28000 REM ADD TO A FIELD 28010 X = X(T2) + XC /VALUE OF THE TARGET FIELD PLUS THE CHANGE IN SOURCE FIELD 28030 RETURN 28100 REM SUBTRACT 28110 X = X(T2) - XC /VALUE OF THE TARGET FIELD MINUS THE CHANGE IN THE TARGET FIELD 28130 RETURN 28200 REM MULT 28210 X = X(T)*XS /VALUE OF THE SOURCE FIELD TIMES VALUE OF THE SECONDARY FIELD 28230 RETURN 28300 REM DIVIDE BYFIELD 28305 IF XS = 0 THEN X = 0 28306 IF XS = 0 THEN RETURN /DO NOT DIVIDE BY 0 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 /DO NOT DIVIDE BY 0 28410 X = XS/X(T) 28430 RETURN 28500 REM MAX 28510 IF X(T) > X(T2) THEN X = X(T) ELSE X =X(T2) /IF SOURCE FIELD IS GREATER THEN THE TARGET FIELD THEN TARGET FIELD EQUALS THE SOURCE FIELD 28530 RETURN 28600 REM MIN 28610 IF X(T) < X(T2) THEN X = X(T) ELSE X = X(T2) /IF SOURCE FIELD IS LESS THEN THE TARGET FIELD THEN TARGET FIELD EQUALS THE SOURVE FIELD 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 /DO NOT DIVIDE BY 0 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 /CLEAR SCREEN 30100 REM 30200 FOR T = 1 TO 20 30210 PRINT L$(SN,T) /PRINT THE SPREADSHEET LINES 30220 NEXT T 30300 LI = 1 30310 GOSUB 600 /LOCATE 30320 PRINT "*" 30330 LKT = 1 /INITIALIZE LINE COUNT TO 1 30340 CKT = 1 /INITIALIZE COLUMN COUNT TO 1 31000 REM *** MENU 31010 IF CFFLG = 5 THEN 5000 /IF CALCULATION FLAG 31030 IF SFLG = 5 THEN 6000 /IS SECONDARY FLAG 31050 LI = 21 /LINE 21 31060 GOSUB 600 /LOCATE LINE 21 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 " 31090 PRINT "5-CLEAR 6-SAVE 7-BARCHART 8-PRINT SCREEN 9-PRINT DESCRIPTION " 31300 LI = 25 / LINE 25 31310 GOSUB 600 /LOCATE LINE 25 31320 PRINT "MOVE THE * USING A,Q,S,D,F,G,E,R,X,C CHANGE SCREENS USING I,J,K,M"; 31330 LI = 24 /LINE 24 31340 GOSUB 600 /LOCATE 31490 MFLG = 5 /MOVE FLAG ON 31500 GOSUB 60000 /INPUT SUBROUTINE 31505 MFLG = 1 /MOVE FLAG OFF 31507 IF DT# = 0 THEN 51200 / IF EXIT THE PROGRAM THEN 51200 31510 ON DT# GOSUB 20000,21000,22000,23000,37000,41000,46000,45000,44000 31900 GOTO 31000 32000 REM*** MOVE CURSER AROUND 34000 REM TEST FOR MOVE CURSER 34010 CFLG = 0 34100 IF C = 65 OR C = 97 THEN CFLG = 1 /A 34110 IF C = 83 OR C = 115 THEN CFLG = 2 /S 34120 IF C = 68 OR C = 100 THEN CFLG = 3 /D 34130 IF C = 70 OR C = 102 THEN CFLG = 4 /F 34140 IF C = 69 OR C = 101 THEN CFLG = 5 /E 34150 IF C = 88 OR C = 120 THEN CFLG = 6 /X 34152 IF C = 82 OR C = 114 THEN CFLG = 7 /R 34154 IF C = 67 OR C = 99 THEN CFLG = 8 /C 34156 IF C = 71 OR C = 103 THEN CFLG = 9 /G 34158 IF C = 81 OR C = 113 THEN CFLG = 10 /Q 34160 IF C = 73 OR C = 105 THEN CFLG = 11 /I 34163 IF C = 74 OR C = 106 THEN CFLG = 12 /J 34165 IF C = 75 OR C = 107 THEN CFLG = 13 /K 34175 IF C = 77 OR C = 109 THEN CFLG = 14 /L 34180 IF CFLG > 10 THEN 36000 /IF MOVE SCREEN THEN 36000 34200 IF CFLG = 0 THEN RETURN /IF NO MOVEMENT THEN RETURN 34300 REM OVERPRINT OLD LINE 34310 TB = CKT /TAB EQUALS COLUMN COUNT 34320 LI = LKT /LINE EQUALS LINE COUNT 34400 GOSUB 650 /LOCATE 34410 L$ = L$(SN,LKT) /THE LINE 34420 A$ = MID$(L$,CKT,1) /THE CHARARACTER IN THE LINE WHERE THE * WAS 34430 IF A$ = "" THEN PRINT " " ELSE PRINT A$ /PRINT OVER THE * 34500 ON CFLG GOSUB 35000,35100,35200,35300,35400,35500,35450,35550,35350,35050 34510 TB = CKT /TAB EQUALS COLUMN COUNT 34520 LI = LKT /LINE EQUALS LINE COUNT 34530 GOSUB 650 /LOCATE 34540 PRINT "*" 34550 LI = 24 34560 TB = 2 34570 GOSUB 650 /LOCATE 34580 RETURN 35000 REM MOVE FIVE LEFT 35010 CKT = CKT - 5 /SUBTRACT FIVE FROM COLUMN COUNT 35020 IF CKT < 1 THEN CKT = 1 /CAN't be less then one 35040 RETURN 35050 REM MOVE 20 LEFT 35060 CKT = CKT - 20 /SUBTRACT TWENTY FROM COLUMN COUNT 35070 IF CKT < 1 THEN CKT = 1 /CAN't be less then one 35080 RETURN 35100 REM ** LEFT ONE SPACE 35110 CKT = CKT - 1 /SUBTRACT ONE FROM COLUMN COUNT 35120 IF CKT < 1 THEN CKT = 1 /CAN't be less then one 35130 RETURN 35200 REM ** RIGHT ONE SPACE 35210 CKT = CKT + 1 /ADD ONE TO COLUMN COUNT 35220 IF CKT > 75 THEN CKT = 75 /CAN't be more then 75 35230 RETURN 35300 CKT = CKT + 5 /ADD FIVE TO COLUMN COUNT 35310 IF CKT > 75 THEN CKT = 75 /CAN't be more then 75 35320 RETURN 35350 CKT = CKT + 20 /ADD 20 TO COLUMN COUNT 35360 IF CKT > 75 THEN CKT = 75 /CAN't be more then 75 35370 RETURN 35400 REM ** UP ONE LINE 35410 LKT = LKT - 1 /SUBTRACT ONE FROM LINE COUNT 35420 IF LKT < 1 THEN LKT = 1 /CAN't be less then 1 35430 RETURN 35450 REM ** UP FOUR LINE 35460 LKT = LKT - 4 /SUBTRACT 4 FROM LINE COUNT 35470 IF LKT < 1 THEN LKT = 1 /CAN't be less then one 35480 RETURN 35500 REM ** DOWN ONE LINE 35510 LKT = LKT + 1 /ADD ONE TO LINE COUNT 35520 IF LKT > 20 THEN LKT = 20 /CAN't be more then 20 35530 RETURN 35550 REM ** DOWN FOUR LINE 35560 LKT = LKT + 4 /ADD FOUR TO LINE COUNT 35570 IF LKT > 20 THEN LKT = 20 /CAN't be more then 20 35580 RETURN 35600 REM SCREEN UP 35610 SN = SN - 4 /SUBTRACT FOUR FROM SCREEN COUNT 35620 IF SN < 1 THEN SN = 1 /CAN't be less then 1 35630 RETURN 35700 REM SCREEN LEFT 35710 SN = SN - 1 /SUBTRACT ONE FROM SCREEN COUNT 35720 IF SN < 1 THEN SN = 1 /CAN't be less then 1 35730 RETURN 35800 REM SCREEN RIGHT 35810 SN = SN + 1 /ADD ONE TO SCREEN COUNT 35820 IF SN > 20 THEN SN = 20 /CAN't be more then 20 35830 RETURN 35900 REM SCREEN DOWN 35910 SN = SN + 4 /ADD FOUR TO SCREEN COUNT 35920 IF SN > 20 THEN SN = 20 /CAN't ber more then 20 35930 RETURN 36000 REM CHANGE SCREENS 36100 GOSUB 500 36110 CFLG = CFLG - 10 /CHANGE FLAG EQUALS CHANGE FLAG MINUS 10 36120 ON CFLG GOSUB 35600,35700,35800,35900 36130 GOTO 30000 /WRITE NEW SCREEN 37000 REM RECALCULATE 37010 GOSUB 9000 /CLEAR LINES 21-24 37020 PRINT " The Clear option will set all the numeric values to zero " 37030 PRINT " YOU WILL LOSE THE VALUES UNLESS YOU HAVE SAVED THEM" 37040 PRINT " DO YOU WANT TO CLEAR THE VALUES (Y/N) " 37050 A$ = INKEY$ 37055 IF A$ = "" THEN 37050 /LOOP UNTILL A KEY IS PRESSED 37060 IF A$ = "Y" OR A$ = "y" THEN 37100 ELSE 31000 37100 FOR T2= 1 TO MAXN /FOR ALL THE NUMBERS 37105 IF CT(T2) = 30 THEN 37300 /IF NUMBER HAS BEEN DELETED THEN SKIP 37110 X(T2) = 0 /SET NUMBER TO ZERO 37120 A$= "__________0" 37130 IF DS(T2) = 2 THEN A$ = "$_______.00" 37170 L = LIN(T2) 37180 C = COL(T2) 37190 S = SCR(T2) 37200 IF L$(S,L) = "" THEN L$(S,L) = " " 37205 L$ = L$(S,L) 37210 B$ = MID$(L$,1,C) /LEFT PART OF LINE 37220 T = LEN(A$) 37230 T = C + T+1 37240 C$ = MID$(L$,T) /RIGHT PART OF LINE 37250 L$(S,L) = B$ + A$ + C$ /NEW LINE 37260 IF S = SN THEN GOSUB 27800 /IF LINE IS ONE THIS SCREEN THEN PRINT IT 37300 NEXT T2 37310 GOTO 31000 /BACK TO OPTIONS 40000 REM 40080 PRINT "These are the files on your defalut disk drive :" 40100 PRINT "" 40120 FILES /PRINTS THE FILES ON YOUR DEFAULT DISK DRIVE 40140 PRINT "If you want to continue with an old spreadsheet enter the name " 40160 PRINT "If you want to start a new spreadsheet just press return " 40270 MAX = 8 /MAXIMUM STRING LENGTH 40280 GOSUB 62030 /INPUT SUBROUTINE 40282 IF A$ = "" THEN 30000 /IF RETURN WAS PRESSED THEN 30000 40290 NM$ = A$ /NAME EQUALS A$ 40300 GOTO 43000 /READ THE FILE 41000 REM *** START NEW SPREADSHEET 41100 GOSUB 9000 41130 PRINT "****** ENTER THE NAME THAT YOU WANT TO SAVE THIS SPREADSHEET UNDER *******" 41140 PRINT " must be eight characters or less, no spaces " 41160 PRINT "If you do not want to save the spreadheet at this time then just press return" 41200 MAX = 8 /MAXIMUM LENGTH OF STRING 41210 GOSUB 62030 41215 IF A$ = "" THEN 31000 /IF RETURN WAS PRESSED THEN 41220 GOSUB 8000 /TEST FOR VALID FILE NAME 41230 IF TEST = 4 THEN 41000 /IF BAD FILE NAME THEN TRY AGAIN 41240 NM$ = A$ /NAME EQUALS A$ 42000 REM WRITE SPREADSHEET 42010 GOSUB 9000 42020 PRINT " SAVEING YOUR SPREADSHEET ON DISK, PLEASE WAIT" 42100 OPEN "O",#1,NM$ /OPEN A SEQUENTIAL ACCESS FILE AS #1 42110 WRITE #1,MAXN /MAXIMUM NUMBERS 42120 FOR T = 1 TO MAXN /FOR ALL NUMBERS 42130 WRITE #1,X(T),SCR(T),LIN(T),COL(T),CT(T),TF(T),CF(T),XCST(T),DS(T) 42140 NEXT T 42200 FOR T = 1 TO 20 /FOR ALL SCREENS 42210 FOR T2 = 1 TO 20 /FOR ALL LINES 42220 WRITE #1,L$(T,T2) /WRITE THE LINE 42230 NEXT T2 42240 NEXT T 42245 CLOSE 42250 GOTO 31000 43000 REM READ SPREADSHEET 43040 PRINT "" 43050 PRINT "READING INFORMATION PLEASE WAIT" 43100 OPEN "I",#1,NM$ /OPEN SEQUENTIAL ACCESS FILE 43110 INPUT #1,MAXN /INPUT MAXIMUM NUMBER 43120 FOR T = 1 TO MAXN /FOR ALL NUMBERS 43130 INPUT #1,X(T),SCR(T),LIN(T),COL(T),CT(T),TF(T),CF(T),XCST(T),DS(T) 43140 NEXT T 43200 FOR T = 1 TO 20 /FOR ALL SCREENS 43210 FOR T2 = 1 TO 20 /FOR ALL LINES 43220 INPUT #1,L$(T,T2) /INPUT THE LINE 43230 NEXT T2 43240 NEXT T 43245 CLOSE 43250 GOTO 30000 44000 REM PRINT SPREADSHEET 44010 GOSUB 9000 /CLEAR LINES 21-24 44020 PRINT " Print the spreadsheet description on paper subroutine " 44030 PRINT " Make sure your printer is on " 44040 PRINT " DO YOU WANT THIS OPTION (Y/N) " 44050 A$ = INKEY$ 44055 IF A$ = "" THEN 44050 /LOOP UNTILL A KEY IS PRESSED 44060 IF A$ = "Y" OR A$ = "y" THEN 44100 ELSE 31000 44100 LPRINT "SPREADSHEET NAME ";NM$ 44110 LPRINT "X(T) SCR(T) LIN(T) COL(T) CT(T) TF(T) CF(T) XCST(T);DS(T)" 44120 FOR T = 1 TO MAXN /FOR ALL NUMBERS 44130 LPRINT X(T);SCR(T);LIN(T);COL(T);CT(T);TF(T);CF(T);XCST(T);DS(T) 44140 NEXT T 44200 FOR T = 1 TO 20 /FOR ALL SCREENS 44210 FOR T2 = 1 TO 20 /FOR ALL LINES 44215 IF L$(T,T2) = "" THEN 44230 44218 LPRINT "SCREEN ";T;" LINE ";T2 44220 LPRINT L$(T,T2) /PRINT THE LINE 44230 NEXT T2 44240 NEXT T 44250 GOTO 31000 45000 REM PRINT SCREEN ON PAPER 45010 GOSUB 9000 /CLEAR LINES 21-24 45020 PRINT " PRINT SCREEN ROUTINE " 45030 PRINT " Make sure your printer is on " 45040 PRINT " DO YOU WANT TO PRINT THIS SCREEN (Y/N) " 45050 A$ = INKEY$ 45055 IF A$ = "" THEN 45050 /LOOP UNTILL A KEY IS PRESSED 45060 IF A$ = "Y" OR A$ = "y" THEN 45070 ELSE 31000 45070 GOSUB 9000 /CLEAR LINES 21-24 45075 PRINT " DO YOU WANT TO PRINT THE SCREENS TO THE RIGHT ALSO " 45077 PRINT " 1 - NO print only this screen 2 - Yes " 45080 GOSUB 60000 /INPUT SUBROUTINE 45085 IF DT# = 2 THEN 45200 /IF PRINT MORE THEN ONE SCREEN THEN 45200 45100 FOR T = 1 TO 20 /FOR ALL LINES 45110 LPRINT L$(SN,T) /PRINT THE LINE ON PAPER 45120 NEXT T 45130 GOTO 31000 /BACK TO OPTIONS 45200 REM PRINT SECOND SCREEN OVER 45210 GOSUB 9000 /CLEAR LINES 21-24 45230 PRINT " How many columns of the spreadsheet do you want printed? " 45235 PRINT "Do not exceed the number of colums that your printer can print" 45240 GOSUB 60060 /INPUT SUBROUTINE 45250 MAXL = DT# /MAXIMUM COLUMN 45255 WIDTH 255 /PRINT BEYOND 80 COLUMNS 45260 FOR T = 1 TO 20 /FOR LINE NUMBER 1 TO 20 45265 L$ = L$(SN,T) 45270 T2 = SN+1 45271 L2$ = L$(T2,T) 45272 T3 = SN + 2 45273 IF L2$ = "" THEN L2$ = " " 45275 IF L$ = "" THEN L$ = " " 45280 L$ = L$ + L2$ +L$(T3,T) /COMBINE THE LINES FROM 3 SCREENS 45290 L$ = LEFT$(L$,MAXL) /TAKE THE LEFT CHARACTERS UP TO MAXIMUM COLUMN 45300 LPRINT L$ /PRINT THE LINE 45400 NEXT T 45500 GOTO 31000 /BACK TO OPTIONS 46000 REM BAR CHART 46010 GOSUB 9000 /CLEAR LINES 21-24 46020 PRINT " BAR CHART SUBROUTINE " 46030 PRINT " MAKE SURE YOUR PRINTER IS ON " 46040 PRINT " DO YOU WANT TO PRINT A BAR CHART (Y/N) " 46050 A$ = INKEY$ 46055 IF A$ = "" THEN 46050 /LOOP UNTILL A KEY IS PRESSED 46060 IF A$ = "Y" OR A$ = "y" THEN 46070 ELSE 31000 46070 XMAX = 0 /INITIALIZE 46080 NCT = 0 /INITIALIZE 46100 REM INPUT NUMBERS FOR CHART 46105 MFLG = 5 /MOVE FLAG EQUALS FIVE 46110 NCT = NCT + 1 /NUMBER COUNT EQUALS NUMBER COUNT PLUS ONE 46120 GOSUB 9000 /CLEAR LINES 21-24 46130 PRINT " MOVE THE * TO THE ";NCT;" th NUMBER FOR THE BAR CHART" 46135 PRINT " THEN PRESS RETURN " 46140 GOSUB 60000 /INPUT SUBROUTINE TO ALLOW CURSER MOVEMENT 46150 GOSUB 4000 /FIND NUMBER IN THIS SPOT 46160 IF N = 0 THEN 46120 /IF THERE IS NO NUMBER TRY AGAIN 46165 IF X(N) > XMAX THEN XMAX = X(N) /IN THE NUMBER IS GREATER THEN THE MAXIMUM NUMBER CHOSEN SO FAR THEN THE MAX EQUALS THE NUMBER 46170 XPRT(NCT)=X(N) 46200 GOSUB 9000 /CLEAR LINES 21-24 46210 PRINT " MOVE THE CURSER TO THE START OF THE LABEL FOR THIS NUMBER" 46215 PRINT " THEN PRESS RETURN " 46220 GOSUB 60000 46230 T1 = CKT 46300 GOSUB 9000 46310 PRINT " MOVE THE CURSER TO THE END OF THE LABEL FOR THIS NUMBER" 46315 PRINT " THEN PRESS RETURN " 46320 GOSUB 60000 46330 T2 = CKT 46400 T3 = T2 - T1 46410 L$ = L$(SN,LKT) 46420 LBL$(NCT) = MID$(L$,T1,T3) /LABEL FOR THIS NUMBER 46500 GOSUB 9000 46510 PRINT " DO YOU WANT ANOTHER NUMBER FOR THIS BAR CHART " 46520 PRINT " 1 - YES, ANOTHER NUMBER " 46525 PRINT " 2 - NO, I HAVE ENTERED ALL THE NUMBERS " 46530 GOSUB 60000 46540 IF DT# = 1 THEN 46100 /GET ANOTHER NUMBER 47000 REM PRINT BAR CHART 47100 GOSUB 500 /CLEAR SCREEN 47200 FOR T = 1 TO NCT /FOR ALL NUMBERS 47210 PRINT LBL$(T),XPRT(T) /PRINT THE LABEL THEN THE NUMBER 47220 T1#= XPRT(T)/XMAX /RATIO OF THIS NUMBER TO THE MAXIMUM NUMBER 47225 T1#= T1#*75 47230 T2 = INT(T1#) 47240 FOR T3 = 1 TO T2 47250 PRINT "*"; 47260 NEXT T3 47265 PRINT "" 47270 NEXT T 47300 PRINT " PRESS ANY KEY TO CONTINUE " 47310 IF INKEY$ = "" THEN 47310 /STAY HERE UNTILL A KEY IS PRESSED 47400 PRINT " DO YOU WANT TO PRINT THIS ON PAPER " 47410 PRINT " 1- YES PRINT 2-NO" 47420 GOSUB 60000 47430 IF DT# = 2 THEN 30000 48000 REM PRINT BAR CHART 48200 FOR T = 1 TO NCT /FOR ALL NUMBERS IN BAR CHART 48210 LPRINT LBL$(T),XPRT(T) /PRINT LABEL THEN NUMBER 48220 T1#= XPRT(T)/XMAX /RATIO OF THIS NUMBER TO THE MAXIMUM 48225 T1#= T1#*75 48230 T2 = INT(T1#) 48240 FOR T3 = 1 TO T2 48250 LPRINT "*"; 48260 NEXT T3 48265 LPRINT "" 48270 NEXT T 48300 GOTO 30000 49000 REM PUT DOLLAR SIGNS IN 49010 GOSUB 4000 49020 XA = DT# 49100 XA = XA * 100 + .01 /MULTIPLY BY 100 THEN ADD .01 TO AVOID ROUNDING ERRORS 49110 XA = INT(XA) /CONVERT TO INTEGER 49120 T$ = STR$(XA) /CONVERT TO STRING 49130 T$ = "__________" + T$ 49140 T$ = RIGHT$(T$,8) 49150 A$ = MID$(T$,1,3) /THOUSANDS 49160 B$ = MID$(T$,4,3) / 49170 C$ = MID$(T$,7,2) /CENTS 49180 A$ = "$"+A$+","+B$+"."+C$ 49190 IF XA < 100000! THEN A$ = "$"+"____"+B$+"."+C$ 49800 RETURN 50000 REM ********** INTRO 50010 GOSUB 500 50100 PRINT " S P R E A D S H E E T 1.0 " 50105 PRINT "" 50110 PRINT " Copyright 1984 by Potomac Pacific Engineering Inc." 50120 PRINT "" 50130 PRINT "This program is licensed FREE to all users with some restrictions" 50165 PRINT " See the manual for more information on the license." 50167 PRINT "" 50970 RETURN 51000 REM ***** EXIT TO SYSTEM 51100 GOSUB 500 51110 CLOSE 51120 PRINT " -BYE, Have a nice day" 51130 END 51200 REM ** WARNING 51210 GOSUB 9000 51220 PRINT " IF YOU HAVE NOT SAVED YOUR DATA YOU WILL LOSE IT " 51230 PRINT " DO YOU WANT TO EXIT THE PROGRAM (Y/N)" 51235 A$ = INKEY$ 51240 IF A$ = "" THEN 51235 51260 IF A$ = "Y" OR A$ = "y" THEN 51000 51270 GOTO 31000 52000 REM DELETE NUMBER 52100 A$ = " " 52110 GOSUB 21130 52120 RETURN 60000 REM ******* INTEGER LESS THEN 100 CHECK ******** 60010 MAX = 2 60020 ACT$ = "1234567890=<>^" 60030 IF NE = 0 THEN ACT$ = "1234567890" 60040 PRINT ">__<"; 60050 GOTO 60240 60060 REM ******* INTEGER ******* 60070 MAX = 8 60080 ACT$ = "1234567890-+,=<>^" 60090 IF NE = 0 THEN ACT$ = "1234567890-+," 60100 PRINT ">________<"; 60110 GOTO 60240 60120 REM ******* SINGLE PRECISION ******* 60130 MAX = 10 60140 ACT$ = "1234567890-+,.%$=<>^" 60150 IF NE = 0 THEN ACT$ = "1234567890+-,.%$" 60160 PRINT ">__________<"; 60170 GOTO 60240 60180 REM ******* DOUBLE PRECISION ******* 60190 MAX = 20 60200 ACT$ = "1234567890-+,.%$=<>^" 60210 IF NE = 0 THEN ACT$ = "1234567890+-,.%$" 60220 PRINT ">____________________<"; 60230 GOTO 60240 60240 REM ********** NUMBER CHECK ********** 60250 REM - see the remarks on the database input subroutine if you want to see how it works ******* NUMBER CHECK ********** 60250 REM - see the remarks on the database input subroutine if you want to