Listing of file='STKMEN.BAS;01' on disk='vmedia/chip_57-sector.ccvf'
50 REM WRITTEN BY TERRY RICKARD....PH.3809007. 55 REM 60 REM TO RUN THE PROGRAMS YOU WILL NEED TWO RND. FILES 62 REM "NAME" AND "DATA" IF THEY ARE NOT ALREADY ON THE DISK 64 REM THEN WHEN YOU RUN THEM FOR THE FIRST TIME THE PROGRAMS 66 REM WILL WRITE THEN, AND FILL THEM WITH DATA. 82 REM 84 REM IF YOU GET THE BUG , AND FIND THAT YOU WANT TO GET 86 REM SERIOUS ABOUT THE STOCK MARKET THEN THE BEST PLACE 88 REM TO GET THE INFORMATION FOR THE NAME DATA FILE IS THE 89 REM STOCK EXCHANGE JOURNAL,OBTAINABLE FROM THE STOCK 90 REM EXCHANGE....THEY ALSO HAVE A BOOK SHOP. 91 REM 99 REM 100 POKE 33278,0 125 PLOT 12 127 PLOT 6,7,14:PRINT TAB( 20):PRINT "MENU" 130 REM I AM WORKING ON AN OTHER PROGRAM THAT WILL PROFORM 132 REM MATHEMATICAL ANALYSIS TO EVALUATE THE DATA IN THE 134 REM FILES , TO PICK OUT AND LIST THE BEST PROSPECTS. 136 REM IN THE NAME FILE YOU WILL FIND A HEADING 'CAT' IN 137 REM THIS BOX YOU CAN PUT ONE LETTER, A CODE TO GROUP 138 REM DIFFERENT STOCKS INTO VARIOUS CATEGORIES E.G.'RETAIL' 139 REM 140 REM IMPROVEMENTS TO THESE PROGRAMS CAN BE MADE IN THE 141 REM FOLLOWING AREAS- DRAWING A SECOND GRAPH ON TOP OF 142 REM THE FIRST, CPI, LEADERS INDEXES ECT. OUT PUT TO 143 REM TO A PRINTER, AND HOOKING UP TO A NETWORK VIA A 144 REM MODEM TO RECEIVE AND INPUT THE DATA. 145 REM 146 REM I WILL BE INTERESTED TO HEAR FROM ANYONE INTERESTED 147 REM 160 PRINT 161 PLOT 15 200 PLOT 15,6,1,3,0,10 300 PRINT TAB( 15):PRINT "1 - WRITE, READ OR MODIFY THE NAME DATA LIST" 305 PLOT 6,3 310 PRINT TAB( 15):PRINT "2 - WRITE, READ OR MODIFY THE WEEKLY DATA LIST" 320 PLOT 6,2 400 PLOT 3,0,18,6,5 410 PRINT "ENTER A NUMBER":PLOT 3,16,18 420 KB= PEEK (33278):IF KB= 0GOTO 420 430 IF KB< 49OR KB> 55GOTO 420 440 KB= INT (KB- 48):ON KBGOTO 500,600,700,800,900,1000,1100 500 LOAD "RNAME":RUN 600 LOAD "RDATA":RUN 700 REM 800 REM 900 REM 1000 REM 1100 GOTO 100