Source Code
50 REM %S%T%O%C%K% %B%U%Y%I%N%G% %G%U%I%D%E
130 REM GOSUB 1710
140 PRINT "USE THE FOLLOWING QUESTIONNAIRE TO ";
150 PRINT "HELP DETERMINE IF A PARTICULAR STOCK ";
160 PRINT "WILL BE A GOOD INVESTMENT. THERE ARE ";
170 PRINT "15 QUESTIONS WITH DIFFERENT "
180 PRINT "POINT VALUES FOR EACH ANSWER. A TOTAL SCORE ";
190 PRINT "OF 27 OR BETTER IS ARECOMMENDATION ";
200 PRINT "TO INVEST IN THE STOCK. THE PRELIMINARY ";
210 PRINT "QUESTION MUST BE ANSWERED WITH A ""NO"""
220 PRINT "TO ALLOW ENTRY INTO THE QUESTIONNAIRE."
230 PRINT
240 PRINT "PRELIMINARY QUESTION"
250 PRINT
260 PRINT "IS THE COMPANY IN A DEFICIT?"
270 PRINT "1=YES//0=NO"
280 INPUT A
290 IF A=1 THEN GOTO 1740
300 IF A=0 THEN GOTO 320
310 GOTO 230
320 CLS
330 PRINT "STOCK BUYING GUIDE"
340 PRINT
350 LET S1=0
360 PRINT "1-STOCK PRICE"
370 PRINT
380 PRINT "$6 TO $30 = 4 POINTS"
390 PRINT "GREATER THAN $30 = 2 POINTS"
400 PRINT "LESS THAN $6 = 0"
410 GOSUB 1610
420 GOSUB 1660
430 PRINT "2-PRICE FLUCTUATION"
440 PRINT "(LAST 6 MONTHS)"
450 PRINT
460 PRINT "UP=2 POINTS"
470 PRINT "DOWN=0"
480 PRINT "NO CHANGE=1 POINT"
490 GOSUB 1610
500 GOSUB 1660
510 PRINT "3-PE RATIO"
520 PRINT
530 PRINT "4/1 TO 8/1=4 POINTS"
540 PRINT "9/1 TO 13/1=3 POINTS"
550 PRINT "14/1 TO 17/1=2 POINTS"
560 PRINT "18/1 TO 24/1=1 POINT"
570 PRINT "25/1 AND ABOVE= 0"
580 GOSUB 1610
590 GOSUB 1660
600 PRINT "4-VOLUME SOLD,LAST(HUNDREDS)"
610 PRINT
620 PRINT "0 TO 300=0 POINTS"
630 PRINT "301 TO 600=1"
640 PRINT "601 TO 1000=2"
650 PRINT "1001 AND GREATER=3"
660 GOSUB 1610
670 GOSUB 1660
680 PRINT "5-DIVIDENDS"
690 PRINT
700 PRINT "NONE=0 POINTS"
710 PRINT "1 TO 2 PCT.=1"
720 PRINT "2.1 TO 3 PCT.=2"
730 PRINT "3.1 TO 6 PCT.=3"
740 PRINT "6.1 TO 12 PCT.=4"
750 PRINT "12.1 PCT AND ABOVE=2"
760 GOSUB 1610
770 GOSUB 1660
780 PRINT "6-EARNINGS"
790 PRINT
800 PRINT "UP=2 POINTS"
810 PRINT "DOWN= 0"
820 PRINT "NO CHANGE=1"
830 GOSUB 1610
840 GOSUB 1660
850 PRINT "7-RECENT NEWS ABOUT COMPANY"
860 PRINT
870 PRINT "NO NEWS = 1"
880 PRINT "GOOD NEWS=2"
890 PRINT "BAD NEWS=0"
900 GOSUB 1610
910 GOSUB 1660
920 PRINT "8-INVESTMENT TYPE"
930 PRINT
940 PRINT "SHORT TERM=2"
950 PRINT "LONG TERM=1"
960 GOSUB 1610
970 GOSUB 1660
980 PRINT "9-RECENT SPLITS"
990 PRINT
\n1000 PRINT "YES=4"
\n1010 PRINT "NO=0"
\n1020 GOSUB 1610
\n1030 GOSUB 1660
\n1040 PRINT "10-BROKER COMMISSION"
\n1050 PRINT
\n1060 PRINT "3 PCT. OR LESS=2 POINTS"
\n1070 PRINT "3.1 TO 4 PCT.=1"
\n1080 PRINT "4.1 OR GREATER=0"
\n1090 GOSUB 1610
\n1100 GOSUB 1660
\n1110 PRINT "11-EXCHANGE TRADED ON"
\n1120 PRINT
\n1130 PRINT "NEW YORK=4"
\n1140 PRINT "AMERICAN=2"
\n1150 PRINT "OTHERS = 0"
\n1160 GOSUB 1610
\n1170 GOSUB 1660
\n1180 PRINT "12-NR YRS IN BUSINESS"
\n1190 PRINT
\n1200 PRINT "0 TO 6=0"
\n1210 PRINT "7 TO 20=1"
\n1220 PRINT "21 TO 30=2"
\n1230 PRINT "31 TO 40=3"
\n1240 PRINT "41 AND ABOVE=4"
\n1250 GOSUB 1610
\n1260 GOSUB 1660
\n1270 PRINT "13-SIZE OF BUSINESS"
\n1280 PRINT
\n1290 PRINT "LARGE CORP/CO=4"
\n1300 PRINT "MEDIUM SIZE=2"
\n1310 PRINT "SMALL=0"
\n1320 GOSUB 1610
\n1330 GOSUB 1660
\n1340 PRINT "14-EARNINGS AND DIVIDEND RANKING"
\n1350 PRINT
\n1360 PRINT "A+=4 POINTS"
\n1370 PRINT "A = 3"
\n1380 PRINT "A-=3"
\n1390 PRINT "B+=2"
\n1400 PRINT "B=2"
\n1410 PRINT "B-=1"
\n1420 PRINT "C=0"
\n1430 PRINT "D=0"
\n1440 GOSUB 1610
\n1450 GOSUB 1660
\n1460 PRINT "15-STOCK MARKET CONDITIONS"
\n1470 PRINT
\n1480 PRINT "UP=2 POINTS"
\n1490 PRINT "DOWN/NO CHANGE=0"
\n1500 GOSUB 1610
\n1510 GOSUB 1660
\n1520 PRINT
\n1530 PRINT "FINAL POINT SCORE IS ";S1
\n1540 PRINT
\n1550 IF S1<27 THEN GOTO 1740
\n1560 PRINT
\n1570 PRINT "THE STOCK IS ACCEPTABLE"
\n1580 PRINT
\n1590 PRINT "IT IS RECOMMENDED FOR PURCHASE"
\n1600 STOP
\n1610 PRINT
\n1620 PRINT "ENTER POINT VALUE"
\n1630 INPUT S
\n1640 LET S1=S+S1
\n1641 CLS
\n1650 RETURN
\n1660 PRINT
\n1670 PRINT "POINTS SO FAR = ";S1
\n1680 PRINT
\n1690 PRINT
\n1700 RETURN
\n1710 FOR A=1 TO 900
\n1720 NEXT A
\n1730 RETURN
\n1740 PRINT
\n1750 PRINT "THE STOCK IS NOT ACCEPTABLE"
\n1760 PRINT
\n1770 PRINT "IT IS %N%O%T RECOMMENDED FOR PURCHASE"
\n1790 GOTO 1600
\n1800 SAVE "1002%8"
\n1810 RUN
