Shareware Overload

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

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

Wrap

BASIC Source File | 1980-01-01 | 29KB | 1,053 lines

3 DEFDBL X 4 DEFINT A-W,Y-Z 5 PRINT FRE(0) 10 DIM K$(80) 40 DIM XPRT(50),LBL$(50) 45 DIM L$(20,20) 50 DIM X(500),SCR(500),LIN(500),COL(500),CT(500),TF(500),CF(500),XCST(500),DS(500) 60 PRINT FRE(0) 70 CH = 29 75 PRINT FRE(0) 90 CKT = 1 95 LKT = 1 98 SN = 1 100 GOSUB 50000 200 GOTO 40000 500 REM ******* CLS 510 CLS 520 RETURN 600 REM ** LOCATE COLUMN = 1 610 TB = 1 650 LOCATE LI,TB 660 RETURN 4000 REM INPUT A NUMBER 4100 FOR T = 1 TO MAXN 4110 IF SCR(T) = SN AND LIN(T) = LKT THEN 4200 4120 NEXT T 4122 GOSUB 9000 4125 N = 0 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 4130 RETURN 4200 IF CKT < (COL(T) - 5) OR CKT > (COL(T) + 5) OR CT(T) = 30 THEN 4120 4210 N = T 4220 RETURN 5000 REM - FIND TARGET FIELD 5005 CFFLG = 5 5010 GOSUB 9000 5020 PRINT "MOVE THE CURSOR TO THE TARGET FIELD THEN PRESS RETURN " 5060 MFLG = 5 5070 GOSUB 60000 5075 IF CSFLG = 5 THEN 30000 5080 MFLG = 1 5085 GOSUB 4000 5090 IF N = 0 THEN 5000 5100 TF(NH) = N 5110 TFH = N 5190 CFFLG = 1 5200 RETURN 5500 REM 5505 CFFLG2= 5 5510 GOSUB 9000 5520 PRINT "MOVE THE CURSOR TO ANOTHER FIELD YOU WANT TO ADD THEN PRESS RETURN" 5560 MFLG = 5 5570 GOSUB 60000 5575 IF CSFLG = 5 THEN 30000 5580 MFLG = 1 5585 GOSUB 4000 5590 IF N = 0 THEN 5500 5600 TF(N) = TFH 5610 CT(N) = 1 5690 CFFLG2= 1 5700 RETURN 6000 REM - FIND SECONDARY CALCULATIN FIELD 6005 SFLG = 5 6010 GOSUB 9000 6020 PRINT "MOVE THE CURSOR TO THE SECONDARY CALCULATION FIELD THEN PRESS RETURN" 6060 MFLG = 5 6070 GOSUB 60000 6075 IF CSFLG = 5 THEN 30000 6080 MFLG = 1 6085 GOSUB 4000 6090 IF N = 0 THEN 6000 6100 CF(NH) = N 6110 CF(N) = NH 6120 TF(N) = TF(NH) 6130 CT(N) = CT(NH) 6190 SFLG = 1 6200 RETURN 6600 REM - FIND SECONDARY CALCULATIN FIELD 6605 SFLG = 5 7000 REM - GET CONSTANT FOR CALCULATION 7100 GOSUB 9000 7110 PRINT "ENTER THE CONSTANT " 7120 GOSUB 60180 7130 XCST(NH) = DT# 7140 RETURN 8000 REM ***** FILE NAME ACCEPLABLE TEST ************ 8010 TEST = 1 8100 FOR Q = 1 TO LEN(A$) 8110 K$(Q) = MID$(A$,Q,1) 8120 C = ASC(K$(Q)) 8130 IF C < 48 OR C > 122 THEN TEST = 4 8140 IF Q = 1 AND ( C < 65 OR C > 122 ) THEN TEST = 4 8150 NEXT Q 8190 RETURN 9000 REM CLEAR BOTTOM LINES 9010 LI = 21 9015 GOSUB 600 9020 PRINT " "; 9025 PRINT " "; 9030 PRINT " "; 9040 PRINT " "; 9042 GOSUB 600 9050 RETURN 20000 REM INPUT A NUMBER 20100 GOSUB 9000 20110 REM FIND NUMBER 20120 GOSUB 4000 20130 IF N = 0 THEN RETURN 20140 NH= N 20200 LKT = LIN(T) 20210 CKT = COL(T) 20810 GOSUB 60180 20815 T = NH 20820 IF DS(T) = 2 THEN GOSUB 49020 20822 T2= LEN(A$) 20823 T$ = "__________" 20824 B$ = MID$(T$,T2) 20826 A$ = B$ + A$ 20828 XC = DT# - X(T) 20830 X(T) = DT# 20835 GOSUB 21130 20838 T = NH 20840 IF CT(T) > 0 THEN GOTO 27000 20850 RETURN 21000 REM input overlay line 21010 GOSUB 9000 21020 PRINT "ENTER THE STRING " 21100 MAX = 77 21120 GOSUB 62030 21130 GOSUB 21200 21140 LI = LKT 21150 GOSUB 600 21155 PRINT L$(SN,LKT) 21160 LI = LKT 21170 TB = CKT 21180 GOSUB 650 21185 PRINT "*" 21190 RETURN 21200 IF L$(SN,LKT) = "" THEN L$(SN,LKT) = " " 21205 L$ = L$(SN,LKT) 21210 B$ = MID$(L$,1,CKT) 21220 T = LEN(A$) 21230 T = CKT + T+1 21240 C$ = MID$(L$,T) 21250 L$ = B$ + A$ + C$ 21255 L$(SN,LKT) = LEFT$(L$,78) 21260 RETURN 22000 REM ENTER A NEW NUMBER SUBROUTINE 22010 GOSUB 9000 22020 PRINT " HOW DO YOU WANT THIS NUMBER DISPLAYED " 22030 PRINT " 1 - Standard 2 - Dollar and cents format 0 - None" 22040 GOSUB 60000 22050 IF DT# < 0 OR DT# > 2 THEN 22000 22055 IF DT# = 0 THEN RETURN 22060 IF DT# = 2 THEN 22500 22110 MAXN = MAXN + 1 22120 SCR(MAXN) = SN 22130 LIN(MAXN) = LKT 22140 COL(MAXN) = CKT 22150 A$ = "__________0" 22200 GOSUB 21130 22210 GOSUB 9000 22220 PRINT "DO YOU WANT PLACE A NEW NUMBER RIGHT BELOW THIS ONE" 22230 PRINT " 1 - YES 2 - NO" 22240 GOSUB 60000 22250 IF DT# < 1 OR DT# > 2 THEN 22210 22260 IF DT# = 2 THEN RETURN 22270 LKT = LKT + 1 22275 GOSUB 22400 22280 GOTO 22110 22300 RETURN 22400 REM ERASE * 22410 LI = LKT - 1 22420 TB = CKT 22430 GOSUB 650 22440 PRINT " "; 22450 RETURN 22500 REM ENTER A NEW NUMBER SUBROUTINE 22600 GOSUB 9000 22610 MAXN = MAXN + 1 22615 DS(MAXN) = 2 22620 SCR(MAXN) = SN 22630 LIN(MAXN) = LKT 22640 COL(MAXN) = CKT 22650 A$ = "$_________0" 22700 GOSUB 21130 22710 GOSUB 9000 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 22760 IF DT# = 2 THEN RETURN 22770 LKT = LKT + 1 22775 GOSUB 22400 22780 GOTO 22610 22800 RETURN 23000 REM DEFINE CALCULATION 23100 GOSUB 9000 23150 GOSUB 4000 23200 REM DEFINE CALCULATION 23210 IF N = 0 THEN RETURN 23215 NH = 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 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 " 31090 PRINT "5-CLEAR 6-SAVE 7-BARCHART 8-PRINT SCREEN 9-PRINT DESCRIPTION " 31300 LI = 25 31310 GOSUB 600 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 31340 GOSUB 600 31490 MFLG = 5 31500 GOSUB 60000 31501 IF CSFLG = 5 THEN 30000 31502 IF DT# < 0 OR DT# >9 THEN 31000 31505 MFLG = 1 31506 IF CSFLG = 5 THEN 30000 31507 IF DT# = 0 THEN 51200 31508 OPT = DT# 31510 ON DT# GOSUB 20000,21000,22000,23000,37000,41000,46000,45000,44000 31800 IF OPT = 7 THEN 30000 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 34110 IF C = 83 OR C = 115 THEN CFLG = 2 34120 IF C = 68 OR C = 100 THEN CFLG = 3 34130 IF C = 70 OR C = 102 THEN CFLG = 4 34140 IF C = 69 OR C = 101 THEN CFLG = 5 34150 IF C = 88 OR C = 120 THEN CFLG = 6 34152 IF C = 82 OR C = 114 THEN CFLG = 7 34154 IF C = 67 OR C = 99 THEN CFLG = 8 34156 IF C = 71 OR C = 103 THEN CFLG = 9 34158 IF C = 81 OR C = 113 THEN CFLG = 10 34160 IF C = 73 OR C = 105 THEN CFLG = 11 34163 IF C = 74 OR C = 106 THEN CFLG = 12 34165 IF C = 75 OR C = 107 THEN CFLG = 13 34175 IF C = 77 OR C = 109 THEN CFLG = 14 34180 IF CFLG > 10 THEN 36000 34200 IF CFLG = 0 THEN RETURN 34300 REM OVERPRINT OLD LINE 34310 TB = CKT 34320 LI = LKT 34400 GOSUB 650 34410 L$ = L$(SN,LKT) 34420 A$ = MID$(L$,CKT,1) 34430 IF A$ = "" THEN PRINT " " ELSE PRINT A$ 34500 ON CFLG GOSUB 35000,35100,35200,35300,35400,35500,35450,35550,35350,35050 34510 TB = CKT 34520 LI = LKT 34530 GOSUB 650 34540 PRINT "*" 34550 LI = 24 34560 TB = 2 34570 GOSUB 650 34580 RETURN 35000 REM MOVE FIVE LEFT 35010 CKT = CKT - 5 35020 IF CKT < 1 THEN CKT = 1 35040 RETURN 35050 REM MOVE 20 LEFT 35060 CKT = CKT - 20 35070 IF CKT < 1 THEN CKT = 1 35080 RETURN 35100 REM ** LEFT ONE SPACE 35110 CKT = CKT - 1 35120 IF CKT < 1 THEN CKT = 1 35130 RETURN 35200 REM ** RIGHT ONE SPACE 35210 CKT = CKT + 1 35220 IF CKT > 75 THEN CKT = 75 35230 RETURN 35300 CKT = CKT + 5 35310 IF CKT > 75 THEN CKT = 75 35320 RETURN 35350 CKT = CKT + 20 35360 IF CKT > 75 THEN CKT = 75 35370 RETURN 35400 REM ** UP ONE LINE 35410 LKT = LKT - 1 35420 IF LKT < 1 THEN LKT = 1 35430 RETURN 35450 REM ** UP FOUR LINE 35460 LKT = LKT - 4 35470 IF LKT < 1 THEN LKT = 1 35480 RETURN 35500 REM ** DOWN ONE LINE 35510 LKT = LKT + 1 35520 IF LKT > 20 THEN LKT = 20 35530 RETURN 35550 REM ** DOWN FOUR LINE 35560 LKT = LKT + 4 35570 IF LKT > 20 THEN LKT = 20 35580 RETURN 35600 REM SCREEN UP 35610 SN = SN - 4 35620 IF SN < 1 THEN SN = 1 35630 RETURN 35700 REM SCREEN LEFT 35710 SN = SN - 1 35720 IF SN < 1 THEN SN = 1 35730 RETURN 35800 REM SCREEN RIGHT 35810 SN = SN + 1 35820 IF SN > 20 THEN SN = 20 35830 RETURN 35900 REM SCREEN DOWN 35910 SN = SN + 4 35920 IF SN > 20 THEN SN = 20 35930 RETURN 36000 REM CHANGE SCREENS 36100 GOSUB 500 36110 CFLG = CFLG - 10 36120 ON CFLG GOSUB 35600,35700,35800,35900 36125 CSFLG = 5 36130 RETURN 37000 REM RECALCULATE 37010 GOSUB 9000 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 37060 IF A$ = "Y" OR A$ = "y" THEN 37100 ELSE RETURN 37100 FOR T2= 1 TO MAXN 37105 IF CT(T2) = 30 THEN 37300 37110 X(T2) = 0 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) 37220 T = LEN(A$) 37230 T = C + T+1 37240 C$ = MID$(L$,T) 37250 L$(S,L) = B$ + A$ + C$ 37260 IF S = SN THEN GOSUB 27800 37300 NEXT T2 37310 RETURN 40000 REM 40080 PRINT "These are the files on your defalut disk drive :" 40100 PRINT "" 40120 FILES 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 40280 GOSUB 62030 40282 IF A$ = "" THEN 30000 40290 NM$ = A$ 40300 GOTO 43000 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 41210 GOSUB 62030 41215 IF A$ = "" THEN RETURN 41220 GOSUB 8000 41230 IF TEST = 4 THEN 41000 41240 NM$ = A$ 42000 REM WRITE SPREADSHEET 42010 GOSUB 9000 42020 PRINT " SAVEING YOUR SPREADSHEET ON DISK, PLEASE WAIT" 42100 OPEN "O",#1,NM$ 42110 WRITE #1,MAXN 42120 FOR T = 1 TO MAXN 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 42210 FOR T2 = 1 TO 20 42220 WRITE #1,L$(T,T2) 42230 NEXT T2 42240 NEXT T 42245 CLOSE 42250 RETURN 43000 REM READ SPREADSHEET 43040 PRINT "" 43050 PRINT "READING INFORMATION PLEASE WAIT" 43100 OPEN "I",#1,NM$ 43110 INPUT #1,MAXN 43120 FOR T = 1 TO MAXN 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 43210 FOR T2 = 1 TO 20 43220 INPUT #1,L$(T,T2) 43230 NEXT T2 43240 NEXT T 43245 CLOSE 43250 GOTO 30000 44000 REM PRINT SPREADSHEET 44010 GOSUB 9000 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 44060 IF A$ = "Y" OR A$ = "y" THEN 44100 ELSE RETURN 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 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 44210 FOR T2 = 1 TO 20 44215 IF L$(T,T2) = "" THEN 44230 44218 LPRINT "SCREEN ";T;" LINE ";T2 44220 LPRINT L$(T,T2) 44230 NEXT T2 44240 NEXT T 44250 RETURN 45000 REM PRINT SCREEN ON PAPER 45010 GOSUB 9000 45020 PRINT " PRINT SCREEN ROUTINE " 45030 PRINT " Make sure your printer is no " 45040 PRINT " DO YOU WANT TO PRINT THIS SCREEN (Y/N) " 45050 A$ = INKEY$ 45055 IF A$ = "" THEN 45050 45060 IF A$ = "Y" OR A$ = "y" THEN 45070 ELSE RETURN 45070 GOSUB 9000 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 45085 IF DT# = 2 THEN 45200 45100 FOR T = 1 TO 20 45110 LPRINT L$(SN,T) 45120 NEXT T 45130 RETURN 45200 REM PRINT SECOND SCREEN OVER 45210 GOSUB 9000 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 45250 MAXL = DT# 45255 WIDTH 255 45260 FOR T = 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) 45290 L$ = LEFT$(L$,MAXL) 45300 LPRINT L$ 45400 NEXT T 45500 RETURN 46000 REM BAR CHART 46010 GOSUB 9000 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 46060 IF A$ = "Y" OR A$ = "y" THEN 46070 ELSE RETURN 46070 XMAX = 0 46080 NCT = 0 46100 REM INPUT NUMBERS FOR CHART 46105 MFLG = 5 46110 NCT = NCT + 1 46120 GOSUB 9000 46130 PRINT " MOVE THE * TO THE ";NCT;" th NUMBER FOR THE BAR CHART" 46135 PRINT " THEN PRESS RETURN " 46140 GOSUB 60000 46150 GOSUB 4000 46160 IF N = 0 THEN 46120 46165 IF X(N) > XMAX THEN XMAX = X(N) 46170 XPRT(NCT)=X(N) 46200 GOSUB 9000 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) 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 47000 REM PRINT BAR CHART 47100 GOSUB 500 47200 FOR T = 1 TO NCT 47210 PRINT LBL$(T),XPRT(T) 47220 T1#= XPRT(T)/XMAX 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 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 RETURN 48000 REM PRINT BAR CHART 48200 FOR T = 1 TO NCT 48210 LPRINT LBL$(T),XPRT(T) 48220 T1#= XPRT(T)/XMAX 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 RETURN 49000 REM PUT DOLLAR SIGNS IN 49010 GOSUB 4000 49020 XA = DT# 49100 XA = XA * 100 + .01 49110 XA = INT(XA) 49120 T$ = STR$(XA) 49130 T$ = "__________" + T$ 49140 T$ = RIGHT$(T$,8) 49150 A$ = MID$(T$,1,3) 49160 B$ = MID$(T$,4,3) 49170 C$ = MID$(T$,7,2) 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 A$ = "" 60260 K$(20) = " " 60270 KTMAX = 0 60280 FOR T9 = 1 TO MAX 60290 K$(T9) = " " 60300 NEXT T9 60310 DIG$ = "1234567890." 60320 DOTFLG = 0 60330 T2 = MAX + 1 60340 FOR T6 = 1 TO T2 60350 PRINT CHR$(CH); 60360 NEXT T6 60370 IF INKEY$ = "" GOTO 60380 ELSE GOTO 60370 60380 KT = 0 60390 REM *********** CHECK ALFANUMERIC INPUT FOR LENGTH *********** 60400 KT = KT + 1 60410 REM 60420 W$ = INKEY$ 60430 IF W$ = "" GOTO 60420 60440 C = ASC(W$) 60442 IF MFLG < 5 THEN 60450 60444 GOSUB 34000 60446 IF CSFLG = 5 THEN RETURN 60450 IF C = 0 THEN GOSUB 61900 60460 IF C = 13 GOTO 60580 60470 IF C = 17 OR C = 8 GOTO 61150 60480 IF C = 19 GOTO 60670 60490 IF C = 4 GOTO 60720 60500 IF C = 6 GOTO 60780 60510 IF C = 1 GOTO 60960 60520 IF KT > MAX GOTO 60410 60530 IF INSTR(ACT$,W$) = 0 GOTO 61230 60540 K$(KT) = W$ 60550 PRINT K$(KT); 60560 IF KT > KTMAX THEN KTMAX = KT 60570 GOTO 60400 60580 REM ********** RETURN ********** 60590 FOR T9 = 1 TO KTMAX 60600 A$ = A$ + K$(T9) 60610 NEXT T9 60620 IF KTMAX = 0 THEN PRINT "1"; 60630 IF KTMAX = 0 THEN DT# = 1 60635 IF KTMAX = 0 THEN A$ = "1" 60640 IF KTMAX = 0 THEN RETURN 60660 GOTO 61260 60670 REM ********* MOVE CURSE BACK ******** 60680 IF KT = 1 GOTO 60410 60690 KT = KT - 1 60700 PRINT CHR$(CH); 60710 GOTO 60410 60720 REM ********* MOVE CURSER FORWARD ********* 60730 IF KT >= MAX GOTO 60410 60740 IF KT > (KTMAX + 1) GOTO 60410 60750 PRINT K$(KT); 60760 KT = KT + 1 60770 GOTO 60410 60780 REM ********** INSERT *********** 60790 IF KT > KTMAX GOTO 60410 60800 X9 = MAX 60810 WHILE X9 > KT 60820 X9 = X9 - 1 60830 K$(X9 + 1) = K$(X9) 60840 WEND 60850 K$(KT) = " " 60860 KTMAX = KTMAX + 1 60870 IF KTMAX > MAX THEN KTMAX = MAX 60880 FOR T9 = KT TO KTMAX 60890 PRINT K$(T9); 60900 NEXT T9 60910 T6 = (KTMAX - KT) + 1 60920 FOR T7 = 1 TO T6 60930 PRINT CHR$(CH); 60940 NEXT T7 60950 GOTO 60410 60960 REM ********** DELETE *********** 60970 IF KT > KTMAX GOTO 60410 60980 IF KTMAX = 1 GOTO 60410 60990 K$(MAX + 1) = "" 61000 X9 = KT 61010 WHILE X9 <= MAX 61020 K$(X9) = K$(X9 + 1) 61030 X9 = X9 + 1 61040 WEND 61050 KTMAX = KTMAX - 1 61060 FOR T9 = KT TO KTMAX 61070 PRINT K$(T9); 61080 NEXT T9 61090 PRINT "_"; 61100 T7 = (KTMAX - KT) + 2 61110 FOR T8 = 1 TO T7 61120 PRINT CHR$(CH); 61130 NEXT T8 61140 GOTO 60410 61150 REM ********* BACKSPACE ******** 61160 IF KT = 1 GOTO 60410 61170 KT = KT - 1 61180 PRINT CHR$(CH); 61190 K$(KT) = " " 61200 PRINT "_"; 61210 PRINT CHR$(CH); 61220 GOTO 60410 61230 REM ******* INPUT NOT ACCEPTABLE ******** 61235 IF MFLG = 5 THEN 61250 61240 PRINT CHR$(7); 61250 GOTO 60420 61260 REM ********* CLEAR STRINGS ******** 61270 MAX = LEN(A$) 61280 D2$ = "" 61290 D1$ = "" 61300 DFLG = 0 61310 FOR Q93 = 1 TO MAX 61320 R$ = MID$(A$,Q93,1) 61330 IF INSTR(DIG$,R$) = 0 GOTO 61400 61340 IF R$ = "." OR DFLG = 1 GOTO 61380 61350 IF DFLG = 1 GOTO 61380 61360 D2$ = D2$ + R$ 61370 GOTO 61400 61380 D1$ = D1$ + R$ 61390 DFLG = 1 61400 NEXT Q93 61410 DA# = VAL(D2$) 61420 D1# = VAL(D1$) 61430 DT# = DA# + D1# 61440 IF K$(1) = "-" THEN DT# = -DT# 61450 RETURN 61900 REM ****** CHECK FOR ASC0 61910 S4$ = INKEY$ 61920 C2 = ASC(S4$) 61930 IF C2 = 83 THEN C = 1 61940 IF C2 = 82 THEN C = 6 61950 IF C2 = 75 THEN C = 19 61960 IF C2 = 77 THEN C = 4 61970 RETURN 62000 REM ********** ALPHANUMERIC CHECK ************** 62010 REM MAX = FL(A,Q) 62020 GOTO 62040 62030 REM ******** MAX SET IN PROGRAM ******** 62040 A$ = "" 62050 PRINT ">"; 62060 FOR N9 = 1 TO MAX 62070 K$(N9) = "" 62080 PRINT "_"; 62090 NEXT N9 62100 PRINT "<"; 62110 T2 = MAX + 1 62120 FOR T4 = 1 TO T2 62130 PRINT CHR$(CH); 62140 NEXT T4 62150 KT = 0 62160 KTMAX = 1 62170 REM *********** CHECK ALFANUMERIC INPUT FOR LENGTH *********** 62180 KT = KT + 1 62190 PRINT TAB(KT+1)""; 62200 K$ = INKEY$ 62210 IF K$ = "" GOTO 62200 62220 C = ASC(K$) 62230 IF C = 0 THEN GOSUB 61900 62240 IF C = 13 GOTO 62350 62250 IF C = 17 OR C = 8 GOTO 62920 62260 IF C = 19 GOTO 62450 62270 IF C = 4 GOTO 62500 62280 IF C = 6 GOTO 62560 62290 IF C = 1 GOTO 62730 62300 IF KT > MAX GOTO 62190 62310 K$(KT) = K$ 62320 PRINT K$(KT); 62330 IF KT > KTMAX THEN KTMAX = KT 62340 GOTO 62180 62350 REM ********** RETURN ********** 62360 FOR T9 = 1 TO MAX 62370 A$ = A$ + K$(T9) 62420 NEXT T9 62440 RETURN 62450 REM ********* MOVE CURSE BACK ******** 62460 IF KT = 1 GOTO 62190 62470 KT = KT - 1 62480 PRINT CHR$(CH); 62490 GOTO 62190 62500 REM ********* MOVE CURSER FORWARD ********* 62510 IF KT >= MAX GOTO 62190 62520 IF KT > KTMAX GOTO 62190 62530 PRINT K$(KT); 62540 KT = KT + 1 62550 GOTO 62190 62560 REM ********** INSERT *********** 62570 X9 = MAX 62580 WHILE X9 > KT 62590 X9 = X9 - 1 62600 K$(X9 + 1) = K$(X9) 62610 WEND 62620 K$(KT) = " " 62630 KTMAX = KTMAX + 1 62640 IF KTMAX > MAX THEN KTMAX = MAX 62650 FOR T9 = KT TO KTMAX 62660 PRINT K$(T9); 62670 NEXT T9 62680 T6 = (KTMAX - KT) +1 62690 FOR T7 = 1 TO T6 62700 PRINT CHR$(CH); 62710 NEXT T7 62720 GOTO 62190 62730 REM ********** DELETE *********** 62740 IF KT > KTMAX GOTO 62200 62750 IF KTMAX = 1 GOTO 62190 62760 K$(MAX + 1) = "" 62770 X9 = KT 62780 WHILE X9 <= KTMAX 62790 K$(X9) = K$(X9 + 1) 62800 X9 = X9 + 1 62810 WEND 62820 KTMAX = KTMAX - 1 62830 FOR T9 = KT TO KTMAX 62840 PRINT K$(T9); 62850 NEXT T9 62860 PRINT "_"; 62870 T7 = (KTMAX - KT) + 2 62880 FOR T6 = 1 TO T7 62890 PRINT CHR$(CH); 62900 NEXT T6 62910 GOTO 62190 62920 REM ********* BACKSPACE ******** 62930 IF KT = 1 GOTO 62190 62940 K$(KT) = " " 62950 KT = KT - 1 62960 K$(KT) = " " 62970 PRINT CHR$(CH); 62980 PRINT "_"; 62990 PRINT CHR$(CH); 63000 GOTO 62190 " " 62950 KT = KT - 1 62960 K$(KT) = " " 62970 PRINT CHR$(CH); 62980 PRINT "_";