:PROGRAM SMGRAPH1.4 - STOCK MARKET SYSTEM - BAR GRAPH PROGRAM [ ,,: ,: P: AZ: BASE 1 ` : J  : J,"": J: V j SEG:DISPLAY( ) 0@ tB:C:Y:T:X: P()_ DDEV$"B:":MAXXo:MAXPZ  BLANK(): J : BLANK(J): J  &H8B55,&HB8EC,&H0600,&H07B7,&H768B,&H8A0C,&H8B2C  &H0A76,&H0C8A,&H768B,&H8A08,&H8B34,&H0676,&H148A5 &HCDFE,&HC9FE,&HCEFE,&HCAFE,&H10CD,&HCA5D,&H0008,&H0000a SCROLL(!): J !: SCROLL(J): J &H8B55,&H50EC,&H5153,&H5652,&HB68B,&H0010,&H2C8A,&HB68B &H000E,&H0C8A,&HB68B,&H000C,&H348A,&HB68B,&H000A,&H148A &HB68B,&H0008,&H3C8A,&HB68B,&H0006,&H048A,&HCDFE,&HC9FE` &HCEFE,&HCAFE,&H06B4,&H10CD,&H5A5E,&H5B59,&H5D58,&H0CCA,&H0000# NDAM( ): J  : NDAM(J): J( 31,28,31,30,31,30,31,31,30,31,30,31-CURDT$:CURYR((CURDT$,))2CURMO((CURDT$,)):CURDA((CURDT$,,))D7NDAM()(CURYR  ):JCURMO:CURJDCURDAp< J JJ:CURJDCURJDNDAM(J): <ACURWD(((CURYR)6)CURJD) : CURWD CURWD XREC$(MAXX) TPDT!(MAXP),SVOL!(MAXP),HIPR!(MAXP),LOPR!(MAXP). CLPR!(MAXP),MAVS!(MAXP),MAVN!(MAXP),MAVL!(MAXP)T T: XCNT "SMADDEL1.BAS"t XTL,,: :XTP: XSP:XSLXTL: (:  ,,: ();" ";();" Home End PgUp PgDn"; " are used to select an individual stock. ";"G=Graph of data for selected stock ";k" A=Add or delete any stock H=Help""D=Display data for selected stock ";" E=Enter data for any stock Q=Quit""Press appropriate key for required func";,"tion. ";JICHR$: ICHR$"" j SEG: ,( ) & ,.,:ICHR$: ICHR$"" 0 ,,: (ICHR$) v:FUN(,"GHIOPQ",(ICHR$,,))D FUN f&:  : \&N FUN >,v,,,,4X FUN  : jv ICHR$"G" ICHR$"g" \&: H!: f :   ICHR$"D" ICHR$"d" \&: H!: t  ICHR$"E" ICHR$"e" \&: R:  ICHR$"A" ICHR$"a" \&: : * ICHR$"H" ICHR$"h" \&: %: [ ICHR$"Q" ICHR$"q"  : f&: FILN$"SMGRAPH1.HS1":  : : (:  \&: 0%: YES : %: ,,"Do you want to add or delete a stock";  :%: YES A  ,,:"One moment please, loading program ...";_  :"SMADDEL1.BAS"  5 G * : *&* %:  R %: ,,\"Do you want to enter volume and prices";f :%: YES p ,,:"One moment please, loading program ...";>z :"SMENTRY1.BAS"_ 5 G  : *&o %: pt TPBP: *~ ,,: ();" ";();" Home End PgUp PgDn"; " are used to scan the trading period entries. ") "M=Moving average period temporary chang";Y "e until another stock selected H=Help" "G=Graph of data for this stock "; " S=Select another stock Q=Quit" "Press appropriate key for required func"; "tion. ";8 ICHR$: ICHR$""  X SEG: ,( )  ,.,:ICHR$: ICHR$""   ,,: (ICHR$) 2  FUN(,"GHIOPQ",(ICHR$,,)) FUN f&:  : \&  FUN ,,6,*,b," FUN  : ~ R2 ICHR$"G" ICHR$"g" \&: f :  < ICHR$"S" ICHR$"s" \&: : (: F ICHR$"M" ICHR$"m" \&: z: ~ Z ICHR$"H" ICHR$"h" \&: %: n d ICHR$"Q" ICHR$"q" x : f&:  Jn FILN$"SMGRAPH1.HS2":  : : Z: ~ hx \&: 0%: YES ~ q : ,:"Display Print Select Quit Help"; ICHR$: ICHR$""   ICHR$: ICHR$""   ICHR$"P" ICHR$"p" N:  7 ICHR$"D" ICHR$"d" l : t m ICHR$"S" ICHR$"s" l : : (:  ICHR$"H" ICHR$"h" l : 0 & ICHR$"Q" ICHR$"q" l : : : :  0 FILN$"SMGRAPH1.HS3":  : f :  : 0%: YES f :  D :Ll SEG: ,(( ) ) DISPLAYev ,,: P: ,,:s   FILN$ AS #: *& :LCNT ()   #,HBUF$: HBUF$; LCNT LCNTLCNT::   ICHR$: ICHR$""  + ICHR$: ICHR$""  D ICHR$()  f ICHR$( ) f&:  z ()   #: 5 > * G 4 : *&4 %:  > &: %:f : SEG: ,(( ) ) : ,p " ";: Yz PRICE!CLPR!(LASTP):EARNS!((XDAT$,),)):PERAT!:YIELD! "PE=";: EARNS! #z PERAT!PRICE!EARNS! PERAT!L} PERAT!G "NMF";:   PERAT!33 "##";PERAT!;:  "#.#";PERAT!;E DIVID!((XDAT$,%,)): PRICE!~ YIELD!DIVID!PRICE!k );"Y=";: YIELD!P~  YIELD!K} "##.#";YIELD!d;:  "#.##";YIELD!d; LGOAL((XDAT$,-,)):HGOAL((XDAT$,/,))! PRICE!~ (LGOAL HGOAL) V:! LGOAL HGOAL e! LGOAL HGOALLGOAL : LGOALHGOAL!TEMP((((LGOAL)PRICE!)L~YIELD!)d)!$ );TEMP;();"% TO";!.TEMP((((HGOAL)PRICE!)L~YIELD!)d)"8 TEMP;();"%";*"V ,: "###";TPCNT;K"` TPINT "D "; : "W ";s"jOUTDT!TPDT!(LASTP): n: OUTDT$;"LORN!:HIRN!:SVRN!:JLASTP"JJ: JTPCNT J" SVOL!(J)SVRN! SVRN!SVOL!(J)" HIPR!(J)HIRN! HIRN!HIPR!(J)## MAVS!(J)HIRN! HIRN!MAVS!(J)I# MAVN!(J)HIRN! HIRN!MAVN!(J)o# MAVL!(J)HIRN! HIRN!MAVL!(J)# LOPR!(J) LORN! # LOPR!(J)  : LORN!LOPR!(J): # LOPR!(J)LORN! LORN!LOPR!(J)$ MAVS!(J) LORN!  7$ MAVS!(J)  : LORN!MAVS!(J): ]$  MAVS!(J)LORN! LORN!MAVS!(J)~$ MAVN!(J) LORN! ($ MAVN!(J) F : LORN!MAVN!(J): F$( MAVN!(J)LORN! LORN!MAVN!(J)$F MAVL!(J) LORN! Z%%P MAVL!(J) d : LORN!MAVL!(J): dK%Z MAVL!(J)LORN! LORN!MAVL!(J)`%d JLASTP %LORN!(LORN!UU) :HIRN!(HIRN! r) % (HIRN!r)d HIRN!LORN! %PRSC!((HIRN!LORN!)() r) 0&TEMP!((PRSC!()(HIRN!LORN!)) )j&LORN!LORN!TEMP! :HIRN!LORN!PRSC!:TEMP!HIRN!& J : J,$& TEMP!33 "##.#";TEMP!;: & TEMP!33s "#.#";TEMP!;: ' TEMP!]B} ".#";TEMP!;' TEMP!TEMP!PRSC!*' J: ,T'LORN!(LORN!):HIRN!(HIRN!r)'PRSC!((HIRN!LORN!)()r)'LORN!LORN!((PRSC!()(HIRN!LORN!)))'HIRN!LORN!PRSC!:TEMP!HIRN!' J ( J,#: TEMP!;:TEMP!TEMP!PRSC!(" JO(,PRSC!PRSC!:SVSC!(SVRN!() r)t(1 ,#:TEMP$(SVSC!): TEMP$;(3 ,#:TEMP$(SVSC!): TEMP$;(6 ,#:TEMP$(SVSC!): TEMP$;(;SVSC!SVSC! (@ (,)(,): (,)(,))E (,)(,)A)J J  : (,J)(,J): Jc)^XSCTPCNT:XTPCNTXSC)|XSAVE:YSAVE:JLASTP)JJ: JTPCNT J) SVOL!(J) )(X,)(X,(SVOL!(J)SVSC!))* (CLPR!(J)) #z XSAVE:YSAVE: .* CLPR!(J) #z Y*Y1((LOPR!(J)LORN!)PRSC!)*Y2((HIPR!(J)LORN!)PRSC!)* Y2Y1 (X,Y1)(X,Y2) : (X,Y1)(X,Y1)*Y((CLPR!(J)LORN!)PRSC!) +(X,Y)(X,Y): MAVS!(J) #z E+Y((MAVS!(J)LORN!)PRSC!):(X,Y)(X,Y)r+ MAVL!(J) #z XSAVE:YSAVE: +Y((MAVL!(J)LORN!)PRSC!)+ YSAVE (XSAVE,YSAVE)(X,Y)+XSAVEX:YSAVEY+XXXSC: JLASTP +&/,N ,:"Is printer ready (Y=Yes, N=No)? ";M,XICHR$: ICHR$"" Xr,b ,!:ICHR$: ICHR$"" b,l (ICHR$,)"N" (ICHR$,)"n" ,v (ICHR$,)"Y" (ICHR$,)"y" : b - ,: "Press H to Halt after next print line. ";%- "LPT1:",: SEG E- ( );( );"A";();T- X Oe- Y `- TXP(Y):C(T): C C- B( T): B B- P(Y)C:P(Yd)B- . ( );();( );"L";( );( );5.  Y`  : (,P(Yd));(,P(Y));:b. ICHR$: ICHR$"H" ICHR$"h" XO. : ( );( );( );"@";: "LPT1:",P:.zNUMSMAPS:NUMLMAPL: %: ,,."The moving average periods must be at l"; /"east 2 but not more than";TPCNT;"days or "P/"weeks, and the long-term period must be";/" greater than or equal to the short- "/"term period. Or, enter zero wherever a";/" moving average period is not used. "0 ,,:"Enter the SHORT-term moving average period:";S0PARM:MINV!:MAXV!(TPCNT): x#: L o0 IDAT! &: 0MAPS(IDAT!): 0 ,,:"Enter the LONG-term moving average period:";0 x#: L 0 IDAT! &: 1MAPL(IDAT!): 81 MAPSMAPL MAPL &: X1 NUMSMAPS NUMLMAPL 1$ ,,:"One moment please, computing moving ave";1."rages ... ";18JFRSTP: NUMSMAPS V2BMAVS!(J):JJ: JTPCNT J2L JFRSTP B82VJFRSTP: NUMLMAPL ~]2`MAVL!(J):JJ: JTPCNT Jr2j JFRSTP `2~ :TPBP: *:2NUMS:SWTS:TAKSLASTP:TOTS!2NUML:SWTL:TAKLLASTP:TOTL!:JFRSTP2 CLPR!(J)  3 MAPS Z.3TOTS!TOTS!CLPR!(J):NUMSNUMSE3  NUMSMAPS 2k3TAKSTAKS: TAKSTPCNT TAKS3 CLPR!(TAKS) 3(TOTS!TOTS!CLPR!(TAKS):NUMSNUMS32 NUMSMAPS MAVS!(J)TOTS!(NUMS): Z3< MAVS!(J) SWTS4F SWTS MAVS!(J)(4Z MAPL M4dTOTL!TOTL!CLPR!(J):NUMLNUMLd4n NUMLMAPL 4xTAKLTAKL: TAKLTPCNT TAKL4 CLPR!(TAKL) x4TOTL!TOTL!CLPR!(TAKL):NUMLNUML4 NUMLMAPL MAVL!(J)TOTL!(NUML): 5 MAVL!(J) SWTL35 SWTL MAVL!(J)=5 T5 CLPR!(J) 5NUMS:SWTS:TAKSJ:TOTS!:MAVS!(J)5NUML:SWTL:TAKLJ:TOTL!:MAVL!(J)5 JLASTP 5JJ: JTPCNT J5 56J: TPTPFRSTP ^$6@TPTPTPTP: TPTP TPTPTPCNTJ6JJJ: TPTPFRSTP J @Z6T : r{6^FUN: TPSPFRSTP p&:6h P6rTPSPTPTP:TPSLTPTL: Z:6J: TPBPLASTP 6TPTPTPTP: TPTPTPCNT TPTP 7TPBPTPBP: TPBPTPCNT TPBP27JJ: TPBPLASTP J B7 : c7FUN: TPSPLASTP p&:m7 P7TPSPTPBP:TPSLTPBL: Z:7FUN: TPSLTPTL TPSLTPBL :7 TPSLTPTL TPSPFRSTP p&: 8 P:TPTPTPTP: TPTP TPTPTPCNT<8TPSPTPTP:TPBPTPBP: TPBP TPBPTPCNTq8&BROWTPTL:BCOL:EROWTPBL:ECOLP:ATTR:NROW8+SCROLL() : SEG:ADDR(SCROLL())80 ADDR(BROW,BCOL,EROW,ECOL,ATTR,NROW)85 TPSL,,:  : Z:9: P:TPSPTPSP: TPSP TPSPTPCNT(9?TPSLTPSL: Z:Q9bFUN: TPSLTPTL TPSLTPBL y9l TPSLTPBL TPSPLASTP p&:9v P:TPBPTPBP: TPBPTPCNT TPBP9TPSPTPBP:TPTPTPTP: TPTPTPCNT TPTP :BROWTPTL:BCOL:EROWTPBL:ECOLP:ATTR:NROW5:SCROLL() : SEG:ADDR(SCROLL())_: ADDR(BROW,BCOL,EROW,ECOL,ATTR,NROW)|: TPSL,,:  : Z:: P:TPSPTPSP: TPSPTPCNT TPSP:TPSLTPSL: Z:: TPTPFRSTP :TPTPFRSTP: : ;FUN: TPSPFRSTP p&:; P>;TPSPFRSTP:TPSLTPTL: Z:U;* TPBPLASTP R;4 : TPCNTTPTL TPTPFRSTP: H;>TPTPLASTP(TPTL): TPTP TPTPTPTPTPCNT;H : f;RFUN: TPSPLASTP p&:;\ P PRICE!~ YIELD!DIVID!PRICE!\>$LGOAL((XDAT$,-,)):HGOAL((XDAT$,/,))>. PRICE!~ (LGOAL HGOAL) ~>B );"ANNUALIZED POTENTIAL RETURN =";>L LGOAL HGOAL V?Q LGOAL HGOALLGOAL : LGOALHGOAL;?VTEMP((((LGOAL)PRICE!)L~YIELD!)d)U?` TEMP;();"% TO";?jTEMP((((HGOAL)PRICE!)L~YIELD!)d)?t TEMP;();"%";?~ 4);"CURRENT YIELD (PCT.) = ";: YIELD!P~ @ YIELD!K} "##.#";YIELD!d;: ,@ "#.##";YIELD!d;[@:: );"VOLUME";;);"MOVING AVERAGES"@  );"DATE (100s) HIGH LOW CLOSE";@ : :::TPTL:@ ,6,@ TPINT @ "######";MAPS;:"-DAY";:A "#####";MAPS;:"-WEEK";:$A ,@,9A TPINT ZA "######";MAPL;:"-DAY";:{A "#####";MAPL;:"-WEEK";:A OUTDT!TPDT!(TPSP): n: );OUTDT$;A CLPR!(TPSP) );"(holiday)";(.);:A 6: ^:BP TPSL,,:" ";:BZ TPSL,,:"->";:QBnOUTDT$(): OUTDT! : OUTDT$"MM-DD-YY"BxOUTYR(OUTDT!):OUTDA(OUTDT!OUTYR)BNDAM()(OUTYR  ):OUTMOBOUTYROUTYR: OUTYRd OUTYROUTYRdB OUTDANDAM(OUTMO) -COUTDAOUTDANDAM(OUTMO):OUTMOOUTMO: _CTEMP$(OUTMOd):(OUTDT$,,)(TEMP$,)CTEMP$(OUTDAd):(OUTDT$,,)(TEMP$,)CTEMP$(OUTYRd):(OUTDT$,,)(TEMP$,):C6 "########";SVOL!(TPSP);D@ "######.###";HIPR!(TPSP);LOPR!(TPSP);CLPR!(TPSP);:/DT TPSL,6,lD^ MAVS!(TPSP)ow 6);"######.###";MAVS!(TPSP);Dh MAVL!(TPSP)ow @);"######.###";MAVL!(TPSP);DD XTP D XTP XTPXCNT FUN: p&:EXTPXTP : XTP XTPE : IEFUN: XSLXTL XSLXBL p&: : eEXSPXTP:XSLXTL: (:zE XBPXCNT DE XTP XTPXCNT FUN: p&:E&XTPXTP :TEMPXCNT(XTL): TEMP TEMPE0 XTPTEMP XTPTEMPE: : N1FDFUN: XSLXBL XSLXTL p&: : MFNXSPXBP:XSLXBL: (:FvFUN: XSLXTL XSLXBL XSP XSPXCNT F XSLXTL XSP XSPXCNT p&:F :XTPXTP:XSPXTP:XBPXBP GBROWXTL:BCOL:EROWXBL:ECOLP:ATTR:NROW7GSCROLL() : SEG:ADDR(SCROLL())aG ADDR(BROW,BCOL,EROW,ECOL,ATTR,NROW)GXDAT$XREC$(XSP): XSL,,: : : (:G :XSLXSL:XSPXSP: (:GFUN: XSLXTL XSLXBL XSP XSPXCNT !H XSLXBL XSP XSPXCNT p&:GH :XBPXBP:XSPXBP:XTPXTPzHBROWXTL:BCOL:EROWXBL:ECOLP:ATTR:NROWHSCROLL() : SEG:ADDR(SCROLL())H  ADDR(BROW,BCOL,EROW,ECOL,ATTR,NROW)IXDAT$XREC$(XSP): XSL,,: : : (:)I :XSLXSL:XSPXSP: (:CI> XTP FUN: fYIHXTP: : zoIf XSP p&:yIp IzXSP:XSLXTL: (:I XBPXCNT FUN: IXTPXCNT: V: :XSLXTLI XTP XSL : JXTPXTP:XSLXSL: 6J XSPXCNT  : p&:SJXSPXCNT:XSLXBL: (:cJ V: JXBLXTL:XBPXTP: XCNT JXDAT$XREC$(XBP): );: : :J$ XBPXCNT XBL J.XBPXBP:XBLXBL: JV: );#K`"B A R G R A P H P R O G R A M"1Kj:XTL:=K:XTLQK :);"UPDATE"K );"NAME OF STOCK------------SYMBOL(EXCH)---INTERVAL"K:XTLXTL:K (XDAT$,,);" ";(XDAT$,,);KL: (XDAT$,,)" " ();:LLL: L (XDAT$,L,)" " GL"(";(XDAT$,,L);")";(L);:LTPCNT((XDAT$,#,)):TPINT: TPCNT TPINTL TPINT " DAILY"; : " WEEKLY";L L XSL,,:" ";:L(XDAT$XREC$(XSP)L2 XSL,,:"->";:MTFILN$DDEV$"INDEXFIL.SMX"'M^ ZMc FILN$ AS # @:#,@ AS XBUF$: *&Mh () XCNT:#: FILN$:Mr#:XCNT((XBUF$,,)): XCNT M| J XCNT:#:XREC$(J)XBUF$: JM#:M G  : *&N %: ^!NH! %: ,,^NR!"Loading volume and price data, one moment please ...";pN\!FILN$"":KNf! (XDAT$,K,)" " KK: K" f!Np!FILN$DDEV$"D"(XDAT$,K,#K)".SMP"Ou!TPCNT((XDAT$,#,)): TPCNT (FILN$,,)"W"Oz! #FO! FILN$ AS #  :#, AS PBUF$: *&}O!#:TPCNT((PBUF$,)):TPINT((PBUF$,,))O!LASTP((PBUF$,,)):MAPS((PBUF$,,))O!MAPN((PBUF$,,)):MAPL((PBUF$, ,)) P!FRSTPLASTP: FRSTPTPCNT FRSTPP! J TPCNT^P! #:TPDT!(J)((PBUF$,)):SVOL!(J)((PBUF$,,))P! HIPR!(J)((PBUF$,,)):LOPR!(J)((PBUF$, ,))P! CLPR!(J)((PBUF$,,)):MAVS!(J)((PBUF$,,))Q! MAVN!(J)((PBUF$,,)):MAVL!(J)((PBUF$,,))%Q! J:#:?Q# G # : *&OQ# %: z!}Qx#CLIN:CCOL():MAXL:IDAT$(MAXL)Q# ,: (MAXL);: ,:CPOSQ# CLIN,CCOL,Q# SEG: , ( ) Q#ICHR$: ICHR$"" # R# ICHR$( ) @$#R# ICHR$() "$QR# ICHR$( ) ICHR$"9" f&: #oR# CPOSMAXL p&: #R$ ,: ICHR$;: ,:CCOLCCOLR$(IDAT$,CPOS,)ICHR$:CPOSCPOS: \&: #R"$ CPOS p&: #S,$ ,: ();( );();: ,:CCOLCCOLKS6$CPOSCPOS:(IDAT$,CPOS,)( ): \&: #uS@$ \&:IDAT!:K:LCPOS: L SJ$ (IDAT$,)"-" L K : &: #S^$ (IDAT$,K,)"." |$Th$ (IDAT$,K,)"0" (IDAT$,K,)"9" &: #Tr$KK: KL ^$ : $?T|$ KL KK : &: #yT$ (IDAT$,K,)"0" (IDAT$,K,)"9" &: #T$KK: KL $T$IDAT!((IDAT$,L))T$ PARM (IDAT!)IDAT! &: # U$ IDAT!MINV! IDAT!MAXV! &: # : U0% %: ,,YU5%"Do you want to quit this program and exit to PC-DOS";U:%" (Y=yes, N=No)? ";:CLIN:CCOL()UD%ICHR$: ICHR$"" D%UN% CLIN,CCOL,:ICHR$: ICHR$"" N%UX% ,,: (ICHR$) v%"Vb% ICHR$"Y" ICHR$"y" ICHR$;:YES: \&:WVl% ICHR$"N" ICHR$"n" ICHR$;:YES: \&:gVv% f&: N%V% ,,: (P);"Insert the correct program diskette";V%" in the system drive and close the door. ";: %V% ,,: ()4W%"Insert the correct data diskette in drive ";(DDEV$,);gW%" and close the door. ";: %vW% ,,:W%"Press ENTER when you are ready to continue.";($);W%ICHR$: ICHR$"" %W% ,,,:ICHR$: ICHR$"" %X% ICHR$( ) f&: %7X% ,,: ();: \&:ZX%BROW:BCOL:EROW:ECOLPuX% SEG:ADDR(BLANK())X& ADDR(BROW,BCOL,EROW,ECOL):X*& ,,:"PROGRAM ABORTED DUE TO A FATAL ERROR. ";Y/&"Further explanation of the following "0Y4&"error message may be found in Appendix ";`Y9&"A of the IBM BASIC manual. "Y>& ();: ,,:: :Y\& ,,: (#);: :turn off any messageYf& ,,: ,:"Wrong key pressed, try again. ";Zk& ,::