LBTS=P pDAABS &DIEC  L$FAZEL  #'R HAZEL, HP 36786B, 6/74, 2 PROGS: HAZEL,FAZEL#(R ***** CLEAR SCREEN *****#2R#<R#F j~#P^#ZR#dR#R ***** CLEAR BOLDFACE *****#R#R# j~#^#R#R#R ***** HOME CURSOR *****#R$R$ j~$^$"R$,R$TR ***** LIGHT FACE *****$^R$hR$r j~$|^$R$R$R ***** BOLD FACE *****$R$R$ j~$^$R$R%R ***** ADDRESS CURSOR *****%R% R%!p$CHARS%#N@%$ O@%%& @P%2%( h@@%)h@%-w@l L @%.h@p J %/v@DUMMY%2wI@@%4wh @@%JWJ %P%Lj~J J %N%R%Pj~%Rw%T^%VR%XR%R ***** EMPTY BASIC BUFFER *****%R%R% j~ %^%`FILEX  &#R **** HP BASIC PROGRAM LIBRARY *******************************RR FILES: FILE MANIPULATION PROGRAMRR 36645 REV A 10/73R#R **** CONTRIBUTED PROGRAM ************************************ p*,*,* DSWAP` W $/@2WORK FILE IN USE, ENTER NAME OF 2 RECORD WORK FILEfD`W &NH H@0PH`HpHHH/@ instructions fV@@0N j1)...CREATE A FILE( j2)...SORT A FILE2 j3)...LIST A FILE< j4)...COPY A FILEFj5)...X-PUNCH A FILEPj6)...LIST THE FILE FORMATZj7)...UPDATE A RECORD IN A FILEdj8)...ADD A FIELD TO A RECORDnj!9)...DELETE A FIELD FROM A RECORDxj/10)..CHANGE FROM A RANDOM FILE TO A SERIAL FILEj/11)..CHANGE FROM A SERIAL FILE TO A RANDOM FILEj12)..END THE PROGRAM/@)ENTER THE NUMBER OF THE ROUTINE TO BE RUN/@ YOUR CHOICE D*@ D*@fT f`h bR** FILE BUILD SUBROUTINE **vNєvnӟ"/@RECORD FORMAT = ,f 6 Y@ @ V 0$J V 0#T V 0Cr^/@  IS AN INVALID FORMAT CHARACTERhrw@| W  /@-LAST CHARACTER IN FORMAT WORD MUST NOT BE 'C' V 0$ V 0#^v@V`/@ONLY 5 NUMBER CONSTANTS ALLOWEDjjH#,"# CONSTANT ",D," = "fv@V`:&/@ONLY 5 STRING CONSTANTS ALLOWED0:jDjNNH#,"$ CONSTANT ",D," = "X TbvbfPlvf`fpff[ V`@x Y@N h@ v/@ ** RECORD jH #,3D," ?" v@4@ W40@*j4V@0\>v4H Y@ R V 0$\ V 0#fw@p V 0$zv@v44@V4@ j@Zv@ T$VvDPV4@j@PZvD`V4@j@`Z$vDp.8V4@Bj@pLZVvD`jV4@tj@~ZvDV4@j@Zv@j H#,"$ ",DD," = "fvDV4@j@ Zv@j(( H#,"# ",DD," = "2f<v44@FV4@Pj@Z[d[nx/@OUTPUT FILE IS FULL'/@;MORE THAN 256 WORDS OF STORAGE ARE REQUIRED FOR THIS RECORD j@`VD@D@v44 @ D@@v44 @ D@^R ** FILE SORT SUBROUTINE **>v/@SORT ON FIELD #fd"Vd@,j6j@d@H'#,"IS FIELD #",DD," A CHARACTER STRING"JfTV@@0N^*/@BENTER THE CHARACTER STRING STARTING AND ENDING CHARACTER POSITIONShj%OR ENTER 0,0 TO USE THE ENTIRE STRINGrf|V*64/@)ASCENDING OR DESCENDING SEQUENCE (0 OR 1)ft Vt6t@ V`@ V`@ > j@@`w@N/@SORT OUTPUT FILE TOO SMALL/@LAST RECORD PROCESSED =jFXDDD$$/@6STARTING CHARACTER POSITION IS LARGER THAN ENDING OR 0^j j&&#H@"THE STRING BEING SORTED ON IS ONLY ",DD," CHARACTERS LONG, THE"0j3SPECIFIED STARTING CHARACTER POSITION IS BEYOND THE:jLIMITS OF THE STRINGDNY$|Xh@$b@` >lXf@|dv@h@v4@h@v4@ZfjjfH5"SORT INPUT FILE HAS ONLY ";,3D," FIELDS PER RECORD "www#@! W w@ h@*Xf@|d4 @>\ >h@$HvD@Rp\h@ fvD@pZfzVD04$/@6ALL RECORDS IN SORT INPUT FILE ARE NOT THE SAME FORMAT Tt@ TDV$*w W#@ wV v(@v v)   V6  $v( .V4  8 V ` B V  ~ Lv) V `v jv) t ~v) V ()*  TD V$*  V v(@ v v)   n V6  v( V4   V <  V  Z (v) 2 n <v Fv) P n Zv d n V ()* x w@ w w` w@  W@ w@ w$ w@ w  w@ w@ w w` w@ " ,W@ & 6w` @w@ Jw@ Tw ^ hw@ rw@ |w w` w@  W@ b w` w@ w@ w   w@ w$ w@ w   &w` 0w@ :w@ Dw N X bw` lw@ vw@ w  w@ j@` [$ w$$@  > w h  h   * 4 h  j   h  j   *w@ 4^ >j Hj R$" RH3D," RECORDS SORTED " \ fR** FILE LIST SUBROUTINE ** p> z /@*** LINE PRINTER? $ V0@ j Y| j j  H"*** RECORD ",3D h@ @ B$ h@ j#  h@j $jEOR.[8LBjEOFLjV`R** COPY FILE SUBROUTINE **j>t~vY| V`@nh@h@vɠ@@2h@j@h@j@ vȠ@[(w@2 V`@F< j@ "`F jP@ "PH3D," RECORDS TRANSFERED"Zjdn/@ FILE BEING WRITTEN IS TOO SMALL.xj"H!" ONLY ",3D," RECORDS TRANSFERED"R** X-PUNCH FILE SUBROUTINE **> V`@@!/@0YOU HAVE 10 SECONDS TO MAKE THE TAPE PUNCH READYP$Y|h@@@,h@jh@j",[6w@@jJ jT@ "TH3D," RECORDS PUNCHED"^hR** FIND THE LAST RECORD SUBROUTINE **r>|vD$dvDATAEND OF RECORDEND OF FILEv TO V`@ Y@N h@@VD0:vD0Vd0:vd0W$0:&w$0[:W$DVdNVDbX b VD1@ljF3DX,AAX,3DX,4AD @@@vjF7X3DX,4A@@@vD  W$1@jF3DX,AAX,3DX,13A$ @PD jF 7X3DX,13A@PD w$  Vd1@jF3DX,AAX,3DX,11Ad @H p jF 7X3D,X11A@H p vd ^: j*@*H7X3DX,"PHYSICAL END OF FILE"4>R** ASSIGN INPUT FILE SUBROUTINE **H/@INPUT FILE NAME Rf\ pzf/@ONLY 6 CHARACTERS ALLOWEDpHz/@FILE USE A MASKf V 0YD@V@/@FILE '' IS UNAVAILABLE. TRY AGAIN.H/@WHAT IS THE MASK f   p/@ONLY 6 CHARACTERS ALLOWEDD@ ^R** ASSIGN OUTPUT FILE SUBROUTINE **/@OUTPUT FILE NAME $f0. 0pL8/@ONLY 6 CHARACTERS ALLOWEDBLV0.jV/@(INPUT AND OUTPUT CANNOT BE THE SAME FILE`j/@FILE USE A MASKtf@~V@@@0YD0@V@/@%OUTPUT FILE NOT AVAILABLE FOR WRITING/@WHAT IS THE MASK f@ @p/@ONLY 6 CHARACTERS ALLOWEDD0@@^R ** INPUT FILE UPPER AND LOWER LIMITS SUBROUTINE ** /@'INPUT FILE STARTING AND ENDING RECORD #fVƬ@ (V>F2/@!UPPER LIMIT LESS THAN LOWER LIMIT< F V`@dPh@Z@xxdxd/@#LOWER LIMIT IS LARGER THAN THE FILEn x^R ** ASSIGN OUTPUT STARTING RECORD/@OUTPUT FILE STARTING RECORD #v͞fVȬ@ V`@h@/@'STARTING RECORD LARGER THAN OUTPUT FILE^R ** UPDATE A RECORD SUBROUTINEw@wtW@|"/@STARTING AND ENDING RECORD #,f6 W@4ư@ V`@^Jh@Tr^/@&STARTING RECORD BEYOND THE FILE LIMITSh"rU||#/@1ENTER RECORD #, FIELD #, NUMBER (0) OR STRING (1)Uw@j'(ENTER 0,0,0 TO END THE UPDATE ROUTINE)fdDVư V`@h@jjH*"RECORD #",3D," IS BEYOND THE FILE LIMITS"|vX&z& WD7D@N0/@&ENTER 0 FOR A NUMBER OR 1 FOR A STRING:gDD&N^XVdb/@(FIELD # MUST BE GREATER THAN 0, RE-ENTERlfdvX^/@ ADD FIELD #/@DELETE FIELD #fdX W@4d"W`wDz/@NUMBER OR STRING (0 OR 1)gD&W@z /@#DO YOU WANT TO USE A CONSTANT VALUEf V@@0Nz*V@@.Y 4wt@> UD@HfH/@ENTER THE NUMERIC CONSTANTRgv\zf/@ENTER THE STRING CONSTANTpfz V`@w&@/@LAST RECORD IN FILE UPDATEDW@|Y$|vgwh@$ h`@@BLh@j`vgg@h@$j`.vgg@8Bw&LvfVW@t` Vg@>djtVg>d~Vg@`/@$NOT ENOUGH FIELDS FOR THE REQUESTED UjUPDATE|jADDjDELETEvĞh@$ h`@`vvvff@ Vf.d UD@P,vĠ@(VĪ@2h`<j@FPUZxZjdj$dnxWtvvjj$dH-#,"R #",DDD,", F #",DD,", NEW NUMBER VALUE ="H,#,"R #",DDD,", F #",DD,",ADD NUMBER VALUE =" `h`W`h`W`fvĠ@VĪ@"<,U|66WtT@vJTj^jh$dhH-#,"R #",DDD,", F #",DD,", ADD STRING VALUE ="r|jj$dH-#,"R #",DDD,", F #",DD,", NEW STRING VALUE =" `h`h`f@@ v @v @@VĪ@bvff@Vf.d& UD@P,&h`0@@N: v @DXNv @@XVĪ@bj@lvW@w@ W@4f@0d U&@w$Ǡ@[$ W@5&W@| U&@/@#TOO MANY CHARACTERS FOR THIS RECORDw@w` R ** RANDOM TO SERIAL CONVERSION SUBROUTINE **> *4>h@H V`@\Rz\ jf@ "fH7"OUTPUT FILE TOO SMALL, ONLY ",DDD," RECORDS CONVERTED"pzY|h@@h@ j@`h@ j@`[w@j j@ "H43D," RECORDS CONVERTED FROM RANDOM TO SERIAL FORMAT"R ** SERIAL TO RANDOM CONVERSION SUB ROUTINE **>$./@INPUT FILE STARTING RECORD #8fB V`@`Lh@Vt`/@"STARTING RECORD BEYOND FILE LIMITSj.t~ V`@jj"H5"OUTPUT FILE TOO SMALL, ONLY ",DDD," RECORDS CREATED"/@&HOW MANY FIELDS IN ONE LOGICAL RECORD fdYLK@0vfh@@<vff@vĠ@ VĪ@h@j@(Vf0d2<h@Fvff@P@@xZv @@dVĪ@nx v @dj@Vf0dvƠ@h@[w@ V`@j@`j j@ "HDDD," RECORDS CREATED"/@"TOO MANY CHARACTERS FOR ONE RECORD`FINDAD L% Kp4VR FINDAD, HP 36867A, 6/74NQcyy!HHNH H04@ PH`HH(v04etoanirshdlcwumfygpbvkxqjzETOANIRSHDLCWUMFYGPBVKXQJZ2 v@ 01234567897v@<p*,*,*,*,*=j CONVERT OLD FILE TO FINDIT FILE.>LAjFINDIT FILE NAME? Ft 4PZT>AAdw44@nD@sD`xW`j j**NO SUCH FILE.2 p pV@@0$V@@0* j**INVALID NAME.2v  h@@@@j"j;**YOU MUST RUN THE 'CREATE' PROGRAM TO INITIALIZE THE FILE.'h@pE@W`j**OPEN '' TO 32 RECORDS.bDp@W`j**OPEN 'p' TO 4 RECORDS.bVB"j,A nh@@#vǞw@wT  R--INPUT ROUTINEvwFuFj W.@'WFx'j**ARE YOU STILL THERE?wFx"'WFx,V0 LJ Y@T V* ^W@whv@rJw V, |V@@*  W v@T V@^ Y@h  V.0v0h h [[  `V* v@@V@@0//&!^&V`@.ERl0V*N:v@D^Nj//ER WAS ENCOUNTERED.Xv`b^lV`@0ST'nWvpj)//XXX... ENCOUNTERED AND TREATED AS DATA.r^vV`@.HE<j<v@^ j**INVALID COMMAND. LvP `W d ajBLANK OR EMPTY ELEMENT. b e d j**SUPPLY A VALUE. ev@ j^ R--SET FILE BUSY FLAG. Dp@ W , h@@ @` T  j@@4  h@@ "^ 'R--WAIT TWO SECONDS IF FILE BUSY. ,E@ 6@ J Th@ ^&j**PORT #8USED THE BREAK KEY DURING UPDATE. SEE YOUR FILE MANAGER. hb r^ j@@` E@ ^ vȞ v @Ƞ@@ V~ j**RECORD TOO LONG. v@ ^ R--**ADD ROUTINE** w v$ w  nh@@# wT v!@#!@ V 0   V  0 j(NO MORE FILE SPACE. SEE FILE MANAGER./@ &' 0wT@ :v7@ Dv Nj@4 X h`` bvɞ l X@}!` vV@ v@ h`P  V@ VC jP:  T@ @@@  V@ V@ 4 V,0 V@@,: j**ILLEGAL ID NUMBER. @  *V@ / ,jRECORD BYPASSED/@ - 0 /v 4 V/!@  H >v Hj@ RZ W X nh@@# Z v!@#!@ \ ^VB f ` b  fw$g z W!P w w&$ h@4  j@p$ j@H$ w!P@ nj@@# nv%v*$0.v8>Vh@4` V6$Hjvjt nh@@#~w!@$ nj@@#vjV,6dviV,h@d@ vi@ j@$ij0Vj  w&@P w&w'(w$2<w&'FVBinPZw$dn pWvrjt vjw  R--SETS POINTERS h@&^R--COPY #1 TO #2 AND BACKWARDS. j@4 h@4 j@&^v@v@"v@v@" X@}!`,h6j@ZJ^R-- SEARCH FOR ID- OR ORDERED ELEMENT ENTRY. v%p*vU@4f>v%HHvU!@ f v$6pvyzvn vT`4U@h@d@@VdWT@v@ v@^h@h h@h$U68VU@|BVZGv$Lv@Vv$%VdvdVZV$v$vh@$d X@yv h@VBV/$v@@ Zv@^VB(v"@ < V"FPVU@Z v$$H$B$dnVxv$dT$@dv^j**NO SUCH ID NUMBER. h@" U6@r6J6v@TJvTv^(rVU@| j**DUPLICATE ID.jv@^w$^R-- COMPARE TWO STRINGS-INPUT AND FILE STRING.vDFV@@*9V0-V@@.-vD@V @@.-vF@vG"DvH "FVG,HVG*HV, V* w6^w6@ F^w6@"D^&!R--INSERT ID- OR ORDERED ELEMENT POINTER INTO POINTER RECORD.0w:V$XDvNlXv$lwwWh@gj@g X@| V6@4*j@$4 j@> VC6x fHj@gd\wfV.zpj@$zZ^R--GET AN EMPTY RECORD FROM THE EMPTY RECORD POINTERS.v֞@h@gVBgWTv@^v&vg X@y@@ h@Zv@^X@| j@Z^VCT WT@8Vx$j@!@$ j@!@w!@!@@ nj@@# ^$j@$.^8VBvLj@gQvgVv@`jvtvVְ@xvgyh@&z{ j@&~Vvg!@w!@!@@ nj@@#v VdVP4PP T@ /@WARNING - ONLY  RECORDV01jSj LEFT.^R--READ ID-/ ORDERED ELEMENT.VU@*h@P X@|Uh@ Z(^*h@ ,^2 R--HELP PRINTOUT.<jFjNO HELP AT THIS POINT.P^ R--NUM-STR*v4vP>vC vP$"Hv@@@@@Rv@\V4fv@p^L R--ADD FROM FILE.X/@OLD FILE NAME? Z[ T@\'XX\DP^W`j`j** NO SUCH FILE./@bXj p~l ptnV@@0$~pV@@0*~tj**INVALID FILE NAME.vj~w V`P^jPRINTED REPORT (Y/N)? TV@@0YV@@0Nw@^w^R--READ DATA FROM FILE.vV@w@khPPhP#(hP,V@Wv j - ^jNOT ENOUGH ELEMENTS.v@^R--EOF/`END OF SOURCE FILEb@ jRECORD BYPASSED.BjD #(R- NUM-STR#2vF#<vD#Avd#F֏ $"$#n#PvDD@#Zv&P#d#F#nV##xv@#v#v#vP#v# vP$"#v@@@@@#v@#V##v@#v"D#V$@#v .#V$"$v  @0$v@$#$" v  @$,v $6$^$@ v @$J v@.$T v@ $^ V6F$$hv $rv-$|v@ $V..$$v@@$^'R'`&PILAB  c R *** COMMON ***#R PI2: INFORMATION SYSTEM, 36737A, 2/74 (PILAB, PART 2 OF 2)R *** NEVER R/W FIRST RECORD THRU A MASK *** !R *** ALLOW NUMBER PREFIXES FOR APPROPRIATE COMMANDS ***R *** L9 HAS TWO MEANINGS - LAST LINE & INSERT ***R *** ASSIGNMENTS FOR COMMON ***R *** DIMENSION LOCAL ARRAYS ***N!$Na)N.O3R *** ASSIGNMENTS FOR LOCAL ARRAYS ***8n#=ncBnGR *** DIMENSION LOCAL STRINGS ***LNFQN FVN0F[N@F\NPF`N`aNpFeNFjNHoNHtNHyNF~NДFNFNFO O@HOPHO`HOpHOHOHOHR *** ASSIGNMENTS FOR LOCAL STRINGS ***v`PIDATAv# vH F vFF*vv w 0123456789R *** ASSIGNMENTS FOR LOCAL VARIABLES ***wF}w,v՞ R *** FILES ***p*,*D`@.W.@$TW# !/@FILE ` MUST BE INITIALIZED./@RR *** MAIN PROGRAM ***R# h@@(@7-77-h@2/@/@7 /@=> <uFGAjF$TK WG5G-FPj*PLEASE TYPE ONE OF THE FOLLOWING COMMANDS:UjASSIGNZjCOPY_jCHANGEdjDELETEijENTERnjFINDsjINSERTxjLAST}jLISTjPRINTjQUITjSORTjjCOMMANDS MAY BE ABREVIATED.wF}7R *** TRANSFER TO APPROPRIATE MODULE ***V@@0L7R *** CHAIN TO APPROPRIATE MODULE ***/@ IS NOT YET AVAILABLE./@7/@FILE ` IS NOT AVAILABLE./@jTHE RETURN VARIABLE IS .7RR *** ASSIGN FILE NAME TO DATA BASE ***R/@ FILE NAME - f` ``$/@'FILE NAME MUST BE 6 CHARACTERS OR LESS./@%W.`/@FILE ` IS NOT AVAILABLE./@ 7RR *** INITIALIZE FILE PARAMETERS ***R$T"W7'/@NO. OF RECORDS IN FILE - ,f1#6V@@.PE;j@Ew%JvOv@T/@DEFINE DATA BASE STRUCTURE.Y/@NO. NAME, LENGTH/@^v@cjhhH #,2D," "mfr @w `|V@`0ENDV@@0EV@@0Q X@ V0, V0/Z/@(ILLEGAL FORMAT. PLEASE USE ',' OR '/' TOjSEPERATE 'NAME' AND 'LENGTH'./@cV@jFIELD MUST HAVE A NAME.c v@#V@@.Pjcva v@v @v@@v@^V@gve@w&`vUp vVpw*@vnv՞!X@|e&vnn a+Z0V@n@"n?5vꞯ@&@ n@@:D?vꞯ@&@ n@D#I/@DATA BASE TITLE - NuFGS 7X j@@]R *** IMPLEMENT DATA MASK CAPABILITY ***bg j@@l j@@qR *** IS 3740 OK? ***v7R$T vU$&#* Vh@* vŦ@vŢ@$4X@|> h@@P`pH X@@R\v fv6@p vP@| z v @ |  v0~ A v@BF X@|  VP0,ZvPv@v@Vt  `Xt VP@0M&M $ Z  ` $v@H MR & MRS .v6P 8v` `V|  jX| t VP.  ~Z v66 @P@  v V|  X| |~@ VP.  Z v|  v v66 "P v6 "@6 " @P@(vF  v@v@ |    vBF@@lhpVp@`0ENDT"Vp@`.0@`,vڞp6vڢP@v0@p`J^Tv۞`^v0۠@۠@, CALIF.hTrrv0|v0v0v0Zv6@v7F v8Ev9gj6@@| 7P@| H #,2(31A)j8`@| 9p@| H 2(31A)j6@@ | 7P@ | j8`@ | 9p@ | j67&j890j6@BF7PBF:j8`BF9pBFDjNjZV!/PLAST  ENTRIES NOT PRINTED./`bpRr d AGN AGNEWt d ALM ALMADENv d ALV ALVISOx d APT APTOSz dAR ALUM ROCK| d ALA ALAMEDA~ d ATH ATHERTON d ANT ANTIOCH dBL BEN LOMOND dBC BOULDER CREEK d BEL BELMONT d BER BERKELEY dBUR BURLINGAME d CHI CHICO d CAM CAMPBELL d CON CONCORD d CAP CAPITOLA d CAR CARMEL dCP CAMBRIAN PARK d COL COLMA dCUP CUPERTINO dCV CASTRO VALLEY d DAN DANVILLE dDC DALY CITY dEC EL CERRITO d FEL FELTON d FRE FREMONT d GIL GILROY dHIL HILLSDALE dHLB HILLSBOROUGH d HOL HOLISTER d HAY HAYWARD d HAR HARRIS dKEN KENSINGTON dLAF LAFAYETTE dLG LOS GATOS dLIV LIVERMORE d LH LA HONDA dLAL LOS ALTOS dLA LOS ANGELESdLAH LOS ALTOS HILLS d LOD LODI dMF MOFFET FIELD d MAR MARTINEZ d MOR MORAGA dMVA MILL VALLEY d MIL MILLBRAE d MOD MODESTO dMH MORGAN HILL dML MOSS LANDING dMV MOUNTAIN VIEW d MON MONTEREY dMVI MONTE VISTA dMP MENLO PARK d MLP MILPITAS dMS MONTE SERENO d NEW NEWARK d NIC NICE d ORI ORINDA d OAK OAKLAND dPA PALO ALTO d PAC PACIFICA d PIN PINOLE dPLE PLEASANTON dPH PLEASANT HILLdPV PORTOLA VALLEY d RIC RICHMOND dRC REDWOOD CITYdRE REDWOOD ESTATES dRDM RIO DEL MAR d SAL SALINAS dSF SAN FRANCISCO d SJ SAN JOSE d SAN SAN JOSE dSAU SAUSALITO dSM SAN MATEO dSUN SUNNYVALE dSCZ SANTA CRUZ dSR SAN RAFAEL dSSF SOUTH SAN FRANCISCO dSB SAN BRUNO dSC SAN CARLOS d SAR SARATOGA dSMT SAN MARTIN dSP SAN PABLO dSCL SANTA CLARA dSRO SANTA ROSA d SEA SEASIDE dSAC SACRAMENTO dSL SAN LEANDRO dSV SCOTTS VALLEY" d SOQ SOQUEL$ d STN STANFORD& d TIB TIBURON( d TOR TORANCE) d TUR TURLOCK* dWAT WATSONVILLE, d WOO WOODSIDE. dWC WALNUT CREEK0 dWG WILLOW GLEN2dEND@RAR *** TRANSFER INPUT DATA TO STRINGS ***BRC TDFHJLNPDw@E^FwPG^Hw`I^JwpK^LwM^NwO^PwQ^RR *** TRANSFER DATA TO OUTPUT STRING ***R Tv@^vP^v`^vp^v^v^v^ lR mR *** WRITE DATA ON FILE FOR DATA ENTRY *** nR ph@& rX@|W tv v xj@ zZ |vVW ~# ^ R R *** EOR/EOF DETECTOR *** R w*- h@) @ w-@  %/@EOF/EOR DETECTED IN FILE ` RECORD )/@ w*@ ^!jT$=@"jU$=P"jV$=`"jW$=p"$jX$=".jY$="8jZ$="BjI$="LjJ$="VjK$="[^#(R#) R *** BREAKS INPUT STRING, 'I$', INTO 'Q0' NUMBERS ***#*R#+V@@0,#D#,V@@0/#D#-w#.o#/V@@0Z#K#0v@#1X@}#2X#3 V0,#6#4 V0/#6#5Z#6 v@#7V@@0 #A#8v@#9 V0,#D#: V0/#D#;##<V@@0P#F#=w#>Z#? V#I#@^#Aj#BjNOT SUFFICIENT INPUT.#C#F#Dj#E jEXTRA DELIMITER.#Fj#Gw@#H^#Ij#JjWARNING - EXTRA INPUT IGNORED.#K^#R#R *** STRING TO NUMBER CONVERSION ***#R# w#w@#w#Y@}# Y@P# V1##[# V.-##W@##/@ILLEGAL MINUS SIGN.#vPLEASE ENTER NUMBER(S) AGAIN.#^#w### V..##w@#W@##/@ILLEGAL DECIMAL POINT.###/@"ILLEGAL CHARACTER IN INPUT STRING.###W##w@#wP($@### wP% @#[#w$!#^#R#R *** WRITE DATA BASE PARAMETERS IN RECORD ONE ***#R#j@@UV%&*en# nj@c#j@#^$TR$UR *** READ DATA BASE PARAMETERS FROM RECORD ONE ***$VR$Xw$Z h@@$\@$b$^$^$^$^w@$`^$bh@@UV%&*en$d nh@c$fh@$g vnn*$h^$R$R *** STRIPS TRAILING BLANKS & '*' FROM STRING ***$R$vm$ Xm@~@$ V0 $$ V0*$$vm$$$Z$^%R *** ADD CODING FOR MASK IN 9600 ***%R%R *** ASSIGN FILE NAME & CHECK RETURN VARIABLE ***%R%w+-%D`@.% V`0*4DUM%%W.%%W.@%% W.@5,@%%/@THE FILE YOU WANT ` IS NOT AVAILABLE.%jTHE RETURN VARIABLE IS SET AT ./@%w+@%^%W,@%%w--@%W-}%%/@FILE ` IS TEMPORARILY BUSY.%j1PLEASE TYPE A 'C' TO CONTINUE OR A 'Q' TO QUIT - %f%V@@0C%%V@@0Q%%%%^'R'R *** YES/NO SCREEN ***'R' V@@0Y'' V@@0N'' j)PLEASE TYPE 'YES' OR 'NO' ('Y' OR 'N') - ' f' ' '^'`PLOTS  &2#(jPLTL#- R HP 36840A, 6/74#2h #<Y@}#Aw@#Fh #PW#Z#Uw@#ZW#d#_w`#d w #n w #rVB@7N7@7N#x#tw#xU#### j####jPLTP# j#҆#jPLTL### j#҆###H 4D,X,4D# H 4D,X,4D,"^"#[#jPLTT#w@#^PLOTTY& L7Y J,  -r/HZR["R **** HP BASIC PROGRAM LIBRARY *****************************\R]R PLOTTY: KEYBOARD ENTRY MULTIPLE FUNCTION PLOTTER^R _R 36659 REV A -- 10/73 PART 2 OF 2`Ra#R **** CONTRIBUTED PROGRAM ***********************************bRc"REMBER PAUL VOJTA, SOUTHWEST SR. HIGH, MPLS, MN, WHO WROTE THISdRe gfr$PLOT33gnsh v'`i V@6^ mj X$@Hk vr$`lZ$m v`#'n V@6Hro X$@^ p vr$`qZ$rws YHHtWxu w$@vw}x YHHy w$@z{[|w}[~w$`w$$@ Y@Hv@@%!vv@ w4@ wD@ wT`WDd  UDd  UDp  WDP5DP wTTwDDPWDx wTTwDDP  UDPw4Tw44!Tw44#Tw44%Tw44'Tw44)T ֏4a"w44 ֏4a"w44 ֏4a w4O4w4_4W4w44w4o4w44w44w44w44W4w44 v@4 w@[ V@| v@w V`/P X@^  X$H@~@ Vr$@Z$X4@|$vDr4k DDZ4jZ r$PLOT33rw` #' W@7Hw` #' W@7^ vr$^`STGSRT  #R *** HP TIME-SHARED BASIC PROGRAM LIBRARY ********************* R R STGSRT: SORTS STRINGS FROM FILES RR 36145 (A107) REV A -- 7/71R#R *** CONTRIBUTED PROGRAM **************************************Rd"R PROGRAM STGSRT SORTS STRINGS OR SUBSTRINGS AMONG FILE RECORDSn!R AND CREATES AN ORDERED DIRECTORY OF THE RECORDS. A BUCKETx!R SORT IS USED, PACKING THE DIRECTORY INTO A MATRIX WHICH IS#R THEN WRITTEN ON A SECOND FILE. EITHER A NUMERIC OR FULL ASCIIR SORT MAY BE SPECIFIED.R VERSION 7/15/71 -- WESR pDATABS,DIRECN 0 @HOHO? N!?1? NQw$}nn#n3nSX@}$"h@, V`@J6v@ZJw&@TnS^j"NUMBER OF DATA RECORDS IN FILE IS &h$j?WHAT IS RELATIVE POSITION OF STRING WITHIN RECORD UPON WHICH TOrjSORT? (1, 2, 3, OR 4) |f$j?WHAT ARE CHARACTER POSITIONS WITHIN STRING UPON WHICH TO SORT??j(IE 1,6 OR 2,30 ETC) fj.SPECIFY SORT TYPE AS EITHER ASCII OR NUMERIC g W0ASCII W0NUMERICwP w 0123456789w~ $w> !#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^ X|~@X@}&\L`t&0Z: DX@}&N\L`tXbZlnSvn#n3jSORT ON CHARACTER  IS COMPLETEZ h@@nj@SRR SUBROUTINE TO FILL MAT BRX@} W1Z v!!@ ^R R SUBROUTINE TO FILL MAT C*R4w@>X@}H V!\Rp\v1fpv1zw !Z^RR SUBROUTINE TO SORT DIRECTORY INTO MAT A ON CHARACTER IRX@} W1Zw1vQ v11@^~j EXIT FROM MAT B SORT, CHARACTER bj EXIT FROM MAT A SORT, CHARACTER $b.R8R SUBROUTINE TO IDENTIFY SORTED STRING AS "Z$"BRL h@QV^` h@Qj^t h@Q ~^ h@Q 0^RR RESORT AND PRINT OPTIONSR!j8PRINT DATA FILE ON CURRENT DIRECTORY ORDER? (YES OR NO) Og W0YESW0NO| h@@nh@S /`X@}& h@Q 0@(\<T2h<wn F @AxPZjp( )D @@dX @@Hnxjp( )D @^wn  @Aj( )pD @@X @@Hj( )pD @^ V0@@1 w0@@/`wR  @A6"j0pT ( )| @@"H @@H,@6j0pT ( )| @@jJ^T j@@^^hZr/`|"j9ADDITIONAL SORT ON MORE SIGNIFICANT STRING? (YES OR NO) Og W0YESW0NO| h@@nh@Shj$TOO MUCH DATA REQUESTED FROM FILE #1bR SUBROUTINE FOR LONG D$ STRING PRINTSRY@~@ V@0 0 V@0-0[&:0^:jFAILURE IN LONG D$ SUBROUTINED`~VTALK  &3a!R *** HP BASIC PROGRAM LIBRARY *******************************RR TALK: COMMUNICATIONS WITHIN A TIME-SHARING SYSTEMR R 36222 REV AR!R *** CONTRIBUTED PROGRAM ************************************R R $j? 'TALK' HAS BEEN MADE AVAILABLE SO THAT ACCOMP USERS CAN REPORT%jAPROBLEMS, MAKE SUGGESTIONS, AND GENERALLY COMMUNICATE MORE EASILY%jBWITHIN OUR TIME-SHARING SYSTEM. THE MESSAGE YOU ENTER IS RECORDED('jEON A FILE WHICH IS READ FROM TIME TO TIME BY ACCOMP PERSONNEL. WE'LL2(jGTAKE WHATEVER ACTION WE CAN TO MAKE ACCOMP COMPUTING MORE EASY FOR YOU.<jF#j>TO USE 'TALK' PLEASE TYPE: HELLO-B123,ACCOMP GET-TALK RUN n"j; ENTER YOUR MESSAGE AFTER THE QUESTION MARK. WHEN FINISHEDx&jCTYPE 'END' AFTER THE QUESTION MARK. PLEASE INCLUDE YOUR NAME, ALSOj1PHONE NUMBER OR ADDRESS IF YOU EXPECT AN ANSWER. pTLKFILNH jYOUR MESSAGE: X@}h@V0@Z h@@ YT@|@h@[T X@}fj@ V0END,"Z, j THANK YOU!6b@R: MESSAGE PRINTOUT SECTIONJ XĞ@}T V`@^h@hV0@rj|Z j@@ X@} V`@ j@@Z`VTAPDUM L; "R **** HP BASIC PROGRAM LIBRARY ******************************RR TAPDUM: FILE DUMP, PART 2 OF 2R R 36221 REV AR"R **** CONTRIBUTED PROGRAM ***********************************nNHxj*YOU HAVE 10 SECONDS TO TURN ON THE PUNCH vPt @h@jh@ X@ V0 Zj jj\j"j,`VREGPL @)"R **** HP BASIC PROGRAM LIBRARY ******************************R"R VREGPL: PLOTTING X AND Y VARIABLES USING TEKTRONIX 4010R R 36556 REV AR"R **** CONTRIBUTED PROGRAM ***********************************#(R -- SUBROUTINE $VREGPL#*"R -- W.F. SHARPE, STANFORD GRADUATE SCHOOL OF BUSINESS, MARCH 72#,R -- REQUIRES N=NUMBER OF VARIABLES#.R -- X(1) - X(N) : X-VALUES#0R -- Y(1) - Y(N) : Y-VALUES#2 O#4N @H#6%#8% #: R -- GET TITLE (T$)#<#L#>R -- GET X-VARIABLE NAME (A$)#@#R#BR -- GET Y-VARIABLE NAME (B$)#D#\#F R -- SEE IF REGRESSION LINE IS TO BE PLOTTED (Q$="Y" OR "N")#H#f#IR -- SEE IF POINTS ARE TO BE CONNECTED#J&#K#l#L/@TITLE#Ng@#P^#R/@NAME OF X-VARIABLE#Tf#V x#Z#X v@p#Z^#\/@NAME OF Y-VARIABLE#^f #`  x#d#b v  @p#d^#f/@'DO YOU WANT THE REGRESSION LINE PLOTTED#h g@@#j^#l% #nR -- FIND MIN X (M1) AND MAX X(M2)#pv@#rv@#tX@|#vW*#z#xv#zW,#~#|v#~Z#R -- FIND MIN Y(M3) AND MAX Y(M4)#v@#v@#X@|#W*##v#W,##v#Z#R -- FIND AVERAGES AND STANDARD DEVIATIONS#R -- A1 IS AVERAGE OF X, A2 IS AVERAGE OF Y#R -- S1 IS STD DEV OF X, S2 IS STD DEV OF Y#v#v#X@|#v!#v!#Z#v&#v&#R -- FIND STANDARD DEVIATIONS AND COVARIANCE (C1)#w6#w7#v6#X@|#w66 "@#w77 "@#v66 "$"#Z#w66&#w77&#v66&#R -FIND SUMS# wFGHIJ#X@|#wFF!#wGG!# wHH %# wII @# wJJ @#Z#R -- FIND EQUATION OF REGRESSION LINE#R -- LINE IS Y = A9 + B9*X# v.6&6@#v".$#R -- FIND COEFFICIENT OF DETERMINATION (R2)#w'.@$6@&7@#N@# v@---------------#j#j#j  #j @@ @@# j MAXIMUM# j MINIMUM# j AVERAGE# j STD DEV76# j (UNADJUSTED)#j# jREGRESSION LINE --#w0+#V.##w0 # j$ 0.$H% 5X,15A," = ",6D.5D,X,A,6D.5D,"*",15A$j$R - SUBROUTINE TO COMPUTE ADJ. R2 AND STD ERRORS$V`$B$wKI#F%F&$ wLH#F%G&'K$ wMG#L%F&$wNJ#G%G&$wVN#L%L%K$ wNN&@$ wVV&@$wWN#V'N$wXV'K$wXX$ wYV%I&K$$wYY$ j$"YX$"H% "STANDARD ERRORS:",7X,6D.5D,2X,6D.5D$$ j$&'Y.'X$&H "T-VALUES:",14X,6D.5D,2X,6D.5D$(j$*jR-SQUARED -- UNADJUSTED: ' ADJUSTED: W$,j$./@ SCALE FOR $0j LEFT$2g$4 j RIGHT$6g$8 j SCALE FOR  $: j BOTTOM$<g$>j TOP$@g$BR -- PLOT$D%$$F% $G$J$H%8$JdU_WDWW$LdU_dDWd$NdUdWDd_$PdUWWDW_$RdE$T wp@$VwP$X%($Z%0$\j$^wK$` wpP $b X@ $d%($f%0$hj $jwP $lZ$nwW$pw_$rj$t%($v%0$xk$zwV@$|%($~%0$k$wd $wV@$j$%($%0$k$w_$%($%0$k$ R -- PUT IN AXES$ W5$$$$wd}$&#$wW$%($wd$%,$ W5$$$$wd}$&#$wd$%($wW$%,$ R -- PRINT TITLE$ wp@@$wP$j$%($%0$k@$W @@0Y&H$X@|$ W-7+$$ W-7+$$wd}$#&#$wd}$#&#$ R -- DISPLACEMENT$w@$w`$j$%($%0$j+$Z$R -- PLOT REGRESSION LINE$W0N%$w>@$w .%$W-7+$$w>$w>$w>>@$w .%$W-7+$$w>$w>$w>>@$V.% $w"&.$W-7+%$w>$w>%w>>@%w"&.%W-7+% %w>%w>% wd}$@#&#% wd}$@#&#%%(%wd}$@#&#%wd}$@#&#%%,%%% R -- SUBROUTINE $VSUB%"R -- W.F. SHARPE, STANFORD GRADUATE SCHOOL OF BUSINESS, MARCH 72%R ***** INITIALIZE *****%%<% R ***** ERASE *****%"%X%$ R ***** WAIT *****%&%%( R ***** PEN UP *****%*%b%, R ***** PEN DOWN *****%.%p%0 R ***** ALPHA *****%2%x%4R ***** GRAPHIC INPUT *****%6%%8R ***** INTERPRET *****%:%%<R -------------------------%> R -- GET CHARACTERS%@p$VCHAR%BO@!0H%Dh@%F^%HR -------------------------%J w@%L w@%NjF#,A@ B @ B %P)jF#,A"@ @ @"@ @ @%RjF#,A@ B @ B %T)jF#,A"@ @ @"@ @ @%V^%XR --------------------------%Z R -- erase screen%\R -- PRINT ESC, CTRL-L, AND 5 SPACES%^kB B   %`^%bR --------------------------------%dR -- move to x9,y9 with pen up%fR -- PRINT CTRL-SHIFT-M%hj%j%jH #,""%l%H%n^%pR -----------------------------%rR -- move to x9,y9 with pen down%t%H%v^%xR --------------------------------%z R -- put in alpha mode%|R -- PRINT CTRL-SHIFT-O%~j%%H #,""%^%R -----------------------------------% R -- read joystick% R -- uses z8,z9,c$% R -- PRINT ESC, CTRL-Z% j%B B %H #,A,""%w}%u0%%%w%v0@@0@@%v0``0PP%%%w%^% Y@@ %W@ @ 00@@%%[%w@ % w@ $@% Y@@ %W@ @ 00``%%[%w@ % w @%^%R -----------------------------%R -- SUBROUTINE FOR INTERPRETER%h0%V00E%%V00A%%i%V00D%%R -- move to x9,y9 with pen up%%b%%%R -- move to x9,y9 with pen down%%p%%%R -- SHIFT TO ALPHA AND PRINT NEXT STRING%%x%h0%j0%%% R -- end reached%^%R --------------------------%R -- RING BELL, WAIT, THEN ERASE%R -- PRINT CTRL-SHFT-O, CTRL-G, CTRL-G%j%w}%u0%W%%%X%^%%0%`&j DO YOU WANT THE POINTS CONNECTED& g @@&^&HR -- PLOT POINTS AND CONNECT&Mw@&RX@|&\ W-7+&&] W-7+&&^W&p&fw&gw&h%(&pwd}$#&#&qwd}$#&#&rW&z&s%,&zw@&{w`&|j&}%(&~%0&j+&w@&w`&&&w@&Z&$&`VSUB  &6`R HEWLETT-PACKARD 36558B, 6/74 R -- SUBROUTINE $VSUB"R -- W.F. SHARPE, STANFORD GRADUATE SCHOOL OF BUSINESS, MARCH 72R ***** INITIALIZE ***** R ***** ERASE ***** R ***** WAIT ***** R ***** PEN UP ***** R ***** PEN DOWN ***** R ***** ALPHA *****R ***** GRAPHIC INPUT *****R ***** INTERPRET *****R ------------------------- R -- GET CHARACTERSp$VCHARO@!0Hh@^R ------------------------- w@ w@jF#,A@ B @ B )jF#,A"@ @ @"@ @ @jF#,A@ B @ B )jF#,A"@ @ @"@ @ @^R -------------------------- R -- erase screenR -- PRINT ESC, CTRL-L, AND 5 SPACESkB B   ^R --------------------------------R -- move to x9,y9 with pen upR -- PRINT CTRL-SHIFT-MjH #,""^R -----------------------------R -- move to x9,y9 with pen down^R -------------------------------- R -- put in alpha modeR -- PRINT CTRL-SHIFT-OjH #,""^R ----------------------------------- R -- read joystick R -- uses z8,z9,c$ R -- PRINT ESC, CTRL-Z jB B H #,A,""w}u0wv0@@0@@v0``0PPw^ Y@@ W@ @ 00@@[w@  w@ $@ Y@@ W@ @ 00``[w@  w @^R -----------------------------R -- SUBROUTINE FOR INTERPRETERh0V00EV00AiV00DR -- move to x9,y9 with pen upR -- move to x@9,y9 with pen downR -- SHIFT TO ALPHA AND PRINT NEXT STRINGh0 jF#,72A0 R -- end reached^R --------------------------R -- RING BELL, WAIT, THEN ERASER -- PRINT CTRL-SHFT-O, CTRL-G, CTRL-Gjw}u0W^@VTTT A L<>"R **** HP BASIC PROGRAM LIBRARY ******************************R"R VTTT: TIC-TAC-TOE ON THE TEKTRONIX 4010 DISPLAY TERMINALR R 36559 REV AR"R **** CONTRIBUTED PROGRAM ***********************************w@w}w@P@wK&vFK0:vG_DvHJN X@`Xw Gbw Glw Hvw HZ R -- restore valueswPwKw@w}#(R -- SUBROUTINE TO PLOT GRID Y}~#@www F w [*w4 Y}~#@>wHwR\w #fp w F@z[^R -- subroutine to get movejvw Y@@WA8$w G.[8 R -- p is planeBwPL w G$@V w #@` Y@@jWAt w #@~[ R -- y4 is the y-valuew H$@ @$F@ Y@@WA w #@[ R -- x4 is the x-valuew@wPwp(jX^R -- subroutine to output location p,y4,x4#($x( w @$G2 w @$H<wFw #P @$#@P w F$#&#Zw #@ @$#@dwnws^x X@@jOZ^D6vrzR ********************************************R * STANFORD GRADUATE SCHOOL OF BUSINESS *R * PROGRAM NAME: GTEK *R * SUBROUTINES FOR USING THE TEKTRONIX *R * T4002 TERMINAL WITH THE HEWLETT-PACKARD *R * 2000C. *R * PROGRAMMED BY W.F. SHARPE (APRIL, 1971) *R * NOTE: A SPECIAL FILE NAMED $STRING MUST *R * BE AVAILABLE (SEE DOCUMENTATION). *R ********************************************R ------------------------- R -- get stringsp$VCHAR N @!h@v@@ B @(w@@B 2 w@@ 3 w@@ <^FR -------------------------P w@Z w@djF#,A@ @@ @n)jF#,A"@ @ @"@ @ @xjF#,A@ @@ @)jF#,A"@ @ @"@ @ @^R -------------------------- R -- erase screen R PRINT ESC, CTRL-Ljk ^R --------------------------------R -- move to x9,y9 with pen up R -- 1310 PRINT "gs";jH #,""F^R -----------------------------R -- move to x9,y9 with pen down"F,^6R --------------------------------@ R -- put in alpha modeJ R -- 1510 PRINT "us";Tj^^H #,""h^rR -----------------------------------| R -- read joystick R -- uses z8,z9,c$ R -- PRINT ESC, CTRL-ZjH #,A,""N0w}u0Wwv0@@0@@v0``0PPw^ Y@@ V00@@:&[0w@ : w@ $@D Y@@ NV00``lX[bw@ l w @v^R -----------------------------R -- subroutine to create pictureNHhV0e\V0E\V0a*V0A*iV0d V0D R -- move to x9,y9 with pen up R -- move to x9,y9 with pen down *R -- shift to apha and print next string46>hHjR\ R -- end reachedf^p`X v@Zl\(]^ v@_l`(abjcbl wdnvd%p wPrvP%twv^L@VX@vATJ vTl^#(R ***** QUBIC ***** DEMONSTRATION PROGRAM *****#+NH#,M#>O@LҔL#?&PϖҔ@!Ҕ@!Ҕ`!Ҕ@#@(PߖԠn`Ԣ@@x Ԣ@@ #Ani#Bo#F#J#IR#J#Kvd%P%!#L##M Ld#N L"d#O LP#P L"d"P#QVo6o6#S#RV@4@4@#U#SR#T#J#ULԞ@ $@$ P #V W#Y#W#J#YM@#Z##[M4D#\ X@L#] V@#e#^X#cR#d##e Vx#g#fM4#g V`#i#hMD#iZ#jW4#s#kL4#l X@@#mL#n W#r#oMP#pL#rZ#sWD##tLD#u X@@#vL#w W#{#xMP#y@#z#I#{Z#| X@L#}L#~ ֯@##VĪ@## X@@# W## M@#Z#Z### X@L# V@## VX##Z### Y@@ # W##[###L#MP#@##I# X@L#L# ֯P##VĪP## X@@# W## M@#Z#Z### X@L# V@## VV##Z####|#M@#W@$#R#b#R#R# Y4@L# L44#[4#^# XԞ@@# W##MP#@##I#Z#b### X@H@#$M@@`# W@7H##Z#####M4@#X|`###Z#M4###2@b h @hz @@ X N \ L h T l V #>@@`@P`p@HPX`hpx@ D H L P #8T X \ ` d h l p t x | @ B D F H J L #8N P R T V X Z \ ^ ` b d f h j l n p #r t v x z | ~ @#2@D B b @H D d `L F f @P H h #2PT J j `X L l p\ N n @` P p #2Hd R r Ph T t Xl V v `p X x #2ht Z z px \ | x| ^ ~ @ @ ` @#2@PHhD T d t B J R Z b j r z #2@`PpH X h x D L T \ d l t | #2`pXxL \ l | F N V ^ f n v ~ #2@@`@ P ` p @ H P X ` h p x @#2@`X@ D X l @ B L V ` b l v @#2hPp@t h \ P Z T N H z t n h #2@T R z @X T | `\ V ~ @` X @#2b J d hd L h pf N l xh P p @ #2@H F h PX N p Hh V x hx ^ @#2b D L @j L \ @r T l `z \ | @ #2@X V @@ l L b @\ T z hh N h # X@@# W@## MP#VĬP##R###R#J##I#Z#M4@#V@@@##L@###L@#XP"P@$# W14##Z### MP#R### X@@# M#Z#^$b$`XREF  p "R XREF: BASIC LANGUAGE PROGRAM CROSS-REFERENCE GENERATOR R 36143 REV C -- 2/73dNH H@ PHn OH xN | v@ 0123456789vPABCDEFGHIJKLMNOPQRSTUVWXYZnww[ w  j PROGRAM NAMEgj-DO YOU WANT A CROSS REFERENCE OF LINE NUMBERSfV@@0YV@@0N jTYPE YES OR NO.w@"j:DO YOU WANT A DICTIONARY OF VARIABLES WITH LINE REFERENCESfV@@0YV@@0N jTYPE YES OR NO.w`w@j%DO YOU WANT THE LISTING DOUBLE SPACEDfV@@0YV@@0N jTYPE YES OR NO.w@w@ j7PUT THE XPUNCHED TAPE IN THE READER AND SET IT TO AUTO.vdt$vP V$.@ j j#IS THERE ANOTHER XPUNCHED TAPE FOR  fV@@0YV@@0N jTYPE YES OR NO. Xb Y@P V0 .$[. v@@8pBvDV$LFvN HJLtVd`~ V 0GOTO V .GOSUBv@ V 0RESTOREV 0IF V 0DEF, V 0MAT V 0PRINT ( V 0RETURN V 0STOP V 0END V 0DATA V 0FILES V 0REM V 0IMAGEVd@@Vf v@  pV@2(2<Vd@dF@PZ2dV .OF2n X@x V0,Z v@@wp WnVd@@ V .THEN v@p",6Vd@,@v JTVd@|^V0 |h@r|VfJ V .PRINTV@@0# V .USING  v@@pV@D X@vpV@Z v@@w&p0:lDNVd@lX@bl Wv v @[@Vfv V .READV@@.# Y@ V0;[W+ Vd@@ V .INPUT v @[@ *Vf@4 V.[>w@H Y@R V0[z\ V.]fw@pzw@W[W+ Vd@@Vf v @[@ V 0ZER   V 0CON   V .IDN V Vf@ $ .Vd@  8@ B L  V X@ ` V0= t jZ tV@@.( ~Y@~@ V0) [ W+ Vd@ @    Vd@ v @[ @  Vf@   ( 2 V .USING < v@@ Fp PV@ Z X@ dv np xV@ Z v@@ w p    Vd@ @  W  Vf @   v vP v vP$" v@@@@@ v@ V v@ ^ W#Pj jPROGRAM TOO LARGE.j&THE LISTING THUS FAR WILL BE PRODUCED.UVN ^VN ^v@V+V,"V06 X@|~@ v@Zw@vh"v@,6 v@;֯J@^J V@6hw@r v@|v^vd@v vf Wvf@^w@v0V0,A2V0*Z2TdV0.EV@@,0V@@@9v 0vd@  v  @0vd`(2V0,0<V0*9FTdPZP v  @0Z^V0.$Vd@v @0vd@^V0.[Vd@v @0^V0@!V0>#Tdvd@^Td^pvz X@v0 X@P V00@Zv@^ vP @Z^X!4b!4gv@ljPROGRAM NAME IS: v!4xW@ yV@N6@{!4"j; CROSS REFERENCE OF LINE NUMBERS (S = GOSUB REFERENCE):!4@LINE NO. REFERENCED BY:w0Sv P#(v@VN4W@Vb6 !4 !j9 DICTIONARY OF SIMPLE VARIABLES WITH LINE REFERENCES:%w0 *!4R vN \ vdfv Pp Vd0uv"dz v @@ p W@j#(v@Vb4RVN:6!4#j> DICTIONARY OF DIMENSIONED VARIABLES WITH LINE REFERENCES:!4vPN N  p[]W@j#(v@VN:4VuJ6$!48!j9 DICTIONARY OF STRING VARIABLES WITH LINE REFERENCES:B!4jvPu0u0t p$vW@~xj~#(v@VuJ4j!4 Vj/ LIST OF LINES WITH MORE THAN 72 CHARACTERSj (AND HENCE UNPROCESSED):!4 vN   Pv@ V!4!4 ^@ v0 @@EV0,ATJV0@Z|Tv ^ph^| X@h  V00PZ  @ vdN ^ v0 @@V00[ V00$ v0p vd N"^ vN  ^ vu0 &^!4j!>j!H^#(v#-v4#2 v@#<v#> V#D#@w 0#B#E#Dw  #Ev#F #HV4P#N#Jv4#Lj#Nv44@#P` @P #Z V@#2#dj#n^'`<XTRACT &;"R **** HP BASIC PROGRAM LIBRARY ******************************RR XTRACT: FILE LOAD, PART 1 OF 2R R 36221 REV AR"R **** CONTRIBUTED PROGRAM ***********************************n V`@x NH0  v0 0123456789-+. vT4vdtv$@V@@.\v@ v@ X@ V0 W@ Y@h V006[W"w@,6WXb@W`hJW74"T w4@%\ ^hW"rw@| V.E"VT"vT@ U@j@$@`VCv%W4w4@TT0D j@4$`vTv$@ w4&0j@ԤP(4$`:Dv4$NvT@Xbw@lwfffv vP!@Z U@ j FILE TOO SMALL `<ACNOD1 LM$dAP P`@@PLOG}M0@(dI@@2dR@@R1@@dFdREB@`]RPI`PeZdCPI`P[BlRMU`@j0n"dCMU`@iIVQ1P@`PQdRO@PEV"dR2P`d dR3`}'dC1`~*'TRF1@pffffff&dC2p@CR4@}R5@H]dC3HD0dR6HPN dC4PRv N!BNi j-GRAPHICAL OUTPUT (HP 7200A PLOTTER): (Y OR N)fpj$wd.h8nBn2LnbVnB@$@$` n!@$jnqto~oVVvX@|hqZW 0Ahfg4hfg4vnfXĞ@| W 0AdhV@(V`2V@r<VPFV@DPVpZdinW@@0CxW@@0LW@@0RDW@`0TRFW@@0IVrW@@0IjDATA ERRbhtV v22 tV v22 tV v22"t v22"th"V6,VT6 v!! @ v! !  JVT v!!"^ v! ! "hrh|VV v" V v VV v V v"htVvbb@&tVvbb@&tV&vbb@&t0vbb@&t:DhtNVlXv@&tbVlv@&tvVv@&tv@&t h v֞$$$ w$@&@"$ w&$$&$w'$&w($&VH vbb#(V  vbb!( vbb!( V* vbb#& vbb#&*VH4 vbb!&> vbb!&HVR vbb#(\Vpf vbb!&p vbb!&zV vbb#& vbb#&V vbb#'V vbb!' vbb!'V vbb#'ZVp0N Bj!ORDINATE: (VOLTAGE, DB, OR PHASE) f j jEXTREMES OF ORDINATE: MAX, MIN $g .jPLTL 8 L B!j9NODE FREQUENCY VOLTAGE DB PHASE Lj Vvef `wv@%$e jX@| tX@| ~ vB vB   vB 2%v"b'v vB B  Z Z nCC R END OF MAT SOLN V v  v X@| V  v  ( vq (o 2o < X@@$ Fw B$! Pw B $! ZZ dw@!@ n W x W W w@  w@  w_'  w wZ%' W  W  wZ   wZ wd@d W @ "wP P ,w}@} 6 J @wN JVp0N N TV@@0V ^V@@0D hV@@0P rj+INPUT ERROR-V-REENTER ORDINATE: (V, D, OR P) |f jREENTER EXTREMES: MAX, MIN g jPLTL j  T w  w  w wN$#&# W 0A  Vʰ@ 0    V0LOG 0 wN$e"f&g"f & : 0wN$ef&gf :  D X NjeT H f  XZ bW 0A lVʰ@ v V0LOG vee!4  veeP(@'4 V@ Vn0e j Lne Ve@g ` Vp0N jPLTT `VANALA1 yd hfgh&%nNxN"2BM U@,$jFREQ, GCLOSS, DB INS PH, DEGREFL MAG REFL PH, DEGJ"jFREQ, GC R IN, OHMS X IN, OHMSVSWR REFL,DB DOWNJ!j-GRAPH: Y = VSWR, SCALE 1 TO 1.6. FREQ SCALE, f TO gMfffM@Jj'Y = VSWR, SCALE 1 TO 7, VS FREQ. IN GCMpj.Y = INS. LOSS, SCALE 0 TO 6 DB, VS FREQ. IN GCM`M"J,j/Y = INS. LOSS, SCALE 0 TO 60 DB, VS FREQ. IN GC6Mx @JXdf|g~hT v@@@^ v@@h v"@@r v"@@| v2@@ v2@@ vB@@@ vB@@X@| v@@@ v@@ v"@@ v"@@ v2@@ v2@@ vB@@@ vB@@hT0Nl*fh4v"@@}&d$d$4&0h:v"@@d$d$DNi$X v"@@$blh4tvLFt@ f$d$4@&d$d$@ v"@@t&Fv"@@f$d$4@&d$d$&Fh4v2@@d$d$4}hv2@@@&d$d$ht v2@@th4$LF$@ d$d$Ģ}&d$d$4@ v2@@$&Fv2@@d$d$Ģ}&d$d$4&F *id4v@@D$d$%d>v"@@D$d$%d%Hv2@@D$d$%d'RvB@@D$d$%d\fidpv"@@OD$d$%dzidv"@@OD$d$%didv2@@@&OD$d$%didv2@@OD$d$%d'Jv@`@@$@@"@@$@@ "@@$2@@""@@$2@@Jv@`@@$@@ @@$@@ "@@$2@@ "@@$2@@Jv"@`@@$"@@"@@$"@@ "@@$B@@""@@$B@@Jv"@`@@$"@@ @@$"@@ "@@$B@@ "@@$B@@Jv2@`2@@$@@"2@@$@@ B@@$2@@"B@@$2@@Jv2@`2@@$@@ 2@@$@@ B@@$2@@ B@@$2@@JvB@`2@@$"@@"2@@$"@@ B@@$B@@"B@@$B@@$JvB@`2@@$"@@ 2@@$"@@ B@@$B@@ B@@$B@@.v@@@`8v@@@`Bv"@@"@`Lv"@@"@`Vv2@@2@``v2@@2@`jvB@@B@`tvB@@B@`~Zv@@%& "@@wT2@@%& B@@v@@%& "@@w2@@%& B@@LT!%T@ !%@LԨ@"%T@ @"%@ M4@%$%T"%MF&T@ 4&T@VW4 L( L@(L@(MGZd_4& Z2MH%T %&T@!@<MI%T"%&T@!@F"MJE|!%%T@ !%%@&@%%%&P V!%%TnZ V!%%dnLxL@L@MKZd_!%%&!%%T ZML@!F&@#F MME|@'F U@MLMJjdJKFGvjdHILMv M#x "W&,WP J6j . @^Jj - TMP^W+hW-rM@%|M@%W-M@ W#@%W#?j +lj +lj+lM`%j |jOFF SCALE (F,Y) = d,M@l&j0j FOR F: TOP= f BOTTOM = g INCREMENT =h:j FOR Y: LEFT=  RIGHT =  INCREMENT =DjNjX$j@ I.........I.........I.........I.........I.........I.........IbJlvvl ivwxyz{|}ZdHyFffQd d d PPo0@G@PO|@KPP@KPO|@G@Po0`BLME  &>@@z ` j NKt I`|xCcASTBNlX`tuI@y|vhYXeF@a@h{@f@RoaNmSm@EMNQ{Ve@I@dWhLEK_@iLu W@I`Nm ASP d !()\?0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ.<v0$BASDEGFACGRAHELLISQUARADSAMSCRSTOZERFv`*ABSARCCOSCOTCSCEXPHYPINTLOGRNDSECSGNSINTANPoZvdocxv$PvVFd68w &% wFĞ@jINTERPRETIVE CALCULATORj j[ ] wGduGG WG<@jw@v֞ jW* V < 6"w@,6 W@*@vJ Y@H `TV @<0@^ v`@hw@rW*| V 0\ V < h[VTvXlpx W@5J wPv$ wFdZY$p0@ WapD&k00 wap:D[NXwF@blv vw8@ocbjNOT YET IMPLEMENTEDw@w@vVW*z V 0\z V <=ww@ W-> V 0  Yp $0@* V 10f4[>wHRj&ILLEGAL VARIABLE ON LEFT OF EQUAL SIGN\fvVpw@zx^v  V <\w@w@W*j  @^^vVVpVVhی$waVvV^$V$PB.k8^BW`Lj-Vw`vjvF"tW~j0^֏$F k (BASE 10)^#v< v&x wv&&@ w&$$$v&&0ppw&$ W4&@wF v&&v&VFd( v&&.2w$$<v&&@Fv&&0ppPw$$#Z V&H52djn^xw@vƞ@v& w6 Ğw@W@v  NV@jMISSING RIGHT PARENTHESIS^ V 0  Y@0 V 106[" jILLEGAL CHARACTER,6v4@V4`JV4XTv^ rv@|Vƪ@jEXTRA RIGHT PARENTHESIS vPv"PvĞ vd"d N V@vvƢ@^ VİbV4Pv&w0vĠ@:DvNvXbv ddlvdĞvvP vv@vƠ@VƬFjEXPRESSION TOO COMPLEXTw^\  V4d f V4p64h $ W H* w$$ 4p4w6@>^Hw $( $4pRw  @\4fW pw @zw6@v@^jILLEGAL DECIMAL POINTpv@^W6@w@w6 v@^ V4h $64d   W@* . Xd@p`@` V @0`dd@ L $Zd .vd 8 wa4p B Lw@ V vdd`@ `Vd@ jvd tv@ ~ Vdp vd v@  vd V4h j INPUT DATA g  w  w 6 V4H P w@ Y@} w% ([ 2w <v@ F^ PV4@ n Zv4 d nv` xw@ VĪ V v w vĠ@  v v  v@ ^  ֯@@@@    v " ,vĢ@ 6v @ \ T h |  & : J Tw! ^^ hw# r^ |w% ^ W W jDIVISION BY ZERO wde ^ w' ^ V W W j.NEGATIVE NUMBER TO REAL POWER - - WARNING ONLY v螏 w) ^ w@ ^  V7 w@ @$讯 @  +w@@$@@@ϖ@  U        j(ROOT OF NEGATIVE NUMBER - - WARNING ONLY   v&&@ w@@$%&@(&%&@(& w(@&% ^ w@   ^ &w8 0^ :w: D^ NVd v PV X Rw'F XvddP@P bVdH l \d *  .B nV v pw'F vvd ^ \dHVjn  n w ^ w%F @@$"   w@@ ^ w_@#@' ^ woo@ ^ w ^ *w%F 4@@$" z f R Rw@@' \^ f w_@' p^ zwoo&oo ^ w@O ^ w%F @@$" w@'@'@@ ^ w@&oo ^ w_@@@ ^ w@^wo$^.w8^BwL^Vw`^jw%Ft@@$"w@'@'@@^w_@@^w@&oo^ w@^w^w%F@@$"ZF2w@@(^2w_@#@<^Fwoo@P^Zwd^nw%Fx@@$"w@!@#@^w_^woo&oo^wO^ R GRAPHING ROUTINEww@ jLOWER LIMIT OF Xfw jUPPER LIMIT OF Xfx" j X INCREMENT,fy6 jX OFFSET@fzJ jY SCALING FACTORTf{VXZv(@(&^V{rhv{lrYw&y$yx&y$y~y| X|@H v|| Z|v}֏@$zF  v}F @$z v}}. ֏S vPPY X|Xz @ v||@. Z| v| | Yv}~ X%@|( wwaB &0wF @%aD ${ z: WH7@I?v}};D v*IZ%N j@}HX[]wblR PRIME FACTORING ROUTINEvx wW\w*v8w@v8W@w@w@W*-\w' W w v88@W@ V8*V8@H4 k^8*>RHk*RW@\kfpjLOWER LIMIT OF SEARCHzgjUPPER LIMIT OF SEARCHgwwaB v@ww WaD kaB waB @!aB > waB aB  waD w$.8 WaD BaD LWtVv@`w@jWd t WaB +~v@ waB aB "w@Wd j`>CALPLTN  Ka$ R #R *** HP TIME-SHARED BASIC PROGRAM LIBRARY ******************** R"R CALPLT: KEYBOARD ENTRY CALCULATOR PROGRAM WITH 7200AR GRAPHIC PLOTTER OUTPUTR 36131 (A301) REV A -- 7/71 (PART 2 OF 2)R#R *** CONTRIBUTED PROGRAM ************************************R *** CALCOM ***; 6/1/71 VERSION BY STEVE POULSEN OF OMSI(OFH H040%`-2w02+-*/^%<>!()\?0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ.<v0$BASDEGFACGRAHELLISQUARADSAMSCRSTOZERFv`*ABSARCCOSCOTCSCEXPHYPINTLOGRNDSECSGNSINTANPoZvdocxv$PvVFd68w &% wFĞ@jINTERPRETIVE CALCULATORj j[ ] wGduGG WG<@jw@v֞ jW* V < 6"w@,6 W@*@vJ Y@H `TV @<0@^ v`@hw@rW*| V 0\ V < h[VTvXlpx W@5J wPv$ wFdZY$p0@ WapD&k00 wap:D[NXwF@blv vw8@ocbjNOT YET IMPLEMENTEDw@w@vVW*z V 0\z V <=ww@ W-> V 0  Yp $0@* V 10f4[>wHRj&ILLEGAL VARIABLE ON LEFT OF EQUAL SIGN\fvVpw@zx^v  V <\w@w@W*j  @^^vVVpVVhی$waVvV^$V$PB.k8^BW`Lj-Vw`vjvF"tW~j0^֏$F k (BASE 10)^#v< v&x wv&&@ w&$$$v&&0ppw&$ W4&@wF v&&v&VFd( v&&.2w$$<v&&@Fv&&0ppPw$$#Z V&H52djn^xw@vƞ@v& w6 Ğw@W@v  NV@jMISSING RIGHT PARENTHESIS^ V 0  Y@0 V 106[" jILLEGAL CHARACTER,6v4@V4`JV4XTv^ rv@|Vƪ@jEXTRA RIGHT PARENTHESIS vPv"PvĞ vd"d N V@vvƢ@^ VİbV4Pv&w0vĠ@:DvNvXbv ddlvdĞvvP vv@vƠ@VƬFjEXPRESSION TOO COMPLEXTw^\  V4d f V4p64h $ W H* w$$ 4p4w6@>^Hw $( $4pRw  @\4fW pw @zw6@v@^jILLEGAL DECIMAL POINTpv@^W6@w@w6 v@^ V4h $64d   W@* . Xd@p`@` V @0`dd@ L $Zd .vd 8 wa4p B Lw@ V vdd`@ `Vd@ jvd tv@ ~ Vdp vd v@  vd V4h j INPUT DATA g  w  w 6 V4H P w@ Y@} w% ([ 2w <v@ F^ PV4@ n Zv4 d nv` xw@ VĪ V v w vĠ@  v v  v@ ^  ֯@@@@    v " ,vĢ@ 6v @ \ T h |  & : J Tw! ^^ hw# r^ |w% ^ W W jDIVISION BY ZERO wde ^ w' ^ V W W j.NEGATIVE NUMBER TO REAL POWER - - WARNING ONLY v螏 w) ^ w@ ^  V7 w@ @$讯 @  +w@@$@@@ϖ@  U        j(ROOT OF NEGATIVE NUMBER - - WARNING ONLY   v&&@ w@@$%&@(&%&@(& w(@&% ^ w@   ^ &w8 0^ :w: D^ NVd v PV X Rw'F XvddP@P bVdH l \d *  .B nV v pw'F vvd ^ \dHVjn  n w ^ w%F @@$"   w@@ ^ w_@#@' ^ woo@ ^ w ^ *w%F 4@@$" z f R Rw@@' \^ f w_@' p^ zwoo&oo ^ w@O ^ w%F @@$" w@'@'@@ ^ w@&oo ^ w_@@@ ^ w@^wo$^.w8^BwL^Vw`^jw%Ft@@$"w@'@'@@^w_@@^w@&oo^ w@^w^w%F@@$"ZF2w@@(^2w_@#@<^Fwoo@P^Zwd^nw%Fx@@$"w@!@#@^w_^woo&oo^wO^ R GRAPHING ROUTINEww@ jLOWER LIMIT OF Xfw jUPPER LIMIT OF Xfx" j X INCREMENT,fy6 jX OFFSET@fzJ jY SCALING FACTORTf{VXZv(@(&^ v*N&x"w`v+{$*bv,w$*dv-N  z$+h"jPLTL d- N - MX-m%j PLTT PLTL ,d ,N  ,MXo j PLTT PLTLrYw&y$yx&y$y~y| X|@H v|| Z|v}֏@$zF  v}F @$z v}}. ֏S vPPY X|Xz @ v||@. Z| v| | Yv}~ X%@|( wwaB &0wF @%aD ${ z: WH7@I?v}};D v*IZ%N*% ,-!aD $+X[YjPLTT]wblR PRIME FACTORING ROUTINEvx wW\w*v8w@v8W@w@w@W*-\w' W w v88@W@ V8*V8@H4 k^8*>RHHk*RW@\kfpjLOWER LIMIT OF SEARCHzgjUPPER LIMIT OF SEARCHgwwaB v@ww WaD kaB waB @!aB  waB aB  waD w$.8 WaD BaD LWtVv@`w@jWd t WaB +~v@ waB aB "w@Wd j`HbCROUT1 &?#(R ***** CROUT1 ***** MATHEMATICS PROGRAM *****#)R ***** VERSION 1 ***** 7/31/69 *****#*R SOLVES LINEAR EQUATIONS USING THE CROUT ALGORITHM#+N  #,N"  #-h#.X@|#/X@|#0h#1Z#2Z#3X@|#4X@|#5h"#6Z#7Z#8R NOW WE START THE ELIMINATIONS.#9X@|#:R HERE WE LOOK FOR THE LARGEST ELEMENT IN A COLUMN.#;M@#<X|#= ֏A#@#>M#? M#@Z#AW#D#Bj'MATRIX OF COEFFICIENTS IS SINGULAR.....#Cb#DR HERE WE START THE INTERCHANGE, IF NEEDED.#EV1#P#FX@|#GMD#H L#ILD#JZ#KX@|#LMD"#M L""#NL"D#OZ#PR NOW WE ELIMINATE ON THAT ONE ROW.......#QX@|#RV,#U#SL@#T#V#UL@#VM4#WX@|#X M44 $#YZ#Z L!4#[V>#]#\L&#]Z#^Z#_#R NOW WE HAVE THE REDUCED LEFT HAND SIDE.. NOW STARTS THE RIGHT.#`X@|#aX@|#bM4#c X@|@#d M44 $"#eZ#fL""!4&#gZ#h X@~@#iM4#jX@|#k M44 $"#lZ#m L""!4#nZ#oZ#pR NOW WE START THE PRINTOUT.....#qX@|#rj#s j ANSWER SET #tX@|#uj"#vZ#wZ#xb&D@@@@@@P@@@@H`@@dn_K&dPA'`bCURFIT Lh1#(R ***** CURFIT ***** MATHEMATICS PROGRAM *****#)R HEWLETT-PACKARD 36038D, 6/74#*R LEAST SQUARES CURVE FIT #2#+&OQa!11a#,OB#-h#.j#/X@|#0i#<Z#=j#>nc#?j LEAST SQUARES CURVES FIT#@j#Aj CURVE TYPE INDEX OF A B#Bj  DETERMINATION#Cj#D X@p#Eo3#F##GVP$`#W#HV@$`#P#IX@|#JMa#K##LZ#MV@#a#NVp#f#O#l#PX@|#Q W#^#R Ma#S##TZ#UV`#f#V#a#WX@|#X W#^#Y Ma@'#Z##[Z#\V`#l#]#a#^ j CAN'T FIT#_La#`#s#aX@|#bMQ#c##dZ#e#q#fX@|#g W#^#h MQ#i##jZ#k#q#lX@|#m W#^#n MQ@'#o##pZ#q##r j1!#sZ#tj#uj#vj STANDARD ERROR ESTIMATES/@#w$j CURVE TYPE REGRESSION INTERCEPT(A)SLOPE(B)/@#x X@p#y##z Va@#}#{ jCOULD NOT BE FIT#|#~#}kB@B@B`#~Z#j#j#j#jDETAILS FOR CURVE TYPE#f#V$ ### Va@#### j COULD NOT BE FIT.#####V@$P$`##X@|# M !%#V@##M@'#VP##M%###Z###X@|#V@##V`##V@##Mp !p###M@ !@'###M`$(!`###M@o!@%###Z###M1P1P!a@#M1`1`!a#^#M1@1@!Q#M1@1@!Q@#V@##M1@1@!Q%a#^# X@|@#L#X@|# WA##L#Z#V0##M#M#M#M#M#M#Z#^#L#V@##V@##V`##V@##VP##V`## j7. Y=A+B*LOG(X)#^# j6. Y=X/(A+B*X) #^# j5. Y=1/(A+B*X) #^# j 4. Y=A+(B/X)#^# j 3. Y=A*(X^B)#^# j2. Y=A*EXP(B*X)#^# j 1. Y=A+(B*X)#^#j ###j IS A#V@##V@##V`##Vp## j HYPERBOLIC### j LINEAR### j N EXPONENTIAL###j POWER### j LOGARITHMIC#j FUNCTION. THE RESULTS#V@##j4 OF A LEAST-SQUARES FIT OF ITS LINEAR TRANSFORM#j0 (SORTED IN ORDER OF ASCENDING VALUES OF X)#j ARE AS FOLLOWS:#j#jX-ACTUALY-ACTUAL Y-CALC PCT DIFFER#j#^#j#'L$%1@#1@%1`&%1@"1@@#L1`"$%1@&#M61P"1`@&#M7$@$1@"1@@&#L17'6#wB@6#7&@#+wB@B@1@&$1@"1@@&#!wB`B@1@"1@@&#V@$@$P$p##V@$`##L`$#L!`# wB`@#wB`@B``# wB``#^# Lo#wB@oB@###L#L!$#^# k$LD#$LDfffD}D'$VD$$VD$$j 0$^$ j $jD$^$ b'`DAFILC P TEST DATAfff@@fff@PL`Pfff@@ fffDJ  &C` @pRtHw {{"uvAq&t\vu1m(e h ejed ]arb2=\=WUp[__^scBhlmٚq uqyod{kLpB=nhgoFfpqt)ufwEqx t sEX |JV  @'bT v  ^X!@|"h+v     ! @$ !" @!& @!rZ!|"v   @ @  @ @$  v  @  @"  v @  @ ECAT1 Lp`pj nff\{33NE]puo mfitf]^Vvs p33c33{33Z=q_;v@@r3izffD9Xb\vv q3`s33Ydx@|33 ny@ff Ie`BxALoC33@ Mg+xF3qLX|cmfȴy{ ofNffxgfz|ff mK33thQe?}{@nQyrȵd/{@DpX@ Bd{@p3K33Dff Q d9X}@BpvffI33 ae}IrLDI33 _"gl}Pu[33O33 vviX~Lvk33Vff hlDOft3C33W33 uhmO@S33vU[33 KKmh@ X3{_33\ sn@@R|3\_ \(nA SL{d_ K:o|A@U3|k33d dpAA`^ff@Yrffdff Onq%AWff@ffo33h O\)q&B`[Ltb {q%BZLLl` Z=qq&B_A&fya lq&BVA&fdh Hrr\CY3@ `q w;r!CZ@fW33{33 j$r\CbB3_33C MrD\CYTH r-stDaffBS33L _CsEdffBXVff atzE kD@_33X33 O\)u?}E@bDffTZ D:v+F ffCY\^ D`wPF@hCLVff` [&yF`q3Ee\33 B^6zFhffD3`X d{dZG`mCٚ`] x|IGnCf`\33 }S}pGuDiQ33 n{~{GgfDs3c33S _|HlD@hW33 hQHo3D3jff_ G@bH{Gw33h kK@bNIqGho ^+@9IyffGk33s XQ@JwLGhuff a$A7LJ @3Hffps iAXJ@xGYep T1AK }E3fffp33 J\AK@|F33nffoff uB=qK`BGqn rB\KxGl| NVBL`@G&fpBZBHL@Gs3pBr^5BHLGI~ffFLg+CCLAfIyEfsnCMEH333|ff G"CME H3zffs vffCFMKJDff w33 N{D1NDfK}AZDINI Jf{33E3SDzOI@K33@ GXrDO PMDff ILQ7LDO@J@M333MuE?}P NM&fBff PLtEpP@N&fNY~ffRfq^EP`ULQ33C33 TdbF$POQ&f{33ViF+Q`TPs3@ WffBFQTs3QL@ VfUpG =Q^YTL [V+G\)QXULFff [I&GR]3UK XRHR]&fTPff QffXIGRcfVfT O@I#S]@VfV WVJ^5SbW&fZ [3~RJTc33Y Y33 ^ffG/KT iٚ\ffa ^DLZT@c3\\ [oMVU lf]f bcMTU@kf_Ya33 cf}?}NU`tc@jff i33V\O|Uld b dfVPrV`t33d c e3FQhsVuffdffh ^l(R\V{@g h ^Ly&SVrfg&fb X3XrT/Wzga O33_UWyLhٚ] N3^ JVRW@l@c V33xQWXR]&fTPff QffXIGRcfVfT O@I#S]@VfV WVJ^5SbW&fZ [3~RJTc33Y Y33 ^ffG/KT iٚ\ffa ^DLZT@c3\\ [oMVU lf]f bcMTU@kf_Ya33 cf}?}NU`tc@jff i33V\O|Uld b dfVPrV`t33d c e3FQhsVuffdffh ^l(R\V{@EXTPRE ^#'R HP CONTRIBUTED LIBRARY, REV. B, 2/75#(n#) v@ 0123456789#* W@7@#N#+#~#,n##-w#.#~#/n3#0]#[#z###1w#2 v@#3>v@@$`@ D D"@$@ d P#4 V@#6#5 w@@-#6v`#7V@#:#8w@@0#9#;#:#P#;v#<X@@~@#=#P#>Z#?VD#G#@w@@.#AvD`#Bv`#C#P#D vD``#Ev@#F#P#Gw#H X@#I W*9#L#J W,0#L#Kw@#LZ#M^#Nj*INVALID OPERAND PASSED TO CALCULATOR IN Z9#O^#Pv$@#Q vd#Rvd$P#S vd$P$#T V46@#V#Uw@@@@@#V VP46@#X#Ww@@@@@#XV`#Z#Yw@@@@@#Z^#[ v$!@#\ v41@#]v#^V!@$1@#h#_X@|$:4#`v !$@$ 1$@4#a v|#b v}$#cZ#dVB#f#ev@#fv@"B!@#g^#hv@#i$"4@#o#j#p#j X$@~@#k!"1@#o#l#p#lZ#m v@@#n^#ov@#pX@|$:4#qv !$$>"1$4>$#r v#s v}$#tZ#uX@@~@#v V#x#wZ#xv@$!@#y^#z v1@1@#{#[#| v1@1@#}^#~v@#v@`# v@`# X@# W< ##Z#w0### W<-##v@#v@### W< ##w###Vfff## W*5## W*2##v@###v@### W*8##vp#X|@# W0@##Z###vP# W09## W<.##va"###v@#V## v}#v`` $#v@@ $}$#vP### X@|@# vP$ # v}# v}$#Z#V##v@@@# v@### V@##v@@@### v@@$#^# v@@#֏!@@1@@##n#v@!@$1@}#v`#X4@1@#v# X$!@#v14$!$  $ 4@# v}#v$ 4@}$#Z$#v@# v$ 4@#Z4#'v@$ 4P"$ 4P!@$1@#^# V1@@##jDIVISION BY ZERO ATTEMPTED#^#v$!@@# v41@#V4@##j*** DIVISION BY ZERO ***#b# v@@#V$`##^# X&$@~@# v!&!&@#Z&#v!@!`#V4@$#v&}&14@# v!$@#V&@##v'#X(@|$#v)&$!( '# v')}# v!()}$'#Z(#v!('#v'#X(@|4#v)&$1( '# v')}# v1()}$'#Z(#X&$@|4@~@#v}$!& !&@&14|#&V14@$"!&@@!&} !&@"$14}##v@###v'#v*&"4@#X(@|4# v)' !* ("$1(# v')}# v!* ()}$'#Z(# V' !&##v@#v'#X(@|4# v)' !* ( 1(# v')}# v!* ()D}$'#Z(# v*@#Z&# v$@"4@#V@##)v"" @!@$1@#v@@$0@#^$v61@$v'$ X&$@~@$ v(}$' !&$ v&(&6$v'("&$6$Z&$#'`D@GANOVA &Dl"R **** HP BASIC PROGRAM LIBRARY ******************************RR GANOVA: ANALYSIS OF VARIANCE (2-WAY)R R 36501 REV AR"R **** CONTRIBUTED PROGRAM ***********************************N2Aqjn3nCns vFvFj*HOW MANY OBSERVATIONS PER CELL DO YOU HAVEfjHOW MANY COLUMNS DO YOU HAVEf$jHOW MANY ROWS DO YOU HAVE.f8v$$BjLjVX@|`X@|jXĞ@|ti~ v22!v!%Z v 2$2wFF 2 vAA 2 vqq 2Z vvq$q vZ w6v&$"F%F&w7"& w8"F%F&X@| vFF A$AZ w9F&$"F%F&(w:8#6#7#92j  *** ANOVA TABLE ***<jSOURCEDF SUM OF SQVARIANCEF RATIOF(jROW@99&@9&@&7&@$$P)jCOLUMN@66&@6&@&7&@$$Z'j INTERACTION@$@::&@$@d j:&@$@&7&@$$njERROR@$$77&@$$x jTOTAL@8jb'`@GWBULL Lv"R **** HP BASIC PROGRAM LIBRARY ******************************RR GWBULL: SUBJECTIVE PROBABILITY - RANDOM VALUESR R 37551 REV AR"R **** CONTRIBUTED PROGRAM ***********************************#(R WIEBULL FITTING PROGRAM#2w#<w67Q#@#Fv6#Pw%J}D#ZR CHECK FOR REFLECTION#d֏#@###n w5@#6#xve@###w5!6#ve@#X@|# w@##Z#X@|#w$@##v66 @'#Z#R BEGIN ORIGIN ITERATION#v#5#X@|$wa#5&$Z$v@$"$$,W@$J$6 jORG567$@ j &%$JW&-%$$Tw%&$^v$hw55#6$e$rw66!7$|w76#7$VX#$ R END ORIGIN ITERATION$w55!7$e$v$v#5$e$vee&$^$R BEGIN LAMBDA ESTIMATION$vǞfff$w&J}D$v'$vƞfff$%&%vƞfff%w&7%R BEGIN LAMBDA ITERATION%&vƠ@%0v8%:X@|%Dv7oȤa$&%Nv88 @o7@'%XZ%bv@%lW@%%v jLAM% j @"8&6&%v7@"8&6%Vưfff%%V7-&&%w&7%W'%%v%v %v"%%%v%v %Vd %&&W'&R& V0& &v"& v'Ǧ@&*v Ǧ@&4w&J}D&>v&H%&&R^&\R END OF ESTIMATION ROUTINE&f R BEGIN RV GEN&pw%&&zW%&p&W%@&p&w%Š@&@#%&w&o%&Š@&"w' Ť&"&Š@oŠ@&w'o'&w%&&e!5&^HASEY ~P @VXcpcxclod`] g_Zkdhb`dxe\bDgb<ZT\Va$[_ad]cfYcH__]_ca,OF DEPENDENT =FjSUM OF INDEPENDENT =7 MEAN OF INDEPENDENT =E,"/@?P$VARIANCE AND COVARIANCE CALCUALTIONS6j@&jD MONTH X-MEAN X Y-MEAN Y COL. 1^2 COL. 2^2 COL.1*COL.2JX%|TvG %"E^vH %"Fhv44 G$Hrv33 H@|v55 G@V-hjX@]a$N fc[P Yf_R cHYaT _cHdV __]X ]_cZ _]f\ c_Y^ a,ccH g] cxD _gclH Z_oL kZdP dhk`T bdh] X `bg\ dx`_` edxZd \ekh bD\dhl gbDbp b<g`t Zb<dxx T\Ze| VT\\@ a$VbDB [a$gD _[b<F a_ZH daT\J ]dVL cIDA ˖ &G& KgҔRaN JД<H(J- J^2 j14 JUN 74 VERSION3r$IDA014jwvdvP w^ N0PW|,oonӟovД@x  vД| x  v@H $ vJ H$ FITTEDRESIDU w@w|vx @Z@v @H $ @`'jGOOD MORNING. NEED HELP  f0!V0@@.N]",$jGOOD EVENING. NEED HELP % 'jGOOD AFTERNOON. NEED HELP ( , /@> 6w@x 0AV0@@.PAUSHB /@> C X@PDx0EWAFZHjJWTW} ,V j NEED HELP Wf0XV0@@0NBY j YOU MAY USE :Zj[jCOMM TO LIST COMMAND NAMES\j)EXPL TO EXPLAIN A SINGLE COMMAND NAME]j"INFO TO GET GROUPS OF COMMANDS^w@c,hWrUsswsj"NAME OF COMMAND TO BE EXPLAINED = t|w jCOMMAND NAME = |f0l X@uiP V0@@1PZX@}^V0@@/@$`@$ r0@@Z/@COMMAND INVALIDTw:W?jDr$IDAE21Tr!@Tr!@P  U444OIgggT@&JMM> (IHT@ H>>44K *T` 4CJ9999T@ 9&\&44TP 4C44&%&PT`  &499999Tp c>I>>&KT@Q~4&M&4JTHOIN  fkpTPqrstu&wxTXy\&&4}kk T`gfff||||Th*    vTpuC z jCOMMAND NOT YET IMPLEMENTED!'%r$IDA98&r$IDA39*r$IDA234r$IDA249r$IDA25>r$IDA26Cr$IDA27Hr$IDA28Ir$IDA29Jr$IDA30Kr$IDA31Mr$IDA33Nr$IDA34Or$IDA35Pr$IDA36Qr$IDA37\r$IDAE39]r$IDAE01cr$IDA45fr$IDA46gr$IDA47kr$IDA95pr$IDA48qr$IDA50rr$IDA51sr$IDA52tr$IDA07ur$IDA08vr$IDA09wr$IDA12xr$IDA13yr$IDA14zr$IDA54|r$IDA17}r$IDA18~r$IDA19r$IDA20r$IDA21r$IDA49r$IDA22bw@r/@COMMAND NAMES :/@l X@uh0 jF#,4A2X0VPP jZ$"/@/COMMAND 'EXPLAIN' WILL EXPLAIN ANY OF THE ABOVE.W^,8jBjUSER DEFINED COMMANDS :/@LX@}^Vj`@$`@$`H #,4A,2XjZojt, ( j * LEVEL =  - n 2j!CHANGE PROMPT LEVEL TO 1, 2, OR 3 <j 1 : DETAILED PROMPTS F j 2 : INTERMEDIATE Pj 3 : SHORT, CRYPTIC Zj d ( nP  xj W 2 W@7@7`'  2#($R:CHANGING POSITION OF COMMANDS WILL AFFECT IDAE21 AND IDA912 BY Q2#)dABSO@ADDC@#+dADDV`ALLS@#-dANOV`APPO@#/dAPPS@APPV`#1dAUTOpBACK`#3dBCORPBCOV`#5dCHGO@CHGP`#7dCOEF@CORR@#9dCOVA@DELB`#;dDELOPDIFF@#=dDOTPPDURB@ #?dENLI@ENTE@#AdEXPL@EXPO`#CdFILEPFORW@#EdFPRF`FPRO@#GdFPRRpFPRSH#IdFPRVPFREQ`#KdINFO@HISTP#MdINDX@LAGGp#OdLIST@LOGE@#QdLOG1HMEAN@#SdMULCPMULVX#UdNAME@NEWS@#WdNORM`PARC@#YdPLTC@PLTS@#[dPOWE`PRTF@#]dPRTO`PRTR@#_dPRTS@PRTVP#adQUIT@RAND@#cdRECO@REGR@#edRETB`RETO@#gdRUNSHRVSFL #idSAMP@SAVF@#kdSAVRxSCAT@#mdSEPR@SERC@#odSTANhSTEP@#qdSUBS@SUMM@#sdSWEE@TRAN@#udWLSR@RDIM@#wdNEWC@CALC@#ydSORT@PSOR@#{dRANK@ENTS@#}dENRA@MSORX#dCRSP@PSAM@#dGAUS@HELP@#dCTABxMTAB@ #dDIVIpSPEC@#dCRTS@COMM`#dAPPB@ZERS@#dZERC`ZERR@#dCATE@SELR@#dMOVE`DELV@#dSTAR@SPADP#dMPLS@COMP@#dDUMP@SUBV@#dPACF@CRFI@#dCROS@EOBR@#dMISS`EOBS@# dBOXJ@'j#NO DATA HAS BEEN ENTERED YET. USE:'!j:'ENTER', 'ENTS', 'ENRA', 'CRSP', 'INDX', 'RAND', OR 'STAR''jTO DEFINE DATA MATRIX.' ','`LIDA01  Lzf2R:12FEB744'<R:PROGRAM TO CLEAR COMMON AFTER GET-$IDAd"R *************************************************************xR R IDARR A SYSTEM OF PROGRAMS FOR INTERACTIVE DATA ANALYSIS FROMR THE UNIVERSITY OF CHICAGO GRADUATE SCHOOL OF BUSINESSR TIME-SHARED BASIC PROGRAM LIBRARYRR DEVELOPED BY ROBERT F. LING, AIDED BY HARRY V. ROBERTS,R AT THE GSB IN THE SUMMER AND FALL OF 1972."R MODIFIED, AND NEW COMMANDS ADDED, BY THEM AND BY JUNE ROBERTS"R THEREAFTER. WORK ON NEW COMMANDS BY OTHERS CREDITED IN THE"R APPROPRIATE SUBPROGRAMS.RR THE NAME OF THE CONTROL PROGRAM IS "IDA."R THE IDA SYSTEM IS BASED ON A COMMAND STRUCTURE."R GET-$IDA, RUN, AND ANSWER "YES" TO THE QUERY, "NEED HELP ?","R TO GET DETAILED EXPLANATIONS. ISSUE THE COMMAND 'LIST' FOR R A LIST OF THE IDA COMMANDS.RR#R IDA IS DESIGNED FOR USE AT THE GRADUATE SCHOOL OF BUSINESS,#R UNIVERSITY OF CHICAGO. ITS USE ELSEWHERE IS PROHIBITED UNLESS"$R SPECIFIC CONSENT HAS BEEN GIVEN BY HARRY ROBERTS OR ROBERT LING.,!R HEWLETT-PACKARD HAS BEEN GIVEN PERMISSION TO DISTRIBUTE IDA6R TO USERS OF ITS COMPUTERS.@R#("R *************************************************************' r$IDAh '`LIDA02 ˖  KgҔRaN JД<H(J- J^2R:10MAY74<R:>SCATdPJ PN2#AQw@wHvdvvXd|W@0v@vQ#@'@&vA#@'@0ZXjYH6 #," HOR. OBS. IN ROW ",3D," AN OUTLIER; PLOTTED AS "ZH7 #," VERT. OBS. IN ROW ",3D," AN OUTLIER; PLOTTED AS "]n3bX@|g vAAl vQQq VAs33vvA@x@{jY|j-3.4 VAF33 vAF @jYj3.4 VQs33vQ@@jZj-3.4 VQF33 vQF @jZj3.4Zj Xp@~@X@|VQ,Pfff4Q*PP#v2P"Q@A2P"Q@A@Z X@P vP"@֏H P"H PQjF#,DDH Pj - X@F  V2Q@@$ V2H jF#,D2@@$*ZjZn3Z j - - ' X@` j - - - - 'Zj - - j -3 X@` j jF#,2DZ/@ j MEAN STD. DEV.*j VERT. VAR.@@4j HORIZ. VAR.@@>j SAMPLE SIZE =XHVd140'Rj\j BUT FOR THE`OBSERVATIONS PLOTTED ABOVE:fjpj MEAN STD. DEV.zj VERT. VAR.hxj HORIZ. VAR.p@ j SAMPLE SIZE =`'@vJXd|TWP@r^v@hV0|rZ|^' r$IDAK'`PIDA03 ˖ &R KgҔRaN JД<H(J- J^2R:12MAY74<R:>NORMdPJ PN2##AwQwJw@wHvwX|W@0v@vA#@ w A`! w A@&vAA'@0Z:vdH1 #," OBS. IN ROW ",3D," AN OUTLIER; PLOTTED AS "njX@| vAA VAs33vA@@jj-3.4 VAF33  vAF @jj3.4 vAA@Zw@ X@F  V/ X@|%vAH P'w@*Z/Z1vQ@@4X`@|>w"@&@HwD@&%RwFD"IIEF%D&@\%D[%D%D\vQFf vQ"@FpZ]n3bX@|g vAAl vQQZj Xp@~@X@|VQ,Pfff4Q*PP#v2P"Q@A2P"Q@A@Z X@P vP"@֏H P"H PQjF#,DDH Pj - X@F  V2Q@@$ V2H jF#,D2@@$*V<@@$+ZjZn3Z LVdj+ NOTE: FREQUENCIES OVER 9 INDICATED BY '*'j MEAN = @j STD.DEV. = @w&%@`w&%@@` j SKEWNESS =  j KURTOSIS = jSTUDENTIZED RANGE =  j SAMPLE SIZE =' j - - ' X@` j - - - - 'Zj - - j -3 X@` j jF#,2DZ^L/`d FREQUENCY DISTRIBUTION V X@F `V4Hj VHtj ~j *vd@ jF#,XDZ^@vJX|TW@r^v@hV0|rZ|^' r$IDAK'`IDA04 ˖ L} KgҔRaN JД<H(J- J^2R:12MAY74<R:>PLTSdP/n PN A3q5NpJw@Tvd^vh vpSEQUENCE PLOT Uj,WANT TO PLOT ALL ROWS OF ACTIVE DATA MATRIX  jPLOT ALL ROWS fV@@.N j FIRST ROW fdVdvdVd?4d,jGIVE NUMBER LESS THAN  AND MORE THAN @ j LAST ROW fV*d4@jGIVE NUMBER LESS THAN @ AND MORE THAN djWANT HISTOGRAM ONLY fV@@0N vp HISTOGRAM W@2Xd|&vA#@'@0Z12Xd|3 vA@4ZH1 #," OBS. IN ROW ",3D," AN OUTLIER; PLOTTED AS "Xd|W@H vA/A VAs33vA@j j-5.2 VAj33 H vAj *j4j5.2HZRjunsvW@w v OF ' 'xWX|ywPzvPP`%P`%{|vPPД`%P`%~v jp OF STANDARDIZED VALUES jVp@@0SXd|W@wA vqq@Zj ROWXd|֯P.P jF#,3DXj -W@j DELETEDwA vqq@Wl  `* x 'Wl  x * x ' `*Z!j9 -'----'----'----'----'----'----'----'----'----'----'- j8 -5 -4 -3 -2 -1 0 1 2 3 4 5j j HISTOGRAMj j ABS. FREQ.jwq@ X@j  Vq@q@W*qwqZ X@~@֯P<P jF#,DDD `- X@j  V"q~R ` *Z$j.Z0!j9 -'----'----'----'----'----'----'----'----'----'----'-2 j8 -5 -4 -3 -2 -1 0 1 2 3 4 53jXvbX|lW@vv@ZjMEAN = @j STD. DEV. = @ jSAMPLE SIZE = Vd140'vvd vd@Xd@|v!@$" v!@ZVj! NO ACTIVE OBSERVATIONS IN ROWS d TO 'v &j BUT FOR THE  OBSERVATIONS PLOTTED ABOVE: jMEAN = V@vvXd|W@v "@Z v&@ j STD. DEV. =' r$IDAK'`IDA05 ˖  KgҔRaN JД<H(J- J^2R:12MAY74<R:>HISTdP/n PNq5A30@ ,w@.WT1WXE6wP;v0`%P`%@TEv0Д`%P`%Tv^X|hW@rv@| vAZvA@vA@X@|V@AvAV>AvAZj MIN. OBS. = MAX. OBS. =jMEAN =@ STD. DEV. =@ j SAMPLE SIZE=jUj4* GIVE MIDPOINT OF A CENTRAL INTERVAL OF HISTOGRAM: & j * MIDPOINT: &x +j0W?1j2 j7CHOOSE A CONVENIENT NUMBER NEAR THE MEAN AND/OR ONE NOT4j6TOO FAR FROM HALFWAY BETWEEN THE MIN.OBS. AND MAX.OBS.6j:?UDDXDj2* GIVE WIDTH OF EACH CLASS INTERVAL OF HISTOGRAM: NbXj* WIDTH OF INTERVAL: bx gjlWmjn j8TRY A 'ROUND NUMBER' THAT IS A RELATIVELY SMALL FRACTIONpj*(SAY ABOUT 1/5) OF THE STANDARD DEVIATION.qjvXvפPX@| vAA"&Z H9 #," OBS. IN ROW ",3D," AN OUTLIER; PLOTTED IN EXTREME "X@| vA/A VAs33vA@@j j LEFT INTERVAL VAj33 H vAj %@*j4 jRIGHT INTERVALHZRjunsX@|wA vqq@Z j HISTOGRAMj j ABS. FREQ.jwq@ X@j  Vq@q@W*qwqZ X@~@֯P<P jF#,DDD `- X@j  V"q~R ` *Z$j.Z0!j9 -'----'----'----'----'----'----'----'----'----'----'-8j B X@@@L jF#,2X4DE $VZY/@ZW@`[ l 0`jjjMEAN =@tj STD. DEV. =@~ j SAMPLE SIZE =j j WANT CDF ALSOf@V@@@0Y' X@j vqq q@Zj j CUMULATIVE j ABS. FREQ.j X~@֯@.@v@- jF#,3D,A@ X@j  Vq,(Vq*-֯@.@# `. (# `'(Z-֯@.@72j4<7j88H +,""<ZF!j9 -'----'----'----'----'----'----'----'----'----'----'-Pj Z X@@@d jF#,4X2DE $nZx/@}W@' l 0?'@vJX|TW@r^v@hV0|rZ|^' r$IDAK'`IDA06 ˖ &W KgҔRaN JД<H(J- J^2R:12MAY74<R:>FREQdP/n PNA3q55 Jw@Tv^X|hW@rv@| vAZvA@vA@X@|V@AvAZX@|V>AvAZj MIN. OBS. = MAX. OBS. =jMEAN =@ STD. DEV. =@ j SAMPLE SIZE=jUj0* GIVE MIDPOINT OF A CENTRAL INTERVAL OF TABLE: & j * MIDPOINT: &x +j0W?1j2 j7CHOOSE A CONVENIENT NUMBER NEAR THE MEAN AND/OR ONE NOT4j6TOO FAR FROM HALFWAY BETWEEN THE MIN.OBS. AND MAX.OBS.6j:?UDDXDj.* GIVE WIDTH OF EACH CLASS INTERVAL OF TABLE: NbXj* WIDTH OF INTERVAL: bx gjlWmjnjUSE YOUR COMMON SENSE, ORoj+TRY A 'ROUND NUMBER' ABOUT 1/2 THE STD.DEV.pjvXvפPX@| vAA"&ZH1 #," OBS. IN ROW ",3D," AN OUTLIER; INCLUDED IN "X@| vA/A VAs33vA@@j j FIRST CLASS. VAj33 H vAj %@*j4 j LAST CLASS.HZRjunsvnX@|wA vqq@Z v@q@ X@h v@ q@Z X@j  vqd$q& vd$&ZW@v@X OF ' ' WX wP vPP`%P`% vPPД`%P`% v@Xv jFREQUENCY DISTRIBUTION j$j CLASS P  CUMULATIVE.!jMIDPOINTP  PERCENTAGEP  PERCENTAGEBw@L X@j V VQ`w@jWPPQ~tj~jF#,DD.DE fff$Vff$ X  jF#,3D.Dq T  jF3D.D VcZj j TOTAL  X  jF3D.D j(NUMBER) X (jF#,3Dj)j?'@vJX|TW@r^v@hV0|rZ|^' r$IDAK'`IDA07 ǖ L KgҔR Ka JД<H(J- J^.R HEWLETT-PACKARD 36755B, 6/742 R:VERSION 23APR73N0@ <p*o`@onӟoS,j.U0880j$IDA CAN CURRENTLY STORE A MAXIMUM OF2j OBSERVATIONS ON @ VARIABLES4#jIN A 'TABLE', OR MATRIX, OF  ROWS AND @ COLUMNS.6:8jCURRENT IDA DIM. ARE  X @:j<UB>>> jFILE NAME IS @DBjNAME OF INPUT FILE IS Df0FD0@HjJ LV@@@.NPNPh@RX@|T w@@VX@|X h@ZL\Z^Z`%/@FILE '0' HAS  OBSERVATIONS ON  VARIABLES.bwdhfX@|h WR@rj#/@ BUT VARIABLE  IS A CONSTANT, NOT A VARIABLE,lj/AND WILL NOT BE ENTERED IN THE IDA DATA MATRIX.nw@prw@tvvVXxVX|zh|v`%A`%`$A`$~vД`%P`%`$P`$Zv#X@| wR@ZW@vH 2X6A," IN COLUMN",2X2D'/@DATA MATRIX NOW HAS  OBSERVATIONS AND  VARIABLES. j THEY ARE: X@|VXv@`$A`$x v@Д`$P`$j@Z"/@WANT TO USE ALL  VARIABLES LISTED ABOVE f@V@@@.NEjUjHOW MANY OF THESE  VAR. DO YOU WANT TO USE j HOW MANY OF  VAR. fn V4@j%YOU MUST GIVE A NUMBER BETWEEN 1 AND  . TRY AGAIN!jUj5GIVE NUMBERS, SEPARATED BY COMMAS, OF THE IDA COLUMNS j8LISTED ABOVE THAT ARE TO BE RETAINED IN THE DATA MATRIX.jGIVE  NUMBERS OF COLUMNS: nf X@|@X@| V0 V,wvvZZV@jj!!!GIVE NUMBERS BETWEEN 1 AND !!j !!!DUPLICATE NUMBERS! TRY AGAIN.@X@| wR@wWPv@Д`%P`%v@`%A`%x  lZX@|v@  l wR@ZDvE/@ COMPUTING...J w@@LX@|NpPZRXTw@VUX``X$/@4EACH COLUMN WILL AUTOMATICALLY BE NAMED VAR01,VAR02,Zj(ETC..., ACCORDING TO THE NUMBER OF THE '0 'VARIABLE\ j8IN THAT COLUMN UNLESS YOU CHOOSE TO GIVE EACH VARIABLE A^jNAME OF 1 TO 6 CHARACTERS.`/@WANT TO SUPPLY NEW NAMES bw@df@fV@@@0N' hv@jvlX|njpp H #,"VAR.",XDD,X,"= "rf@tVPzvvД`$P`$@@`x|zv`$A`$x @@`|Z~' Up/@* SAMPLE SIZE (N) = x jWj&N IS THE NUMBER OF ROWS IN DATA MATRIXV@ j N MUST BE LESS THAN OR EQUAL TO   /@* NO. OF VARIABLES (K) = *x /j4WR>j)K IS THE NUMBER OF COLUMNS IN DATA MATRIXH RV,\jK MUST BE LESS THAN f pjN,K = zfR U j.* ARE THE FIRST TWO ELEMENTS OF YOUR DATA FILE j6 VALUES FOR N AND K (SIZE OF DATA MATRIX) TO FOLLOW?   j* N,K GIVEN IN FILE?  x @ j W N j/IF THE FIRST TWO ELEMENTS OF YOUR DATA FILE ARE j2VALUES FOR THE SIZE OF THE DATA MATRIX TO BE READ, j0YOU WILL NOT BE ASKED TO SPECIFY THEM. IF YOUR &j6FILE CONSISTS OF DATA ALONE, THEN YOU WILL BE PROMPTED 0jFOR THE VALUES OF N AND K. : NV@@@0H  XV@@@0N bV@@@0Y lj(RESPONSE INVALID. ANSWER 'YES' OR 'NO'. v  ^pvz v@v@X@|v!@$" v!@Zv &vX@|W@v "@Z w@w@&@v4@&V4Q!/@FOR VAR.", ABS(S.D./MEAN) IS LESS THAN .02.j2FOR NUMERICAL ACCURACY YOU MAY WISH TO RECODE THE j2ORIGINAL DATA BY ADDING AN APPROPRIATE CONSTANT TOj.EACH OBSERVATION. THEN RE-ENTER. WARNING ONLY.^XX@|bX@|lV0v vX@|v#@'@v$#@'@ v $$Zv&@ v v@ZZ^L WR@@RN֏#@A7RP wR@@R^@X@|B w@@DX@|F wR@H wJZLX@|NwP wR@RLTZVZX^ lVP r nvД`$P`$@ p t rv`$A`$x @ t^#("d;VAR01 VAR02 VAR03 VAR04 VAR05 VAR06 VAR07 VAR08 VAR09 VAR10#2d5VAR11 VAR12 VAR13 VAR14 VAR15 VAR16 VAR17 VAR18 VAR19' /@)TO LIST CURRENT NAMES USE COMMAND 'NAME'.' r$IDAK'`IDA08 ᖡ o KgҔRaN JД<H(J- J^.JP0&'g72R: 4 AUG 744R:Q1=1 FOR ENRA;=2 FOR >EOBRdNH@Hip*n w`@sv6}xv7Z@zU{}{vPENRA|}vPEOBRW@jWANT EXPLANATION fV@@0N& v&'ԞUj W@"jh^vcrh W@rmvrZwj|jCOL. #HASINTEGERS IN ACTIVE ROWS. jMIN # IS jMAX # ISjR: COPY OBS #'S FROM COL.J TO COL. K9+1 OF XMATvX|W@v@ w@ w@@ZvR: ZERO ALL OTHER X MAT DATA CELLS R:>ENRA W@W@jjFURTHER USE OF 'P ' WILL ERASEjDATA NOW IN FIRSTROWS,COLUMNS.jWANT TO CONTINUE WITH PfV@@0N'  wAo w`@!W@+&w@+j0W`?5 jFILE NAME IS :D?j#NAME OF RANDOM ACCESS DATA FILE IS Df0ID0@NW@bSj'0' CANNOT BE FOUND.XjCHECK YOUR SPELLING!]?bjg V`@#(l h@@q vV@64@7{$j5CURRENTLY 'ENRA' CANNOT HANDLE DATA FILES LARGER THAN6X7'  vԞ @R:R1 IS 1ST RECORD OF DATA, R2 IS POSSIBLE 'NAMES:' REC.w'& $ V`@h@' @h@ V.NAMES:#, w] Fw('! V`@h@(z | Wz 5|  Wz @jREC. #( OF '0' SHOULD HAVE 2 NUMBERS:j(M1=M2=0 IF NO MISSING VALUES IN FILE, ORj0M1=1 AND M2= # REPLACING MISSING VALUES IN FILE.#,h@z | w'w'wz | jANY MISSING DATA IN '0' fV@@0N wz @j)NUMBER WHICH REPLACES MISSING VALUES IN '0' = g| jW`j$IDA CAN CURRENTLY STORE A MAXIMUM OFj OBSERVATIONS ON @ VARIABLES$jIN A 'TABLE', OR MATRIX, OF  ROWS AND @ COLUMNS. $jCURRENT IDA DIM. ARE  X @. L$ j WANT TO RDIM .f@8V@@@.N' BjLjVjFILE '0' HAS `W`~e jDATA MATRIX OF:j jROWS, OR OBSERVATIONS ANDCOLUMNS, OR VARIABLESt~jAX DATA MATRIX Wz j MISSING VALUES REPLACED BY| j NO MISSING VALUES@V@@@0N&& R:***** X@|` w@@ Z X@|` X@| w Z Z ^ R*** j U j* FILE SAMPLE SIZE, (N1 =  x  j W jN1 IS THE NUMBER OF ROWS IN '0' DATA MATRIX.  V氯 jN1 MUST BE A P"OSITIVE INTEGER.  j* # OF VARIABLES, (K1 =  x  j W j K1 IS THE NUMBER OF COLUMNS IN '0' DATA MATRIX.  V jK1 MUST BE A POSITIVE INTEGER.  jN1,K1 =  f V氯  V  w&@ v R:***** V`@  h@@ k,ARE THE FIRST TWO ELEMENTS OF '0'. j)THEY DON'T LOOK LIKE VALUES OF N1 AND K1!  W5 * #, *v 4v >w&@ Hv R:****?R****@jBjCHECK CW'rEU^TJJjNAMES OhT j'0' NAMES Yh^jNAMES OF ANY VARIABLES IN '0' hf@mV@@@.N SrpVALUES OF ANY VARIABLES IN '0' tf@ S^#(jNOT ENOUGH OR NO DATA IN '0'.#)j)USE IDA COMMAND 'FILE' OR PROGRAM $RECLIS#*jTO CHECK CONTENTS OF '0'.#+' #, jWRONG TYPE FILE!#-#)&"/@0'ENRA' CAN ONLY BE USED TO ENTER DATA IN THE IDA&j4DATA MATRIX FROM OBSERVATIONS AND VARIABLES SELECTED&jFROM A RANDOM ACCESS FILE.&' &r$IDA08A&r$IDA08D&r$IDAE08' jCHECK FILE CONTENTS.' j'P ' ABORTED.' r$IDAK'`"IDA09 ז &\ KgҔRaN JД<H(J- J^. J02R:12JUN74<R:C$ IS FILE BEING CREATED OR MODIFIED WITH >CRFI>&R:$IDA09A,$IDA09B CHAIN BACK TO L. 600..$IDA09C CHAINS BACK TO Q(7)=440dN@H Pi vמnW@sjWANT EXPLANATION xf@}V@@@.N&p*W@j.WANT TO CREATE OR MODIFY A RANDOM ACCESS FILE f@V@@@0N'v6@ j FILE NAME = f0#( V`@w@@`@ h@@h@VFw@w@@R:FILL IN IF-THENS AND GOTO TYP(-1)'S'  w@@w@@!@ " h@@'h@@@ w`@!E h@`Jh@@Ow@@!`T V`@hY h@@^h@chvמmR:WILL ASK IF ANY MISSING VALUES IN 390rR:CHAIN TO $IDA22A FOR INITIALIZINGw@ wpn&D0@W@Xj* >> x jW` j NEED HELP f@V@@@0NX jUSE SUBCOMMAND:&j(SUBC TO GET LIST OF 'CRFI' SUBCOMMANDS.0jQUIT TO QUIT USING 'CRFI'.:XD%dPOBS@MODO@STAT`SUBC@QUIT@N%dREDE@PNAM`MODN@PTEXPMODT`X/@* >> Zx \j^W`_`W @@0?bld X@PfiPh W @@1PjZljINVALID SUBCOMMAND.vwD0@U&&&&'&&&&&jSORRY, NOT IMPLEMENTED YET.X#(D0@#2W@#F#< j0 CANNOT BE FOUND.#A'#FW#Z#P jCANNOT WRITE ON 0#U'#Z^&r$IDA09C&r$IDA09B&r$IDA09A& w`H&r$IDAE08' &jDWRONG TYPE FILE! GET EXPLANATION BY RE-EXECUTING 'CRFI' AT LEVEL 1.' #j;YOU MAY USE THE IDA COMMAND 'FILE' TO LIST THE CONTENTS OF 0' r$IDAK'`IDA10 ˖ LZ KgҔRaN JД<H(J- J^2R:29MAY744!R:>ENRA, ENTERING SELECTED VARIABLES FROM A RANDOM ACCESS FILE6 R:CREATED WITH >CRFI8 R:9JUN74 KEPT AS BACKUP FOR NEW 'ENRA' NOW IN IDA08A-IDA08DdN 0@<PvPENRAp* W@W@jjFURTHER USE OF 'P ' WILL ERASEjDATA NOW IN FIRSTROWS,COLUMNS.jWANT TO CONTINUE WITH PfV@@0N' #R:ZERO DATA MATRIX,ETC., BUT LET SCRATCH COL.VALUES AND ALL P MATR:VALUES EXECPT P(65), THE CRSP MONTH INDICATOR, REMAIN W~  X@|` X@|@ wZZo`@ wAonӟjU jFILE IS jNAME OF INPUT FILE IS f0D0@W@ j0 CANNOT BE FOUND.jCHECK YOUR SPELLING!j V`@@ h@@nj'0' HASOBSERVATIONS AND VARIABLES.V@jBUT CURRENT IDA DIMENSIONS AREX@' vj(HOW MANY VARIABLES DO YOU WANT TO ENTER fV4@4@@ j TRY AGAIN! j WHICH ONES nnfvX@| w@@ h@@nh@X@| w&Z0Z:X@|DwNXh@$bWFlh@@ v@`%P`%VPvД`$P`$ wPv`%P`% Z*w@R& X@} h@@ Z^ w!Pw$@$W@L.w$$@8wpB`LwVWX`wPPjWtwP~R:NAME FOR VAR#Z IS NAME X IN STRING Y OF RELCORD R OF C$^@jNOT ENOUGH OR NO DATA IN 0Aj%USE COMMAND 'FILE' TO CHECK CONTENTS.B' #(jSORRY, CANT'T TAKE MORE THAN OBSERVATIONS.#*'&R:GOTO IDA912 FOR UPDATING MEANS AND STD.DEVS.&w@`@&v&v@&r$IDA912' jP NOT EXECUTED.' r$IDAK'`LIDA11 ˖ "- KgҔRaN JД<H(J- J^2R:12MAY744R:>MSOR<Nq1=N 0  bndnfoshn3lv@vX@|v@vZ pv@v@vv@@'@X|JvOX@|Tv@^ vhZrv|X@|v@ wZZ^pv@qv֞@svuV>zv{ v @|wD}WAD~vvDwDvW?DvvDwDWADvvDwDvvFvƢ@W+DwFv@W-DV@ V"@"wqv1vv֠@wqv1vv֠@v֢@Vְvqv1 V"XzV@uv@v@V0 wD@WADv v@v@WD- v@D^' r$IDAK'`IDA12 ˖ &ak KgҔRaN JД<H(J- J^2R:28APR744R:MODIFIED FROM A PROGRAM WRITTEN BY J.A.YOST IN AUG.1973<R:>CRSP, FOR PLACING CRSP- DATA INTO IDA DATA MATRIX>R: Q(8)=1,2,OR 3 FOR LOAD FROM SCRATCH, ADD DATA OR CHECK@R: Q(9)= # OF MONTHS OF DATA IN CRSP FILESBR: Q(10) = # OF $CRSPH RECORDSDR: Q(11)= # OF FIRMS IN CRSP FILESFR: Q(12)= LAST YEAR OF CRSP DATAHR: Q(13)= 1,2,OR 3 IF $CRSPR, $CRSPS, OR $CRSPP IS USEDJR: Q(14)= 1 OR 2 FOR RETURNS OR PRICESLR: Q(15) =1 IF FIRM HAS MISSING PRICES, I.E., M>0NR: P(65) = 0 IF NO CRSP DATA LOADEDP"R: = 1 TO Q(9) TO INDICATE THE STARTING CRSP INDEX MONTHRR: OF LOADED DATAT!R: P(1) = P(65) FOR TEMPORARY CHAINING UNTIL DATA IS LOADEDV R: $IDA12A MUST BE REVISED WHEN Q(9) > 600 SINCE DIM L(600)dp*nPߗ`@`xQ@`x` N(0 wHF wPG wXGw`H w@jUjWANT EXPLANATION fV@@0N&U66j(* WANT TO CHECK DATES FOR CRSP- DATA ? ,@6 j * CHECK ? @x BjDWJFJV@@0NKV@@0YTLV@@0?MV@@0HELPNj!INVALID RESPONSE. PLEASE RESPOND:Oj'YES NO OR ?, IF YOU WANT AN EXPLANATIONPT w@`V wh`^!R:IDA12A CHAINS TO L. Q(7)=500 AFTER OPTION Q(8)=3 [CHECKING]j D$CRSPH@fVf@:j%THE CRSP HEADER FILE CANNOT BE FOUND.&jIDA CANNOT LOAD CRSP DATA0': W@`&?v0$CRSPRD wh@F wp@GUIIKIj* WANT TO LOAD FROM JNK j * LOAD FROM NXXv0$CRSPSZ wh@\ wp@^X`v0$CRSPPb wp@d wh`fXhV@@0N' W@j IDA DATA MATRIX NOW HAS:  ROWS  COLUMN(S)W@jBUT THE FIRST@!j:ARE UNDEFINED BECAUSE OF PREVIOUS USE OF 'DIFF' OR 'LAGG'. WAjYOU HAVE ENTERED 'CRSP' DATAj"AAA vTA @ j$TTUj' WANT TO ERASE ALL DATA AND START OVER  j ERASE fV@@.N WA w@Aj YOU MAY LOAD MONTHS OF 0 DATA.w@4 w@@ w`` wpd V,@"j#DATA MATRIX FULL WANT TO CONTINUE f0V0@@0N'R:IDA912 CHAINS TO L.Q(7)=800 FOR OPTION Q(8)=2 j"U$**$j* COLUMN NUMBER OF DATA MATRIX&jTO PLACE NEW VARIABLE :(,*j* COL.# FOR NEW VAR. ?,x .j0W4,@62&jNUMBER SHOULD BE@8@OR LESS. PLEASE RE-ENTER.4*6 W@R> X@|@@V1aHBZDR:J NOT IN SAME COL. AS REGRESS. VAR.FRHj#WARNING! IF YOU PLACE DATA IN COL.Jj-CURRENT REGRESSION RESULTS WILL BE WIPED OUT.KjWANT TO DECLARE NEW COL.# Lf0NV0@@.N*OjWANT TO CONTINUE Pf0QV0@@0N' RvTV' V V*@2X& W~  X@|` X@|@ wZZo`@ wP  X@pwZnӟwA@vUj5GIVE NUMBERS FOR MONTH AND YEAR, SEPARATED BY COMMAS.jE.G., 12,1926 FOR DEC.1926j STARTING MONTH, YEAR g67W66577#j3MONTH AND *YEAR MUST BE INTEGERS 1 TO 12 AND 1926 TO` j TRY AGAIN! W6s3356`W7x^f57A` w47x``!6 W4?p j8NO RETURNS AVAILABLE UNTIL 2/1926 OR PRICES UNTIL 1/1926 j GIVE NEW:^j ENDING MONTH, YEAR fVW vTWx`` V VT+HVT+4j#GIVE AN ENDING DATE LATER THAN THE j"674 jNO DATA AFTER j'HH j GIVE NEW:R: CHECK IF ALL DATA CAN BE LOADED WITH PRESENT DIM.vT#4@V@%j IDA WILL NOW TAKE ONLY  OBSERVATIONS IN @ COLUMNS.jYOU HAVE ASKED FOR . WANT TO 'RDIM' fV@@.N' j CHOOSE A SHORTER SUBPERIOD.j YOUR SUBPERIOD HAS  MONTHS.v@w@4L w@@V&"H4 " STARTING ",2D,"/",4D," [CRSP INDEX MONTH",X3D,"]"$H " ENDING ",2D,"/",4D'H 2D,"/",4DXUbblbT 0 FILE INTO IDA DATA MATRIX ? dl h0 ? x jW j WANT TO LOAD bV@@0NV@@0?V@@0Y j7INVALID RESPONSE. PLEASE RESPOND Y FOR YES OR N FOR NOD0@fVf@h!jTHE 01 FILE CANNOT BE FOUND. IDA CANNOT LOAD THE DATA.^j!j9CRSPR DATA ARE MONTHLY RETURNS WITH DIVIDENDS REINVESTED.#j=CRSPS DATA ARE MONTHLY RETURNS WITHOUT DIVIDEND REINVESTMENT.jCRSPP DATA ARE MONTHLY PRICES!jOFX,COMMON STOCKS AND THE NYSE ARITHMETIC INDEX.j^&r$IDA12A&r$IDAE12' j'CRSP' NOT EXECUTED' r$IDAK'`*IDA12A˖ LK KgҔRaN JД<H(J- J^2R:9FEB74<R:>CRSPNA X(0 p*,* D$CRSPH@fPߗ`@`Q@`x` Uh,, D$CRSPP@f^ W@`Xh D$CRSPS@f D$CRSPR@fjw4@ vT@ @ vv0ENTER wd!p@W4?jH #,"NO DATA FOR STOCK "jUNTIL j H X2D,"/",4D jDATA NOT ENTERED.V>TjjAFTER j wxV԰ wx@h@$ nT"d@nh@ X@|%w4"d *V԰h/ Uh>>44 V^9H> V.P^H WxbRj+MISSING DATA FOR STOCK IN SUBPERIOD CHOSEN.Tj WANT TO PROCEED TO LOAD  Vf0XV0@@0NZ wx\ ^ Wxh`jb!jENTERED IN ROW,COL.TO INDICATE MISSING VALUE.h wjZk w`lj COL. CONTAINS m wA@z W@@ V@0v@Uj WANT TO LOAD ANOTHER SECURITY j ANOTHER SECURITY fV@@.N W@@'v@v& j END OF $CRSPHU<j INVALID HEADER NUMBERS.Fj&1ST HEADER NUMBER MUST BE INTEGER 1 TOPPj 2ND HEADER NUMBER MUST BE 1 OR 2U j TRY AGAIN!ZUj-GIVE THE HEADER NUMBERS, SEPARATED BY COMMAS,jOF THE SECURITY YOU WISH TO 0  j HEADER NOS.f V@6@<V6@6+P<"H " STARTS ",2D,"/",4D$H " ENDS j",2D,"/",4D V`@h@X@| h@Ddnh@C h@h@$Z jYOU HAVE PICKED ^Xjlv0CHECKv j PRICE DATA: j"dd j$ j RETURNS DATA:j"d@d@V԰j%MONTHS OF MISSING PRICES. WANT LIST f0V0@@0N n"d@h@$nh@v X@|"d@ Vw d@ jv@V``j H #,2D,"/",4D3XZ jNO MISSING DATAj j MORE CHECKS f V@@.NX w@& r$IDA12}& w``& wpd&r$IDA912' r$IDAK'`jIDA13 ˖  KgҔRaN JД<H(J- J^2R:30AUG73 N@   v6Uj WANT LIST OF SUBCOMMAND NAMES f V @@0N^j COMMAND PROCEDUREj******* *********j SYST SYSTEMATIC SAMPLINGj+ RAN1 SIMPLE RANDOM SAMPLING BY SORTING!j: RAN2 SIMPLE RANDOM SAMPLING BY DRAWING RANDOM NUMBERS"j$ SRAN STRATIFIED RANDOM SAMPLING@j NONE NONE OF THE ABOVEJ"TU^^^j& *WHICH PROCEDURE DO YOU WANT TO USE? hx @rj|Wv66@j *WHICH PROCEDURE ?x @jWV6@^V@@@0SYSTV@@@0RAN1 V@@@0RAN2 V@@@0SRANV@@@0NONE'&R0R:RD jINVALID COMMANDNTR: SYSTEMATIC SAMPLING IMPLEMENTATION "` r$IDA13A "` r$IDA13BR:SRAN IMPLEMENTATION --OLD HVR13Uj *POPULATION SIZE ?j% *SIZE OF POPULATION TO BE SAMPLED ?x jW j NEED HELP f V @@0Nj( YOU WILL GET A LIST OF SUBCOMMAND NAMESj1FOR WHICH YOU MAY REQUEST FURTHER EXPLANATIONS.  V䰯4@jTRY AGAIN! GIVE AN INTEGER >1.j DESIRED MINIMUM SAMPLE SIZE fV@ V氯4,j$TRY AGAIN! GIVE AN INTEGER >0 AND < L&&j THE SAMPLING INTERVAL IS  SO  OBSERVATIONS WILL BE DRAWN"jFROM THE FIRST  TIMES  ELEMENTS OF THE POPULATION.v"$VTJ!j!AN INCOMPLETE INTERVAL OF LENGTH  IS LEFT AT THE END.Tj) THE FOLLOWING ARE THE SAMPLE ELEMENTS: VV@@@0SYST0^X@|hMr M%@| M@$!kZV w@ M%w$!kv@ f V @@0N'0w5 w%@:k?X@|Dw IkNZSw XW*`Zk[v@]_g`gf lV @@0N'vjTHE LAST ITEM,,COMES FROM THE INCOMPLETEjINTERVAL AT THE END.j ACTUAL SAMPLE SIZE IS j WANT ANOTHER SAMPLE ^"` j WARNING!!!"eW@""j$"jWANT TO CONTINUE "f "V @@0N'"^"j! WANT MORE DETAILED EXPLANATIONS "f "V @@0NT"j) WHICH SUBCOMMAND DO YOU WANT EXPLAINED "f@"V@@@0SYST$T"V@@@0RAN1""V@@@0RAN2#"V@@@0SRAN#"j0INVALID RESPONSE! USE SYST, RAN1, RAN2 OR SRAN."""#("j MORE EXPLANATIONS #"#v@@@RAN1# #(##r$IDA13A#(j# SIMPLE RANDOM SAMPLING BY SORTING #*"j< THIS PROCEDURE CAN BE USED TO SORT A POPULATION OF SIZE#, j7N INTO A RANDOM SEQUENCE. THIS IS OFTEN USEFUL FOR THE#.!j:FORMATION OF RANDOM SUBGROUPS IN AN EXPERIMENT. IT CAN BE#0#j>USED ALSO FOR SEQUENTIAL SAMPLING OF SMALL FINITE POPULATIONS.#2"j; THE INDIVIDUALS IN YOUR POPULATION MUST HAVE BEEN NUM-#4j3BERED CONSECUTIVELY FROM 1 TO N FOR IDENTIFICATION.#6 j7 WHEN YOU RUN THE PROGRAM YOU ARE ASKED THE SIZE OF#8!j:THE POPULATION. YOU ARE THEN GIVEN THE OPTION OF A PRINT-#: j7OUT OF THE ORIGINAL ORDERING OF THE POPULATION WITH THE#<!j:RANDOM NUMBERS ASSIGNED TO EACH ELEMENT THEREOF. FINALLY,#> j8YOU ARE GIVEN THE PRINTOUT OF THE RANDOM ORDERING OF THE#@!j9POPULATION AND THE RANDOM NUMBER OF EACH INDIVIDUAL. FOR#B j7SPEED OF PRINTOUT, YOU CAN ELECT TO SUPPRESS THE RANDOM#D!j9NUMBER, SINCE ONLY THE ORDERING IS NEEDED FOR STATISTICAL#F j PURPOSES.#H!j:~ YOU CAN USE THIS PROGRAM FOR SORTS OF UP TO ABOUT 800#J j8ITEMS WITHOUT EXCESSIVE COMPUTER TIME. FOR N=750 A SORT#Lj*TOOK LESS THAN ONE MINUTE OF CONNECT TIME.#N j WARNING!#P$#R^#j STRATIFIED RANDOM SAMPLING #j6 PROCEDURE SELECTS ONE ELEMENT AT RANDOM FROM EACH#j3SUCCESSIVE GROUP OF K ELEMENTS IN A POPULATION OF N# j7ELEMENTS NUMBERED SERIALLY FROM 1 TO N. IT SELECTS ONE#!j:ELEMENT FROM THE FINAL INCOMPLETE GROUP, IF THERE IS ONE. #$^#!j: SIMPLE RANDOM SAMPLING BY DRAWING OF RANDOM NUMBERS UNTIL#j-DESIRED UNDUPLICATED SAMPLE SIZE IS REACHED. ##j= THIS PROCEDURE SELECTS A RANDOM SAMPLE OF N1 FROM A FINITE##j=POPULATION OF N, SELECTION WITHOUT REPLACEMENT. THE USER IS ##j>ASKED FOR N AND N1, AND THE SAMPLE ELEMENTS ARE PRINTED OUT IN#$j?ORDER OF THEIR LISTING IN THE POPULATION. IT SHOULD BE POSSIBLE#"jQUIRED SAMPLE SIZE, N1. ACTUAL SAMPLE SIZE MAY BE N1 OR N1+1.$b"$jUSE OF @@@$j(WILL PREVENT RETURN TO IDA COMMAND LEVEL$j"AND ANY DATA ENTERED WILL BE LOST.$^' r$IDAK'`~RIDA13A &mc2 R:RAN1:29AUG73dPd@N 1drddj *SIZE OF GROUP TO BE SORTED?x W j NEED HELPf V @@0N r$IDA13F< V䰯4@ j GIVE INTEGER >1! n1dj, WANT RANDOM NUMBER PRINTOUT BEFORE SORTING f V @@0Nj# GROUP RANDOM ORDER NUMBERX@|"w+V @@0N@, jF#,4D6X6jFD.6D@wJ v11@N V1X TPj#STARTING OVER--HIT A TECHNICAL SNAGRT vr1^ v1hZr X@d| V1@ X@|1@ X@|1 Vr@rwDrwF vrr vvrDvFZZZDj WANT PRINTOUT OF RANDOM NUMBERSNf b j7 GROUP SAMPLE RANDOM ORDER ORDER NUMBERv@ X@d X@|1jF #,2(4D6X)V @@0N jFD.6Drv@v@jZZ j ANOTHER SAMPLE f V @@0N''j, TYPE 'GET-$IDA' AND 'RUN' TO USE IDA AGAIN.'`RIDA13B LJ R:RAN2 OF >PSAM2R:11MAY74d N  1nP/@j% *SIZE OF POPULATION TO BE SAMPLED ?x jW j NEED HELP f V @@0N#( V䰯4@jTRY AGAIN! GIVE AN INTEGER >1.V}&j DESIRED SAMPLE SIZE fV@ V氯4,j$TRY AGAIN! GIVE AN INTEGER >0 AND < n1vԞww/" V1,$, v11@JvԠ@OV0Tj, THE FOLLOWING MEMBERS OF THE POPULATION OF jCOMPRISE THE SAMPLE OF : vX@| V1 jF#,3X4Dv@VPPjZj j ANOTHER SAMPLE *f 4V @@0N'>#("j;RAN2 SELECTS A RANDOM SAMPLE OF N1 FROM A FINITE POPULATION#2"jGAUSdN jUj.* WHAT IS THE MEAN OF THE NORMAL VARIABLE X ?  j * MEAN = ?x ~W@j"!j9TO CALCULATE PROBABILITIES FOR A NORMAL DISTRIBUTION, YOU,!j9MUST SPECIFY THE MEAN AND STANDARD DEVIATION OF THAT DIS-6j2TRIBUTION. YOU WILL BE ASKED FOR THESE SEPARATELY.;@jBUJJ^Jj- WHAT IS THE STANDARD DEVIATION OF X Th^ j STD.DEV. = hf}rV}|j#STANDARD DEVIATION MUST BE POSITIVE@jUj1* WHAT IS THE LOWER LIMIT L FOR THE CALCULATION ?j* LOWER LIMIT L = ?x yWjjTHE CALCULATION TO BE MADE ISj0PR(LPACF6R:15JAN74 VERSION BY WM. WECKER<N)!)!)A)=N >W@F?jWANT EXPLANATION @fAV0NFB#j='PACF' COMPUTES THE PARTIAL AUTOCORRELATION FUNCTION ESTIMATEC$j?VIA THE ITERATIVE METHOD GIVEN IN BOX AND JENKINS (1970),P.497.Dj!REISSUE 'PACF' TO EXECUTE 'PACF'.E'F W@'N j WHICH COLUMNPgTV' UW5@5ZVjTHAT COLUMN NOT DEFINEDWNZ/@ HOW MANY LAGSdfeVR nf jMAX NUMBER IS 40gZnvsvxX`@|W@v!v@Z v8`v&w%X`@|W@w%% "@Z6X@|@w!JX`@|"KW@^LW @^Tw!! "$ "^ZhZrX@|| w!!'%Znn# v@!@R vA@!@XĞ@|w67 X@|Ģ@v! w66 !%!" w77 !%!Z0v!#6&@#75vA: X@|Ģ@Dv!"$!"NZvZPV P v5X@| v55AZ/@HPARTIALjORDER AUTO COR. L V5@HV5@*V5@ w4@j+ -8 -6 -4 -2 0 2 4 6 8 w4@j+ -4 -3 -2 -1 0 1 2 3 4 *w4@4j+ -2 -1.5 -1 -.5 0 .5 1 1.5 2>Hw4@Rj+ -1 -.75 -.50 -.25 0 .25 .50 .75 1\ P j)/----/----/----/----/----/----/----/----/X@|vEAvZ' jF#,3D5X jF#,SD.3DE L -vEE'4VET 8 L E*$ P /.j8VET VB P *LjV P /` L E*j^' r$IDAN ' j'PACF' NOT EXECUTED' r$IDAK'`IDA22 ˖ L KgҔRaN JД<H(J- J^. O!Q *2R:29MAY744R:>CROS<R 23 MAY 74 BY R.K.KNOWLESARFR: ************************************K R CROSS CORRELATIONLRM jWANT EXPLANATIONN f @POV @@0NTPj6'CRCF' COMPUTES THE CROSS CORRELATION FUNCTION BETWEENQ"jENTE;=2 FOR>STARdN 0@ f w`\ gUhjhvPENTEinjvPSTARnW@xjWANT EXPLANATION zf|V@@0N~&Up* W@W@jjFURTHER USE OF 'P ' WILL ERASEjDATA NOW IN FIRSTROWS,COLUMNS.jWANT TO CONTINUE WITH PfV@@0N' #R:ZERO DATA MATRIX,ETC., BUT LET SCRATCH COL.VALUES AND ALL P MATR:VALUES EXECPT P(65), THE CRSP MONTH INDICATOR, REMAIN W~  X@|` X@|@ wZZo`@ wAonӟUjU,"j* MODE OF INPUT IS 6" j * MODE = '6,j-* MODE OF INPUT : FROM 'FILE' OR 'TERMINAL' ?6x @;j@W^Jj+RESPOND 'F' FOR FILE OR 'T' FOR TERMINAL : T6^V@@@0FhV@@@0Tr jINVALID RESPONSE|JjU jNAME IS jNAME OF INPUT FILE IS f0D0@W@ j0 CANNOT BE FOUND.jCHECK YOUR SPELLING!j V`@@  h@@V䰯4V@4,'j%PRESENT DIMENSIONS OF DATA MATRIX AREROWS BY@ COLUMN(S)jBUT FIRST TWO ELEMENTS OF 0 ARE, jDATA NOT ENTERED.'X@| w@@X@| h@ZZX@| w@@ jROW: nfX@| wZZ& @&&h@ V.NAMES:&X@| @&&&&h@0 `&:VPXDvД`$P`$NlXwPbv`%P`%lZvw@&jUpj* SAMPLE SIZE (N) = x jWj&N IS THE NUMBER OF ROWS IN DATA MATRIX V@4䰯 jN MUST BE AN INTEGER LESS THAN@  j* NO. OF VARIABLES (K) = *x /j4WR>j)K IS THE NUMBER OF COLUMNS IN DATA MATRIXH R V,4\jK MUST BE AN INTEGER LESS THAN f pjN,K = zf| V@4䰯~ V,4V@@@0FjUj(ENTER ELEMENTS OF MATRIX BY ROWS BELOW :jDATA : U j.* ARE THE FIRST TWO ELEMENTS OF YOUR DATA FILE j, VALUES FOR N AND K (SIZE OF DATA MATRIX)?   j* N,K GIVEN IN FILE?  x  j W X  h@@ k,-ARE THE FIRST TWO ELEMENTS OF YOUR DATA FILE.  h@@ W5 jBOTHANDARE NOT INTEGERS.  XV@@0N bV@@0Y l j NEED HELP  nf pV@@.N  rjPLEASE ANSWER YES OR NO. v jUj&FOR DEFINING INITIAL ZERO DATA MATRIX,j,GIVE TWO NUMBERS, SEPARATED BY A COMMA, FOR:j' N AND K, OR # OF ROWS, # OF COL(S). = jN,K = f V,fff4,jCURRENT IDA DIM.AREX' vvX@| w@@Zw@`@jjPLEASE GIVE NAMES FOR:X@|Zw@"j,W`'6jX"DATA MATRIX OF ZEROES NOW DEFINED.@'j H #,"VAR.",XDD,Xf@VP0vД`$P`$@@`&:0v`$A`$x @@`:^@jNOT ENOUGH OR NO DATA IN 0Aj%USE COMMAND 'FILE' TO CHECK CONTENTS.B' &w@`\ &v&v@&r$IDA912&r$IDAE08' jP NOT EXECUTED.' r$IDAK'`IDA24 ˖ &uj KgҔRaN JД<H(J- J^2R:12FEB74<#R:Q1=1 FOR >ABSO;=2 FOR>ADDC;=3 FOR>ADDV;=4 FOR >DIFF;=5 FOR>DOTP>#R:Q1=6 FOR>EXPO;=7 FOR>LAGG;=8 FOR >LOGE;=9 FOR>LOG1;=10 FOR>MULC@R:Q1=11 FOR>MULV;=12 FOR>POWE;=13 FOR>STAN;=14 FOR >DIVIB R:Q1=15 FOR>SAVRN@ W@jWANT EXPLANATION f@V@@@0Nj3WILL GIVE EXPLANATION IN IDA24E FOR TRANS. AND SAVR W@&j V,@.jDATA MATRIX ALREADY FULL (@COL(S).)jWANT TO CONTINUE f@V@@@0N' . W@7p1Wx6U@^c@j&* IN WHICH COLUMN WILL THE TRANSFORMEDJj#VARIABLE BE PLACED? GIVE NUMBER : Th^j!* COL. # TO PLACE TRANSF. VAR. : `hcj* COL# TO PLACE VAR. : hx rj|W V0@$j4TO PLACE VARIABLE IN A NEW COLUMN, TYPE THE NUMBER :@j j OTHERWISE,jGIVE A NUMBER BETWEEN 1 AND : h V6' W@4,@#( V@@4,jNUMBER GIVEN TOO LARGEUTP j* COLUMN TO BE TRANSFORMED :x jW?&jDATA IN COL(S).1 TO:? V6' DV@ZNjNUMBER GIVEN TOO LARGE X&ZV.b\V@6p bU 22   2l lUvvj* VALUE OF POWER =  j * POWER = j* P = x jW jNUMERIC INPUT REQUIRED j 2 FOR SQUARE,j 0.5 FOR SQUARE ROOT,j -1 FOR RECIPROCAL, ETC.vUj* VALUE OF CONSTANT =  j * CONSTANT = j* C = x jW  jNUMERIC INPUT REQUIRED X@}`" w$Z&X`@|(WxB*U4H222\.p24 w>LH w!RL\ wofLp VzW@L wL WzwPL w%L W$W@LV@@$j3NONPOSITIVE VALUE IN ACTIVE DATA TO BE TRANSFORMED.j$REQUESTED TRANSFORMATION IMPOSSIBLE.'$ w))L.V*83 w4L8 w"=LB wLZVw```Wptjw`` oR: GOTO IDA912 FOR UPDATING MEAN AND STD.DEV.tv~w@`` &v@+v@Xv@/Uj@H. "COLUMN",XDD," = (COLUMN I) ",A," (COLUMN J)"j(GIVE VALUES I,J, SEPARATED BY A COMMA : "WpjI,J = "jNUMERATOR, DENOMINATOR = "f, V:@T6jCOLUMN NUMBERS MUST BE <@@jPLEASE RE-ENTER I,J : J"Tv`;`UX@|V wXZYX@|hT@r22222222rw!|w%w'Z w`tR:>SAVR W@"j&NO RESIDUALS OR FITTED VALUES TO SAVE.jEXECUTE 'REGR' FIRST. '" W@0$ wP& w`` ( wps*&0j2U4::4 jWANT TO 6j,SAVE RESIDUALS, FITTED VALUES, OR NEITHER ? 8D: j* R, F, OR N ? Dx @EjFWNHj'CAN SAVE RESIDUALS, FITTED, OR NEITHER.IjPLEASE ANSWER. R, F, OR N Jf@NV@@@0RXP,V@@@0FbRV@@@0N' SV@@@0?HT jINVALID RESPONSE.VHX v@ RESIDUALSYv@Zlb v@ FITTED VALUESdvlj*COL. # TO PLACE @ =vhUj!GIVE A POSITIVE INTEGER FOR GAP :jGAP = fWp  v` X@| wZvRX@|\w#"fZpw`` u W@zw w@@zt X| W@ w#@'@ Z w@ w@@ w`` t j8FOR THIS TRANSFORMATION, THE TRANSFORMED VARIABLE CANNOT !j9OCCUPY THE SAME COLUMN AS THE VARIABLE TO BE TRANSFORMED. V0@@ j @ H, #,"WANT TO PUT NEW VARIABLE IN COLUMN ",DDX f@ V@@@0N@ v@ bR:PRETEST FOR DIFF AND LAGGX@|W@Z6j/SOME OBSERVATIONS HAVE PREVIOUSLY BEEN DELETED.j-TO EXECUTE 'LAGG' OR 'DIFF' NOW WOULD LEAD TOj IMPROPER UPDATING BY THE SYSTEM.jj4TO ACCOMPLISH THE DESIRED TRANSFORMATION, YOU SHOULDj(FIRST 'RECOUP' THE DELETED OBSERVATIONS,jTHEN 'LAGG' OR 'DIFF',j6AND FINALLY DELETE THE APPROPRIATE OBSERVATIONS AT THEj#COMPLETION OF SUCH TRANSFORMATIONS. ' #( X@|@#2V1a#Z#<Z#FR: J NOT A REGRESSION VAR.#P#ZjCOL.'CONTAINS 1 OF THE REGRESSION VARIABLES.#djWANT TO CHOOSE ANOTHER COLUMN #nf@#xV@@@0N#&r$IDA912& r$IDA29i&r$IDA38' jREQUESTED COMMAND NOT EXECUTED.' r$IDAK'`,IDA25 ˖ L KgҔRaN JД<H(J- J^2R:29MAY74<"R:Q1=1 FOR >PRTF;=2 FOR>PRTR;=3 FOR>PRTO;=4 FOR>PRTS;=5 FOR>PRTV>"R:Q1=6 FOR>FPRF;=7 FOR>FPRR;=8 FOR>FPRO;=9 FOR>FPRS;=10 FOR>FPRVN`<@p@  w@ TRY AGAIN! w`d W@jWANT EXPLANATION f`V`@@0N& W@7H H W@'U&'&&'& W@jNO RESIDUALS OR FITTEDS YET.jEXECUTE REGRESSION FIRST.'  W@& wpM& WP N j U  j2* GIVE FORMAT FOR PRINTING AN OBSERVATION (ROW) :    j j IF YOU WANT: j/0 DECIMALS GIVE #,13D 1 DECIMAL GIVE #,11D.D j22 DECIMALS GIVE #,10D.2D 3 DECIMALS GIVE #,9D.3D j14 DECIMALS GIVE #,8D.4D 5 DECIMALS GIVE #,7D.5D j0OR IN EXPONENTIAL FORM, SOMETHING LIKE #,XSD.5DE j jFORMAT MUST BE PRECEDED BY #, j j * FORMAT =     j* FMT =  x ` j W   V`@@0? V`@@0HELP V`@@.#, &j N^ H W~  z Rj'WANT TO PRINT SUBMATRIX OF DATA MATRIX  Tf` VV`@@.N z \j' OF SCRATCH PAD  ^f` `V`@@0N' fvpS hw~  p z W@' vpD w@ j U j4TO PRINT SUBMATRIX BETWEEN ROWS I1 AND I2 INCLUSIVE, "j82j' LAST COL.# CAN'T BE SMALLER THAN FIRST4k@6$8w:V@4A4@4AH<F$Hv"@JnLVp0SRMvPTRv @TX@|VvXv@ZZ[Vp0S\sR: NONCONSECUTIVE COLS. PARTtjHOW MANY COLUMNS ~fUjGIVE%COLUMN NUMBERS, SEPARATED BY COMMAS : j COL. #'S :nnfVp0DX@|Vs334-~ fff0 v @Z jWP v`#,7D.5Dv; wP VP%w@w@wPX|Vp0S* V,@( V,@: T" j jMEAN . jS.DEV.  . j#UNDEF..(W@8*j,, H #,"* ",DDD," *".X}80 jF`2Z4j6:8 jROWDELETED:Z</@>w@@wP!Bw@DW'FR:VALID COL #'S? NEED UPDATING?v4DX@|V4,`jONLY COL(S). 1 TO@, INCLUSIVE, VALID.k@t V*@ V,fffvD@ V0@W@7@v4@ZVDjDATA IN COL.(S) 1 TOONLY.V4@j) FITTED AND RESIDUAL VALUES NEED UPDATINGw@wH wL X@|wZ wp&v@vpDX@|vZvH vL  j ROW Vp0SJX}8w V*4,? V.@"v@ALIVE?7" V,@,$ W@6&?,W@?6h7w8 X@`9 V@. <:j ;w@<Z=j @@`#>B?j@@ H #,7X,"COL.",DDBZD/@F^JX}8LwNrPj<@RZTDh W*@rWP|v@Д`%P`%v@`%A`%x  W0@v@FITTEDv@RESIDU^Vp0S0jACTIVE DATA IN ROWSTO ,COL.(S) 1 TO,jBUT YOU CAN ALSO PRINT ROWS@TO` , COL.(S)@TO@ W@j'FITTED' VALUES IN COL.j'RESIDUAL' VALUES IN COL.@jMEANS OF COL(S). IN ROW@jSTD.DEV(S). OF COL(S). IN ROW@X^0 jSCRATCH PAD HAS:Nj ROWS 1 TO`, COL.(S) 1 TO~ Xk@b^&r$IDAE25&r$IDA25A& wP&r$IDA38' r$IDAN ' jCOMMAND NOT EXECUTED.' r$IDAK'`IDA26 ˖ 9 KgҔRaN JД<H(J- J^2R: 14 JUL 744R:Q1=1 FOR>RECO;=2 FOR>RETO;=3 FOR>RETB6R:Q1=4 FOR>CHGO;=5 FOR>DELO;=6 FOR>DELBN0@ P w`h W@' U""" ", V,#@6.jALL#@DEFINED ROWS ALREADY ACTIVE.0j REQUESTED OPERATION UNNECESSARY.2'6W@>7W@>8 j#(@9j#*:$j?THEY CANNOT BE MADE ACTIVE BY USE OF 'RECO', 'RETO', OR 'RETB.'< j WARNING ONLY.>U@@vPRECOBv@JvT w@^X|h w@@rZ|&vPRETOUjRETRIEVE WHICH ROW (GIVE # jROW = fV@jNO DATA IN ROWS BEYOND V+@ j#(@j#*' W@jH' "ROW",3D," IS ACTIVELY IN USE ALREADY"' v w@&vPRETBU:j)TO RETRIEVE ROWS I1 TO I2 INCLUSIVE, GIVE&j.TWO NUMBERS, SEPARATED BY A COMMA, FOR I1,I2: 0D:j1ST ROW, LAST ROW = DfFV@NHjTJjNL:N V+@bXb V,@ljNO DATA IN ROWS BEYONDv' X| w@@Z w@& v@CHGO U j#GIVE ROW NUMBER I, COLUMN NUMBER J, jAND THE NEW DATA VALUE X(I,J) : jI, J, X(I,J) =  f V+@  jD@ jF ' V*l V* Z W@ ( jROW IS INACTIVE. "' ( w@` 2v <& ZjNO DATA BEYOND COL. d' vPDELO U jDELETE WHICH ROW (GIVE #)   jROW =  f V? j REQUESTED OPERATION UNNECESSARY. jH! "ROW",3D," IS ALREADY INACTIVE."' W@8$jh.' 8vB w@V&vPDELBUj%DELETE ROWS I1 TO I2 INCLUSIVE. GIVEj.TWO VALUES, SEPARATED BY A COMMA, FOR I1, I2 :jFIRST ROW, LAST ROW H) "ROWS",3D," TO",3D," ARE BEING DELETED."fV@j(FIRST ROW CANNOT BE LARGER THAN LAST ROWV@4@jNO DATA IN ROWS BEYONDV?JV?,j REQUESTED OPERATION UNNECESSARY.jH, "ROWS",3D," TO",3D," ARE ALREADY INACTIVE."jF"' , j@6v@jJX|TW@r^jhhH1 "WARNING: ROW",3D," HAS PREVIOUSLY BEEN DELETED"rZ|R:FLAG DELETED ROWS AND GOTO IDA912 FOR UPDATINGX| w@Z w@&R R: # OBS. IN COL.vw@X|v!Z^B$HA "FIRST ",3D," OF ",3D," ROWS AND FIRST ",2D," OF ",2D," COL.(S)"DH! #,"FIRST ",3D," ROWS UNDEFINED "FH/ "BECAUSE OF PREVIOUS USE OF 'DIFF' OR 'LAGG'."N H "TRY AGAIN!"TH+ "FIRST NUMBER CANNOT BE LARGER THAN LAST."#(#H? "THE FIRST",4D,"ROWS ARE UNDEFINED BECAUSE OF PREVIOUS USE OF"#*H5 "'DIFF' OR 'LAGG' AND ARE UNAVAILABLE FOR ANALYSIS."&R:GOTO IDA912 FOR UPDATING MEANS AND STD.DEV(S).&r$IDA912' r$IDAN ' jP NOT EXECUTED' r$IDAK'`IDA27 ˖ &R KgҔRaN JД<H(J- J^2R:13JUN744R:Q1=3 FOR>MISS;=4 FOR>MEAN;=5 FOR>FILEN0@ HP T@p*Nv7` W@' T@jvPMISSj jCURRENT STATUS: Wz $ jNO NUMBER HAS BEEN.$k|  IS NUMBER .j2DESIGNATED AS REPRESENTING MISSING VALUES IN DATA.8jB jWANT TO CHANGE Lf@VV@@@0N'` Wz @tjtj~!j7WANT TO DECLARE NEW NUMBER TO REPRESENT MISSING VALUES f@V@@@.Nwz | j3THERE IS NOW NO NUMBER TO REPRESENT MISSING VALUES.' wz @jj&NUMBER TO REPRESENT MISSING VALUES IS g| 'iR:>MEANjt/@"VARIABLE MEAN STD. DEV.yj~X@|W@j@@H 3X,2D,2X,2(3X,D.5DE)VP jД`$P`$@@ H X,6A,2(3X,D.5DE)*j`$PP`$P@@ZjjBASED ON ACTIVE ROWS.'vPFILEU j FILE NAME IS jNAME OF FILE TO PRINT IS f0 V`@ h@@ j'0 ' IS EMPTY.'  @h@jFIRST ELEMENT OF '0' IS V殯 V殯VF`h@jFIRST ELEMENT IN '0' IS THE STRING:j @h@jSECOND ELEMENT IN '0' IS Vw`$` WF4Lff h@jSECOND ELEMENT IN '0' IS THE STRING:jj'0$' DOES NOT HAVE STANDARD IDA FORMAT.w\"j'0' PROBABLY HAS DATA MATRIX OFROWS ANDCOLUMNS."j#HOW MANY ROWS DO YOU WANT TO PRINT ,f.Vm/v80 V`@1j6X@|@jJJ H #,"ROW",3D," : "T nh@^X@|`jbZdjhZmjrU||j"* WANT TO CHECK NAMES OR TEXT IN '0' ? j*CHECK NAMES, TEXT ?x @jW!j:FILES SAVED WITH 'SAVF' IN IDA MAY HAVE NAMES AND DESCRIP-j4TIVE TEXT SAVED AFTER THE VALUES OF THE DATA MATRIX.|V@@@0?V@@@0N'w$w@ w$@w$@;$jjW`jWANT TO LIST CONTENTS OF '0'  jLIST '0' f@V@@@0N'j-WANT TO START LISTING FROM BEGINNING OF FILE f@V@@@0Nw$@D0@W@j'0"' CANNOT BE FOUND OR IS PROTECTED.W`j%NOTE: FILE NAMES MUST BE PRECEDED BY:j($ IF A SYSTEM FILE * IF A GROUP FILE' W`j(WHAT NUMBER RECORD DO YOU WANT TO LIST:  jRECORD NUMBER  V`@g$ W$5$$j!INVALID RECORD NUMBER. TRY AGAIN!h@$@h@Wjh@WjjjFILE RECORD LIST COMPLETEDR:EORWw$$@jEND OF FILE CONTENTS.'j j END OF RECORD$jLIST ANOTHER RECORD f@V@@@0N' jRECORD NUMBER  R:#OBS. IN COL.vw@X|v!Z^' r$IDAN ' j'P' NOT EXECUTED.' r$IDAK'`\IDA28 ˖ L KgҔRaN JД<H(J- J^2R:2OCT73<R:Q1=1 FOR >CORR;=2 FOR >COVAFR: L.9010,$IDA29 CHAINS TO L.8000 IF K8=0N W@ r$IDA29i W` wP@ w`p  wp}"r$IDA38j HOW MANY VARIABLES fV@j ONLY)VARIABLE(S) IN DATA MATRIX. TRY AGAIN!U0D"j9GIVE COLUMN NUMBERS OF VARIABLES, SEPARATED BY COMMAS: &F0jCOL. #'S OF VARS.: :FD j COL. #'S: FnfHX@|JV@RLj NO DATA IN COL.'S BEYOND COL.N j TRY AGAIN! PRZSwPTW@XUbbj3* NUMBER OF DECIMAL PLACES WANTED IN THE PRINTOUT? v j* # DECIMALS = xDjWV@,D4D`j NUMBER OF DECIMAL PLACES ALLOWEDjIS BETWEEN 2 AND 5 INCLUSIVEwX"Djw@w/@HX}8WP  ?p  ?D@ ZjX| %j *X}8/W@~4 TD>>Rfz>jF #,DD.2D,2XHRjF #,DD.3D,2X\fjF #,DD.4D,2XpzjF #,DD.5D,2X|~$jF #,D.5DE,2X%@%@ZjZ/@ V#' Hw!w!W@j H #,"COL.",DDB VP8j$Д`$P`$$H #,6A.B8 j$`$PP`$PB^@R:IF K8=0 IN $IDA29,>REGRBvD`EjJ j|@DRvTX|VW@ZX v!@ZZ^j@Dh j@Drj@D@@&|H "MEAN = ",D.5DEH "STD. ERROR OF MEAN = ",D.5DEH "STD. DEV. = ",D.5DEH "STD. ERROR PRED. OBS.= ",D.5DE' r$IDAK'`IDA29 ˖  KgҔRaN JД<H(J- J^2R:10APR74<R:Q1=1 FOR>REGR;=2FOR>COEFF;=3FOR>ANOV;=4FOR>SUMMN 0 U W@j"NO DATA HAS BEEN ENTERED YET. USEj6'ENTER','ENTS','ENRA','CRSP' OR 'RAND' TO ENTER DATA :' W` wP@ wp@&W@ j* DEP. VAR. = ,j/* DEPENDENT VARIABLE (NAME OR COLUMN NUMBER) = ,x 01j6WT@JTXYW^vDcW@|hjHOW MANY INDEP. VAR. r|jHOW MANY INDEPENDENT VARIABLES f V@@j@OR FEWER INDEP. VAR. POSSIBLE.hV#(WX@|jH #,"INDEP. VAR.",XDD,X,"= "f0XWvZW`j0GIVE COLUMN NUMBER(S) OF INDEPENDENT VARIABLE(S)jSEPARATED BY COMMA(S) :jINDEP. VAR(S). = nfoc w@X@|VD0V@V060@lwaZ X@|@X@| V.j'DUPLICATE VARIABLES GIVEN. TRY AGAIN!ZZ wa@DvX| v!@Z&X@|0X@|:wRaaDZNZXX@|bwR@aa@lwR@R@vZwR@@@vX@|Z w@@wP  j COMPUTING...@jjANALYZING RESIDUALS...&!/@.VARIABLE B(STD.V) B STD.ERROR(B) Tjv%weR@@&"@X@|vR@%@a@'@av%% %@a vR%e%@a@'@aW@jaR@&H# 3X,2D,4X,3D.4D,2(2X,D.4DE),X,3D.3D H WaP> !j*Д`%aP`%aR@&*H" X,6A,2X,3D.4D,2(2X,D.4DE),X,3D.3D4H>+j*`$aPP`$aPR@&HZRv%@a@"%WvD\X@|fX@|p.vDD!R$@a'@a%@a'@azZZ wfe%@a@@$D@@& j%f%'fH% "CONSTANT 0",4X,2(2XD.4DE),X3D.3D^ W@j2EXECUTE 'REGR' FIRST TO DEFINE REGRESSION EQUATION' W@ wP wp|&vP U\*'\`]t`wF@%@a@@jw'R@@%Fo^t~v'~w&F#'vd&&&'&"@jj/ SOURCE SS DF MS Fj j&&&H$ #,"REGRESSION",2XD.5DE,2X3D,2XD.5DEVd| jF2X3D.2Dd jF2XD.4DEdj'"@'&"@H! "RESIDUALS",3XD.5DE,2X3D,2XD.5DEjF@F&@H " TOTAL",5XD.5DE,2X3D,2XD.5DE^*`,2.'2w%@#''F<w(@"@$@#%&"@Fw(;(Pw&(Z/@?`MULTIPLE R R-SQUAREd jn%%nH "UNADJUSTED",4X,D.4D,5X,D.4Dxj&(H " ADJUSTED",5X,D.4D,5X,D.4Dj STD. DEV. OF RESIDUALS ='&"@^j0 IS NOT A VALID NAME OR NUMBER j NEED HELP f0V0@@0N^jjDATA IN COL(S). 1 TOW@j!NO NAMES GIVEN FOR VARIABLES, BUTj FOR YOUR REFERENCE :j COLUMN 1ST OBSERVATIONX@|jF 2XDD,6XD.5DEZY j THEY ARE :/@ COLUMN NAMEX@|"VPJ,j6Д`$P`$6H 2XDD,4X6A@TJj6`$PP`$PTZYj^^ v4@'RwR4 X@|@V0 X@|@V0wRR"4%R%RZZ X@|@V0 wRR$4 wRR$4Z ^XWh\ X@P8]VД`$P`$00@`^Z`VXhb X@|PdV`$P`$00@`fZhV0@`.FITTEDxl W@m"jTO USE 'FITTED' (COL.) OR 'RESIDUAL' (COL.@)nj6VALUES OF PREVIOUS REGRESSION, FIRST SAVE THESE VALUESpj'IN A COL. OF THE DATA GROUP OF COLUMNS.vxV0@`.RESIDU|zl|l~ X@|@hV00Z V,@V,lj DATA IN FIRSTCOL(S).jREGRESSION NOT EXECUTED.'wwwP ^ &d123456789101112d131415161718192021@'w@@@@@@EX|JW@T w^X@|h+w!R@$a#@a'@arZ|"w@a@!@a@%w@a@#w@@! w@@@@!@@Zw@@&X|W@ w@@ #@@Zw@@&@$w@@@@&#P @w``@@ w@^#(w`#2 r$IDA28}&r$IDA31& w`t &r$IDA38' r$IDAK'`IDA30 ˖ && KgҔRaN JД<H(J- J^2R: 4 AUG 744R: Q1=1 FOR >STEP; =2 FOR >FORW; =3 FOR >BACKN 0  W@' W` wP@ w`x wp}r$IDA38W@ j* DEP. VAR. = ,j/* DEPENDENT VARIABLE (NAME OR COLUMN NUMBER) = ,x 01j6WT8j::H #,"NAME INVALID. NEED HELP "<f0>V0@@.Y@JTXYW@^vDcW@|hjHOW MANY INDEP. VAR. r|jHOW MANY INDEPENDENT VARIABLES fV'WX@|jH #,"INDEP. VAR.",XDD,X,"= "f0XWj:f0V0@@.YvZW`j0GIVE COLUMN NUMBER(S) OF INDEPENDENT VARIABLE(S)jSEPARATED BY COMMA(S) :jINDEP. VAR(S). = nfX@|waZ wa@D n@vX| v!@Z&X@|0X@|:wRaaDZNZXX@|bwR@aa@lwR@R@vZwR@@@U !/@.VARIABLE B(STD.V) B STD.ERROR(B) Tjv%weR@@&"@X@|vR@%@a@'@av%% %@a vR%e%@a@'@aW@jaR@&H# 3X,2D,4X,3D.4D,2(2X,D.4DE),X,3D.3D H WaP> !j*Д`%aP`%aR@&*H" X,6A,2X,3D.4D,2(2X,D.4DE),X,3D.3D4H>+j*`$aPP`$aPR@&HZRv%@a@"%WvD\X@|fX@|p.vDD!R$@a'@a%@a'@azZZ wfe%@a@@$D@@& j%f%'fH" "CONSTANT",9X,2(2X,D.4DE),X,3D.3D^X@|vj--------------------$.8Z=v@B w@@NwP PW`VR wP @V@X/@[jANALYZING RESIDUALS ...`r$IDA31X@|V@X@|vR@Z V,v"vvR@@&R%R@@v@V@ 4v",j--------------------JT^Zcv@hBv5vX|V@5v5vZ ^4 X@|@> vRH wRRR wR\Zf X@|@p vRz wRR wRZvawaawa^ X@|  Z X@| v"@ V,  x v@ v@ vR@@&R%R@@ <v@ FV@  P Z4 dv iv@ n x X@P j- Z   Z B v5@ vĞ@ X@| V>5 v5 v Z ^W@/@THE FIRST ACTIVE OBSERVATIONjH# "IS CONTAINED IN ROW",3D," OF THE"j"DATA MATRIX. FOR YOUR REFERENCE :/@COLUMN 1ST OBSERVATIONjX@|jF2X,DD,6X,D.5DEZY /@,THESE ARE THE VARIABLES IN THE DATA MATRIX : j COLUMN NAMEjX@|"VPJ,j6Д`$P`$6 H 2X,DD,4X,6A@TJj6`$PP`$PTZYj^^ v4@'RwR4 X@|@V0 X@|@V0wRR"4%R%RZZ X@|@V0 wRR$4 wRR$4Z ^wF@%@a@@w$R@@%F w%@#$'Fw5$&"@vdF#$&&$&"@jVd|j%5d H9 "MULT. R =",XD.4D,2X,"S.E. RES. =",XD.5DE,2X,"F =",3D.2Dj%5d H: "MULT. R =",XD.4D,2X,"S.E. RES. =",XD.5DE,2X,"F =",XD.4DE^X X@|P8bVД`$P`$00@`lZvVP X@|PV`$P`$00@`ZlX@|hV00Z V0.FITTEDw V0.RESIDUw@wwwP ^ &d123456789101112d131415161718192021@'w@@@@@@EX|JW@T w^X@|h+w!R@$a#@a'@arZ|"w@a@!@a@%w@a@#w@@! w@@@@!@@Zw@@&X|W@ w@@ #@@Zw@@&@$w@@@@&#P @w``@@ w@^' r$IDAN ' r$IDAK'`IDA31 ˖ Lg KgҔRaN JД<H(J- J^2R:10APR74<R:Q1=16 FOR >DURB;=19 FOR RVSF>R:ANALYZING RES. FOR IDA29,30,34O! r0@ W@j2EXECUTE 'REGR' FIRST TO DEFINE REGRESSION EQUATION'vX|W@0v@& w!@0ZbW@  lWL CwFGHX@|vF!'@@ ֏FRn8vX|W@v@V0 Z j j F $HA "WARNING: RESIDUAL IN ROW ",3D," IS ",SD.DD," S.D. UNITS FROM 0"8ZBC W@LD&LnsN v@RESIDUALVX|`W@jv@#@'@ov@t&v@@#@@'@@yv@~v@v@v@v@vrH"rH"@Zj X@@ X@@ vr@T(-27<AC v0*F v0 F v01 F v02F( v03)F- v04.F2 v053F7 v068F< v07=FA v08BFC v09FZPjZ@0@@ZH A,"!",XAXAXAXAXAXAXAXAX,"!"dZn v0FITTED YsjFXXXAXAXAXAXAXAXAXA0@@xj'v W!@v@v@X@| W!6v@"v@,@6v@@!@0|rv@|Zv@$$@"&@v@v$@&@w"& ֏Rnj2WARNING: RESIDUALS MAY BE EXCESSIVELY CORRELATED :jj OBSERVED NUMBER OF RUNS=2j EXPECTED NUMBER OF RUNS=jSTANDARD DEVIATION OF RUNS=j (OBS.-EXP.)/(STD.DEV.)=jjCHECKING AUTOCORRELATIONS... v`8@X@|v X@|"@v!!%! @Z Z X@|@ v5@&@ ֏5@ j j 5 H! "WARNING: AUTO(",DD,") =",XSD.DD Z j ' W@ & vEF X@|@ vEE!!@ vFF!!%!@ Z wt@$@"F&E!!@ wtt"!@@!!@&E!!@ j t H "DURBIN-WATSON STAT. =",2D.3D '& wP& w`| & wp}&r$IDA38' r$IDAK'`2IDA32 ˖  KgҔRaN JД<H(J- J^2R:12MAY74<R:Q1=7 FOR >AUTO;=8 FOR >SERC;=9 FOR >RUNSdP/V P O!3!1AQ,w@6W@`@j+STANDARD DEVIATION OF VARIABLE EQUALS ZERO;J T`TVXT j AUTO CORR. UYV j SERIAL CORR. WYX j'RUNS' Y j IS UNDEFINED.^'` T`cccUhh j5* GIVE MAX. ORDER OF AUTO (OR SERIAL) CORR. WANTED : rxwj|Wj*GIVE AN INTEGER VALUE BETWEEN 1 AND 20 FORj*MAX. ORDER WANTED = r j* MAX ORDER : r V@4P j$ORDER GIVEN OUTSIDE ALLOWABLE RANGE.vX|W@&v@ w!&Z0WH :W@D v@T  v8` T`   v! X@|" v!!v!!!!"@Z X@|@v""@!!"  v!"!"@!!"@*Z4X@|> v&"H v!!&"RZfX@|pv1AQzX@|"v11 !"@vAA ! "!@vQQ !"$! "!ZZj/@ORDER SER.CORR./@X@|jQ1$A H 3D,5X,SD.3DZ' v W!@A@ v@ v@ X@| W!A@  v@ v@  ( v@ (!@#@0 < 2v@ <Z Fv@$$@"&@ Pv@ Zv$@&@ dw"& j j OBSERVED NUMBER OF RUNS= j EXPECTED NUMBER OF RUNS=" jSTANDARD DEVIATION OF RUNS= j (OBS.-EXP.)/(STD.DEV.)= j ' X@| v X@|"@ $v !#@$! @#@ Z Z j /@ORDER AUTOCORR. L  j*-1 -.75 -.50 -.25 0 .25 .50 .75 +1  P  j)'----'----'----'----'----'----'----'----' wD wF@  X@|@ v5@&@ wDD 5$5  jF#,3D5X  jF#,SD.3D5  L - v5/5 V5T    L 5*  P '  ! V5T    P *  !  P ' L 5* !Z #j %j&S.E. OF EACH COEF. GIVEN RANDOM MODEL= &jFD.3D@& 'j )wK%D *jBOX-PIERCE STATISTIC=K + wGK'FUUU ,wH@@&H%F -wI@&H%F .jEXPECTATION GIVEN RANDOM MODEL=F /j (OBS.-EXP.)/(STD.DEV.)=G#H'I' r$IDAK'`"IDA33 ˖ &7 KgҔRaN JД<H(J- J^2R:16OCT73<R:Q1=1 FOR >SEPR;=5 FOR BCOR;=6 FOR BCOVN!2Aq N W@j2EXECUTE 'REGR' FIRST TO DEFINE REGRESSION EQUATION' W@ wP w`B  wp@r$IDA38v%'weR@@%@a@@&#P @vD X@}P !v!R@%@a@'@a&v%% !%@a0 X@}P :v2R%e&@a%@aD,vDD!R%@a'@a%@a'@aNZXZbv!@@a@"%lv2@@e$D@@&v X@}P  v2@ X@}P V0v2@2@#@a$2v2@2@#@a$2Zv2@2@ZW@ U*H\*j)WANT TO USE THE VALUES OF THE INDEPENDENT4j#VARIABLES GIVEN IN THE DATA MATRIX >fHj)USE VALUES OF INDEP. VAR. IN DATA MATRIX Rf\ jUSE DATA MATRIX ffpUzzj NUMBER OF Y'S TO COMPUTE S.E. =  j HOW MANY Y'S fjw@jjH7 " Y S.E.(FITTED) S.E.PRED.(Y)"jX@|V@@0N~jROW : xV w52@@ w!@ XĞ@}P  w !%a wA2@ XԞ@}P wAA!a$2Z w55!a%A$Z8 XĞ@}P Bw55!a$2@LZVj[55!e$@[H' #," ",D.4DE,3XD.4DE,6XD.4DE`jjPtw@~jUjX'S = jVALUES OF INDEP. VAR. X'S = j2GIVE VALUES OF INDEP. VARS., SEPARATED BY COMMAS : ngqP  w52@@ w!@ XĞ@}P  w !%q wA2@ XԞ@}P wAA!q$2 Z w55!q%AZ( XĞ@}P 2w55!q$2@<ZAjFj[55!e$@KjPZZ' R: BCOR AND BCOVvP X@|vaZW`TUjNUMBER OF DECIMAL PLACESjWANTED IN THE PRINTOUT " j # DECIMALS = "fD,V@,D4D`T6j NUMBER OF DECIMAL PLACES ALLOWED@jIS BETWEEN 2 AND 5 INCLUSIVEJTj^X@|hW@rj|| H #,"VAR.",DD,2X VPjД`$P`$H #,6A,2X j`$PP`$PX@|W` TDjF #,DD.2D,2X22$2jF #,DD.3D,2X22$2jF #,DD.4D,2X22$2jF #,DD.5D,2X22$2jF #,D.5DE,2X2Z&j0Z:v@`CONST.D j@`X X@}P bW`l TDvvv"jF #,DD.2D,2X2@2$2@@{"jF #,DD.3D,2X2@2$2@@"jF #,DD.4D,2X2@2$2@@"jF #,DD.5D,2X2@2$2@@jF #,D.5DE,2X2@ZW`'jF#,D.5DE2@@' r$IDAK'`IDA34 ˖ L KgҔRaN JД<H(J- J^2R: 12JUN74N0   W@j.ONE OF THESE COMMANDS MUST BE EXECUTED FIRST : jREGR FORW STEP' W@ wP w`D wp}r$IDA38U,j/GIVE NAME OR COL. NO. OF VARIABLE TO BE SWEPT :6jVAR. TO BE SWEPT :"6, jVAR. : 6x0;j@XJWLj#VARIABLE GIVEN INVALID. NEED HELP Nf0PV0@@.YT^X@|W1aZj,VARIABLE NOT IN ORIGINAL REGRESSION EQUATIONjSWEEP OPERATION NOT PERFORMED' X@}P W1a Z XP @|W1aZ R: ADD INDEP. VAR. Z9wP P @ waaP  waP  { X@|@ vR&wRRP 0 wRP :ZD X@|@N vRXwRRP b wRP lZv^{vP vP @jANALYZING RESIDUALS ...r$IDA31 R: DELETE INDEP. VAR. Z9*4 waaP > waP HwP P @M vP @RW@ /@+THE FIRST OBSERVATION OF EACH VARIABLE (FORjH0 "REGRESSION) IS CONTAINED IN ROW",3D," OF THE "j"DATA MATRIX. FOR YOUR REFERENCE :/@COLUMN 1ST OBSERVATIONjX@|jF2X,DD,6X,D.5DEZY /@,THESE ARE THE VARIABLES IN THE DATA MATRIX : j COLUMN NAMEjX@|"VPJ,j6Д`$P`$6 H 2X,DD,4X,6A@TJj6`$PP`$PTZYj^^ v4@'RwR4 X@|@V0 X@|@V0wRR"4%R%RZZ X@|@V0 wRR$4 wRR$4Z ^X X@|P8bVД`$P`$00@`lZvVP X@|PV`$P`$00@`ZlX@|hV00Z V0.FITTEDw V0.RESIDUw@wwwP ^ &d123456789101112d131415161718192021@'w@@@@@@EX|JW@T w^X@|h+w!R@$a#@a'@arZ|"w@a@!@a@%w@a@#w@@! w@@@@!@@Zw@@&X|W@ w@@ #@@Zw@@&@$w@@@@&#P @w``@@^' r$IDAK'`IDA35 ˖  KgҔRaN JД<H(J- J^2R:12JUN744R:Q1=1 FOR>ALLS;=2 FOR>SUBSN 0  N@ W@' W` wP@ w`F wp}r$IDA38W@ j* DEP. VAR. = ,j/* DEPENDENT VARIABLE (NAME OR COLUMN NUMBER) = ,x 01j6WT8j:: H #,"NEED HELP ";<f0>V0@@.Y@JTXYW@^vDcW@|hjHOW MANY INDEP. VAR. r|jHOW MANY INDEPENDENT VARIABLES fV`j'NUMBER OF INDEP. VAR. MUST BE 6 OR LESShV'WX@|jH #,"INDEP. VAR.",XDD,X,"= "f0XWj:f0V0@@.YvZW`j0GIVE COLUMN NUMBER(S) OF INDEPENDENT VARIABLE(S)jSEPARATED BY COMMA(S) :jINDEP. VAR(S). = nfX@|waZ wa@DvX| v!@Z&!&X@|0X@|:wRaaDZNZXX@|bwR@aa@lwR@R@vZwR@@@^W@Uj"DEP. VAR. WILL BE REGRESSED ON ALLj'POSSIBLE COMBINATIONS OF K INDEP. VARS.jK =  jSUBSET SIZE = g W,j  H% "SUBSET SIZE SHOULD BE LESS THAN",3D* R: HAM VECTOR H n@(@ v@(@X@| v@(@v@X|~vZZn&XĞ@|v V$vL$v@LvVXƞ@|`v jZtW@~V1 Xƞ@P j-Z  Z w@' wF@%@a@@ w$R@@%F w%@#$'F w5$&"@ vdF#$&&$&"@ j j %5d H9 "MULT. R =",XD.4D,2X,"S.E. RES. =",XD.5DE,2X,"F =",3D.2D v"@&"@%5@ j 5@$"@&7"@$@  H: "(MALLOW'S CP =",5D.2D," ; HOCKINGS'S JP =",5D.2D, ")" ^ !/@.VARIABLE B(STD.V) B STD.ERROR(B) T j v% weR@@&"@ X@| V` vR@%@a@'@a v%% %@a vR%e%@a@'@aW@.jaR@&H# 3X,2D,4X,3D.4D,2(2X,D.4DE),X,3D.3D$`. WaPV8!jBД`%aP`%aR@&BH" X,6A,2X,3D.4D,2(2X,D.4DE),X,3D.3DL`V+jB`$aPP`$aPR@&`Zjv%@a@"%tvD~X@| VX@| V.vDD!R$@a'@a%@a'@aZZ wfe%@a@@$D@@& j%f%'fH" "CONSTANT",9X,2(2X,D.4DE),X,3D.3D^W@ /@+THE FIRST OBSERVATION OF EACH VARIABLE (FORjH0 "REGRESSION) IS CONTAINED IN ROW",3D," OF THE "j"DATA MATRIX. FOR YOUR REFERENCE :/@COLUMN 1ST OBSERVATIONjX@|jF2X,DD,6X,D.5DEZY /@,THESE ARE THE VARIABLES IN THE DATA MATRIX : j COLUMN NAMEjX@|"VPJ,j6Д`$P`$6 H 2X,DD,4X,6A@TJj6`$PP`$PTZYj^^ v4@'RwR4 X@|@V0 X@|@V0wRR"4%R%RZZ X@|@V0 wRR$4 wRR$4Z ^X@|Z"w$R@@$@%@a@@ v7$&"@^X X@|P8bVД`$P`$00@`lZvVP X@|PV`$P`$00@`Zl X@T hV00ZV0@`.FITTEDwP V0@`.RESIDUwT wwwP ^ &d123456789101112d131415161718192021' r$IDAN ' r$IDAK'`IDA36 ˖ & KgҔRaN JД<H(J- J^2 R: VERSION 9/18/72N!2 W@ r$IDA29i W`, wP@ w`H  wpK"r$IDA38,U66^6j2LET N1 = NO. OF VARIABLES IN PARTIAL CORR. MATRIX,@j1AND N2 = N0. OF GIVEN VARIABLES FOR EACH PARTIAL.Jj*VEVE VALUES N1, N2, SEPARATED BY A COMMA :Th^ j N1, N2 = hfr V P |jN1+N2 MUST BE 20 OR LESS^UjH' "COL. NOS. OF FIRST",3D," VARIABLES :" j LIST 1 = nf!X@|v!ZUjH( "COL. NOS. OF SECOND",3D," VARIABLES :" j LIST 2 = nf!&X@|0 v !:ZXv bX@|lX@|vv2ZZ X@| v4@&2v24X@|V0 X@|V0v22"4$2$2Z ZZUjNUMBER OF DECIMAL PLACESjWANTED IN THE PRINTOUT  j # DECIMALS = fDV@,D4D`@"j NUMBER OF DECIMAL PLACES ALLOWED,jIS BETWEEN 2 AND 5 INCLUSIVE6@jj.PARTIAL CORRELATION MATRIX GIVEN VARIABLE(S) :W@ X@|jH #,DDD,3XZl X@| VP:j&Д`$P`$&H #,6A,3X0b: j&`$PP`$PbZl/@X@|W@j H #,"VAR.",DD,2X4 VP* jД`$P`$H #,6A,2X 4* j`$PP`$P4X@|H TDRRfzRjF #,DD.2D,2X22$2\fjF #,DD.3D,2X22$2pzjF #,DD.4D,2X22$2jF #,DD.5D,2X22$2ZjZ' r$IDAK'`IDA37 ˖ L KgҔRaN JД<H(J- J^2R:17SEP73N110  W@j#REGRESSION EQUATION NOT YET DEFINEDj%EXECUTE ONE OF THESE COMMANDS FIRST : jREGR FORW STEP' W`, wP@ w`J  wpK"r$IDA38,X|- w@.Z1X|6W@@ZJj3WARNING: DELETED OBSERVATION IN DATA MATRIX MAY BEj,SELECTED IN SAMPLE. DO YOU WISH TO PROCEED f0V0@@0N'jNO. OF SUBSAMPLES WANTED = f/@vj H #," S N "X@|V@V@@@@ ja H #," B(",DD,") "  j j  H #," "  Zjj H #," S.E. R"/@XŞ@|vX|& v0V@X: w@@Dv@NbX w@bZl V"`vv@Vdj!TOO FEW OBSERVATIONS FOR SAMPLINGjEXECUTION OF SAMP DISCONTINUED' X@|@v1X|W@v11!aZ v11&Z j(ROWS = X|W@jH #,DD,XZj) X@|@*X@|4 wR>X|HW@\R wRR a"1$a"1\Zf wRRpZu w1RzZ| X@|@}X@|~wRR1%1 wRRZZX@|ZjF #,DD,2X,DD,2Xv%X@|vR@1@'1v%% $1V@V@@@@!jH #,D.3DE,X )!j"j## H #," "$)Z. v%1@"%8j%Bw'R@@%1@Lw%@#''1@Vj`'&"@`H #,D.3DE,Xjjt%tH #,D.2D~/@ZX| w@Z w@@/@j$DATA MATRIX BEFORE 'SAMP' RECOVERED. ' v4@'RwR4 X@|@V0 X@|@V0wRR"4%R%RZZ X@|@V0 wRR$4 wRR$4Z ^' r$IDAK'`IDA38 ˖ j KgҔRaN JД<H(J- J^2R:13MAY74<R:UPDATING $IDA'S OF LINES 5024-5040 O!  j UPDATING  W`& w`& WP@0 jCORR. MATRIX...X@|X@|V0$ v.X|8W@`Bv#@'@Lv$#@'@V v $$`Zjv&@t v~ v@ZZ^ R: NO. OBS. IN COL.vX| v!@Z^ W@ j,REGRESSION...vX| v!@ZX@| X@|wRaa Z*Z4X@|>wR@aa@HwR@R@RZ\wR@@@fvpX@|zZ w@@wP  L w@jjANALYZING RESIDUALS...  v4@'RwR4 X@|@V0  X@|@V0wRR"4%R%RZ Z  X@|@ V0 8 $ wRR$4 . wRR$4 8Z B^ L'w@@@@@@ VX| `W@ j w tX@| ~+w!R@$a#@a'@a Z "w@a@!@a@% w@a@# w@@! w@@@@!@@ Z w@@& X| W@ w@@ #@@ Z w@@,&@ w@@@@&"@ w``@@ ^ R: ANALYZE RESIDUALS v X| W@ v@ w!@ Z wFGH X@| vF!'@@ & ֏FRn 0v :X| DW@ b Nv@ XV0 l bZ lj nj vF v$HA "WARNING: RESIDUAL IN ROW ",3D," IS ",SD.DD," S.D. UNITS FROM 0" Z v W!@ v@ v@ X@| W!  v@ v@  v@ !@0 v@ Z *v@$$@"&@ 4v@ >v$@&@ Hw"& R ֏Rn Wj \j2WARNING: RESIDUALS MAY BE EXCESSIVELY CORRELATED : fj pj OBSERVED NUMBER OF RUNS= zj EXPECTED NUMBER OF RUNS= jSTANDARD DEVIATION OF RUNS= j (OBS.-EXP.)/(STD.DEV.)= j jCHECKING AUTO CORRELATIONS... v`8@ X@| v X@|"@ v!!%! @ Z Z X@|@ v5@&@ ֏5@jj5H! "WARNING: AUTO(",DD,") =",XSD.DDZwpj W`d #A W`` #@ W`p #D W`t #E W`x #F W`N #O W`p&T`x #G'#I#J#K#L#M'#@r$IDA24#Ar$IDA25#Dr$IDA28#Er$IDA29#Fr$IDA30#Gr$IDA31#Ir$IDA33#Jr$IDA34#Kr$IDA35#Lr$IDA36#Mr$IDA37#Or$IDA39& r$IDA903' r$IDAK'`,IDA39 ˖ & KgҔRaN JД<H(J- J^2R:13MAY744"R:Q1=1 FOR>NAME;=2 FOR>SCAT;=3 FOR>NORM;=4 FOR>PLTS;=5 FOR>HIST6R:Q1=6 FOR>FREQ;=7 FOR>AUTO;=8 FOR>SERC;=9 FOR>RUNS8R:Q1=11 FOR>MSOR;=15 FOR>CTAB;=16 FOR>MTABdN  0 @P`eWxnfW@ngjWANT EXPLANATION hf iV @@0Nnj'nw@Hx W@'U'TP'''w`MSORW@k`+ CANNOT BE EXECUTED AFTER 'DIFF' OR 'LAGG'.'w`SCATw`CTAB wH@w@V@w`MTABw`V`k` NOT POSSIBLE WITH FEWER THANCOL(S). OF DATA.'RV]R: # OBS.?vvvV]j6 CAN'T EXECUTE 'NORM' WITH MORE THAN 375 OBSERVATIONS.'j!CHOICE OF 'DEPENDENT VARIABLE' :  wh@ w@ wH@j6CHOICE OF VERTICAL AND HORIZONTAL VARS., RESPECTIVELY: vP * VARIABLE : v@: ,v@ON THE VERTICAL AXIS : vP* VERT. VAR. : ,U11r1j.* GIVE NAME OR COLUMN NUMBER FOR THE VARIABLE 6WP@;U@EEEETJJJ2@ UP^222hTE jTO BE PLOTTED Jj@OwTjTO BE TABULATED : Yw^ jTO BE SORTED : cwhjTO BE TABULATED @mwrjPwx 0|jW j NEED HELP f V @@0NrrV0@@0HELPV0@@0? WH W@w@v@ON THE HORIZONTAL AXIS :  vP* HORIZ. VAR. : ,wHw@W@*@7H*@ W@ wP w`N  wp@`j&W@  WHjU@X&&&&&&2 UP&222&&'WRXR:>SCATZv\v^`wXbR:Q(11) IS TOTAL # OF ACTIVE ROWSdUffhfj'USE ALL ACTIVE ROWS FOR SCATTER PLOT ? gjh j* ALL ROWS ? jP0ljnWrojPLEASE ANSWER YES OR NO.pfrV0@@0?otV0@@.NjFIRST ROW, LAST ROW fV? j@H "ROWS 1 TO ",3D," UNDEFINED." j TRY AGAIN!V@j)FIRST ROW CANNOT BE LARGER THAN LAST ROW.V@jNO DATA IN ROWS BEYONDvX|W@vZjTOBLOCK HAS NO ACTIVE ROWS.'vvw`R:Q(12) IS # OF ACTIVE ROWS I3 TO I4whp v@ vHX@|W@whh!@"wpp!H"Zwh!h&wp!p&V@wx@ vX|W@v @#h@v H#p@Zwx&@w@ &@vv/@W@ w@ <v@@` OF ' ' VS. ' ' v@PP0wH< v@H \ 0 v@@@` v@ V140$ w`"&$wX&jSCATTER PLOT OFSTANDARDIZED VALUES @(&RR:>NORMw@ wH4W@B<v@@X OF ' '$ v@PP0. v@@@X8LBv@ Lj#NORMAL CUMULATIVE PROBABILITY PLOT @V&`RR X| W@ w4 v  Z X@| W@ W4A w4  V? v Z w4#4&@ R:S=STUDENTIZED RANGE ^ R<WXdFwPPv0`%P`%Zndv0Д`%P`%n^$/@%DATA MATRIX HAS VARIABLE(S) IN FIRST  COLUMN(S)W@j!NO NAMES GIVEN FOR VARIABLES, BUTj FOR YOUR REFERENCE :j COLUMN 1ST OBSERVATIONX@|jF2X,DD,6X,D.5DEZY j THEY ARE :/@ COLUMN NAMEX@|"VPJ,j6Д`$P`$6 H 2X,DD,4X,6A@TJj6`$PP`$PTZYjZ W@^[j'FITTED' VALUES IN COL.\j'RESIDUAL' VALUES IN COL.@]j^^W@ X@P8VД`$P`$00@`zZVX X@|PV`$P`$00@`ZV0@`.FITTEDw@V0@`.RESIDUw@@l X@|@h V00*Z f* V,@z4V,\>w@ W@@Bj( NO FITTED OR RESIDUAL VALUES AVAILABLE DV`GFjUNTIL REGRESSION EXECUTED.GjH'\ jNO DATA IN COL.^`'fwkj0 IS NOT A VALID NAME OR NUMBERpzwwP ^R:>NAME'vX| v!@Z^#(&d123456789101112#2d131415161718192021&r$IDA02&r$IDA03&r$IDA04&r$IDA05&r$IDA06&r$IDA11&r$IDA15&r$IDA16&r$IDA32&r$IDA38' r$IDAN *'r$IDAE15' r$IDAK'`*IDA40 ˖ L4 KgҔRaN JД<H(J- J^2R:29MAY744R:UPDATING MEANS AND STD.DEV.(S) OF COL(S). J1 TO J2dN 0@ njxV' w`@R: UPDATING WHEN COLS.I3 TO I4 APPEND OR REPLACE J1 TO J2Rv@vvX| W@V*#(ZjUPDATING MEAN, STD.DEV....v:R: COMPUTE Z, THE NEW Q4, AND COMPARE TO OLD Q4 w`@ X@| w;`Zw@z X|"$Z*W1r/4W+\>R: DELETE 1 OR MORE ROWS IF Q4 < Z@ X|@HVJZRr\R: RECOVER 1 OR MORE ROWS IF Q4 > Z^ X|@fhZrX@|t,vZxjyW1zw|jOBSERVATIONS IN FIRST@ROWS NOW UNDEFINED.~ W@ w@@W@jj GIVE NAME(S) OF NEW VARIABLE(S) X| Zj V,@jWARNING! DATA MATRIX FULL.j' R j  H #,"VAR.",XDD,X f@ VP vД`$P`$@@`   v`$A`$x @@` ^\RfRzX||W@@~Z^R:COMPUTING MEAN,STD.DEV.vv X@|v!@$"Zv &vX|W@v "@Z w@w@&@^8R: DEL.OBS.VW@~[X@|`!w@%@&@#&@ew4@%@@jw44"#@@$@&ow@4&@tZyv@~^RR: ADD OBS.W@X@|!w@%@&@!&@w4@%@@w44 #@@$@&w@4&Zv@^R R: # OBS. IN COL.vX| v!@Z^,W@h.W@r1v4@'@6V4Qr;j@/@FOR VAR.,ABS.(STD.DEV./MEAN) IS4LjMEAN IS @Nj STD.DEV. IS @Tj(WARNING! ROUNDING ERRORS MAY BE LARGE.UW`Z 7@rVj5YOU MAY WISH TO RECODE THE ORIGINAL DATA BY ADDING ANXj0APPROPRIATE CONSTANT (POSSIBLY NEGATIVE) TO EACHZj'OBSERVATION AND THEN RE-ENTER THE DATA.^rhjmjCOL. IS A CONSTANT EQUAL TO @r^#'R#(R:WIPING OUT REGRESSION IF J IS IN MAT V#2 X@|@#<V/a##F##Z# R:J NOT IN MAT V#$T##j>THE FITTED AND RESIDUAL VALUES FROM THE CURRENT REGRESSION OF:#jTHE DEPENDENT VARIABLE IN COL.a@#j)ON THE INDEPENDENT VARIABLES IN COL(S). :#X@|$ka,$wa$VPP$,$"j$,Z$@ wa@$Bw@@$J X@|`$Lw@$NZ$Pj1HAS BEEN ERASED BECAUSE YOU REPLACED DATA IN COL.$T^$UR&r$IDA12' r$IDAK'`IDA41 ˖  KgҔRaN JД<H(J- J^2R:29MAY744R: COMPUTING MEANS AND STD.DEV.(S)dN 0@ njxV' w`@ W@. W@vvv@v W`^ V0R:UPDATING FOR DELB,RETB,RECO,SELRR:UPDATING FOR APPO,APPBv: j UPDATING Z"$R: COMPUTING MEAN AND STD.DEV. FOR ALL ROWS 1 TO N AND ALL COL(S).,#R: 1 TO K. Q(1) STILL 0. FOR ENTE,ENTS,ENRA, AND SOMETIMES CRSP,- R: RAND, AND INDEX.v@2v6X@|@ w@@JZOw@TjDATA MATRIX HASOBSERVATIONS ON VARIABLE(S)VjX j COMPUTING ZjMEAN(S) AND STD.DEV.(S)...\z^`X@|bd,fZhjj W@l w@@mR:IF >ENTE,Q2=24, CHECK FOR NAMESnW`\ 7`@popWrjtjNAMES READ FROM DATA FILE ARE:vX@|xVP~zjД`$P`$|~wPj`%P`%ZjjWANT TO SUPPLY NEW NAMES(S) jwUj3YOU MAY GIVE EACH VARIABLE A 1 TO 6 CHARACTER NAME.!j:YOU ARE STRONGLY URGED TO SUPPLY NAMES FOR YOUR VARIABLES. j8IF YOU DO, SEQUENCE PLOTS, TABLES, ETC. WILL BE LABELED."jRAND N@   jWANT EXPLANATION f V @@0N w`Z wpPR:WILL CHAIN TO EXPLANATION PROG.v6UjWANT LIST OF SUBCOMMAND NAMES f V @@0N^jDISTRIBUTION COMMANDj------------ -------j CAUCHY CAUCj CHI-SQUARE CHISj GAMMA-1 GAMM"j LOG NORMAL LOGN,j NORMAL NORM6j UNIFORM UNIFBj AUTOREGRESSION ARG1C j AUTOREGRESSIVE-D j INTEGRATED-Ej MOVING AVERAGE ARMASj NONE OF ABOVE NONETU^^^#/@0*WHICH DISTRIBUTION DO YOU WANT TO SAMPLE FROM ?hx @rj|Wv66@/@*DIST = x @jWV6@^V@@@0CAUCV@@@0CHIS V@@@0GAMM V@@@0LOGN V@@@0NORMV@@@0UNIFV@@@0HELPV@@@0NONE'V@@@0ARG1 V@@@0ARMAp&R0R:RCV@0?D jINVALID COMMANDNTR:DETERMINE COL. TO PLACE SAMPLE W@j IDA DATA MATRIX NOW HAS:  ROWS  COLUMN(S)W@j BUT THE FIRST@ROWSj6ARE UNDEFINED AND UNAVAILABLE FOR PLOTTING OR ANALYSISj,BECAUSE OF PREVIOUS USE OF 'DIFF' OR 'LAGG'.vX@|W@v@ZR: NO DELETED ROWS IN X MATUj' WANT TO ERASE ALL DATA AND START OVER  j ERASE f V @@0N W~  X@|` X@|@ wZZo`@onӟ wAv@V0"j;YOU MUST FIRST 'RECOUP' YOUR DELETED ROWS OR ERASE ALL DATAjBEFORE USING 'RAND'.' U   j(* IN WHICH COLUMN DO YOU WANT THE RANDOM j"SAMPLE BE PLACED ? GIVE NUMBER : j* COL. # TO PLACE SAMPLE : xjW" j@ H: "TO PLACE SAMPLE IN A NEW COLUMN, TYPE THE NUMBER : ",XDDjH1#,"OTHERWISE,GIVE A NUMBER BETWEEN 1 AND",XDD,":" " V@@4,$jNUMBER GIVEN TOO LARGE&^R: DETERMINE SAMPLE SIZE W@Utj* SAMPLE SIZE (N) = x $j.WL8j&N IS THE NUMBER OF ITEMS IN THE SAMPLEBLV@Vj``H&"N MUST BE LESS THAN OR EQUAL TO",XDDDb j8BUT YOU CAN USE 'RDIM' TO INCREASE THE MAX. SIZE TO 563.jtj* N = ~^R : DETERMINE EITHER PARAMETER R OR DFvD@Uj* VALUE OF PARAMETER R : ,j* R = ,"vD@,x &6j@WJTDTT j R-1^j! F(T)=L*(L*T) EXP(-L*T)/(R-1)!hj'T>0, WHERE R IS A POSITIVE INTEGER < 50rj AND L IS A POSITIVE REAL NUMBER.| jVALUE OF R IS : ,jNO. OF DEGREES OF FREEDOM : , W&& W&7&d jVALUE MUST BE AN INTEGERTD|jVALUE MUST BE BETWEEN 1 AND 50TD|^ R:CAUCHY DISTRIBUTIONU jWHAT IS THE VALUE OF THE MEDIAN j MEDIAN = f U**>*j* VALUE FOR SCALE S = 4H> j * SCALE = Hx 4Rj\Wzfj+THE SCALE S IS SUCH THAT P(M-SRAND N@   &O<q `q A a 1 !  U@pR : AR(1)v\UFj(MEAN, STANDARD DEVIATION, BETA1, BETA2 =f4&'W4Z("j:STANDARD DEVIATION MUST BE POSITIVE. STANDARD DEVIATION = 2g4<FjM,S,BETA1,BETA2 = PZ^\ v&&@"'^ w64@"'$'_j PROCESS MEAN= PROCESS S.D.=6ajGIVE FIRST OBSERVATIONbfc w@dX@|n wx ww@d%w& '%@ !%4Z#(pR:ARMAr R:2FEB74 BY WM.WECKERtRv R VARIABLE LISTx#R A = CUMULATIVE SUM OF AUTOREGRESSIVE TERMS FOR AN OBSERVATIONzR B = FACTORIALS (VECTOR)|R C = DIFFERENCING COEFFICIENTS~R D = NUMBER OF DIFFERENCES R D0 = DELTAR F = PHI VECTOR OF UNDIFFERENCED SERIESR F0 = COLUMN OF DATA MATRIX WHICH CONTAINS THE SERIES R F$ = DATA FILER G = PHI VECTOR OF DIFFERENCED SERIES#R M0 = CUMULATIVE SUM OF MOVING AVERAGE TERMS FOR AN OBSERVATIONR N0 = NUMBER OF OBSERVATIONS!R P0 = NUMBER OF AUTOREGRESSIVE TERMS IN DIFFERENCED SERIES!R Q0 = NUMBER OF MOVING AVERAGE TERMS IN DIFFERENCED SERIESR S = VARIANCE OF WHITE NOISER T = THETA VECTOR OF DIFFERENCED SERIESR W = WHITE NOISE (LAST Q0 VALUES)R W9 = CURRENT WHITE NOISE DISTURBANCER Z = INITIAL P0+D+50 DATA VALUESRRR R INPUT PARAMETERSRvevjP,D,Q=gD W DP5Pj,PROBLEM TOO BIG--P+D AND Q CAN BE AT MOST 10vuWX@} jPHI()=fqvuu qZVu@j0THE SUM OF THE PHI'S CANNOT EQUAL 1. TRY AGAIN.WX@} jTHETA()=gAZjDELTA=fE jSIGMA-SQUARED=g4RR COMPUTE BINOMIAL COEFFICIENTSR OF DIFFERENCE FORMULARv!@1@1D@@VD X@|D v!!@$ZX@|Dv1!D&!@$!D"@Z X@|D@ v1D"@@(@$1D"@ZRR IF P0D$X@|DvqZR R COMPUTE FIRST D AUTOREGRESSIVE PARAMETERS"R$VD8&X@|D( va1D"@*X@|,vaa 1D" @$q.Z0Z2R4R COMPUTE AUTOREGRESSIVE PARAMETERS D+1 THROUGH P06R8W@DR:XD@}<v"D@>va@ X@|D@Bvaa 1$q DZFZHRJ!R COMPUTE FINAL AUTOREGRESSIVE PARAMETERS [START WITH LARGERL!R OF P0+1 AND D+1 TO AVOID REPEATING PARAMETERS CALCULATED N R PREVIOUSLY]PRR v:D@TV+ DdVX} DXv#@Zva\X@|D"^vaa 1$q"D @`ZbZdj$ DATA GENERATION NOW IN PROGRESS...fRhR INITIALIZE FIRST OBSERVATIONSjRlwu D;n W D~o w$E&@"upX@}urwe$tw$vZxRzR GENERATE FIRST Q0 VALUES OF WHITE NOISE|R~WYE@} wl  wl w@d% wqE4[ERR ACTUAL DATA GENERATIONR YEu@|d v՞RR GENERATE CURRENT DISTURBANCER wl  wl w@d%w~4RR DOES PROCESS HAVE AUTOREGRESSIVE TERMS?R W DRR ADD AUTOREGRESSIVE TERMSRX@} D WEd ! D v a%E"Nv a%Ed "eZRR DOES PROCESS HAVE MOVING AVERAGE TERMS?RWRR ADD MOVING AVERAGE TERMSRX@} v#A%qZRR DATA OBSERVATION IS SUM OF AR TERMS, MA TERMS, R DELTA, AND CURRENT DISTURBANCERRv E!~RR UPDATE WHITE NOISE VECTORRW@W X@~@ wqq@Zwq@~R !R FIRST 50 OBSERVATIONS THROWN OUT TO REDUCE INITIALIZATIONR EFFECTSRWEd  wEd e W@@wEd @@ WEd ! DwE[E ve#(#'R:CHAIN TO IDA912 FOR UPDATING#(v#* w`#,w@`Z &r$IDA912' r$IDAK'`NIDA46 ˖ L KgҔRaN JД<H(J- J^2R:2APR744R:Q1=1 FOR>RDIM;=2 FOR>ZERS;=3 FOR>ZERC;=4 FOR>ZERRd N0 xU|pjW@jWANT EXPLANATION f0V0@@0YU jIDA CURRENTLY HAS:j)A DATA MATRIX WHICH CAN HOLD A MAXIMUM OFj OBSERVATIONS ON@ VARIABLES INj ROWS AND@COLUMNSj& PLUS 3 ROWS FOR 'STATISTICS-KEEPING' W~ 6 jA SCRATCH PAD WITHj `ROWS AND~ COLUMNS6#(@UJJ"j-* GIVE MAXIMUM NUMBER OF DATA ROWS WANTED: j* MAX.NO. ROWS = x jWj V4氯j4NUMBERS OF ROWS AND COLS. MUST BE POSITIVE INTEGERS. j START OVER!j#IDA CANNOT TAKE MORE THAN 563 ROWS.jJVF`vwF&`w`wL 9v@ w~ V]"jWITHROWS YOU MAY HAVE A MAXIMUM OFCOLUMNS FOR DATA.j%j* WANT TO SET ASIDE ANY OF THECOLUMNS IN A SCRATCH PAD ? x 0jW  j NEED HELP f0V0@@0N " V0@@0N*V0@@0Y4V0@@0? Uj0HOW MANY COLUMNS DO YOU WANT IN THE SCRATCH PAD j# OF SCRATCH COL(S). = gw@WA#jCAN'T HAVE MORE THANOF THECOLUMNS IN THE SCRATCH PAD.w~  v#~ @wo``$o.nӟBvД@x  LvД| x  Vv@H $ `vJ B jVH~!v@`@@` FITTEDRESIDUVPvДn x FITTEDv@`RESIDUv`$A`$l  FITTEDRESIDU W~ l X@}~ W`V. vSCR.00h0 0@ v``0 vP`0w@ WPv`%P`% wPv`%P`% Z ^ d12345678910d11121314151617jU<<j&THE DATA MATRIX NOW HAS DIMENSIONS OF:#jROWS AND@COLUMNS.( W~ P-jTHE SCRATCH PAD HAS:2j`ROWS AND~ COLUMNS.7P<j DATA DIM. AREBY@A W~ PFjSCRATCH PAD IS`BY~ PjUVK@'ZjYOU CANNOT EXECUTE:_"j;1. 'PSORT' WITH LESS THAN 4 COLUMNS OR MORE THAN 300 ROWS.dV]}ij#2. 'NORM' WITH MORE THAN 375 ROWS.nVp}s"j;3. REGRESSIONS OR 'SORT', 'RANK', OR 'SCAT' WITH LESS THANxj$ 2 COLUMNS OR MORE THAN 450 ROWS.}j'R:>ZERS W~ j%YOU DON'T HAVE A SCRATCH PAD TO ZERO.' w@ X@|`X@|!~  wZZ jALL VALUES IN THE`ROWS AND~ COL(S).j!OF YOUR SCRATCH PAD ARE NOW ZERO.jW@''{R:>ZERC| W~ ~jj3WHICH COL. OF YOUR SCRATCH PAD DO YOU WANT TO ZERO fV4A~ j!GIVE A POSITIVE INTEGER LESS THAN~ @V' V@v@  X@|` wZ v"@jALL VALUES IN COL.oR:>ZERRp W~ zrzj2WHICH ROW OF YOUR SCRAhTCH PAD DO YOU WANT TO ZERO fV4,@j!GIVE A POSITIVE INTEGER LESS THAN@zV' Vw@X@|!~  wZjALL VALUES IN ROW'"j"j1NORMAL MAXIMUM DIMENSIONS OF IDA DATA MATRIX ARE:"j 100 ROWS AND 19 COLUMNS,"jBUT, USING 'RDIM', YOU MAY :" jASK FOR AND GET"j******* **********"j563 ROWS 1 COLUMN" j 450 2" j 374 3" j 300 4" j 280 5" j 203 8" j 171 10" j 122 15"#<"U""j3SOME OF YOUR COLUMNS CAN BE PUT IN A SCRATCH PAD OF"j21 OR MORE COLUMNS AND 3 + THE NUMBER OF DATA ROWS." j8NO COMPUTATIONS WILL BE DONE ON THE SCRATCH PAD NUMBERS,""j;BUT YOU MAY CHANGE OR MOVE THESE NUMBERS USING THE COMMANDS"j,'APPS', 'MOVE', 'ZERS', 'ZERC', AND 'ZERR'."j5YOU MAY ALSO SPECIFY A COLUMN IN THE SCRATCH PAD WHEN"j'USING 'CATE', 'SELR', 'PRTS', OR'FPRS'.#j#"^#(j* WANT MORE DETAILS ? #-w@#2#P#<w@#AW@7@P##F j* MORE ?#P0#Zj#nW##x jPLEASE RESPOND:#j"NO, FOLLOWED BY A CARRIAGE RETURN,#j) IF YOU DON'T WANT ANY MORE EXPLANATION#!j9WITH A CARRIAGE RETURN ONLY IF YOU WANT MORE EXPLANATION.##F#V00##V0@@0Y##V00N##V0@@0?#x# jINVALID RESPONSE.##x#w@#j#^' jCOMMAND NOT EXECUTED.' r$IDAK'`hIDA47 Ζ  KgҔRaN JД<H(J- J^.JP2R:13JUN744R:Q1=1 FOR>APPO;=2 FOR>APPS;=3 FOR>APPV;=4 FOR>APPBdN0@ `fjh w`^ nUprtvpvPAPPOqrvPAPPSstvPAPPVuvvPAPPBW@jWANT EXPLANATION f@V@@@0N&p*W@ W~ j'WANT TO USE 'APPS' WITH DATA SUBMATRIX f@V@@@0NX WITH SCRATCH PAD f@V@@@0N' j@~ w`w`w~ @ W@'Ux j DATA NOW IN  jB@ww@w@W@ jD@jF@jU,j* MODE OF INPUT IS 6 j * MODE = "6,j-* MODE OF INPUT : FROM 'FILE' OR 'TERMINAL' ?6x @;j@W^Jj+RESPOND 'F' FOR FILE OR 'T' FOR TERMINAL : T6^V@@@0FhV@@@0Tr jRESPONSE INVALID|JjU jNAME IS jNAME OF INPUT FILE IS f`D`@W@j CANNOT FIND '`'. CHECK YOUR SPELLING! V`@j^jNOT ENOUGH OR NO DATA IN '`'.jIT'S PROBABLY ALL MESSED UP.'w@w@8@ V,@jHP!j7* COLUMN NUMBER OF DATA MATRIX TO PLACE NEW VARIABLE :x jWjJjLjNV' Vs334,fffV*jHPjPV@@@0TXX@| h@Z jDATA FOR COLUMN X@| jROW  gZv w` w@`&xw| w@8~V,jHP$j>* ROW NUMBER OF DATA MATRIX TO PLACE NEW OBSERVATION VECTOR :x jWjJjLjNV' V+fff4-fffjPV@@@0TXX@| h@Zj DATA FOR ROW : nfX@| wZ w@@v w@&@w@DjFW@JHj*GIVE TWO VALUES, SEPARATED BY COMMAS, FOR:Jj(FIRST COL., LAST COL. OF NEW NUMBERS : PfR V6' ^V@f`jTbjNdJf Vs334-fffph jFOR FIRST COL., jjJljMnbpW*trw@t Vs334-fffzv jFOR LAST COL., xjzW,|v @~v @V@jj#FIRST ROW, LAST ROW OF NEW NUMBERS f V6' V@jTjNV+fff4+fffW@'  jD@jF' W*W@ V+@ jLAST ROW TOO SMALL V,@jFIRST ROW TOO LARGE V@40ww V-fff j FOR LAST ROW,jJW*W*j$IF FIRST AND LAST COL.(S) ARE NOT 1,v@vj jNEW NUMBERS WILL BE ENTERED IN: jROWSTO, W* j DATA COL.(S)TOjSCRATCH COL.(S)"@TO"@ j , BY ROWS.V@@@0T&XX|X| h@ Z"Z$:& j DATA FOR: (X|* jROW : , nf"@.v0X|2v@4 w6Z8Z:W*b<X|> w@@@ZBW@LDvFvHB w@J&LwHNwPP w@`RvTvVV*&XX|Zw`@8`\Z^R:CHAIN TO IDA912 FOR UPDATING N,K,Q4,MEANS, STD.DEV.`&bW@'d!j9'PRTS' OR 'FPRS' CAN BE USED TO PRINT OUT SCRATCH VALUES.f'wwv@XU]]b]j1* WANT TO DELETE FIRST TWO ELEMENTS OF INPUT FILE^j BEFORE DATA VALUES ARE READ ? _lbj* DELETE 1ST TWO VALUES ? lP 0qjvWj/IF THE FIRST TWO ELEMENTS OF YOUR DATA FILE AREj2VALUES FOR N AND K (SIZE OF DATA MATRIX TO FOLLOW)j3THEN YOU WILL WANT THEM DELETED HERE. IF YOUR FILEj&CONTAINS DATA ALONE, THEN ANSWER 'NO'.bV0@@0HV0@@0?V0@@0NV0@@0Yj.RESPONSE INVALID. ANSWER 'YES', 'NO', OR '?'.bh@^@H$ "SCRATCH PAD NOW HAS ",2D,"COL.(S)"B$HA "FIRST ",3D," OF ",3D," ROWS AND FIRST ",2D," OF ",2D," COL.(S)"DH! #,"FIRST ",3D," ROWS UNDEFINED "FH/ "BECAUSE OF PREVIOUS USE OF 'DIFF' OR 'LAGG'."H#H@ "USE OF ",4A," WILL ERASE PART OF CURRENT DATA. WARNING ONLY!"JH" "NUMBER SHOULD BE ",3D," OR LESS"LH "BUT NOT LESS THAN ",3DMH "BUT NOT LESS THAN 1."N H "TRY AGAIN!"PH2 "REMINDER: LENGTH OF INPUT VECTOR SHOULD BE ",4DTH+ "FIRST NUMBER CANNOT BE LARGER THAN LAST."&r$IDA912&r$IDAE47' r$IDAN ' j'P' NOT EXECUTED.' r$IDAK'`BIDA48 ˖ & KgҔRaN JД<H(J- J^2R:21MAY744R:>CALC<W@_Z _N2!212H@ cwtxd v@ 0123456789enfn#gn3hw$Di jRn v@x>v@@$`@ D D"@$@ d P X@t"j Z V@j-v`V@j0JvX@@~@j,JZVDDj."vD`'v`,J6 vD``@v@CJDWtFEjF^Jv$@T vd^vd$Pc vd$P$h V46@|r j@@@| VP46@ j@@@V` j@@@^R--A=B+C v$!@ v41@vV!@$1@&X@|$:40v !$@$ 1$@4: v|D v}$NZXVBlbv@lv@"B!@v^v@$"4@ X$@~@!"1@Z v@@^v@X@|$:4v !$$>"1$4>$ v v}$ZX@@~@ V Z v@$!@*^4R--A=B-C> v1@1@HR v1@1@\^v@vv@v v@`v@` X@ V< ZVhf V<-v@v@ V< .v$<.Vfff3 X@P8 V@0~BZL V<.Vva"`~v@V v}v`` $v@@ $}$vP X@|@ vP$  v} v}$ ZVv@@@( v@2< V@ZFv@@@P<Z v@@$d^xR--A=B*C v@@֏!@@1@@"nv@!@$1@}v`X4@1@v X$!@v14$!$  $ 4@ v}v$ 4@}$Z$v@ v$ 4@Z4'v@$ 4P"$ 4P!@$1@"^@R--A=B/CJv$!@@T v41@^V4@|hj *** DIVISION BY ZERO **r'| v@@V$`^ R--SCALE B AND C. X&$@~@ v!&!&@Z&v!@!`V4@fv&}&14@ v!$@V&@lv'X(@|$v)&$!( ' v')} v!()}$'Z(&v!('0v':X(@|4Dv)&$1( 'N v')}X v1()}$'bZ(lX&$@|4@~@vv}$!& !&@&14|&V14@$"!&@@!&} !&@"$14}v@v'v*&"4@X(@|4 v)' !* ("$1( v')} v!* ()}$'Z( V' !&*v@v'X(@|4 v)' !* ( 1( v')} v!* ()}$' Z(* v*@4Z&> v$@"4@CV@\H)v"" @!@$1@Rv@@$0@\^fR--SIMPLE CASE--C IS ONLY 1 WORD.pv61@zv' X&$@~@ v(}$' !& v&(&6v'("&$6Z&> j CALCULATOR jNEED INSTRUCTIONS  f V@@0Y& V@@0N_ jWHAT   d j &f +V@@0Q' 0R :  & DR N X@ XV@@<  bv@ lZ v & vP@@ v@ R VP<C  d j  & R VP<R    d j  & R VP0H$ *R 4 X@ > X@P HV@0@@ RZ \V@@0. fV@@0- pv@ zZ  & R d R  n3 R VP0+V VP0AV VP0-t VP0St VP0* VP0MVP0/VP0DR$j P NOT LEGAL .d8n#BjL &VR*****ADD`jt R*****SUBTRACT~4 R*****MULTIPLYxR DIVIDE V@@j DIVISION BY ZERO vPC @Rn#j  0U@j3 HOW MANY DIGITS TO THE LEFT OF THE DECIMAL POINT (gt2 j5 HOW MANY DIGITS TO THE RIGHT OF THE DECIMAL (6 MAX)<fD>F@j*NO. DIGITS (LEFT, RIGHT) OF DECIMAL PT. = BgtDFwtt!t` D`Pj Z^dRn t=x^Rv@!@@^&r$IDAE48' r$IDAK'`IDA49 ˖ L KgҔRaN JД<H(J- J^2R:13JUN746R:>INDXN0@ P w`b vPINDX W@j,HOW MANY INDEX NUMBERS DO YOU WANT IN COL.1 g W@5j IDA DIM. AREX@' vv@w@X@| w@@Z4w@8@ V,@jHPjUj!COLUMN TO PLACE INDEX VARIABLE =   j COLUMN =  fV' V*jHPVs334,fff4 V,@4 jJ%jL*4U>>p>jVALUE OF 1ST INDEX = HfR j INCREMENT = \ffpjINDX(1), DELTA = zfvW@ w`@W-"jPUTTING INDEX IN COL.!CHANGES NUMBER OF UNDEFINED ROWS. j WARNING ONLY! X@}@ wZX|W@ wv w Zv w`@ w@`&H#H@ "USE OF ",4A," WILL ERASE PART OF CURRENT DATA. WARNING ONLY!"JH" "NUMBER SHOULD BE ",3D," OR LESS"LH "BUT NOT LESS THAN ",3DTH+ "FIRST NUMBER CANNOT BE LARGER THAN LAST."&R:GOTO IDA912 FOR UPDATING MEANS AND STD.DEV(S).&r$IDA912' j'P' NOT EXECUTED' r$IDAK'`IDA50 ˖  KgҔRaN JД<H(J- J^2R:2NOV734R:>SORT<Oq 0 1=O > W@F@ r$IDA29iFnPosZn3dUnxnj.* GIVE VARIABLE NAME OR COLUMN NUMBER FOR THE xj VARIABLE TO BE SORTED :  j * VARIABLE : x 0jWvVUj(* GIVE COLUMN NAME OR COLUMN NUMBER FOR j) COLUMN RECEIVING SORTED OBSERVATIONS : j* RECEIVING COLUMN : x 0 jW,"j;AFTER THE COLUMN IS SORTED IN ASCENDING ORDER, WHICH COLUMN#j=IN THE DATA MATRIX DO YOU WANT TO REPLACE WITH IT? IT CAN BE"!j9ANY COLUMN IN THE ACTIVE DATA MATRIX EXCEPT THE ONE BEING$j-SORTED, OR IT CAN BE A NEW VARIABLE IN COLUMN@&j',6v8V.@:j6RECEIVING COLUMN CANNOT OCCUPY THE SAME COLUMN AS THAT<j/OF THE VARIABLE TO BE SORTED. PLEASE RE-ENTER.>@ V6*@EA V0@BJEj5YOU HAVE SPECIFIED AN INVALID COLUMN, PLEASE SELECT AFj'DIFFERENT COLUMN LESS THAN OR EQUAL TO @GjIJj2REQUEST WILL DESTROY OLD DATA IN RECEIVING COLUMN.OjWANT TO PROCEED ?Tx  VWXW @@0Ymjrv@vX|W@v@ vZp w`@ X@` w  ZvX|&W@D0v@: wDZ W@' /@NAME OF NEW VARIABLE =  f0 VP vД`$P`$0@` ' v`$A`$x 0@` 'W@/@FOR YOUR REFERENCE :/@COLUMN 1ST OBSERVATIONjX@|jF2X,DD,6X,D.5DEZY /@,THESE ARE THE VARIABLES IN THE DATA MATRIX : j COLUMN NAMEjX@|"VPJ,j6Д`$P`$6 H 2X,DD,4X,6A@TJj6`$PP`$PTZYj^^ X@PVД`$P`$00@`zZ X@XV`$P`$00@`Zl> X@P HhRV00z\ZfwpzwwP ^pv@qv֞@svuV>zv{ v @|wD}VAD~vvDwDvV?DvvDwDVADvvDwDvvFvƢ@V+DwFv@V-DV@ V"@"wqv1vv֠@wqv1vv֠@v֢@Vְvqv1 V"XzV@uv@v@V0 wD@VADv v@v@WD, v@D^#(&d123456789101112#2d131415161718192021' r$IDAK'`IDA51 ˖ &% KgҔRaN JД<H(J- J^2R:2NOV734R:>PSORT<Oq,1=N 0  > W@F@ r$IDA29iFnPosZn3d V@@nj4CAN'T USE PSOR IF IDA DIM. HAVE LESS THAN 4 COLUMNS.x'Uj.* GIVE VARIABLE NAME OR COLUMN NUMBER FOR THE j VARIABLE TO BE SORTED : & j * VARIABLE : &x 00j:WXDNXbvlVDj* ACCOMPANYING VARIABLE :x 0jWj1THE ACCOMPANYING VARIABLE WILL BE ARRANGED IN THEj6SAME ORDER AS THE SORTED VARIABLE IN THE SORTED ORDER.j!WANT LIST OF VAR. IN DATA MATRIX f0V0@@.YvVU  j(* GIVE COLUMN NAME OR COLUMN NUMBER FOR  j) COLUMN RECEIVING SORTED OBSERVATIONS : * j* RECEIVING COLUMN : *x 04j>WCHD H"j;AFTER THE COLUMN IS SORTED IN ASCENDING ORDER, WHICH COLUMNR#j=IN THE DATA MATRIX DO YOU WANT TO REPLACE WITH IT? IT CAN BE\jaa"H> "ANY COL. NO. IN THE ACTIVE MATRIX EXCEPT COLS.",3D," AND",3Df jk@kH "OR IT CAN BE COLUMN",3Dpjz^vV0V0j&COL. NUMBER IMPROPER. PLEASE RE-ENTERja jk@  V6*@ V0@.j5YOU HAVE SPECIFIED AN INVALID COLUMN, PLEASE SELECT Aj'DIFFERENT COLUMN LESS THAN OR EQUAL TO @j j2REQUEST WILL DESTROY OLD DATA IN RECEIVING COLUMN.jWANT TO PROCEED ?x  WHjW @@0Y3$ .v@3 8vBX|LW@jVv@`vjZtU~~j'* GIVE COLUMN NAME OR COLUMN NMBER FOR j/ COLUMN RECEIVING ACCOMPANYING OBSERVATIONS : j** RECEIVING COL. FOR SORTED ACCOMP. VAR. :x 0jW j1IN WHICH COLUMN DO YOU WANT TO PLACE THE (SORTED)j,ACCOMPANYING VARIABLE ? YOU MAY PLACE IT IN\ vV0V0V0j&COL. NUMBER IMPROPER. PLEASE RE-ENTERj@"H> "A NUMBER LESS THAN OR EQUAL TO",3D," BUT NOT",3D,3D," OR",3D V6*@<( V0@2d<j5YOU HAVE SPECIFIED AN INVALID COLUMN, PLEASE SELECT AFj'DIFFERENT COLUMN LESS THAN OR EQUAL TO @PjZdj2REQUEST WILL DESTROY OLD DATA IN RECEIVING COLUMN.njWANT TO PROCEED ?x  WjW @@0Yv@ p w`@vv" X@@, X@`6 w  @ZJvTv^ZhvrX||W@v@ w wZ' W@  /@NAME OF NEW VARIABLE =  f0 WP vД`%P`%0@`   v`%A`%x 0@` ^W@/@FOR YOUR REFERENCE :/@COLUMN 1ST OBSERVATIONjX@|jF2X,DD,6X,D.5DEZY /@,THESE ARE THE VARIABLES IN THE DATA MATRIX : j COLUMN NAMEjX@|"VPJ,j6Д`$P`$6 H 2X,DD,4X,6A@TJj6`$PP`$PTZYj^^ X@PVД`$P`$00@`zZ X@XV`$P`$00@`Zl> X@P HhRV00z\ZfwpzwwP ^pv@qv֞@svuV>zv{ v @|wD}WAD~vvDwDvW?DvvDwDWADvvDwDvvFvƢ@W+DwFv@W-DV@ V"@"wqv1vv֠@wqv1vv֠@v֢@Vְvqv1 V"XzV@uv@v@V0 wD@WADv v@v@WD- v@D^#(&d123456789101112#2d131415161718192021' r$IDAK'`IDA52 ˖ L KgҔRaN JД<H(J- J^2R:2NOV734R:>RANK<Oq 0 1=O > W@F@ r$IDA29iFnPosZn3Uj.* GIVE VARIABLE NAME OR COLUMN NUMBER FOR THE j VARIABLE TO BE RANKED :  j * VARIABLE : x 0jWv VU%j(* GIVE COLUMN NAME OR COLUMN NUMBER FOR j COLUMN RECEIVING RANKINGS :  *%j* RECEIVING COLUMN : *x 0/j4WW9"j;AFTER THE COLUMN IS RANKED IN ASCENDING ORDER, WHICH COLUMN>"j X@P HhRV00z\ZfwpzwwP ^pv@zv֞@vV>v v @wDVADvvDwDvV?DVvvDwDVADVv$vD.wD8VBvLvFVvƢ@`V+DVjwFtv@~V-DtV@B V"@"wqv1vv֠@(wqv1vv֠@(v֢@ Vְvqv1( V"X2V@<v@Fv@PV0Z wD@dVADFnvx v@v@WD,x v@DF^#(&d123456789101112#2d131415161718192021' r$IDAK'`HIDA903ǖ L KgҔRa JД<H(J- J^.R HEWLETT-PACKARD 36755B, 6/742R:23SEP73<R:DECLARING VAR(S). FOR $IDA02,03,04,05,06,32N0 @P WP` WP`V@j. 'SCAT' NOT POSSIBLE WITH LESS THAN 2 COLUMNS.'V]j6 CAN'T EXECUTE 'NORM' WITH MORE THAN 375 OBSERVATIONS.' WHv@ : vP * VARIABLE : v@ON THE VERTICAL AXIS : vP* VERT. VAR. : Uj-* GIVE VARIABLE NAME OR COLUMN NUMBER FOR THE WP`j VARIABLE TO BE PLOTTED @j VARIABLE TO BE TABULATED : jPx 0jW6",6 WH W@w@v@ON THE HORIZONTAL AXIS :  vP* HORIZ. VAR. : wHw@W@*@7H*@0 W@0 wP w`p wpF!j&r$IDA380wX5j: WP@ xDUP@Z[\]^N'ZR[ \r$IDA04]r$IDA05^r$IDA06xr$IDA32r$IDA02r$IDA03 w@"$wH4&W@2(*v@@X OF ' ', v@PP0. v@@@X062v@ 6j#NORMAL CUMULATIVE PROBABILITY PLOT @:RW@fTw@VXv@@` OF ' ' VS. ' 'Z v@PH0^wH`b v@H \ 0c v@@@` drfv@ rj$SCATTER PLOT OF STANDARDIZED VALUES @vX|W@w4vZX@|W@ W4Aw4 V?vhZw4#4&@ R:S=STUDENTIZED RANGE^WXwPv0`%P`%v0Д`%P`%^$/@%DATA MATRIX HAS VARIABLE(S) IN FIRST  COLUMN(S)W@j FOR YOUR REFERENCE :j COLUMN 1ST OBSERVATIONX@|jF2X,DD,6X,D.5DEZY j THEY ARE :/@ COLUMN NAMEX@|"VPJ,j6Д`$P`$6 H 2X,DD,4X,6A@TJj6`$PP`$PTZYj^^W@ X@P8VД`$P`$00@`zZVX X@|PV`$P`$00@`ZV0@`.FITTEDw@V0@`.RESIDUw@@l X@|@h V00*Z f* V,@z4V,f>w@ W@@Bj$ NO VALUES FOR 'FITTED' OR 'RESIDU' DV`GFjUNTIL REGRESSION EXECUTED.GjH'fwkjINVALID NAME OR NUMBERp"zwwP ^#(&d123456789101112#2d131415161718192021' r$IDAK'`hIDA95 ˖ & KgҔRaN JД<H(J- J^2R: 31 JUL 744R:Q1=1 FOR>NEWC;=2 FOR>CRTS;=3 FOR>COMM"<N0 PAUFFW@ZHjWANT EXPLANATION Pf0RV0@@.NTjZW@`\j3BE SURE YOUR 'COMMON' SPECIFICATIONS ARE COMPATIBLE^jWITH THE NEW IDA 'COMMON.'`jdj* NEW COMMAND NAME = nx 0xjWHV0@@0?HV0@@.HELPj" 'HELP' IS ONE OF THE IDA COMMANDSjHj TO USE 'NEWC' THE USER MUST:j31. HAVE A 4-LETTER NAME FOR THE NEW COMMAND THAT ISj0 DIFFERENT FROM THOSE USED IN THE SYSTEM $IDA. j8 ISSUE THE IDA COMMAND 'LIST' TO GET A LIST OF ALL THE j IDA COMMANDS.j.2. HAVE A PROGRAM IN HIS LIBRARY BY THAT NAME.j4 THE PROGRAM MUST HAVE THE SAME 'COMMON' VARIABLESj AS THOSE OF $IDA.j1 (GET AND LIST $IDACOM TO SEE REQUIRED FORMAT.)j4 (GET AND RUN $IDAVAR TO GET AN EXPLANATION OF THEj VARIABLES USED IN 'COMMON.')jj&TO USE 'NEWC', REISSUE 'NEWC' COMMAND.' 0@j(NEW COMMAND NAME MUST HAVE 4 CHARACTERS.j'NEWC' NOT EXECUTED.'l X@viP V0@@1PXZ& Xj1THE NAME YOU CHOSE IS THE SAME AS ONE OF THE $IDAbj.SYSTEM COMMAND NAMES. YOU SHOULD FIRST CHANGElj/YOUR PROGRAM NAME TO ONE THAT IS DIFFERENT FROMvj-ALL THE IDA COMMAND NAMES BEFORE CREATING THE j NEW COMMAND.' w^^@"W^P*$j)ONLY 5 USER DEFINED COMMANDS ARE ALLOWED.&jNEW COMMAND NOT ACCEPTED.('*w^@`^@0@@4jNEW COMMAND NAME ACCEPTED.9j>'R: >COMMj4CURRENT, OR SOON TO BE IMPLEMENTED IDA COMMANDS ARE:jjMISCELLANEOUS COMMANDS:vĞ@xvĞ@xvĞPxvĞ@xj#<jDATA DEFINITION COMMANDS: vĞ` xvĞPxj#<jDATA EDITING COMMANDS:vĞP x" X@@$vĞ`&x(Z.vĞ`0x2j4#<8jPRINT AND PLOT COMMANDS:: X@`<vĞP>x@ZDvĞ@FxHjJ#<LjTRANSFORMATION COMMANDS:NvĞ@PxRvĞ@TxVvĞPXx`jb#<dj"SUMMARY AND ONE SAMPLE STATISTICS:hvĞ@jxlvĞ`mxnjp#<~jREGRESSION ANALYSIS:vĞ@xvĞ`xj#<jTIME-SERIES ANALYSIS:vĞ`xj#<jj3COMMANDS TO BE IMPLEMENTED SOME TIME IN THE FUTURE:vĞ`xW`'j#j>EXECUTING SOME OF THE ABOVE COMMANDS AT THE FIRST PROMPT LEVELj&WILL GIVE AN OPTION OF AN EXPLANATION."j;IF NOT, THE COMMAND 'EXPLAIN', OR 'EXPL', WILL USUALLY GIVEjA BRIEF EXPLANATION.#j>'INFO' WILL GIVE EXPLANATIONS FOR ALL COMMANDS WITHIN A GROUP,jE.G., ALL TRANSFORMATIONS.'xX@|iP jF#,4A4XPZj^W`j*ARE YOU USING A CATHODE RAY TERMINAL NOW  j * USING CRT f0V0@@0?' V0@@0Y V0@@0N' jPLEASE ANSWER YES, NO, OR ? w@@W`' $j@IF YOU GET THE PROMPT 'MORE?' OR SOMETHING LIKE IT AT THE END OF*$j?SOME PRINTOUT, RESPOND WITH A CARRIAGE RETURN ONLY WHEN YOU ARE,j3READY TO GO ON. YOU MIGHT TRY THE COMMAND 'COMM'.3'@dCHGPCRTSMISSQUITB"dCOMMEXPLHELPINFOLISTNEWCNEWSPAUSDdCALCCRFIFILEGAUSPSAMFdNAMERDIMSPADSAVFTdENTEENTSENRA^dCRSPINDXRANDEOBREOBShdCHGOAPPOAPPBAPPVAPPSjdDELODELBRECORETORETBSELRldDELVMOVEMSORPSORSAVRSORTndZERCZERRZERS|dPRTSPRTOPRTVPRTRPRTFdFPRSFPROFPRVFPRRFPRFdFREQHISTNORMPLTSSCATdCTABMTABMPLSRVSFdCATERANKDIFFLAGG"dABSOADDCMULCEXPOLOGELOG1POWESTANdADDVDIVIDOTPMULVSUBVdCORRCOVAPARCMEANdDURBRUNSSERC"dREGRFORWSTEPBACKALLSSUBSSWEESAMPdCOEFSUMMBCORBCOVSEPRANOVdAUTOBOXJCROSPACFSPECSTARdCOMPDUMPENLIPLTCTRANWLSR#<W@7@P##>W`#F#@j* MORE COMMANDS ? #B#P#F j * MORE ? #P0#Zj#nW##x jPLEASE RESPOND:#j#NO, FOLLOWED BY A CARRIAGE RETURN, #j$IF YOU DON'T WANT ANY MORE COMMANDS,# j7WITH A CARRIAGE RETURN ONLY, IF YOU WANT MORE COMMANDS.##F#V00##V0@@0Y##V0@@0N'#V0@@0?#x# jINVALID RESPONSE.##x#^' j'CRTS' NOT EXECUTED.' r$IDAK'`IDA98 ˖ LP KgҔRaN JД<H(J- J^2 j13JUN74 VERSION4j~j13JUN74 NEW COMMANDS:j3 'MISS'--TO DECLARE MISSING VALUES IN DATA j8 'BOXJ'--BOX-JENKINS ESTIMATION OF ARIMA MODELSjj10JUN74!j9ENRA REVISED COMPLETELY. ENTER SELECTED OBSERVATIONS ANDj0 SELECTED VARIABLES FROM RANDOM ACCESS FILEjjNEW COMMANDS AVAILABLE:#j=EOBR USING LIST OF OBS. #'S IN IDA DATA COL., ENTER SELECTEDj) VARIABLES FROM A RANDOM ACCESS FILEj%jACRFI CREATE A RANDOM ACCESS FILE BY INPUTTING DATA FROM TERMINALj"j SELECTED BLOCKS OF ROWS FOR 2 OTHER VARIABLES.j$ TWO NEW COMMANDS AVAILABLE:$j? 'MPLS' PLOTS 1,2,OR 3 SPECIFIED COL(S). OF DATA MATRIX#j> 'PACF' COMPUTES AND PLTS THE PARTIAL AUTO CORRELATIONj0 FUNCTION FOR A SPECIFIED COLUMN.j0 THE FOLLOWING BUGS HAVE BEEN CORRECTED:$j? SUBCOMMAND 'RAN2' IN 'PSAM' GAVE DUPLICATE NUMBERS%jA SUBCOMMANDS 'ARMA' AND 'ARG1' IN 'RAND' DID NOT WORKj+ IF DATA MATRIX WAS NOT ERASED.$j@ UPDATING REQUESTED NAMES FOR 'APPO' AND 'APPB' WHEN!j: NO NAMES HAD BEEN GIVEN FOR THE ORIGINAL DATA#j=29APR74 'PLTS' CAN NOW PRINT HISTOGRAM ONLY OR PLOT SEQUENCE#j> PLUS HISTOGRAM. TO GET HISTOGRAM ONLY, ANSWER"j< 'NO' TO 'PLOT ALL ROWS?', 0 FOR 'FIRST ROW?'#j> IF YOU WANT ALL ROWS. OTHERWISE GIVE FIRST ANDj LAST ROW.j NEW COMMAND AVAILABLE:"j; 'MPLS' TO PLOT UP TO 3 TIME SERIES IN 3 COLUMNS OFj OF IDA DATA MATRIX. j823APR74 'PRTS' BUG CORRECTED. NOW PRINTS SCRATCH PAD ATj 3RD PROMPT LEVEL.j- ANNOTATED VERSION OF 'COMM' NOW UP#j=22APR74 'ENTS' NO LONGER BOMBS OUT IF VAR. 10 IS A CONSTANT.j22APR74 NEW COMMAND:#j= 'STAR', OR 'START WITH ZEROS', FOR DEFINING AN N X K#j= DATA MATRIX OF ZEROS TO USE IN TIME-SERIES ANALYSIS.#j>18APR74 CORRECTED BUG IN 'ENTS' CAUSED BY USE OF SCRATCH PAD.j) 2APR74 COMPLETELY REVISED OLD COMMANDS: j7 'PRTS' AND 'FPRS' WILL NOW PRINT VALUES IN THEj' SCRATCH PAD OR THE DATA MATRIXj6 'PRTR','FPRR','PRTF','FPRF','PRTV',AND 'FPRV'#j= WILL NOW ALSO PRINT MEANS AND STD.DEV. FOR EACH COL.8j) 1APR74 COMPLETELY REVISED OLD COMMANDS::#j> 'RDIM' CAN NOW BE USED TO SET ASIDE P(63) COLUMNS INB#j> A SCRATCH PAD. THERE WILL BE NO COMPUTATIONSL#j= ON THESE COLUMNS AND THEY WILL NOT BE ERASEDV#j> WHEN COMMANDS LIKE 'ENTE' ARE USED. BUT, THEY`#j= MAY BE MOVED TO THE DATA MATRIX WITH 'MOVE',b"j; ZEROED WITH 'ZERS', 'ZERC', OR 'ZERR', ANDd#j> FILLED WITH NEW VALUES WITH 'APPS' OR 'MOVE'.j%jA 'APPS' CAN NOW BE USED TO PUT VALUES IN THE SCRATCH PADl#j> IN ADDITION TO ADDING OR CHANGING A SUBMATRIXnj$ IN THE DATA MATRIX.t#j> 'ENTE' WILL NOW ENTER NAMES OF COLUMNS AUTOMATICALLYv%jA IF THEY ARE IN DATA FILE AFTER DATA AND 'NAMES:'j 1APR74 NEW COMMANDS:$j? 'APPB' TO APPEND A BLOCK OF ROWS TO DATA MATRIX j7 'CATE' TO CREATE A CATEGORICAL VARIABLE#j> 'SELR' TO DELETE ROWS SELECTIVELY ON THE BASIS!j: OF THE VALUES OF A SPECIFIED COLUMN"j;  'MOVE' TO MOVE VALUES FROM A DATA COL. TO Aj6 SCRATCH PAD COL., OR VICE VERSA#j> 'DELV' TO DELETE A COLUMN FROM THE DATA MATRIX#j> 'ZERS' TO ZERO ALL ELEMENTS IN THE SCRATCH PAD j8 'ZERC' TO ZERO A COL. IN THE SCRATCH PAD j7 'ZERR' TO ZERO A ROW IN THE SCRATCH PADj 4MAR74 NEW COMMANDS:j- 'CRTS' --TO DECLARE USE OF CRTSj3 'COMM' --LISTS IDA COMMANDS BY GROUPSj) COMPLETELY REVISED OLD COMMANDS:"j; 'SAVF' --PRINTS NAMES AND DESCRIPTIVE TEXT AT %jA END OF FILE IF OUTPUT FILE IS LARGE ENOUGH !j: 'FILE' --NOW LISTS CONTENTS OF ANY TYPE FILEjdj21FEB74 NEW COMMANDS:e#j> 'SPEC' --ESTIMATES THE SPECTRAL DENSITY FUNCTIONfj1 OF A DISCRETE TIME SERIES.g"j; 'DIVI' --DIVIDE VALUES IN COL.J1 BY VALUES INh j7 COL.J2 AND PUT RESULT IN COL. J3ijn j814FEB74 NEW SUBCOMMAND--'ARMA'--IN 'RAND'. IT GENERATESpj3 DATA FOR A COL. IN THE DATA MATRIX FROM ANr!j9 AUTOREGRESSIVE-INTEGRATED-MOVING AVERAGE PROCESSsj OR 'ARIMA' PROCESS.tjv!j: 'SAVR' NOW OFFERS OPTION TO SAVE FITTED VALUES INwj. A SPECIFIED COL. OF THE DATA MATRIX xj611FEB74 CORRECTED BUG IN CRSP WHEN CRSP DATA ADDED TOzj' PREVIOUSLY DEFINED DATA MATRIX|j#j= 8FEB74 'CRSP' CAN NOW BE USED TO LOAD DATA FROM THE UPDATEDj3 $CRSPR, AND $CRSPS AND $CRSPP FILESj"j<17JAN74 CORRECTION MADE TO AVOID 'OUT OF STORAGE' CONDITION"j< CREATED IN APPV PROGRAM WHEN P(78) ADDED TO COMMON.jj515JAN74 EVERY PROGRAM IN IDA WAS CHANGED LAST NIGHT."j; THE DIMENSIONS OF THE CORRELATION MATRICES M AND U j8 WERE CHANGED TO M(19,19) AND U(19,19) AND A NEWj, VEC`TOR P(78) WAS ADDED TO 'COMMON.'j j6JAN74 $j(FOR EARLIER NEWS, GET- AND RUN- $IDAARC.%j3 IF YOU SHOULD RUN INTO BUGS IN THE SYSTEM OR HAVE%&j5SUGGESTIONS TO MAKE, CONTACT HARRY ROBERTS (3-3609 OR%0j798-8803). IN THE CASE OF BUGS,%:j6PLEASE SAVE YOUR COMPLETE COMPUTER OUTPUT FOR THE RUN.' r$IDAK'``IDA99 ˖  KgҔRaN JД<H(J- J^2 R: VERSION 7/3/72@jCOMMAND NOT YET IMPLEMENTED' r$IDAK'`IDAARC &3 j13JUN74 VERSION OF $IDAARCj2R: LINES 6570-6583 OF IDA98, 'NEWS' ADDED TO IDAARC"j<6JAN74 'AUTO' NOW PLOTS THE SAMPLE AUTOCORRELATION FUNCTIONj5WHILE IT PRINTS OUT THE AUTOCORRELATION COEFFICIENTS.jj4JAN74 NEW COMMANDS AVAILABLE:j& CTAB (2-WAY CROSS-TABULATION)j$ MTAB (2-WAY TABLE OF MEANS)j!j: 4DEC73 BUG IN >SUBS CORRECTED. L.790 NOW REFERS TO IMAGE j IN L.800.j"j; 3DEC73 BUG IN >SUMM CORRECTED. ADJUSTED MULTIPLE R SQUAREj NOW ALWAYS POSITIVE.j,!j926NOV73 >REGR NO LONGER PERMITS DECLARATION OF DUPLICATE6j4 VARIABLES OR OF FITTED OR RESIDU COL(S). AS@j, DEPENDENT OR INDEPENDENT VARIABLES.Tjj321NOV73 BUG IN >ENTS CORRECTED. NOW WORKS IF VAR.#j IS GREATER THAN 10.jj12NOV73jALL PRT- AND FPR- COMMANDS:%jB1. AT PROMPT LEVEL 1 NOW HAVE OPTION TO GET DETAILED EXPLANATION."j;2. HAVE TITLES FOR EACH COL. TO IDENTIFY VARIABLE PRINTED.#j=3. PRINT 1,2,3,OR 4 TABLES IF AT LEAST 5,10,15,OR 20 COLUMNSj ARE DESIGNATED. j" j'PRTF' AND 'FPRF':&!j9WILL NOW PRINT IF IDA IS 'RDIM'-ED TO OTHER THAN 19 COLS.(jNOW HAVE 3 OPTIONS:*j 1. 'FITTED' ONLY,j 2. 'FITTED' AND 'RESIDUALS'. j8 3. DESIGNATED DATA COL. PLUS 'FITTED' AND 'RESIDUALS'0j2j8NOV73:j'CRSP':<j6PROMPT LEVEL 1 HAS OPTION TO GET DETAILED EXPLANATION.>!j:CHECK OPTION NOW LISTS MISSING DATES FOR DESIGNATED HEADER@j NUMBERS OF CRSP STOCKS.DjF!j:'HIST': NEW PRINT FORMAT USED SO DIGITS ON NEGATIVE END OFHj5 HORIZONTAL SCALES OF HISTOGRAM AND CDF ARE NOJj. LONGER CHOPPED OFF FOR CERTAIN VALUES.Ljj/ 2NOV73 BUG IN SORT,RANK, AND PSORT CORRECTED."j; USE AFTER REGRESSION SPECIFIED NO LONGER WIPES OUT j8 V MAT LIST OF REGRESSION VARIABLE COL. NUMBERS.j#j>31OCT73 BUG IN 'POWER' EXECUTION CORRECTED. WILL NOW COMPUTEj POWERS OF ZERO VALUES.j5 30OCT73 BUG IN 'MSOR' CORRECTED. SEE 2NOV73 'NEWS'.j#j>NEW COMMAND 'INFO' PUT ON FOR SAME TASK AS 'HELP' TO ALLEVIATE#j> PROBLEM OF NOVICES GETTING LOGGED ON TO OTHER PORT IF j2 THEY TYPE 'HELP' WHEN UNDER H-P CONTROL.  j25OCT73 WARNING!!j2 IF YOU USE THE SYSTEM COMMAND 'KIL' AFTER"$j@ RUNNING AND INTERRUPTION OF A CHAINED PROGRAM LIKE IDA,$#j> YOU WILL LOSE YOUR COMMON DATA AND WILL HAVE TO START& j OVER. *$j@ TO SAVE COMPUTING TIME, THE CORRELATION MATRIX WILL NOT,!j: BE COMPUTED OR UPDATED UNTIL IT IS REQUIRED FOR A.j CHOSEN COMMAND. 0#j= DURING THE PAST MONTH MANY CHANGES HAVE BEEN MADE IN2 j IDA: 4#j= 1. OUTLIERS OR RESIDUALS ARE NOW IDENTIFIED BY THEIR6"j< ROW (RATHER THAN POSITION AS ACTIVE OBSERVATION)8j! IN THE DATA MATRIX. >#j= 2. ADDITIONAL TESTS HAVE BEEN ADDED SO THAT THE USER@#j= WILL BE GIVEN AN IDA DIAGNOSTIC RATHER THAN BEINGB"j< KICKED OUT OF IDA CONTROL IF HE GIVES AN INVALIDDj RESPONSE. H"j; 3. MORE HELPFUL IDA DIAGNOSTICS HAVE BEEN ADDED. j21SEP73 NEW COMMAND AVAILABLE:!j9'GAUS' COMPUTES NORMAL PROBABILITIES FOR USER SPECIFIED%jA MEAN, STD.DEV. AND LOWER AND UPPER LIMITS OF VARIABLE.  j811SEP73 NEW VERSIONS OF 'SCAT,' 'NORM,' 'HIST,' 'FREQ,'!j9 'AUTO,' 'RUNS,' 'SERC,' 'DURB' AND 'RVSF' HANDLE$j? MORE OBSERVATIONS. RESIDUALS AND FITTED VALUES NOW UP-"j< DATED AUTOMATICALLY IF DECLARED AS VARIABLES IN THEj FIRST 8 COMMANDS. Lj30AUG73 NEW COMMAND AVAILABLE:V"j<'PSAM' ENABLES USER TO SELECT A PROBABILITY SAMPLE--SIMPLE`j, RANDOM, STRATIFIED OR SYSTEMATIC. $j?24AUG73 HIDDEN CONTROL CHARACTER WHICH TURNED OFF GE-TERMINETSj REMOVED FROM 'PLTS.'#j> 22AUG73 'PLTS' NOW SHOWS WHICH, IF ANY, ROWS ARE DELETED AND"j; GIVES MEAN AND STD.DEV. OF OBSERVATIONS PLOTTED AS(j- WELL AS OF ALL ACTIVE OBSERVATIONS. xj16AUG73 NEW COMMAND AVAILABLE:"j;'CRSP' ALLOWS USER TO ENTER CRSPR FILE DATA FOR 1 OR MORE!j: SECURITIES FOR SUB-PERIOD SPECIFED BY USER. ALSO!j: ALLOWS USER TO ADD OR REPLACE A COLUMN WITH CRSPRj* DATA FOR THE SUB-PERIOD CHOSEN. "j<8/5/73. INCORRECT UPDATING BY THE SYSTEM (DESCRIBED IN NEWSj, ITEM OF 4/11/73) HAS BEEN REMEDIED.,!j: 12JUN73 'NORM' NOW INCLUDES SMALL FREQUENCY DISTRIBUTION.."j< 'PLTS' MAY BE USED TO PLOT ALL OR SOME OBSERVATIONS0j3 SPECIFIED BY USER FOR SPECIFIED VARIABLE. 6"j<1JUN73 NEW VERSION OF 'NORM' REPLACED BY OLD BECAUSE OF BUG;j' IN REGR, NORM, SWEE SEQUENCE. @j25MAY73 NEW COMMAND AVAILABLE:J!j9'MSOR' SORTS OBSERVATIONS OF ENTIRE DATA MATRIX SO THATT"j; VARIABLE DESIGNATED BY USER IS IN ASCENDING ORDER.^j0 ALL VARIABLES REMAIN IN SAME COLUMNS. hj3BUG IN 'SORT', 'RANK', AND 'PSOR' CORRECTED TO SORTr!j9OBSERVATIONS OF A VARIABLE WITH ONLY VALUES OF 0 AND 1. j22MAY73 NEW COMMAND AVAILABLE:j'ENRA'j3ALLOWS USER TO ENTER SELECTED DATA FROM A 'SPECIAL'!j9STRUCTURE RANDOM ACCESS FILE WHICH INCLUDES NAMES FOR THEj6VARIABLES. FOR USE IN STUDIES INVOLVING LESS THAN 1001j6OBSERVATIONS AND LESS THAN 129 VARIABLES. ISSUE 'EXPL'jFOR FURTHER EXPLANATIONS. !j94/27/73. TO USE THE COMMANDS 'SORT', 'PSOR', AND 'RANK',  j8THE RECEIVING COLUMNS MUST BE DIFFERENT FROM THE COLUMNS  j7BEING OPERATED ON. PREVIOUS VERSIONS OF THESE COMMANDS &"j;DID NOT SAFEGUARD AGAINST THEIR IMPROPER USE. NOW THEY DO. 0/@ vj!22APR73 NEW COMMAND AVAILABLE: j/ ENTS (ENTER SELECTED DATA FROM SERIAL FILE.) j. USED TO ENTER INTO THE IDA DATA MATRIX j/ N OBSERVATIONS ON K3 VARIABLES SELECTED j2 FROM THE K VARIABLES IN A SERIAL FILE CON- j3 TAINING AT LEAST N X K ELEMENTS. (IF 'ENTE' j1 IS USED WITH A SERIAL FILE ALL N X K ELE- j0 MENTS ARE ENTERED INTO THE DATA MATRIX.) /@ !j:4/11/73. WARNING!! THE FOLLOWING SEQUENCES OF OPERATIONS j1WILL RESULT IN INCORRECT UPDATING BY THE SYSTEM : j j0A. 'DIFF' OR 'LAGG' FOLLOWING 'DELO' OR 'DELB' j3B. TRYING TO DELETE OBSERVATIONS THAT ARE ALREADY!j. INACTIVE, OR TRYING TO DELETE OR RETRIEVE! j0 OBS. THAT ARE NONEXISTENT (DUE TO PRIOR USE!j OF 'LAGG' OR 'DIFF')! j!* jTEMPORARY REMEDY:!4j2A. METHOD 1. 'DELO' ON FIRST ACTIVE OBSERVATION!>j& AFTER 'DIFF' OR 'LAGG'!Hj1 METHOD 2. AFTER 'DELO' OR 'DELB' AND BEFORE!Rj0 EXECUTING 'DIFF' OR 'LAGG', SAVE!\j1 ACTIVE DATA IN TEMPORARY FILE AND!fj( RE-ENTER THE TEMP. FILE.!p jB. DON'T DO IT.!z/@!j02/20/73. THREE NEW COMMANDS ARE NOW AVAILABLE :!j!j6 SORT SORTS THE VALUES IN ANY VARIABLE (COLUMN) INTO! j7 ASCENDING ORDER AND PLACES THE RESULTANT VECTOR!j2 INTO A COLUMN TO BE SPECIFIED BY THE USER.!j!j5 RANK ASSIGNS RANKS TO THE OBSERVATIONS IN A COLUMN!j5 (SPECIFIED BY THE USER) AND PLACES THE VECTOR! j7 OF RANKS INTO ANOTHER COLUMN (TO BE SPECIFIED).!j! j7 PSOR PAIRED SORT. SORTS ONE VARIABLE INTO ASCENDING" j8 ORDER AND CARRIES ANOTHER VARIABLE WITH IT. THE"j5 SORTED VARIABLES CAN BE PLACED IN ANY COLUMNS"j6 TO BE SPECIFIED BY THE USER. FOR EXAMPLE, LET"$j( THE VALUES OF COLUMNS 1 AND 2 BE".j) C1: 3.2 2.5 2.2 5.1 2.3"8j) C2: 1.0 1.3 4.2 4.4 3.0"B j7 SUPPOSE WE PSORT C1 WITH C2 AS THE ACCOMPANYING"Lj5 VARIABLE AND PLACE THE RESULTANT VARIABLES IN"V j8 COLUMNS C3 AND C4 RESPECTIVELY, THEN WE'LL HAVE:"`j) C3: 2.2 2.3 2.5 3.2 5.1"jj) C4: 4.2 3.0 1.3 1.0 4.4"tj5 ONE POSSIBLE USAGE: PSORT FITTED VALUES FROM"~j5 REGRESSION AND CARRY RESIDUALS. THEN ANALYSE"j* THE VECTOR OF RESIDUALS SO SORTED."j"!j:2/20/73. COMMAND 'AUTO' NOW COMPUTES BOX-PIERCE STATISTIC" j7AND THE NORMAL APPROX. TO ITS CHI-SQUARE APPROXIMATION."/@"j51/2/73. THE SYSTEM PROGRAM '$CALC' HAS BEEN MODIFIED"j5SO THAT IT IS AVAILABLE UNDER THE IDA COMMAND 'CALC'."!j9IT IS A CALCULATOR CAPABLE OF DOING ARITHMETIC OPERATIONS" j7WITH A VARIABLE LENGTH ACCUMULATOR OF UP TO 150 DIGITS."/@#(j31/1/73. COMMAND 'RAND' NOW AVAILABLE. ALLOWS USER#2j6TO SAMPLE FROM CAUCHY, CHI-SQUARE, GAMMA-1, LOGNORMAL,#<j"NORMAL, AND UNIFORM DISTRIBUTIONS.#F/@#j312/10/72. 'CHAIN' ERROR IN IDA47 (ENCOUNTERED WHEN#j6EXECUTING 'APPO','APPS', OR 'APPV' HAS BEEN CORRECTED.#/@#j412/8/72. 10:30A.M. CLERICAL ERRORS IN THE CONVERSION#j3OF OLD 'IDA' TO THE PRESENT VERSION CAUSED IMPROPER#j5EXECUTION OF CERTAIN TRANSFORMATIONS. NOW CORRECTED.#/@$Tj112/7/72. A NEW COMMAND 'NEWC' ALLOWS THE USER TO$Yj0DEFINE UP TO FIVE COMMAND NAMES FOR HIS OWN USE,$^ j7I.E., CHAINING $IDA TO PROGRAMS IN HIS PRIVATE LIBRARY.$cj'TO DEFINE A NEW COMMAND NAME, YOU MUST:$hj21. HAVE A 4-LETTER COMMAND NAME THAT IS DIFFERENT$mj' FROM THOSE USED IN THE SYSTEM $IDA.$rj52. HAVE A PROGRAM IN YOUR LIBRARY BY THAT NAME. THE$wj4 PROGRAM MUST HAVE THE SAME 'COMMON' VARIABLES AS$| j THAT OF $IDA.$j1 (GET AND LIST $IDACOM TO SEE REQUIRED FORMAT)$j1 (GET AND RUN $IDAVAR TO GET AN EXPLANATION OF$j$ THE VARIABLES USED IN 'COMMON')$/@$j.12/7/72. IDA NOW CAN BE RE-DIMENSIONED BY THE$j-USER TO HANDLE MORE THAN 100 ROWS IN THE DATA$j,MATRIX SUBJECT TO THE FOLLOWING CONSTRAINTS:$j$jNO. VARIABLES MAX. NO.$j (COLUMNS) (ROWS)$j$j 19 100$j 15 122$j 10 171$j 8 203$j 5 280$j 4 300$j$j1AND ANY OTHER COMBINATION OF R(ROWS) AND C(COLS.)$j.SUCH THAT R<=300, C<=19, AND (R+3)(C+3)<=2266.$j/THE COMMAND NAME TO RE-DIMEMSION IS 'RDIM'. IF$j.THE COMMAND IS NOT EXERCISED, THE MAXIMUM SIZE$j2DATA MATRIX THAT CAN BE ACCOMMODATED IS 100 BY 19.$/@$j010/17/72. THERE IS A TYPO ERROR IN THE WRITEUP.$ j7THERE IS NO COMMAND NAMED 'RVSP', BUT ONE NAMED 'RVSF'.$j2COMMAND 'SEPR' HAS BEEN UPDATED TO GIVE S.E.(Y) AS$j6WELL AS S.E. PREDICTED (Y). S.E.(Y) GIVEN IN PREVIOUS$j6VERSION WAS INCORRECT. IT GAVE THE SQUARE OF S.E.(Y).$/@%j310/6/72. IDA WELCOMES YOU. IF YOU SHOULD RUN INTO%&j4BUGS IN THE SYSTEM OR HAVE SUGGESTIONS TO MAKE, CON-%0j4TACT BOB LING (3-3668) OR HARRY ROBERTS (3-3609). IN%:j3THE CASE OF BUGS, PLEASE SAVE YOUR COMPUTER OUTPUT.%Dj3NEWS ABOUT 'IDA' WILL BE PRINTED IN REVERSE CHRONO-%Nj1LOGICAL ORDER. YOU MAY TERMINATE THE PRINTING OF%Xj5OLD NEWS BY STRIKING THE 'BREAK' KEY, THEN 'RUN-9998'%bj(TO GET BACK TO THE COMMAND LEVEL OF IDA.'`~IDACOM˖ LM KgҔRaN JД<H(J- J^2 R: VERSION 15JAN74<R:FR: ************************************PR:ZR: CODE YOUR PROGRAM BETWEENdR: LINE 50 AND LINE 9998nR:xR: ***********************************R:' r$IDAK'`~IDAVAR  a2j10JUNE74<j"IDA COMMON VARIABLES AS OF 15JAN74>jF jX DATA MATRIXPj6 MEANS IN ROW N9+1. X(N9+1,J) IS MEAN OF COL.J.Z$j@ STD.DEV(S). IN ROW N9+2. X(N9+2,J) IS STD.DEV. OF COL.J.d j8 X(N9+3,I) IS THE NUMBER OF UNDEFINED OBSERVATIONSnj4 AT THE BEGINNING OF COLUMN I (CAUSED BY xj2 LAGGING OR DIFFERENCING OF VARIABLES). j8 COLUMN K9 : FITTED VALUES FROM CURRENT REGRESSIONj6 COLUMN K9+1: RESIDUALS FROM CURRENT REGRESSION j7 COLUMN K9+2: X(I,K9+2)=1 IF ITH ROW IS 'ACTIVE'j3 =0 IF ITH ROW DELETEDj. X(N9+1,K9+2), X(N9+2,K9+2) NOT USED NOWj0N, K NUMBER OF ROWS AND COLUMNS IN DATA MATRIXj1N9,K9 MAXIMUM DIMENSION ALLOWED FOR DATA MATRIX.j5 NORMALLY, N9=100, K9-1=19.THESE CAN BE CHANGEDj BY THE COMMAND 'RDIM'.j(Q4 INDEX OF FIRST ACTIVE OBSERVATIONj0 Q4 = MAX( X(N9+3,J) +1 ) OVER J=1,2,...,Kj4U CORRELATION MATRIX OF VARIABLES IN REGRESSIONj3N8,K8 NUMBER OF ROWS AND COLUMNS FOR THE MATRIX OFj/ INDEPENDENT VARIABLES USED IN REGRESSION!j9M CORRELATION MATRIX OF ALL VARIABLES FOR ALL ACTIVEj OBSERVATIONSj)P INDICATOR VECTOR OF OPTIONS CHOSEN"!j9 P(41) TO P(60),INCLUSIVE MAY BE USED FOR TEMPORARY,j1 MEMORY FOR CHAINING BY 'NEWC' PROGRAMMERS.-j4 P(1) TO P(40) AND P(61) TO P(78) RESERVED FOR.j2 POSSIBLE IDA PARAMETERS. CURRENTLY:/j2 P(61)=P(62)=0 IF NO MISSING VALUES DECLARED0!j: P(61)=1 IF MISSING VALUE DECLARED IN 'MISS','ENRA',1j OR 'EOBR'2!j9 P(62)= NUMBER ASSIGNED TO REPRESENT MISSING VALUES3"j; P(63)=THE NUMBER OF COLUMNS CONSIGNED TO THE SCRATCH4 j7 PAD WITH THE COMMAND 'RDIM'. 0 OTHERWISE.5 j8 P(64)=1,2,...,10 TO INDICATE WHICH KIND OF CRT IS6 j7 BEING USED. IT IS >ASSIGNED IN THE COMMAND@j" 'CRTS'. 0 OTHERWISE.J"j; P(65)=S, THE VALUE OF THE STARTING CRSP- INDEX MONTHT!j: IF CRSP- DATA HAS BEEN ENTERED. 0 OTHERWISE.j Q INDICATOR VECTOR OF TASKSj3 Q(1)=1 IF DATA HAS BEEN ENTERED. 0 OTHERWISE j7 Q(2)=1 IF REGRESSION EQUATION HAS BEEN SPECIFIED!j9 Q(3)=1 IF CORR. MATRIX NEEDS UPDATING. 0 OTHERWISE j7 Q(4)=1 IF REGRESSION NEEDS UPDATING. 0 OTHERWISEj4 Q(5)=0 TO UPDATE BOTH CORR AND REGR IN $IDA38j) =1 TO UPDATE CORR. MATRIX ONLYj5 Q(6)= ID OF PROGRAM MODULE. USED IN $IDA38 TOj4 DETERMINE THE PROGRAM TO CHAIN BACK TO.#j> E.G., IF PRESENT PROGRAM IS $IDA32, THEN Q(6)=32.j2 Q(7)= LINE NUMBER TO CHAIN BACK FROM $IDA38j4 Q(8) TO Q(19) : TEMPORARY MEMORY FOR CHAINING j7 Q(20)= NO. OF INDEP. VARS. IN CURRENT REGRESSIONjV VARIABLES IN REGRESSIONj2 V(K8+1) = COL. NUMBER OF DEPENDENT VARIABLE&j6 V(1), ..., V(K8) = COL. NUMBERS OF INDEP. VARS.'j V(20) NOT USED NOW.0j3M$ NAMES OF 1ST 10 VARIABLES, 6 SPACES PER NAME:j#N$ NAMES OF REMAINING VARIABLES;#j= N$(67,72) BEING CONSIDERED TO CARRY DATA FILE NAME FOR<j1 NEW COMMAND WHICH REQUIRES SCRATCH FILE.D j8Q3 =1 IF USER GAVE NAMES TO VARIABLES. 0 OTHERWISENj,Q1 CODE NUMBER FOR COMMAND IN SUBPROGRAMXj%Q2 SERIAL NUMBER FOR COMMAND WORDbjQ5 NOT USED NOWljQ7 INITIALIZATION PARAMETERvj-Q9 =1,2, OR 3. CODE FOR LEVEL OF PROMPT.jI3,I4 TEMPORARY PARAMETERSj3U9 NUMBER OF USER-DEFINED COMMAND NAMES. U9<=5!j9X$ NAMES OF USER-DEFINED COMMANDS, 4 SPACES PER NAME.'`>IDAXTS & R: FOR FINDING IDA SUBPROGRAMS IMPLEMENTING EACH IDA COMMAND R:BY JUNE ROBERTSR: Q1 IS THE CODE NUMBER OF COMMAND IN IDA SUBPROGRAM R: $IDAVAR EXPLAINS THE COMMON VARIABLES2j214 JUN 74 VERSION OF $IDA-TS--TROUBLE SHOOTING IDA4jd N0Pef$j?AFTER ' > ' TYPE THE IDA COMMAND NAME YOU ARE TROUBLE-SHOOTING.hj+WHEN YOU ARE DONE, TYPE 'DONE' AFTER ' > '.jwoW@4pj> P$0W$jWANT LIST OF IDA COMMANDS f0V0@@0Np@jV0@@0?V0@@0DONE'l X@uiP V0@@1PZ/@COMMAND INVALIDwjH' #,"Q1 = ",2D,". EXECUTION BEGINS IN "Tr!@Tr!@P  U***@4XXXT@&6<<.42T@ 2..**8 (T` *06,,,,T@ ,&P&~**TP *0**&$&BT`  &*,,,,,Tp T.4..&8T@Dx*&<&*6TH@4>  VZ\TP^`bdf&jlTXnP&&*vZZ T`XVVVttttTh( z   |hTpf0  j-PROGRAM TO EXECUTE COMMAND NOT DEVELOPED YET."o$jIDA98%o&jIDA39'o(jIDA23)o*jIDA24+o,jIDA25-o.jIDA26/o0jIDA271o2jIDA283o4jIDA295o6jIDA307o8jIDA319o<jIDA33=o>jIDA34?o@jIDA35AoBjIDA36CoDjIDA37EoPjIDAE39QoTjIDA45UoVjIDA46WoXjIDA47YoZjIDA95[o\jIDA48]o^jIDA50_o`jIDA51aobjIDA52codjIDA07eofjIDA08gohjIDA09iojjIDA12koljIDA13monjIDA14ootjIDA17uovjIDA18woxjIDA19yozjIDA20{o|jIDA21}o~jIDA49ojIDA22ojIDA54oR:QUITR;EXPLAINR;LISTjIDAojWANT LIST OF ALL IDA COMMANDS f0V0@@0Nfw@ljj% Q2 NAME Q1 EXECUTION BEGINS IN:j%*** **** ** ******************** X@u iPw j*P%* H #,3D2X,4A4X,2D2X4Z'@/@COMMAND NAMES :/@ElJ X@u^h0h jF#,4A2X0rVPP|wj|Zjo#)dABSO@ADDC@#+dADDV`ALLS@#-dANOV`APPO@#/dAPPS@APPV`#1dAUTOpBACK`#3dBCORPBCOV`#5dCHGO@CHGP`#7dCOEF@CORR@#9dCOVA@DELB`#;dDELOPDIFF@#=dDOTPPDURB@ #?dENLI@ENTE@#AdEXPL@EXPO`#CdFILEPFORW@#EdFPRF`FPRO@#GdFPRRpFPRSH#IdFPRVPFREQ`#KdINFO@HISTP#MdINDX@LAGGp#OdLIST@LOGE@#QdLOG1HMEAN@#SdMULCPMULVX#UdNAME@NEWS@#WdNORM`PARC@#YdPLTC@PLTS@#[dPOWE`PRTF@#]dPRTO`PRTR@#_dPRTS@PRTVP#adQUIT@RAND@#cdRECO@REGR@#edRETB`RETO@#gdRUNSHRVSFL #idSAMP@SAVF@#kdSAVRxSCAT@#mdSEPR@SERC@#odSTANhSTEP@#qdSUBS@SUMM@#sdSWEE@TRAN@#udWLSR@RDIM@#wdNEWC@CALC@#ydSORT@JPSOR@#{dRANK@ENTS@#}dENRA@MSORX#dCRSP@PSAM@#dGAUS@HELP@#dCTABxMTAB@ #dDIVIpSPEC@#dCRTS@COMM`#dAPPB@ZERS@#dZERC`ZERR@#dCATE@SELR@#dMOVE`DELV@#dSTAR@SPADP#dMPLS@COMP@#dDUMP@SUBV@#dPACF@CRFI@#dCROS@EOBR@#dMISS`EOBS@# dBOXJ@'o'`JIQ  Ld@k/~%Y-bNW~zĜ{ l@aU*pv`umd{#^d rl}r nSgg<bUl_h pu?g a*DysT jk o&M|Hhsb crAFyQrAnl1s,wxhYb`eRFmLebӜW&i'lGmVwmrs3BR4jdabCnkXq.[^fcDPH'z^M[;rT߃pomQhgUQ ILl^ K JR&a~>5gTprnO@+b qcxp_@  05: NODV 4 NX@ISACS OT @^GAC{BJBDEGABBBCGBHBMBLE^ACSEf~DSJTGXGFEODJE$@ Z   V (  v1  & X.@|@ 0 V .( :VZ 4 .( DZ. N v#`1 X'v#p@"@ $#p @ $#p@ 1 b+v#@@&@ $/ 1@$0$@&@ @ lv#LMCH  'b@S =^HWVffNQSS\)V\[33Z\[]pY\)T=qP{OGIIGLffM\)CAHHRJF\J\H{HNffNMOP{JEAE\)LffG\)@RJQ =QL{IEGFH@ff|ll}ETK v{nffo =c mpmnff|Apx(sC\)LHHffJ{IK =H33@NVSGOLHF{Aps\)r{HB~\n=q_\)lzHC =D(MJzOOAREG32ǒ3nGAREG33ǒk vJAREG34ǒl ~1AREG35ǒ=AREG36ǑV LOGRAM L pSTRNG1,STRNG2,STRNG3"N 0H@HPH`HpHHNД (OHA((2Od H<'v0DA194A284B000C000D000D273D274D275E197E721H112H113H624H720I276I280I281F'v@DI347L271L272L273N011N012N199O006O013O196O274O275O277O621O622O623O624P'vPDR014P016R278S279S280T283T284T834U191U192U193K000M000N000P000R000F000Z'v`DG000H000I000E000Q000I123T000O000U000V000X000Z000W000S000J000L000Y000d'vpDA000I282Y001H625H626O625B001O014A001U194A999U333B111O015L274C013L275n'vDO6200000000000000000000000000000000000000000000000000000000000000000x v 0123456789v& X@@j@&j@&Z h@@ h@@fV0*w vph vxH WcT j@` V`@@" j@`, V`@@6@j0LOG FILE IS FULL OF DATA. NO MORE DATA ACCEPTED!JTj^!j9RE-INPUT THE LAST DATA ITEM!IT WAS RECEIVED INCORRECTLY!!h%jADURING THE FOLLOWING TIME DELAY, DEACTIVATE THE TAPE READER UNTILrj%THE DATA HAS BEEN INPUTED CORRECTLY!!| X@N Z X@@v4@ vP @$wV0@@w@WH wP(4!Zwc^ h@@& h@@0Vb:!j:IF THE INPUT ERRORS DETECTED WERE NOT RE-INPUTED CORRECTLYD j8THE USAGE COUNT WILL BE OFF BY 1 OR MORE USERS DEPENDINGNj.UPON HOW MANY INPUT ERRORS WERE NOT CORRECTED.Xj b X@P l vAvZ h@@ h@@ wDdv$dwX h@ V`@Lh@ V4K V>$4,$x \w@V>$x 4,$dp w@v$$d V$K4*4v$K>w@HwDR\fpzvDwDD "dWDwD v!D wA !Avd^V@@0NV@@0FjNEITHER LOGON OR LOGOFFvdd@v@h@$ V`@B.h@8^BLjINPUT THE DATE OF THE LOG TAPE.Vg`$j?TYPE A 0 FOR BOTH TABLES,A 1 FOR ACC. TABLE,A 2 FOR TIME TABLE.jftV~V@Xwb'jF ****************************************************************+p1H2X3h4x5+D 6L 7T 8\ 9d 10+l 11t 12| 13B 14F 15+J 16N 17R 18V 19Z 20+^ 21b 22f 23j 24n 25+r 26v 27z 28~ 29A30C31E32 v$N jjw@(wW2 X@@<@$ P-*F WAP@%APEnZ `dn xjV$t@w@v$$d@ P-* WA@%APE ` jw@wdZ X@p"v$$d,w@6k P-*@ WA|J@%APEhT `^h r|jw@wdj$ P-* WA@%APE ` jZjWc jTHIS IS MATRIX T  X@P &kA0Z:jDWbNWcX NX@P bwAlZvwcjjj X@dwZ h@@ h@@w@ww0h@h@ V`@ VV@p1` w@*v@4VEH>Hw@RW@ B\ ]zfv@pzw@^wP^w`^wp^w^V@@0N V@@0F jNEITHER LOGON OR LOGOFF  W@  w@  w    W . h`  V`` $  V.@p   w@ W+ $ h`@ ! $jMORE THAN ONE USER ON ID @p TIME .w@ 8 B jID @p! WAS NOT FOUND IN THE ID STRING! L Vb ` XԞ@~ jjX tZ ~j ^ X@@%A@ jX Z j ^ j j j B  ^ `NMCERM %j @` d @ X ` D H T H P Php@ @ pH L P PT \ P P T L xx@ @ x@ D `L x@ xxxxxhD ` H X @ T H ` X xP P T P T d T l d X X P H ` T ` H \ P t d l P \ H L L d @ x@ @ @ l h l p x p t x h @ d p d H @ P p B d B jX%| v?? %@Z%V-@jTHE NUMBER OMIH  'SH@nffAbh@@hEPmiMBpRN@C33bffWj@@YPb|@t$j1@@|^ffGUEV&j@@fffPPMPc33c33PxC@@LNffbgN&D@UtP_0lX[, i DHrhlc33c33Uq W lNffUPg@S33\wg@fffL wW(@@YtuaJ8$Bh @@ltF(Lx["L[33wB@@p\M] F0(@@c33Q^kS$A@@VffyG8WHWL[33g{@t`AJli@D $B $hHr@r@@@@T8lrsz*@dJffHT~@@MnffA~u0"yK33ee@@fffO33WHPl$T`@@iEUL[33J"Q"IZffisLnffADHd@@AJ vmpK |`WS33dP M `Vffp |& @@dJff_mu&c33h@.$E$@fffO33AH@M_33K@Ji@P<Yt@dJffZAlAWY(|\]td@@dPMI~@@hS iE R"C@fffiB$IÀ$@@G33c33HTI_"@@C33k33ZZh&~p^ffpDI@@S33nff{uDAaz8MyC33NX*Xdgl@@PFff|JHfȀ&TIZffHG@^ffL[O yLY Z @@c33ft(fffi^@$v~`$@@nffF JWb&@`@Rff@ff DX@@@|LUrY,d@XdQ_@PlEs@@@dZffpIpZc33hhYu@@anffgsPUILtIPY\y } @@X\X6`V.(J |Qh*o\RffQ@cT@PnffSpEC33pW|WtS33dYZiDJ8MFffVffuڀ A="fffiq;H(p(@XdLRXc33hhYu@@anffgsPUMIH1  MS`nffAhEiMC33bff@YP@|^fffffPc33c33@LNffUtlXDHc33c33lNffS33\fffL @Yt@ltL[33@p\@c33Q@VffyL[33t`i@hH@@@dJff@MnffyK33@fffO33@iL[33IZffnffA@AJ |`S33d`Vff@dJffc33hfffO33M_33i@dJfflA|\@dP@hS fffi@G33c33@C33k33^ffp@S33nffAayC33Xd@PFffIZff^ffLyL@c33fffi@nffF Rff@ff @|LXdPl@dZffc33h@anffILY\@X\|Q\RffPnffC33pS33diDFffVfffffiXd3hfffO33360LX URBFXICRSXGNX1XWWPIT2PVX39DBXQ41V7XZ694X474JXP3Q3X9A0VX95BAXCD6VX6E6XQR5QX4DJWX1VXOXAZ2RXVZ64X A669X;!YUJPX"J09YX#IAIS2#$F04VX%TP87X&DXOW4'ED94X(7WFYX)6A02X*5TH7X+194QXMIH3  (SP@nffA@hEiM@C33bff@YPev@|^ff}C@fffPc33c33@LNfff@UtlXDHc33c33lNff@S33\@fffL @YtcU @ltS L[33@p\s@c33Qr, @VffyNeL[33@t`i@hH@@@W@dJff@MnffryK33@fffO33O @@iL[33IZffnffA@AJ Q|`S33d`Vff@dJffOFc33h@fffO33@M_33i@@dJfflA|\@dPg@hS ffffi@G33c33T @C33k33J ^ffp@S33nffG! AayC33Xd@PFfflv IZff@^ffLyL@@c33fffi@nffF Uz@Rff@ff @|LC@Xd@Pl@dZffgrc33h@anffiILY\@X\AX |Q\Rff@PnffC33pS33diDFffVfffffi@XdFfflv IZff@^ffLyL@@c33fffi@nffF Uz@Rff@ff @|LC@Xd@Pl@dZffgrc33h@anffiILY\@X\AX |Q\Rff@PSRC ߘ ' J$@-dДRR(R POWER SERIES REGRESSION CURVE2R WITH X AXIS OFFSET<RFR WRITTEN BY CORT VAN RENSSELAERPR C404 13NOV73ZRdR HEWLETT-PACKARD 36793A, 6/74nRx jWANT EXPLANATIONfV@@0NJRR***************EXPLANATION SECTION*********************R/@ j8ONE OF THE MOST POPULAR FORECASTING METHODS INVOLVES THE!j9EXTENSION OF PAST TRENDS BY REGRESSION ANALYSIS. A MATHE-$ j8MATICAL CURVE WHICH CLOSELY MATCHES THE OBSERVED DATA IS. j7DETERMINED BY THE LEAST SQUARES METHOD. THE FORMULA FOR8j3THIS CURVE IS THEN USED TO CALCULATE FUTURE VALUES.BjLj6THE POWER FUNCTION IS A PARTICULARLY USEFUL REGRESSIONV j7ANALYSIS FORMULA FOR FORECASTING GROWTH TRENDS. IT REP-`j6RESENTS A LOGICAL GROWTH CURVE BECAUSE ITS GROWTH RATEj j8DECREASES AS ITS MAGNITUDE INCREASES. IT PRODUCES A SIM-t j7PLE MATHEMATICAL APPROXIMATION TO THE 'GOMPERTZ' OR 'S'~!j9CURVE, OFTEN USED BY STATISTICIANS TO PORTRAY GROWTH. THE j8POWER FUNCTION PLOTS AS A STRAIGHT LINE ON LOG-LOG COOR-j6DINATE GRAPH PAPER. A STRAIGHT LINE PROJECTION IS VERYj*DESIRABLE BECAUSE IT IS EASY TO VISUALIZE.j!j9THE DATA FOR MOST FORECASTING APPLICATIONS IS REPRESENTED!j9BY A TIME SERIES IN WHICH THE X AXIS VALUES ARE EXPRESSED j7IN YEARS, QUARTERS, MONTHS, WEEKS OR DAYS. THE OBSERVED j8DATA OFTEN BEGINS AT A LATER TIME THAN THE ACTUAL BEGIN-!j:NING OF THE SERIES. WHEN THIS IS THE CASE, THE CLOSEST FIT!j9BETWEEN OBSERVED DATA AND THE POWER SERIES CURVE CAN USU-!j:ALLY BE OBTAINED BY OFFSETTING THE X AXIS SO THAT THE INI- j8TIAL VALUE APPROXIMATES THE ACTUAL BEGINNING OF THE TIMEj6SERIES. PROGRAM 'PSRC' AUTOMATES THE PROCESS FOR DOING jTHIS.j j8THE PROGRAM CALCULATES THE INDEX OF DETERMINATION (MEAS-(!j:URE OF THE CLOSENESS OF THE FIT) FOR EACH INCREASING VALUE2!j:OF X OFFSET, THEN DETERMINES THE VALUES AND DIMENSIONS FOR< j7PLOTTING THE OBSERVED DATA AND THE FORECAST PROJECTION.FjP"j;A RESULT OF OFFSETTING THE X VALUES IS TO COMPRESS THE HOR-Z"j;IZONTAL AXIS OF THE PLOTTED DATA. IT IS NECESSARY TO EXPANDd"j HV .Q\R \V .Mpf pj"INCORRECT REPRESENTATION SELECTIONz R: SEQUENTIAL DATAjX VALUE OF FIRST DATA SET - '1'gdWdFPjMAXIMUM VALUE IS 9000  X@} v@d@ jF#,3X4D5X@f@ V@ DZ  R: YEARLY DATA j"X VALUE OF FIRST DATA SET - '1960' gd $Wd} 8 .Wd} L 8j,RANGE OF INITIAL YEAR VALUES IS 1000 TO 2000 B  L V X@} ` v@d@ jjF#,3X4D5X@ tf@ ~ V@ D Z R: QUARTERLY DATA j$X VALUE OF FIRST DATA SET - '1960 1' gd wfdP wgd#fP Wg@ WgP j5QUARTERS MUST BE REPRESENTED BY '1', '2', '3', OR '4'  Wf} Wf}  j,RANGE OF INITIAL YEAR VALUES IS 1000 TO 2000   v4@ ( jF #,X4DXD4Xd 2f4@ < v4@d F V4@ X P wfdP Zwgd#fP dWg@ nv44@ xwdd@ jF #,X4DXD4Xd f4@ v4@d  F wddp v44@  ( R: MONTHLY DATA j%X VALUE OF FIRST DATA SET - '1960 01' gd wfdd wgd#fd Wg@  Wgh " j,MONTHS MUST BE REPRESENTED BY '01' THRU '12'  "Wf} 6 ,Wf} J 6j,RANGE OF INITIAL YEAR VALUES IS 1000 TO 2000 @ J Tv4@ ^ jF #,4DXDD4Xd hf4@ r v4@d | V4@ X wfdd wgd#fd Wg` v44@ wdd@ jF #,4DXDD4Xd f4@ v4@d  | wddY v44@  ^ R: SUBROUTINE j j.INPUT '-1' FOR Y VALUE FOLLOWING LAST DATA SET j & j X VALUE Y VALUE 0j :^ Dv@ N Xv4@R R*************COEFFICIENT CALCULATION SECTION***************RvFHj"j9MANUAL-'M', OR AUTOMATIC-'A' COEFFICIENT CALCULATION MODEf0/@?X COEFFICIENT CALCULATIONjj. X INDEX OF DIFFERENCE A COEF-j B COEF- STD ERRORj.OFFSET DETERMINATION FICIENTj FICIENT OF EST"j,vt6vH@Xt|J w7TX@|^w hw!r w @| w@w! w @w %Zv$%#%&%"@ vo"$%&vD$@$"@&&"@&vGD"FvFDX@|V0 j7VALUE OF A COEFFICIENT TOO SMALL FOR COMPUTER TO HANDLEjUSE X OFFSET VALUE = @v0M&0#w77 $ ($"@&$ ($@:ZDw47&@@NjF #,4D,7X,D.5D,7X,S.5D,5X,D.5DE,3XDGXjF 2D.5D,5X,D.2D$4bV00MeR: COUNTER TO TEST FOR TRUE PEAK OF INDEX OF DETERMINATIONlVGvnvHH@oVHPrvvv&$vZV00AjMOREfV@@.YVd j"CONTROL TRANSFERRED TO MANUAL MODEv0MvttPvP@R R*********GRAPH CALCULATION AND PRINTING SECTION***********R/@"j9X OFFSET VALUE WITH HIGHEST INDEX OF DETERMINATION - '29'V00Mj = vf j A COEFFICIENTV00Mj =  v(f( j B COEFFICIENT2V00MZ<j = &Fv$&PdZf$dj.NUMBER OF TIME INTERVALS TO BE PROJECTED - '8'nfxj%WIDTH OF GRAPH IN MILLIMETERS - '160'gt/@R: TO CALCULATE Y VALUES, X DIMENSIONS AND RATE OF GROWTH R: FOR INPUT DATAXĞ@|w  vĜ`%($vĜ@@ vĜ`$'ZR: TO CALCULATE X VALUES FOR PROJECTIONv V .DV .Y"l"V .Q6,6 R: MONTHLY DATA@V4>J wfddTwgd#fd^Wg`hv44@rwdd@| v4@d@wddYv44@ v4@d@ R: SEQUENTIAL DATAX@|vĜ@@@ Ģ@Z R: QUARTERLY DATAV4> wfdPwgd#fPWg@Dv44@&wdd@0 v4@d:DwddpNv44@X v4@dbl R: YEARLY DATAvX@|vĜ@@@ Ģ@ZR: TO CALCULATE Y VALUES, X DIMENSIONS AND RATE OF GROWTH R: FOR PROJECTIONX@|w  vĜ@ vĜ`%($vĜ@@ vĜ`$'Z R: TO PRINT X VALUES AND DIMENSIONS AND Y VALUES FOR GRAPHj2 X AND Y VALUES AND DIMENSIONS FOR GRAPHj !j: X X DIM Y Y RATE OF!j: VALUE (MM) ACTUAL CALCULATED GROWTH j*XĞ@|4R: TO CALCULATE X DIMENSIONS>vĜPĜ@&@%tHV @@.Q\R\V .MpfpjF#,2X,4D,4X,6D.DĜ@ĜPzjF#,X,4DXD,3X,6D.DĜ@ĜPjF#,4DXDD,3X,6D.DĜ@ĜP vĜ@vמ@VְLV֪zxl v #,9X,D.4D`V֪LD v #,9X,D.3D,X`V֪_ v #,9X,D.2D,2X`V֪w 8$ v #,8X,2D.D,3X.`8 v #,3X,7D,5XB`LjF#,15XVt`jFjVװ@tvמ@~ vĜ`jF6X.DDĜ`Z/`jANOTHER CALCULATIONfV@@.Y j(COEFFICIENT 'C' OR GRAPH 'G' CALCULATIONfV0CV.Gv0M `ROKY  M d@t b t r d x @A@v AAZ l h v Ar ~ l Ax z ^ x h ~ z l ~ | p p Ap @An v A@b Ad Az @z v ~ t r Ax n @Av | A@l p t P Uj z p At t n h Ax A~ @~ x z z Ap | Al @~ r @| t x h j | p AXI4  |XLAZY  ,|EXP4  |j@0^R --ROKY2 &d@@~ r ~ r t AJz d x t @v n @l j x r ~ ~ x | z p ~ Ax | @t ~ j ~ j x z t r n l t t t v n n | l n ACBv n d l r t z | B~ ~ t v x ~ @x | t x x @t v t x | p h ~ r v r ~ v ~ x l n n j | | | d t XYYL5RXYXMUTXYV5B7XYQWILXYSTK7XY3UV0XROMINT ''#R **** HP BASIC PROGRAM LIBRARY *******************************RR ROMINT: INTEGRATES A FUNCTION (ROMBERG METHOD)RR 36022 REV B 6/73R#R **** CONTRIBUTED PROGRAM ************************************ (R *** ROMBERG INTEGRATION. HP VERSION MODIFIED BY B. GATELEY;10/24/72 ***j 'RUN-100' TO AVOID INSTRUCTIONS./@'jETHIS PROGRAM INTEGRATES A FUNCTION USING THE ROMBERG METHOD. SEE THE'jFACM ALGORITHM #60 FOR TECHNICAL DETAILS. TO USE, DEFINE THE INTEGRANDj3IN LINE 100 BY A 'DEF FNF(X)=...' STATEMENT - E.G.,#j 100 DEF FNF(X)=X^2(%jBTHE LOWER AND UPPER LIMITS OF INTEGRATION WILL BE REQUESTED DURING-(jGEXECUTION. THE OUTPUT IS THE SEQUENCE OF THE FIRST FIVE APPROXIMATIONS2&jD(WHICH SHOULD CONVERGE TO THE VALUE OF THE INTEGRAL). THE NUMBER OF7(jGAPPROXIMATIONS MAY BE INCREASED BY CHANGING THE VALUE OF N IN LINE 107.</@dPoeOf j LOWER LIMITgfh j UPPER LIMITif$j/@APPROXIMATION VALUES:kvPlw$"mM@nM@o o$@oY@|pMq w&@%rY@@%@@s M o!%t[uM@'!@vM@w Y@~@xM@%yM@ @#&@z[{M@|M@}k@%~[`STRGIN M I#(R ***** PROGRAM TO ENTER STRINGS INTO FILE(S) *****#)R ***** VERSION 1 *******#*R ***** MAY 10, 1971 R. TAYLOR *****#+NH#,j4HAVE YOU ENTERED THE FILES STATEMENT ('YES' OR 'NO')#-f#. V0YES#5#/V0NO#2#0jPLEASE TYPE 'YES' OR 'NO'#1#-#2#j>THIS PROGRAM REQUIRES THE ENTERING OF A FILES STATEMENT BEFORE#3j.RUNNING. PLEASE CONSULT PROGRAM DOCUMENTATION.#4#X#5!j9ARE YOU CERTAIN THE FILES ARE IN THE ORDER YOU DESIRE AND#6#j>THAT THEY ARE OF SUFFICIENT LENGTH TO ACCOMODATE ALL YOUR DATA#7f#8 V0YES#?#9V0NO#<#:jPLEASE TYPE 'YES' OF 'NO'#;#7#<j2PLEASE MAKE CERTAIN AND THEN RESTART THIS PROGRAM.#=j#>#X#?j HOW MANY FILES HAVE YOU DECLARED#@f#AV@ #F#B#j=A BASIC PROGRAM MAY ACCESS ONLY 16 FILES AT ONE TIME, PERHAPS#C%jAYOU ARE CONFUSING THE NUMBER OF FILES WITH THE NUMBER OF RECORDS.#Dj5PLEASE CHECK PROGRAM DOCUMENTATION BEFORE CONTINUING.#E#?#Fj#G!j:MOUNT PAPER TAPE AND MOVER TAPE READER CONTROL TO 'START'.#HX@|#Ih@#JZ#Kw$@#Lf#MV` $#O#N#T#Ow$$@#PW$@#M#Q!j:YOUR DATA REQUIRES MORE FILE SPACE THAN YOU HAVE ALLOTTED.#R"j;PLEASE CONSULT PROGRAM DOCUMENTATION BEFORE STARTING AGAIN.#S#X#Tj $#UV@`0EQT#W#V#L#WjDATA STORED IN FILE.#X`STNG1 ,STNG2 'STNG3 MTJ66  'p @{ d(J\PQqGRRVHlw\)nffpyLzoHz\QtzE`dzH(PO33{33tz`X\(Hg}SoR=qFHUl(Ut@HnRQDw\)mDzxAiGexHXQ@mp~$Dd DDTYPEZS '&!R ***** CUBIC SPLINE PARAMETERS FOR TYPE S THERMOCOUPLE *****&R T-CPL, HP 36654A, 6/74&dTYPE S THERMOCOUPLES&R N&D &R X&kz dz^NQ'sY*=o+#D\&N׮Rx=BCZa n&R Y&NRgE!mZ.&uKCXs]I ~R&Tbw)@A J &R Z&m .Zgvk8X&x߄C߄X4݄z݄nP&jC݄l݄d{݄UJ݄)$&݄-&`VEMON MF@^{Y[ QVRUpYQO\)PO =K33JHFREJ=qIB\G\)FffBHDEpz=qyC EPQHFffyxQAG~{xQ|wu|l^{QXQaGaGfffjHaaG`g =uqGg =WJ=qNRS QG[a``_\)eg =hQc hQl(D,4D,2(2X,S.3DE) "v&@ ,Z. 6T&%t%% @j%{ JH " ",3D," SOLVED (",3D,")" T% ^V%% hj% rH #,"+" |V,T j% H$ "NO SOLUTION IN ",3D," ITERATIONS." r` (GCHLIN \"R **** HP BASIC PROGRAM LIBRARY ******************************RR GCHLIN: RATING INVESTMENT FUNDSR R 36503 REV AR"R **** CONTRIBUTED PROGRAM ***********************************dN(!(((((fNH@H22p*,R -- SUBROUTINE FOR ACCESS TO DATA.j! FUND, INDEX, PORTFOLIO OR STOCK0 f@@6jNUMBER8f@V@@0PJBv@$GPDQDv@``@@FTJv@PDQPTD@@Vh@Z X@P ^ h@D4_V0|6D0|640|b`wd$4 D"&adb w|dZm V@0PDQPrh@vh@zj|j^jY-VARIABLE (VERTICAL AXIS),njX-VARIABLE (HORIZONTAL AXIS),n#$j>DO YOU WANT THE TREASURY BILL RATE SUBTRACTED FROM EACH RETURN f@@V@@0N D$GPDQI@ h@c X@P  h@D4V0|6D0|640|wd$4 D"& w|Z X@P V0|6!0|60| v# v!!# v!|Zj jFIRST QUARTER --j YEARfkVkz4k{@j0THE YEAR MUST BE BETWEEN 1963 AND 1972 INCLUSIVE  j QUARTERfl vm@$kz lj jLAST QUARTER-- j YEAR"gK$VKz4K{@0&j0THE YEAR MUST BE BETWEEN 1963 AND 1972 INCLUSIVE( 0 j QUARTER2gL4 wM@$Kz!L5vjMX R -- LOAD X AND YbvlXm}MnV0|6!0|vpv@rwtw!vZxV`zj%TOO FEW POINTS FOR MEANINGFUL RESULTS|j -- PROGRAM STOPPED~b R -- CONTINUE R -- DO REGRESSION R -- DO RESIDUALS"wMj*/`"DIFFERENTIAL RETURNS (Y - B*X) -- .j0jYEAR QTR VALUEt - 0 +1j2v4Xm}M6V0|6!0|\>v@Bw.$!D vH#HV@RJvHL\RVH@\TvH\ZXm}MV0|6!0|w.$! vH#& vHP$HXv  vXX! vHH* jkl#H 4D,1X,D,1X,4D.3D,6X,21AjklH 4D,1X,D," NOT AVAILABLE"vll@Vl@vl@vkk@ZbR -------------------------------R -- SUBROUTINE TO DO SIMPLE REGRESSION WITH PLOTR -- INPUTS ARE N X(I),Y(I) VALUESjw Yw XR -- FIND MIN X (M1) AND MAX X(M2)v@v@X@| W*  v W, vZR -- FIND MIN Y(M3) AND MAX Y(M4)v@v@X@|W*vW,"v"ZhR -- FIND AVERAGES AND STANDARD DEVIATIONSmR -- A1 IS AVERAGE OF X, A2 IS AVERAGE OF YnR -- S1 IS STD DEV OF X, S2 IS STD DEV OF YrvsvtX@|vv!xv!zZ|v&~v&R -- FIND STANDARD DEVIATIONS AND COVARIANCE (C1)w6w7v6X@|w66 "@w77 "@v66 "$"Zw66&w77&v66&R -FIND SUMS wFGHIJX@|wFF!wGG! wHH % wII @ wJJ @ZR -- FIND EQUATION OF REGRESSION LINER -- LINE IS Y = A9 + B9*X v.6&6@v".$R -- FIND COEFFICIENT OF DETERMINATION (R2)w'.@$6@&7@R -- GET INFORMATION FOR GRAPHRvYv@V@@0YvV\vNv@V@@0YvV@RvYV@@0YwwwwwV*wwwV,ww R -- FIND SIZEv`Vp vp wP$A7w`$ A7\ R -- PRINT RESULTSijpjrj tju H 15A,4D.3D,3X,4D.3Dv v MAXIMUMwjux v MINIMUMyjuz v AVERAGE{ju| v STD DEV}ju76~ v AVG/STD DEV ju'7'6/@REGRESSION LINE --w0+V.w0  j0.H% 5X,15A," = ",6D.5D,X,A,6D.5D,"*",15AjdVbjjV@$jEACH AXIS RUNS FROM  TO j~$ jY-AXIS -- BOTTOM%g& j TOP'g. jX-AXIS -- LEFT/g0 j RIGHT1g~ X@`jZ R -- DO GRAPHR -- CHAINS FROM: REGPLTN0  v0 *23456789NHR -- RESET ALL VALUES TO INTERVALSv .%w$#&#@bw$#&#@bv$#&#@bv$#&#@bv$#&#@bv"&.v$#&#@bX@|w$#&#@bWA w w$#&#@b WA wZ R -- SORT ROWS(v2v@<vFX@|P W+@Z W-@d R -- YS ARE EQUALn WA@xR -- SWITCHv@w w@ w@w w@ w@ZV@2R -- PRINTw&@j Y@H~@vΞW0W< v@@M v@@L v@@ R -- PROCEEDX6@}"R -- SET UP AXIS SYMBOL OR SPACE$W12(V61.*w ,|.w!/v60|2V6184w-5v66|8w+9v6| R -- FIND ENTRIESv>W&*W&+W&-W&,6W&*6R -- ROW CONTAINS AN ITEMv>>@ R -- GO TO NEXT ROWw&&@ R -- PRINT CHARACTERV>V>Hv>Hw0>>v6 v6@6@Z6 v@Π@!jN[XR -- PRINT HORIZONTAL AXISbjl v@@ vX@}wV0|xV<yv@@Mz|v@@L}v@@ Zj X@PjZp^dR - SUBROUTINE TO COMPUTE ADJ. R2 AND STD ERRORSnV`"xwKI#F%F& wLH#F%G&'K wMG#L%F&wNJ#G%G&wVN#L%L%K wNN&@ wVV&@wWN#V'NwXV'KwXX wYV%I&K$wYYjYXH% "STANDARD ERRORS:",7X,6D.5D,2X,6D.5DH "T-VALUES:",14X,6D.5D,2X,6D.5Dj j R-SQUARED : 'j"^'`HGDAPI  '*!R **** HP BASIC PROGRAM LIBRARY ****************************RR GDAPI: ABNORMAL PERFORMANCE INDEXR R 36507 REV AR R **** CONTRIBUTED PROGRAM ******************************* N0<  @    Odd N1nMDAY : M INDEX (%)7w<RxR!R ****** WRITTEN BY J. ANDREW DANVER , JANUARY 31, 1972R *** MODIFIED BY W.F. SHARPE, FEB. 1972 ******RN(@(P(`((NA Q !dp$GSP5,*/`j+ARE YOU USING 'FILES' OR 'DATA' STATEMENTS f`V`@@0DJV`@@0F,j#PLEASE ENTER ONLY 'FILE' OR 'DATA' ",j#NAME OF FILE CONTAINING STOCK DATA 6f@D@Jj"HOW MANY EVENTS DO YOU HAVE IN ALLKgLjDO YOU WISH TO ANALYZE THEM ALLMfNV@@0YXOj2HOW MANY EVENTS DO YOU WISH TO ANALYZE IN THIS RUNPg Tj,PLEASE LIST THEIR NUMBERS (E.G. 1,2,5) BELOWU jNUMBERSVng W\Xw YX@} Zw[Z\j.HOW MANY DAYS ARE THERE PER PERIOD (E.G. 1 FOR]j.DAILY DATA, 7 FOR WEEKLY DATA). NUMBER OF DAYS^g_j/FOR HOW MANY PERIODS PRIOR TO EACH EVENT DO YOU` j HAVE PRICEShgrj,FOR HOW MANY PERIODS AFTER EACH EVENT DO YOUs j HAVE PRICES|g v! o!ooXL@$JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECb LP 1234567890,l R -- INITIALIZE DATESv X@`LA| Z LA@p LA@A`AHAXx L X@` L A@LQZ LQ@R BEGIN READING IN THE DATA*/@?@#?` EVENT DATE?@EVENT#j--?@--------------------?`-------M @ Y@}h$ W + *S1 p4V`@@0F>i&HniR\ R TO CONVERT THE DATE FROM STRING TO NUMERIC VALUES IN DAYSfR CONVERT MONTHS TO DAYSp X@D `zV@`0@@ZjMO#/@/ IS INCORRECTLY STATED - PLEASE EDIT AND RERUN.bLGQ@ @`L=A@ @` L<>DFR CONVERT YEAR THEN DAY TO NUMERIC VALUESX@~@LDD@ X@X VP.` THt8L X@|D@LPZ$LFF .t8L>a"BMFLLFDVt`ZjLDD@tZ~R TOTAL DAYS PAST THIS YEARLGG FR CHECK IF NO DAY INPUTEDV>R CHECK IF YEAR IS LESS THAN 1964WzMvW.@@VGv LGG@L<@R TO CHECK DAYS THIS MONTH VF@6F*< =R -- Y9 = YEAR (E.G. 71), D2 = JULIAN DATER -- READ APPROPRIATE YEARw.@`$@(h@.2 X@[< h@1FZP V1G.|xZjTHE MARKET WAS CLOSED ON [jPLEASE CORRECT YOUR DATA\bxR -- OK"j,j66 H #,2D,5X,17A,3X7j@ R -- GET INDEX VALUESJvTvGVw^L#`Vrb V10|^dR -- GOOD PRICE FOUND, COUNT ITfv@hV1j^r R -- GO TO PRIOR YEARtw@vw.@`$@xh@.z X@[| h@1~ZL[ X@@L@ V1.|ZL `R -- FIRST DATA IS DATE K5 IN YEAR Y8 (IN C)w&1v V10|v@w1V0L!V[ R -- READ ANOTHER YEARw@w.@`$@h@. X@[ h@1ZW@0@@@L[@L[R -- VALUES IN Y, COMPUTE RATIOSX@|w' w#&'&w&'Z!R -- LOAD STOCK DATA AND CALCULATE PERCENT CHANGES&V`@@0FD0i&:XD h@ &Nnh@XX@|bV`@@0Fli'vM' M'#&'&M&'Z R TO CALCULATE THE APIo$%o#o##!M  @[ o#@' %# M@w67dX@| M$@!!* Md%+W-7-,w7-W+64.w64 M#@>ZH R ------------------ R -- PLOT VALUES X@| w@ Z /` j 67 H0 "MINIMUM API = ",4D.5D," MAXIMUM API = ",4D.5D jDO YOU WANT TO CHOOSE THE SCALE f V@@0N  jMINIMUM VALUE  g6 jMAXIMUM VALUE  g7  w87#6d /@ & X@d ( V6 %8d 0 *Z 0R -- I9 IS LOCATION OF THE AXIS (100) :!v07 Nj P6 PH #,"PERIOD"," API ",5D.3D Q x \  V R x x  V T x d V z  Wj X7 XH 5D.3D b X@d c v0- dZ e v0+ f v0@@+ g v0d d + lj n0 nH "------"," --- ",5X,50A q X@d r v0 sZ v v0* wj x@@d0 x H 5D,5D.3D,4X,50A y v0 X@| W X@d v0- Z v0+  v0! w X@d V6 %8+ Z R -- I8 IS LOCATION OF POINT v0* v: W vd j  H #,5D,5D.3D,4X j0@ v0 W X@d v0 Z Z<bGPQF  MdAGQDzDzQG =G =r!IIQMpLzQO\)O\)QPPI^R\R\I^SR\ZW33VRZS33S33Q\(\(ZaG_j~^R^RbMZ=qZ=qZPPZVRUpr!``bM``bMfRfRI^h1c j~^R^RZggr!jHjHA7l9Xc ``j~ZȴOK33K33QPJ=qA7AAbMeej~s33s33E|(|(j~F{F{QEp                  z ABERDEEN FUNDSduGzH||zH@ff@ffzHB{B{zHCA33GDRDRGG33G33zHJ(J(GI FGHzHzGE\)E\)GJJQMGIQH{H{QEEQ}}QB}QEEQFFQK33K33QJEQ@@QH=qH=qQL\L\QOpIQH{H{QBBQ||Qz{s\)Qp(p(G\z\zQhhQpnffGwwGvR                  z AFFILIATEDUND#{33G@z@zGB=qB=qB\C\)C\)GD(AB\C\)C\)GDDGF{F{GEC B\DQDQLB=qB=qGDDLEBRGAAQ@@QyGyGQ}qQyyQxxQ|(|(QyGn{QkkQr=qr=qG|(|(QzHtzQqqQlzlzQg\)g\)kaaQc33c33QYY^R^RQiGiGQmmQj\                  z AM BUS SHARESHESn=qx\x\A A H H KR KR QU Q S\ S\ S S RH RH zH[ff Z V{ U{ c b xff wff uC Bz Ck Ck o( o( y\) vH G G \(N N R R V O G# G# Off Off VQ VQGWU\)PPIGIGBBQx(x(ddEEPPQV{V{Q\\[ =                  z AM INVESTORSUNDE\)GFF{zHKKzHLRLRzHP{MGQ PzHRRzHUUGU33QGUSzHPPzHV=qV=qGZffVGVQSGGPffPffGKKQP=qM GURGTHTHQZffZffQWpTQOJQSSQW\)W\)\([[QXSQN=qN=qQJ=qJ=qzHGG\(GC\)\(mm\(F{F{\(L{L{K                  z AM MUTUAL NDVGpK =K =pNffNffpP(P(QRGPffzHUUzHXXzH\\G\fgYzH[p[pzHXffXffzHaaLhdzzHffzHa a zHT=qT=qQZ(RzH[\)[\)zH]]zHc33c33Ge =] zHTzTzzH]]zHaGaGGaGZRzHV\V\zHRffRffzHNRNRGMGIpzHF{F{zHn\n\zH||GCCzHI I zHJQ                  zANCHOR FUND. INVS ~RAAQEGEGEEfffI33I33||QP{P{Q33Q33fffQ\)NffTffTfffffOpOp] =] =B\k c =nRnRfffii^z^z\(c\)Yj\j\zHtRtR@\ @\ zHwGo33n=qn=qfff}33}33}G}GB\@p x\p\p\zHi\)i\)fHfH\(ca[[\(AAMMpRR\(^Q^Q^Q                  z ANCHOR GROWTH D:ZHI^``A7cSb\`Ab{aGZbaj~fffej~kkQl(j=qbMk j=qr!nȴn{zHhgA7pAnRj~ts Qr\qGQl(j=qfffZ\U]cYUQ``QeeA7llA7j Jc33QaGaGQiiQllzHr!j=qQc33c33QXQXQQQQQN{N{QGQGQC33C33QIIQN{N{QW =W =QS                   zASSOC FUND TR. PQW33W33Q\(\(Q]]Q][Q`z`(QbRbRfffggQhf{bMihshfffb\b\fffkkvȴtoI^uufffoofff^R^RVidzE{"xzfff}G}GfffEEj~KHzHpzHfffIpIpfffKKzHQNGDB=qfffrRrRfffnRnRzHkcB\^YfffEEfffO33O33zHTTQ]p]pG]                  zAXE-HOUGHTON AREAr!EOEGzHH\H\QJ(J(j~JyIA7L9L{GMMQPzPzGPNzHQPQLLfffRRRRQX{U\)xVUfffQQfffGGGG^5?LH\NTSfffW33W33\([G[GzH\W QPzO\(\(\(\(^^G`\QSS =\(JQJQ\(EpEp\(Bff}\(|zzRfffb=qb=q\(nRnR\(s s \(@H@H\(@=q                  zAXE-HOUGHTON BnffEy-yGzH@(@(zHBRBRj~@y =W =DDzzHEGEGzHIIbMMPIr!NLzzHEEzHQpQpA7aCW33QddzH]]JHJHQUQlk33uu3333QGGA rffrffD(D(FFQJQFQ@z@zrRrR\(idb=qb=qbHbHPPB\Z\TYYddB\a                  zAXE-HOUGHTON STOCKS V{V{QX\X\W =W =fffXX]p]pfff^\^\ddQdHdRlHlHgfQvzvzfffC 33H33 H33 pDH A pRpR}}R33 R33 fff^ff Y33 a a fffnp ` = OR OR `=q @(zH}|zH@zxk33k33\\LTzPzNRNRMMxQxQzHC34@CCMGMGfffMp                  zAXE SCIENCE CORP.EIQLzKpB\MMGNzNzLNNW =Q33PGR(R(LTTLU U W =VTQLR=qR=qQT(T(QT(T(\(OGM\)QJzJzW =E =E =W =GGaGLJQGpGpW =I33I33W =H(H(aGECQHffHffLKKQL{L{QIGLD{D{LA33A33LAA\(@\|Lk33k33LxzxzLAA\(DC\)LA                  zBOSTON FUND INC.g =ffflzlzfffpRpRfffrrLusGyy}\)}\)pA33 A33 LA{ ~p@ @ p|\|\pB( B( W =C A\ zH||zHwwzHlzlzGt{nRzHz=qz=qzHz{z{zH@( @( B\ =v\pnznzp|(|(p~H~HB\B\) B\) p@ ypu\)u\)pr\r\B\t{t{fffr{h{fffVVfffbbzHkkfffv(rHfffu                  z BROAD STREETTING`zffff\f\fffjHjHfffnnGqlHfffu33u33fffw\)w\)fff|z|z\({ >v{fffxxfffssfff}G}GpB = ~Hfff|=q|=qfffvvfffjjLrlfffxHxHfffzffzfffff@G @G G@R zfffspspfffB33 B33 fffDQ DQ fffF B\ fffA( A( fff{ { fffxHxHGxHsfffmmfffV(V(ffffzfz\(oplfffyyfffz(                  zBULLOCK FUND LTD.i =QonzQsGsGQwwQ{33{33QA @ Q@ @ Q@ @ QyyQu spQjjkk\(r{r{bz_W =WGWGLLaGY =Y =ZRXQ\(THTHT=qT=qkMMHF\aG[[ddzHhRhRcp`fffffVffVff\\LYpYp]\)Z\pGGSSQZ\Z\@i gp@k                  zCENTURY SHARESR.ac33c33zHffffffjHjHQk33k33qqzHqqttQsq@=q@=qzHpzpzBffBffpPOTQTQzHT\T\E =E =fffJ=qE\)YYzHepepqqzH|{j[[zHt\t\}G}G\(spl=ql=qQbffbff^^W =^([QGQGQg g AGAGQCCP{P{QVQ                  zCHASE F OF BOSTONTfffUUfffXXfffWWB\Y\)V\fffZ\Z\fff\{\{fff^^zH]Yfff\R\RfffW =W =fff]]B\c =_33fff`{`{fff\R\RfffPQPQB\UpR{fff`Q`Qfffepepfffl\l\B\nQf=qfff`z`zfffpzpzfffzzzzG~ffr{mpmpfffapap\\@Y =U\)TRTRfffBBfffMGMGzHSpSpfff_33_33fff^z                  zCHASE SHARE. TR.Q\(THTHfffX\X\fff^{^{fffh{eGfffiifffnnpqpqpzHqmptfftffpsszHGE = Bp zHD D B\B B GuGuGL{{ =GH = H = GH = H = GL L LO=q Lp GD D GO\) O\) GNG NG QP( L GI33 I33 GH H GI I zHO( O( GIQ E( QrzrzQ~~pD D GK) H GK\)                  zCHEMICAL FUND INC.BmcTR\(XX\(\\fff]\)]\)\(^[fffaafffccfffh=qh=qfffi33efffiipddffflfflfffffplzpk =k =pf\f\p\\\\Sa]phhpnnpvvfffuopffpspspzHu u fffypRpkpkppaap]]p[UppV(V(zHE E pO33O33zHS\)S\)p[33[33pX                  zCOLONIAL FUND INC.9 EFI =fffMpMpfffOOpOOpOMfffQQfffRHRHpUUB\TzR{fffRQRQfffOOpTTB\W =TfffRRRRfffNHNHpGGB\IGfffNNfffQQpVRVRB\TQfffOGOGfffYYp^^B\`z[pX\X\pQQpMGMGB\JRFpGGpxzxzpC C B\GGppLHLHpJ                  zAM EXPRESS INCOMEdJQGM33M33GNNGP{P{fffPHNHGQQGSSGVffVffpVRGT\T\GQpQpGV\V\pY V=qGTTGRRGHzHzpMJGSSGSSGW W pWpSpGN(N(GVVGY33Y33B\ZU33GR\R\QOOQL=qL=qB\IE =GDzDzQppQ@\@\B\ECQI =I =QF                  zAM EXPRESS INV.#wG} =} =Q@z @z QB33 B33 pC C33 QF{ F{ \(H H \(J J B\JQ H\) \(Kp Kp\(H\H\\(OGOGB\VT=q\(UU\(R\R\B\FF\(NKG\(VVfffXXB\]]fff]33U =fffNQNQfffY33Y33L]]fffbQYpU U pO O W =KKzHIpDzHj=qj=qD{mpW =~R~RzHE =E =zHJQJQzHI                  zAM EXPRESS STOCKI =GKJffGK K GL\L\\(LffJ\GN{MpGMMGOOQN\KGNLHGHHGN\N\\(SGQGO33MGJJGCC\(FEGOO =GR(R(GZffZffGZRX(GSRffGb{b{Ga =a =QbQXzGTQRGMMGIIGF\C\)fffDD=qQr\r\QApApGGG\(KK\(JH                  zCOMP BOND & STOCK@zfffCGB=qfffDzDzfffEEzHFQDRfffJJ{fffJJfffLLGL{IpfffMLRfffH(H(fffPffPffGX(UQS S33fffP\P\fffGGfffL=qIGGTSfffW\)W\)fff`H`HzHa] =GX=qWpfffiGiGfffjffjffGm`fffZZQzHSSzHNN\(MGIfffJzI\)Qv\v\QDffDfffffJJQQ Q QQ                  zCOMPOSITE FUND INC.Z\^^\(bHbHfHfH\(c =c =k =k =Qeeiie e m\)m\)zHcco\)o\)\({z(@( @( zHx(x(l{l{zHok~~fffC\) C\) J J \(Q Q O O zHX X ] ] Yc( SQ Np Np LFR FR yGyGfffkgGiiHzJ{[G[GpZ{Z{f\f\_                   zCONCORD FUND INC.. o( t33 t33 Gx x w{ w{ @~p ~p F@F@XQF BC33C33@AkAkFffFffHBpu As3As3@I)I)LLC LT{B#y y @CHCHOOn{PFRK@K@LInInE޸E޸yQfKPHPHLRRP:P:ZHJ8REhC =C =L@:@:\ \ KbǮ ` v# v# L~33 ~33 Fs3Fs3\(D                  zDE VEGH8AJK:SfffXW33\([ff[Q]\G_R\{fffcbGdd(zHgzfQfb(fffji33zHbb{GqffpQ@L {pGCp C{ zH@k @( Gszs =Gztz@C @ zHAf A zHEu E33 zHF A kz33ufffB B fffEp Ep QG33 Bff fffzzzzfffppfffkkfffl{d{fffaGaGfffOpOpfff\=q\=qfffaG^fffffllfffk33                  zDELAWARE FUND INC. d(\(hh\(ll\(pp\(s33o\(vffvff\(yy\(~ff~ffbM}OyGfffz=qz=qfffwwfff\)\)p@z|fffwwfffr\r\fffhhGo =k33fffuufffttfff|(|(G}xfffttfff@@fffB\B\GC =@fff@Q@Qfff|z|zfffwwQwsfffqqfff_ =_ =fffllQv{r\fff{{fffxQ                  zBULLOCK DIV. SHRS{\)B\@q @ fffD D fffF F fffK\) K\) QS QH fffQ Q fffUG UG fffTz Tz pY = U fffR R fff] = ] = fffh h O\)n. kff fffh h fff\( \(zHe33e33fffr\pRzHtztzzH{\){\)zH{{W =pm33zHzffzffzH~Q~QzHA A zH{ pzHi i zHhRhRzHggGa\)]zHJffJffzHTRTRzHZZfffd=qd=qzHc                  zDREYFUS FUND INC.M Q Q XG XG QYp V Z=q Z=q ]{ ]{ ^ ^ \(` ]ff ]H ]H _H _H [ [ c i e\ r r s spppd=q\zg\)g\)z\z\B B uFG A Bp Bp |ff|ffD D J=qDff @{ @ @ {{ttaGlzhh{h{eeQpQphr[`BZ{^^k k l\                  zENERGY FUND INC.AGVDEDffzHG\)C\)I =H\lDJnHRj~NN\zHP=qOpzHRQRQpRfgPHzHT(T(vȴQQzHW =S =xZ+WGzHUUzHSSzHIICMmK\)GT(T(CVVGZZVZ UGzHQ33Q33zH\\zH``zHbffbffzH^\UzHP{P{zHKKGIIzHH{E =zHrRrRzH\\B\FzFzzHML{zHL(                  zEQUITY FUND INC.x@\@\fffDDJQJQfffQQZffZfffff\R\R]]G][\)cczHZRZRn=qn=qQCp qG}}nnB\s c =rHrHfffvHvH@ @ pA = v\h=qh=qpr\r\w33w33GuGn=qffG`\`\\\k\ZRYYQH=qH=qSSpZ{Z{d\d\QaG                  zFIDELITY CAPITALu\(|Ry\(@G @G \(B = B = QE E \(I FG \(HG HG \(J\) J\) W =Iz Iz \(Kz HG \(E E \(KH KH W =QG QG \(R L\ \(J J \(C C fffHQ HQ \(P=q H \(K\ K\ \(O O aGQ Q \(L E\) \(O O \(RG RG uS33 S33 \(OH G \(CR CR \(BH BH B\C33 C33 \(B\) x\(c33c33\(p{p{GxxfffB = B = fff@                  zFIDELITY FUND INC.~RbMB\B\bMEEvȴFIDbMF\F\bMLzLzfffNRNRzHPMnNRNRnR\R\r!O O zHVHSr!Z{Z{vȴ]p]pzHXzXzzHKhGzHPzPzzHYYzH[\)[\)zHaZ=qzHYGYGzHQGQGzH[[zH_PW =zHYGYGzHTTzHMpMpzHJ^B{zHBAzH@@zHc c QmmGs s G~R~RzH|                  zFIN INDUSTRIAL F.VRzH\\\(_ _ bHbHB\dQ`QeezHhhiiQj]f=qhhfffgellzHro33mmfffgRf\fffZ=qXG[ffXzHeezHk33k33zHz=qz=qG33xzHn=qn=qzHFFzHJJOI@R@R~{tr\r\s =s =j\eG\)G\)QB\B\UGUGaa\                  zFLORIDA GROWTHXXb]G]GEb=qb=qQfafHGk\)k\)Ts s j~v=qv=qI^{8{tj|Q|Q^5?}}p{\){\)fffBB@FQBQ jD@zH3333}Vmp"pDupupvȴB{B{zBRBRq"GGEFQFQ@A33A33A7GCJJHJHKƨJJB\H=qH=qQDHDHB\AAKƨAA@@ff@ffEhQhQA7vffvffEAA@GpGpMF                  zFOUNDERS MUTUAL_33zHf(b(zHjjzHl{l{B\n(jzHr(r(zHv(r(B\|{x{B\xpzzHxxB\s =s =B\z(z(G33zffB\xxGp\p\Ce a QidGpzpzGqqGx=qx=qLr(mGGh(h(Gs s GyyG@G zEuuEnHnHGiiGfa33B\aaB\T{T{B\]p]pB\e >cpzHiiphQ                  zGROUP - COMMONDp fffFR E \(I HH QJ\) Iz QL K fffNz M QN M \(O O = \(Pu O pS33 R\) \(O N \(UB T\) kY XR pX X aGU8R Tff aGJ J{ pN\) M pZR Y fffZ\) Y \(_( ^Q fff_ ^G fffU U fff`Q `Q fff`=q `=q p`H ] fffZff Zff kY Y pXff Xff fffY V fffQR QR aG|{|{\(G G QMQ J = \(T = T = GX=q                  zGROWTH IND SHRS BmcP{ zHT T zHX X zH[p [p \(^ \ zHa a zHdff dff zHg g \(g=q bG zHfp fp zHb=q b=q zHj{ j{ pnR i zHh h zHf\ f\ zH\ \ pd = a{ zHm m zHq{ q{ zHx x fffx p zHi\) i\) zHu u zHx x B\{ s\) zHp33 p33 zHj\ j\ zHe e Yf=q b = zH`G `G zHL=q L=q zHZ Z ha{ `( Lk = k = Lip                  zGUARDIAN MUTUAL9 EFK =zHNffNfffffPO\)GPQPQGQQI^YpW33GV=qV=qGXzXzGYGYGQ`]GGW33V{G[ [ `z`zG`H\GTTGJHJHP(P(pZVR\(Z=qZ=qpaap^Z{pRffRffp\Q\QzH``fffc33]QXzXz\(R{R{\(K\)K\)fffGFff\(DD\(lzlz\(~R~R\(DD\(LL\(L                  zHAMILTON SERIES HDAdyp@z =fffB=qB=qfffBzBzpBHBHB\DBpCCzHE =E =uDzDzB\E C uB{B{zHD=qD=qzHEE@DBppw\)w\)uxzxzp@=q|zp~R~Rpp{{p{\)w\)p@(@(pBQBQzHCCpA~RzHw =w =pr=qr=qjRjRplj{fff]]pccjffjfffffr=qr=qppQ                  zINC. FUND OF BOSTON#KzHON=qzHSpSpzHUUGZWzH^Q]zH__zHbzbzQa]pzHdRbzH^ff^ffzHipip\(r{lHGqpl(GhhG\Q\QffffcQpffnzQttQ{ { fff{33w33Qoj\QxxQ}}G@ @ Q}uQnznzQjHjHLiizHg33b\QPPQ]]pd=qd=qzHm33m33Qm                  zINV. CO. OF AM.CUGZffZfffff^([G^^Ga\)a\)Gggfffk =e GjjQj=qj=qQkkfffhzc QjjQooQll\(fRb=qQV{V{Q\=q\=qQiizHk\)fzGlRlRGo33o33zHddzHq =k Gn=qn=qGp\p\zHl\l\zHgGcGG_p_pG``G__fffMKQV=qV=qQ^R^RQffffff\(d\                  zINV TRST OF BOSTONWpYpYpd{d{zHfHfHlQlQfffvQtQu =u =\(vHo33g\)g\)zHk^XUUfff_33_33@H @H zHO N = ER ER zHw =ufffM! F{ K{ K{ S R T T M% G P P N f\ddG_PN=qN=qzHP(P(PQPQfffHQHQ@@zHAAHHzHPPS33                  zINV. RESEARCH FUNDVC. c Fp EǮ fffH\) H\) Gff Gff H. H. hJ( E) H33 H33 fffJǮ JǮ K K YMp Jq fffF{ F{ K K R R B\S N Lff Lff fffCR CR K E R R fff\{ \{ e=q e=q iG iG ud [ l l fffpff pff t( t( \(o{ d \ \ fffY Y V V J=qQ33 H v(v(fffG G N N GY{ X fffZH                  zISTEL FUND INC.A. c GggGkpkpGllfffsp\GvzvzGz=qz=qG{{fff{w G}}GzzzzGC C fffH FG GK( K( GIR IR GA = A = fffI33 F GP P GR R GX( X( QZ W GOp Op GZz Zz G\z \z p] Z GW W GV V GV=q V=q fffY V GQ Q GAG AG GK( K( A7Pz O GY Y G^\)                  zJOHNSTON MUTUAL F:c dz dz @c33 c33 c c AGb = b = b b B\a a b b W =bp bp B\b\ b\ @b b @aQ aQ @_ _ @^=q ^=q B\]H ]H E[ [ B\[ [ E\ff \ff GX X B\X = X = @T( T( ETp Tp B\T( T( J=qV V J=qR( R( LP P LOz Oz YKR KR W =H H YI I \(G( G( YH=q H=q EJ\ J\ TzL L \(J\                  z KEYSTONE B-1U Y\) EZ Z ] ] G\ \ ] ] H^33 ^33 _ _ h`z `z G` ` Eb b EaG aG Lap ap J=qaz az J=q_ _ L]R ]R O\)Z Z Y=q Y=q N{\ \ O\)Z\) Z\) L\ = \ = XR XR O\)WG WG QX( X( Tz[ = [ = TzW W VQ VQ YTQ TQ YOH OH ^RL L ^RN\) N\) aGIR IR \(I\ I\ ^RL L ^RP P ^RNp                  z KEYSTONE B-2AIREK =KN(N(RRRRKQQ33QQLSSfffW33W33TXWGQW33W33QY33Y33QW =W ={X<V=qQWWQWWQU33U33zHNMQMMQQQQPPQO O QM =M =QMMQQpQpQRRffW =SGSGW =QQW =NQNQW =LffJQW =FzFzW =FFW =|zjRW =~=q~=qW =~R~RW =D\D\W =C\)                  z KEYSTONE B-4REGuJ=qJ=quLL@LI\)uIIzHLHLHzHNNzHQGN=qzHNffNffzHO O zHNffNffg8R;O =zHP(P(zHOOzHL=qL=qzHFCzHEpEpzHJJzHIGIGn2LK33zHJQJQzHFffFffzHLzLzzHO33MzHMMzHI =I =zHD(D(zHA~ffzH{ ={ =zH|z|zzHk =jRpsszHwwzH@\@\zH~=q                  z KEYSTONE K-1CVGK^LPQPQQRRRRTTQVfgUpYYQYY]]zH^ff[aafff[\)[\)hzhzQupj=qqqfffnffnff_33_33QfR]mmfffuu@@QC33uddzHv=qv=q||zH|k =ccZ=qZ=qUUfffSSO\)O\)z\z\FHFHfffJRJRUU[                  z KEYSTONE K-2TECHP uT T WR WR uY X=q [ [ @_G _G Qc=q c=q \(e dR zHe\) e\) zHh h B\f f ~B[l aff zHbR bR zH` ` zH^=q ^=q fffV K QPH PH \(Y = Y = \(X X fff[ ZH fffY Y fffT T zH^ ^ zH`z [ fff[\ [\ fffYp Yp pT T W =S=q G pH H fffF{ F{ ptQtQzH@=q @=q fffFG FG fffM( M( fffN                  z KEYSTONE S-1OHRO]ddaGhffhffjHjHaGkglHlHkoofffs pzfffnRnRpttpn=qn=qB\u33i\)fffp(p(fffn{n{fffggpZHMMQT\T\\(VVQ\\XHXHQTzTzQcpcpfffhd(\(f\f\a a fff[[B\_XRfffNRNRfffN=qN=qQB(B(fffHHHHQPRPRQVQVQQVff                  z KEYSTONE S-2PgGn\n\wwLxzv{zzQCz Cz C C \(Fp CQ C C LH H D D aGP = K33 U U \(Y Y U U QJ{ yE33E33\(OOT{T{fffYP=qQ\)Q\)J\J\QUUGZOM =M =HffHffDDLHHC\)wwuu[[B\j\j\s33s33AGAGD                  z KEYSTONE S-3ERTO{33@@QC =C =DDzHEELQLQfffMMPPQRRRRZ\Z\zHQQ^\^\fffj\j\p(p(fffj=q_ =O\)O\)WWzHk\)k\)Qz\itt|z|zQiiQAo =t(t(v=qv=qj{j{zHg\)^=qT(T(T(T(LzLzzHhh|z|zAAQpQpQS\)                  z KEYSTONE S-4PPLY \(Zb/aQf\f\QggQl(iA7pZnHQppQssQqqffft=qs =QnffnffQyyQ@(|zQ|z\QupupQg33g33fffkhQw =uQv=qv=qQ  |zxzGqGqGG@ff@ffGDffDffHQEGCpCpG{ { GuuEq|n{GmmGYpYpGg33g33zHpQmGxxGxQ                  zKNICKERBOCKER FUNDTPzPzQc33bRjffjffQpQlooQo\)n{p(p(Qmk33xQxQGnzmp@Q@QEKbNIPRPRQO =MEEMNSKG\(\(I^`-_m =m =ZnHnHaV(hhQnnfffpGf=qccQ[[ZQZQ[[~SXL\QdQdQ\)\)BzBzB\PPzQR{                  zKNICKERBOCKER GRWTH A fffCz A D D H H I I fffP P RH RH T TO33O33hrJdZICCFRFRJzJzj~{lz{mm[\)[\)hhvȴoompmppph(h(G_ =]pypyp}}AAI^} yn{n{z{z{upup^5?xxXzXzeGeGlzlzzH~H~H@(                  zLIFE INS. INV.RSsG\(xHxfff}p}pp@ = @ = G@H ~pAH AH pC( C( pE E B\F( C\) pCR CR pA A zHDz Dz GE Bff k@ @ zH{ ={ =zHtfftffW =xt=qzH~(~(zH~\~\zHB B A A W =~(v(zH@ = @ = zHD\) D\) zHE E LBG }zHx{x{zHuuzHttLrnzHZ{Z{zHggpoopypvfffu                  z LOOMIS-SAYLES TU33YWpZRZRp[[G[[G_\)X\GXHXHzHYYfffYYzH\HW33zHSGSGLU =U =]XX\zHY WpzHS\)S\)zHLffLffzHMMzHS\)PzzHQQfffP\P\fffR{R{kNffMfffVQVQfffZZfff\R\RfffZ\XRfffTQTQfffNNfffKKfffGApzffzffp@@\(CCzHHQHQzHFQ                  zMAGNA INCOME TRUSTuG|z|zzHA =A =A7BBEDCKƨDDCGGGIGIGMHRGVLQLQMJ{J{O;Q Q QX\VH\(YGYGQXQXQQMGMG^5?VHT{\(bbVdQdQ\(hhfffjh^5?\(\(Vgg\(ggfffi5?g^5?ccQaaQb(b(hrfpd{fff]p]pj~H\H\pUUzH[XRfffeGeG\(i                   zMASS INV. GROWTHjelRfffp=qp=qfffu\)u\)fffyyzH|zzfff@ff @ff zHB B fffD D B\DH D( pD D B\C=q C=q pG G GI FR zHC C B\@ @ zHuuG~zxzHB=q B=q B\B33 B33 zHE\ E\ B\F| B mhzffzffpD D mhE E zHG. B A{ A{ n{} } nypyp}{\)v\wssvȴ]p]psFjj~sxkptQtQpr\                  zMASS INV TRUSTmGffft(r(xRvR|zfff@ ~ffQ|Qzz{33y33~|fff}y33G}{y@ 33fffE = B fffE{ Dz LA @ w33w33W =@ff |E\ E\ QHff Fz K( K( C Nff G H H QUz S\ Z = Z = fffa XR Uz Uz B\N8R L{ I\) I\) LE pyy\(ZZRm =m =@pHpHCR CR fff@                  zMUTUAL SHARES CORP.S A7YhsXQ[ [33Q[ [ j~\YGQ]p\Q[ZHQ^ff]j~\IXQ^ff]QZHZ=qQ\\(Q^ff[Q[ [33QUpTQMLzfffOMzHVffV{zHV{UQ[33Z\`AV~UpQR\QQYXQ[ZHQ_^{QZHZ=qQWW =QS S33fffQGPQGGQjHjHQ~{~{Q||Q@@Q@                  z MUTUAL TRUSTnHttB\ypyp}}Q@ C = C = LD{ D{ EH EH \(E Dz I = I = QE E M M fffR QG Sff o33pll`Q`QB\hfHwwzHz=qz=q@@GB\uuzHB\B\CCGDDB@QzH~{~{@@QC33C33~\z{zH\\kkQssA@QfffC =                  zNATIONAL INV CORPPX{dZ[-[zH] [ fff]]p_\)_\)fffcGcGwfdzfffg g fffjRjRcSkDkpph=qcppfRfRph{h{VdId{fff^=qY =pRRzHTzTzB\ZzZz\(ZYpB\\\fffXffXffzHW\)W\)fffbffa33pccB\ff_G_GuZQVQQSSGQ\)Q\)fffQ Q LEEQM =M =W =RRG[G[GW =W                  zNAT SEC - BALANCED@`Z=qzH``Lb=qb=qGbffbffQbffbffzHddzHg\)g\)Ghhfffh(h(zHiizHg =g =GhhzHiGiGGh(h(zHcczHW33W33QZ=qZ=qGbffbffzHaGaGGddzH]G]G\(]G]GGaaGepepzHiieeL`YpGWWGT(T(QS S \(HzHzQK\)K\)QMMGPPfffO =                  zNAT SEC - BONDqQ}p}pfffB\B\QBRBRfffDzDzfffIIj~K|IfffMMfffMMpP\PzQMIzHNffNffzHSS^5?VMV=qfffQpMGzHDQDQGEEfffOOzHQpNHfffS S zHRHRHzHPPfff\V\zHZ\Z\zH^H^HW33W33pPHzHD(D(zHAAzHBffBfffffn{k zHw =w =zH@Q@QfffG\)G\)fffE                  zNAT SEC - DIVIDEND9 EFo\)fffs s fffttQttzHs s QuGuGfffuuQxQxQQw w B\zzz{QwwQz{z{zHyypvHvHQqqQj=qj=q\(iGiGfffr\r\Qss\(w\)w\)\(}}fffz=qz=q\(@ff@ffQD\D\fffEE\(AAfffz\r\Qmmfffg\)g\)ph(h(\(YYGdQdQfffk\)k\)\(yGyGffftz                  zNAT SEC - PFD STCK>VsW hr]\G`z^HG_33_33zH__bMd1'dQdzazHeezHddB\gGg33GeazHg33g33Ghh|hȴhGc\)_zHX(X(GZHZHQc c GepapGepepzHc33c33G^ff^ffQg czHg33g33GhzhzGccG_ Z=qGV=qV=qGS33S33GSSQEC\)zHIIQNHNHGXXGV]                  zNAT SEC - INCOME^w =Q}}GA~RQ@@GA =A =ME;dE33GFC QFFGG\)G\)B\IRIQGD(QIGIGQL\L\VKKQFHCQ{\){\)QA\)A\)\(I33I33\(IF\QJRJRQIGIG\(F(F(\(OpL{QP{P{\(UUQPP\(KpGGQB=qB=q\(@@\(@ff@ff\(leQtQtQ\(}}QCC\(BR                  zNAT SEC - STOCKEz{zH}}zHA}GQ@H@HzHC\)C\)bMHHHzHHEQFQFQzHFFj~KxKpzHH{DRzHLRLRzHS\)S\)zHSSnRNQEEQMGMGzHZRZRfff`=qXHzH^ff^ffzHaaG[[zHk^Rfff__zH_ =_ =GZzZzzHUKzHHRHRzHHRHRGG G zHsnRfff@H@HzHEEfffNNQM                  zNAT SEC - GROWTHa =fffedffzHggzHjzjzzHmpmpB\spq zHrffrffB\u =u =B\ttW =xzt\B\qpqpB\yGyGB\W =QzB\v=qv=qB\jHjHB\uuaGBW @ = B\A A B\F\ F\ \(G = G = \(AG }GE E GF F GG G \(E B GA A G@ @ G@ @ Qz\)u33B\\{\{B\i33i33B\nRnRfff|z|zB\@                  zONE WILLIAM STjs\)s\)zzW =BL }G G H H K{ I{ JH JH O( J zHF D O O ]33 ]33 g\ c zHbR `R R33 R33 X X f b Qh f mff mff r r eG s GGEGJJN\N\H=qD=qQ }||zffzffr{r{W =^{YGn\n\{{fffBRBRDH                  z OPPENHEIMERERTOlfffffssfff@ff @ff QD D=q QK J pT R GP M \(Q Pff pOH O{ GV33 U\ fffRR Q fffZR Y = fff`{ \H QV S=q fffNR H zH@ ~ffGF( E\) fffKz H\ QGR GR QM M GG33 G33 GD7L A LJ JLM M LQQCNJRLE =E =L@z@zL}}O;@j~RLiiLupupL}}MD CGA                  z PENN SQUAREPPLY RzHW\)W =zH[34ZHfff^Q]G`_Qdd(fffff\Gji\)zHhQfRzHlQkQgg33\(p(oQvtzHwpv\(rrzfffepe =GjiGQvQupfffuufff~Q}G}{fffo\)o\)\(|z|zQ@33 @33 GB @( Q|{\(xxfffwpwpkx t\fffnHnHfffW\)W\)\(fzfzFffl\jQzzfff|                  zPHILADELPHIA FNDXfff\z\zfff_[pW =[[\(_33_33\(eefffg >apW =dzdzaGd=qd=q\(e33e33kb]G\(cc\(h\h\\(ffkc^W =TTaGZffZfffffd\d\fffg a33\(e33e33\(aGaG\(ZZzHg`\(dQdQ\(gg\(b\b\G]Xff\(UU\(T\T\\(V(V(QED=q\(QQQY =Y =\(``L`                  z PINE STREET ETu E =B\JJB\LQLQB\M33M33\(LJ(GMMGM\)M\)GQQQROGGTHTHGQ =Q =GX{X{Q`Q\QG\ff\ffGZzZzGR{R{\(UPRG^^Gc c GjzjzffflffhLe33e33Lv\v\L}\)}\)zHA }GQwHv{QllQgGgGzHh(aW =bz\(W =IpIpW =SSpY33Y33W =caW =_                  zPIONEER FUND INC.EpRuuB\zzzz}}LA @\ CH CH GD D G\ G\ QG Fff J\ J\ LI I Q Q aGW = T Vz Vz \(SG SG K\ K\ fffR\) P\) \ \ fff]\) ]\) a a aGdff bG Y Y \(g=q g=q gR gR i i aGd a b=q b=q fffc c h h kb _ I I kUH UH \\) \\) Lk] i o                  z PRICE GROWTHTK|z\(B{B{\(EEX(FffE =\(FF\(MM\(N(N(pOMp\(LRLR\(QGQG\(NQNQpUS\(Z=qZ=q\([[\(VVB\MJ\(MM\(XffXff\(]]\(`]\([p[p\(VffVff\(`{`{aGb^R\(c\)c\)\(_ =_ =\(VVkQNfffM M fffNffNfffffBzBzfffIIfffNRNRfffV{V{fffS                  zPURITAN FUND INC.sfffx\tRfffxxfffxxEzzzzfff@\) |ffffffff@ @ L@ @ fffBR @ fff||fffA A W =D33 D33 fffDQ A33 k~~krzrzW =ypypkBR @{ k@=q @=q kC = C = TzC33 C33 k}tk@\ @\ kC C TzC=q C=q k@ wkrQrQkqqTzo o poGlzp[33[33peeLllpvfgtpv\                  zPUTNAMM Eje =BBEEF\F\zHG =G =KKzHLHLHMMQN=qMGSSQNRNRYYGd{`ReeQaaS33S33GZQW33fRfRQjjtQtQzHyGj__Gn\n\t{t{fffu\)h(b\b\Q\(\([p[paGXffPQMMfff~{~{GGfffJHJHTzTzfffVff                  zPUTNAM GROWTH FUNDH B\K=q K=q B\M\) M\) B\NR NR W =PR K B\O O B\Q Q B\Pff Pff QS Q{ B\Q Q B\O=q O=q B\R R W =U Q B\O=q O=q B\L = L = B\Cz Cz \(H H B\MG I B\GH GH B\J\ J\ pGz Gz pC 33pE E pGH GH GE\ E\ pBR 33pyypypypGxRxRpxHwGzH``zHmpmpptHtHzH@( @( B\}\)                  zSCUDDER - BALANCEDKGW =W =fffRRTffTffLW =U]p]pzH``ccW =a `\bzbzB\_ =_ =ggW =lzffzfzB\aaU\)U\)W =[33[33e\)apB\aGaGffzHd=qd=qZ(W =zHaaepepfffd=qd=q_ \RfffWWZRZRzHXRXRTRfffvffvffFzFzB\JRJRTHTHfffU                   zSCUDDER - COMMONZ=qQ^zZG^R^RG_p_pGaaXbh1d{Gi =i =Ql{l{QjjSoCgLa33a33Li =i =Qpp\(o iLffffffQ[[Qc\)c\)VpĜlQLqqLvffvffQttZj-d\QpRpRQssQw\)w\)\(qhzLaaQ]G]GQ^=q^=quZTzQFFQPffPffQW33W33u`]zH] =                  zSIGMA INV SHRS[aG]]ZaG\=q\=qaG[ [ W =]33]33\(_ \=qaG^^aG`ff`ffaGa33a33\(a =\\(ZffZffaG__fffa a \(_z\\(Y33Y33aGR\R\fffWpWp\(^]\(\ff\fffff__fff]]aGVS33aG[ [ fff^^aG_ =_ =fffZ(VaGPPfffM33M33aGJJfffG=qDHaGtQtQfff@\@\fffE E GLzK =\(I33                  zSIGMA TRUST SHARES@`zRfffAAfffD{D{fffFffFff\(FQDfffH=qH=qfffHHfffM33M33zHK HfffK\)K\)fffH=qH=qfffMMGPRMzHLHLHzHKKzHBzBzfffG33D\zHLRLRzHQ =Q =zHU U @QJGH=qH=qGQ =Q =GWWfffYGT=qGR{R{GLzLzGGGB\EBffBRBRnRnRG  fffE34DHGJJGJ                  zSOUTHWESTERN INVjffLq q LtQtQLvvQzRvL}}LA=q A=q LCff Cff QC AR LD D L@ @ LC C QG\) E( B\C{ C{ G~Lp{p{zHtzpQL|R|RQ@33 ~LD D fffA @ Luu\(~{LA=q A=q fffC A L = =\(w\)u\)Lpffpfffffn{j{LjzjzL[G[GLc c \(iGdLl(l(pl                  z SOVEREIGN INV.9 EFGaH @J HR kK3 K3 @L L uM) M) B\P\ O zHP P ES S zHS S EU RQ @P= P= EU=q U=q @X = X = GX V = B\T T GL\ L\ LQ Q LY33 U B\V V LZR ZR B\[ [ GUz PG B\Z = Z = G^ ^ L_ _ QZ U33 GR R LQ Q LQG QG QN K\ Gx\x\GE E B\Iff Iff B\R\) R\) B\RH                  zSTEIN ROE BALANCED>VssR \(z z B\@ @ \(A A QBH BH aGE E GG G aGIq Iq W =JG JG fffL K QI33 I33 fffOk Ok aGS) S) kT opzHlQlQG`\`\GfHfHQrozHrrGyGyGfff|z|zzHrffk33fff||zHA{ A{ zHB B G~(wGfffspspzHr(r(zHssGlj(zHQpQpzH`(`(fffffffft=qt=qzHu                  zSTEIN ROE STOCKV^qQxQv{}}DDHzHzbMJIIGIGIGIGIIfffPzMHH\Q\Qkkqjffa\\O\)O\)RHRH`5?XQb=qb=qipippp{m\RRddepephhbM\QIIF=qF=qFffFffr!to =J\J\]]Z\Z\KƨaGaG_\)                  zTWENTIETH CENTCH]zHbHbHfffmmffftztzzH{{ffff=qzHdQdQGhQhQGhhGnipzHeGeGzHo =o =p|(|(QBH|zzHw\)w\)zHjHjHfffqqzHDff{33zHF{F{zHKKzHUUzHKBffGLffLffQQGQGfffV{V{@PzJ{QA\)A\)QypypQyyzHo\)nHQLLfff]]zHYYQqqzHp                  z VALUE LINEMHOHRONHGTtS =B\UUGUUB\UpUpGZXGYpYpG]]G\\Ga_fff\Q\zHbHb\Gh(g Qh=qd`(`(QUU\(YGYGQg =d(QfRfRQmmQn{n{Qi\)aGQk k Qp(p(QuuzHldQZHZHQS S QPPzHQMpQ\)\)QG\)G\)QK K GX(X(GT(                  zVALUE LINE INC.VffzH[[b=qb=qffffffffffffQsr=qqqupupmmQ{33yqqAAO\)O\)Q[33TS33S33G G MMzHh(att@Q@QJ\J\Q@z~=qM M T{T{Y Y QPM@H@HxxssGfd{{MGMGIpIpQ_\)_\)\                  zVALUE LINE SP. SIT.EzHHzHzzHKGJzzHLLzHN\N\zHS\)R\zHT\T\zHUUzHV=qV=qzHWVQzHT=qT=qzHYYG[[zHZzYzHWpWpzHP{P{GVRVRG`(_\)G__GaaGbRbRG\ff[GeeQggQhh\(e =d(Ga33a33Q\\\\Q[\)[\)fffYX=q\(IGIG\(MMzHSKGP]GzHF                  zWALL STREET INV. N\QRRQWTQUGUGfffV(V(QZZQ]GYQ^z^zfff^R^RQdRdRQ`\]GQc c zHhHhHQfHbH\(a]\(UpUpzHZzZz\(dRdRzHh=qe\(mmzHkpkpfffeGeGB\rffm\)fffu =u =B\zzpv\v\po =h(pc33c33B\_ _ p`R`RB\OpLffpXffXffB\`R`RphhGh(                  z WASH. MUTUALnpq\)q\)ps\)s\)ptt@ws pw33w33pypypp|\|\G|zxQpyypw\)w\)p{\){\)LzvRpqGqGpmmpeeW =jgpnnpkkpnQnQQlh\pb\b\pkkpnffnffplzipffpaap]G]GzH]ZRpY =Y =pKKpUUu\ffZffp`\`\p] =                  z WELLINGTONSECRETu fQpipippl\l\pnQnQQnGmzHqpqpzHrrzHu u QuGqzHsszHpQpQzHtRtRQvrQpopoppllpaazHh\cfffp\p\fffs\)s\)fffxzxzp|zu\(pp\(}}\(A A pB B fff@ vfffttfffuuGvvfffqh=qfffS S fffZzZzzHaa\(l\i\(j                  zWHITEHALL FUND INC.h(n{iQmmQo o QqGqGwrRQuuQxxQxQxQ|w =QqqQ{{GAGAGAp|Qv{v{Qk\)k\)QrHrH@({Q@ff@ffQCpCpGCC}tQQAAQB(B(QBHBH@zxQvHvHQssB\rRrRr\hQYYQaaQj=qj=qB\pl(Qk =                  zWISCONSIN FUND INC.GPQI  c~. B\B\B\FffE\)E\)AGGGW =KKGNRNRKQQHT+T+`TTN{V&fV&fS33T)T)O\)Y3Y3fff\k\kUY8RY8RYTTW =LLc PQPQYZ0Z0YZHZHY`3`3c `u`u]pZ0Z0`cc`ffhgٚgٚaGeeb\a3a3aG])])j=q\ \ b\YYc HHb\T33T33c \#\#`dO\dO\c c3c3b\bW bW b\f f `k33         z 500 STOCKSGSDdBC E3E3GHHC KuKu\(O@O@J=qS)S)N{VfVfKY)Y)c Y)Y)PZRZRXQY)Y)Q__lbubuY__\(ZZYQQhU:U:\(`3`3\(a3a3\(i =i =gii`b0b0b\lLlLaGppn{qqc nfnffffk k c fzfzo\)ezezfffb =b =fffOHOHfff\\\\fffddb\nknkgm3m3                 z425 INDUSTRIALS#Ap E E O33 O33 c LQ LQ EQG QG kU U k` ` @_B _B H[ [ xQ\Ǯ \Ǯ uUff Uff xQ^{ ^{ Tzf= f= @d d AG[u [u FffO O QR\ R\ E\ \ E` ` G`k `k GWff Wff ET T Ef f Ej j HlG lG Fffe# e# FffYR YR FffS S @JL JL zHI I C d d k  C FǮ FǮ hO# O# C S S                 z20 RAILS4LISEz(   @h@hEAAFffBhBhGBBGDYDYHHnHnKJJLL=L=N{IIN{L L PKKS33EEEES33BBTz}H }H XQEW EW XQF=F=YBBZHBB\(BB]p{ { ]pC^C^`B B `EE`A3A3aG|Ǯ |Ǯ aGp p b\p( p( c wu wu c _Q _Q c k k e{ff {ff g}= }= gw w                 z 55 UTILITIESSr x x }=q }=q @@ EE L&fL&f L\L\ OEOE MzMz RR PLPL X=X= [[ Z\)Z\) V{V{ IhIh N0N0 \8R\8R __ jj j@j@ `` lRlR m0m0 mhmh hRhR ezez g\g\ ee `` M =M = WW ^@^@ jGjG iBiB                 z CAPITAL GOODSSVm t t {L {L BB BB FF I I  NO\NO\ NQNQ Q&fQ&f NHNH RpRp S+S+ NGNG HH CC BB LL NRNR U:U: QfQf MhMh XzXz Z.Z. Y=Y= WYWY VGVG VV VV UU G G  Q\Q\ Z)Z) c c  d5d5                 zCONSUMER PRODUCTS. Cf FF II LBLB L)L) NffNff PffPff SkSk SS U\U\ SkSk TT T =T = MM KK F@F@ II OO NN R8RR8R OHOH KK W)W) XX Y#Y# W\W\ UEUE TxRTxR SS R+R+ E =E = KRKR U(U( YRYR X(X(                 z HIGH GRADEAJK:o=q }f }f AW AW  C)C) DD LO\LO\ LL Q Q  PP YfYf S{S{ b:b: x)x) ~)~) uzuz hh kk GNGN PZPZ X{X{ _ff_ff __ rfrf zz @@ mm ^)^) TT Ls3Ls3 LL dd @)@) @@ P"P" L L                  z LOW PRICEDGWU k=q n{g = g = ud\ d\ s33Y) Y) zH[ [ zHc c zHbk bk xQq\ q\ @t t Hz= z= Hy y HMMP\\HananH[[J=qM)M)FffWuWuFffeeHxxO\)mmO\)ncncP^L^LO\)bxRbxRO\)ZGZGQ^)^)S33TTS33BBLs{ s{ Lg. g. n{W8R W8R kwff wff aGO=q O=q ^RO33 O33 aGj j aGkQ kQ                 z AEROSPACE CLAIREa = Lq q LC C LH=q H=q Q^= ^= @AO\AO\@| | B\s s B\z = z = B\FFB\BB@QT{QT{O\)a0a0Qs s aG}3}3^R\\c oYoYc E@E@hy.y.n{ssn{g{g{hIIhP P hX@X@k])])hRRkNN@D =D =@vp vp @r r @K K B\f( f( Llf lf GDcDcGEE                 z AIR TRANSPORTJO{xQPPxQ`Ǯ`ǮxQ__xQ`5`5xQn޸n޸xQk k xQcBcBG\)\)G``GffGhhLofofN{CCS33@3@3QhffhffW =vǮvǮW =~{~{ZHxxZH}޸}޸ZHvvZHccZHcs3cs3ZHe=e=`i=i=`iRiR`bW bW `bHbHc _8R_8Rc b0b0aGH:H:aGHO\HO\aGRR\(WW\(Qs3Qs3                 zALUMINUMPKGLJO\)QuQuJ=qXXPd d G\)ccgh h Ummh} } Hy޸y޸}p}}mpuHuHu@3@3QG}Q}QDzssec0c0Dz\)\)pREREDzakakDzbHbHaGrprp^RjjDz__UiffiffDzokoknRffDzg\g\UbbDz]5]5nRUU@\\@LL@ZZ@ddAGe޸e޸AGcc                 z AUTOMOBILEWANDLEUu C ZaH ZaH C ^ = ^ = C _33 _33 E\ \ C bW bW Eeq eq O\)l l J=qhk hk J=qk k Kg g O\)mQ mQ Uu u Pv v Qj j S33^ ^ W =[ = [ = Uku ku Un n Qw = w = Qs s Qm m S33  TzD{D{UEEUAzAzW =vH vH W =tQ tQ W =rG rG W =m{ m{ S33N\ N\ Pb=q b=q Fffo o N{xf xf N{AnAn                 z AUTO PARTSVG B\d{ d{ B\o o C n\) n\) `j\ j\ Kp = p = Kv\) v\) N{z=q z=q zHl33 l33 c u33 u33 hhB hB hm m k@@pC+C+u~) ~) @j= j= @g g @f f O\)GGUJJUI(I(XQD@D@XQM.M.YHHZHLLZHLnLnZHBRBRZHE\E\\(D)D)\(yB yB n{P P n{c c pl l s33vz vz s33C C                  zAUTO TRUCKS & PARTSQ= u_ _ ub b h^{ ^{ hX\ X\ h\{ \{ he e ho33 o33 B\o( o( s33IffIffp} } pq = q = Lj= j= Tzh h Tz` ` TzP) P) TzLq Lq Tz_Q _Q Tz`G `G TzZ\ Z\ QZG ZG G\ \ O\)p\ p\ O\)ELELO\)z{ z{ O\)@z@z\(CC\(II\(OOJ=qPpPpJ=qC C J=q@\@\J=qFEFELP^P^W =Y=qY=q                 zBREWERSGhZHKRKRs33LLZHNNfffMnMnfffT@T@gWLWLfff\ \ j=qZZn{iBiBo\)eeo\)f33f33}phhw =ccw =bbATTw =_O\_O\|(u@u@|(wO\wO\Dzw=w=@oo}pqzqz|(@@QFKFKC JS3JS3EGxRGxRDzHHUH33H33C J@J@AGKfKfAG~ =~ =R\FFC33FFEKKDzG]qG]q                 z DISTILLERSv( u@ @ u@q @q uG G uL L @Q Q @X# X# @Z=q Z=q @\Ǯ \Ǯ Ge8R e8R GhaH haH Gi i Gtp tp O\)o o O\)_Q _Q O\)^. ^. O\)s3 s3 Tz8R 8R W =M0M0W =KQKQW =LLW =OxROxR^R\\aGYYaGY3Y3hUUhU+U+k^xR^xRkbbpaO\aO\pT\)T\)pZ@Z@s33h(h(}prfrf}p{W {W                  z SOFT DRINKSJ B\O3 O3 B\Q Q B\L L AGJǮ JǮ AGQ= Q= AGOff Off AGO) O) AGK K @N N AGC C xQH H fffzp zp ffftQ tQ ffff f fffZ Z W =UQ UQ W =m( m( W =oz oz Tz@ @ Tzw w TzoR oR TzH( H( Tz`p `p W =\ \ W =P P W =I( I( W =H H QBu Bu O\)M( M( Go = o = B\G G B\K K B\Q Q ETf Tf                 zCEMENTF\ W =Q = Q = W =V V W =_ff _ff W =cG cG aGu33 u33 aGo o aGx x aGh h fffjH jH fffh = h = EmR mR O\)r r O\)@8R @8R O\)w = w = L]H ]H Qoff off Qm( m( Qoz oz Q@ @ Qw w QWR WR Qdp dp QmaH maH Qw w QqB qB Q_ _ Qb{ b{ QW W QY Y QJ J QS# S# QJ J TzG G \(z z                 zHEATING & PLUMBINGBmcd AGl\ l\ AGp p Gs s Krk rk EB\B\E  FffvQ vQ O\)q{ q{ Hzp zp Gn n Hh8R h8R QjǮ jǮ Kg g K] ] KV V Q_W _W Ku u LmH mH L@@Tzw w L|\) |\) LIQIQL[{[{TzXXO\)WWO\)NNO\)N:N:O\)DDO\)E3E3O\)s s O\)I{I{O\)SSPUUQQQ                 zROOFING & WALLBOARD9 EF\ffQ``\(eefffm =m =\(ttB\A A B\EQ EQ GH\) H\) aGIG IG W =W W aGU( U( aG^\ ^\ @k{ k{ po o pg g @QH QH LN N pfff fff @^ ^ @o33 o33 Tzy y @Bp Bp ENq Nq @a a Qk3 k3 E_( _( @Z\) Z\) B\Wp Wp YS{ S{ @I I @m m @PG PG TzZ( Z( Qh\ h\ TzfQ fQ                 zHOME FURNISHINGSdj= aGm3 m3 aGo\ o\ aGrQ rQ Q|G |G n{B+B+n{AAn{EEUGs3Gs3n{I I n{FW FW n{IJ=IJ=J=qJ:J:pC33C33p{ { s33f{ f{ Gd d s33r= r= um m uy = y = xQo o xQdaH daH xQj j xQu{ u{ Etu tu xQk( k( xQ` ` uY Y @Q Q uP P uO( O( uU. U. xQ^33 ^33 xQf = f = s33k\ k\                 z CHEMICALSSUE#Q]pZ{Z{]p``\(dJ=dJ=]ps0s0aGx5x5hlaHlaHhrrhr r pttpf{f{qj޸j޸xQ})})zH~~zHqqq}޸}޸s33FHFHtzT3T3tz_g_gtze)e)tzj\j\n{eeQA,)A,)O\)RRO\)CqHCqHTzs{s{Tza\a\S33lQlQS33A3A3UIqIqhAAhR=R=heqHeqH@vZ=vZ=~Ruu                 zBITUMINOUS COALEM uKH KH uL8R L8R O\)J J s33H\ H\ uN( N( uOf Of O\)R R pK\ K\ @U U @L L \(RB RB @Mff Mff @Q8R Q8R GI I hD = D = S33G{ G{ GI= I= GJ J hLQ LQ S33F F QF) F) QO O xQJB JB xQQ Q QM3 M3 QK\ K\ xQD= D= xQC C QC{ C{ Q~ ~ xQC C hEk Ek Tz_R _R Tz^. ^.                 z CONFECTIONERYJkz @m m @s{ s{ @r33 r33 @m m @r r @{ { @{ { @z z @B\ B\ @@f @f EJ J EO( O( GN. N. J=qP) P) O\)MW MW O\)G G O\)R3 R3 O\)U U O\)Wk Wk O\)O. O. QJW JW QU U QZ{ Z{ Tze33 e33 Tzc c Tza a TzeH eH Tz] = ] = TzY) Y) TzK K W =QB QB W =S S Y\z \z YO O                 zCONT - METAL & GLSSktzvJ=vJ=tzttq~~@vvzHzHzHzHz z zHwwzHssyzzC33r r C33ssC33xxDzxǮxǮAGjjDzb3b3DzcfcfEr&fr&fExxEvhvhEx#x#J=qs޸s޸EC{C{EPGPGKababKaHaHL(ZZMpUUN{LǮLǮMpJHJHN{j.j.MpHHPFLFLQGR)R)QGKK                 zCONTAINERS - PAPER. _ Qj j Qm m Qrff rff aGnp np Qz\ z\ Qv{ v{ QC C kA{ A{ ^RG\) G\) s33F F s33Pff Pff FffU{ U{ @X( X( @OR OR EF33 F33 `Q Q AGSG SG E\W \W Ebf bf E\ \ zHS\ S\ EbL bL EY Y Gt t LkQ kQ J=qY Y EY Y GaG aG Hf f HS S HQ\ Q\ J=qK K uU U uJ J                 zCOPPER8AJK:{k aG  c C=C=aGII@HH^RJW JW hJ&fJ&fhMMN{RT{RT{s33Y Y zHTaHTaHzH^{^{S33iiGggEcpcpB\\k\kHiiN{yyJ=qٚٚJ=qB/\B/\\(O\)ps3ps3O\)BPBPS33@@c CCXQ@k@kYCCYIHIHj=qRR]pLRLR]pAA`H@H@`NN^RUU^RVV                 zDRUGSin98GWU `\li=i=n{oon{nnb\r0r0urrtz|Y|YuG3G3|KYKYFffX'X'ITTHccxhhQG`S3`S3R\aGaGS RRzHYYXkkXv@v@\(@7 @7 BH}}`o|)o|)`{ { `ttAy)y)g =v5v5g =rHrHfffwqwqyzzfffzzfffaag =uu@B,)B,)lGGlJ'J'                 zEL HOUSEHOLD APPG`LLaGXXaG``|(aafffnunugq)q)qqqNRv3v3zH|(@=@=|(FFN{DDG =EqEqH@@HxxZHssHAGAGHB3B3HJJ]pH,H,KF0F0KPlPlKLfLfb\SǮSǮN{LqLqN{MKMKNROOhQMRMRNRPPNRB3B3QGOOj=q\\QccQm%m%                 zEL HOUSEHOLD APPXRpV%V%pb@b@pddui˅i˅ugYgYB\bbLllXQq/\q/\PuٚuٚQt8Rt8RQGGYWbWbTzixRixR^Rg g c bvfbvfkiiO\)Az=Az=fffLLfffOOeMMc }1}1qFT)FT)qI"=I"=qJJzHCHCHyA\A\zHLLC33IIHQ}}GRRGccG =hhJHC޸C޸JHDD                 z ELECTRONICSLs AA K)K) SRSR U5U5 gYgY bb ll q/\q/\ uٚuٚ t8Rt8R GG WbWb ixRixR g g  bvfbvf ii Az=Az= LL OO MM }1}1 FT)FT) I"=I"= JJ CHCH A\A\ LL II }} RR cc hhs33E3E3kDD                 zBLDG MAT COMPOSITEDS33EES33FaHFaHS33BBW =@Q@QW =yH yH W =z z XQy# y# XQr\ r\ XQwG wG XQq q XQnG nG XQkW kW XQ` ` XQ[p [p XQS S XQ]\) ]\) XQi i XQ` ` XQs{ s{ XQju ju `qf qf `PǮPǮhZ(Z(j=q\\\\b\O)O)b\IIb\O\)O\)b\M=M=b\Q\Q\g@@gJHJHgU@U@h\\uRHRH                 zFINANCE COMPANIESeXQppb\wwc zzev0v0kq8Rq8Rlqfqfpv@v@pqqxQ}G}G@AA@ELELAAHAHB\t3t3EeeDzRW RW DzhuhuEi^i^E[[EfcfcEb@b@EiiG{f{fHQEEHGffGffHQ@@HQzzG =E3E3G =|3|3FffCCA]]AuxRuxRACCB\M3M3C33JuJu                 z SMALL LOANm AGy8R y8R AG}B }B AGAAAGCCEH33H33EFFEHHEDDGHHGF+F+Fff|q |q Fff}) }) J=q|ff |ff Hj j Hh h HpR pR Ls s Lrff rff LzH zH Lmk mk PsB sB P~=q ~=q Px = x = P}8R }8R TzD\D\S33}\ }\ S33x x Tzw8R w8R TzCfCfTzi i Tzp= p= TzB33B33UBhBhU} }                 zFOOD - BISC BAKERSl = \(wQ wQ ^R@ @ J=q}Q }Q J=qwz wz J=qC C J=qCQ CQ J=qA A J=qBG BG J=qG G GAu Au J=qBQ BQ GEp Ep GKk Kk GC = C = Gx x G@ @ LXp Xp Le# e# Lw = w = J=qB\B\O\)n n J=qPPLNNB\XXB\zQ zQ GbaH baH `k `k Q Q |=q |=q N N Qb b Qg g zHT T zHDf Df                 zFOOD - BREAD & CAKEIn{Js3Js3pM+M+pS5S5pYYxQYYxQW W zHUnUnxQXRXRAGQQB\PPEQJ=QJ=EVVHN#N#J=qI#I#K8R 8R KCnCnKDDLG{G{LV@V@N{RxRRxRN{JhJhN{[xR[xRN{UUO\)YYTzRuRuTzMfMfS33P P TzT5T5TzUUTzBO\BO\UI5I5UPHPHUUJ=UJ=UX33X33                 z FOOD - CANNEDup kwL wL kBs3Bs3kBǮBǮzHFpFps33JJs33GGs33AAu|{ |{ p~=q ~=q px=q x=q xQ} } u@)@)xQq q xQn n C ]Ǯ ]Ǯ @pǮ pǮ @sQ sQ @dq dq C h33 h33 @_) _) @Y\ Y\ @] ] @i i @f33 f33 @\ \ @X X @U{ U{ @Np Np @T\ T\ @G G @G G @RL RL AGU U AGS S                 zFOOD CORN REFINERSv=q xQ{) {) @Q Q @@{@{@AA@FFENT{NT{EOOJ=qUBUBJ=qXXLW3W3LYxRYxRLUpUpS33S5S5S33J33J33S33BffBffS33Gs3Gs3S33HfHfTzMMYS3S3XQKKXQHH]pX)X)\(UHUH\(Y3Y3`TTaGW33W33`QQ`LL`MT{MT{`{q {q `G{G{`Q{Q{eTٚTٚeV V                  zFOOD - DAIRY PRODBmcj uo o ulG lG ue e up p @y = y = @A{ A{ @Bk Bk EG G J=qFff Fff J=qp p J=qsG sG J=qAaH AaH J=qDq Dq J=qx x J=q`{ `{ J=qm m W =G G fffI( I( fffL\) L\) fffUp Up fffH. H. J=qW W J=qXR XR uh h u` ` uW W uQ Q uR R uTp Tp uG G uI I @V V khG hG kfq fq                 zFOOD - MEAT PACKING9 EFJEuOO@RzRzAGW{W{EY\)Y\)AGZ{Z{AGZZE^\)^\)KZW ZW Fff^W ^W Fff[J=[J=G]]N{X&fX&fLPQPQLIRIRN{F@F@N{J{J{O\)O\O\TzQ޸Q޸TzUUUN^N^W =LLW =[ [ W =\(\(]p]G]GZHWkWkZHZ=Z=\(X)X)\(a)a)]pbb`U U `YǮYǮb\ddgeEeEg_޸_޸                 zFOOD - PACKAGEDdNff W =\=q \=q W =Y=q Y=q W =Zff Zff W =Y Y W =^z ^z W =Yz Yz W =h\) h\) pA3 A3 W ={ { W =t t W =v\ v\ pm m \(tQ tQ \(@\ @\ \(33 33 aGJ{J{B\k k B\yQ yQ B\|H |H LO O B\[ [ B\b b B\_ _ Ggff gff B\e e B\Nu Nu B\Lp Lp Gb b B\y y QE E fffD D QCk Ck pS S W =Gp Gp                 z GOLD MININGE#BHpNRNRpSGSGpZQZQ\(gGgGB\w w G{{W =~~p~H~HW =C C W =x=qx=qfffCp Cp EF F kD D k3333kuuGopopkw w kwGwGk@ @ @v=qv=qaGvHvHfff~Q~QfffB B B\Sp Sp fffWG WG fffN N uTff Tff W =W W @P P @~{~{@B = B = @~~EFz Fz Qy33y33                 z LEAD & ZINCSEk @t t @@{ @{ @u{ u{ s33}ff }ff @J( J( GMW MW GPu Pu n{Eff Eff J=qP P O\)D D fffX\ X\ N{dQ dQ Ydff dff YTk Tk @G G QL L hn n hAAs33I8RI8RXQFRFRzHu u @G)G)@AAUI I HDDHu{ u{ Hn n H_8R _8R He e zHA A hH H zHN N W =Zp Zp TzR = R =                 z MACHINE TOOLSJt=q QD{ D{ QF F TzD D fffJW JW ^RW W aGbǮ bǮ ^Rc c zH\f \f hd d hX{ X{ fff_f _f uq q zH@h@hxQ|. |. xQd= d= C h h @o o @i i @gf gf @Xq Xq @Pu Pu @W) W) @Z Z @d8R d8R @XR XR @Mk Mk @FǮ FǮ @FW FW @J33 J33 @m m B\x x C D D pF F aGF F                 zAGRICULTURAL MACHV\]p\޸\޸hm m gnJ=nJ=pxJ=xJ=j=qJXRJXRC QQDzVǮVǮMp`H`HR\a\)a\)TzccUk)k)c33vvdzoj=oj=fffeBeBfffTj=Tj=pTRTRgkkj=qllhw%w%lj:j:j=q\\j=qc=c=j=qqqj=qn n l{{ly'y'mpn*=n*=mph h jHm{m{jHRHRHjHZhZhjHkkhvvuzz                 zCONS & MAT HANDLING h N{pq pq O\){ { Pxp xp @|= |= QEEhDD\(EEEEeC\)C\)aGHHeGGc NT{NT{fffYYfffS{S{kKKk{ { lDDpSRSRpX)X)qe\e\hZZn{TzTzpaao\)__kizizpb)b)xQRRqPPqGzGzqO)O)w ={ { pH{H{pOfOfq]]zHb}qb}q                 zINDUSTRIAL MACH.:w. Tzw = w = Tzzq zq Uy( y( U}H }H UG3G3YNN\(T(T(eSLSLW =^^\(Y(Y(\(]]aGiuiukqqpkkpY@Y@p]^]^ummw =D:D:w =HHxQH H zHL,L,@]W ]W @``@nnG =k3k3HQjjFffp p FffbbFffR\R\GJJGY˅Y˅GfqfqH}\}\HHH                 zOIL WELL EQUIPMENT ]( @aH aH @az az @[G [G @]\ ]\ @_ = _ = @g{ g{ @gR gR B\fff fff B\hG hG Ec c Er\) r\) G}\) }\) Tzw( w( J=qk k J=q[\) [\) J=q[H [H Lu{ u{ L} } LF F O\)A A O\)u u O\)H H O\)K K QO O QL L Q@ @ QwH wH Qx x Q~G ~G Qk k Q}=q }=q QD D TzM M O\)N N                 zSPECIALTY MACHINERY`tzdJ=dJ=qkckcn{ggo\)h=h=|(u.u.|(y@y@@D)D)@CCEMUMUED D GRRL(]]PPYPYPL=L=XQBB]pNN^{hUhU^RvffvffaGweweaGk@k@aG]Ф]ФdzkGkGdzXXj=q]Ǯ]ǮdzT'T'c H/\H/\c33EEhPqPqeXfXfDz{ ={ =DzNfNfDzVVEkkHQ~3~3                 zSTEAM GEN EQPMNTO AG[ [ @kǮ kǮ @t=q t=q KxR xR GCcCcKBaHBaHO\)D@D@XQMM\(U:U:b\UW UW b\ccj=qx5x5lB{B{yBQBQ@q+q+LBǮBǮC33U@U@G =^ٚ^ٚL(``N{U3U3N{PPL(YHYHL(U3U3L(SSL(GbGbL(}}C33qYqYC33r&fr&fB\ooB\FnFn|(ZZ|(g{g{}pvLvL}pii                 zMETAL FABRICATINGK^S{ \(UL UL ^RZ Z ^R] ] @a\ a\ kkQ kQ kr\ r\ k{R {R b\u u @|B |B @x{ x{ FffBYBYkCCHHJ=HJ=HAAJ=qs s W =# # KCCKI0I0GNNS33PxRPxRC KKFffQfQfKKKS33SSQHHQCCS33C\)C\)QMMS33QRQRS33AhAhS33IIlLL^RL\L\]pEE                 zMETAL MISCELLANEOUSO\) W =W{ W{ Tz[ [ EY\ Y\ EW W EWp Wp Q_f _f QnH nH Qd d Qlf lf Qc\ c\ Qlf lf \(H H s33AA\(@{@{@B#B#YOOEcٚcٚFffHCCUDYDYZHx\x\`GAHGAH`J.J.`G9G9]p~ ~ @cT{cT{B\dHdHB\PxRPxRB\NYNYB\OR OR Gt\ t\ Gh = h = LKEKELxq xq                 zMOTION PICTURESH\qB\``Ad)d)@i%i%N{v)v)MpBB]pEvfEvf]p@@]px{x{j=qCXCXl(DDZHLLkNffNffj=qSMSMyTTxQJҏJҏwTTwkָkָzHwVfwVf}p{\ {\ ~{T T HO=O=HGHGHJ=q|O\|O\J=qQQQQXJqJqVffcffcffhQ+Q+hVVxeeyGpqpqxQ`. `. yooAGO73O73ApII                 zOFFICE EQUIPMENTH*=aGTTlYYk\\hXX`^^lf0f0n{l˅l˅@iW iW @ee@XX@ffHcqcqI^U^UJ=qccMpVO\VO\Q^^S33l`l`S33ffS33jw jw Uj5j5Ud}qd}qUvvTzzzUHФHФ`KK[DDEvvHQ^^HQWFfWFfHWWHpǮpǮJ=q@@JHNNJ=qSHSH                 zCRUDE OIL PRODUCERSv FffL L ED{D{HGnGnHG#G#KG^G^KM8RM8RQRRYWWXQVfVfYY@Y@XQbb```b\\\c _Ǯ_Ǯc `5`5ecncnujjlooo\)ttn{rr@kkutctcw =xQFO\FO\@@=@=w =}8R}8RuoQoQu\J=\J=B\T+T+w =KKw =Z5Z5w =auauC jjxQkRkR                 zDOMESTIC INTEG OILS c\xQj=j=|(ococzHt t FffuuAG}}AGBBDzD(D(NRGGG =@1@1FffHQCZCZUCCMp|&f|&fL(ttMpp{p{Uu=u=PwwS33rrQ33^RAfAfW =@C@CWA)A)[IIdzL3L3^{MMaGIO\IO\`A\A\assaixRixRkc^c^mpww\AAWCfCflB0B0                 zINTNTNL INTEG OILSHO\W =NRNRW =OOWYYXW˅W˅XVV\(TT^R[[^RTФTФ^{W5W5^RQQ^RTfTfdzWWaV{V{aM@M@aEhEhgG!HG!HkPZPZjHP1P1kN=N=kMMkG!HG!HkTTl(\w \w pb{b{pggs bbtzbbtzb!Hb!Htz]q]quLaHLaHuW1W1qGUpUpq[[qX!HX!H                 zPAPER&9YSECRETu p#AGs0s0AG~~@CCq} } C JJYPt{Pt{aGS`S``W3W3pdqdqueetzsYsY`EHEHAGDxDx@FFAA#A#jHIIIIE[f[fEXXC ZSZSnRUXRUXRHNj=Nj=JH]]PWW WW qV.V.PN=N=NREEPA)A)qG{`{`NRffNRxxNRTTN{^^L(k\k\JHgpgp                 z PUBLISHINGBARBIEdqyJ=yJ=qCKCKn{SSC SSI\@\@GgfgfHa)a)Y__W =\\VffW]qW]qWa@a@XQspsp[||Z=qAHRAHRZH||`JxJx`SS`N{N{]pQ%Q%^RF>F>^R|ٚ|ٚ`NN`LLc33OHOHaHd{Hd{c EEc {"{"eA5A5g|R|Rg =J J g =[[hQ\q\qh}=}=hFF                 zRADIO & TV BRDCSTRSepe e s33vvpsJ=sJ=b\BeBeAGHHB\zٚzٚB\x:x:o\)uzuzO\)IIPJfJfPififHC(RC(RgZZw =MAMAw =@K@KahEhEAGoFfoFfAGyy|(C C N{uu|(wj=wj=C33@@B\CCYBBLv=v=LllLssK`=`=K]q]qKttKPPK[)[)L(ssLC0C0                 zRADIO & TV MFRSOU33 @`G `G @h h @d\ d\ B\l l B\x\) x\) Gy = y = LB\ B\ fffA A \(H H ^RB B c If If fffO O fffPH PH pM M n{@ @ p~{ ~{ pL L s33Q Q pN N pJu Ju pI I pX X s33S3 S3 ub b xQX{ X{ xQMff Mff xQHp Hp xQI( I( xQM( M( xQs{ s{ uBu Bu pEQ EQ aGLaH LaH aGR R                 zRAILROAD EQUIPMENTjejW AGkaH kaH AGz z EAAPMMG\\FffVs3Vs3N{^^b\efefS33qqYkkYu&fu&fhscscZHk3k3ZHf(f(`FBFBo\)FF`UٚUٚZHP(P(ZH`=`=ZHZZZHO)O)ZHSSZHgggj j `aaHaaH````bHbHgXaHXaH`W3W3`PYPY]pVVhbubu^Rm m ^Rss                 zTEXTILES SYNTHETICt p p uff uff BǮ BǮ Ck Ck xR xR E E Mp Mp N N [ [ P= P= Y Y SR SR P P DB DB v{ v{ q\) q\) E# E# M M QB QB ^H ^H Wp Wp _ _ ` ` `f `f a a X X QH QH B B pQ pQ C C ^ ^ lQ lQ Fz Fz C = C =                 zDISCOUNT STORESN:j=qRRPRaHRaHS33XRXRTz\n\nkeeTzkkXQxxZHJ=J=pBqBqc A A c AhAhfffzHs s ksslh)h)n{dudu@n=n=qxHxHqCs3Cs3qCqCq@D33D33uM"M"w =M\M\@L)L)@a a @X X @QH QH @B B @II@qq@FF@OqOqAG]]AG`H`H                 zDEPARTMENT STORESs aG  AGCCB\D D C ~ ~ Y{ { EGGEH!HH!HGK{K{\(LLGI=I=HFFJ=qBaHBaH`y y J=qs s Kk k KdQ dQ `p p N{f f N{lk lk N{eH eH `q q N{u{ u{ N{B)B)N{CnCnO\)| | O\)}{ }{ Px# x# Pr33 r33 Pw w O\)l=q l=q O\)z z S33C8RC8RTzLLTzH)H)                 z FOOD STORESYauaHaHun n u{{o\)xxB\@@B\FPFPAGJJ}pO.O.KNNPRRQNN|(M{M{PE!HE!HPCCPyyEn޸n޸P})})PBo\Bo\PCCEFYFYPJJ`UU`TTEMM`UAHUAH`V V `Vo\Vo\ESS`RRb\D=D=b\UHUHG])])c h#h#s33kk                 z MAIL ORDERb N@`F = \(J J \(G G \(JG JG aGJ J \(M M aGX33 X33 aGa a aG_=q _=q ffffp fp fffi i fffn{ n{ fffzG zG pnR nR pj( j( pb( b( pY Y ppp pp uA A uI I uJ=q J=q @G G @W W @`{ `{ B\d d Eck ck Ln n Lz\ z\ Lw( w( Ll3 l3 LSff Sff Ll) l) Ly y O\)P=P=QVBVB                 zVARIETY STORESW s33^ ^ s33YaH YaH B\V( V( `Q{ Q{ s33S S \(R R s33Z Z ]p^Q ^Q h`R `R k[L [L Fff`33 `33 lh h @f\ f\ @[ [ @I\ I\ W =F G) @Uf Uf @\G \G @XR XR @S S Ffff\ f\ Hh) h) Hs s `wk wk Yt. t. Yl( l( AGo o AGy{ y{ @TTKCfCfN{nf nf N{qG qG                       z SHIPBUILDING9 EFG) @Uf Uf @\G \G @XR XR @S S Ffff\ f\ Hh) h) Hs s `wk wk Yt. t. Yl( l( AGo o AGy{ y{ @TTKCfCfN{nf nf N{qG qG N{DW DW O\)@@O\)LLxQWGWGxQS5S5W =]]VnVnU@U@MhMh~L ~L g g MG MG CR CR Sff Sff l) l) y y                       zSHIPPING>VsQ{ fffS S fffQR QR fffOH OH fffQ Q aGQ\) Q\) aGY Y aGa\) a\) aGbff bff kl l kj j ks s uuH uH @q( q( @i i @a a EdH dH G~\ ~\ G@\) @\) GN3 N3 L[q [q QW\) W\) W =pp pp W =t = t = \(u u \(hW hW \(] ] ^RS S ^ROR OR aGV\ V\ fffDp Dp fffQ\ Q\ h`u `u krB rB ks s                 zSHOES4MDCVGK^MFffTffTffHWWu^@^@B\]]xQaaO\)`xR`xRO\)cǮcǮAG``C YYUYQYQUVRVRUO3O3XQJO\JO\QD{D{LJhJhKKKUU)U)N{Ys3Ys3N{ddQbfbfW =_^_^W =i i XQgg\(b)b)`^^`_O\_O\`gT{gT{aGnLnL`jj@[=[=O\)g\g\xQq =q =Qy.y.AGBB                 zSOAPS4GATECHc N{k# k# N{maH maH N{{Q {Q O\)z. z. PF=F=PE\)E\)PIIP}k }k QAAPy= y= Q~ ~ S33BBS33y y S33m m S33^L ^L fff`Q `Q \(tq tq ZHlQ lQ ZHw{ w{ ZHiu iu \(aL aL \(jW jW ]pnǮ nǮ \(u u \(u u `m m `c c `[G [G `_ _ ]pK K b\N N \(Q Q O\)Q Q S33Oq Oq                 zSTEELO5%MHOHROJ=q GW W \(cG cG aGs s @k k Q` ` fffX33 X33 fffQ{ Q{ B\OQ OQ TzV\ V\ pT\ T\ pUQ UQ Tz\z \z W =Z Z @Y33 Y33 @SH SH J=qQ33 Q33 YdQ dQ B\s( s( B\x x W =p\ p\ B\rH rH B\}{ }{ B\G = G = QU\ U\ ED D E} } Ep p Eh\ h\ EM{ M{ E} =} =EQ Q EVQ VQ pZ Z pY Y                 zSUGAR BEET REFINERS  W W cG cG s s k k ` ` X33 X33 Q{ Q{ OQ OQ V\ V\ T\ T\ UQ UQ \z \z Z Z Y33 Y33 SH SH Q33 Q33 dQ dQ s( s( x x p\ p\ rH rH }{ }{ G = G = U\ U\ D D } } p p h\ h\ M{ M{ } =} = Q Q VQ VQ LH8RH8RLFF                 zFOOD COMPOSITETOXff Qq q pv v Hv v XQgL gL N{` ` pQ Q pS S uX= X= uZ Z @\ \ Gof of G} } S33ExRExRUt8R t8R Ug = g = Tze\) e\) hx{ x{ e@ٚ@ٚeFFe~ ~ fffz z eG(G(`JEJE\(LRLRs33EfEfs33{ { s33r{ r{ s33j=q j=q s33qQ qQ s33hp hp s33EEyPPzH^^zHX!HX!H                 zSUGAR CANE REFINERS Q\) pV\ V\ pY Y p`H `H pB. B. pG33 G33 ueG eG u} } ut t J=qGGJ=qw w GJLJLGY3Y3Qo^o^Qf0f0QW@W@aGffaGvvaGByBypT,T,pMRMRzHECECLDDLg\g\LttQ_(_(XQMMXQLaHLaHXQ{W {W XQr = r = @S S @d d @e e AGz z s33xB xB                 zSULPHUR9EROSU = J=qVH VH GYǮ YǮ G] ] k_R _R J=q[{ [{ O\)\ \ Qbq bq \(f f aGyu yu c s3 s3 c A.A.kFFhJJhDs3Ds3hv v hpaH paH Yr8R r8R Yrk rk YARAR\(CzCz\(D D \(TuTu\(WWc UUc L5L5c GGc p p c B@B@Yv v YO3 O3 Yj8R j8R Ytff tff aG@\)@\)aG| |                 zTEXTILE APP MFRSu  ^RH( H( aGO. O. ^RVW VW h_ _ hd d hg g hrB rB xQ@ @ @D3D3@FLFLKRfRfN{_p_pPbbS33URURZHE)E)]pz z ]pH\H\]pE!HE!H`Ts3Ts3`MuMu]pP&fP&f]pW\W\e\aH\aHY^^fffOOgI&fI&feFFb\@^@^aGG{G{]px x ]pE(E(]pOO\OO\^RPPW =B\B\                 zTEXTILE PRODUCTSFNRHqHqN{KKNRT%T%N{TeTeQG^^UY9Y9Wb5b5W__WkkXQczczZHeheh]pdd^{]{]{^Ri\i\c33ggeb\b\egǮgǮea\a\eqqqqewwejjg{3{3mpA=A=pA>A>qGAqHAqHw|Ф|Фwuuwuuwiqiqw\\whhpsspqCqCpy\y\                 z TIRE & RUBBERT{{ YB3 B3 Yx\) x\) Yv( v( ^R|ff |ff ^R{ = { = aGA A ^RDW DW ^R| | ^R@ @ ^RA A aGFq Fq fffD8R D8R hBp Bp hz z hr=q r=q ht\) t\) hD33 D33 hD D hB{ B{ n{DB DB n{B= B= s33J J s33Hp Hp uS S xQM= M= zHG3 G3 zHIǮ IǮ @QaH QaH AGK = K = @Q Q @Rk Rk B\h{ h{ C |# |# C s s                 zCIGARETTE MFRSRP0PWWP^\^\Pl l ujj]pGGYY{Y{uS\)S\)n{FQFQC33HHltxRtxRhp!Hp!Hhe e @\\gBBgm m ggu gu j=q@@gzp zp gK{K{yFFyQQ|(kkzH__|(tt|(a&fa&f|(WW|(EE|(@Q@QzH\\ gfgf Rk Rk h{ h{                       z CIGAR MFRSEjeS kR R kN3 N3 n{O) O) kN{ N{ kJ J uL) L) uM M uT = T = ue e uW W kaaH aaH pr\ r\ pDDpAApo33 o33 zHp\ p\ zHm m zHs s zHDEDEzHz{ z{ zHh h zHt( t( zHoH oH zHBBzHCCzHy) y) zHn n zHFFzHGG gfgf Rk Rk h{ h{                       zVEGETABLE OILSW V V cQ cQ O O M M K K H( H( Q Q [z [z f f b = b = w w BR BR LE E Q~ ~ Qk k Qv\ v\ W =GQ GQ W =I( I( W =MB MB W =M = M = W =J{ J{ W =`ff `ff W =^k ^k W =g g \(Y Y LQ) Q) LV V LW W LMQ MQ LmG mG QHk Hk QR = R = Q]\ ]\ QbH bH                 zVENDING MACHINES` e=q e=q e\) e\) fffh\ h\ kg g khk hk kj j n{r r psf sf ux x urf rf xQu u zHs3 s3 @iL iL @e e @`ff `ff AGjH jH B\j= j= C c c Ecp cp Ec\) c\) Fff\ \ FfffB fB Gb b GgH gH Hc\ c\ H] ] HVB VB J=qUG UG KY\) Y\) KG = G = KN{ N{ LZH ZH N{\ \ N{X X                 zELECTRIC COMPANIESB E!HE!H HHTzIEIEUGHGHW =ExRExRXQGGYJ)J)YMM\(PhPh\(KK]pL=L=`IRIRaGEQEQc }R }R c xB xB h{H {H j=q  k|B |B kBfBfl| | o\)z z pCCpCCpG\G\s33CkCks33|G |G s33u u s33pH pH tz@h@huo o w =AAyE3E3|(FRFR}pC}qC}q                 zNATURAL GAS DISTH NN RzRzgP=P=hOW OW kO\O\kQQn{UUn{Y^Y^n{]]s33WGWGs33Y)Y)tzYT{YT{u[f[fuWT{WT{xQNNB\UUB\XXC33V^V^Ea.a.Fff]]G =[J=[J=G =h:h:GkkJ=qvvJ=qi0i0J=q]]J=qU\U\J=qYYJ=qb\)b\)EZJ=ZJ=FffiBiBGrRrRHs\s\HQoo                 z PIPELINESb N@`h n = n = m m ffft\ t\ fff  p  p@ff @ff p~G ~G p|H |H p{ff {ff p}\ }\ p=q =q @u u @k( k( @j j @b b @hff hff @u u @qG qG @e{ e{ Eb = b = E_\) _\) Ed d EeG eG Ee\) e\) EbR bR Ee33 e33 E`\) `\) J=qZ Z J=qcz cz J=qM M J=qTG TG J=q\ \ L\p \p LW=q W=q                 z TELEPHONEEff H = H = G G GK K GI I J=qM. M. J=qMǮ MǮ J=qUu Uu J=qP P O\)M3 M3 O\)I I O\)Q Q TzJ\ J\ O\)C) C) TzAL AL Tzt t TzGk Gk TzHff Hff W =Eq Eq YL= L= \(F F \(K K ^RZff Zff aG_ _ fffc{ c{ fff^k ^k hU U kY=q Y=q n{Y\) Y\) n{_\ _\ n{Q Q pYf Yf u] ] zHfG fG zHW. W.                 zBANKS - NEW YORK9 EFCR IkIk J=J=AGL\)L\)EKHKHELLELffLffFffNffNffGKٚKٚHF@F@GCCHIW IW J=qEuEuJ=qR R L| | Lq( q( N{CCPBEBES33k k S33D3D3UAxRAxRUFFUQ&fQ&fUV+V+Y` ` `^^`S\)S\)c U#U#eS@S@eRReE{E{fffO\O\j=qR33R33k[[kT(T(                 zBANKS - OUTSIDE NY>Vsv=q }f }f | | 3 3 @@ LL LffLff NffNff KٚKٚ F@F@ CC IW IW  EuEu R R | | q( q( CC BEBE k k D3D3 AxRAxR FF Q&fQ&f V+V+ ` `  ^^ S\)S\) U#U# S@S@ RR E{E{ O\O\ R33R33QGA =A =\@@                 z OIL COMPOSITEDGK^  }f }f | | 3 3 @@ BB CC D@D@ AxRAxR CC z z w w CC ~# ~# {G {G x# x# FJ=FJ= @)@) |{ |{ y y q q iq iq K+K+ YY c&fc&f VV KcKc PHPH SS UJ=UJ= CǮCǮ PhPh ]\]\ g޸g޸ yy                 zINSUR. FIRE & CASHA\ GXGX MM QQ OO UqUq WW V1V1 LRLR KK FF J{J{ MM @33@33 s5s5 bnbn w\w\ vǮvǮ ww tt l l  cEcE {U{U ٚٚ EE BuBu uu ФФ xx {33{33 KRKR UU [%[% gg gg                 zINSURANCE - LIFEn33 s s vff vff z\) z\) z{ z{ w w x x }\ }\ ~# ~# ~=q ~=q xR xR AA BB }\ }\ ~R ~R r3 r3 y y @3@3 BB JJ R!HR!H KK UU W!HW!H _)_) U)U) SS PP OǮOǮ HLHL o o @@@@ AxRAxR DD @@                 zINV. COMPANIESE H H F= F= G G A A @H @H zR zR B\|{ |{ GA A GI I GC( C( QK K QR R Q[ [ \(]{ ]{ aGTq Tq aG]. ]. kr{ r{ k{. {. kAApN^N^@FF@O O @KK@HaHHaHB\M@M@B\RٚRٚB\XXE^^J=q[z[zO\)L=L=O\)RRO\)\ \ Qee\(nknk                 z COSMETICSPUERTO} c xf xf c A3A3c D#D#n{JJn{J J n{C\C\pKs3Ks3zHNNpTzTzpRnRn@ffC hRhRB\fYfYB\ccB\RLRLuW+W+xQ__xQaazHvvzHnYnYC ^^AGcc@e e AGf.f.AG__AG] ] AG\\B\UUB\R\R\B\@h@hB\MzMzC SHSHEffGnn                 z ELECTRONICSPPLY F T T O O Sp Sp L( L( Z Z CH CH }}hhc33c33N(N(ff]\)]\)FFr\r\g =g =EpEpllYGYGu u _G_GzRzRJR JR a a W W d33 d33 X X d\ d\ NR NR UG UG B B R R ^( ^( i = i = \ \                 zHOLDING COMPANIESp @Q @Q C C }} yy F F K K N( N( Q( Q( bH bH _( _( m=q m=q =q =q | | } = } = ^p ^p \ \ nR nR   E\ E\ I I If If QL QL Rp Rp e e _ _ M M K{ K{ F F Cff Cff b=q b=q @Ǯ @Ǯ Sf Sf c c kǮ kǮ                 zTRUCKERS9YSECRETu cM/dcKdcGdc5dc8dc9dc'+dc$dcdcdc /dc1dbJdbdbdbadbԜdcdc dbdb:dbdbJdbdbxdbdbpdbedb dbm/dbydbdbdc0!db}dbdc d         z90-DAY TR. BILLSGPQS  'X s33Z@ Z@ s33a a s33d@ d@ s33m m s33p p s33m@ m@ s33k k s33g@ g@ yqy o@ ya a ya a yb@ b@ yZE X yM M yE E yB B yR) P yK K yW W yP P yE E yF F yF F LH H L{ { Lr r Lk k La a L_ _ LD D LN N L` ` Lj j L@@                  zALLIED CH (ACD)dm@ Li i L@ @ LAALDDLLLLGGLAAL{ { YAAYGGYDDYLLYUUfffRRfffGGfffN`N`fffU@U@s33SSs33SSs33PPs33CCs33C@C@s33IIs33IIs33LLs33GGs33EEs33G@G@s33FFs33e e s33d d s33r r s33} } s33{                  zALUMINUM CO. (AA)#u `y y `r r `m m `r r fffB B fff~ ~ fffF F fffB@ B@ fffG@ G@ fffH H lN N lM@ M@ s33H@ H@ s33C@ C@ s33x x s33{ { s33F@ F@ s33@ @ s33B@ B@ s33@@ @@ s33z z yF F yB B yK K @J J @C C @E E @G G C33B B HQG G C33K K C33Z@ Z@ Fffb b Fff[                  zAMER. BRANDS (AMB)[ @Y@ Y@ @\ \ @[ [ @W@ W@ @T T @^ ^ @X@ X@ @V V @X X @Z Z @j j @o@ o@ Fffk k Fffk k Fff` ` Fff^ ^ Fffl l Ffft@ t@ Fffo o Fffg g Fffb b Fffd d Fffb@ b@ Fffr r Fffp p Fffc c Fffa a FffQ Q FffP P FffH H FffP P FffO O FffY Y FffG@                  zAMER. CAN (AC)ts33y y s33xxs33s33EE@EpEp@II@DD@D@D@@B`B`@C`C`@CCFffy y Fffp p Fffn n Ffff f Fffn n Fffx x Fffr r Fffg g Ld d Lc c Ld d Li i Lj j Lg@ g@ Ll l Ld d S33a@ a@ S33i i S33S R S33Z Z S33a a S33a a S33[@                  z A.T.T. (T)JSBVQ @Y Y @d d @` ` @] ] @\ \ @Y Y @k k @h h `z z @y y @JJ@PP@W`W`@S@S@PGGpPP@S@S@P_@_@ Pa a P^ ^ `S S Pf f Pc c P@@Ph@ h@ P| | yl l yx x yt t y` ` yW W yT T @Z Z @K                  z ANACONDA (A)BAY. r `y y `{ { `~ ~ `{ { `L L `I@ I@ `Q Q `F@ F@ `K K `F F `K@ K@ `P P `F F `@ @ `s s Vffu u `H H `@ @ `J@ J@ `A@ A@ fffq q fffx x fff} } fff} } fffB B s33@ @ s33q q s33l l s33r r s33X X s33W W s33[ [ LV V L]                  zBETH. STEEL (BS):I`@\ \ @~~ @S@S@@S@S@@XX @a@ a@ @} } @~G z @l@ l@ @^ \ @f f @j j @c c @N N @F@ F@ @{ { @N N @S S @j j @p p @t t @~ ~ @EE@p p @l l @] ] @K K @D D Lo o LH H Lk k Lp p Lj j Ln                  zCHRYSLER CORP. (C) w`xx`zz`zzhCw`AA`~~`DDXZTxpPuuPuuPx@x@HwwPggP]]PNN@GGPK@K@PK K PX`X`PO@O@PK`K`POOPUUpRRPKKPAAPss`iiPaaPqqPvvPBBPE@E@PE                  z DUPONT (DD)zAIRElFffrrFffmmFffp@p@yysFff@@FffBBFffBBVffE@E@LJ`J`YOOYddfffu`u`YzzY@@@@fffo@o@yfffIIfffBBfffB`B`s33JJfffFFpO@O@pPP@I@I@pFF@KK@IIC R`R`@M`M`@  @AAHKK@NN@M`                  zEASTMAN KODAK (EK)L@JJ@OO@O`O`FffW W FffW@W@FffOOFffY`Y`Fff]@]@FffccFff__S33uuS33vvS33mmS33j j S33UUS33XXS33TTS33VVS33p p S33``S33V`V`S33V@V@S33U@U@S33]]S33\@\@S33ZZS33UUS33MMS33IIS33CCS33T`T`S33]]S33ppYy                  zGEN'L ELECTRIC (GE)Ns33PP@RR@VV@YY@Z@Z@@WW@ZZ@PP@QQ@NN@S@S@FffRRFffJJFffCCFffA@A@FffGGFffKKLL`L`LJJLEELEELYYLUULQQS33NNS33QQS33HHS33S S S33TTS33IIS33M`M`S33WWYSS YJ                  zGEN'L FOODS (GF)t@ @AA@F@F@@KK@NNS33P P IWWS33c@c@@aa`dd`__`iiHggl]]VffPPlJJ`AAlL@L@lLLlWWPRRlJJFffP@P@lSS`O O lQQFffMMlI`I``E E lJ`J`l|@ |@ lH H lPPlRRlO                   zGEN'L MOTORS (GM)A@ @B@ B@ @E@ E@ @M M @R R @[ [ IU U I^ ^ IZ Z Ii i Id d Pb b P_ _ PY Y Pe e Vff^ ^ VffS S Vff\ \ VffW@ W@ Vffb b Vffl l Vff_ _ Vffm m `t t `p p `x x lu u ln n l{ { ll l lb b ll l l  lz z lB@                  zGOODYEAR TIRE (GT)c Lo o Ls s Lp p Lx x YE E YRRYSSYKK`O@O@`II `L L `[ [ s33c c s33Z Z s33H H s33E E s33J J s33O O s33J J s33G G s33~ ~ s33@@ @@ s33G G s33J J s33C C s33x x s33h h s33c c s33r r s33\ \ s33] ] s33n n s33n n Yn                  zINT HARVESTER (HR)} @v v @{ { @~ ~ `DDFffKKFffNNFffU`U`FffTTPUUPSSY\\FffZ@Z@Y``YXXYMMYYYY[@[@Y\\Ykks33u@u@Yj@j@`f@f@`^K YN N LI I LI@ I@ LI@ I@ LW W L[ [ LL L LU U @Z Z fffX X fffK                  zINT'L NICKEL (N)^k C33z z C33z z C33E E C33A @@ C33@ @ L  LH H LA A LB@ B@ Ly y Lz z Y{ { Ly y Lm m Lc c Vffe e Vffo o Vffu u Vffn n Vff{ { Vffo o VffC@ C@ VffH H `K@ K@ `U@ U@ `M M `K K `J@ J@ `F F `z z `G@ G@ `F F `I I `F@                  zINT'L PAPER (IP)V @\ \ @_@ _@ @` ` @a a @y y @s@ s@ @l l @k k @y y @q@ q@ @j@ j@ Fffn n Fffl l Fffe e Fff_ _ Fff`@ `@ Fffs s Fffg g Fff| | Fffm m Fffu u Fff@`@`FffK@K@FffW@W@LS S LEE LC C Lx x LD D L{ { LF F LQ Q LU U LM                  zJOHNS-MANVILLE (JM)IPQQPR@R@PU@U@PUUP``PbbPllPhhVffuuVffmm Vfft t Vff~ ~ Vffu u Vff@@@@VffAAVffl l Vffy y Vffh h Vffr r Vffs s Vffb b Vffx x VffEEVffGGVffHHVffCCVffF@F@Vff| | Vffm@ m@ VffU U Vff_ _ Vffr r Vffy y Vffm                  zOWENS-ILL. (OI)G@fffJJfffKKfffOOfffOOpTTpRRpTTpQQvffIIvffH@H@vffGGvffE`E`@BB@@@@@@GG@IIFffT T FffVVFff]]Fff\@\@LW@W@L\\LW`W`LVVS33V`V`S33YYS33aaS33mmS33mmY^^ Yi i Yt t Y| | Y@                  zPROCTER & GMBL (PG)MYMMYY@Y@Yc@c@Yaafffiifffuufffzzfff@@s33@@@D D @@ @ fffBB@q q @n n @d d s33Y@ Y@ @f@ f@ @n n @o o s33r r @{ { LFFLEEs33| | LEELE@E@LEEs33DDLDDLo@ o@ LE@E@s33L@L@LSSYV                  zSEARS, ROEBUCK (S) ~ @BB@@@@@@@w w @y y @C@`@@`@`FffI`I`FffEEFffD@D@FffL`L`POOPI I P@@Pw w P~C: x@ Pw w Po o Pz z P} } Vffx x Vff{@ {@ VffB`B`VffH H YGDYCCYp p Yf@ f@ YY Y YP P Y[@ [@ Ym m Yq q Yq                  zSTD OF CAL (SD)Sw S33~ ~ S33D`D`S33DDfffLLYTTYWW`V@V@lZ Z `NN`N@N@`NNs33P`P`fffIIfffDDfff~ ~ s33~ ~ fff@@fffz z fffCCC33CClEElDDs33MMC33NNs33R R s33MMs33DDC33{ { s33r r s33m m s33CCC33I`I`s33OOs33K`                  zSTD OF N.J. (J)Ru Q fffS S fffO O fffM@ M@ fffW@ W@ s33^ ^ s33k k s33k k @s s @v v @] ] @^@ ^@ @m m @p p @g g @K K @X X @j@ j@ Le e Lk k LA@ A@ Le e Ll l Ln n Lw w Lx x Lk k Lf f L} } Ly y Lf f Lc c Yx x YP P YP                  zSWIFT & CO. (SWX)E{ s33B`B`@FF@E`E`S33FFFffI@I@FffOOFffSSS33\WFffL L FffMMLSS`P`P`LIILF`F`LB B YGGS33LLS33FFS33OO`SSYHHYLLYSSfffS@S@YW@W@fffKKfffy y fffz z fffl l fffh h fff{ { fffE E fffH H fffG@                  z TEXACO (TX)hBds33j`j`s33f f s33jjs33xxs33} } s33~~s33@p@ps33@@@@yy @BB@DD@~ ~ @u u @d d @^ ^ @n n @e e @g@ g@ @b b @R R @S S @V V @Z Z @W W @Q@ Q@ @Q Q @J J @J J @C C @L@ L@ @O O @[ [ @]@                  zUNION CARBIDE (UK)g @_@ _@ @\ \ @U U @U U @^ ^ @b b @v v @AA@CC@G`G`@ZZL{0R fffUUfffV@V@fffIXIfffQQfff[ [ fffkkfffU TfffQQfffHHfff@`@`s33~ ~ s33AAs33LLs33z z s33] ] s33N N s33H H s33g g s33I I s33C C s33O@ O@ s33I@                  zUNITED ARCRFT (UA)jeW@ @] ] @` ` @j j @j@ j@ @u u @s@ s@ @{ { @f f @j@ j@ @` ` @b@ b@ @h h @`@ `@ @V V @J@ J@ LI I LZ Z LX X L]@ ]@ LQ Q LM@ M@ LO O LV V LU U L[ [ LS@ S@ LI I LC C LJ J L} } L@ @ LA@ A@ LB B LB                  zU.S. STEEL (X)@ LB@ B@ LF@ F@ LJ J LC C LG@ G@ Lz z LO O LU U L` ` L_ _ Lp@ p@ Y| | Y~ ~ Yh h Y[@ [@ Y^ ^ fffl@ l@ fffk k fffK`K`fffFFs33@@s33HHs33LLs33D@D@s33C@C@s33| | s33r r s33t@ t@ s33CCs33@@s33@`@`s33BBs33QQs33[@                  zWESTINGHOUSE (WX) PGGYDDYHHYIIYI I YXv @v v @n n @m m @w w @p p @~ ~ @j j @\ \ @R R @N N @\ \ @p p @w w @e e @W W @m m @@ @ @A A @t t LI@ I@ LJ J LK K LE E Lu u LB B LI I Lh h L_                  zWOOLWORTH F.W. (Z)GVPDQT M"R **** HP BASIC PROGRAM LIBRARY ******************************RR GVPDQT: PLOTTING DATARR 36554 REV A, PART 1 OF 2R"R **** CONTRIBUTED PROGRAM *********************************** R ------------N2F 22p N,!,OA,O@F O,,Xp$STRING,$GPDQF,$GPDQI,$GPDQS,*R ------------------------------ R -- MAIN ROUTINEjITEM (A-G, '?' FOR INFORMATION) g@@W.? R -- GET FIRST ITEMv@ R -- GET DATA X@X vAZLj!DO YOU WANT TO PLOT ANYTHING ELSENg@PW@@@0YVw6@X R -- GET ANOTHER ITEMw6@jITEM (1-3, '?' FOR INFORMATION) gp@@Wp.?PWp.1R -- ANOTHER SET OF DATAv @ X@X v!AZWp02lF R -- MOVING AVERAGEPj%NUMBER OF QUARTERS FOR MOVING AVERAGERgZ v MOVING AVERAGEdlv STRAIGHT-LINE TREND R -- FIND MAX AND MINwF X@X wGWp02W6@Wp03wG!Z4 R -- SELECT SCALE>jREGULAR SCALE OR LOGARITHMIC@g@Bw7@DW@@@0RFw7@HWRjMINIMUM VALUE IS T"j:LOGARITHMIC SCALE IMPOSSIBLE -- REGULAR SCALE WILL BE USED\w7@R ------------------------ R -- CREATE GRAPH/Pjj*: W6@j+:   jB: BOTH * AND +W7@ ` PLOGARITHMIC SCALE `w@( ew jV6 owP %&# p w@ t w@! R -- AXIS IS IN Z9 UNLESS Z9 IS ZERO R -- DRAW OTHER AXIS j jMINIMUM VALUE =  jMAXIMUM VALUE =  j j *  + \ (---------------------------------------- (R -- TRANSFORM VALUES IF NEEDED 2W7@ 3w 4w < X@X > V0| F @ v FZ KW6@ PWp.1 Z X@X \ V!0| ` ^ v!! `Z R -- CALCULATE B VALUES IF NEEDED W6@ Wp01 Wp.2 R -- REGRESSION @  R -- MOVING AVERAGE  R ------------------- vFz vG X@X v. vGG@ j FG H #,DDDD,"/",D VG@ vFF@ vG V0|  wnP $#&#  wnn@ vn  w@nn*  jF #,DDDD.DDD  " j   H #," N/A " v "W6@ ; $ V!0| 6 %V!-6!+ 6 &wnP $!#&# ( wnn@ *v.n . w@..+ / jF #,DDDD.DDD! 0 @ 1 w@..B 2 @ 6j  7v. 8 @ ;j < < H #," " @ EV J F w@ GW6@ M JV. M K w@.. MW O N w@! OZ R -- ALL DONE b R -- PRINT T$ vΞ@ X@R W@0  v Z j @@ ^ R ---------------- R -- GET DATA X@X  wA|ZW0AW0B W0CW0DW0ELW0FW0G^R ----------R -- USE TO FIND MAX OR MIN WG0|6WF,WG-wGWG+6wG6,wF@.wG0wG6^ R ---------------R -- SUBROUTINE TO POSITION FOR INPUT RECORDjFUND, INDEX, STOCK OR PORTFOLIOg@W@@@0FW@@@0IW@@@0SW@@@0Pvn@vn`vn@ DPDQPPnvnPjNUMBERgF R -- PUT NAME IN T$VnP w@ PORTFOLIOhnF YG@yhnH[Ghn@hnFR -- FILE IS F9, POSITIONED TO READ^ R ------------R -- LIST OPTIONS FOR ITEM j8A) PRICE: STOCK PRICE/SHARE, INDEX LEVEL, FUND NAV/SHAREj5B) PRICE RETURN: PERCENTAGE CHANGE IN (A) PER QUARTER j C) DIVIDEND'jFD) DIVIDEND YIELD; QUARTERLY DIVIDEND/PRICE AT END OF PREVIOUS QUARTERjE) RETURN: (B) + (C)j-F) CUMULATIVE VALUE WITH DIVIDENDS REINVESTEDj*G) CUMULATIVE VALUE WITH DIVIDENDS IGNOREDFjH^P R -----------QR -- PRINT OPTIONS FOR SECOND ITEMZ&jD1) THE SAME TYPE OF DATA FOR ANOTHER STOCK, INDEX, FUND OR PORTFOLIO\&jD2) A STRAIGHT-LINE TREND FIT TO THE DATA BY LEAST-SQUARES REGRESSION^j3) A MOVING AVERAGE OF THE DATA^R -------- R -- OPTION (A) PRICE X@P hnFGHwAFZvNvPRICE R -----------!R -- OPTION (B) PRICE RETURN* X@P ,hnFGH.VH0|6F0|4/wAd$H#F'F0>4 wA|>Z@vNPA v PRICE RETURNHR ----------R -- OPTION (C) DIVIDENDS X@P hnFGHwAGZvNP v DIVIDENDSR ----------R OPTION (D) DIVIDEND YIELD X@P hnFGHVF0|6G0| wAd%G'F wA|ZvNP vDIVIDEND YIELDLR ----------MR OPTION (E) RATE OF RETURNV X@P XhnFGHYVF0|6G0|6H0|\ZwAd$H!G#F'F[`\ wA|`ZjvNPk vRATE OF RETURNt R -----------R OPTION (F) CUMULATIVE WITH DIV X@P hnFGHVF0|6G0|6H0|w$H!G'FV@WA@0| wAA@%$wAF@Zv*CUMULATIVE VALUE WITH DIVIDENDS REINVESTEDvN R -----------R OPTION (G) -- CUMULATIVE W/O DIV X@P  hnFGH"VF0|6H0|F$w$H'F(V@<*WA@0|<2 wAA@%$7F<wA@FZGv'CUMULATIVE VALUE WITH DIVIDENDS IGNOREDHvNP@ R -----------AR -- COMPUTE B FROM REGRESSIONJvL X@X N V0|VPv@RwTwVZXV`^wFG`X@|bwFF!dwGG!hZjwFF&lwGG&rwHItX@|vwHH #F$#GxwII #G@zZ|wHH'I~ X@X  V0| v!F H$#G v!|Z^ R -----------R -- COMPUTE B AS Q9-QUARTER MOV AVG X@X  v!|Z X@|Z #wF X|!@ V0|wFF Z v!!@F'Z^'`FIATATA @ R**IATATA**ANALYSIS OF IATA AND ATA UNITIZATION PROGRAMMES. pIATAID,CONTNR*N0@P`(Op2j"WOULD YOU LIKE A CONTAINER SUMMARY<gFdP w@@NZ w@@Yd h@@n h@@xW@@0Nr+/@?X SUMMARY OF UNIT LOAD DEVICES/@?x-jIATA?| ATA(US)/@?pMIN?T MAX,?D MIN?hMAX/@IATA?`CHARG,?`TARE?@EXT?`GROSS?PATA.?pCHRG?PTARE?`GROSS/@?@+jID?@WGT?PVOLUME?PWGT?pjID?@WGT?hWGTb X@T h@DdDPF V`@jDdPFH5 5A,2X,5D,2X,4D,2X,4D.D,4X,5D,5X,5A,4X,5D,5X,4D,3X,5DZb"j:NOTE:0 IN MINIMUM CHARGEABLE WEIGHT COLUMN INDICATES PIVOT"%j WEIGHT VARIES/@"BY TARIFF CONFERENCE(OR ORIGIN-DES,%j!TINATION COMBINATIONS). ZEROES IN/@ VARIOUS OTHER6 j7 FIELDS MEANS DATA NOT AVAILABLE OR NOT APPLICABLE. COJ@"j:AND COS CONTAINERS ARE FURTHER BROKEN DOWN INTO IATA REGISJ#jTRATION/@#NUMBERS FOR VARIATION OF THESE TWO T%j$CATEGORIES. IF YOU ARE GOING TO WORK/@ WITH THESE ^!j:TYPES, MAKE SURE YOU ENTER THE CORRECT REGISTRATION NUMBERhj(I.E. DSC-221)./`r j IATA OR ATA|gW@@0IW@@0A r R**IATA SECTION.wIATAj CONTAINER OR REGISTRATION NUMBERf0V0@@0DV0@@0S h@@ V`@h@DdDPFV00v h@@ V`@& h@`0V00`DD h@@N V`@Xh@DdDPFbV0lXvj-ELIGIBLE FOR SHIPPER OWNED CONTAINER DISCOUNTgW@@0NvD VԮjMINIMUM CHARGEABLE NET WEIGHTfjACTUAL TARE WEIGHT OF CONTAINERgGWDwDGwHD9G wID;G^ 4*4wt>jHOW MANY COMMODITIESHfRX@|\jff H#,"WGT ",2D,"="pgqzwtq!tZ^V0@@0DV0@@0S Vt!I*. Vt!I*.jjt!I" jjt!I" H:#,"MAXIMUM GROSS WEIGHT OF ",2DX3D," LBS EXCEEDED. REMOVE" H 2DX3D," LBS."/$ .V0@@0DV8V0@@0SVBV0@@0CVLjV jCONTAINER COST`fj~t~w4X@|j H#,"RATE ",2D,"="g! w4!%q!4Z v!@X@|W!@v!W!>v!Z ^w64 jORIGIN AIRPORT(f2jDESTINATION AIRPORT<f@FW@@0NPV0@@0DnZV0@@0SndV0@@.Cnwvt!Gxwwv#H!R**TEST FOR MINIMUM CHARGEABLE WGT AND COSTING OF EXCESS TARE.w4G$!4Wv>wK#vw4K$!4R**TEST FOR IATA 10% RULE. VDfff%4 vFfff%4PvGFvDGP/`jH0 15X,"ANALYSIS OF SHIPPING IN SHIPPER OWNED ",4AjH& 20X,"CONTAINERS VS. NORMAL PACKAGING"j"@"H 28X,"FROM ",3A," TO ",3A,j606H 25X,"USING ",7A," CONTAINER"/@wxv;wJjTx4T H9 10X,"GROSS COST OF SHIPMENT OF ",4D," LBS ",4X,"$",4D.2D^jhhH$ 10X,"PLUS CONTAINER COST",22X,3D.2Drj|D|H& 10X,"LESS CONTAINER REBATE",20X,3D.2Dwyv"WyWy-DwyDv6y$v6j6H+ 10X,"LESS TARE WEIGHT ALLOWANCE",14X,4D.2D j4 "D"6H& 10X,"NET COST OF SHIPMENT",20X,4D.2D/j6H6 10X,"COST IF NET CONTENTS ARE SHIPPED LOOSE",2X,4D.2DjH. 10X,"COST IF SHIPPED IN NON-",4A," CONTAINER" j&6 G$&H* 10X,"OF EQUAL TARE WEIGHT",20X,4D.2D/////0jMORE:gDW@@0YPNW@@0NXb"j9---------------------------------------------------------l j---------------v^ jDATA NOT ON FILE.P jCONTAINER CHARGEf7Wt@zjSECOND PIVOT WEIGHTg~W~*w~Wt@zjFIRST OVER PIVOT RATE=g& W~7t-~   w}t"* w}~"* W~5t+~>4f>jSECOND OVER PIVOT RATE=Hg'Rw|t#~\fw'|pz w&~'}v^&%}!'%|/`jH0 15X,"ANALYSIS OF SHIPPING IN AIRLINE OWNED ",4AjH- 17X,"CONTAINER VS. SPECIFIC COMMODITY RATES"j"@j60j7"H= 10X,"MINIMUM CHARGEABLE WEIGHT OF",X,5D,X,"LBS",2X,"$",5D.2DWt@jt"^H- 10X,"PLUS EXCESS OF",15X,5D,X,"LBS",3X,5D.2D V0@@.C . j  H$ 10X,"PLUS CONTAINER COST",23X,4D.2D $ V .L 8W@@0N V Bj LD LH( 10X,"LESS CONTAINER DISCOUNT",20X,3D.2D V j `7 ^ "D `H* 10X,"TOTAL CONTAINER COST",20X,"$",5D.2D/ jj t4 t H: 10X,"COST IF NET CONTENTS ARE SHIPPED LOOSE",2X,"$",5D.2D ~ j 4"7 ^ "D H, 10X,"SAVINGS OR LOSS(-)",22X,"$",5D.2D///// 0 R**ATA SECTION. wATA jCONTAINER NUMBER f0 h@@ V`@ h@DdDPF V00P  v wDF  4  Vt!I* 2 ( P 2j <jt!I" F4 PV0@@0B ZV0@@0D dV0@@0E nV0@@0Q x V00LD-N  jCONTAINER COST f  v V0@@0Q V0@@0E V@ j5USING THE MIXED SHIPMENT RULE (RULE 12,C.A.B.131),YOU j MAY INPUT RATES j t !H; "EQUAL TO ",5D," LBS FOR EACH COMMODITY IN THE CONTAINER." ~  jORIGIN AIRPORT f jDESTINATION AIRPORT "f@ ,V0@@0E T 6V0@@0Q T @ JR**SETTING US OR CANADIAN MINIMUM CHARGE. TV@@0Y r ^V@@@0Y r h rV@@0@@@ |vTx  vTP jGENERAL CARGO RATE g' V0@@0E v۞~  v۞R Vt!G, vܞfff$t!G#D wvt"  & V0@@0E  wvd  & wvA &v7v%' 0V7>T D :v7T D/` Nj Xj bj"@ lj60 vjTv7 jh j7 j4 j j&4 G$ 0 jDAYLIGHT OR REGULAR gp jCONTAINER CHARGE f7 Wt@  Wp@@0D  jRATE/LB FOR EXCESS ABOVE PIVOT g&  w& V0@@0B H *V0@@0D H 4 V00LD-N H > \ HWGAD \ RvD$G#D \V@ fV00B p V00B-2 zV00D V00LD-N vNQ  vNzH  vNI^  vNr!  vN V0@@0B V0@@0D V00LD-NBWG1DBWG+DL$vD.vK$D#G8VBvDLvKV/``V0@@0BjV0@@0Dt V00LD-N~jjjj"@j60j7W& jt"t"%&V<j VK(VD< jDH, 10X,"PLUS EXCESS TARE CHARGE",17X,"$",5D.2D<(j2K2H3 10X,"LESS UNDER TARE WEIGHT DISCOUNT",7X,"$",5D.2D<j `7 t"%& D"KFV@dPj t4Zd jn4"N%t"K DnH- 10X,"MIXED SHIPMENT RULE COST",16X,"$",5D.2Dxj 4"N%t"7 t"%&j 4"7 t"%& D"K0`LOADR  'R IATATA, HP 36876A, 6/74 #R**LOADR LOADS DATA SERIALLY TO FILES IATAID AND CONTNR WHICH ARER**4 RECORDS LONG RESPECTIVELY. LOADR NEED NOT BE#R**SAVED AFTER RUN SINCE IT IS USED ONLY TO INITIALIZE THE FILES.( pIATAID,CONTNR2NP`< X@T F hDdDPFP V`@Zj@DdDPF`dZn!d1g Pd aNONEx!d2bd}Sd u0NONE!d2AFd NONE!d2Bsd NONE!d3PB@t@xgA'S"d3NSIDt@d gA'S"d3SIDt@d gA'S!d4Ps[@xN A'S"d4NSI}[@d N A'S#d4ANSI}Ux}A'S!d5PB@]x@LD-7O"d5NSIDZx@LD-7DO"d5SIDWx@LD-9UO!d6PB@XNONE"d7*PB@cxN NONE!d7PTcRNONE"d7NSIlRNONE!d8FUxm`LD-1Q@\m`"!d8FQ33xm`LD-PDWm`,!d8*FPxm`LD-3DUm`6!d9PFPN NONE@"d9NSIFSN NONEJ"dCO1F^@bffN A'ST"dCO2xPSffN A'S^!dCO3I@ae hxBpdN h!dCO4E@\_ hxBpdN r!dCO5xPS33 KBpdN |!dCO6pKM KBpdN "dCO7i G^a33 ~LD-NdK!dCO8D]{ ~ffg8D}~ }"dCO9cZ X USPNONE"dCO0Bx x pSPNONE!dCOJF`~ @ iD}~ }!dCOSPH H @iEAH }"dVAR.b@A-1]e"dVAR.r`A-2`e"dVAR.wA-3de"dNONEbfB-2pdN !dNONE`QDdhd"dNONEEs3LD-5DNN "dNONEULD-6m`#dNONE@&fLD-11pm` X@]h`& V`@0 j@``:ZD)dCOSDSC-2}COSSC-3}COJDSC-23qCOSN&dDSC-34}COSSC-43K@COJDSC-46WCOSX&dDSC-50BCOSDSC-51FCOJSC-54tPCOJb&dDSC-69YCOSDSC-76}COSDSC-92}COSl(dDSC-103}COJSC-117dCOSDSC-121}COSv(dDSC-141}COJDSC-146@COSSC-148}COJ'dSC-162dPCOJDSC-164lCOJSC-175ChCOJ'dSC-176@COSSC-201}COSDSC-212}COS)dDSC-213rCOSDSC-221}COJDSC-225}COJ&dSC-228BCOSSC-231xCOJSC-234vCOS(dSC-241}COSDSC-242}COJDSC-244YCOS)dDSC-249}COJDSC-250ACOJDSC-252pCOS(dDSC-254}COSDSC-257}COJSC-258FPCOS'dSC-261O COSSC-268}COJDSC-270cCOS)dDSC-272}COSDSC-276}COSDSC-278}COS'dSC-282}COSDSC-284}COSSC-289}COS)dDSC-293wCOSDSC-295}COSDSC-297}COS'dDSC-299}COJSC-303FPCOJSC-306e@COJ)dDSC-310jCOJDSC-312sPCOSDSC-314`COS(dDSC-315}COSDSC-323GCOSSC-324}COS )dDSC-328bCOSDSC-330}COSDSC-332WCOJ(dSC-333}COSDSC-337}COJDSC-341}COS (dSC-342}COSDSC-343}COJDSC-347L@COJ*)dDSC-349lCOJDSC-357aCOJDSC-358aCOS4)dDSC-359}COSDSC-361}COSDSC-364A`COJ>)dDSC-368}COJDSC-369}COJDSC-372Y`COJH(dDSC-374ApCOJSC-383vCOJDSC-389vCOSR)dDSC-394}COSDSC-396}COJDSC-397e@COJ\'dSC-400xPCOSDSC-401}COSSC-403O COJf'dSC-404eCOJDSC-405yCOSSC-407}COSp$dDSC-408}COJDSC-409vCOJSC-410tz"j;FILE ERROR, CHECK FILE OPEN COMMMAND FOR PROPER SIZE FILES.`STKSMO N#(R *****STKSMO*****BUSINESS PROGRAM#-&R STKSMO**********VERSION #1(7/31/69)**EXP SMOOTHING AS STOCK GUIDE #2R#7j,* EXPONENTIAL SMOOTHING AS A STOCK GUIDE *#<j#AOddddqdd#F M~d#GN ##KM#PW@##UW@$?#Z(jG THIS PROGRAM USES EXPONENTIAL SMOOTHING OF PAST PRICE DATA TO PROVIDE#_j0 A GUIDE FOR THE TIMING OF BUY AND SELL ORDERS.#dj#i'jE TO ENTER THE DATA FOR THE STOCK YOU ARE CONSIDERING, TYPE THE DATA #n'jF BEGINNING IN LINE 9900. NO MORE THAN 100 PERIODS MAY BE CONSIDERED.#sj$ THEN TYPE: '9035 LET Q=1'#xj 'RUN'#}'#j* FOR HOW MANY PERIODS DID YOU ENTER DATA#f#j#j1ENTER A SMOOTHING COEFFICIENT BETWEEN 0.1 AND 0.9#f#YD@|#iD#[D#Lq~@#@# L@"q~#M"@"&$q~#M"@$@"&$q~#$#j#'jEDO YOU WISH TO USE THIS PROGRAM AS A CONTINUING AID FOR THE TIMING OF#$j=BUY AND SELL DECISIONS ON THIS SAME STOCK AT SOME FUTURE TIME#f#j#j#V@@0NO$8#j$jWHAT IS THE NAME OF THIS STOCK$f$"'jFWHAT TIME PERIOD HAVE YOU USED THUS FAR??(EX:MAY 1,1969 TO MAY 1,1970)$'f $,j2THEN ENTER THE FOLLOWING LINES BEFORE SIGNING OFF:$.j '9035 LET Q=2'$/j '9286 LET X(X9) ='$0j '9287 LET Y(Y9) ='$1j '9288 LET A ='$2j '9280 LET A$ ='' '$3j '9281 LET B$ =' ' '$4 j 'KILL-STKSMO'$5 j 'SAVE'$6'$8(jHTHEN ENTER '9035 LET Q=0', 'KILL-STKSMO', AND 'SAVE' BEFORE SIGNING OFF.$;'$?%jBTHIS PROGRAM IS BEING USED TO PROVIDE A GUIDE TO THE TIMING OF BUY$EjAND SELL ORDERS ON .$Jj$Oj&IT IS BASED UPON DATA FROM THE PERIOD: .$Tj$Y#j>FOR HOW MANY ADDITIONAL PERIODS FOLLOWING THE LAST MARKET DATA$^jSHOWN DO YOU WISH TO ENTER DATA$cf$hYD@|$mjWHAT IS THE PRICE FOR PERIODD$rgD$w[D$|j$&jDWHAT PERCENTAGE DIFFERENCE (EXPRESSED AS A DECIMAL) BETWEEN THE PRE-$%jADICTED AND ACTUAL PRICE WOULD YOU LIKE TO USE AS A SCREENING RATE$jFOR THE BUY AND SELL ORDERS$f4$$$%$#$j$&jC******************uj***********************************************$j'PERIOD ACTUAL ESTIMATED$jESTIMATED PREDICTED$j# PRICE PRICE$j GROWTH PRICE FOR$j     NEXT PERIOD$j$YD@|$WD@$$M@%@ @"%$M@%@ @"%$$$MD%D @"%D@$MD%D @"%D@$LD@%D#D$LqD&@"$D#D$MD@D qD$kDDDqDD@$[D%j%(jG***********************************************************************% j%^%YD@|%LD@'D@%!V*4%S%&V,4%?%+&j IN PERIODD3THE PREDICTED PRICE VARIES FROM THE ACTUAL PRICE BY%0'j LESS THAN4d/PERCENT, AND NO BUY OR SELL ORDER IS INDICATED.%:%b%?'j IN PERIODD5THE PREDICTED PRICE IS BELOW THE ACTUAL PRICE BY MORE%D jTHAN4d'PERCENT, AND A SELL ORDER IS INDICATED.%N%b%S'j IN PERIODD5THE PREDICTED PRICE IS ABOVE THE ACTUAL PRICE BY MORE%XjTHAN4d&PERCENT, AND A BUY ORDER IS INDICATED.%bj%gj%l[D%q&jD--------------------------------------------------------------------%v^&P`phpx@ H '`STING /!#$%&'()*+,./0123456789:;<=>?4@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\VPDQ  '>"R **** HP BASIC PROGRAM LIBRARY ******************************RR VPDQ: PLOTTING DATARR 36554 REV A, PART 2 OF 2R"R **** CONTRIBUTED PROGRAM *********************************** R -- INITIALIZE SCREEN#wPwW### R ------------N22 2p N,!,OA,O@H O,,XpSTRING,GPDQF,GPDQI,GPDQSR ------------------------------ R -- MAIN ROUTINEjITEM (A-G, '?' FOR INFORMATION) g@@W.? R -- GET FIRST ITEMv@ R -- GET DATA X@X vAZLj!DO YOU WANT TO PLOT ANYTHING ELSENg@PW@@@0YVw6@X R -- GET ANOTHER ITEMw6@jITEM (1-3, '?' FOR INFORMATION) gp@@Wp.?PWp.1R -- ANOTHER SET OF DATAv @ X@X v!AZWp02lF R -- MOVING AVERAGEPj%NUMBER OF QUARTERS FOR MOVING AVERAGERgZ v MOVING AVERAGEdlv STRAIGHT-LINE TREND R -- FIND MAX AND MINwF X@X wGWp02W6@Wp03wG!Z4 R -- SELECT SCALE>jREGULAR SCALE OR LOGARITHMIC@g@Bw7@DW@@@0RFw7@HWRjMINIMUM VALUE IS T"j:LOGARITHMIC SCALE IMPOSSIBLE -- REGULAR SCALE WILL BE USED\w7@R ------------------------ R -- CREATE GRAPH#wKwW##j P P*: W6@ P+:  W7@ ` wL@ # # jLOGARITHMIC SCALE ` R -- CHECK FOR ZERO jV6 t lvd"}%&# n ~ tvd ~p R -- DRAW VERTICAL AXIS wZ wd # wd # wK # wZ # w@ # # k wd # # k (R -- TRANSFORM VALUES IF NEEDED 2W7@ 3w 4w < X@X > V0| F @ v FZ KW6@ PWp.1 Z X@X \ V!0| ` ^ v!! `Z R -- CALCULATE B VALUES IF NEEDED W6@ Wp01 Wp.2 R -- REGRESSION @  R -- MOVING AVERAGE  R ------------------- R -- PLOT A VALUES w@*  X@X wA Z  TR -- PLOT B VALUES IF NEEDED ^W6@ hw@+ j X@X lwA! mVA?4AA r n wA| rZ | R -- ALL DONE w} wP # # b R -------------- R -- PLOT VALUES IN T wd N wj X@X v wnA Wn0| Wj wm wj@ h  WA@0| wm@  wm h wP Z ^ R ---------------- R -- GET DATA X@X  wA|ZW0AW0B W0CW0DW0ELW0FW0G^R ----------R -- USE TO FIND MAX OR MIN WG0|6WF,WG-wGWG+6wG6,wF@.wG0wG6^h R ---------------iR -- PLOT VALUE V9 WITH CHARACTER T$jR WITH PEN DOWN IF V8=1; UP IF V8=0rwd n#}&#sWmxt#u|x#|w@~wp# j@@@H #,"",Aw@wp#^ R ---------------R -- SUBROUTINE TO POSITION FOR INPUT RECORDjFUND, INDEX, STOCK OR PORTFOLIOg@W@@@0FW@@@0IW@@@0SW@@@0Pvn@vn`vn@ DPDQPPnvnPjNUMBERgF R -- PUT NAME IN T$VnP w@ PORTFOLIOhnF YG@yhnH[Ghn@hnFR -- FILE IS F9, POSITIONED TO READ^ R ------------R -- LIST OPTIONS FOR ITEM j8A) PRICE: STOCK PRICE/SHARE, INDEX LEVEL, FUND NAV/SHAREj5B) PRICE RETURN: PERCENTAGE CHANGE IN (A) PER QUARTER j C) DIVIDEND'jFD) DIVIDEND YIELD; QUARTERLY DIVIDEND/PRICE AT END OF PREVIOUS QUARTERjE) RETURN: (B) + (C)j-F) CUMULATIVE VALUE WITH DIVIDENDS REINVESTEDj*G) CUMULATIVE VALUE WITH DIVIDENDS IGNOREDFjH^P R -----------QR -- PRINT OPTIONS FOR SECOND ITEMZ&jD1) THE SAME TYPE OF DATA FOR ANOTHER STOCK, INDEX, FUND OR PORTFOLIO\&jD2) A STRAIGHT-LINE TREND FIT TO THE DATA BY LEAST-SQUARES REGRESSION^j3) A MOVING AVERAGE OF THE DATA^p R ------------qR -- SUBROUTINE TO DRAW HORIZONTAL AXIS AT Y=H9r R AND YEARS AT Y=20zw|wd~# YPzn#[ YdzP VdPdPwP#wP#wP #wP #[ R --- PRINT DATESwxvMz YxsP##vMM@jFDDDDM[^R -------- R -- OPTION (A) PRICE X@P hnFGHwAFZvNvPRICE R -----------!R -- OPTION (B) PRICE RETURN* X@P ,hnFGH.VH0|6F0|4/wAd$H#F'F0>4 wA|>Z@vNPA v PRICE RETURNHR ----------R -- OPTION (C) DIVIDENDS X@P hnFGHwAGZvNP v DIVIDENDSR ----------R OPTION (D) DIVIDEND YIELD X@P hnFGHVF0|6G0| wAd%G'F wA|ZvNP vDIVIDEND YIELDLR ----------MR OPTION (E) RATE OF RETURNV X@P XhnFGHYVF0|6G0|6H0|\ZwAd$H!G#F'F[`\ wA|`ZjvNPk vRATE OF RETURNt R -----------R OPTION (F) CUMULATIVE WITH DIV X@P hnFGHVF0|6G0|6H0|w$H!G'FV@WA@0| wAA@%$wA@Zv*CUMULATIVE VALUE WITH DIVIDENDS REINVESTEDvN R -----------R OPTION (G) -- CUMULATIVE W/O DIV X@P  hnFGH"VF0|6H0|F$w$H'F(V@<*WA@0|<2 wAA@%$7F<wA@FZGv'CUMULATIVE VALUE WITH DIVIDENDS IGNOREDHvNP@ R -----------AR -- COMPUTE B FROM REGRESSIONJvL X@X N V0|VPv@RwTwVZXV`^wFG`X@|bwFF!dwGG!hZjwFF&lwGG&rwHItX@|vwHH #F$#GxwII #G@zZ|wHH'I~ X@X  V0| v!F H$#G v!|Z^ R -----------R -- COMPUTE B AS Q9-QUARTER MOV AVG X@X  v!|Z X@|Z #wF X|!@ V0|wFF Z v!!@F'Z^#(R ********************************************#*R * STANFORD GRADUATE SCHOOL OF BUSINESS *#,R * PROGRAM NAME: GTEK *#.R * SUBROUTINES FOR USING THE TEKTRONIX *#0R * T4002 TERMINAL WITH THE HEWLETT-PACKARD *#2R * 2000C. *#4R * PROGRAMMED BY W.F. SHARPE (APRIL, 1971) *#6R * NOTE: A SPECIAL FILE NAMED $STRING MUST *#7R * BE AVAILABLE (SEE DOCUMENTATION). *#8R ********************************************#R -------------------------# R -- get strings#p$STRING#N   #h@#h@#h@#h@#^#R -------------------------# w@# w@#jF#,A@ @@ @#)jF#,A"@ @ @"@ @ @#jF#,A@ @@ @#)jF#,A"@ @ @"@ @ @#^#R --------------------------# R -- erase screen# R PRINT ESC, CTRL-L#k #^#R --------------------------------#R -- move to x9,y9 with pen up# R -- 1310 PRINT "gs";#j##H #,""###^#R -----------------------------#R -- move to x9,y9 with pen down###^#R --------------------------------# R -- put in alpha mode# R -- 1510 PRINT "us";#j##H #,""#^#R -----------------------------------# R -- read joystick# R -- uses z8,z9,c$# R -- PRINT ESC, CTRL-Z#j##H #,A,""#N0#w}#u0###w#v0@@0@@#v0``0PP###w#^# Y@@ #V00@@##[#w@ # w@ $@# Y@@ #V00``$#[$w@ $ w @$^$R -----------------------------$R -- subroutine to create picture$ NH$ h$V0e$2$V0E$2$V0a$($V0A$($i$V0d$"$V0D$"$R -- move to x9,y9 with pen up$#$ $ $"R -- move to x9,y9 with pen down$$#$&$ $(R -- shift to apha and print next string$*#$,h$.j$0$ $2 R -- end reached$4^$6`VRRC  N j"R **** HP BASIC PROGRAM LIBRARY ******************************RR VRRC: INVESTMENT STRATEGY ANALYSISR R 36557 REV AR"R **** CONTRIBUTED PROGRAM *********************************** O  Hj1AFTER BELL RINGS, HIT CARRIAGE RETURN TO CONTINUE2#dOa n R -- INITIALIZEox j STARTING YEARygzwx} j ENDING YEAR~gwxR -- DO ANNUAL AVERAGES,X R -- do betas ,X ,XR -- DO SCATTER DIAGRAM, R -- print labels-#6w}7wZ8#9#:j; j<x!x!<H DDDDD," THROUGH ",DDDDD@wPAwPEjFjG j STRATEGYJ X@PRwxT#V#XX"ZwZ ^ZR -- draw vertical linewdwx #wR# R -- set scalewna@ X@P Wa-n wnaZX R --plot histogramb X@Pl R -- compute end pointnv^K%a'ndpw^v#xwx z#|wP ~wP ## jFDDD.DDaw^wP #wd#ZwwP # ^R -- R(I,J) IS RETURN FOR YEAR I, DECILE JR -- I=1 IS 1931, J=11 IS MARKET INDEXO"%  X@J  X@Pi.w"d$.@ZZ R -- COMPUTE MKT INDEX X@J  w> X@Pw>>!"Z w"X>PZ$^R -- AVGw> X@Pw>X}w>>!"ZwaX">&#@wX"aX"ZvAVERAGE ANNUAL RETURNS ^ R -- betas X@P wjk X} wjj!" wkk!"X Z wjj&#@ wkk&#@ w=> X} w>> "#j$"X#k w== "X#k$"X#k Z waX">'= wX"aX" Z v BETA VALUES ^ R -- GEO RETURNS X@P w>@ X} w>>$@ "d Z w>>&#@ waX"d$o>@ Z v"EQUIVALENT CONSTANT ANNUAL RETURNS ^ w` AVG RETURN wp BETA VALUEvP O`pR -- FIND MIN X (M1) AND MAX X(M2)v@v@X@| W*  v W, vZR -- FIND MIN Y(M3) AND MAX Y(M4)v@v@X@|W*vW,"v"ZhR -- FIND AVERAGES AND STANDARD DEVIATIONSmR -- A1 IS AVERAGE OF X, A2 IS AVERAGE OF YnR -- S1 IS STD DEV OF X, S2 IS STD DEV OF YrvsvtX@|vv!xv!zZ|v&~v&R -- FIND STANDARD DEVIATIONS AND COVARIANCE (C1)w6w7v6X@|w66 "@w77 "@v66 "$"Zw66&w77&v66&R -FIND SUMS wFGHIJX@|wFF!wGG! wHH % wII @ wJJ @ZR -- FIND EQUATION OF REGRESSION LINER -- LINE IS Y = A9 + B9*X v.6&6@v".$R -- FIND COEFFICIENT OF DETERMINATION (R2)w'.@$6@&7@\jRw0+V.w0  j`0.pH% 5X,15A," = ",6D.5D,X,A,6D.5D,"*",15Adb wָ wظwwj! AVERAGE RETURN VERSUS BETA  jx!x!H DDDDD," THROUGH ",DDDDD R -- normalize valuesX@|wd}$#&#wd}$#&#Z R -- find zero valueswd}$#&#wd}$#&# R -- plot x-axis Wd5Wwdwwd#wK# R -- plot y-axis Wd7Kwwd#wW#wd R -- print labelswXw##kpwd wM##k`p R - print pointszX@| w@ w`##jH #,"*"ZR -- draw regression linevw .%W-7+v@www .%W-7+v@ww w&."&.W-7+v@ww w&."&.W-7+v@wwwd}$@#&#wd}$@#&## wd}$@#&# wd}$@#&# #wwx ##\dR - SUBROUTINE TO COMPUTE ADJ. R2 AND STD ERRORSnV`"xwKI#F%F& wLH#F%G&'K wMG#L%F&wNJ#G%G&wVN#L%L%K wNN&@ wVV&@wWN#V'NwXV'KwXX wYV%I&K$wYYjYXH% "STANDARD ERRORS:",7X,6D.5D,2X,6D.5DjCOEFFICIENT OF DETERMINATION = '"^XR -- wait, then erase and homeZj[vF}\tFG^VG\b#fwhwWj#l#p^@R -- DATA ON ANNUAL INVESTMENT PERFORMANCE RELATIVESBR -- FOR 10 RISK-RETURN CLASSES, 1931 THROUGH 1967DR -- FIRST 10 NUMBERS ARE FOR 1931, NEXT TEN AREF R -- FOR 1932, ETC.HR -- FOR EACH YEAR, THE FIRST NUMBER IS FOR RISK-RETURNJR -- CLASS 1, THEN CLASS 2, ETC.LR -- RISK-RETURN CLASS 1 IS THE DECILE WITH THENR -- LOWEST BETA, CLASS 10 HAS THE HIGHEST BETAPR -- BETA BASED ON 60 MONTHS OF PRICE RELATIVESRR -- RESULTS FROM GUY COOPER.O/D@C&lGTDJK{E,ky)ownAK}hYtmBH~{@QmpkW?n<M D8\G!UB{&lOݘERQJXy^CFt}Hg8CSzBOE=2|υPLWhX_fp]PjhgZOEMGZVf^[$[ec[l&l3jaժW LEE|LIu K|@wYmLjPROzTu`,RAT}TXVpTXDxIY {yȎzqvtr[yzny%v}{D,tw-wUGzxy.q{oV=qQi|{hyv^tvaRkDkq6H&O4SeXT9.R Yqu_\hX WWDXY[gsCc3extpK@CL]O4QQ7LXVc")cxeR~bzcX݃['_'_V`$fcjvj%vC?>D|swLDwsnmMgPUbYABtAbB5B'@ȊB8)~&FyA@ҳ~Ɗ*z (}x@utt@ILOAtPN0JLL=L[lLM_FOQSPWO\VE]#^i_*c~FMJjI0L3HI&MBK'G`EjHxDw!Gx6zt.zvSLLMR\/]+arRd7n;%h#P R -- SUBROUTINE $RGTEK#ZR -- REVISEDD VERSION OF SUBROUTINE GTEK#$V#$X#$\#$^#$`#$b$8$d$TR $U"R -- W.F. SHARPE, STANFORD GRADUATE SCHOOL OF BUSINESS, MARCH 72$VR ***** INITIALIZE *****$W$f$X R ***** ERASE *****$Y$t$Z R ***** WAIT *****$[$$\ R ***** PEN UP *****$]$y$^ R ***** PEN DOWN *****$_$$` R ***** ALPHA *****$a$$bR ***** GRAPHIC INPUT *****$c$$dR ***** INTERPRET *****$e$$fR -------------------------$g R -- GET CHARACTERS$hp$VCHAR$iO@!0H$jh@$k^$lR -------------------------$m w@$n w@$ojF#,A@ B @ B $p)jF#,A"@ @ @"@ @ @$qjF#,A@ B @ B $r)jF#,A"@ @ @"@ @ @$s^$tR --------------------------$u R -- erase screen$vR -- PRINT ESC, CTRL-L, AND 5 SPACES$wkB B  $x^$yR --------------------------------$zR -- move to x9,y9 with pen up${R -- PRINT CTRL-SHIFT-M$|j$}$}H #,""$~$l$^$R -----------------------------$R -- move to x9,y9 with pen down$$l$^$R --------------------------------$ R -- put in alpha mode$R -- PRINT CTRL-SHIFT-O$j$$H #,""$^$R -----------------------------------$ R -- read joystick$ R -- uses z8,z9,c$$ R -- PRINT ESC, CTRL-Z$ j$B B $H #,A,""$w}$u0$$$w$v0,@@0@@$v0``0PP$$$w$^$ Y@@ $W@ @ 00@@$$[$w@ $ w@ $@$ Y@@ $W@ @ 00``$$[$w@ $ w @$^$R -----------------------------$R -- SUBROUTINE FOR INTERPRETER$h0$V00E$$V00A$$i$V00D$$R -- move to x9,y9 with pen up$$y$$$R -- move to x9,y9 with pen down$$$$$R -- SHIFT TO ALPHA AND PRINT NEXT STRING$$$h0$j0$$$ R -- end reached$^$R --------------------------$R -- RING BELL, WAIT, THEN ERASE$R -- PRINT CTRL-SHFT-O, CTRL-G, CTRL-G$j$w}$u0$W$$$t$^'`,ADBUDGD 0R ADBG: AN ADVERTISING BUDGETING MODEL 7/23/73 R THIS VERSION WAS PREPARED FOR USE WITH CASTLE COFFEE (B)#R CASE1: CASES IN COMPUTER AND MODEL ASSISTED MARKETING:PLANNINGR 36790 REV A, 2/74 ADBUDG, PART 1 OF 5 &OH ! 1 a q Q  N  O  NQ a  A 1 R CASTLE COFFEE QUARTERLY DATA (TABLE 4) AT LINE 5000jw#w(w@2jINPUT WITH DATA STATEMENTS <gFW@@0NxPw@Z hUedh6@Q@nxjNUMBER OF PERIODS(MAX 10) fjjREFERENCE CASE CONDITIONSjMKT SHARE AT START OF PERIOD fj)ADV RATE TO MAINTAIN SHARE (MM $/PERIOD) gjMKT SHARE AT END OF PERIODj IF ADV REDUCED TO ZERO fj! IF ADV INCREASED TO SATURATION fj- IF ADV INCREASED 20% OVER MAINTENANCE RATE fj-MKT SHARE IN LONG RUN IF ADV REDUCED TO ZERO fjINDEX OF MEDIA EFFICIENCY fU"jINDEX OF COPY EFFECTIVENESS ,fe6j&CONTRIBUTION PROFIT (BEFORE ADV. EXP.)@j EXPRESSED IN DOLLARS/SALES UNIT Jf6TjAVERAGE BRAND PRICE($/UNIT)^gc j OTHER DATA:hjMKT SHARE IN PREVIOUS PERIOD rf@|!j7PRODUCT SALES RATE AT START OF PERIOD (MM UNIT/PERIOD) gQ@j"AVERAGE PRICE FOR PRODUCT($/UNIT) gjWp 8jBUDGET HORIZON CONDITIONSj/CONSIDER RESPONSE TO PRODUCT CLASS ADVERTISING gW@@0NWiEeFNJlj/PRODUCT SALES AT START OF PERIOD(UNITS/PERIOD) gEj)ADV RATE TO@MAIN(AIN SALES (MM@$/PERIOD) gej PRODUCT SALES AT END OF PERIOD :j IF ADV REDUCED TO ZERO &gF0j! IF ADV INCREASED TO SATURATION :gNDj- IF ADV INCREASED 20% OVER MAINTENANCE RATE NgJXj-PRODUCT SALES IN LONG RUN IF ADV RED TO ZERO bflw@vwX@|vQUvaev@@@ v`@wwv16Zj4PRODUCT HAS A SEASONAL OR OTHER NON ADV TIME EFFECT gW@@0NfW4 X@|h@ Z*f4 j7INDEX OF PRODUCT CLASS SALES(REF CASE 1.00) FOR PERIOD:>X@|Hj Rf@\Zfj&BRAND SHARE HAS A NON ADV TIME EFFECT zgW@@0NWX@|h@Zj)INDEX OF NON ADV TIME EFFECT FOR PERIOD :X@|j f@ZjMAINTENANCE ADVTG VARIESgW@@0NWX@|h`Zj/INDEX OF MAINT ADV (REF CASE =1.00) FOR PERIOD:X@|j f`ZjMEDIA EFFICIENCY VARIES gW@@0N~WL$X@|.hQ8ZB~Lj%INDEX OF MEDIA EFFICIENCY FOR PERIOD VX@|`j jfQtZ~jCOPY EFECTIVENESS VARIES gW@@0N WX@|haZ j'INDEX OF COPY EFFECTIVENESS FOR PERIOD:X@|j faZ jBRAND ADV RATE VARIES g(W@@0N2Wn<X@|FiP wPZZdnj"BRAND ADV (M DOLLARS) IN PERIOD :xX@|j g wPZjBRAND ADVERTISING (MM DOLLARS) g@ wX@X@| w@ wPZjw w@@Nj%ACTION CODE :1=OUTPUT,2=CHANGE,3=STOPj jACTION gj"U,@',T6@ JTv."^ vN"&"h v"&"r wN$"&"| v~LWv-N#F vMN#F&E#F vF"&E" wM$J#F&N#J v}Lw@>wX@| wfff%>v!"&fff% wPZ>&j:%jAPERIO SHARE PRODUCT BRAND CONTR BRAND CONTR CUMUL SLOPED%jA PCT SALES SALES BEF ADV AFT CONTR CC$/$Nj4 UNITS UNITS DOLRS UNITS DOLRS ADV DOLRS ADVX"j; (MM) (MM) (000) (000) (000) (000) (000) (000)bjll H 11("===== ")vX@| w&d$w'A w(A%w)1w)}%) w*1%w*}%* w+1$1w+}%+w,w,}%,w-+#,w.w.}%. w%!j &'()*+,-.% H 2X,2D,2X,2D.2DX,8(5D,1X),2D.2D*Z4^>wHX@|JwLw&`Rv@\ wQQ@fWp wae#!'ezwQ $Q@" -%a(}&M!a(}wqQ$a%&U$e%v $@" .%q(~&N!q(~v$@wAQ$@ w1A$w w 1%1#WvZ^ W 8 !j9CHANGE CODE :0=NO MORE, 1=MAINT. ADV., 2=MIN. FINAL SHARE  j83=MAX FINAL SHARE, 4=FINAL SHARE WITH 20% ADV OVER MAINT $j5=LONG RUN MIN., 6=BRAND ADV. )j-7=REFERENCE CASE COND, 8=BUDGET HORIZON COND .w 8 jCHANGE  Bg L U ` ~  V^ `jMAINTENANCE ADVERTISING  jg t 8 ~jMINIMUM FINAL SHARE  f  8 jMAXIMUM FINAL SHARE  f  8 j/FINAL SHARE WITH 20% ADV OVER MAINTENANCE LEVEL f  8 jLONG RUN MINIMUM SHARE  f  8 jBRAND ADVERTISING FOR PERIOD : X@| j  g  wP (Z 2 8@n@ \(@qA @@HDpX Dl@I@fff@L@fffL\(L'`ANNUAL '"R **** HP BASIC PROGRAM LIBRARY ******************************RR MRKSIM: MARKETING SIMULATIONR ANNUAL, PART 4 OF 5 (PRINTS ANNUAL REPORTS) R 36199 REV AR"R **** CONTRIBUTED PROGRAM ***********************************@R ANNUAL REPORT FOR MARKETING GAMEJpINDY#1,INDY#2,INDY#3,DECIST NR”!YNH^j TYPE IN USER NUMBERhfj$ENTER INDUSTRY # AND LATEST PERIOD #fvwdh@ĠP$` X@`h@d@d` wdd` Z hԄ@$@ X@` X@@L@hRRZZ j ----------j j j j ANNUAL REPORT FOR INDUSTRY#  &j 0 j AS OF PERIOD :j Dj NjFIRMS: X,`@P \ d Z X b A bj lj vjCUMULATIVE RETAIL SALES j SINCE PERIOD ֦@@ ,P ”@@P ”@@x ”`@ j SINCE START j OF GAME ,P ”@`P ”@`x ”`` j j jCUMULATIVE NET PROFIT j SINCE PERIOD ֦@@ ,P ”@@P ”@@x ”`@ j SINCE START j OF GAME ,P ”@@P ”@@x ”`@!j! j!jCOMPARATIVE BALANCE SHEETS! j!*j!4jASSETS!>j CASH!H,P @@P @@x `@!R j INVENTORY!\ X@`!f#MR@$R` R@$R@@!pM @!zL!"@!Z!#P @P @x `!)P  ==========P  ==========x  ==========! j TOTAL ASSETS!#P @P @x `!j!j! j LIABILITIES! j DEBTS!,P @@P @@x `@!j!j!jCAPITAL" j OWNER'S" j INVESTMENT"#P !@P !@x !`"$j "L j -----------"Vj "`ASMB # N! K J0 wP@  p$ASCII,ASMWRKR HPASMB, HP 36806A, 2/74 (ASMB, PART 4 OF 4)NH H@@v`(vT]Ǟ2j@`5v>7o<wĞ@Fh@PD0@DZh@d V`@w@vĠ@h@V@@0*#(vgg$g`P$gP X@L h D Vhi0 ZwDV vT`5D@7p4Dp6P@jvǠ@"WD`,WD@7D@7Dp6gJ6 V`@E@ Ej@@g`J UDT\:vMWDh:OT@^ V6@hwrNvTǪ@7`4P@jV`Xj|k V.,w@Z0:@D V!*>6Iw NVTpSXvw@ V`@ @ V`@h@ dj@@g`N h@@*h@ d4 V@g. *>vT@HRJ\ W@a j SYMBOL TABLE f V`@k h@@ph@z jF#,5AXX~w4v&@v'`jpj R--PASS 2vĞ@w@w@ V`@v *'j@.PRNT.READ.EXITEXEC`w@ h@@v˞@vTpw@vĠ@h@V@@.*.VB v&P"v'@$v%w4&*j,.0V@@,0H2V@@*9H8vT`H#(I vʞ@Lh DV Vhh@0 ` `LevT@jp~ UD(x" UD@X @ V6*>wvT`vʞ Y@}@p[vʞ@@wvɞw@ V4@>6TvT`pj** V]j NO v&Pw4@v'@v]jERRORS*w@@@ rHPASMBd j$END ASMB XEND R--CONSTANTS(V@<*@, w@ .VT60vT464B`2VT64vT@,@ 7@P6p8<v ,> @v@Bw4@Dv -+F H T@LNJw4@Lvjj@Nv&P!RVTVTvT,@ 6PV w@%4XpZvʞ[vj@\w@^Vj@k<`wR--BSSx@}p V7 *>w vT` R--2 WD INSTS. w@p@w@ w@ vʞp R--LIST CONTROLvɞ T  @p/$ v`  v`4@vȞP0pR--MEM REF"@6 w@ ;p= V6O@OvTPT^R--EQU@wwvɞpwR--I/O w@V.{4.}?0 v i@j@v  @ !V @`. C 0& w@@0p:N R--ROTAT/SHIFTXvj@bv&Pgvkl!v VD 4{vTPvw@ $@ p R--ASC @ V p w  V!@>  vT`  vT  X@@$@ &v j 0 : w@@ Dv@ N Xw@@ bp lvʞ vw@ Z  v  v V-@@ v  v@ X@ @@ V@  Z v@ X|x~@ V0   Z v @ ^ R--ROT/SHFT GRPv#nv@ vhV v@@V*im#v`v T@@$*i@mm",v 6V*im@#nJv@ T^Vhv @ jV,im w@rXh|i| V0BZw@@@Xh|i V0AZvT@p R--ALT/SKP GRP#v`vhvV*iV@.SEZv@  V*i# v`*>v HV*iR#\vHfzv |V*i~v V| w@@rR--HUNT OPSX@|h D V 0@Zv^v@T@0i@$@*iV@@0,vT@^pR--PRINTOUTzVưj Vǰ4˰jvv&Pv'@vw4@vv'Pv&@w4@vvv'` v@$Vʰ8.j8jQw4@jVTo^V?'!4^v@"$&@4X'@~@jF#,D&&(&&(@$&Z?4^ v DDILM OPOVSYUNNO j @$T@@$T v]]@vv&P(v'@-w4@2FjKvTP^X R--FIND FIELDSbXl V0 vZvd@^X V. Zv@bvg@vhb vi@ *vj>bHvk@R^? R--OPAND CALC@vBVj@kECvT`D^E Vjj0=!JVj*k Tw4@^v +-,h rT||w4@Vj@k0IvT`v@ ^vjj@ V@vT`^ v  0123456789 VP!p v ,+-  &vl 0v@ :v&P D V.B b Nv&@ Xv@ bv l! vv %4 vjl J X@  Vjj0  Z ^ R--FIND SPEC CHAR Xj|k X@  V0  Z Z v ^ R--STR TO NUM! v  0123456789! v!Xj|! X@|&!* V0 !R!4Z!>vT@!H^!R v$& @!\Z!^ V&P6@ !f!av@"!f^!pv ,+-!z !|vl!~ V"j`!!vT`!vj@!Vj@.*!!v! v! V`@!! h@@!h@ ! V .j@!! v!vTp!^!VC!!v !ADAADBANDMPYLDALDBXORDIVCPACPBIOR" X@B `"Vhi0 @""Z"vT`"vjj@" v&P"v DBLA" "T"8"3"""$vT`".^"3v&@"8vjj@"Bw4@"L Vjj0-"j"Vw4@"` Vjj.+"t"jvjj@"tvk"y!"~v%4"X}"V1""Z"w"w@"v@"^"vjj@" Vjj0="$"@"v"""vj@" "v@"v@" #v # "#(4dORG@END@EQU`DECP@OCT@@#-4dDEF@ABS@@SUP`pUNS@pNAMPp#2*dBSSPMPY`DIV`DLD`#<4dDST`UNL@pLST@pSPCpASCh#F*dAND@@XOR@@IOR`@JSB`@#P*dJMPP@ISZp@ADA@@ADBH@#Z*dCPAP@CPBX@LDA`@LDBh@#ddSTAp@STBx@#n>dALSHBLSHARS@HBRS@HRAL@HRBL@H#x>dRAR`HRBR`HALR@HBLR@HERAPHERBPH#*dELA`HELB`HALFpHBLFpH# dCLE@ HSLA@HSLB@H# dCLA@PCMA@PCCA`P# dCLB@PCMB@PCCB`P# dSEZ@ P# dCLE@PCME@PCCE`P#*dSSA@ PSLA@PINA@PSZA@P#*dSSB@ PSLB@PINB@PSZB@P# dRSS@P# dASR`ASL`LSR `# dLSL `RRR@`RRL@`#*dSTOAXCLOAXSOCXSOSX#dNOPXSWP@X'` AVAIL  =|#R **** HP BASIC PROGRAM LIBRARY *******************************RR AVAIL: COLLEGE REGISTRATION DEMORR 36282 REV A PART 5 OF 10 6/73R#R **** CONTRIBUTED PROGRAM ************************************ R COURSES AND SECTIONS AVAILABLE REPORT pCOURSEN  ( V`@<jF"jCOURSEhSECH CRDS` Kj INSTRUCTOR^ TIMEPjZv@d X@Hnh@xV0 h@v@ X@`h@V0  h@ jhH `  ^ v֠@ZjvhZjj` BARKPID 'D"R **** HP BASIC PROGRAM LIBRARY ******************************RR MRKSIM: MARKETING SIMULATIONR BARKPI, PART 3 OF 5 (PRINTS OUT RESULTS) R 36199 REV AR"R **** CONTRIBUTED PROGRAM ***********************************R THIS IS THE PRINT PROGRAM FOR THE MARKETING SIMULATIONR SEE ARMKSIM BY GREENLAW AND KNIFFENpMPRINT,INDY#1,INDY#2,INDY#3,DECIS,USERh`8N"2R 2OqNHR INSERT THE NAMES OF THE FIRMS SELECTED BY THE CLASS2h@< X@`F X@D P h@2ZZd X@Pnh@2"xL@Z X@@,h@""@RR@L""@L"@"@@L@M@L@Z h@q" XԞ@`, h@6Z@ZJh@P@P@T X@`^h@@`hZmMdohPנP$`r X@`|jhPd@d` jjjj*** j M A R K S I Mj jd@d` Mdd` jj INDUSTRY #FIRM #PERIOD #jj-------------------------------p$P2@jMR@$R` R@$R@j2@& V2`D0$j2`$@H (SUBSTRAT INCREASE IN INV.):ND!j2`$@H (ADD INCREASE IN INV.)NP2@$@XP ---------ljvj X`xj2ZP2@ $@P ---------p$P2D  j------------------------------4j$`@> `H` ----------Rj$`@!"@@\`@@f` ---------pj$`@!"@@j------------------------------- W"@@ j NOT PURCHASED kP@ W"@@ j NOT PURCHASED kP@jMARKET 1*MARKET 2*MARKET 3 W"`@ j NOT PURCHASED$2@@P@@P `@$ W"@@B. j NOT PURCHASED8LB&k@@P@@P @`L W"P@jV j NOT PURCHASED`~j)jd%@@Pd%@@tP d%`@~j k`@ k`@ k``j-------------------------------j j@P@P `2@@$j"@PAT $d$"P@d$jR@PAT $d$RP@dj jj`2`@( M`%`2 MS33%`<j$d%@dFj$%2`@Pj"`PAT $"p@ZjR`PAT $Rp@djnjxj@2@@j$d%@dj$%2@@$j"@PAT $d$"`@djjjP2P@j$d%@dj$2@#%2@@2@@xj@$j"@PAT $d$"@@d$jR@PAT $d$R@@d,j6j----------------------------@jJ j*** TEAR HERE***Tj^Zcjנ@@$@r X@`| X@@jנ@RR@ZZ`xBARKSID N4"R **** HP BASIC PROGRAM LIBRARY ******************************RR MRKSIM: MARKETING SIMULATIONR BARKSI, PART 2 OF 5 (PERFORMS COMPUTATIONS) R 36199 REV AR"R **** CONTRIBUTED PROGRAM ***********************************dp$HISTRY,MPRINT,$PARAM,DECIS,INDY#1,INDY#2,INDY#3,USERn,N!1BR x.O"1brA QaqO” n!@ n`@ nR`H o@` n⟿p` n1D .j@ X@`* X@D j@1Z X@P j@1 j@"Z X@@&j@!!@RR@ j@"Z, j@B`6 XԞ@`@ j@PJZTZ^Fj@@@@@@@`@@@`@@```r. X@@Lh`AQaqjZoh@q h@P$@th@yhנ@@$@~X@| X@@ h`r@ZZ X@` X@@ h`rZZ X@` X@@ L@Vت@F(h@RR2PFhנ@RRPZZZn X@`x0h@B@B@B`B`B@BpBP X@P h@"Z M"`@VB`+A@ LB`A@Z X@`)LVA@$B@)AP&A` B@)AP!L`Ap$V @#Ap$`}.LRHQ@$B@)QP&Q` B@)QP"LB`&RP, V+apJ6LapJ#vWa@%aP&aP #ap)a`^ Wa@>|hLW|W`>B`LW XԞ@` LRP W>RPL VRP?ALXLXQ$#a)q#$#a)Lb`$RH$W$X0L`` b:ZDZX X@`bL``}l XԞ@`LB@r@$` `` V` MMB@$b&`L@@!Z XԞ@` LVR@>@ LR@%&@ Lpp LPP  Z$Z&^*o4 X@@> L!RHZfLp$@p V?@zL@ V>B@ LB@L@B@L1@B@$B`@LR@R@ B@ VR@ LR@LR@!@$!@ 1@&R@ L@@ M1@p LR@R@#1@ MAHr@@d $MAP@#AH . X@@ 8L@ L!LA@$Qp$@!1@"!@ VL` ` V+q t jLq tM1 VR> M1R LRR#1 LRPRP$R@!1$R@ LR@R@!1 VR@ LRP  LRPRP&R@ Z L@Bp LPQ@$`!1`"!` X@` L@ L@ ( V+q < 2Lq <M1 F VR@> Z P M1R@ ZLR@R@#1 dvRR$R!1$R@ n LRR!1 x VR LR  LRR&R Z X@@ L@ VR LR Z M@@@$B` M@@P$B` !v1@@@%1@!@@%1P L1@1@@ L1H`$R@$R@ "L1H1H@ ,L1Pp$R@$R` 6L1P1P@ @L1`@%1@ JL1`1`@ TL1pP%1@ ^L1p1p@ hL1@`%1P rL1@1@@ | L1XB@ L1`R`$R@ R@$R@ L1`1`"!@$!`"!@$!@ L1`1`@ L1@1@"1` L1P1@"1@ L1h X@P L1h1h!p%" Z V@>BP LBP@ L@@"BP L1`B@  L1xP  L1@   X`x &L1@ 1@  1 0Z :L1D 1P"1@  Nv@@ 1D "1`"BP X V@ bL@@"@ l L@ v L1p@%@ L1p1p@ L@"1p V 'L1p@"@$@&@#@@ L@@ 1p"@ L@  L@ L1@ 1@  1p L1D 1D "1p X@` M@@@@ B@ M@@@@ B@ * M` 4M@r` > VP \ H MP R f \MP&P fM`B` pZ L@@1@@ L@@1D @ L``1@@ L@@1D @ ^j,COMPUTATIONS COMPLETED : GET AND RUN BARKPI`BASKET^ ? #R **** HP BASIC PROGRAM LIBRARY ******************************RR BASKET: BASKETBALL STATISTICSRR 36605 REV A -- 10/73R#R **** CONTRIBUTED PROGRAM ************************************ N " 2 є  N p  pVARS,JRVAR,NAMES(j4ENTER # OF MEN PLAYING, GAME #, TEAM (VARSITY OR JV)2gtp<Wp@@0JdFwD@Pw$pZxdwD@nw$xx n$h n"$h nh D2$`X@}$v"@2@}v"`2@}$"@v"@2@N w2@N $"@v"Pdv"`d$"Pv"p2`N w2`N $"pv"@dv"@d$"@v"H2@}v"P2@}$"Hv"X2P}"v"`2P}$"X,v"h2`6Z@WpJ!j7ENTER #, OFF RB, DEF RB, LOSS, VIOL, GAIN, ASST, FOULS,T j FGA, FG, FTA, FT^X@}$h V1@rR THE FOLLOWING LIST GOES TO A(I,12)|Jf@@`@P`p@HPX` V@vhh@v@@jGAMESfhZX@}$ V@ V"@v@"@V@0"@V@*"@v X$@|~@ X@h& v"@"0Z:ZD X@hN v"XZbv"@@lv V"@v"@@ X$@|~@ X@h v@ZZ X@h vZv@"@Zn# #X@}$ v"@"@@v2@}$"@ "` v2@N $"@d$"P "`* v2`N $"pd$"@ "@4v2@}$"H "P>v2P}$"X "`Hv2`"hRZ\j D@fnj D3p/`z` NORTH EUGENE HIGH SCHOOLWD@T VARSITY BASKETBALL STATISTICSH $JUNIOR VARSITY BASKETBALL STATISTICSjtH 28X,"THROUGH",3D," GAMES"/` FLOOR PLAY/@j PLAYER OFF DEFBGAMES"j: NAME NO. REB REB LOSS VIOL GAIN ASST  jFOULS PLAYEDjnӟh`DX@}$h`*j$"@"@"`"@"P"`$H #,9A,5D,X,6D,2(6D),2(X,6D).j8"p"@"h8 H X,6D,2(2X,6D)B X@`L v "VZ`Zj X@`t v&t~Zj(jє@є`є@єPє`єpє@H( "TEAM TOTALS",4X,3(6D),3(X,6D),2(2X,6D)(j@`@P`p@H- "TEAM AVERAGES",2X,3(4D.D),3(X,4D.D),4X,2D.D/@SHOOTING/@!j7 PLAYER F G FLD FLD GL F T FR FR THR j POINT POINT!j7 NAME NO. ATT GLS AVERAGE ATT THR AVERAGE j TOTAL AVERAGEjh`DX@}$ V"H(w2(w"P&"H2 V"XP<wFZPw"`&"XZw@$"P "`d V"hn wt&"hxwth`(j"@"H"P"X"`tH1 9A,4D,6D,6D,3X,D.3D,X,6D,6D,3X,D.3D,X,6D,4X,3D.DZ wєP&єH wє`&єXw@$єP є`jjєHєPєXє`H' "TEAM TOTALS",2X,2(6D),9X,2(6D),11X,4Dw&t j TEAM AVERAGESjHPX`H+ 2(4D.D),3X,D.3D,X,2(4D.D),3X,D.3D,11X,3D.D/@"`CA1 C '@@@X@X `D `P `` `p `A`H`O`[@``e@s@k- 5=COMMENT 1, 6=COMMENT 2, 7=DELETE, 8=NONEv" j%% CHANGE CODEf-$ \-0L %.V-,6-*8V-,BxV`kX)|$h)Z) j FILE IS FULLR** EMPTY REC FOUND ** R** NEW ENTRY **n_v  @Th0jENTER WEEKS,COST,LONG.,LAT.f(VAMOS A TRATARLO OTRA VEZ.NO. OTRA VEZ.$TYPE THE NUMBER OF THE CARLOS LESSONYOU WISH TO WORK ON TODAY.$YOU DID NOT TYPE THE CORRECT NUMBER.'PLEASE TRY AGAIN.LESSON DOES NOT EXIST.(TIMECARLOS LESSON NUMBER DATEHOY TENEMOSSECCIONES EN NUESTRA LECCIO'N.ESCRIBE AQUI' EL NU'MERO DE#LA SECCIO'N CON QUE QUIERES EMPEZAR)IF YOU DO NOT KNOW THE ANSWER TYPE:NO SE' LA RESPUESTA ES--O, QUIZA'S--***REPASE ESTE PUNTO, POR FAVOR.'BUENO. ?QUIERES CONTINUAR? (SI' O NO)/NO LE ENTIENDO. CONTESTE ORTA VEZ. (SI' O NO)T,HABI'AERRORES EN SU TRABAJO HOY. REPASE VD.CON MUCHO CUIDADO ESTOS PUNTOS.EORRECT NUMBER.'PLEASE TRY AGAIN.LESSON DOES NOT EXIST.(TIMECARLOS LESSON NUMBER DATEHOY TENEMOSSECCIONES EN NUESTRA LECCIO'N.ESCRIBE AQUI' EL NU'MERO DE#LA SECCION'N CON QUE QIERES EMPEZAR)IF YOU DO NOT KNOW THE ANSWER TYPE:NO SE' LA RESPUESTA ES--O, QUIZA'S--***REPASE ESTE PUNTO, POR FAVOR.'BUENO. ?QUIERES CONTINUAR? (SI' O NO) BUENOS DI'AS.#WHAT IS YOUR NAME SEN*OR/SEN*ORITA?;A A A A A A E E E E E E I I I I I I O O O O O O U U U U U U+!EXCELENTE! YOU DIDN'T MISS ANY QUESTIONS.**NICE GOING! YOU ONLY MISSED ONE QUESTION.SEN*OR/SEN*ORITAHASTA LA VISTA = = = = PRECISAMENTE.@P@P@P@P@0#TRANSLATE EACH OF THE FOLLOWING SHORT PASSAGES.9#BE SURE TO INCLUDE A PERIOD AT THE END OF EACH SENTENCE.HE GOES.VA.E'L VA.TAKE A GOOD LOOK AT IR.I GO.VOY.YO VOY.NDS#TB GOING.YENDO.ANIENDO. 'I' TO 'Y' HERE. B WE WERE GOING.I'BAMOS.A ESTA'BAMOS YENDO.*CCLUMSY BN GO!(VD. FORM)S!VAYA! !VAYA VD.!ULIDSEE VERB CHARTHE WENT (ONCE).FUE.FUE'.A==RSBUWE WENT.FUIMOS.AENMBT(THAT) WE MIGHT GO.OVAYAMOS. FUE'RAMOS.AWI BLTHEY WILL GO OUT.O SALDRA'N. VAN A SALIR.W O'BARA'N. VAN A SALIR.AOOA D IN FUT.OVOY.GO OUT! (VD. FORM) !SALGA VD.!.!SALGA!AB8#PLACE THE DEFINITE ARTICLE IN EACH PHRASE AND WRITE OUT/#THE WHOLE PHRASE. (DON'T PUT IN ANY PERIODS.).-- ARMAMEL ARMAMAB -- HAMBRER EL HAMBRERA LA HAMBRERB -- ALTURAR LA ALTURARA EL ALTURARA ISN'T STRESSEDB-- AMAEL AMAAB -- HACIENDAD LA HACIENDADA EL HACIENDAD HA-UNSTRESSEDTB -- ABUELAL LA ABUELALABY.-- AVE PEQUEN*AFEL AVE PEQUEN*ANASAB-- HACHAEL HACHAANLA HACHANHA- IS STRESSEDWEBT-- HABITACIO'NLA HABITACIO'NA  I.BA-- ALMAAEL ALMAA BH:#PLACE THE INDEFINITE ARTICLE IN EACH PHRASE AND WRITE OUT/#THE WHOLE PHRASE. (DON'T PUT IN ANY PERIODS.)S-- ARMAOUN ARMAAA EB -- HAMBREM UN HAMBREMACD HBE -- ALTURAT UNA ALTURAAAN-UABA-- AMAUN AMAAAFO.-BE -- HACIENDAL UNA HACIENDAASAB -- ABUELA UNA ABUELAAAC BS-- AVE PEQUEN*AUN AVE PEQUEN*AAABCN  BI-- HACHAUN HACHAAAB-- HABITACIO'NUNA HABITACIO'NTARLNCHBE-- ALMAEUN ALMAEAOPS NBP3#SUPPLY THE DEFINITE ARTICLE WHERE NECESSARY IN THE8#FOLLOWING SENTENCES. BE CAREFUL TO INCLUDE THE PERIOD.JUGAMOS A -- PELOTA.JUGAMOS A LA PELOTA.AAU-ANBAAFO.-- SEN*OR LO'PEZ ES PROFESOR.IEL SEN*OR LO'PEZ ES PROFESOR.-AUSEN*OR LO'PEZ ES PROFESOR.0HERE WE'RE TALKING ABOUT (NOT TO) SEN*OR LO'PEZ.BLEVANTAN -- MANO DERECHA.CLEVANTAN LA MANO DERECHA.AHTO BI&-- SEN*OR LO'PEZ ?ES VD. -- PROFESOR?#SEN*OR LO'PEZ ?ES VD. EL PROFESOR?3 SEN*OR LO'PEZ ?ES VD. PROFESOR?CAIHB8-- VIDA ES BREVE.SLA VIDA ES BREVE.CAEER.UBOME DUELE -- CABEZA.OME DUELE LA CABEZA.UA-ANAFBO.-- RUSO ES DIFI'CIL.EL RUSO ES DIFI'CIL.APERS-BULEO EN -- ITALIANO.OLEO EN ITALIANO.AELEO EN EL ITALIANO.OE9ARTICLE IS DROPPED BEFORE LANGS. WITH DE, EN, AND HABLAR.LABDLO BUSCA EN -- BOLSILLO.LO BUSCA EN EL BOLSILLO.A  PE?BE&DESPUE'S DE -- ALMUERZO VAN A -- CAMA.$DESPUE'S DEL ALMUERZO VAN A LA CAMA.AV BB??LA VIDA ES BREVE.CAEER.UBOME DUELE -- CABEZA.OME DUELE LA CABEZA.UA-ANAFBO.3MUY BUENOS DI'AS. AND YOU ARE SEN*OR/SEN*ORITA....5DIGA VD. 'TOTTER DAY' MUY RA'PIDAMENTE MUCHAS VECES.%?QUE' ESTA' PRONUNCIANDO EN ESPAN*OL?,-'TOTTER DAY', PRONUNCIADA MUY DE PRISA, ES LAR/PRONUNCIACIO'N CORRECTA DE 'TARDE' EN ESPAN*OL.H*AHORA, PRACTIQUE VD. ESTA PALABRA EN CASA.(!EXCELENTE! NO HABI'A NINGUNOS ERRORES.&MUY BIEN. HABI'A SOLAMENTE UNA FALTA.* * * * ADIO'SHASTA LA VISTA.R PRECISAMENTE.`H@h@`@`@(#TRADUZCA VD. ESTOS PASAJES AL ESPAN*OL.,#!OJO! HAY QUE ESCRIBIR UN '.' EN CADA UNO.#AHORA VAMOS A COMENZAR.I HAVE. TENGO. YO TENGO.TUSCBQ WE WILL HAVE.C TENDREMOS.VAMOS A TENER. TENEREMOS.A.HAY UNA 'D' EN LA FORMA DEL FUTURO, ?RECUERDA?AB' THEY HAVE.TIENEN., ELLOS TIENEN.E A C AHE HAD. (ONE WORD)TENI'A.ATUVO.TAH BEHAVE PATIENCE (VD. FORM). TENGA VD. PACIENCIA.TENGA PACIENCIA.EE  CIENCIA.TENGA PACIENCIA.ACDSS PASAJES AL ESPAN*OL.5ESTA FORMA DEL VERBO VIENE DE 'TENGO' EN EL PRESENTE.V I KNOW IT.LO SE'.A YO LO SE'.ONTU A+THEY WILL KNOW IT (DON'T TRANSLATE 'THEY').H LO SABRA'N.BLO VAN A SABER.S LO SABERA'N. SABERA'N LOA2LA 'E' SE PIERDE EN EL FUTURO Y EN EL CONDICIONAL.EL OBJETO VA DELANTE DEL VERBO.VBO(THAT) SHE MAY KNOW IT.OLO SEPA. ELLA LO SEPA. SE'PALO.SEPA LO.ESTO SIGNIFICA '!KNOW IT!'OBJETO PRIMERO.IBOHE FOUND IT OUT.LO SUPO. E'L LO SUPO.PEAL ESPAN*OL.0'FIND OUT' EN EL PASADO = PRETE'RITO DE 'SABER.'#.6#AHORA, ESCOJA (CHOOSE) 'EL' O 'LA' Y ESCRIBA LA FORMA.# COMPLETA DE CADA PASAJE. NO HAY '.' AQUI'.JUEVES EL JUEVESAVABDOBBPARED LA PAREDA2'SIEB MANOLA MANOEAOCAOES UNA EXCEPCIO'N.PLANETA EL PLANETAAMK AOES COMO 'COMETA.'APODERPEL PODERA.SSIALOS VERBOS SON MASCULINOS.DI'AEL DI'ADA .OP COMO EN 'BUENOS DIA'S.'ESPECIEP LA ESPECIEAF ' PBDMONARCA' EL MONARCAA'.AAS9'LA' ESTA' BIEN; SI SE REFIERE A UNA REINA Y NO A UN REY.EOCTUBREA EL OCTUBREA IV BJVIRTUD LA VIRTUDAEBP RELACIO'N' LA RELACIO'NAOANBCALIDAD LA CALIDADACI.LTB  MUCHEDUMBREMLA MUCHEDUMBREASMCTABO>#EN ESTE EJERCICIO VD. TIENE QUE ESCRIBIR LA FORMA CORRECTA DE>#'HABER' PARA CADA FRASE. !OJO! HAY QUE USAR 'DE' O 'QUE' ENCIEP LA ESPECIE/#ALGUNAS FRASES. TIENE QUE ESCRIBIR '.' AQUI'.'#(THERE ARE) CAMINOS EN BUEN ESTADO. HAY CAMINOS EN BUEN ESTADO. ARECR BO&(ONE MUST) DESCANSAR DE VEZ EN CUANDO.#HAY QUE DESCANSAR DE VEZ EN CUANDO.EAI'ALOB'(THERE HAS BEEN) MUCHA NIEVE ESTE AN*O.D HA HABIDO MUCHA NIEVE ESTE AN*O.HABI'A MUCHA NIEVE ESTE AN*O.>REPASE VD. EL VERBO 'HABER.'ELLA (IS TO) CANTAR ESTA NOCHE.>ELLA HA DE CANTAR ESTA NOCHE.!AAUS' BQ' ENCIEP LA ESPECIE,(IT IS NECESSARY TO) ESCUCHAR CON ATENCIO'N.HAY QUE ESCUCHAR CON ATENCIO'N. AA AAOBN.(THERE WILL BE) CLASES MAN*ANA POR LA MAN*ANA.%HABRA' CLASES MAN*ANA POR LA MAN*ANA. ACAEZ BN"(I HAD) TOMADO DOS VASOS DE LECHE.!HABI'A TOMADO DOS VASOS DE LECHE. $YO HABI'A TOMADO DOS VASOS DE LECHE.MAEEB &NO (THERE IS) MAL QUE CIEN AN*OS DURE.NO HAY MAL QUE CIEN AN*OS DURE. AAC>LHBE=(ONE SHOULD NOT) BURLARSE DE LOS PROFESORES. (B.='MAKE FUN')PIE&NO HAY QUE BURLARSE DE LOS PROFESORES.A'  UBR(WE HAVE) ENTREGADO EL PAPEL.AHEMOS ENTREGADO EL PAPEL.LASNAR B*(THEY HAD) CONCEDIDO EL PREMIO.AHABI'AN CONCEDIDO EL PREMIO.HUBIERON CONCEDIDO EL PREMIO.DHABIAN CONCEDIDO EL PREMIO.A &FORGOT YOUR ACCENT. SORRY ABOUT THAT!EB.(HE WAS TO) EVITAR EL PELIGRO.HABI'A DE EVITAR EL PELIGRO.AHMQC BO,# ESTA SECCION' VA A SER MUY FA'CIL PARA VD.T) BURLARSE DE LOS PROFESORES. (B.='MAKE FUN')PIE7#SO'LO TIENE QUE ESCRIBIR (SIN '.') LA EXPRESIO'N ENTRE$#PARE'NTESIS. EN ESPAN*OL. !CLARO!+AQUEL DI'A PEDRO PARECI'A (ANOTHER) HOMBRE.OTROAT )NIBE*?TIENE VD. (SOMETHING) NUEVO QUE CONTARME?ALGO DENAIALGOMES MEJOR USAR 'DE.'O BM(I AM VERY LUCKY) ESTE AN*O.TENGO MUCHA SUERTEA   BT(I INTEND) IR A ESPAN*A.PIENSOAERB-(I SHALL TAKE ADVANTAGE) DE ESTA OPORTUNIDAD. ME APROVECHARE'AVOY A APROVECHARME =KUBPIE%ES (TO LEARN, FOR LEARNING) ESPAN*OL.A PARA APRENDERRA$RTSEBS3?(WHAT DO YOU THINK OF) MI IDEA? (DON'T USE PENSAR) ?QUE' LE PARECE?QUE' LE PARECEETE.BOVD. NO HA DICHO NADA (SO FAR). HASTA AHORALAMRABD&(I WOULD LIKE TO) SABER CUA'NDO VIENE. ME GUSTARI'AQUERRI'AB ?(ARE YOU GOING TO) VIAJAR SOLO?VA AVAS AIBAVIVE (NOT FAR FROM) MADRID.O NO LEJOS DEEARCE BP(YOU ARE RIGHT), CARLOS.BPIE TIENE RAZO'N TIENES RAZO'N  TIENE RAZONAA!ACENTO!BSEBS3?(WHAT DO YOU THINK OF) MI IDEA? (DON'T USE PENSAR) ?QUE' LE PARECE?QUE' LE PARECEETE.BOVD. NO HA DICHO NADA (SO FAR). HASTA AHORALAMRABD&(I WOULD LIKE TO) SABER CUA'NDO VIENE. ME GUSTARI'AQUERRI'AB ?(ARE YOU GOING TO) VIAJAR SOLO?VA AVAS AIBAVIVE (NOT FAR FROM) MADRID.O NO LEJOS DEEARCE BP(YOU ARE RIGHT), CARLOS.BPIEMUY BUENOS DI'AS.#SEN*OR/SEN*ORITA, ?CO'MO SE LLAMA?2,?PUEDE VD. DECIR EN ESPAN*OL LA HORA Y FECHA'(ESCRITAS DESPUE'S DE 'CARLOS' ARRIBA)?p'!EXCELENTE! NO HABI'A NINGUNOS ERRORES.,MUY BIEN HECHO. HABI'A SOLAMENTE UNA FALTA.* * * ADIO'S SEN*OR/SEN*ORITA HASTA LA VISTA.SI'.`P`@ @`@h`6#TRADUZCA VD. ESTOS PASAJES AL ESPAN*OL, CON PUNTO '.'1#DESPUE'S DE CADA UNO. POR FAVOR, NO ESCRIBA VD.&!#EL SUJETO DEL VERBO. !VA'MONOS!I DO.HAGO.A!UUBS THEY MADE IT.R LO HICIERON. LO HACI'AN.A,DVDBR DO IT NOW.HA'GALO AHORA. HAZLO AHORA.EDCOBAHE HAS MADE IT. LO HA HECHO.AOB GSBRSHE WILL DO IT.H LO HARA'.'AO LO HACERA'.A.%ESTE VERBO ES IRREGULAR EN EL FUTURO.B  YOU WANT IT. LO QUIERE. LO QUIERES.BWE WISHED (= TRIED). QUISIMOS.A''ES UN SIGNIFICADO ESPECIAL DE 'QUERER.'  I SHALL WISH.QUERRE'.A  QUERERE'.QUERRA'.%ESTE VERBO ES IRREGULAR EN EL FUTURO.C'I', NOT 'HE'.BA(WE SHOULD WISH ('SHOULD' = CONDITIONAL). QUERRI'AMOS.AR QUERERI'AMOS.('QUERER' ES IRREGULAR EN EL CONDICIONAL. BG#MAY GOD DO IT.('MAY' = 'QUE' HERE).'QUE DIOS LO HAGA.QUE LO HAGA DIOS.RU ETB.9#AHORA, ESCRIBA VD. LA FORMA CORRECTA DE 'SER' O 'ESTAR!.A.# AQUI' NO HAY QUE ESCRIBIR UN PUNTO '.' .#.ALLI' -- MI CRIADO.NESTA' AEL E.B EL SEN*OR GO'MEZ -- PROFESOR.UESAUABSPABLO -- DEL BRASIL.ESAUO,TBE"PERO AHORA PABLO -- EN EL CANADA'.ESTA'NA.UIOB MI ABUELO -- VIVO (ALIVE).ESTA'EAAN DOB.SU HIJA MENOR -- VIVA (LIVELY).'ESAR'UILBAEL VESTIDO -- VERDE.ESA9BOHAGA EL FAVOR DE -- BUENO.SER A'''AAB EL CHOCOLATE -- FRI'O.ESTA'NAN'.@LB EL PAPEL -- SUCIO.ESTA'ABSNUESTROS AMIGOS -- RICOS.SONAUASBAPERO NO -- FELICES.SSONAESTA'N*'SER' CON 'FELIZ'; 'ESTAR' CON 'CONTENTO'.BSU COMPAN*ERO -- BAJO.ESA-VAEBAEL MURO -- HECHO DE LADRILLOS.ESTA'OA-VLL'BSEL RUSO -- DIFI'CIL.ESAVI-E.BSLA MUCHACHA -- ES JOVEN.ESA OE NBE'L -- TRANQUILO AHORA.ESTA'CAOE 'BAEL HIELO -- FRI'O.ESAPL I/CAN BE 'ICE IS (A) COLD (THING)'; HENCE, 'SER'.OUN ALUMNO -- FRANCE'S.ESASAEBNEL LIBRO -- ESCRITO EN INGLE'S.ESTA'RAOFZ'ABCLA OBRA -- DE MI HERMANO.CESA - O BA-LAS PUERTAS -- CERRADAS AYER POR EL PROFESOR.UFUERONABALAS PUERTAS -- CERRADAS AHORA.ESTA'-AE .SACBIMIRELOJ -- DE PLATA.ESAE N'B-"-- NECESARIO PASAR A LA IZQUIERDA.ESAHOB'&E'L -- CIEGO A CAUSA DE LA EXPLOSIO'N.ESTA'ABHOY -- VIERNES.ESA  B--- LAS CUATRO DE LA TARDE.SON AI E SRB- -- MA'S FA'CIL REI'R QUE LLORAR.ESAROBL.EL EDIFICIO -- DESTRUIDO AYER POR EL HURACA'N.FUESASESA!AYER!BLELLOS -- HABLANDO AHORA,ESTA'NARABALA NIEVE -- FRI'A.ESADL.SA/CAN BE 'SNOW IS (A) COLD (THING)';HENCE, 'SER'.E8#EN ESTE EJERCICIO VD. TIENE QUE ESCRIBIR TODA LA FRASE.0#CON LA 'A PERSONAL' DONDE ES PRECISO INCLUIRLA.%#HAY QUE ESCRIBIR UN PUNTO '.' AQUI'.BVEO -- CARLOS. VEO A CARLOS.OBNO VISITE' -- NADIE.NO VISITE' A NADIE.IAROBLTIENE -- TRES HIJAS.TIENE TRES HIJAS.'ARSSUBABUSCO -- MI CRIADO.-BUSCO A MI CRIADO.AA RABBUSCO -- UN CRIADO.'BUSCO UN CRIADO.A.SAEN+'UN' IMPLIES ANY OLD CRIADO; HENCE, NO 'A'.S ?VIO VD. -- ALGUIEN EN LA CALLE??VIO VD. A ALGUIEN EN LA CALLE?OA'NERSBNCASTIGO' -- EL PERRO.ICASTIGO' AL PERRO..BCASTIGO' EL PERRO. LOBEL ME'DICO CURO' -- EL DUEN*O.EL ME'DICO CURO' AL DUEN*O.ABJUAN COME -- CARNE.JUAN COME CARNE.ARSSUBAQUIERO -- MI MAMA'.-QUIERO A MI MAMA'.AA RABLEO -- LA COMEDIA.LEO LA COMEDIA.DAB+?-- QUIE'N PEGO' E'L?I?A QUIE'N PEGO' E'L?AO. U BL+#ESTA SECCIO'N VA A SER MUY FA'CIL PARA VD.'7#SO'LO TIENE QUE ESCRIBIR (SIN '.') LA EXPRESIO'N ENTRE RRO..B##PARE'NTESIS. EN ESPAN*OL, !CLARO!!VOLVIO' (HOME).RA CASAAE.L'OBR(HE WAS HUNGRY) A LAS DOS. TENI'A HAMBRENAMTUVOEIMPERFECT IS BETTER.B%EL PROFESOR HIZO EL VIAJE (BY PLANE).U EN AVIO'NAA.A RBA4(WHAT WILL BECOME OF HIM) SI NO ENTIENDE A LA GENTE?QUE' SERA' DE E'LUANGEIABI(I HAVE JUST) HABLAR CON E'L.ACABO DEA CN EBU+(ON THE OTHER HAND), ENTENDIO' LO ESENCIAL. POR OTRA PARTEAI R.BB*ES BUENO VER OTROS PAI'SES (OCCASIONALLY).DE VEZ EN CUANDOAB(I AM SURE) QUE E'L SABE PEDIR.  ESTOY SEQURO ESTOY SEGURAE CSTB.5EL U'LTIMO DI'A FUE' A (SAY GOODBYE TO THE PROFESOR).IDESPEDIRSE DELARAW BL*(BY THE WAY) E'L VIENE LA PRO'XIMA SEMANA. A PROPO'SITOAUNGEIBA((PLEASE) AVISARME EL DI'A DE SU LLEGADA.HAGA EL FAVOR DEHAZ EL FAVOR DEHT DEBN(SO LONG), D. JOSE'.HASTA LA VISTAA R.BB (I'LL PHONE) AL LLEGAR A MADRID.LLAMARE' POR TELE'FONO.NAB??AM SURE) QUE E'L SABE PEDIR. ESTOY SEQURO ESTROY SEGURAECSTB.5EL U'LTIMO DI'A FUE' A (SAY GOODBYE TO THE PROFESOR).IDESPEDIRSE DELARAW BL*(BY THE WAY) E'L VIENE LA PRO'XIMA SEMANA. A PROPO'SITOAUNGEIBA((PLEASE) AVISARME EL DI'A DE SU LLEGADA.HAGA EL FAVOR DEHAZ EL FAVOR DEHT DEBN(SO LONG), D. JOSE'.HASTA LA VISTAA R.BB;MUY BUENOS DI'AS. HA'GAME EL FAVOR DE ESCRIBIR SU APELLIDO#(LAST NAME) PARA QUE SEAMOS AMIGOS..DIGA VD. MUY RA'PIDAMENTE TODAS LAS FORMAS DELPRETE'RITO DEL VERBO 'ANDAR'.$REPITA VD. EN VOZ ALTA CONMIGO . . .ANDUVE, ANDUVISTE, ANDUVO,#ANDUVIMOS, ANDUVISTEIS, ANDUVIERON.(!EXCELENTE! NO HABI'A NINGUNOS ERRORES.*MUY BIEN. HABI'A SOLAMENTE UNA FALTA HOY.!= = = = ADIO'S, SEN*OR/SEN*ORITA HASTA LA VISTA.= = = =SI'.P```@P@#.#TRADUZCA VD. ESTOS PASAJEPPPPS!6#TRADUZCA VD. ESTOS PASAJES AL ESPAN*OL, CON PUNTO '.'3# AL FINAL DE CADA UNO. POR FAVOR, NO ESCRIBA VD.A # EL SUJETO DEL VERBO. !VAMOS!#.I TELL.TDIGO.DAVON'$BIHE SAYS.DICE.AANO.UB  THEY TELL.DICEN.AUOAVEB  SHE SAID.DIJO.LDECI'A. INU BOWE SHALL TELL.DIREMOS.AE  TOB!TELL ME.DI'GAME.DIME.OATABSTHEY HAVE SAID. HAN DICHO.ABA I AM COMING.VENGO.APTUB  SHE COMES.VIENE.APOCPOB'WE CAME.VINIMOS.AN  ONBSCOME TOMORROW (VD. FORM).LVENGA MAN*ANA.VENGA VD. MAN*ANA.BTHEY WILL COME. VENDRA'N. VAN A VENIR. HT.BIA#REPLACE THE NOUNS (IN PARENTHESIS) BY PRONOUNS AND PLACE THEM IN8#THE PROPER ORDER, AS SHOWN IN THE 'FRASE MODELO' BELOW.$#BE SURE TO INCLUDE THE PERIOD HERE.)# VIO A (PEDRO) ABRIENDO LA (CARTA).# LE VIO ABRIE'NDOLA.OMING.VENGO.AP!VI A (PEPE) CERRANDO LA (PUERTA).PLE VI CERRA'NDOLA.AELE VI CERRANDOLA.N !ACENTO!B#ESCRIBA VD. CON FRASES COMPLETAS (CON '.') ESTAS EXPRESIONES.,#!OJO! HAY ACENTO ESCRITO EN ALGUNOS CASOS.#.VAN A (VENDER IT TO ME).VAN A VENDE'RMELO.AID3NIBCVENGO A (DAR THEM TO THEM).AVENGO A DA'RSELOS.ATDNZTBOLES GUSTA (CANTAR IT TO YOU).CLES GUSTA CANTA'RSELO.LES GUSTA CANTA'RTELO.LENABAESTA'N (DICIENDO IT TO US).AESTA'N DICIE'NDONOSLO.AY  OB SE LO LLEVO' (CON HIM).=SE LO LLEVO' CONSIGO.Ap`FwvfSE LO LLEVO' CON E'L.EO;THE ACTION REFLECTS BACK UPON THE SUBJECT; HENCE REFLEXIVE.IEBL?QUIERE VD. HABLAR (CON ME)??QUIERE VD. HABLAR CONMIGO?LAB(DIGA IT TO HER.)E DI'GASELO.DI'SELO.ROB+(PRESENTE HER TO ME) ESTA NOCHE. (VD. FORM)CPRESE'NTEMELA VD. ESTA NOCHE.UPRESE'NTEMELA ESTA NOCHE.NAASNBI'(HAGA IT FOR ME) EN SEGUIDA. (VD. FORM).HA'GAMELO VD. EN SEGUIDA.EHA'GAMELO EN SEGUIDA.LL'NBOAp`Fwvf.(ESCRIBA IT TO HIM) PASADO MAN*ANA. (VD. FORM) ESCRI'BASELO VD. PASADO MAN*ANA.ESCRI'BASELO PASADO MAN*ANA.L( ?BQ/#TRADUZCA VD. AL ESPAN*OL LAS EXPRESIONES ENTRE #PARE'NTESIS. NO HAY '.' AQUI'.#.(IT WAS WARM) AQUEL DI'A.P HACI'A CALORA)TO.DBOLLEGO' (AGO) DOS SEMANAS.AHACEASTLSBN"(I REMEMBER) VD. DE VEZ EN CUANDO. MEACUERDO DEABME GUSTARI'A (PAY YOU A VISIT).)HACERLE UNA VISITAHACERTE UNA VISITABE(AT LEAST) CONOZCO A PEDRO'. POR LO MENOSAL MENOSO.S B*%(MOST OF) MIS COMPAN*EROS HAN SALIDO.LA MAYOR PARTE DEAACDLPOBAVOY A ESCRIBIRLE (RIGHT NOW).S AHORA MISMO.AQ..IABA(I THINK) QUE SALIO' DE AQUI'. ME PARECEARBSALIO' (IN A HURRY).DE PRISAAB-LA CIUDAD (NO LONGER) TIENE INTERE'S PARA MI.IYA NONAB<(THAT IS TO SAY), LA VIDA EN SEGOVIA TIENE POCOS ATRACTIVOS.ES DECIRAEAE)NBO,(FOR THE PRESENT) ES MI U'NICA DISTRACCIO'N. POR AHORAMA   PEB !PEDRO (THOUGHT ABOUT) SUS PADRES.C PENSABA EN PENSO' ENO RR(BH3#EN ESTA U'LTIMA SECCIO'N SO'LO HAY QUE ESCRIBIR LAI4#FORMA APROPIADA (SIN '.') DE LOS VERBOS SIGUIENTES:,# DEBER, ESTAR, HABER, HACER, SER, TENER.ESTE CAFE' -- CALIENTE.UESTA' AG NNEBPELLOS -- MUCHA SED HOY.TIENENA<AS B)-VD. NO -- DESCANSAR TANTO. (MORAL OBLIGATION)SDEBEAEAE)NBO-- SEIS AN*OS QUE LE CONOCEMOS.DHACEA'  RBE'L -- QUE COMER CARNE. TIENETAO  RCBEHOY -- MAL TIEMPO.HACEA 3 BA.ELLAS -- DE PRESENTARSE ESTA NOCHE. (FUTURITY)HANAAPAI.DBO!!CUA'NTO TIEMPO -- QUE NO LE VEO!SHACEARA,REB.6-- QUE DORMIR LA SIESTA DE VEZ EN CUANDO. (IMPERSONAL)HAYLA MADYB7ELLA -- MUY CONTENTA CON EL RESULTADO DE LOS EXA'MENES..ESTA' AIESSDEBE,'SER' WITH 'FELIZ'; 'ESTAR' WITH 'CONTENTO.'NBM#EN EL OTON*O NO -- CALOR. (WEATHER)'HACEACRR IBTE'L -- DE LLEGAR AYER.HABI'AALE.ABLA NIEVE -- FRI'A.ESA- SA BA&VDS. -- (OUGHT) ESCRIBIR A SUS MAMA'S.DEBENO TIENEN QUEP-E BV!SHACEARA,REB.6-- QUE DORMIR LA SIESTA DE VEZ EN CUANDO. (IMPERSONAL)HAYLA MADYB7ELLA -- MUY CONTENTA CON EL RESULTADO DE LOS EXA'MENES..ESTA' AIESSDEBE.HE OLVIDADO SU NOMBRE OTRA VEZ. !QUE' MEMORIA6TAN MALA! ESCRI'BAME SU APELLIDO OTRA VEZ, POR FAVOR.5REPITA VD. EN VOZ ALTA LAS 6 FORMAS DEL PRETE'RITO DEc-'CREER' CON UNA 'Y' EN LAS FORMAS APROPIADAS.'AHORA, CANTE VD. EN VOZ ALTA CONMIGO...9CREI', CREI'STE, CREYO',CREI'MOS, CREI'STEIS, CREYERON.z&MUY BIEN. NO HABI'A NINGUNOS ERRORES.#BUENO. HABI'A SOLAMENTE UNA FALTA.!HASTA LA VISTA SEN*OR/SEN*ORITA,  CORRECTO.@P`l `@ @{p`Z@@P5#TRADUZCA VD. ESTAS EXPRESIONES CON 'PODER' Y 'PONER'A%#ESCRIBA UN '.' AL FINAL DE CADA UNA.Z"#NO ESCRIBA EL SUJETO DE LA FRASE.#.HE CAN. PUEDE.AID-E B YOU WILL BE ABLE. (SINGULAR)PODRA'.RPODRA'S.EOLCBITHEY USED TO BE ABLE.,PODI'AN.AISRSSBRWE WOULD BE ABLE.  PODRI'AMOS.NAORE#NB  BEING ABLE.N PUDIENDO.AA!TASSBOPUT IT THERE. (VD. FORM)PO'NGALO ALLI'.ABI PLACE.PONGO.ATUB  HE'D PUT IT. LO PONDRI'A.AR NAEBI(THAT) I MIGHT PLACE IT. LO PONGA. AR STEB YOU HAVE PUT IT. LO HA PUESTO.LO HAS PUESTO. L BE8#AQUI' SO'LO HAY QUE ESCRIBIR EL PRONOMBRE APROPIADO: YO4#TU', POR EJEMPLO. PARA LA TERCERA PERSONA, HAY QUE4#ESCRIBIR E'L O ELLOS. CUANDO HAY DOS POSIBILIDADES1#ESCRIBA VD. LAS DOS RESPUESTAS CON (--): YO--E'LOVAYANTELLOS A.RNOBL UNIE'RAMOSNOSOTROSAL.OB. SEN*ALARONELLOSUA EPI BP SIGNIFICARA'E'LNAAEIT)BM SATISFARE'YOAPABTUVIERANELLOSAAPI HUBOI'BAMOSSNOSOTROSA8BUQUISOOE'LQAEI POBEHAYAMOSONOSOTROSAOJL AB HARI'AYO--E'LHAQ4CI'B  DIJE'SEMOSNOSOTROSASLD1CBAVINOE'LSASS  )BOPONDRA'AE'LAOBVENGA YO--E'LSAORBDIJEYOAELNLUB TUVOE'LIA PIFRBESTUVOE'LA IBRSUPIERONELLOSAURBPUSEYOAI HUOB'HABRA'E'LRABFUESENELLOSQAEI POBESEAAYO--E'LOASOJL BAPUSIMOSINOSOTROSABVENDRA'NELLOSOARBPUDEYOASSS B FUE'E'LOAAOBSUPEYOAG-SBORBDIJEYOAELN/#ESCRIBA VD. SOLAMENTE LOS VERBOS DE CADA FRASE7#IMPERFECTO O EN EL PRETE'RITO. CUANDO HAY DOS VERBOS,# CUANDO HAY DOS VERBOS,(# ESCRI'BALOS ASI': ESCRIBI'A--LLEGUE'E'L (FUMAR) CUANDO YO (ENTRAR).FUMABA--ENTRE'AABO.(SER) LAS OCHO EN PUNTO CUANDO ELLOS (LLEGAR).ERAN--LLEGARONADNBL'ELLA (VENIR) A MI CASA TODOS LOS DI'AS.VENI'AAS  UBO,YO (COMPRAR) UNA CORBATA QUE NO ME (GUSTAR).COMPRE'--GUSTABAAEBOAELN+LES (CONOCER) EN SEGOVIA HACE TIEMPO. (YO)RCONOCI'PAE N TBI)?QUE' (HACER) VD. MIENTRAS YO (ESTUDIAR)??HACI'A--ESTUDIABA'AOS SBB-,EL VAPOR (LLEGAR) A NUEVA YORK EN DICIEMBRE.LLEGO'A'BAAYER (LLOVER).LLOVIO'ULLOVI'AOL(G.BR$LA LUCHA (DURAR) SO'LO DIEZ MINUTOS.DURO'EA)MATSBSYO NO LO (SABER).SSABI'AAUOOOBA%PEDRO (ESTUDIAR) ALEMA'N CINCO AN*OS.PESTUDIO'ABAELN(ELLOS NO (SABER) QUIE'NES (SER) NOSTROS.SABI'AN--E'RAMOSA N TIBQLO (SABER) AYER TARDE. (YO)(SUPEA?AASIB'%ELLA (DECLARAR) QUE YO LA (ENGAN*AR).GDECLARO'--ENGAN*ABAIDECLARO'--ENGAN*E'BA?DO'NDE (NACER) VD.?NACIO'A'B#(HABER) MUCHA GENTE EN EL AUTOBU'S.OHABI'AABYO NO LO (SABER).SSABI'AAUOOOBA%PEDRO (ESTUDIAR) ALEMA'N CINCO AN*OS.PESTUDIO'ABAELN2BUENOS DI'AS. Y USTED ES EL SEN*OR/SEN*ORITA. . .0PRACTIQUE VD. EL PRETE'RITO DE 'DAR' (6 FORMAS)."AHORA, VAMOS A CANTAR JUNTOS . . .(DI, DISTE, DIO', DIMOS, DISTEIS, DIERON.(!EXCELENTE! NO HABI'A NINGUNOS ERRORES.'BUENO. HABI'A SOLAMENTE UNA FALTA HOY."= = = = ADIO'S, SEN*OR/SEN*ORITA, HASTA LA VISTA.= = =,BUENO.Pp`H@T `#.#.*#ESCRIBA VD. SO'LO EL VERBO DE CADA FRASE.(# !OJO POR LOS CAMBIOS ORTOGRA'FICOS!#. (ACERCAR) ME ACER--E' AL TEATRO.ACERQUE'ANDSYTBE!(BUSCAR) BUS--E'MOSLO EN SEGUIDA.U BUSQUE'MOSLOATEA(OBS(EXPLICAR) EXPLI'--MELO AHORA. EXPLI'QUEMELO(A TD,MB ((SACAR) SA--E' EL PAN*UELO DEL BOLSILLO.SAQUE'AO.U.ABA$(TOCAR) TO--E EL VIOLI'N, POR FAVOR.TOQUEEARNI AB !(ENTREGAR) ENTRE'--ME EL BILLETE. ENTRE'GUEMEA*CAB.(JUGAR) JU--E' TRES PARTIDOS.(JUGUE'AOOAORBR(JUZGAR) NO ME JUZ--E MAL.JUZGUEATRCUB(LLEGAR) LLE--EMOS A TIEMPO. LLEGUEMOSOA SIUUBE(PEGAR) NO PE--E EL ANIMAL.SPEGUEIA)P-LHB. (OBLIGAR) LE OBLI--E' A ASISTIR.OBLIGUE'ARA' *BO(COMENZAR) COMEN--E' A REN*IR.COMENCE'AATRO BV"(EMPEZAR) EMPIE'--ELO AHORA MISMO. EMPIE'CELOA!TAEEBM(GOZAR) GO--E' DE LA VIDA.GOCE'A*CA.JBR8#ESCRIBA VD. LA FORMA APROPIADA DE CADA EXPRESIO'N ENTRE #PARE'NTESIS.J--E MAL.JUZGUEATR;#SI HAY DOS RESPUESTAS EN UNA SOLA FRASE, ESCRI'BALAS ASI':S# VAMOS--MA'S TARDEO# 8ELLOS SIEMPRE (APRESURARSE) A CONTESTAR A LAS PREGUNTAS. SE APRESURANSE APRESURABAN APRESURAN APRESURANSEO%?DO'NDE ESTA' EL PRONOMBRE REFLEXIVO?C$EL OBJETO 'SE' VA DELANTE DEL VERBO.BI*ELLAS NUNCA (ATREVERSE) A PASEAR DE NOCHE. SE ATREVENAGRO' BV*NUESTROS AMIGOS (CASARSE) EL PRO'XIMO MES. SE CASARA'NMAPSE CASAND!EL PRO'XIMO MES!!RBT"ELLA (HACERSE) UN VESTIDO DE LANA.SE HACE A PTENBO ELLAS (LLAMARSE) MARI'A Y LUISA. SE LLAMANMA D8OBI+ELLOS (PONERSE) A CANTAR ANOCHE A LAS DIEZ.A SE PUSIERONRASE PONENN!ANOCHE! BE2E'L (PONERSE) LOS ZAPATOS Y (IRSE) HACE DOS HORAS.SE PUSO--SE FUE'SE PUSO--SE FUE*AU BR)E'L (QUEDARSE) DORMIDO EN EL CINE ANOCHE. SE QUEDO' SE QUEDABASI SBE*ELLA SIEMPRE (QUEJARSE) DE SU MALA SUERTE.SE QUEJAARI !RBTELLA (HACERSE) UN VESTIDO DE LANA.8#AQUI' VD. TIENE QUE ESCRIBIR CADA FRASE (CON '.' CLARO).# DE TRES MANERAS, SIGUIENDO ESTE MODELO:*# (PRIMERA FORMA): FUE' DECORADO.(# (SEGUNDA FORMA): LE DECORARON.)# (TERCERA FORMA): SE LE DECORO'.)$1.THEY WERE INVITED. (PRIMERA FORMA)FUERON INVITADOS.A) ESTUDIE VD. EL MODELO OTRA VEZ.C(SEGUNDA FORMA) LES INVITARON.ALOS INVITARON.E"'LES' ES PREFERIBLE PARA PERSONAS.QBA(TERCERA FORMA))SE LES INVITO'.EA)SE LOS INVITO'.N"'LES' ES PREFERIBLE PARA PERSONAS.A 'SE' = 'UNO'.R"2. SHE WAS CALLED. (PRIMERA FORMA) FUE' LLAMADA.* FUE LLAMADA.AR:UBD(SEGUNDA FORMA)  LA LLAMARON.A: OO)B (TERCERA FORMA)R SE LA LLAMO'.RA).YRNBE$3. HE WAS RESPECTED. (PRIMERA FORMA)FUE' RESPETADO.FUE RESPETADO.MLTVBC(SEGUNA FORMA)LE RESPETARON.ALO RESPETARON.!'LE' ES PREFERIBLE PARA PERSONAS.AB(TERCERA FORMA)ASE LE RESPETO'.'ASE LO RESPETO'.'!'LE' ES PREFERIBLE PARA PERSONAS..A 'SE' = 'UNO'.R 4. WE ARE HATED. (PRIMERA FORMA)SOMOS ODIADOS.A  M.ABR(SEGUNDA FORMA)G NOS ODIAN.AAAOB(TERCERA FORMA)T SE NOS ODIA.AE MR)B.*5. YOU ARE ADMIRED. (TU') (PRIMERA FORMA)ERES ADMIRADO.ASAUEBT(SEGUNDA FORMA) TE ADMIRAN.NAO)ESAB.(TERCERDA FORMA) SE TE ADMIRA. AFBP SBS"6. I WAS RECEIVED. (PRIMERA FORMA)FUI' RECIBIDO. FUI RECIBIDO.'LERBR(SEGUNDA FORMA)SME RECIBIERON.A' WRAB.(TERCERA FORMA)SE ME RECIBIO'. A M.ARBS$7. HE WAS NOMINATED. (PRIMERA FORMA)FUE' NOMBRADO. FUE NOMBRADO. NO.EB (SEGUNDA FORMA)) LE NOMBRARON.RA 'PEFBA(TERCERDA FORMA)SE LE NOMBRO'.AETSNFBA TE ADMIRAN.NAO)ESAB.(TERCEDA FORMA)O SE TE ADMIRA. AFBP SBS"6. I WAS RECEIVED. (PRIMERA FORMA)FUI' RECIBIDO. FUI RECIBIDO.'$3MUY BUENOS DI'AS. Y VD. ES EL SEN*OR/SEN*ORITA. ..2&PRACTIQUE VD. EL PRETE'RITO DE 'HACER' (6 FORMAS).!AHORA, VAMOS A CANTAR JUNTOS. . .HICE, HICISTE, HIZO,HICIMOS, HICISTEIS, HICIERON.0(!EXCELENTE! NO HABI'A NINGUNOS ERRORES.&MUY BIEN. HABI'A SOLAMENTE UNA FALTA.SEN*OR/SEN*ORITA/, ESTA SESIO'N HA SIDO UN GRAN PLACER PARA MI'. SI'.`h@p`@`8#EN ESTA SECCIO'N HAY UN VERBO INCOMPLETO EN CADA FRASE.!# ESCRIBA VD. SO'LO EL VERBO.#.i8%(AGRADECER) LE AGRADE-O SU ATENCIO'N.L AGRADEZCO*AT.&CUBD)(APARECER) DESEO QUE VD. APARE-A MAN*ANA.HAPAREZCAACAUS B$(CARECER) YO CARE-O DE VARIAS COSAS.CAREZCORA0ELENBA*(CONDUCIR) DESEAN QUE YO CONDU-A SU COCHE.CONDUZCAAA.ERNBI.(CONOCER) DESEO QUE VDS. CONO-AN A MI HERMANA.CONOZCANAB#(CONVENCER) YO SIEMPRE LE CONVEN-O.ICONVENZOAC S! BS(MERECER) YO NO LO MERE-O.MEREZCOA8ABD)(OBEDECER) ES PRECISO QUE VD. ME OBEDE-A.*OBEDEZCAA)ABE(OFRECER) YO SE LO OFRE-O.OFREZCOPAZB*(PARECER) DICEN QUE ME PARE-O A MI ABUELO.PAREZCORA0ELENBA*(RECONOCER) ES POSIBLE QUE YO LE RECONO-A. RECONOZCAAB.,(TRADUCIR) TRADU'-AME ESTA FRASE, POR FAVOR. TRADU'ZCAMEABC(VENCER) YO NUNCA LE VEN-O.NVENZOOANB6#ESCRIBA VD. SO'LO EL GRUPO PREFERIDO PARA CADA FRASE.8# NOMBRE + ADJETIVO# O: ADJETIVO + NOMBREB#(MEXICANO) VISITAMOS A UNA SEN*ORA.CSEN*ORA MEXICANAAEPZB4(POBRE=PENNILESS) LA SEN*ORITA SE ENCUENTRA ENFERMA.SEN*ORITA POBREA*BC*(MUDO) SE ARRODILLARON ANTE LAS IMA'GENES.IMA'GENES MUDASA.TUB)(NEGRO) ELLA TIENE LOS OJOS. OJOS NEGROSCAB$(ALTO) SE ENCONTRARON EN MAR (FEM.).ALTA MARA6BC"(FA'CIL) NOS GUSTAN LAS LECCIONES. CADA FRASE.8LECCIONES FA'CILESAIO DBI'(MISMO=HIMSELF) EL PROFESOR ME LO DIJO.SPROFESOR MISMOAEAB(MEJOR) ESPERA SUERTE EN VANO. MEJOR SUERTEAURNMB*$(CE'LEBRE) VELA'ZQUEZ ERA UN PINTOR.PINTOR CE'LEBRELANTAMEB.(SANTO) LEE LA BIBLIA A MENUDO.T SANTA BIBLIAA AELOB.(REDONDO) COMPRARON UNA MESA. MESA REDONDAA OA MB(+(POBRE=UNFORTUNATE) EL CHICO TENI'A HAMBRE.' POBRE CHICOAAAEO.CB ASE.8 (SANTO) SU HERMANO ES UN HOMBRE. HOMBRE SANTOAOMFLOBO(FRANCE'S) CONDUCE UN AUTO.O AUTO FRANCE'SAMRSBA:#AQUI' HAY QUE ESCRIBIR LA(S) FORMA(S) CORRECTA(S) DE CADA2#ADJETIVO. PARA DOS RESPUESTAS, ESCRI'BANSE ASI':# ALEGRES--BONITOS=(GRANDE) WASHINGTON FUE' UN HOMBRE -- Y TAMBIEN UN -- HOMBRE.GRANDE--GRANDEAOA  AB &(ALGUNO) SEREMOS MA'S FELICES -- DI'A.ALGU'NAUELITB'*(CIENTO) LLEGARON -- HOMBRES Y -- MUJERES. CIEN--CIENASOUROB %(NINGUNO) NO LO HARI'AMOS DE -- MODO.LNINGU'NAA'CUUBU (MALO) ES UN HOMBRE DE -- GENIO.MALSAAA'YEBC(BUENO) ESTABAN DE -- HUMOR.BUENAAAT.ABD#(SANTO) ?DO'NDE ESTA' -- FRANCISCO? SANGA-NSGDBW'(PRIMERO) FALTO' A LA CLASE EL -- DI'A.-PRIMERAN-NB  AB &(ALGUNO) SEREMOS MA'S FELICES -- DI'A.ALGU'NAUELITB'*(CIENTO) LLEGARON -- HOMBRES Y -- MUJERES. CIEN--CIEN-BUENOS DI'AS. VD. ES EL SEN*OR/SEN*ORITA....'DE'ME VD. MUY RA'PIDAMENTE LAS 6 FORMASDEL PRETE'RITO DE 'IR'.AHORA, DIGA VD. CONMIGO......-FUI', FUISTE, FUE', FUIMOS, FUISTEIS, FUERON.2(EN ESTE VERBO SE PUEDE OMITIR EL ACENTO ESCRITO.)(!EXCELENTE! NO HABI'A NINGUNOS ERRORES.&MUY BIEN. HABI'A SOLAMENTE UNA FALTA.SEN*OR/SEN*ORITA/, ESTA SESIO'N HA SIDO UN GRAN PLACER PARA MI'.BUENO.@H@``p`>#EN ESTE SECCIO'N HAY QUE ESCRIBIR DOS FORMAS PARA CADA VERBO:{0># 1. LA FORMA 'YO' DEL INDICATIVO. 2. LA MISMA FORMA EN EL3# SUBJUNTIVO. POR EJEMPLO, PARA EL VERBO 'DECIR'  # VD. ESCRIBIRI'A: DIGO--DIGAESCOGER'ESCOJO--ESCOJAAM SSUBN DISTINGUIRDISTINGO--DISTINGAAECOCOB(FINGIR FINJO--FINJAANORE&B RECOGERBRECOJO--RECOJAAA.ERNBIDIRIGIRADIRIJO--DIRIJAA NA AB'EXIGIR EXIJO--EXIJAAEBS CONSEGUIR CONSIGO--CONSIGAAFCONSEGO--CONSEGA:{0'E' CHANGES TO 'I'DBICOGERV COJO--COJAAAREL BUSEGUIR SIGO--SIGAA  SEGO--SEGAD'E' CHANGES TO 'I'RB:6#AQUI' HAY QUE SABER MUY BIEN LAS FORMAS Y LOS USOS DE9#LOS POSESIVOS. TRADUZCA SOLAMENTE LAS EXPRESIONES ENTRE<#PARE'NTESIS. PARA DOS RESPUESTAS, ESCRIBA SU CONTESTACIO'N#ASI': NUESTRO--LA SUYA'(MY) VESTIDO ES MA'S BONITO QUE (HERS). MI--EL SUYOAA' MI--LA SUYAJE%POSESSIVE AGREES WITH THING POSESSED. OBG-CONSIGAAFCONSEGO--CONSEGA:{01(YOUR) PISO TIENE MA'S HABITACIONES QUE (THEIRS).A SU--EL SUYOAU OBI1QUERIDO AMIGO (OF MINE): QUERIDA MADRE (OF MINE):6 MI'O--MI'AASRDE MI'O--DE MI'AY 'DE MI'O' NO EXISTE EN ESPAN*OL.BC5UN PARIENTE (OF HIS) COMPRO' ACEITE PARA (HIS) COCHE. SUYO--SU DE E'L--SUUNTOBPARA (HIS) COCHE. SUYO--SU DE E'L--SUSN  BRNO COMPRO' ACEITE PARA (MINE).EL MI'O%AEVGSTBH?QUE' HACES, (MY) AMIGA?MIAS-NBA:{0SON AMIGOS (OF YOURS).SUYOSCDE VD.TRAUBLES UNA CASA (OF OURS).NUESTRAUADM  EBQ&(OUR) ALUMNOS ESTUDIAN MA'S QUE (HIS).NUESTROS--LOS SUYOSANUESTROS--LOS DE E'L EN.BCLA PLUMA ES (YOURS), CARLOS.SUYADE VD.)C UB-UN TRAJE (OF MINE) ESTA' ROTO.MI'OA()C UB-3#EN ESTE EJERCICIO HAY QUE TRADUCIR LAS EXPRESIONES 6#ENTRE PARE'NTESIS CON PRONOMBRES POSESIVOS: 'EL SUYO'4#POR EJEMPLO. !OJO! HABRA' MUCHA AMBIGUEDAD EN SUS.#RESPUESTAS, PERO NO SE PREOCUPE VD. POR ESTO.4E'L DICE QUE (SU CASA) ES MA'S GRANDE QUE (MI CASA).LA SUYA--LA MI'AARLOSIBM4ELLA OFRECE (SU COCHE) PERO VD. PREFIERE (SU COCHE).EL SUYO--EL SUYOAPA BU9(NUESTRO PERRO) Y (EL PERRO DE ELLOS) ESTA'N EN LA CALLE.FEL NUESTRO--EL SUYOIAB2(EL AMIGO DE E'L) TRABAJO' CON (EL PADRE DE ELLA).EL SUYO--EL SUYOASCPOEBO7(NUESTRO JARDI'N) ESTA' AL LADO DEL (JARDI'N DE ELLAS).BUEDAD EN SUSEL NUESTRO--SUYOAO OE.BR2(LA MADRE DE E'L) SE CASO' CON (EL PADRE DE ELLA).LA SUYA--EL SUYOA ARLOBS+(EL RELOJ DE VD.) VALE MA'S QUE (MI RELOJ).FEL SUYO--EL MI'OAS- OBPA BU9(NUESTRO PERRO) Y (EL PERRO DE ELLOS) ESTA'N EN LA CALLE.FEL NUESTRO--EL SUYOIAB2(EL AMIGO DE E'L) TRABAJO' CON (EL PADRE DE ELLA).EL SUYO--EL SUYOASCPOEBO7(NUESTRO JARDI'N) ESTA' AL LADO DEL (JARDI'N DE ELLAS).BUEDAD EN SUST aONAvqdgj9RҚEHRUL#dWOXcEP NIW6H|DD.fznB9K`d_goS_OIFA-wFgHII#yOtoY2G>@'q Lv!_{5 fo"W',W%,W(fo,wgw,1&woNN?,)gFW,g w.)fo,wF,F,؀wfw ,W(,F,F,o O H?,NOoN,l,p_,pN,c  3 , Q @oo,N?,fo ,>,W$,g#fwfwONFgV-3oNo2 - Q Q Q 3OONFGf3oNo2o2g@o3OONgFG -F-FwgW*-Fw-g-3oN3OgW*.FgFF - -wwg*wwgג._gG/.h3o_,.hG.Nw. h3 .#3F.h3g oNoO3O3Og. oONf. gwFwn.B?gGhFvFvOgfn؟gFw. gW+.Fww?.wgǒo_.zoOH .g.oOH@.o3.wg.ggGn۟ oNoKO@~ZJ}PBT LS16''''''''''''''''''''''''''''x@ 'H@ L'@@ 'o`@ Z'm@ @ {eCF' '& p*3n}|ɬn|} Tv~`~-f<{D(((~(-(4(2(z(xtv<<fҬf,/f,.nb,>f,Im,:>,:nb,%f,Zm>,D,%t,Wf,I>,I>,>,%>,>f>,Z,%fx fv ~ -ф- A-Yff}-fvuvuFvukf~muk> - ф--_ -=vA-f-fFFu--^ek-n~- @- v @~fn v-Y)-DŽ-QfЭ-Y@z- f~n .)R .)`.)& I fn$.!n҄.,. vns6 ^>^/.4(()(()(((()))!(((((()))))))SALE2 (v*((()))**,))()(.(*)$(**+**)`)"  !?@AEHz**>VsGEORGE\,o2000C0dGEMs42GENGE'4dRAIR 42000C8dSTANV 8LEA`SWkHELLO4dP2 64dPRINT 8 4dSEARCH8` pSALE1,SALE2 NHj2 DESIGNATE INPUT,OUTPUT FILES SALE1=1 SALE=2 fd!j8INPUT DIVISION AND LAST YEAR OF DATA FOR EXAMPLE 1,1967nfxvN '&N ' ' ' ''''''N2 j(DO YOU WISH TO PUT IN GROWTH RATE FACTOR&f0V0NO<:j1IS GROWTH RATE FACTOR FOR THE FULL FIVE (5) YEARSDfN V0YES*X j6INPUT FIVE GROWTH RATE FACTORS;E.G. 1.070,1.060.1.050bf@@`@lv j INPUT FACTORf'  V.!@[v $ @iv  @$ v  $ v $# v@v@Zj @Q@@Q@@Qj$j.j8#jN0. OFSTORE SALES PERDIVISION%ANNUALB+jYEARSTORESGROWTH STORE GROWTH SALES GROWTHSALESINCREASE`ja v@b v@c v@d v@jV@_tVp_~v(@v)` kv(@v)l X(|)` v @&%v @& ` v&@j   @Q j Z  X*@|@v*'Z*^X ` "h,j6 X@N @h Jj T V {p ^Zhh @ @rj @ @Z X+@x jZ+` ` @ F  ! Vq Q L A B a8p@!1AxQDFHJdLNP4 { W''fE8 {@t#|BJFF {`h  CRENT6 z''W6 zAH<OWJY8 {PW8 {0f[ ''_lheb`@dSA LE ITAH74 zvLCE6 zCASE1 G NB R CASE1: CASES IN COMPUTER AND MODEL ASSISTED MARKETING: R PLANNING2 R HP 36790A, 2/74<"R CALLING NAMES OF PROGRAMS ARE: ADBUDG, NIK1, NIK2, PLANF R AND MAXIMA.P`CASE2  H !R CASE2: CASES IN COMPUTER AND MODEL A SSISTED MARKETING:R DATA ANALYSIS R HP 36841A, 2/74("R CALLING NAMES OF PROGRAMS ARE: HINB1, HINB2, FALLON, NEWA,2R NEWB, NEWC1, NEWC2, AND NEWD.<`CL2Z1  (z K HpH0HH"R**CL2-1**BASIC C.A.I.**GEOGRAPHY**JUNE12, 1972**CHAIN TO CL2-2R CLIMAT, HP 36760A, 6/74pSCRA(w2j<jFj#HI, MY NAME IS AUDREY, WHAT'S YOURSPgZjdjHI, +! IN THE FOLLOWING CLIMATE DATA THE MONTHLYnj5AVERAGE TEMPERATURES AND THE MONTHLY AVERAGE RAINFALLx j7ARE GIVEN FOR A SPECIFIC STATION. I WANT YOU TO FIGURE j7OUT THE TYPE OF CLIMATE ACCORDING TO THE KOPPEN SYMBOLSj6AND ALSO THE LOCATION OF THE STATION. RESPOND BRIEFLYj)(ONE LINE MAXIMUM) AND IN YOUR OWN WORDS.j j7 AND YOU HAD BETTER WATCH YOUR STEP BECAUSE I'M VERYj6IMPATIENT AND I'LL TOLERATE ONLY THREE MISTAKES; AFTERjTHAT I'LL GIVE UP!!jjjj) TEMP. THEN RAIN BY MONTH!j9 J., F., M., A., M., J., J., A., S., O., N., Dj!j: 24, 29, 41, 57, 68, 76, 79, 77, 68, 55, 39, 27!j: .1, .2, .2, .6, 1.1, 2.9, 8.9, 6.1, 3.0, .6, .3, .1"j,j6j. YEARLY AVERAGE TEMP. 43.1 DEGREES F.@j+ YEARLY RAINFALL TOTAL 35.6 INCHESJjTj^j0WHERE IS THIS STATION IN RELATION TO THE EQUATORhfprj|vPVd@jvHVd@ j8NOTICE THAT JANUARY TEMPERATURES ARE WELL BELOW THOSE OFj4JUNE AND JULY. IN THE SOUTHERN HEMISPHERE INSOLATIONj5(INCOMING ENERGY FROM THE SUN) REACHES ITS MAXIMUM INj DECEMBER AND JANUARY. TRY AGAIN.^!jFINE, -! NOW WHAT CAN YOU TELL ME ABOUT THE RELATIVEj'LATITUDE WITHIN THE NORTHERN HEMISPHEREfp&j0vP:DVd@XNXv@blVd@\vv`Vd@vPVd@j5WHAT I REALLY WANT TO KNOW IS THIS. IS THE STATION INj1THE POLAR, MID-LATITUDE OR EQUATORIAL REGION j7IN POLAR ENVIRONMENTS TEMPERATURES IN THE SUMMER MONTHSj1DO NOT EXCEED AN AVERAGE OF 50 DEGREES F. FOR ANY j7SIGNIFICANT PERIOD. TEMPERATURES ABOVE 50 COMBINED WITHj1MODEST PRECIPITATION WOULD LEAD TO FOREST GROWTH. j TRY AGAIN-- !j:IF THE STATION WERE NEAR THE EQUATOR SUCH LOW TEMPERATURES j6COULD ONLY BE REACHED HIGH IN THE MOUNTAINS. AT SUCH A*j6LOCATION THE TEMPERATURE RANGE (JANUARY-JULY) WOULD BE4 j VERY SMALL.>H j TRY AGAIN--R\j6THAT'S IT. NOW, WITHIN THIS MID-LATITUDE REGION IS THEf#j=STATION CLOSER TO THE POLEWARD OR TO THE EQUATORIAL INFLUENCEpfpzjvPVd@v@Vd@j3LOOK AGAIN AT THE JANUARY AND JULY TEMPERATURES. DOj0THESE SIMULATE WHAT YOU WOULD EXPECT IN SAVANNA,j2GEORGIA OR CANTON, CHINA? THEY ARE A BIT LOW, HUH? j TRY AGAIN--pj MAGNIFICENT--"-- NOW STATE YOUR PEACE ABOUT THEj1RELATIVE LOCATION ON THE CONTINENT OF OUR STATIONfp$j.vP8BVd@VLVvh`jVd@tvp~Vd@xvxVd@v@ Vd@ j7 YOUR ANSWER SHOULD TELL ME WHETHER THE STATION IS NEARj5OCEANIC INFLUENCE OR IN THE INTERIOR OF THE LAND MASSj1AND, IF NEAR THE COAST, WHICH COAST-EAST OR WEST.j6TOUCHE - MARINE INFLUENCE IS INDICATED BY THE RAINFALLj5PATTERN. HOWEVER, YOU FORGOT TO TELL ME WHICH COAST- j EAST OR WEST?j6GOOD GUESS - IN AN INTERIOR LOCATION TEMPERATURE RANGE(j3IS GREAT AND RAINFALL IS CONCENTRATED IN SPRING. IN2j4THIS CASE THE CONCENTRATION IS SO MARKED AS TO IMPLY< j7A DIFFERENT CONCLUSION. THE VERY LOW JAN. AND HIGH JULYFj2RAINFALL SUGGESTS A MONSOON SITUATION-THIS IN TURNPj5SUGGESTS A LOCATION OTHER THAN A CONTINENTAL INTERIORZd j TRY AGAIN--nxj1AT A WEST COAST LOCATION IN THE MID-LATITUDES THEj3RAINFALL ALMOST ALWAYS SHOWS A CONCENTRATION IN THEj2WINTER MONTHS. IS THIS THE CASE WITH OUR STATION? j TRY AGAIN--r$CL2-2R MISTAKESjM@W@hW@JW`"j0SORRY, I GIVE UP. THAT WAS YOUR FOURTH MISTAKE.j'GO BACK AND REVIEW THE PREVIOUS LESSON.jb"j4BETTER WATCH YOUR STEP! THAT WAS YOUR THIRD MISTAKE;,jONE MORE AND I'LL GIVE UP!6j@^Jj+DANGER LURKS: THAT WAS YOUR SECOND MISTAKE.Tj^^hj+I'M COUNTING - THAT WAS YOUR FIRST MISTAKE.rj|^li  W . DICTIONARYiDWDN h@@X@|i WD. j@ `ZWD. h@@ V`@bh@0XĞ@p0@& X@00Vp @ @/0N:ZDvNZXbvdlvvd@^jj2 #$%$%%#'&!$# GOODNESS - SHAME ON YOU !! !!! !j3PLEASE DON'T USE WORDS LIKE THAT - IT HURTS MY EGO!j^ d DICTIONARY@P%dQUERYASKWHAT DOKNOW HOW DON'T KNOW DONT KNOWdHOW DON'T UNDER DONT UNDERHELP@H#dMID-LATMIDLATMIDDLEHALF WAYMID WAYMIDWAYdMID-WAY dCENTRAFORTY `p%dPOLARPOLENORTHARCTICFIFTYSIXTYSEVENTY @P*dPOLEPOLARPOLWARDNORTHARCTIC4PP>dEQUATSOUTHLOWTWENTYTHIRTYHh@RdEAST\p@fdWESTpxPzdINTERIORREMOTEFARINLAND CONTINENTAL@ p%dCOASTSHORESEAOCEANCURRENTWATERMARINED `dPEIKINGPEKINGPEIPINGH @dCHINAL `dSHANGHAINANKINGWUHANP @dRUSSIASOVIETUSSRU.S.S.R.P`%dHELLSCREWUCKBALLSPISSPFARTCRAPBITCHdGODDAMNDAMM dSHIT T @ dJAPAN $X @ .dMONGOLIA 8\ @ BdHANKOW L` ` V dHARBINMUKDENFUSHUNFUSHINANSHANKIRIN `H@ jdNORTH th ` ~"dTIENTSINDAIREN PORT ARTHURLUTATALIENTAKU `` dEASTWESTORIENTOCCIDENTLANDWATER l @ dKOREA d P dASIAFAR EASTORIENTALCHINAPACIFIC p @ dFORMOSATAIWAN N `PCLASS F NC#R **** HP BASIC PROGRAM LIBRARY *******************************RR CLASS: COLLEGE REGISTRATION DEMORR 36282 REV A PART 9 OF 10 6/73R#R **** CONTRIBUTED PROGRAM ************************************ R CLASS REPORTS  pSTUDNT,COURSEN  (N  0@2O0 @Pp <vdFjALL,COURSE, OR COURSE-SECTION ?PfpZ Vp0ALLd X@hn Vp0-xZvpv- vp@@ vp@ V`@jjv@ X@Hh@V0 N Vp0ALLV.Nh@v@" X@`,h@6V0 :@ Vp0ALL^JV0-^TV.:^vd@h h@ rj|jjjjjjj- CR=    COUNT=V:j%j STUDENT #xNAMEx MTAFjXĞ@| h@0@Pw0#(W h@ 0@& jx  0 @x @AP0Z:v֠@DZNvhXZbVd@vl j NOT IN FILESvjjjjbjTROUBLE`#(R GET STUDENT OR COURSE FILE. #FOp  #G V`@#N#Hw@#I Y@@ #Jh@p#KWp1#P#Lw@#M[#Nw#O^#Ph@#Uw#V^# V`@##w@# Y@H#h@p#Wp1##wh#[#w#^#h@#w#^#`VCLEAR D I#R **** HP BASIC PROGRAM LIBRARY *******************************RR CLEAR: COLLEGE REGISTRATION DEMORR 36282 REV A PART 1 OF 10 6/73R#R **** CONTRIBUTED PROGRAM ************************************ R CLEAR STUDENT AND COURSE FILES  pSTUDNT,COURSEv@( X@@ 2j@  `<j@@`Fv@PZdv@n X@Hx j@ `v@ XԞ@` j@ `v@ZvhZ`VCOBOL W ( $j?COBOL: HP COBOL SIMULATOR, HP 36845. CALLING NAMES OF PROGRAMS#j=ARE: COMON, COIDEV, CODDV, CODBG, COPDV1, COSORT, XCORUN, AND j COSC4(FILE).(`CODBG T NG J` m JДH^ Ktp@u Jє K J0H@  K41($mnU K   R COBOL, HP 36845B, 6/74 pCOSCRNHV^d R ERROR PRINTINGpj*x T^ j ERROR CODE^j)USE OF ELEMENTARY OR EDITED ITEMS ILLEGALj#CAN ONLY ACCEPT DISPLAY-TYPE FIELDSj%NON-NUMERIC FIELD ACCESSED AS NUMERICjILLEGAL TYPE OF MOVE SPECIFIEDjACCESS BEYOND FILE LIMITSj-SUBSCRIPT OUT OF BOUNDS--ACCESS OUT OF MEMORY R NO ERROR EXIT r$XCORUNP  j AT LINE r$COMONP R DEBUGGER???'`CODDV K J`  JH Ktp@u JєR COBOL, HP 36845B, 6/74 p*,*,*D`@ D$COSC4@ h@@0@p h@P6nh@26P D$COSCR@( D$COSCR`* V`@X4 N@ p6 L@ 0123456789<OHДH>O@O`HFO2(IN0HP Na qR V`@Z h`@^%`j`TALLY`aMN#&b M@ixcM@d h@@n X@|͢@xh@Z j@P` L]vwxncMw niP @,M4@.#(0#2Mx@6V]@ Yf}u@Ygf@ x}f@ p~@ Wpgg< [g Mpf@ pg%V֯a"`(Mf@@@@}}`[fr$COPDV1L^hL^pj**UNEXPECTED END OF FILE REACHED AFTER LINEr XR ENTER HERE IF WE RUN OUT OF COSCRb j7*THE SCRATCH FILE 'COSCR' IS NOT LONG ENOUGH TO COMPILEl!j9 YOUR PROGRAM. TYPE 'KIL-COSCR' FOLLOWED BY 'OPE-COSCR,N'v j8 WHERE N IS A GREATER NUMBER OF LINKS THAN ARE CURRENTLYj) AVAILABLE. THEN GET COMON AND TRY AGAIN. r$COMONNPբզ@@P/բզ@@P?բզPPPOբզ``P_բզz(z(R MAIN TABLE DRIVEN ROUTINEW=L W24@XW24P0P$#$ M424`. W4<d8L W24PjN L^24PV`tjT24P@$ttt M424@~. R LEVEL ROUTINE :M>j@P`Lefghijklmnuq@q@q`Wd zWWA>j@P!efghԤ` jklmn`j@Ԥ` uq@q@q```M@ W1*.j@P!`,j@`4> lHM@Rh@P!efghijklmSh@uq@q@q``V VԤ` >[XLԞ@`ZL"Ԥ`[ Lnn:Ԥ` "i\WA>]W@ >ZLi_S@f` :bLefghijklmnuq@q@q`fMtzWMM@L^@M@#L@x  Wx7@ LԞw`Lww``#VW=@W@`0PIC j W@`0VAL  W0USAGE  W0BLANK  $W@@0JUST F & W0OCCURS .W@@0SYNC x 0W,A 2W0\ 8 W0 REDEFINES :W= B ;M@ <M@ => >L@ ?MxP @Mv A^ BL^H D L# VV L ` aL^P b c L jR PICTURE t# ~W0IS t M  R USAGE # W0IS Le@ W@@0COMP Le W@@0DISP Le@ W0INDEX  a R VALUE # W0IS M`   R BLANK WHEN ZERO # ( W0WHEN  *Lf@ 2 W0ZERO < a FR JUSTIFIED P# ZLg@ d W0RIGHT n xR SYNC # Lh@ W0LEFT Lh W0RIGHT  a R REDEFINES # % L@@}} % LԞ@` L"Ԥ`  R OCCURS  L^x  #  W= a Luu@ Vu` a "Lqu ,# 6 W0TIMES , @ W<INDEXED J# TW0BY J ZW,A ^ j`` hLޢ@ rMf& t M@] |M@  R PICTURE SCAN MX9A(SVPB0Z,.*+-CD$ M M    lk X@} M X@H W1  Z L^p  ^  L@ &VH : 0 T p :TH B DV/ @(@  N M @ XL bW  lM  @ vL   Z W7  W @ Ll l ^ M` M@  D M @ M@ W @  U@ M@  U@ M@  M L L@  X@P W0@ H *Z 4 W0) \ >  H LP @ R \M @ f b pLk@ zM@  M @ Ll  z M@ Lll# @ L! M   z M@  M@ L!  M @ Ll  Lk@ V< L`L  M @ VH  L! M   W@@<R $M@.L@8 BW@@0B$L  R ERROR MESSAGESLlj*ԯ^@P@T^,@Th| T^Pj'SECTION' MISSING OR MISSPELLEDLl@$jEND OF PARAGRAPH EXPECTEDLl@"$,jILLEGAL FILE NAME IN FD.Ll@6$@j ILLEGAL CLAUSE IN FD DESCRIPTIONBLl`J$Tj"ILLEGAL PARAGRAPH IN DATA DIVISIONVLl@XM^$hj 'DIVISION' MISSING OR MISSPELLEDjLl@r$|jILLEGAL PICTURE CONSTRUCTION$j$ILLEGAL LEVEL NUMBER OR CONSTRUCTION$j"ILLEGAL CLAUSE IN DATA DESCRIPTION$j"ILLEGAL SYNTAX IN DATA DESCRIPTION$jILLEGAL NUMERIC CONSTANT$jRECORD TOO LONG FOR FILE$j ACTUAL KEY ' ' NOT DEFINED$j ACTUAL KEY '' MUST BE COMPUTATIONAL$j#CAN'T SUBSCRIPT LEVEL 1 OR 77 ITEMS $$j AT LINE CHR&L]@. Tl@8Vj8#BLW0\V#XL`W0\bW0,dW0;fW0.j#l`^ R CHECK FOR MATCH M524@M=@ԯ5@P@U5 (2<FU5PPZdnx U5P  W0FILE" W0SECTION"W0." W0\" W0FD" W0BLOCK" ( W0CONTAINS"*2M3 Y@4 Y@P5 W0@86[78 MP!@9[:"<W0TO">F W0RECORD"H W0RECORDS"I W0MODE"JP W0 CHARACTERS"RZ W0DATA"\dW0IS"f W0ARE"ln W0DATAo W0LABELp W0BLOCKq W0RECORDr W0 RECORDINGv"x W0LABEL"y W0 RECORDING"z W0STANDARD"W0F" W0OMITTED"W0,"W0;" W0 PROCEDURE" W0DIVISION"W0."W0\"W0WORKING-STORAGE"W077"W001"M="^ R DATA FOR PICTURETHT@ \HS&an$`(h(P`\(@{(@S&p_(`{O(@Sр&px\(P}(P{T(pc_(po(@mr$&XR GENERATORSb M524@lT5@P@vv U5%V&zMv :MwԤ` Mx^L^`^La`^La@^LaP^VԤ` ?w aPLԞw aP` Lw aP"Ԥ` :Wv Xp Mv a@Z% ^RLvf&zp LaPaP:nr VaPHztL^`vx LaPHz VapLapwMxx@MvMvM@!LR SAVE VARIABLE IN CORE ARRAYV Ma" "lP }!P f@ g@ k` M@ڤ} jM@tV@~MX֞@}@M֢֢@``M ע@@(`#W`M@MZM@V@MM@^@ R M2=CHRVAL(M$(M1))JL؞@ T V@0|^Lئ@hL rT| V00Lئ@L"T^ R M$--> MEMORY X֞@@T  Lפ@@L՞@ &L פ@@L՞` &  L ע@ LԠ@ L՞@ &Z 0^ : R SYNC MEMORY DVհ@ b NL՞@ XLԠ@ b^ lR GET LENGTH nLn pVh@ t r : tLԤ` vVi! Ve@!  Ln W@!H Le W@ MP Mln L Lk@ V0FILLER! j`` Vu !Muz( q@N  q@d q` M@ WH& L ! L!L@!> !HLݞ!JVn`!M!LLݞ@!M Ve7x!P!NLޢ@"!P Te@!T!f"t!TL؞!U!W!VL!WL@!XMp!\ !fL`!p Ln``$!zM`! !Lޢ@!Mlڞ`!L@!L!M@!Ln! !Li!Lv@!Xw@|u!Lvv$qw!Zw!Mln&v!LP!M`! ! Wv5@R!Vi!!V@!!Lv@!Xw@|u!Lvv$qw!Zw!Lwv!W`<!!Lnn$v! LԠn`!L On!V`!!Lբ`!LԠ@!^!W`@@0'"!W`@@*A"k!W`@@<0``"" T@""""t"t"L`@`@" ,n"B"$ 0n"X". LД@n"8"X"B X@|n"L L "VZ"XX@|v"`"bZ"j^"k X@P"lW`@@0p@`@"o"mZ"n"t"oL"pX@|n"qLpP P "rZ"s"X"tL^P"~"^" T@""t"""L`"""$"MjjP("l#f" MiiP("l#f" Mjj _iz("Miijz("Mj_j"M"V`""M"LԠ@ "Vݰ@""Lj"#"Li" L@j"##V@"j#L# Xn@~@#V`# #L?jP(@## # L?iP(p# LD P%g$k# Ln"@n"@0#Mg#Z#Lvw#"#Lvv@#Vv##V`"#Lޢ@"#"#( R READ NEXT LINE#2h@#<L͠@#FL@#PL#ZL#d^# R GET NEXT WORD --> X$#L@# V< ##L@#V@##L#V>$# V0'$6#V00``$6#L@# V< ## M@#W<.$#V<$##(#V@`0 $$M\$L@$R$^$#($"V@`0 #$,$$6L@$JV0#$T V<$6$^#$ R SCAN CONSTANT$L@$ Mefghij$W`@@0+$$W`@@<-$$Mg@$L@$X`$ X@P% W`0@%X%Z% W`<.%:%&Mh@%0%%:L^X%D%N^%X MjjP @%bMiiPjz(%lMj_j%vMee@%Mff!h%Z%^% R RESET FILES 3,4% V``%%h`%%%^% R FIND X$ AS SYMBOL% h`@% V``& &h`& V=&&^& L&*^&z R READ DATA-->F&| X@P& La @&Z&^&j&j*DATA DIVISION TOO LARGE&v]@&'`COIDEV W ( J` JH Ktp@u JєR COBOL, HP 36845B, 6/74 p*,*,* D$COSC4@ h@@0D`@ V`@, DCOSCR`oL͞ nӟ"L՞@$M@%o&Lޞ}( h@@*L2 OH2d4Na H0H< V`@,Fjdi6n ni26PpL]urMtx#(z#M4@V]@6r$CODDV,j**UNEXPECTED END OF FILE REACHED AFTER LINE6sR MAIN TABLE DRIVEN ROUTINEW=L W24@X#$ M424`. W4<d8L W24PjV`tjT24P@$ttt M424@~. R ERROR MESSAGESLlmn M524Pj*W5@ U5"6J^U5@rj/PROGRAM MUST START WITH IDENTIFICATION DIVISIONLn@0j 'DIVISION' MISSING OR MISSPELLEDLm@0jEND OF PARAGRAPH EXPECTEDLl@0j'PROGRAM-ID' CLAUSE MISSING0" jPERIOD MISSING,06j,ILLEGAL PARAGRAPH IN IDENTIFICATION DIVISION@0JjCONFIGURATION SECTION MISSINGT0^jWRONG SOURCE OR OBJECT COMPUTER`Lm@h0rj#ILLEGAL OBJECT COMPUTER DESCRIPTIONtLl@|0jILLEGAL SPECIAL-NAMES CLAUSELl@0j'SECTION' MISSING OR MISSPELLEDLm@0jILLEGAL FILE-CONTROL CLAUSELl@0jILLEGAL FILE NAMELm@0j!ILLEGAL ACCESS OR PROCESSING MODELm@0j'IS' MISSING OR MISSPELLED0j)ILLEGAL PARAGRAPH IN ENVIRONMENT DIVISIONLl@00j AT LINECHR2L]@:VnND r$COMONPNVmbX#bVllW0\v#l^ R LOOK-FOR ROUTINES M>24@M=@ԯ>@P@U> (2<FU>PPZdnxU>P U>x ",6@JT^hrU>P | U>d W0IDENTIFICATION  W0DIVISION W0\  W0 PROGRAM-ID  W0. W<\  ( W0AUTHOR* 2 W0 INSTALLATION4 < W0 DATE-WRITTEN> F W0SECURITYH P W0REMARKSR Z W0 ENVIRONMENT\ dW0 CONFIGURATIONf n W0SECTIONp xW0SOURCE-COMPUTERz  W0HEWEY W0HP2000C W0OBJECT-COMPUTER  W0MEMORY  W0SIZE  W@,:  W0WORDS  W0 CHARACTERS  W0MODULES W0 SEGMENT-LIMIT W0IS W0ARE W0 SPECIAL-NAMES  W0 INPUT-OUTPUT  W0 FILE-CONTROL  W0SELECT  W0OPTIONAL W>A " W0ASSIGN$ ,W0TO. 6W@@0'8 @ W0FORB J W0MULTIPLEL T W0REELV ^ W0UNIT` h W0RESERVEj rW0NOt | W0 ALTERNATE~  W0AREA W0AREAS  W0 FILE-LIMIT W0 FILE-LIMITS  W0THRU  W0ACCESS  W0MODE  W0 SEQUENTIAL  W0RANDOM  W0 PROCESSING  W0ACTUAL  W0KEY  W0 I-O-CONTROL W0,W0; W0AND  W0DATA  M=^oR TABLE DATApZq@@@r@``@s`@@`t@PP@uP``Pv`@pw``xp`Hy@`PzH`X{P``|X`h}`p``~@xx@`@ @ `hX T xH T PL L P@ P P @`T T `D X F P\ \ P@ ` ` @j d D H h | L l l P p D HT ` t X ` x \ ` D H` @ D Hd B D HP ` D H`F F `h H T PJ R `L L d N N P`T P j J J `T J Pl V Xp\ \ XpZ Z X`D D ``^ ^ `p ` V`Vb Pd d Pt `f | `x @h h | @j | `@ l | `B n n D `p p hF r r H t x J @x v L @x | `j ~ z Ppd | `pV~ N @DP BAP B| `R CCT x x V EId F| `P G| `X H| `P x | `Z JM\ OO^ x L` Px x pb NR\ PPd KKxd QQx^ x x pd S| `f TTd UUx| @x | `h WX`XX`l Y\ @ @ZZ@``XR GENERATORSb M524@l U5  naPMuu@ Mvu@ x La@d ^ La`@^L^Mpv MpvvP@p@ EpvvP@V`!j*CAN'T OPEN FILE pvvP AT LINE CHRL]@D@^j *FEATURE NOT IMPLEMENTED AT LINECHR^ La@@^ j`` X@@MaM@Z^ Mpv`vx*^#( R READ NEXT LINE#2h@#<L͠@#FL@#PL#Z^# R GET NEXT WORD--.X$# V< ##L@#V@##L#V>$# V0'$6#V00``$6#L@# V< ## M@#W<.$#V<$##(#V@`0 $$M\$R$^$#($"V@`0 #$,$$6L@$JV*#4$T V<$6$VL@$^#'`4COLREGD NI #j=COLREG: COLLEGE REGISRATION DEMO, HP 36282. CALLING NAMES OF"j;PROGRAMS ARE: CLEAR, FILE, PREREG, REPS, AVAIL, REG, SOFAR,jGRAD, CLASS, AND COPY.(j&2 FILES ARE INCLUDED: SSAVE AND CSAVE.2`COMON eJ`Htp@uJє0H  M M@LR COBOL, HP 36845A, 6/74 p*,*,*nӟonN H@L@ DCOSCR@OH V2!V@'" j7YOU HAVE NOT OPENED A FILE NAMED 'COSCR' BEFORE RUNNING$j3 THE COBOL SYSTEM. PLEASE TYPE 'OPE-COSCR,20' AND%j AND THEN TYPE 'RUN' AGAIN.&b' j7FILE 'COSCR' IS CURRENTLY BEING USED UNDER THIS NUMBER.(j5 PLEASE USE ANOTHER USER NUMBER OR TRY AGAIN LATER.)j THANK YOU*b2 D$COSC4@4 h@@06D@<L> @@P@ h@@B V<@PD @@PFh@@HL@JQP j@@`Q#RW@_TL`@UD`@VVZWL@X_Z jCURRENT FILE--`_ Lde,`Vda%djCOMONfjlj n tx V<@j\ j*TIMEOUT-DELETEDL,,@V,`n"j;*YOU HAVE NOT TYPED ANYTHING FOR OVER 20 MINUTES. GOOD BYE.(L,LVlV0@60` V0@V@@*9V@@,0V j@@`L j@`L@l V<@4 h@@ V`@ Mh@L,L X@pV* XHV0@@Z"LP$ Z"L,L-L@". L 8L@@ V< EBL@DV,@EVPHFL@GJHL@J V< LL@TV0^V@@< ` V@<hb L@@drh M@jL@@@"@rL@|TL@V@J L@ V>A V0'NV00``NV@0;  V@0) V@0** V@@<  V,0 V*9L L,V@M& L 0L@@@"@:L@<L@>V@<** @L@DN X@|@X V0vbZvLwV@@0 x M@zL@@ |L@@@"~L@LL j@`L@ L@*L4V0lV@`0RUNV@`0IGNV@`0LISFV@`0SCRV@`0RENrV@`0PUNV@`0XPUV@`0SOR $V@`0DELN.V@`0GET0V@`0BYE(2V@`0EXI(4V@`0PRI 8V@`0CSA9V@`0CLE (:V@`0STO(>V@`0COM@V@`0SAV .Bj *???Lljj *ILLEGAL FORMAT IN COMMANDtl~j *COULDN'T GET FILEl j *NO FILE PRESENTlj *PROGRAM MUST BE COMPILEDlj *PROGRAM PRECOMPILEDlj *CAN'T MODIFY READ-ONLY PROGRAMl @ (V@@<-j L`P V`<COSCRjj2 COSCR IS A COMPILER SCRATCH FILE, AND CANNOT BEj3USED FOR A USER PROGRAM. YOU MUST EXIT FROM COMON,"j;OPEN ANOTHER FILE TO BE USED FOR YOUR PROGRAM, THEN REENTERjCOMON AND GET THAT FILE.lD`@VV` DXXX@L@~L h@@ @@h@ V0@ tL@ @  h@ V@L@L@h@V@L@V`<@$ L@"l$L@% j@@`&l(j)V2*#(2j<bFL@G#(HjJj`LjN V0`P h@@R%S V!@ZT L!@_^6Z V`@\L'p dh@f V,!@dh V*!@dn#x&Hy k@`zT||j ~jL''@V'dV&dL't j djTlL@#(j PjlL` V0@ V0@ j@@` j@@`Llr V0@s V0`t V0@u#(v%xL| h@@ V!@ L!@_^6 V!@ L!@P V!@ L!@d h@@ V`@h@ V,!` V*!@L!@L!@!@ !@ j@` h@@ h@@ V`@:h@& j@`0:L< j@@`DV%`lF#(HlN j@@`OLP V0`R V0@T#(X%b V!@vl L!@!@vV%@j h@@ V`@ @@h@ V,!@ V@!@ j@`LV@\#(M$COMONLĞPL DCOSCR@L% V`@4 L&@ j@&` L&&@*4r$COIDEV\ h@@@fh@pup nh@L@L͞jj`jL D$COSC4@ h@@0 r$XCORUNR COMPILEV@lL@R CSAVEVVHl j`@@VlLf@Lg` h@@@X D` $l .R SAVE 8 BVl LLf@ VLg` X h@@ `X j  t R GET CSAVED FILE uj *WARNING: RUN-ONLY PROGRAM vL@ xL` ~h@pu nh@ j@@@`pu nj@ j@` l (R CLEAR 2L 4L@ <L` FL@ P j@@` ZD@ dl R SORT V0@ V0` L@ L LIGN #( l l R DEBUG  V0` : #( &L` (L 0 :j CAN'T DEBUG COMPILED FILE Dl R PRINT  Vl h`@ j `@ h` j  j D` lX R COPY#F1 TO #F2l fvvhfxjgzlhfjgljg`^R OPEN FILE$TV*  M@E`Vj *COULDN'T OPEN FILE^ j% *INCORRECT FORMAT--NO NAME SPECIFIEDLH^@R ENTRY FROM SUCCESSFUL/RUN/COMPJM@T V@6@VV`^L@h DCOSCR@rj@@@`tj@pu| nj@j@`V@L@L͞j*SUCCESSFUL COMPILATIONL@#( R SORT ROUTINE#2 V0@6#x#<V#FM$COMON#PLĞF#Zr$COSORT#dL,#fD`@#h DCOSCR@#i##n#x^#R NUMBER ROUTINE (N-Z$)#L#Mn000000# X@`#LP(`"#M@@#L"P(`"#Z#^#R INITIALIZE# L 0123456789$ DCOSCR@$S^$T R FIND START OF LIST$VL$^X@|$h V0-$$rZ$|L@$^$ R GET # TO N0$L@$L$V*%$ V0P$$ XH$V0@@$$Z$%$L@$L@$%$LP %L@%L@%V@$%V@%%L@%^%R GET B(10) FROM COMMAND% n!P%&L%&%0$T%:V*%%D$%XL%%@%ZV%Pj%bL!%%lV*%%v V0,%D%j% V!%<@%%L!%%L&@%L%%@%^%R RESTART%D`@%j&L& &HR-DELETE BLANKS PRECEDING PERIODS AND COMMAS&Rw|@&\V||@0 . &&fV||@0 , &&p&& v||@&w||@& W|@&\& V|0.&& V|0,&&^& v|@|&^'`nCONDI  ( R PROGRAM NAME = CONDI, CONDITIONAL PROBABILITY N w@(j,DO YOU WANT INSTRUCTIONS FOR RUNNING CONDI 2f< V0YESdFV0NOTP(Z j----- DEFINITION:d!j:CONDITIONAL PROBABILITY DEALS WITH A REDUCED SAMPLE SPACE.n"j; EXAMPLE: TWO 3'S AND TWO 5'S ARE ARRANGED IN SOME ORDER.xj' ALL ARRANGEMENTS ARE EQUALLY LIKELY.j0 IF THE LAST NUMBER IN THE ARRANGEMENT IS A 5,!j9 WHAT IS THE PROBABILITY THAT THE TWO 3'S ARE TOGETHER?jj- SAMPLE SAPCE OF THE POSSIBLE ARRANGEMENTS:&jC (3,3,5,5), (3,5,3,5), (3,5,5,3), (5,3,5,3), (5,5,3,3), (5,3,3,5)j!j9 A REDUCED SAMPLE SPACE WITH A 5 AS THE LAST ELEMENT ISj" (3,3,5,5), (3,5,3,5), (5,3,3,5)jj+ EVENT 'A' IS 'THE TWO E'S ARE TOGETHER'.j, SINCE THERE ARE TWO SAMPLE POINTS IN 'A', j P(A) = 2/3.j$j?IS THERE AN EQUATION FOR CALCULATING CONDITIONAL PROBABILITIES?j!j9TRY THE FOLLOWING EXPERIMENT - TOSSING UP TO 5 POLYHEDRA:""j;EVENT 'A' IS 'AT LEAST ONE POLYHEDRON WILL STOP WITH A SIDE,#j>DOWN OF YOUR CHOICE'. EVENT 'B' IS 'THE SUM OF THE DOWN SIDES6j#IS LESS THAN A SUM OF YOUR CHOICE'.@jJ"j4@l vNj$j=EVENT 'A', AT LEAST ONE POLYHEDRON WILL HAVE THIS SIDE DOWN fX@| V4A1Z jj$DO YOU WANT THE SAMPLE SPACE PRINTEDfj V0YES V0NO4  w@*44*> w@є@&H w@є@&R w`є`&\ Vє@ fw@&є@$є`&pj+NOW, CALCULATE THE FOLLOWING PROBABILITIES:zjj-1.P(A) 2.P(B) 3.P(A&B) 4. P(A GIVEN B) j XĞ@@j @.?vxt. W@5j$j@ALL PROBABILITIES MUST BE BETWEEN 0 AND 1 INCLUSIVE. TRY AGAIN!bWZfj V0YESV0NO8$.8j$DO YOU WANT THE SAMPLE SPACE PRINTEDBfLjVV0NO` V0YES~jt8~w@4jNOW, CALCULATE THE PROBABILITY.jj-DO YOU WANT THE CORRECT PROBABILITY PRINTED fjV0NO  V0YESjTHE CORRECT PROBABILITY IS j v==@jDO YOU WANT TO CONTINUEf(j2 V0YESZ<V0NO FPZZd X@`nvxvvvZ v$є@ v$єHvє@v@V=@ jYOU CORRECTLY CALCULATED@"= OF THE PROBABILITIES.$j?THE PROBABILITIES COULD HAVE BEEN WRITTEN IN THE FOLLOWING WAY.jj 1. P(A) = є@/@j 2. P(B) = є@/@j 3. P(A&B) = є`/`"j4. P(A GIVEN B) = є@/@,j6%jACAN YOU SEE WHAT THE FORMULA FOR THE PROBABILITY OF 'A' GIVEN 'B'@j2WOULD BE USING SOME COMBINATION OF P(A&B) AND P(B)JfTj^ V0YEShV0NOr|6j%DO YOU WANT TO TRY ANOTHER EXPERIMENTfjV0NO  V0YESTjCOMPLETE THE FOLLOWING:j P(A GIVEN B) = f  V 0 P(A&B)/P(B)0 V 0 P(B&A)/P(B)0j#NOT QUITE! DO YOU WANT TO TRY AGAINfj V0YESV0NO&0j:j0THAT IS THE FORMULA FOR CONDITIONAL PROBABILITY!D:jADEFINITION -- THE CONDITIONAL PROBABILITY OF AN EVENT A, GIVEN B,(IS DEFINED BY P(A GIVEN B) = P(A&B)/P(B)N$j@IS DEFINED BY THE EQUATION P(A GIVEN B)=P(A&B)/P(B), IF P(B)#0.X b֏#A7ljvjj0THAT IS NOT CORRECT. DO YOU WANT TO TRY AGAIN w@wj `CORRECT!j^X@|V&&4&&v&v&Z ^j+YOU HAVE MADE A TYPING MISTAKE. TRY AGAIN! ^*w4w\> Tpf\RHH X@}1Ǣ@R X@}1Ǣ@\ X@}1Ǣ`f X@}1Ǣ@p X@}1ǢPzWw\\@ Tjjjjj 8v@v    V>vє@є@@V060606060   ~ vє@є@@ V> ~ $vє`є`@ . ~ 8W\P\P ~ Bj&DO YOU WANT MORE OF THE SAMPLE SPACE  Lf V V0YES ~ `V0NO j t 8 ~Z Z Z Z Z W@ vє@є@ vєHє` j ^ CjD YOU HAVE INPUT AN INCORRECT VALUE FOR YOUR EVENT. CHECK THE NUMBER7OF POLYHEDRA YOU ARE THROWING AND THE NUMBER OF SIDES. ^ j/SINCE YOU DID NOT GET THE CORRECT RELATIONSHIP. j ANALYZE YOUR DATA AND TRY AGAIN. `COPDV1 NJk J`  JH Ktp@u Jє KR COBOL, HP 36845B, 6/74N0HДH`HH N@  NpqO2ZM@\odp*,*nD`@p h@@v V`@#wL\VxLzn D$COSC4@"h@0@pq@q@q`q@qP h@P 5X@}5 h@6789:M2@6 :@} 7` aM2@8@d!9@Z DCOSCR@ j@P` X@|͢@h@Z#(M4,V\@.L͞@X@} M@ W@Z r$COMON} h@Ph@`eWe< j*'`'--L^d r MW=LM524@a` W5:W5 L5 %L>%M424@d@$ W4<@8:W5@;Lh < Mee@=%> ֯e@Au?L^p @ALL^24@}NL^^^d d @PV^jV`tj T^@$tttM424@24@dd@~$Lv % LW%L"WKMe䢯KK%V@ ( V>AV@0. * L^@ *L| 4%HL@R#\f#pli4W4GW=L@ W@L^` W@7@0@ M@4)p b }lD [`@@CO@C SAP Xt ` z iHJGW= T L^@  f ( R START NEW PARAGRAPH *L 2# 4 W0END <$ F We<@ d PMe@ Z j@e` d M@ nL~ p% Me M@@ M@ Vp<SECTION  L^h  L@ # V@0. H L^P   V< END OF PROGRAM .  < L~ % L@ % L % L@ % LZ % Lv % , TR NOTE VMe@ X W@ h ^Me@ h# r# |W<. h V@7e@  h D$COSC4@ h@@X]@|^h@Z]j*Д@ AT LINE CHR DCOSCR@L\@VД@@0PVД@@0I^##W<.^##^M>24@24@}}ԯ>@P@U> (2<FU>PPZdnxU>P U>x ",6@JT^hrU>P |U>~ blvU>FU>P  *4>HU>Zpz^LM=^V`0ACCEPT tL V,A#$T We-u@5>@ We-u@Z%V`0ADD V V0'p V00``p V,AV@0TO LVp0ROUNDED ~ (V@0ON L*2V@0SIZE `4<VP0ERROR j>FV`0GIVING tHPVP0ALTER jRZVp0PROCEED ~\d V,Ae#f$g We<@khMe@i j@e`kLf l%mnVp0DISPLAY ~pxV`0DIVIDE tzV@0INTO `V@0BY LVP0ENTER jVp0EXAMINE ~V@0 TALLYING VP0UNTIL jVP0FIRST jV`0ALL VVp0LEADING ~VH0 REPLACING V@0EXIT `V@0GO LVH0 DEPENDING V@0IF LV@0NEXT `V@0 SENTENCE "V@0ELSE `$,V@0MOVE `.6V@0 MULTIPLY 8@V@0NOTE `BJV@0. L#NTVp0PERFORM ~V^V@0THRU ``hVP0TIMES jjrVp0VARYING ~t|VP0AFTER j~Vp0COMPUTE ~V@0FROM `V@0STOP `V`0RUN VV@0 SUBTRACT V@0IS LV`0ARE VV`0NOT VV@0= B bVP0CLOSE jdlLm#n$TpWeq We+u@rLh s%uvV@0REEL `xV@0UNIT `V@0OPEN `VP0INPUT jV`0OUTPUT tV`0I-O VV@0READ `V`0RECORD tVP0WRITE jV`0BEFORE tVP0AFTER jVH0 ADVANCING  lWeWjWi`8VP0LINES jV@0LINE `Vp0INVALID ~ V`0KEY VV@0AT L V`0END V"*V@0SEEK `,4V@0WITH `6>V@0NO L@HV`0REWIND tJp V0'rqV<0``dr :sLd tMeu%v M@Ԥ` wxMN  "@PyzVP0READY j|VP0RESET jVP0TRACE jXVP0UNTIL j V,0 V@9 V0+ V0- V<.V@@0  lWe8 V0'V<0`` :Me Le@%B8L@:BL@DLL`NVL@X`LPbjL`ltLpv~L@LHLPLXM@@ "@}M@B# M=@^ZLdMe@xMe@ X@PV`0p@`@ZUeLd %L%MK( M@qM@#UefXLV@LVM@ LWjV`<NOT VVxM@M@ V,AV@<THEN LP#VW> TV@xV@0IS zV`0NOT Vp0GREATER  V@0LESS VP0EQUAL 8 Vp0NUMERIC V*VP0 ALPHABETIC 4x>#@#H$TR We0@\%fLW@pzL`#M@M@L@L@ M@@M@LWV#V@<THAN LP#V@<TO L`#LP$ M@@.8L`B M@`LVL@` M@PjM@t#~xLX M@`jVW M@W0+ W0- W0* W0/  V@0** W0) FW0. xVV@V@0( < V0'Z V<.V@@< f V,0 V@9f V0+ V<-V@@< fV00``ZLXp LXr LXt  LXv  LXn L@LXx L@W,X( &(M@*MX,LW.L@0#2<M@>MP@,F WPPHNFP WPRM@SL@T#UVV@xVZ M@Ԥ` [Me\Ld ]%^_MN  "@P`M@@ "@}aM@bL@c#dLW@ef lhL@jcxLj %VV@LV`W@ WPWP4V`^ Wj@7j@ W<ZEROL@ L0fLMe`L^T L^X L^\  R SAVE OPERATOR WP" Mz #"L$%& V`6V`,(Lqx*Lxx@+%,M@0^@MJ Xמ@@T V01h^Zh^LL@V@L^l  V<^@T  Lפ@@L՞@L פ@@L՞`  L ע@ LԠ@ L՞@ & :Vհ@ b NL՞@ XLԠ@ b^ lMm v Meghijl xMf@ V0+ V<- Mf@ L@ Yk@P V0@kk! [k V<.! Ml@ L@ V<  Lޢ@ Wi` Lޢ@ Wm@ Me Ld % MI>& jP }!iP M@i} ޤ`@ M@ Me@ Lg%f Wi`! Lh%f! Lޠ@g%f!^! MggP!k@!MhhPgz(!Mgggz(z(!Mii@! Mjj!l!* #(V#n#2h@#<L͠@#FL@#PL#RV@@< #Z#TLP#Z^#nL END OF PROGRAM . #pL@#rVP#<#tj"*UNEXPECTED END OF FILE AFTER LINE#v#L@##(#V>##V@0, ##^#L@####(###R GET WORD#L#L@$ V< #$ M@$L@$"^$T h@@$h V`@$$rh@`e$|W`=$r$^$Me@$^$ h@P$$h% We%x%&Ld %0%%NLd %P%%RL%T%%VLe@%X%%YLyV%ZLV@%[LWj%\Lxq@d%]Lq@q@"xd%^%bLVy%d^%xLq@*eN %yLq@e"q@N d%zLq`eedd%{%N% L`@%L K(`"@%L@%VK%%L^t %%%^%%%Le%%'`*COPY  x#R **** HP BASIC PROGRAM LIBRARY *******************************RR COPY: COLLEGE REGISTRATION DEMORR 36282 REV A PART 10 OF 10 6/73R#R **** CONTRIBUTED PROGRAM ************************************R THIS PROGRAM RESTORES THE STUDENT AND COURSE FILE R FROM THE BACKUP FILES OF SSAVE AND CSAVE pSSAVE,STUDNT,CSAVE,COURSENH X@`@v$@V`(V`$2 X@}<hFj$P ZxZhdj$nPxhj$Pj$`ZZbjSECOND FILE TOO SMALL`CORP  ( N0 R SGFMS, HP 36832A, 6/74( R ARRAYS B AND C MUST BE IDENTICAL IN SIZE TO ARRAYS B AND C<R IN THE STUDENT GRADE FILE MANAGEMENT SYSTEMPR ARRAY B CONTAINS RX GRADE, ARRAY C CONTAINS THE CRITERIAdN1(!(xN@ NA1dvf@vg@ jPASSWORDf0R PASSWORD = CONTROL GOV00 ,,R FILEA CONTAINS STUDENT GRADES, FILEB--CRITERIA@pFILEA,FILEBTV`fhhv.P |o3j!CRITERIA OCCURANCE REPORT PROGRAMR N4--NUMBER OF STUDENTS REGISTERED ON SYSTEMR L8--MAX RECORDS ALLOCATEDR C9--MAX NUMBER OF CRITERIA RECORDS ALLOCATEDR Y$--CONTAINS COURSE NAME hf@>j*PRINT REPORT BY PUPIL, EXERCISE OR SUMMARYf00 V00PUPILDV0@`0EXEX V00SUMMARY lR-----------------------ANALYSIS BY RX#jPRINT SINGLE OR ALLf0 V0<SINGLEH V00ALLd o3 L%4 R---------------------HjSELECT EXERCISE #\fp/`CRITERIA ANALYSIS L%Y&@|R READ A STUDENT RECORD V!LX@|v$ w11@8ZL[&` j EXERCISE #tX6@|>V`g(R READ CRITERIA FROM DISC,jvŞ j6@jCRITERION OCCURANCE -- 16Z6(/@<j REPORT COMPLETEPbd R--------------------x j INSTRUCTORf jQUARTERf0X@|.L%o3 /`-----/`CRITERIA ANALYSIS , j0?x@Y&@|TR READ A STUDENT RECORDhR FOR SOME WEIRD REASON THIS PROGRAM BOMBS IF A GOSUB|R IS USED TO READ THE DISC AFTER THE 10TH LOOP R-----------------------DISC READhf&@nhf#3R----------------------- V!XX@|v0 w11@DZX[&ljx--------------x EXERCISE #x--------------X6@|>V`gpR READ CRITERIA FROM DISC, j vŞ4 j6@HjCRITERION OCCURANCE -- 16\Z6pZ/@REPORT COMPLETEbR--------------------------------ANALYSIS BY PUPIL jPRINT CRITERIAf0V00N V00NO  V00YES L $V00Y L 8X L/P CRITERIA /@ `X6@|> tV`g , LŞ j6@ Z6 /@ /`CRITERIA ANALYSIS  /@ Y&@| (R READ A STUDENT RECORD < Po3 dL xX@|. V! @ L@  R COUNT THE CRITERIA IN THE RECORD X@| v  w11@ Z ,Z @ j T&@@ TH 3D,3X,25A," N -- ",3D hL |L@ V*> X W1@ | j 1 H #," C",2D,"--",3D L@ R IF J>=5 THEN RETURN THE CARRAGE VP | j 0L D | Xj l[& /@REPORT COMPLETE b R-------------------------------SUMMARY PRINT /@ jCRITERIA SUMMARY  Y&@|  X@|. V! 4 HX@| \L p M11@ Z Z [& X6@|> V`gt R READ CRITERIA FROM DISC ,j$LŞ8 j6@LjCRITERION OCCURANCE -- 16`Z6t/`jSUMMARY REPORT COMPLETE b V1c L@1L@ V1NdL@1d(L@1"@d<L@PdL`1N xM1"`N L@dL@"@dL`^R -------------------------------STUDENT RECORD READhf&@nhf#3^,R--------------------CRITERIA READ@hg6T^hj&STUDENT GRADE FILE HAS NOT BEEN SET-UP|j+THIS IS PERFORMED BY THE STUDENT GRADE FILEjMANAGEMENT PROGRAM (SGFMS)`COC4  Nc2? !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^ 0123456789SPACZEROHIGHLOW-QUOT 0^ '@ | @Q |v# Q v$@ % v& v'h   ^ v* v'`   @ ^ v/  @ ^ v  @ &^R ERRORSjNUMBERS NOT WITHIN PROPER RANGE j TRY AGAINj fAj2YOUR SEEM TO HAVE THE CARDS IN THE WRONG DIRECTIONj" OR YOU HIT THE CR KEY BY MISTAKEjPVARIABLE OR LITERAL EXPECTED=PVARIABLE EXPECTEDI'ERROR' MISSING OR MISSPELLED,PUNDECIPHERABLE SYNTAX IN PROCEDURE DIVISIONPPARAGRAPH NAME EXPECTEDI'TO' MISSING OR MISSPELLED'I'GIVING' MISSING OR MISSPELLEDI'BY' MISSING OR MISSPELLEDPLITERAL EXPECTEDI'FIRST' MISSING OR MISSPELLEDI'ON' MISSING OR MISSPELLEDRPFILENAME EXPECTED0PTYPE OF FILE TO BE OPENED MISSING OR MISSPELLEDI'REWIND' MISSING OR MISSPELLEDDPINTEGER EXPECTEDCI'FROM' MISSING OR MISSPELLED Y BY MISTAKEjI'UNTIL' MISSING OR MISSPELLEDI'TIMES' MISSING OR MISSPELLED P'=' EXPECTEDEXEND OF SENTENCE EXPECTEDX$PUNDEFINED OR UNSUBSCRIPTED VARIABLEIUNDEFINED OPERATORSPILLEGAL EXPRESSION'XPARAGRAPH OF ILLEGAL TYPEXPARAGRAPH NAME UNDEFINEDLXSECTIONING ILLEGALEXILLEGAL LITERAL(XVARIABLE MUST BE ASSOCIATED WITH A FILEXPROGRAM TOO LARGEED0PTYPE OF FILE TO BE OPENED MISSING OR MISSPELLEDI'REWIND' MISSING OR MISSPELLEDDPINTEGER EXPECTEDCI'FROM' MISSING OR MISSPELLED Y BY MISTAKEjI'UNTIL' MISSING OR MISSPELLEDI'TIMES' MISSING OR MISSPELLED P'=' EXPECTEDEXEND OF SENTENCE EXPECTEDX$PUNDEFINED OR UNSUBSCRIPTED VARIABLEIUNDEFINED OPERATORSPILLEGAL EXPRESSION'XPARAGRAPH OF ILLEGAL TYPEXPARAGRAPH NAME UNDEFINEDLXSECTIONING ILLEGALEXILLEGAL LITERAL(XVARIABLE MUST BE ASSOCIATED WITH A FILEXPROGRAM TOO LARGEED0PTYPE OF FILE TO BE OPENED MISSING OR MISSPELLEDI'REWIND' MISSING OR MISSPELLEDDPINTEGER EXPECTEDCI'FROM' MISSING OR MISSPELLED Y BY MISTAKEjI'UNTIL' MISSING OR MISSPELLEDI'TIMES' MISSING OR MISSPELLED P'=' EXPECTEDEXEND OF SENTENCE EXPECTEDX$PUNDEFINED OR UNSUBSCRIPTED VARIABLEIUNDEFINED OPERATORSPILLEGAL EXPRESSION'XPARAGRAPH OF ILLEGAL TYPEXPARAGRAPH NAME UNDEFINEDLXSECTIONING ILLEGALEXILLEGAL LITERAL(XVARIABLE MUST BE ASSOCIATED WITH A FILEXPROGRAM TOO LARGEED0PTYPE OF FILE TO BE OPENED MISSING OR MISSPELLEDI'REWIND' MISSING OR MISSPELLEDDPINTEGER EXPECTEDCI'FROM' MISSING OR MISSPELLED Y BY MISTAKEjI'UNTIL' MISSING OR MISSPELLEDI'TIMES' MISSING OR MISSPELLED P'=' EXPECTEDEXEND OF SENTENCE EXPECTEDX$PUNDEFINED OR UNSUBSCRIPTED VARIABLEIUNDEFINED OPERATORSPILLEGAL EXPRESSION'XPARAGRAPH OF ILLEGAL TYPEXPARAGRAPH NAME UNDEFINEDLXSECTIONING ILLEGALEXILLEGAL LITERAL(XVARIABLE MUST BE ASSOCIATED WITH A FILEXPROGRAM TOO LARGEED0PTYPE OF FILE TO BE OPENED MISSING OR MISSPELLEDI'REWIND' MISSING OR MISSPELLEDDPINTEGER EXPECTEDCI'FROM' MISSING OR MISSPELLED Y BY MISTAKEjI'UNTIL' MISSING OR MISSPELLEDI'TIMES' MISSING OR MISSPELLED P'=' EXPECTEDEXEND OF SENTENCE EXPECTEDX$PUNDEFINED OR UNSUBSCRIPTED VARIABLEIUNDEFINED OPERATORSPILLEGAL EXPRESSION'XPARAGRAPH OF ILLEGAL TYPEXPARAGRAPH NAME UNDEFINEDLXSECTIONING ILLEGALEXILLEGAL LITERAL(XVARIABLE MUST BE ASSOCIATED WITH A FILEXPROGRAM TOO LARGEED0PTYPE OF FILE TO BE OPENED MISSING OR MISSPELLEDI'REWIND' MISSING OR MISSPELLEDDPINTEGER EXPECTEDCI'FROM' MISSING OR MISSPELLED Y BY MISTAKEjI'UNTIL' MISSING OR MISSPELLEDI'TIMES' MISSING OR MISSPELLED P'=' EXPECTEDEXEND OF SENTENCE EXPECTEDX$PUNDEFINED OR UNSUBSCRIPTED VARIABLEIUNDEFINED OPERATORSPILLEGAL EXPRESSION'XPARAGRAPH OF ILLEGAL TYPEXPARAGRAPH NAME UNDEFINEDLXSECTIONING ILLEGALEXILLEGAL LITERAL(XVARIABLE MUST BE ASSOCIATED WITH A FILEXPROGRAM TOO LARGEED0PTYPE OF FILE TO BE OPENED MISSING OR MISSPELLEDI'REWIND' MISSING OR MISSPELLEDDPINTEGER EXPECTEDCI'FROM' MISSING OR MISSPELLED Y BY MISTAKEjI'UNTIL' MISSING OR MISSPELLEDI'TIMES' MISSING OR MISSPELLED P'=' EXPECTEDEXEND OF SENTENCE EXPECTEDX$PUNDEFINED OR UNSUBSCRIPTED VARIABLEIUNDEFINED OPERATORSPILLEGAL EXPRESSION'XPARAGRAPH OF ILLEGAL TYPEXPARAGRAPH NAME UNDEFINEDLXSECTIONING ILLEGALEXILLEGAL LITERAL(XVARIABLE MUST BE ASSOCIATED WITH A FILEXPROGRAM TOO LARGEED0PTYPE OF FILE TO BE OPENED MISSING OR MISSPELLEDI'REWIND' MISSING OR MISSPELLEDDPINTEGER EXPECTEDCI'FROM' MISSING OR MISSPELLED Y BY MISTAKEjP @@B @``@@@@@PPP p@```H pp`@ppHH@P`@HX`@``@P@`hX```@`xP P@ `@hD D pH `@H L L pH `xT d PX `@h\ \ @ `` D ``@Ph | pl l @Px `@L J B @Px `@X``T `@ `@@@@`@X D `P@F F @T H H @@@J J L L P PP N N `@@\ H p  `@hD D pH `@H L L pH `xT d PX `@h\ \ @ `` D ``@Ph | p l @Px `@L J B @Px `@X``T `@ `@@@@`@X D `P@F F @T H H @@@J J L L P PP N N `@@\ H p  `@hD D pH `@H L L pH `xT d PX `@h\ \ @ `` D ``@Ph | p l @Px `@L J B @Px `@X``T `@ `@@@@`@X D `P@F F @T H H @@@J J L L P PP N N `@@\ H p  `@hD D pH `@H L L pH `xT d PX `@h\ \ @ `` D ``@Ph | p l @Px `@L J B @Px `@X``T `@ `@@@@`@X D `P@F F @T H H @@@J J L L P PP N N `@@\ H p  `@hD D pH `@H L L pH `xT d PX `@h\ \ @ `` D ``@Ph | p l @Px `@L J B @Px `@X``T `@ `@@@@`@X D `P@F F @T H H @@@J J L L P PP N N `@@\ H p  `@hD D pH `@H L L pH `xT d PX `@h\ \ @ `` D ``@Ph | p l @Px `@L J B @Px `@X``T `@ `@@@@`@X D `P@F F @T H H @@@J J L L P PP N N `@@\ H p  `@hD D pH `@H L L pH `xT d PX `@h\ \ @ `` D ``@Ph | p l @Px `@L J B @Px `@X``T `@ `@@@@`@X D `P@F F @T H H @@@J J L L P PP N N `@@\ H p  `@hD D pH `@H L L pH `xT d PX `@h\ \ @ `` D ``@Ph | p l @Px `@L J B @Px `@X``T `@ `@@@@`@X D `P@F F @T H H @@@J J L L P PP N N `@@\ H p  `@hD D pH `@H L L pH `xT d PX `@h\ \ @ `` D ``@Ph | p l @Px `@L J B @Px `@X``T `@ `@@@@`@X D `P@F F @T H H @@@J J L L P PP N N `@@\ H p  `@hD D pH `@H L L pH `xT d PX `@h\ \ @ `` D ``@Ph | pF`@@@`@@@`@PPP@@`@`ppp@@@@HH@`PP@X`h@hPPpp``@x@ P@@ @ `h@PpH @@L @@@L xT @@X @@ \ p @@` h Pd `@@`@@@l @Pd pD h @L x @@| @P @ P T @B L X D D Pc@F Hd @H D J J @c@H\ D N ` D @d R @\ T Z c@V HD X X @c@H` T \ T @^ ^ X T @h l d P@f f `h@j Ph@h j p l p@n n X@@@B r @@t @Pv v `@@x @@@x D | @@~ @D \ \ @X AZ B[@H\ D@@E@@@EFV \ PF @@\ I^@] I@ PA@Q`B@DRC@DDD TEWUFWVGWhA@X`U@YYVZEWEEpH \A`]`I@^^R@__SJ a@@b@KdcLdgM@eeN@fxO@PhQ@T jA@k`I@J mh@nPL oph@pPaqr_@P s{@@t@V @uu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| @ T A@@B@`BBn CL `@pp@D@@@A@QEWEFWFGWFA@Xu@ @@v@D @ww@@@x@a@yyD _@zzR s@@|N H t ~_@x @| JCOSORT; zg K JH p*,COSCRE@ V`@ N”М H0H@HPH`HpH( Lʞ@2 L”@@_^6< L”@@d R SET UP LOOPn V`@x h@@z j@@h@ Lɞ@ L”@@Vİ VĜ@, VĜ@0L LĜ@V 0LȠ@ LȜ@ Lɜ@ LȜ@,V 0"LȠ@LȜ@Ĝ@ Lɜ@ LȜ@,"Lɜ@Ĝ@$,LǠ@6Vǰ@T@j@ JTLʠ@^j@`j@ hLǞ@r R REVERSE LINKED LISTLĞ@ LĜ@ Vȼ LĞVȰX LȜ@ LȜ@&L(L0X R CREAT NEW FILEb h@@lj@vLɞ Vİ6Īz(HLȞĢ@`@V0L h@ 0@P`pLĢ@"Ȣ@` T* j@Ĝ@ 4 j@Ĝ@04 j@Ĝ@@4 j@Ĝ@P 4 j@Ĝ@` 4* j@Ĝ@p4 LĜ@>Vļ@Hj@`sR ENTER IF SCRATCH FILE TOO SMALLj3THE SCRATCH FILE 'COSCR' IS NOT LONG ENOUGH TO SORTj2 YOUR FILE. PLEASE TYPE 'KIL-COSCR' FOLLOWED BYj5 'OPE-COSCR,N' WHERE N IS A GREATER NUMBER THAN THE j8 CURRENT SIZE OF COSCR. AFTER THIS, TYPE 'RUN' AGAIN,"j AND AFTER GETTING YOUR FILE ` TYPE 'SORT' AND THEN j CONTINUE NORMALLY. r$COMONN'`JCSVE @ (uENG1`` WHS AC BTLHO TS RAPID ROYAL BOCES TURACO  EPA "ERICK` #JUNKt $CGSB %HPRREG, MEDICA,FRANK91N 9-10MOWDFRIAICIEBROWN@@CROUT1CSHFLOCURFIT URRICAILY ATE BDAYREP#DE-10R']DE-20R) DECIDE+_1N 9-10MOWDFRIAICIEBROWN@D .IN/OUTINACNT\INSTMTINTGRT&LENDERLESSEELESSORLINFIT-LINPRO0LNREG12N 10-11MOTHFRJAJDJEHIGGENS@ROMINTROOTEROSTERCHOOLSIMEQNSLOT SLSMN ESMBIL2SNOOPYSPHERE%SQR(Z)2N 10-11MOTHFRJAJDJEHIGGENS@@ & ALPHA  0 CHR @ 1 COSTPL EU DAA @ F DI @ G G @ Q GAME  [ GEORGE `U IRENE  ar LIST  b3N 3-4MOWDFRFCACCCEBROWNG@ ADDATA ! KEN  # BASE71 +h CSHFLO / DAA @ 1 FINAL  6 LIS  8 PRINT  9 RNFL @ > ROGER  HW SC @3N 3-4MOWDFRFCACCCEBROWNG@WOK %WOK1 %WOK2 %FIE03@%MDTA @MEDIC MES1 @MES2 @,CORSE@ ,LIFE  ,MACRO  3-4MOWDFRFCACCCEBROWNG@@Q(8 LOADERjy8 M @jz(8 ME @j(8 MOEL @j@8 MODELIj 8 MODELOj 8 QL @j (8 SAVER j48 SC @j;(8 SE @jc( 3-4MOWDFRFCACCCEBROWNG@@ FIE1 @ @ FIE2 @ @ GYR6 'i@ MR**1@m-@ TIME 5v@ TONES56@AJTST ;@BINGO >@CRTTST?$@PARES B@ROUL3D 3-4MOWDFRFCACCCEBROWNG@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@22@l @@@@@@@@@@@@@@@@@@@@@ 3-4MOWDFRFCACCCEBROWNG@OADF F(LOGIC iQLPDESCi.LPFLTRF LPINTRF-LRGNUMFBUMARKOWF@MEDIC j@EgG/Pg?:?:h`<@D# @@ogB? y yx 3-4MOWDFRFCACCCEBROWNG@82 @M 83 @W 84 @a 85 p$8#?`'A   p&…`)…ƅ&M(((#(  8BFLE @ 8TEST (-ЇЭe--0  3-4MOWDFRFCACCCEBROWNG@0g/7/0 p/7/&g O$.?/S.oOwwoq7 _r?_s/Ggwg@g!go7$g#g7gχg"$;t}#,0UV^_k* 8?@HIST1-`@CACCCEBROWNG@ @ @ LIBRARY? ILLEGAL INPUT MAG TAPE SELECT CODE? SYSTEM IDENTIFICATION? DISC OR DRUM MODIFICATIONS? BEGIN WITH 'DISC' OR 'DRUM' BAD DELIMITER DRUM 0 MUST BE IN 14 DISC 0 1I 9-10MOWDFRIAICIEMATTSG@ BAD TRACK # INVALID BLOCK NUMBER LOCKED BLOCKS TABLE FULL DONE TAPE BAD FIRST TAPE TOO SHORT MOUNT REEL NUMBER . PRESS RUN CHANGE MAG TAPE TO AUTO WRITE NOT ENABLED INSUFFICIENT DRUM SPACE; r DESECRATED VERIFY? TAPE ERRO1I 9-10MOWDFRIAICIEMATTSG@gco wŸ.gpogr|gpgo|, wgQwgwgywp?oO]-o羟}-wwgwgOhOi gPg ǾoOk}-}g-?g-dGos-gGVosgGUWy-gwJgwKoUBgwJgwKoSBgcGw-g-WY-gosghowGwgGiwO-Hg2I 11-12MOWDFRKAKCKEMATTS@fFh/"GW/+ /,Gj/+`GcoS/,oNxW8.w8xo|.#89geo ,# BJK?J?K/CHp4NY@ #(V44 4 4 b@MU0020k"D $"BT& TS */((($02I 11-12MOWDFRKAKCKEMATTS@?-gBn@N>g5?n@=wfwwwwgWwgMGF -] C-\Oo!N?WN-aG-Ogo''V V.FwNoMO-}??gwGN_N-O?-rgWwgNwG -F-Fwwg -OO3I 1-2MOTHFRFAAADAESHAFER`444 ( 200k$'+ ry8  k@FTB tL $#K#J#B*/ y*( ,DELN#02)20a PT^'X'X'Y'Z'['\']'^'_'`'a'b'c'd'e'f'g'h'i'j'k'l'm'n'o'p'q'r's't'u'v'w'x'y'z'{'|'}'~'''''''''''''''''''''''''3I 1-2MOTHFRFAAADAESHAFER`(-t-эeV {V{-^ukfek<E12))));)@)9)ff-_nfk-Obv-D=-Df>-Ynk-Yabv=-S<v<fҬb =-_-O Fx Fv Q=k}k f=v-_vRh׭f}-Yf-Qf --YFwvf4I 4-5MOWDFRFDADCDEMARK@ WHS AC BTLHO TS RAPID ROYAL BOCES TURACO  EPA "ERICK` #JUNKt $CGSB %HPRREG, MEDICA,FRANK94I 4-5MOWDFRFDADCDEMARK@@CROUT1CSHFLOCURFIT URRICAILY ATE BDAYREP#DE-10R']DE-20R) DECIDE+_ 4-5MOWDFRFDADCDEMARK@D .IN/OUTINACNT\INSTMTINTGRT&LENDERLESSEELESSORLINFIT-LINPRO0LNREG1 4-5MOWDFRFDADCDEMARK@ROMINTROOTEROSTERCHOOLSIMEQNSLOT SLSMN ESMBIL2SNOOPYSPHERE%SQR(Z) 4-5MOWDFRFDADCDEMARK@@ & ALPHA  0 CHR @ 1 COSTPL EU DAA @ F DI @ G G @ Q GAME  [ GEORGE `U IRENE  ar LIST  b 4-5MOWDFRFDADCDEMARK@ ADDATA ! KEN  # BASE71 +h CSHFLO / DAA @ 1 FINAL  6 LIS  8 PRINT  9 RNFL @ > ROGER  HW SC @ECO1`@DADCDEMARK@WOK %WOK1 %WOK2 %FIE03@%MDTA @MEDIC MES1 @MES2 @,CORSE@ ,LIFE  ,MACRO 1C 10-11MOWDFRJAJCJEHARRIS`@Q(8 LOADERjy8 M @jz(8 ME @j(8 MOEL @j@8 MODELIj 8 MODELOj 8 QL @j (8 SAVER j48 SC @j;(8 SE @jc(1C 10-11MOWDFRJAJCJEHARRIS`@ FIE1 @ @ FIE2 @ @ GYR6 'i@ MR**1@m-@ TIME 5v@ TONES56@AJTST ;@BINGO >@CRTTST?$@PARES B@ROUL3D2C 11-12MOTUFRKAKBKEMARTINS@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@22@l @@@@@@@@@@@@@@@@@@@@@2C 11-12MOTUFRKAKBKEMARTINS@OADF F(LOGIC iQLPDESCi.LPFLTRF LPINTRF-LRGNUMFBUMARKOWF@MEDIC j@EgG/Pg?:?:h`<@D# @@ogB? y yx3C 3-4MOWDFRFCACCCEHARRIS`82 @M 83 @W 84 @a 85 p$8#?`'A   p&…`)…ƅ&M(((#(  8BFLE @ 8TEST (-ЇЭe--0 3C 3-4MOWDFRFCACCCEHARRIS`0g/7/0 p/7/&g O$.?/S.oOwwoq7 _r?_s/Ggwg@g!go7$g#g7gχg"$;t}#,0UV^_k* 8?@4C 4-5TUWDFRFDBDCDEGOLD@ @ @ LIBRARY? ILLEGAL INPUT MAG TAPE SELECT CODE? SYSTEM IDENTIFICATION? DISC OR DRUM MODIFICATIONS? BEGIN WITH 'DISC' OR 'DRUM' BAD DELIMITER DRUM 0 MUST BE IN 14 DISC 0 4C 4-5TUWDFRFDBDCDEGOLD@ BAD TRACK # INVALID BLOCK NUMBER LOCKED BLOCKS TABLE FULL DONE TAPE BAD FIRST TAPE TOO SHORT MOUNT REEL NUMBER . PRESS RUN CHANGE MAG TAPE TO AUTO WRITE NOT ENABLED INSUFFICIENT DRUM SPACE; r DESECRATED VERIFY? TAPE ERRO 4-5TUWDFRFDBDCDEGOLD@gco wŸ.gpogr|gpgo|, wgQwgwgywp?oO]-o羟}-wwgwgOhOi gPg ǾoOk}-}g-?g-dGos-gGVosgGUWy-gwJgwKoUBgwJgwKoSBgcGw-g-WY-gosghowGwgGiwO-Hg 4-5TUWDFRFDBDCDEGOLD@fFh/"GW/+ /,Gj/+`GcoS/,oNxW8.w8xo|.#89geo ,# BJK?J?K/CHp4NY@ #(V44 4 4 b@MU0020k"D $"BT& TS */((($0 4-5TUWDFRFDBDCDEGOLD@?-gBn@N>g5?n@=wfwwwwgWwgMGF -] C-\Oo!N?WN-aG-Ogo''V V.FwNoMO-}??gwGN_N-O?-rgWwgNwG -F-Fwwg -OO 4-5TUWDFRFDBDCDEGOLD@444 ( 200k$'+ ry8  k@FTB tL $#K#J#B*/ y*( ,DELN#02)20a PT^'X'X'Y'Z'['\']'^'_'`'a'b'c'd'e'f'g'h'i'j'k'l'm'n'o'p'q'r's't'u'v'w'x'y'z'{'|'}'~'''''''''''''''''''''''''BIO1@@DBDCDEGOLD@(-t-эeV {V{-^ukfek<E12))));)@)9)ff-_nfk-Obv-D=-Df>-Ynk-Yabv=-S<v<fҬb =-_-O Fx Fv Q=k}k f=v-_vRh׭f}-Yf-Qf --YFwvf1I9-1TUIBJBKBBCSINNSD@ WHS AC BTLHO TS RAPID ROYAL BOCES TURACO  EPA "ERICK` #JUNKt $CGSB %HPRREG, MEDICA,FRANK91I9-1TUIBJBKBBCSINNSD@@CROUT1CSHFLOCURFIT URRICAILY ATE BDAYREP#DE-10R']DE-20R) DECIDE+_2I9-1THIDJDKDDCMARRINS`D .IN/OUTINACNT\INSTMTINTGRT&LENDERLESSEELESSORLINFIT-LINPRO0LNREG12I9-1THIDJDKDDCMARRINS`ROMINTROOTEROSTERCHOOLSIMEQNSLOT SLSMN ESMBIL2SNOOPYSPHERE%SQR(Z)3I1-5THADBDCDDDKOPP@@ & ALPHA  0 CHR @ 1 COSTPL EU DAA @ F DI @ G G @ Q GAME  [ GEORGE `U IRENE  ar LIST  b3I1-5THADBDCDDDKOPP@ ADDATA ! KEN  # BASE71 +h CSHFLO / DAA @ 1 FINAL  6 LIS  8 PRINT  9 RNFL @ > ROGER  HW SC @4I1-5FRAEBECEDESINNS@WOK %WOK1 %WOK2 %FIE03@%MDTA @MEDIC MES1 @MES2 @,CORSE@ ,LIFE  ,MACRO 4I1-5FRAEBECEDESINNS@@Q(8 LOADERjy8 M @jz(8 ME @j(8 MOEL @j@8 MODELIj 8 MODELOj 8 QL @j (8 SAVER j48 SC @j;(8 SE @jc( 1-5FRAEBECEDESINNS@@ FIE1 @ @ FIE2 @ @ GYR6 'i@ MR**1@m-@ TIME 5v@ TONES56@AJTST ;@BINGO >@CRTTST?$@PARES B@ROUL3D 1-5FRAEBECEDESINNS@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@22@l @@@@@@@@@@@@@@@@@@@@@ 1-5FRAEBECEDESINNS@OADF F(LOGIC iQLPDESCi.LPFLTRF LPINTRF-LRGNUMFBUMARKOWF@MEDIC j@EgG/Pg?:?:h`<@D# @@ogB? y yx 1-5FRAEBECEDESINNS@82 @M 83 @W 84 @a 85 p$8#?`'A   p&…`)…ƅ&M(((#(  8BFLE @ 8TEST (-ЇЭe--0 CHEM1-@`CEDESINNS@0g/7/0 p/7/&g O$.?/S.oOwwoq7 _r?_s/Ggwg@g!go7$g#g7gχg"$;t}#,0UV^_k* 8?@1H9-1TUIBJBKBBEFIELDS@ @ @ LIBRARY? ILLEGAL INPUT MAG TAPE SELECT CODE? SYSTEM IDENTIFICATION? DISC OR DRUM MODIFICATIONS? BEGIN WITH 'DISC' OR 'DRUM' BAD DELIMITER DRUM 0 MUST BE IN 14 DISC 0 1H9-1TUIBJBKBBEFIELDS@ BAD TRACK # INVALID BLOCK NUMBER LOCKED BLOCKS TABLE FULL DONE TAPE BAD FIRST TAPE TOO SHORT MOUNT REEL NUMBER . PRESS RUN CHANGE MAG TAPE TO AUTO WRITE NOT ENABLED INSUFFICIENT DRUM SPACE; r DESECRATED VERIFY? TAPE ERRO2H9-1THIDJDKDDESOTTMAT`gco wŸ.gpogr|gpgo|, wgQwgwgywp?oO]-o羟}-wwgwgOhOi gPg ǾoOk}-}g-?g-dGos-gGVosgGUWy-gwJgwKoUBgwJgwKoSBgcGw-g-WY-gosghowGwgGiwO-Hg2H9-1THIDJDKDDESOTTMAT`fFh/"GW/+ /,Gj/+`GcoS/,oNxW8.w8xo|.#89geo ,# BJK?J?K/CHp4NY@ #(V44 4 4 b@MU0020k"D $"BT& TS */((($03H1-5WDACBCCCDCFIELDS@?-gBn@N>g5?n@=wfwwwwgWwgMGF -] C-\Oo!N?WN-aG-Ogo''V V.FwNoMO-}??gwGN_N-O?-rgWwgNwG -F-Fwwg -OO3H1-5WDACBCCCDCFIELDS@444 ( 200k$'+ ry8  k@FTB tL $#K#J#B*/ y*( ,DELN#02)20a PT^'X'X'Y'Z'['\']'^'_'`'a'b'c'd'e'f'g'h'i'j'k'l'm'n'o'p'q'r's't'u'v'w'x'y'z'{'|'}'~''''''''''''''''''''''''' 1-5WDACBCCCDCFIELDS@8RENE@SALLY@LYLER@BRUCE%@JEFF2@ NYS[@GLENNH7@TOME@ROGER @JJB @DOUGp@ kMESG&qCHRS @CHINES 1-5WDACBCCCDCFIELDS@uEXSMOO FACTOR<FILDUMFILISTDFILLISFILOADuFILREA\FLCLERFLCOPY\FLMAIN/FORMAT 1-5WDACBCCCDCFIELDS@qQMKBUY |MKSENSMNCHG1MON2 jMORGAGOMTD4 vMULREGEW NEWID PHICOE{ 1-5WDACBCCCDCFIELDS@TESTTYgTITLE dTMFCEVkTRUINTn*WDS01 qDS02 {DS03 MDS04 WDS05 DS07 ]DS35  1-5WDACBCCCDCFIELDS@ 1=1 ~ 2=1 q 3=1 ~ 4=1 ~ 5=1 ~ ASSIN1 / GETOU1 GETOU2 GETOU3 P GETOU4 H GETOU5 1-5WDACBCCCDCFIELDS@ , "AVERE " "OIPS  p "ULTY  + #JTEST | #WAMPS n %OTB  APP #mAVAIL #pCLASS #rCLEAR #u_PHY1@@BCCCDCFIELDS@8XX @ ,8AS @ -8FG @ .8A @j /28AAA j a8TEST j b8TEST j c\8 ARCO  t8 LETTER uZ8 N!  v8 ROOT 1H9-1MOIAJAKAACKINGSS@M 83 @W 84 @a 85 @k 86 @u 87 @ 88 @ 8BFLE @ 8TEST L8LLSA 8SA 8WU004 1H9-1MOIAJAKAACKINGSS@gS@SCCSRTm@SOT @USPLOTr@ACCOUNt@ANME @@DOUG1 @JORNL@2@PRBAL@@TEPOR@2@F1  2H9-1TUIBJBKBBCELDERS@$WjPpX e z-[з@@@@EN#3 X 644? 4VY ~IK  < )S0YLsܾšBڅ1\bp&={$8p8qFx"Z: t2!2H9-1TUIBJBKBBCELDERS@,d{lZLXeeNT,4dlYWiduNduYdu]dugd{d}ly}Cely}BelZed|wgwld ??,B`xk< dz^ljcxP<,JNYk@n MU0ak $ ATB&[    /^'0$̅M dlrW`p`,p3H9-1THIDJDKDDCKINGSS@.o O '. woo. ?.'oOG.oOoOgW.wo.G ?.@.gGGwgGwgwowG.^.^go .OgW.S???.Qgwoo ??.mweGwgww???6 w` 0wgG'hDO 3H9-1THIDJDKDDCKINGSS@D4H1-5THADBDCDDDTOMMES@ DIRECTORY TRACKS PER DISC? NUMBER OF ID TRACKS? DISC NUMBER NOT LABELED FOR TSB DO YOU WANT IT LABELED? (NOW LABELED FOR DOS) DISC OPERATING SYSTEM PRESENT? LOADER NOT CONFIGURED FOR TSB, END OF TAPE CHECKSUM ERROR DATE? ILLEGAL DATE T4H1-5THADBDCDDDTOMMES@pg|w`~,d0www`w`w`w. 1got9gwox9gogogo9vBgvCCp fCGZ|C9fCG\>B,G"DoOxoqg~|pvBop~CCxg~o|`o9>C`DFEvE >D>B,eGw8gvBgvCfB.fCwJgpwKoSB4"Dn,vFg,m,p 1-5THADBDCDDDTOMMES@|gG[w???.gTwguwgvwgw?p.;o}.8O.;go|?????.(-/o1g@d.]gwgwo G??.Pgo.Ggwgwo ??.egog`o.}WM.WL.gdo.rI .gogwgwo ??.G 1-5THADBDCDDDTOMMES@,wg#w$,.'wo5OO?,)gGW",g/wQLgo01,wF,G ,߀wfw 1,WK,F,G,o O H?,KOo4 ,o ,oN,to_3,tN,`  V , Q @o6'o5,O?,go,,;1,WG,gFfw 1-5THADBDCDDDTOMMES@G. Ow.hV .(VG.Vg oOo;O'VOVOg.g '`G ''G:G Fwhg!.gwFwG=.bgo!.V?g:GhGvFvOg>g?n@gGw.gWN.Gww?. wgǵo_.oOH .g.oOH@ 1-5THADBDCDDDTOMMES@<{D(((~(-(4(2(z(xtv<<fҬf,/f,.nb,>f,Im,:>,:nb,%f,Zm>,D,%t,Wf,I>,I>,>,%>,>f>,Z,%fx fv ~ ^/.4(()(()(((()))!(((((()))))))COURSE(v*((()))**,))()(.(*)$(**+**)`)"  !?@AEHz*>Vs1H9-11TUTHIBJBIDJDJACKSP8RENE@SALLY@LYLER@BRUCE%@JEFF2@ NYS[@GLENNH7@TOME@ROGER @JJB @DOUGp@ kMESG&qCHRS @CHINES1H9-11TUTHIBJBIDJDJACKSPuEXSMOO FACTOR<FILDUMFILISTDFILLISFILOADuFILREA\FLCLERFLCOPY\FLMAIN/FORMAT2H9-11MOWDIAJAICJC HARDFIELDPqQMKBUY |MKSENSMNCHG1MON2 jMORGAGOMTD4 vMULREGEW NEWID PHICOE{2H9-11MOWDIAJAICJC HARDFIELDPTESTTYgTITLE dTMFCEVkTRUINTn*WDS01 qDS02 {DS03 MDS04 WDS05 DS07 ]DS35 3H2-4THFRDBDCDBECEJACKSIP 1=1 ~ 2=1 q 3=1 ~ 4=1 ~ 5=1 ~ ASSIN1 / GETOU1 GETOU2 GETOU3 P GETOU4 H GETOU53H2-4THFRDBDCDBECEJACKSIP , "AVERE " "OIPS  p "ULTY  + #JTEST | #WAMPS n %OTB  APP #mAVAIL #pCLASS #rCLEAR #u_4H1-3MOTUDAABAABBBHALLP8XX @ ,8AS @ -8FG @ .8A @j /28AAA j a8TEST j b8TEST j c\8 ARCO  t8 LETTER uZ8 N!  v8 ROOT 4H1-3MOTUDAABAABBBHALLPM 83 @W 84 @a 85 @k 86 @u 87 @ 88 @ 8BFLE @ 8TEST L8LLSA 8SA 8WU004  1-3MOTUDAABAABBBHALLPgS@SCCSRTm@SOT @USPLOTr@ACCOUNt@ANME @@DOUG1 @JORNL@2@PRBAL@@TEPOR@2@F1   1-3MOTUDAABAABBBHALLP$WjPpX e z-[з@@@@EN#3 X 644? 4VY ~IK  < )S0YLsܾšBڅ1\bp&={$8p8qFx"Z: t2! 1-3MOTUDAABAABBBHALLP,d{lZLXeeNT,4dlYWiduNduYdu]dugd{d}ly}Cely}BelZed|wgwld ??,B`xk< dz^ljcxP<,JNYk@n MU0ak $ ATB&[    /^'0$̅M dlrW`p`,p 1-3MOTUDAABAABBBHALLP.o O '. woo. ?.'oOG.oOoOgW.wo.G ?.@.gGGwgGwgwowG.^.^go .OgW.S???.Qgwoo ??.mweGwgww???6 w` 0wgG'hDO  1-3MOTUDAABAABBBHALLPD 1-3MOTUDAABAABBBHALLP DIRECTORY TRACKS PER DISC? NUMBER OF ID TRACKS? DISC NUMBER NOT LABELED FOR TSB DO YOU WANT IT LABELED? (NOW LABELED FOR DOS) DISC OPERATING SYSTEM PRESENT? LOADER NOT CONFIGURED FOR TSB, END OF TAPE CHECKSUM ERROR DATE? ILLEGAL DATE T 1-3MOTUDAABAABBBHALLPpg|w`~,d0www`w`w`w. 1got9gwox9gogogo9vBgvCCp fCGZ|C9fCG\>B,G"DoOxoqg~|pvBop~CCxg~o|`o9>C`DFEvE >D>B,eGw8gvBgvCfB.fCwJgpwKoSB4"Dn,vFg,m,p 1-3MOTUDAABAABBBHALLP|gG[w???.gTwguwgvwgw?p.;o}.8O.;go|?????.(-/o1g@d.]gwgwo G??.Pgo.Ggwgwo ??.egog`o.}WM.WL.gdo.rI .gogwgwo ??.G 1-3MOTUDAABAABBBHALLP,wg#w$,.'wo5OO?,)gGW",g/wQLgo01,wF,G ,߀wfw 1,WK,F,G,o O H?,KOo4 ,o ,oN,to_3,tN,`  V , Q @o6'o5,O?,go,,;1,WG,gFfw 1-3MOTUDAABAABBBHALLPG. Ow.hV .(VG.Vg oOo;O'VOVOg.g '`G ''G:G Fwhg!.gwFwG=.bgo!.V?g:GhGvFvOg>g?n@gGw.gWN.Gww?. wgǵo_.oOH .g.oOH@ 1-3MOTUDAABAABBBHALLP<{D(((~(-(4(2(z(xtv<<fҬf,/f,.nb,>f,Im,:>,:nb,%f,Zm>,D,%t,Wf,I>,I>,>,%>,>f>,Z,%fx fv ~ ^/.4(()(()(((()))!(((((()))))))COURSE(v*((()))**,))()(.(*)$(**+**)`)"  !?@AEHz*>Vs 1-3MOTUDAABAABBBHALLP8RENE@SALLY@LYLER@BRUCE%@JEFF2@ NYS[@GLENNH7@TOME@ROGER @JJB @DOUGp@ kMESG&qCHRS @CHINES 1-3MOTUDAABAABBBHALLPuEXSMOO FACTOR<FILDUMFILISTDFILLISFILOADuFILREA\FLCLERFLCOPY\FLMAIN/FORMAT 1-3MOTUDAABAABBBHALLPqQMKBUY |MKSENSMNCHG1MON2 jMORGAGOMTD4 vMULREGEW NEWID PHICOE{ 1-3MOTUDAABAABBBHALLPTESTTYgTITLE dTMFCEVkTRUINTn*WDS01 qDS02 {DS03 MDS04 WDS05 DS07 ]DS35  1-3MOTUDAABAABBBHALLP 1=1 ~ 2=1 q 3=1 ~ 4=1 ~ 5=1 ~ ASSIN1 / GETOU1 GETOU2 GETOU3 P GETOU4 H GETOU5 1-3MOTUDAABAABBBHALLP , "AVERE " "OIPS  p "ULTY  + #JTEST | #WAMPS n %OTB  APP #mAVAIL #pCLASS #rCLEAR #u_ 1-3MOTUDAABAABBBHALLP8XX @ ,8AS @ -8FG @ .8A @j /28AAA j a8TEST j b8TEST j c\8 ARCO  t8 LETTER uZ8 N!  v8 ROOT  1-3MOTUDAABAABBBHALLPM 83 @W 84 @a 85 @k 86 @u 87 @ 88 @ 8BFLE @ 8TEST L8LLSA 8SA 8WU004  1-3MOTUDAABAABBBHALLPgS@SCCSRTm@SOT @USPLOTr@ACCOUNt@ANME @@DOUG1 @JORNL@2@PRBAL@@TEPOR@2@F1   1-3MOTUDAABAABBBHALLP$WjPpX e z-[з@@@@EN#3 X 644? 4VY ~IK  < )S0YLsܾšBڅ1\bp&={$8p8qFx"Z: t2! 1-3MOTUDAABAABBBHALLP,d{lZLXeeNT,4dlYWiduNduYdu]dugd{d}ly}Cely}BelZed|wgwld ??,B`xk< dz^ljcxP<,JNYk@n MU0ak $ ATB&[    /^'0$̅M dlrW`p`,p 1-3MOTUDAABAABBBHALLP.o O '. woo. ?.'oOG.oOoOgW.wo.G ?.@.gGGwgGwgwowG.^.^go .OgW.S???.Qgwoo ??.mweGwgww???6 w` 0wgG'hDO  1-3MOTUDAABAABBBHALLPD 1-3MOTUDAABAABBBHALLP DIRECTORY TRACKS PER DISC? NUMBER OF ID TRACKS? DISC NUMBER NOT LABELED FOR TSB DO YOU WANT IT LABELED? (NOW LABELED FOR DOS) DISC OPERATING SYSTEM PRESENT? LOADER NOT CONFIGURED FOR TSB, END OF TAPE CHECKSUM ERROR DATE? ILLEGAL DATE T 1-3MOTUDAABAABBBHALLPpg|w`~,d0www`w`w`w. 1got9gwox9gogogo9vBgvCCp fCGZ|C9fCG\>B,G"DoOxoqg~|pvBop~CCxg~o|`o9>C`DFEvE >D>B,eGw8gvBgvCfB.fCwJgpwKoSB4"Dn,vFg,m,p 1-3MOTUDAABAABBBHALLP|gG[w???.gTwguwgvwgw?p.;o}.8O.;go|?????.(-/o1g@d.]gwgwo G??.Pgo.Ggwgwo ??.egog`o.}WM.WL.gdo.rI .gogwgwo ??.G 1-3MOTUDAABAABBBHALLP,wg#w$,.'wo5OO?,)gGW",g/wQLgo01,wF,G ,߀wfw 1,WK,F,G,o O H?,KOo4 ,o ,oN,to_3,tN,`  V , Q @o6'o5,O?,go,,;1,WG,gFfw 1-3MOTUDAABAABBBHALLPG. Ow.hV .(VG.Vg oOo;O'VOVOg.g '`G ''G:G Fwhg!.gwFwG=.bgo!.V?g:GhGvFvOg>g?n@gGw.gWN.Gww?. wgǵo_.oOH .g.oOH@EQUIL2 N #R **** HP TIME-SHARED BASIC PROGRAM LIBRARY *******************RR EQUIL2: EQUILIBRIUM SYSTEMS(R2R 36308 (A833) REV A -- 10/71<RF#R **** CONTRIBUTED PROGRAM ************************************P R EQUIL2 - COPYRIGHT 1971, POLYTECHNIC INSTITUTE OF BROOKLYNZR EQUILIBRIUM SYSTEM, JOHN MARCHISOTTO dR REVISED 8/20/70 (D. PESSEL)nNAQaqxLFLVLfj4THIS PROGRAM WILL INVESTIGATE THE EQUILIBRIUM SYSTEMjj PCL5 = PCL3 + CL2jj WHAT IS THE EQUILIBRIUM CONSTANTfVj.THE EQUILIBRIUM CONSTANT MUST BE NON-NEGATIVE.j)WHAT IS THE INITIAL CONCENTRATION OF PCL5fV" j7THE INITIAL CONCENTRATION OF PCL5 MUST BE NON-NEGATIVE."j,j5WOULD YOU LIKE THE RESULTS PLOTTED (1), TABULATED (2)6j)OR BOTH (3) (TYPE THE APPROPRIATE NUMBER)@gJW@Tj^jh!j INIT. CL2 EQUIL. PCL3 EQUIL. CL2 EQUIL. PCL5r!j ---------- ----------- ---------- -----------|!j INIT. PCL5 INIT. PCL5 INIT. PCL5 INIT. PCL5jL$& Y@@ M@LA$!$!$$!@$$@ LQ A La@"AW@ kAQaVA,FLFAVQ,VLVQVa,fLfa[&W@0j:j*****DjNj(WOULD YOU LIKE ANOTHER RUN (1-YES, 0-NO)XgbWlbvR PLOTTING ROUTINE FOR THREE CURVESjjj.A: (EQUIL. PCL3)/(INIT. PCL5) MAXIMUM IS Fj.B: (EQUIL. CL2)/(INIT. PCL5) MAXIMUM IS Vj.C: (EQUIL. PCL5)/(INIT. PCL5) MAXIMUM IS fjj INIT. CL2t  A - B - C j6---------- 0 25 50 75 100 j % OF MAXIMUMj6INIT. PCL5 I---------I---------I---------I---------I Y@@  P@hIMq@P $A&F@Mq@P $Q&V@ Mq`P $a&f@R FIND WHICH IS SMALLEST, THEN PRINT IT AND MAXIMIZE IT  Y@`*LVv4 X@`>Wq*RHLqRZ\ hf X@`p֏q"hیzZbV@jAV@jBV`jCMqB,[j [jj:$` FAFIL ~NJffHVff Q HPffLnffTB]I33H s33 dTQJffU33X` s33[33 nff Vff Ti s33Qbffx nff @x L H JffY. l SQ _R W X T q{ Wff O{ W o e EB u ^ w K Ku nff M Z# P ZG m Eq RG \W T eG `) j. Qff S = [33 H F{ a B[33~[33 LTJffVffBa33MBnffEEWr`Qs33QEC33 | JffL KQ \ffs3333O33dbffVffH d O33K BqIb Quh N =@j[Hfk O3LQBnG.SGQ\)YR\R{OBul\ z H0 I\HuD\G:| H#IQ| A{AGb h K yY [ff Q ]Uff Zff Q H33 Fff ZffD C P|C 33M|eN J33 Rff]Tff k33SPITNWT| YHWOVb EOQ~ t Q@CH V @~ r p BMz ~ L r d h h r fL KQ \ffs3333O33dbffVffH d O33K BqIb Quh N =@j[Hfk O3LQBnSEP SEPSEP]SEPSEP,SEP3SEPSEPSEP SEP SEP SEP SEP SEP SEPSEPSEPSEP5SEPSEPSEPRSEPSEPSEPSEPSEPSEPSEP SEPSEPSEPSEPFALLON )$R REGRESSION PACKAGE TO ACCOMPANY THE FALLON CASER PROGRAMMED BY PIET VANDEN ABEELE 8/28/73R CASE2: 36841A, 2/74 (FALLON, PART 3 OF 8) p$FALFIL0N &B&&BR&&.Nbr! b&2&r&*Nє1 "”& F< h@T =N0FFd*TOT ADVMAL ADVTOT SALMAL SALCHANGE %TV HOMPjDO YOU WANT INSTRUCTIONSZf d V 0YESxnxj4THIS PROGRAM CONTAINS THE DATA APPEARING IN THE CASEy j8YOU CAN BUILD UP TO 4 VARIABLES OF YOUR OWN BY COMBININGzj2UP TO THREE VARIABLES FROM THE CASE INTO A NEW ONE{j*THE FOLLOWING STEPS SHOULD BE GONE THROUGH|!j9 1 AFTER THESE INSTRUCTIONS THE PROGRAM WILL TERMINATE}#j= 2 SPECIFY THE FUNCTIONAL EXPRESSION OF YOUR NEW VARIABLES~"j; (D) AS A FUNCTION OF THE ARGUMENTS A,B AND C IN LINES"j; 1410,1420,1430 AND 1440. WHEN RUNNING THE PROGRAM YOU"j< WILL BE ASKED TO GIVE A NAME TO D AND TO SPECIFY WHICHj VARIABLES A,B AND C ARE.jEXAMPLEj-------j( YOU WANT TO CREATE TWO NEW VARIABLESj) TOTAL SALES - TOTAL ADVERTISINGj ANDj, TOTAL SALES * % CHANGE /% TV HOMESj" THE APPROPRIATE STATEMENTS AREj 1410 D=A-Bj 1420 D=A*B/C'j#DO YOU WANT TO CREATE NEW VARIABLESf  V 0YESv  jHOW MANYf nL `  X@`$ X@L . h@8ZBZLVVjAVAILABLE VARIABLES ARE` X@`aj#@p@pbZ~X@|!j INPUT THE NAME OF YOUR VARIABLE#` (7 CHARACTERS)f` @p@` pV@2j.INPUT THE #'S CORRESPONDING TO A, B AND C FOR P p@` pj$ (INPUT 0 IF YOU DON'T USE ONE)jA---#fjB---#fjC---#f X@L VvV v$V(v4(TR v` DR v` DR v` DR v` DZZv` j)THE FOLLOWING VARIABLES ARE NOW AVAILABLEX@|j#@p@pZj2DO YOU WANT LINEAR REGRESSION (0) OR LOG-LINEAR(1)fj3HOW MANY INDEPENDENT VARIABLES(EXCLUDING INTERCEPT)fvL  o@ oB@ o@ nB@@*o@@4 nR@> n@H nb@@R nr@@\j)INPUT THE # OF YOUR INDEPENDENT VARIABLESfX@|p j#--?zf{*v0@p@p@p@pZX@| M@@X@|V@w@ Vj$CANNOT TAKE LOG OF NEGATIVE QUANTITY "w@Z Z j!WHICH IS YOUR DEPENDENT VARIABLE? $f .X@| 8V@ L B w@ G t L V T M Tw@ tZ ~j"DO YOU WANT THE CORRELATION MATRIX f  J oC nCC% oC ncC% ns$c n$s nS" LKL LN X@| LKK R@@ Z  LLK&"@ LM (X@| 2 LMM!@@ < LNN!@ FZ P LMM"N@& ZM'@"K&M dj nj x'jF********************************************************************** j "jVARIABLE COEFFICIENTB=VALUES-ERRORT-VALUE !j-------- -------------------------------- j -j r@@L%@@r@@L%@@ X@| vL%@@ 1j 0@p@pr@@@r@@& Z H' "INTCEPT",10X,3D.3D,21X,3D.3D,8X,3D.3D H'7A,10X,3D.3D,6X,3D.3D,8X,3D.3D,8X,3D.2D j j j ' H "R2.................",3D.3D w(@"@#'$@&"@ j ( H "ADJUSTED R2 .......",3D.3D w)'&&@#'&"@ j "@) H' "F(",D,",",2D,")","............",3D.3D j L H"ERROR VARIANCE.....",3D.3D j (jG....................................................................... "jDO YOU WANT ANOTHER RUN ,f 6 V0YES @ Jn2 Tor ^o hnџ ro1 |X@| L M1 X@| L!@& Z M1 X@| M11 @"@& Z M11 Z X@| X@| L2@"'1 Z Z &os3 0os$3 :o" Do# NMFG X nŸ@ bX@| l MFF!@ vMGG @@ Z MGG"F@&& MFF& ob@ X@| Mb@@#F'G Z ns%c n⟿@ n#$ V 0YES  j j jCORRELATION MATRIX X@| j +0@p@p *Z +H#,7A,8X 4j >X@| HX@| R M& \Z fZ pj znk j  `'`FILE  N&#R **** HP BASIC PROGRAM LIBRARY *******************************RR FILE: COLLEGE REGISTRATION DEMORR 36282 REV A PART 2 OF 10 6/73R#R **** CONTRIBUTED PROGRAM ************************************ pSTUDNT,COURSE"N  @` p 0N(N2NP< NAQFv7P w0123456789101112Z v` MOTUWDTHFRdvĞn X@PxvQ vĠ@Z v ABCDEFGHIJKjTITLE fw#WjDUPLICATE COURSE NAMEjSECTION ADDITION (Y OR N) fV0YBw # jCREDITS "f6, j SECTIONS 6g6@W6`^JjONLY 6 SECTIONS ALLOWEDT,^h@h j@66`rw@|Y4@}6 X@PjZ j SECTION # fP j START TIME g7 jLENGTH f j TIMES/WEEK fX@|jDAY fAZ j INSTRUCTOR &f@0jQUOTA :gDW@bNjONLY 8 STUDENTS ALLOWEDX0bw>7lW7PvW7PW7`w7`w7pw87@w87vp078vpp@-w9> W9`w99`W9PHW9P4 W9`*w9` 4*w9p4w89@>RHw89Rvpp@098\X@|fvpp@`QAQA@pZzX@|w:>X@|v@::v@AAw:> ZZj@j@Pp@7`w@vV0Y[4jDONE?gW.NO.$.b8`B h@66LW6`jVjNO MORE SECTIONS CAN BE ADDED`bjw76@t j@67`~ j SECTION # fPww@X@}6h@V.PjDUPLICATE SECTION # w~w@Z#(R GET STUDENT OR COURSE FILE. #FOp  #G V`@#N#Hw@#I Y@@ #Jh@p#KWp1#P#Lw@#M[#Nw#O^#Ph@#Uw#V^# V`@##w@# Y@H#h@p#Wp1##wh#[#w#^#h@#w#^#`pFSEND  T p V`@LĞ NP(M$@2F< Y@@FV@0XXdP[Z2d@nnh@xL@jYW2h@LĠjYX2jYY$bjYZM$$@h@$2`pGBRKR  )0Y"R **** HP BASIC PROGRAM LIBRARY ******************************RR GSPMG: STANFORD PORTFOLIO MANAGEMENT GAME#R GBRKR, PART 1 OF 7 (ENTERS TRANSACTIONS & OBTAINS REPORTS) R 36502 REV AR"R **** CONTRIBUTED PROGRAM *********************************** R -- CODE FOR READING AND WRITING FILE ACCTS vX3MLB/wABCDEFGHIJKLMNOPQRSTUVWXYZ  OpHH(NДHH)N`2p*SPRDIV,*<v`ACCTSFD`@.d j TEAM NUMBERefn jPASSWORDogxh@@$@yh@pWp1,j"INCORRECT PASSWORD. ACCESS DENIED.b,R ---------------------- R - READ SECURITY DATA6OAAq@ h@@E h@XWVUJh@TX@|Yh@AAq^ZR --------------------- R - READ ACCOUNT DATAR -- TIME OF LAST UPDATE h@HGFE R - LAST CASH VALUEh@>R - HOLDINGSNX@| h@ZR ------------------------R -- CONVERT SYMBOL IN A$ TO NUMBER IN A9v@  v@@v X@@ XĞ@l  V1& Z"vĞl & vx  0Z:^XR ------------------------YR -- CONVERT SYMBOL IN A9 TO A$bv&x `d v"x `$fv&x @h v"$x @j vx lv"x qv vv@@xv@@zv``|v@@^ R -------------R - ALL SET FOR PROCESSING"j:DO YOU WANT TO ENTER A TRANSACTION, GET A REPORT, OR QUITgW@@0QBW@@0RR -- ENTER A TRANSACTION R -- GET A REPORT BR -- QUITDR-----------L R -- WRITE ON FILEVh@@$@Wj@Xj@`@@Zj@>\X@|b j@dZjb R ---------------R -- ENTER AND PROCESS TRANSACTIONR -- CALCULATE CURRENT TOTALS 4jSTOCK6f8>X@|@WA0RBZHj"TICKER SYMBOL NOT ON ELIGIBLE LISTJjL^RR -- SECURITY IS NUMBER I9T j BUY OR SELLV fД@@\ jNUMBER OF SHARES^f`VД@@0BfbvfR -- GET CURRENT HOLDINGhvk R -- GET CURRENT PRICElwpR -- GET CURRENT MARGINq Vn!mur v>!n#m&n!mszuvޞ@z R -- GET BROKERS FEE|R -- DETERMINE VALUES AFTERWARDS R -- NEW CASH POSITION v=>"."% R -- NEW HOLDINGSv wlnwkmVwll"% wkk"%Vwll % wkk %R -- V7 IS NEW LONG POSITION; V6 IS SHORTR -- COMPUTE NEW MARGIN Vl!k v=!l#k&l!kvݞ@VުY4ݾYVY4*VުY4ݬYVY4@j(SORRY -- THIS WOULD LOWER YOUR MARGIN TO jREQUEST DENIED^j,SORRY -- YOUR ACCOUNT IS RESTRICTED AND THISj#TRANSACTION WOULD LOWER YOUR MARGIN jREQUEST DENIED^ R -- TRANSACTION OK jBROKERAGE FEE IS . jO.K. fД@@ VД@@0Y `  jREQUEST CANCELLED ^ ` R -- POST TO ACCOUNT jv l v>>"%". t j CONFIRMED. vj ^ R ------------------ R -- PRINT A REPORT OF THE ACCOUNT /PxPORTFOLIO STATUS REPORT p /`   jHOLDINGS f@@ j V@@0Y H ^ R ------------ R -- SUBROUTINE TO CALCULATE TOTALS R -- POST INTEREST AND DIVIDENDS wn wm &X@| 0 V N 2 V b 4 R -- NO HOLDINGS 6 N R -- SHORT POSITION P wmm% R b R -- LONG POSITION d wnn % Z ^ R -------------------- R -- SUBROUTINE TO PRINT TOTALS  j > H& "CASH ON HAND: ",10D.2D j n H% "LONG POSITION AT MARKET: ",10D.2D j m H% "SHORT POSITION AT MARKET: ",10D.2D j >!n#m H% "NET WORTH: ",10D.2D  Vn!m j >!n#m&n!m H" "CURRENT MARGIN: ",13D.3D /` ^ H0jSTOCK?@SHARES?P L/S ?P PRICE ?P I j TOTAL VALUE R0j-----?@------?P-----?P ----- ?P S j ----------- X@| V vA X w V wLONG  wSHORT RARK j $ H" 4A,5X,6D,10X,5A,5X,4D.3D,5X,8D.2DZt/@^R ---------R -- CALCULATE B9 AS BROKERAGE FOR N9 SHARES AT P9R -- N9 POSITIVE IS PURCHASE, NEGATIVE IS SALER -- NYSE COMMISSIONS, APRIL 1972v^>v=>v>w w.dvd%.W.R -- CALCULATE ROUND-LOT COMMISSIONSvL%W.@VLd v>fff Q$LVLN  v>` j~$L v>X I^$LR -- MULTIPLE ROUND LOTSVLN  v>` j~$LVLN  v>X I^$LVLu0 v>R bM$L v>G A7$L!R -- CHECK TO MAKE SURE LIMIT OF 65 PER ROUND LOT NOT EXCEEDED V>,A%.v>A%.V6R -- CALCULATE ODD-LOT COMMISSIONSvL%VLd v=fff Q$LVLN  v=` j~$L v=X I^$L R -- SUBTRACT $ 2v==@ R -- ADD DIFFERENTIALWn , v== N@$ 6, v== @$6 R -- SET TOTAL CHARGE7v.= >@v>^^^ R -------------R -- CALCULATE INTEREST, DIVIDENDS AND TIMESR -- CALCULATE OLD TIME IN DAYS wJHG[@!G F`  E&` x R -- CALCULATE NEW TIME IN DAYS4wK`G[@@ @`  &` x R -- DETERMINE INTERVAL IN YEARS wLK#J[@ R -- POST INTERESTv>>#mozH%LR -- POST ANY DIVIDENDS NOT ALREADY POSTEDX@|WJ+q R -- POST v>> $AZ R -- UPDATE TIMES( wH`* wG@, wF@. wE2^pR-- CONVERT AND PRINT DATEz O`$a w`$JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC&| p | x | x | | x | x | wN X@`iaZV`@`@fff wa@t  X@`wNN!a @ANZwNN#a$v``$@`$. v@#N3@ `v4 @`B8j9@9 H DD,":",DD," A.M.":^BjC@`C H DD,":",DD," P.M."D^'`NGENE1  N,!R **** HP BASIC PROGRAM LIBRARY ***************************RR GENE1: GENETICS SIMULATIONRR 36642 REV B 10/73R!R **** CONTRIBUTED PROGRAM ********************************dR GENE1 - A SIMPLE GENETICS PROGRAM nR COPYRIGHT 1971, POLYTECHNIC INSTITUTE OF BROOKLYNxR A$,B$ - FEMALE PARENT'S GENES R Z$,Y$ - MALE PARENT'S GENES R G$,H$ - CHILD'R INHERITED GENES ; P$ - CHILD'S PHENOTYPER D$,R$ - DOMINANT AND RECESSIVE GENES, RESPECTIVELYR T$ - DETAILED REPORT FLAG R S1:TOTAL NUMBER OF CHILDREN WITH PURE DOMINANT GENESR S2:TOTAL NUMBER OF CHILDREN WITH PURE RECESSIVE GENES R S3:TOTAL NUMBER OF CHILDREN WITH DOMINANT PHENOTYPE R (I.E. PURE DOMINANTS PLUS HYBRIDS) R DEVELOPED AND PROGRAMMED BY L. BRAUN, MAY 1971R LATEST REVISION: 5-25-71R CONVERT FOLLOWING TWO LINES TO DIMENSIONS IF NECESSARYN   @     Np   @ R CHANGE NEXT LINE TO INCREASE UPPER LIMIT ON REPORTING M$dMR INPUT DOMINANT AND RECESSIVE TRAITS "j&WHAT ARE THE TWO TRAITS TO BE STUDIED?, jDOMINANT TRAIT6f@@ jRECESSIVE TRAITJg TV@1 "^jhj******rj|R INPUT THE GENOTYPES OF BOTH PARENTS jGENOTYPE OF FEMALE PARENTf V0@V1 j4FEMALE GENOTYPE INCLUDES INCORRECT TRAIT. RE-ENTER.V 0@V = jjGENOTYPE OF MALE PARENTgW0@W1 j2MALE GENOTYPE INCLUDES INCORRECT TRAIT. RE-ENTER.W0@D&W= 0 R IF BOTH PARENTS ARE PURE GENOTYPES, DO NOT RUN THE RANDOM :R EXPERIMENTS, BUT INDICATE RESULTS AS A SPECIAL CASE.DjNV< XW=b!j:BECAUSE THE PARENTS ARE PURE GENOTYPES, ALL OFFSPRING ARE lV1vj@- , THAT IS, HYBRID.<V1 j@-@, THAT IS, PURE DOMINANT.<k - , THAT IS, PURE RECESSIVE.<jj'HOW MANY OFFSPRING DO YOU WANT TO STUDYfj R LET Q=RND(-1) R CHANGE HERE FOR DIFFERENT NUMBER OF REPORTED CASES V-$@4 M@NOj&RATIOS ONLY WILL BE TYPED, BECAUSE OF  jTHE LARGE NUMBER OF OFFSPRING.*4jDETAILED REPORT (YES OR NO)>g@HW@0NOR W@<YES4\jfjpjzj OFFSPRING NO.------GENOTYPE------ PHENOTYPEj GENE 1GENE 2j1=================================================M6M7M8X@|R SELECT RANDOMLY WHICH GENE CHILD WILL INHERIT M&W&@LpLp R SELECT RANDOMLY WHICH GENE CHILD WILL INHERIT M'W'@.L$8.L8Vp0@tBV0@L"R IF BOTH INHERITED GENES ARE RECESSIVE, ADD 1 TO NO. RECESSIVESVM `M77@jtV<@~!R IF BOTH INHERITED GENES DOMINANT,ADD 1 TO NO. PURE DOMINANTSM66@M@"R IF EITHER INHERITED GENE DOMINANT,ADD 1 TO DOMINANT PHENOTYPESM88@W@0NOjpZj j ************jW6 jGENOTYPE RATIO 0 :#6#7'7: 1 jGENOTYPE RATIO 1 :#6#7'6:7'6V+82jPHENOTYPE RATIO 1 : 0(<2jPHENOTYPE RATIO 8&#8: 1<jF j ############PjZjWANT ANOTHER RUN (YES OR NO)dg@n W@0YES^xW@<NOZ`GMARKS "R **** HP BASIC PROGRAM LIBRARY ******************************RR GMARKS: GSB GRADING PROGRAMRR 36518 REV A, PART 1 OF 2R"R **** CONTRIBUTED PROGRAM *********************************** pGRADESOq!,pNa(N@(2hp<vUPHFniPniZ V`@d d H P+P P-U n`@33x@@33 h@@ncj6GSB GRADING PROGRAM. PLEASE ANSWER ALL QUESTIONS Y FORj3YES, N FOR NO. ALWAYS USE A CARRIAGE RETURN AFTER $j?ENTERING DATA. USE ESC KEY FOR ERROR. DO YOU WANT INSTRUCTIONS?fV0N,!j9THE PROGRAM ACCEPTS THE NUMBER OF GRADES FOR THE STUDENTSj6AND WEIGHTS TO BE MULTIPLIED BY EACH GRADE. THEN EACH!j9STUDENT NUMBER IS ENTERED IN ORDER FOLLOWED BY HIS GRADES j7ON EACH ASSIGNMENT (EITHER NUMERICAL OR LETTER GRADES).!j:IF LETTER GRADES ARE USED, H IS A +1 AND U A -1. A STUDENTj2NUMBER OF 999 ENDS THE INPUT. THE GRADES ARE SAVEDj5AND THE PROGRAM CAN READ THEM FROM A PRIOR ENTRY RUN.j5A DISTRIBUTION IS PRINTED AND GRADES MAY BE SCALED BYj.ADDING A CONSTANT OR ENTERING NEW BREAKPOINTS."j,j$HOW MANY GRADES ARE THERE (20 MAX).?6f@VP ^JjMAXIMUM OF 20 GRADES PLEASE.T,^j(WHAT ARE THE RAW WEIGHTS FOR EACH GRADE?hR*****INPUT THE WEIGHTS FOR EACH GRADErngq|v4X@|v44!qZR*****CALCULATE WEIGHTSjNORMALIZED WEIGHTS ARE:X@| Mqq&4kqZjv@wj)DO YOU WANT TO READ OLD GRADES FROM DISK?fV0N0w@& h@@0vƞ:WlDjARE YOU ENTERING LETTER GRADES?NfXV0Nlbvƞ@lwvjDO YOU WANT TO SEE EACH GRADE?fV0Nw@W$j?ENTER EACH STUDENT NO. FOLLOWED BY CR. NO=999 FOR LAST STUDENT.#j=ENTER GRADES ON NEXT LINE SEPARATED BY COMMAS, FOLLOWED BY CRV$j?FOR MISSING GRADE, ENTER 9,GRADE IGNORED & WEIGHTS RECALCULATED$j?FOR MISSING GRADE, ENTER Z,GRADE IGNORED & WEIGHTS RECALCULATEDvTVC  g4W4| V14>*jERROR IN STUDENT NUMBERS:44 >VBHR*****LETTER GRADES ENTEREDRvT\gfkvTT@pTTzz$jERROR IN GRADES @ ON END OF @ REENTER STNRjNOT ENOUGH GRADES,REENTER STNR R*****NUMBER GRADESngR*****WRITE GRADES ON DISKX@| j@Z R*****CALCULATE GRADES-FIGURE NEW WEIGHTS FOR MISSING GRADESX@| WH6BZvt$X@|. vtt!q%8ZBvttQVw!t`ReVCtj jSTNttv@~ R*****PRINT FREQUENCYv@j@`j(GRADE NO % CUM% %LETTERwDwd X@PwTa&d@wDD!Twdd!T v@@Mt`` V@6`jp@aTDd wd(jp@aTD(Z2 j7IF YOU WANT TO SCALE GRADES, ENTER SCALING FACTOR. FOR<!j9NEW BREAKPOINTS ENTER 9, TO STOP ENTER 99. SCALING BEGINSFjAT ORIGINAL GRADES EACH TIME.PfZVc dVHnjENTER NEW BREAKPOINTS.x X@P wD@@ jpDD@gZv X@PvaZjDO YOU WANT TO SEE EACH GRADE?fX@|vt! R V0N jSTNtZ",R*****SUBROUTINE TO CALCULATE NEW WEIGHTS6wq@X@|J WH^Twq!^Zhvtrw@#|X@| WH vtt!q'%Z^R*****SUBROUTINE TO CONVERT LETTER GRADESrvԞv@vĞR*****LOOK THRU INPUT FOR COMMASX@|V<v@v: W<, v@&v@0R*****LETTER GRADE LOCATED:vԠ@Dw@NwD@XR*****LOOK FOR GRADE OF ONE LETTER]WD@bW@<ZlwHv  YD@` W@<DD wD@ [D4R*****LOOK FOR GRADE OF TWO LETTERSWD@4 YD@P@W@@@^HR*****SUBROUTINE TO CONVERT TO LETTER GRADESR Vt?PXTvĞ@VX XĞ@P\Vt+fZpjPROGRAM ERROR FINDING GRADESzb wDĤ@@ vpDD@ vaa@^R*****SUBROUTINE TO READ FROM DISKX@| h@ZjX@|kZj ^ jBREAKPOINTS USED FOR GRADING:  X@P $ wD@@ . jpDD@ 8Z B L L`r,GPAC ( )?K@$ *1@ BJ0qd RoCj GRADE PACKAGE &R$ D  8$B%&L X@|1@VWB@0@` MBpjX@|$tMBpBp!B%q~ZMBpBp$dZr$GPACC$R$pCLSFIL$R$ h@@$ h@@$ $ nh@3$h@@$ Y@`$Y@|$ h@B$[$[$ h@@$^%R%&Ld%'V԰@%:%(Y@|$%)Mq%* Ldd!B%q%+[%0Vd%5%1Ldd&d%5^%7R%:Y@|$%;Mq%< WB%?%= Mq'B%>Ldd!%?[%A%0&HR&MNє Д$ &PR&R(Lє@є`єPєpє@єPє`| &SLє@є`єHєXx &T Lє@t &WL$JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC&Y M 0123456789&\R&] M`&^W@@&a&_ Lє@p &a M@&f Y@`&gW@&p&hM"&k[&nR&p MP&qW&t&rL@@@&s&u&t L@ &uM#P&vL@@@&w L` &xL@Д`%@`%&y Lp &z MP&{L@@@&|M#P&}LH@@&^'`,GPACC ( NK@$ *1@ BJ0qd R R GPAC-COMMANDR j COMMAND  f0@`j@V0@`0CHEJV0@`0HEL^TV0@`0HIS^V0@`0LIShV0@`0MOD&rV0@`0OUT:|V0@`0SORNV0@`0STAbV0@`0STOvV0@`0UPDjILLEGAL COMMAND: 0r$GPACSj HISTOGRAM SECTIONr$GPACHr$GPACL&j MODIFICATION SECTION0r$GPACM:r$GPACON j  SORT SECTIONXr$GPACTbj STAT SORT SECTIONlr$GPACZv j  GPAC EXITbr$GPACU@R^j GPAC CONTROL COMMANDShjrj3CHECK: PRINT OUT CLASS PARAMETERS AND OTHER CLASS| j INFORMATION.j*HELP: OBTAIN A LISTING OF ALL COMMANDS.j1HISTO: MAKE A TTY HISTOGRAM OF ANY USEABLE BIN  j OR THE SCORE.j-LIST: LIST THE STUDENT'S RAW TOTAL BY S.N.j1MODIFY: CHANGE THE USEABLE BINS AND OTHER CLASS  j PARAMETERS.j2OUT: OBTAIN A SHORT INDIVIDUAL SUMMARY GIVING  jTHE RAW TOTALSj1 AND THE TOTAL POSSIBLE FOR EACH STUDENT.j3SORT: SORT AND LIST IN DECREASING ORDER ALL RAW  j TOTALS AND j5 THE SCORE, THE KEY FOR THE SORT MAY BE ANY  j USEABLE BIN.!j7STAT: COMPUTES THE Z-SCORE AND SORTS FOR ANY USEABLE  j BIN OR THE  j SCORE. j*STOP: PERFORMS A NORMAL EXIT FROM GPAC. j5UPDATE: ALLOWS ENTERING OF NEW DATA INTO THE ARRAYS.! j!*'`GPACH ( 5K@$ *1@ BJ0qd pR%V@j jr$GPACCjENTER: MIN, MAX, INC fTj -  HISTOGRAM@j `@X  `$P`$j INTERVAL NUM #LLƞXYT| ~LLt"$ X@|1@)WB@0@L.W-B6t?BL8L@LZQMtV&`j - jMt&yM~& T +VL X@|j*ZjLƠ@[ T #j TOTALxM&jjVƪBVưB  X@A"j Z j- (R#j3I++++I++++I++++I++++I++++I++++I++++I++++I++++I++++I#^%R%N%R%j% j KEY % f@`%j% V0HELP %%X@|$%V0 `$P`$%%Z%Lp% V0SCORE %%L@% V0RETURN%% j INVALID KEY,% jPOSSIBLE KEYS ARE:%j HELP%%% Y@@"$%j %[%jSCORE % Y@@"$%j %[%jRETURN%j%%%R%^%R%M%Y@|$% Y@@"$%j &[&j `%P`%&[& ^&R&O &R& M@&M&M@&&&R&MP@P&M@&M& M 0123456789&M@&WP&&M@&Wd&&M`&W}&&M@& Y@`!!#&j &[&Y@~@&MP)& M'@&k&M#%!&[&W&&j.&MP@@&k&^'`GPACI ( )C]K@$ *1@ BJ0qd Rj GPAC-INITIALIZATIONLFLR`oCj X@`oMtX@|~ MB@ZZL $ Rj ENTER CLASS TITLE g@j* ENTER NUMBER OF BINS DESIRED, (MAX OF 6) f$L$$j V$4$pjINPUT ERROR, B = $j,FOR EACH BIN ENTER HEADING, (MAX OF 6 CHAR).jX@|$ jBIN  f `$P`$ Z L J SCORE j/ MODE OPTIONS: CONSTANT WEIGHTS (M = 1),j CONSTANT PROP. FACTORS (M = 2).j ENTER MODE: M = (f2LԞ7j<TZdFjINPUT ERROR, M = PZjENTER CONSTANT WEIGHTS_xdjENTER PROPORTIONALITY FACTORSxj}X@|$j `$P`$ gZRj ENTER: MINIMUM STUDENT NUMBER fL1@@jENTER: LARGEST STUDENT NUMBER fL1@"1@j"V1@41@,@,#jLARGEST CLASS SIZE ALLOWED IS @ YOU HAVE 1@6@ L1`1@RX@|$ X@|1@ MBZ MBZR&R&L@0j:$Xr$GPACS$R$pCLSFIL$R$ h@@$ j@@$ $ nj@3$j@@$ Y@`$Y@|$ j@B$[$[$ h@@$^&HR&MNє Д$ &NR&R(Lє@є`єPєpє@єPє`| &SLє@є`єHєXx &T Lє@t &WL$JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC&Y M 0123456789&\R&] M`&^W@@&a&_ Lє@p &a M@&f Y@`&gW@&p&hM"&k[&nR&p MPF&qW&t&rL@@@&s&u&t L@ &uM#P&vL@@@&w L` &xL@Д`%@`%&y Lp &z MP&{L@@@&|M#P&}LH@@&^'`F GPACL ( NK@$ *1@ BJ0qd LRQ NASRT#PA"$&1`&1`@URV j - @ @ j S.N. %j X@p LAZLLĞ` X@|1@WB@0@x j 1@X@|$MB L! LAA!%&Z MBp Lpp!LApAp!%&jLĠ@L@VĬp 61`,@x j - @ CONT j S.N. %jLĞ`xZ j POSSIBLEX@|$MB&Zj jAVERAGEX@|$ M&1`&Z Mp&1`&j j DEVIATIONX@|$M&Z Mp&j X@| "j Zj-r$GPACC%R%M@%Y@|$% Y@@"$%j &[&j `%P`%&[&W& & Y@@"$&j &[&jSCORE& ^&R&O &R& M@&M&&&R&MP@P&M@&M@&W&&M& M 0123456789&M@&WP&&M@&Wd&&M`&W}&&M@& Y@p"$!!#&j &[&W&&j-&Y@~@&MP)& M'@&k&M#%!&[&W&&j.&MP@@&k&^'` GPACM ( K@$ *1@ BJ0qd Rj j MOD OPTION  f@`jV@`0ADD,V@`0DELV@`0HELV@`0PAR:V@`0RET. jINVALID OPTIONjjADD: ACTIVATE A STUDENT jDELETE: INACTIVATE A STUDENTj$HELP: OBTAIN A LISTING OF OPTIONSj$PARAM: MODIFY THE CLASS PARAMETERSjRETURN: RETURN TO COMMANDj"'R,jENTER S.N. TO BE ADDED 1f6j; L"1@@ V4,OE&jOUT OF RANGE, MIN = 1@@MAX = 1@ @GjI = JOWB@0@^TjSTUDENT ALREADY ACTIVEY^X@|$c MBhZmL1`1`@r V@1@|wL1@|jSTUDENT NUMBER IS ACTIVATEDRjENTER S.N. TO BE DELETED f L"1@V4@1@'jOUT OF RANGE, MIN = 1@@MAX = 1@ 1@jI = WB@*@jSTUDENT IS NONEXISTANTX@|$ MB@ZL1`1`@ V,1@X1@@~@WB@*@L1@1@@ZjSTUDENT NUMBER  IS DELETED0R:r$GPACN$R.L@0$8jBr$GPACC$R$pCLSFIL$R$ h@@$ j@@$ $ nj@3$j@@$ Y@`$Y@|$ j@B$[$[$ h@@$^'`GPACN ( )HK@$ *1@ BJ0qd RO0 M0 L: j ITEM D f0@`IjNV0@`0FACSV0@`0HELXV0@`0KIL]V0@`0MODbV0@`0NAM>gV0@`0NEWflV0@`0RETnV0@`0SWIqV0@`0TITvjWHAT? jFACTOR: WEIGHTS OR P. FACTORSjHELP: LIST OF ITEMSjKILL: REMOVE A BINjMODE: CHANGE MODEjNAME: CHANGE BIN NAMESjNEW: ADD A NEW BINjRETURN: RETURN TO COMMANDjSWITCH: EXCHANGE TWO BINSjTITLE: CHANGE TITLEj: jPRESENT TITLE: @ jNEW TITLE: g@:jPRESENT MODE: CONSTANT V԰@ jWEIGHTS, M = 1jPROP. FACTORS, M = 2 j NEW MODE: M = fV0: LԞjj BIN OLD F NEW F  X@|$%j `$P`$PL *g/Z4j9:> jOLD BIN NEW HX@|$Mj  `$P`$`Rf `$P`$WZ\ja:fV$`zk jALL 6 BINS IN USEp:zL$$@ j BIN TITLE: f `$$P`$$V԰@ jWEIGHT:  j P. FACTOR: g$ X@|1@WB@0@ MB$Z MB$:V$@ jONLY 1 BIN IN USE:L@%L$j#1%V`:Lj#2% V`60: X@|1@MB MBBMB Z MB MBBMBL0@` `$P`$L `$P`$ `$P`$L `$P`$0@`MMM:R$ WBe.j NON-ZER0 CONTENTS, DISPOSITION??8L=%B V@60:EVp`G X@|1@LWB@0@VQMBB!BVZ[MBB!B`LeV0$~gX|$@jL@m X@|1@o MBBrZt MBBwL `$P`$ `$P`$yM{Z~ X@|1@ MB$@Z MB$@L `$$P`$$0@M$L$$@:L@$%& X@|1@WB@0@ MBpX@|$MBpBp!B%qZMBpBp$dZr$GPACS$R$pCLSFIL$R$ h@@$ j@@$ $ nj@3$j@@$ Y@`$Y@|$ j@B$[$[$ h@@$^%R%&Ld%'V԰@%:%(Y@|$%)Mq%* Ldd!B%q%+[%0Vd%5%1Ldd&d%5^%7R%:Y@|$%;Mq%< WB%?%= Mq'B%>Ldd!%?[%A%0%R%N%R% j BIN % f@`%j% V0HELP %%X@|$%V0 `$P`$%%Z%V%%Lp% V0DUMP %%L@% V0RETURN%%j????%%%V%%k0$%jDUMP %k0$%jRETURN%j%%%R%^%R% j BINS ARE:%j HELP%Y@|$%k0$&j `%P`%&[& ^'`GPACO ( N*K@$ *1@ BJ0qd XRb j  OUT SECTIONej) ENTER SMALLEST AND LARGEST S.N. DESIRED gf^v j - X@:"1@|1@9^"1@WB@0@.P@Z @ STUDENT  1@ j D %jV԰@  jWEIGHTS  j P FACTORS X@|$*M4&>ZHjR jSTUDENT TOTALS\X@|$fMBp&zZ MBp&j jPOSSIBLEX@|$MB&Zj j - .Z8j END OUT SECTIONBr$GPACC%R%M@%Y@|$% Y@@"$%j &[&j `%P`%&[&W& & Y@@"$&j &[&jSCORE& ^&R&O &R& M@&M&&&R&MP@P&M@&M@&W&&M& M 0123456789&M@&WP&&M@&Wd&&M`&W}&&M@& Y@p"$!!#&j &[&W&&j-&Y@~@&MP)& M'@&k&M#%!&[&W&&j.&MP@@&k&^'`GPACS ( K@$ *1@ BJ0qd  R j- GPAC STATUS CHECK j H  j TITLE: @$j NUMBER OF BINS IN USE: $8 j HEADINGS: B%LjVj`V԰@~j j WEIGHTS: t~ j P FACTORS: X@|$M&Zj j POSSIBLE: X@|$MB&Zjj STUDENT NUMBER BASE: 1@jLARGEST STUDENT NUMBER: 1@ 1@jNUMBER OF STUDENTS IN CLASS: 1`V1@01` j INACTIVE S.N.: X@|1@WB@.@ j 1@Zjj DATE FILES LAST UPDATED: @j (r$GPACC%R%M%Y@|$% Y@@"$%j &[&j `%P`%&[& ^&R&O &R& M@& M 0123456789&M@&WP&&M@&Wd&&M`&W}&&M@& Y@p"$#&j &[&Y@~@&MP)& M'@&k&M#%!&[&^'`GPACT ( )P<K@$ *1@ BJ0qd RNAQR#PA"$&1`&1`@RnS%V@r$GPACCRj - @d @j pS.N. % LX $p"$Vp Ld $$h"$ ---- j(n2nCFLPLĞpZ X@|1@dWB@0@eM@g X@|1@hWB@0@niWBA6Q@njMBlLnZpL@q j 1@xX@|$MB L! LAA!%&Z MBp Lpp!LApAp!%&jLQ@LĠ@VĬr 61`,@j - @ CONT^j pS.N. h%rj|LĞ`~LĞpZj jPOSSIBLEX@|$MB&Zj jAVERAGEX@|$ M&1`&Z Mp&1`&&j0 j DEVIATION:X@|$DMN&XZb Mpl&qjv X@| "j Zj-%R%N%R%j% j KEY % f@`%j% V0HELP %%X@|$%V0 `$P`$%%Z%Lp% V0SCORE %%L@% V0RETURN%% j INVALID KEY,% jPOSSIBLE KEYS ARE:%j HELP%%% Y@@"$%j %[%jSCORE % Y@@"$%j %[%jRETURN%j%%%R%^%R%M%%%R%M@%Y@|$% Y@@"$%j &[&j `%P`%&[&W& & Y@@"$&j &[&jSCORE& ^&R&O & M@&M&&&MP@P&M@& M 0123456789&M@&WP&&M@&Wd&&M`&W}&&M@& Y@p"$!#&j &[&Y@~@&MP)& M'@&k&M#%!&[&W&&j.&MP@@&k&^'`GPACU ( NK@$ *1@ BJ0qd R j UPD OPTION  f@`jV@`0HEL4V@`0INCf V@`0RET V@`0SIN jINVALID*4j HELP: OBTAIN LIST OF OPTIONS.9jINCRE: INCREMENT BY S.N.CjRETURN: RETURN TO COMMANDH j5SINGLE: ALLOW SINGLE ITEM UPDATE, S.N. = -1 RETURN, J jS.N. = 0 TOTAL.MjRf%k Vp6@pj S.N.  `$P`$zj X@|1@WB@0@j 1@@g MBB! WB MBB#jSTUDENT TOTAL < 0, RE-ENTERZ jTOTAL g MBB!jf j ENTER: S.N. fLV V@1@ L"1@V>%V`LWB@0@jX@|$MB & Z j V@  j ENTER DATUM  g  MBB! WB $ ! MBB# "jSTUDENT TOTAL < 0, RE-ENTER #  $L@ ) R L@ $ %& X@|1@ WB@0@ MBp X@|$ MBpBp!B%q Z MBpBp$d Z r$GPACC$R$pCLSFIL$R$ h@@$ j@@$ $ nj@3$j@@$ Y@`$Y@|$ j@B$[$[$ h@@$^%R%&Ld%'V԰@%:%(Y@|$%)Mq%* Ldd!B%q%+[%0Vd%5%1Ldd&d%5^%7R%:Y@|$%;Mq%< WB%?%= Mq'B%>Ldd!%?[%A%0%R%N%R%j% j KEY % f@`%j% V0HELP %%X@|$%V0 `$P`$%%Z%Lp% V0SCORE %%L@% V0RETURN%% j INVALID KEY,% jPOSSIBLE KEYS ARE:%j HELP%%% Y@@"$%j %[%jSCORE % Y@@"$%j %[%jRETURN%j%%%^%R%M%Y@|$% Y@@"$%j &[&j `%P`%&[& ^&R&O &R& M@& M 0123456789&M@&WP&&M@&Wd&&M`&W}&&M@& Y@p"$#&j &[&Y@~@&MP)& M'@&k&M#%!&[&^'`GPACZ ( K@$ *1@ BJ0qd RNQpRLpFDCBAj j STAT OPTION  f@`L~jV@`0HELV@`0RET"V@`0SCA$V@`0STAVjINVALIDjjHELP: LIST OF OPTIONS jRETURN: RETURN TO COMMANDj3SCALE: T-SCORES WITH INPUT FOR BASE AND SCALINGjSTANDARD: Z-SCORES "r$GPACC#R$%'V@)jBASE AND SCALE FACTOR .fN8Ln@9jDO YOU WISH GRADES :f0;V0@@0N=L~@>jLOWER LIMITS FOR D,C,B,A ?g@`@P@ M@J}DA M`J}DBVLn`LN@j%tV@RnSj - @d @j$`S.N.P  `$P`$ Vn( j T-SCORE V~ jGRADE  j B,S: N2(jZ-SCORE2LD7j< X@|1@>WB@0@C@L!BA LDD!B%BCZF L&1`HLDD"$$1`&1`@PLĞ`Z X@|1@dWB@0@eM@g X@|1@hWB@0@niWBA6Q@njMBlLnZpL@q j 1@MBVp&& M B"&D$N&V~ Y@PW?5-@[ j pjLQ@LĠ@VĬp 61`,@j - @ CONT^'j `S.N.P  `$P`$ jVnokjT-SCOREmrojZ-SCORErj|LĞ`Zj jPOSSIBLEMdVpMB&&j jAVERAGEM&&j0 j DEVIATION:MDl&qjv X@| "j Zj-%R%N%R%j% j KEY % f@`%j% V0HELP %%X@|$%V0 `$P`$%%Z%Lp% V0SCORE %%L@% V0RETURN%% j INVALID KEY,% jPOSSIBLE KEYS ARE:%j HELP%%% Y@@"$%j %[%jSCORE % Y@@"$%j %[%jRETURN%j%%%^%R%Y@|$% Y@@"$%j &[&j `%P`%&[& ^&R&O & M@&M&&&MP@P&M@&M@&W&&M& M 0123456789&M@&WP&&M@&Wd&&M`&W}&&M@& Y@P!!#&j &[&W&&j-&Y@~@&MP)& M'@&k&M#%!&[&W&&j.&MP@@&k&^'`8GPMS1  )Up"R **** HP BASIC PROGRAM LIBRARY ******************************RR GSPMG: STANFORD PORTFOLIO MANAGEMENT GAMER GPMS1, PART 3 OF 7 (BUILDS FILE SPRDIV) R 36502 REV AR"R **** CONTRIBUTED PROGRAM ***********************************(wABCDEFGHIJKLMNOPQRSTUVWXYZ 2N adpSPRDIVj)NUMBER OF SECURITIES ON THE ELIGIBLE LISTf jTICKER SYMBOLS --,X@|6j8f@JXTj^jOKhfrV@@0N6|waZ h@@j@`@@j@X@|j@aZbR ------------------------R -- CONVERT SYMBOL IN A$ TO NUMBER IN A9v@  v@@v X@@ XĞ@l  V1& Z"vĞl & vx  0Z:^XR ------------------------YR -- CONVERT SYMBOL IN A9 TO A$bv&x `d v"x `$fv&x @h v"$x @j vx lv"x qv vv@@xv@@zv``|v@@^'`8GPMS2  N"R **** HP BASIC PROGRAM LIBRARY ******************************RR GSPMG: STANFORD PORTFOLIO MANAGEMENT GAMER GPMS2, PART 4 OF 7 (OPENS TEAM ACCOUNTS) R 36502 REV AR"R **** CONTRIBUTED PROGRAM ***********************************R %R -- PROGRAM TO SET UP INITIAL ACCOUNTS FOR PORTFOLIO MANAGEMNT SYSTEM R -- CODE FOR READING AND WRITING FILE ACCTS vX3MLB/(NH2 N`Дdp*,*SPRDIVv`ACCTS,D`@.^W.hj1THIS PROGRAM CANNOT BE USED UNTIL YOU HAVE OPENEDijA FILE NAMED 'ACCTS'.jj DO SO, THEN RE-RUN THIS PROGRAM.rb h@@ h@wDjDONEfV@@0YwDD@jTEAM D -- PASSWORDfh@@%D@j@`@@ j@a"X@| j@Zj`BGPMS3  "R **** HP BASIC PROGRAM LIBRARY ******************************RR GSPMG: STANFORD PORTFOLIO MANAGEMENT GAME!R GPMS3, PART 5 OF 7 (UPDATES DIVIDENDS ON FILE SPRDIV) R 36502 REV AR"R **** CONTRIBUTED PROGRAM ***********************************(wABCDEFGHIJKLMNOPQRSTUVWXYZ 2N a<OAAAOqdpSPRDIV R ----------------- R -- READ DATA h@HGFEh@X@|h@AAqZ6 jSYMBOL OR 'DONE'@fA V0DONEBDX@|EWA0JFZG j NOT THEREH6J j@IVIDENDKfAL6wq`G[@@ @`  &` x T6R ------------------------R -- CONVERT SYMBOL IN A$ TO NUMBER IN A9v@  v@@v X@@ XĞ@l  V1& Z"vĞl & vx  0Z:^XR ------------------------YR -- CONVERT SYMBOL IN A9 TO A$bv&x `d v"x `$fv&x @h v"$x @j vx lv"x qv vv@@xv@@zv``|v@@^ R -- WRITE ON FILE h@@j@`@@j@X@|j@AAqZ'`BGPMS4  )X"R **** HP BASIC PROGRAM LIBRARY ******************************RR GSPMG: STANFORD PORTFOLIO MANAGEMENT GAME"R GPMS4, PART 6 OF 7 (UPDATES SHARE PRICES IN FILE SPRDIV) R 36502 REV AR"R **** CONTRIBUTED PROGRAM ***********************************N  (wABCDEFGHIJKLMNOPQRSTUVWXYZ 2N a<OAAAOqdpSPRDIV R ----------------- R -- READ DATA h@HGFEh@X@|h@AAqZ/@"TICKER SYMBOL (OR 'ALL' OR 'DONE')f V0DONE0 V0ALL,X@|WA0Z j NOT THERE j OLD PRICEk j NEW PRICEg, R ------------------- R -- GET NEW VALUES6X@|@vABXJjOjPRICEPg]j^Z0 R --------------------1 R -- WRITE ON FILE: h@@;j@`@@<j@>X@|@j@AAqBZNbXR ------------------------YR -- CONVERT SYMBOL IN A9 TO A$bv&x `d v"x `$fv&x @h v"$x @j vx lv"x qv vv@@xv@@zv``|v@@^R ------------------------R -- CONVERT SYMBOL IN A$ TO NUMBER IN A9v@  v@@v X@@ XĞ@l  V1ZvĞl  vx  Z^'`~GPMS5  N"R **** HP BASIC PROGRAM LIBRARY ******************************RR GSPMG: STANFORD PORTFOLIO MANAGEMENT GAME"R GPMS5, PART 7 OF 7 (OBTAINS SUMMARY OF TEAM'S HOLDINGS) R 36502 REV AR"R **** CONTRIBUTED PROGRAM ***********************************2p*SPRDIV,*7wABCDEFGHIJKLMNOPQRSTUVWXYZ < N`Д=v`ACCTSF j CODE FOR FILEGfHD`@.dOHAn N1 h@HGFEh@X@| h@AZ jNUMBER OF TEAMSgNX@| v1ZX@}Nh@@$@ h@X@|h@VV w11 v ZZ, R -- PRINT RESULTS-/@.jSECURITY LONG SHORT0j-------- ---- -----6X@|8vA:X;V51J< j@1@ H 2X,4A,7D,7DJZ^bR ------------------------R -- CONVERT SYMBOL IN A$ TO NUMBER IN A9v@  v@@v X@@ XĞ@l  V1& Z"vĞl & vx  0Z:^XR ------------------------YR -- CONVERT SYMBOL IN A9 TO A$bv&x `d v"x `$fv&x @h v"$x @j vx lv"x qv vv@@xv@@zv``|v@@^'`~GQUOTE %"R **** HP BASIC PROGRAM LIBRARY ******************************RR GSPMG: STANFORD PORTFOLIO MANAGEMENT GAME R GQUOTE, PART 2 OF 7 (OBTAINS QUOTATION FROM SECURITYR PRICES ON FILE SPRDIV) R 36502 REV A"R **** CONTRIBUTED PROGRAM ***********************************2p*SPRDIVdO AnwABCDEFGHIJKLMNOPQRSTUVWXYZ h@HGFEh@X@|h@AZj0WHEN ASKED, TYPE TICKER SYMBOL, 'ALL' OR 'DONE'.,jSYMBOL6f@ V0DONEA V0ALLJ^X@|cWA0rhZmj"TICKER SYMBOL NOT ON ELIGIBLE LISTnjo,rjss H "PRICE: ",8D.3D|j~,R ------------------------R -- CONVERT SYMBOL IN A$ TO NUMBER IN A9v@  v@@v X@@ XĞ@l  V1& Z"vĞl & vx  0Z:^XR ------------------------YR -- CONVERT SYMBOL IN A9 TO A$bv&x `d v"x `$fv&x @h v"$x @j vx lv"x qv vv@@xv@@zv``|v@@^jX@|vAX jH 4A,9D.3DZb`GRAD  )\F#R **** HP BASIC PROGRAM LIBRARY *******************************RR GRAD: COLLEGE REGISTRATION DEMORR 36282 REV A PART 8 OF 10 6/73R#R **** CONTRIBUTED PROGRAM ************************************ pSTUDNT,COURSE,WORK1,WORK2N N  0@ Д#NP@P$N(N - N` 2jENTER COURSE TITLE<gF jENTER SECTION#PfPZjMID-TERM OR FINAL (M OR F)dg`n#xWjCOURSE NON EXISTANTb h@w@VX@|h@V0Pw@ZjSECTION NON EXISTANTb h@ VXĞ@| h@@P#(W,jSTUDENT NOT IN FILE"b, h@ 06jENTER MARK FOR 0  @f@Jw@Th@YV^X@|h h@rV1| j@`ZjCOURSE NOT IN STUDENT FILEbvW`0Fv@w@@v@wP@ j@` j`@P`X@|" h@ j@`Z h@@&h@0 j@`:X@|D h@N j@`XZbZl h`@vh@{j@ `X@| h`@P j@@P`Zb`#(R GET STUDENT OR COURSE FILE. #FOp  #G V`@#N#Hw@#I Y@@ #Jh@p#KWp1#P#Lw@#M[#Nw#O^#Ph@#Uw#V^# V`@##w@# Y@H#h@p#Wp1##wh#[#w#^#h@#w#^#`"GROOT  N R**GROOT**C.A.I.**TESTS KNOWLEDGE OF GREEK ROOTS**MAY 8,1972R VOCAB, HP 36880A, 6/74NH!HpH Hv(j/HI, I'M GLAD YOU LIKE THIS WAY OF LEARNING, TOO2jWHAT IS YOUR NAME ?<fFj5THESE GREEK ROOTS ARE FOUND IN MANY SCIENTIFIC TERMS.Pj5YOU WILL BE ASKED TO GIVE A ONE WORD MEANING FOR EACHZj5ROOT. 10 POINTS FOR EACH CORRECT ANSWER. THE COMPUTERdjWILL KEEP SCORE. GOOD LUCK, njxv `v@hl v@j XԞ@|h j ZlXĞ@|v!@ X@|Ģ@ V!0!"Z,Z6XĞ@|@ X@|!Jh TZ^lhjWHICH PREFIX MEANS rj |gpWp0!jSORRY, YOU MISSED THAT ONE, , THE RIGHT ANSWER IS, jj#VERY GOOD, YOUR ANSWER IS CORRECT, v@Z&dASTRONSTARAUTOSSELFBIOSLIFECHRONOSTIME&dDECATENDEMOSPEOPLEGEEARTHGRAPHOWRITE%dLITHOSSTONEMETRONMEASUREMONOSONEORTHOS$dRIGHTPHILOSLOVINGPHONESOUNDPOLYSMANYdSCOPOSWATCHERTELEFARTHERMAHEATdZOONANIMAL ANTHROPOSMAN#( jYOUR SCORE IS  OUT OF  CORRECT OR &d%.#2V0#F#<#P#Fj5, YOU DID THIS WITHOUT ONE MISTAKE. CONGRATULATIONS.#P`"GSPMG   "jjPERCEIVED NEED ISD%P$4!DAL)EpB ֿ-DCL))}DL'gxE ֿ-GFL''}GL&EHjPRICE BRAND PERC AS )IjPREM PERCEIVED AS'J jREG PERCEIVED AS&L ֿ-OML*~`NQOL*^pQ ֿ-TRL**dSYTL**KYjADD BUTTER PERCEIVED AS*e ֿ*D,f jTHERE IS A DEALh ֿ,ijPRICE REDUCTION IS SMALLk ֿ-4l jIT IS NOT SEENm,jPRICE REDUCTION IS LARGE ֿ+jHINESBURY REG IS DEAL ITEMW@V4@WD@ jNO EXACT MATCHVEVFVE VEhVgxjNO DEAL PURCHASE MADE,jHINESBURY REG IS PURCHASEDM66@j$OTHER REG PLUS ADD BUTTER IS ON DEALW@V4@WD@jOTHER REG IS PURCHASEDM88@WD@V4@ Vd**jADD BUTTER IS PURCHASEDM::@ jNO EXACT MATCHVEVFVEhVgxVF V(E Vg"W@ ,V0)- V0)}. V0)d/V0&0 V0*d1V0'2V0*3 V0*}4M@5W@ 6 jNO EXACT MATCH7V`8V@X;VE<V*Ep=V*H>V*d?V*gjPRICE BRAND IS PURCHASEDM99@ jPREM IS PURCHASEDM77@jREG CAKE IS PURCHASED ֿ-( jBRAND IS HINESBURY jBRAND IS OTHER REGVE VEhVgVgVEpVgVgxXVEYVFZVEh[Vg\VF ]VE ^VEp_Vg`VgaVgxM@M@M`L4@L4@MD@MD@ LD%P$4!DjCHANGE PERC NEED TO" jCONSUMER DOES NOT BUY!Q$Q$jCONSUMERS HAVE BEEN SIMULATEDjZL6`%7!8!9`%:j j BRAND SHARESj HINESBURY REG6&$jHINESBURY PREM`%6&$j OTHER REG8&$j ADD BUTTER`%:&$j PRICE BRAND9&$jTOTAL PURCHASES6!7!8!9!:R MODEL1 Pfff@ffflL@L@S33FffLYl@@fff@@L`GLS33`(HINB2  N #R HINB2 COMPUTER PROGRAM TO ACCCOMPANY HINESBURY MILLS(B) 7/23/73R PROGRAM DOES NOT SHOW TRACE FOR INDIVIDUAL CONSUMERSR ONLY FINAL BRAND SHARE FROM SIMULATIONR CASE2: HP 36841A, 2/74 (HINB2, PART 2 OF 8)w M6789: h i@@@@`@ i@`@``` h1@1@1`A@A@A` ihD4(X@|MMMW,W, L`'L@' L@'M( W-`-* W-@/+M@,2-M`.2/M@2M3W,164L4@576L4@7M8W-A;9MD@:<;MD@<R= LD%P$4!D>RAL)EpB ֿ-DCL))}DL'gxE ֿ-GFL''}GL&EHRIRJRL ֿ-OML*~`NQOL*^pQ ֿ-TRL**dSYTL**KYRe ֿ*D,fRh ֿ,iRk ֿ-4lRm,R ֿ+RW@V4@WD@RVEVFVE VEhVgxR,RM66@RW@V4@WD@RM88@WD@V4@ Vd**RM::@RVEVFVEhVgxVF VE Vg"W@ ,V0)- V0)}. V0)d/V0&0 V0*d1V0'2V0*3 V0*}4M@5W@ 6R7V`8V@X;VE<V*Ep=V*H>V*d?V*gRM99@RM77@R ֿ-(RRVE VEhVgVgVEpVgVgxXVEYVFZVEh[Vg\VF ]VE ^VEp_Vg`VgaVgxM@M@M`L4@L4@MD@MD@ LD%P$4!DR" R!Q$Q$jCONSUMERS HAVE BEEN SIMULATEDZL6`%7!8!9`%:j j BRAND SHARESj HINESBURY REG6&$jHINESBURY PREM`%7&$j OTHER REG8&$j ADD BUTTER`%:&$j PRICE BRAND9&$jTOTAL PURCHASES6!7!8!9!:R MODEL1}LS33 fffl@ LL @S33Fff S33`s33 @L@Y@YLY`G`HITRY W n LK@.D\ n ixn B@N n u0 W n LK@.D\ n ixn B@N n u0 ,hnXK-hoXLd6 0UPDTQ T 0UPDTSB 0USECNTd= 0USEPRTo@ 0VACSICKe 0VSPRT E 0W2FORMT 0WKCOMPA cADD Mi cCHK Mo cDUMY W n LK@.D\ n ixn B@N n u0 `$w,hnXK-hoXLd6 0UPDTQ T 0UPDTSB 0USECNTd= 0USEPRTo@ 0VACSICKe 0VSPRT E 0W2FORMT 0WKCOMPA cADD Mi cCHK Mo cDUMY LJC JLS,X0Y1 Z2[RENT"d3\DUCKWd W9TWX  TEL7XLOEM_ 6 "CCD1RAC2MDC3dBHC4MCC5DEC6GBC7DJKC8KEC9POC1APC2ISC3$TBC4JWC5Q?30002dB03d04)SSD5d _!HD8"BOB#MB3$TUF%DJGJADdT?AdGAHdJCRdRBPddJPK eGEM1#EfGCCAgLADRoJACKp)X HELP GOODBADSAV" 0TST1 T 0UNTDIS 0UNTSUMU2 0UPDTAQo 0UPDTG KY 0UPDTICHPASMB#Q )h K J`R HPASMB, HP 36806A, 2/74, PART 1 OF 4NH H0H( p*,ASMWRK,$ASCII2 wP@FjHP ASSEMBLER PACKAGE dj @nDxWDnjV@@.:<v LIDUSTEDJFJOEJRUPR X@ @V@`0 @Z<vdTĞ@ ,v@@.WP6`1/j*IGNORED0d1 T6@l46R--:LIST;V@AV1@@1@@.SBV1@@1`@.1xHv6`JOWD@T V`@DY h@@^ V1Phv6@rp| V.1P XĞ@|@h@ Z V1`v6Pp V.1`vNV@jh` @@ X@d  v @ j ZX|h@V@0v& ?@0j :ZDV@bNj:: Sj Xdb j****LIST END****ldv X`~@jF#,DĦP(ĦP(@PZ^R--:DUMPV`V1@@1@@.1xv6@WD@v@ V`@DR--:STOREV@V1@@1@@.Sv6@WDWD`v`V1`@1@@01vV1`@1@@05xj@ h@@ V`@(D WD /`V@@0::HV@@0:<8 j@`*vĠ@>HvĢ@M /`Rv\j LINESfdR--:EDITV`vT@V1@@1`@.1x h@@ h@@j@DWDjV@@0/V@@0:8 j@`j/BAD CONTROL STATE RE-ENTER STATEMENT ON TTY @DWDjV@@.:P $v IDRE. X@@8V@@0 `BZLjINVALID EDIT FUNCTIONV`V@41@eV@j V1@tv6@~p V.1@vfg V1`v6@p V.1`vgV@Vf@g4f> j LIMIT ERROR V`@K V`@dX|f@h@ j@`ZT(ZZ(R--/INSERT<h@F j@`KvĠ@PZR--/REPLACE AND /DELETEdXf|gnh@xZR--/END V`@h@ j@`Vd@ V`@( V`@ h@@ h@@h@ j@` jEDITING COMPLETE DASMWRK@Dd@R--:JFILEJ V1@Ov6@T^WD@cv`0hdRv6@WD@ WD4@V`v6`vd@vT`WDWD` DASMWRK@DlR--:JOBqosv`vdR--:EJOBb4R--:RUN> WH@WH j LOADR NOT RUNRdW wH@\ r$HPRUNPR--:PROGRAM V1@V1@@1@@0ASMBV1@@1@@0LOADR ` jNO SUCH PROGRAMd` j$END ASMB NPRGdD`@D h@@ V@1@@0ASMB v ?x j $END ASMB CSd v LTCAR w`@P`p v@  V1@ V $ X@P .V1@1@@0  L 8Z B L W@ N w@@ Pv@ R  VW`1p [ r$ASMBP ` WH jjL06 t jLOADR TERMINATED ~d wH@ W@ jNO PROGRAMS LOADED. wH jLOADR COMPLETE d R--FIND COMMAS n1P v@ X` V0  V., v1 v@ VH Z v1 ^ R--ASSIGN FILEv016@16@@D0dD^ j0 UNDEFINEDd j0 IS READ-ONLYd jMISSING PARAMETER j ILLEGAL DIGIT  jINVALID FORMAT( j0 IS TOO SMALL*TTd,d,jEDITED PROGRAM IS ON ASMWRK0d< jBAD CONTROL STATEAvT@FKjEND FILEP jEDITING ABORTED!ZddjASMWRK IS TOO SMALLnPx j ILLEGAL LUN jPARAMETER ILLEGALjRE-ENTER STATEMENT ON TTYTTdp R--STRING TO NUMERICz v  0123456789vX16@|16@@ X@P V0 Z^ vP @Z^8R--TAB AND DELETE TRAILING BLANKSBX@~@L V. `VZ` v@j X@`t V0 ~Z^v  v`  vp @^'`HPEXC? N J J R HPASMB, HP 36806A, 2/74, (HPEXEC, PART 2 OF 4)NH H @ @#p$ASCII% vP@((dh@   R--EXEC CALLST @2BT @`4 V @\ jRQ jOR v@ X @~@jF#,D@( @( @@Z j rHPASMBdR--READV`$V@5V` @$ @ @@@$ @@"v`'H, V@@1V@P4@@$68V9j:V@@0:7;(v@$ @$ @" @$ @@E.v@@@$ @" @$ @J v@T rHPRUNn YjIE [^R--WRITEcV`$hV@r$v@$ @$ @" @$ @|v`H V@@֯@ @V@`4@@$jv@ @ v@-jCW R--I/O CNTRLHV`JV@ VP@=V@@4@@j X @P  j @@Z  v@&-0VPH6@@4@`:#/ `$ `" `$ `D=R--PRG CMPLTV@(R--PR SUSPV@$ R--SEG & MAIN LOAD V@6p (*R--TIME4V@9V@@@:> v@@@@@Hv@@Rv@`@\$pR--I/O STATzV@6 @@v@`v  V @Py v  @v@@ $jLU  R--FILE READ/WRITEV`HV@@4@` V@@vPv`D@VjFI $. V`@8h@ `@B,v @$ @ @@@$ @Gv`I V @L V @xxVX @|` h@jv@tZ ~X @| j@v@Z v@@VX  j@Z v@ @$jIT  R--WK AREA STATV@ v@$R--WK LIMITS(V@2$P R--SRCH FILE NAMZV`dv@nv`xD@Vdv  v` v@@$ V`@Gv @ h@ @v  @s R--CHG USR DSK" V@4`,$pR--GET PARAMzV*6v v"v  @ V .@^ v  @ V 0 v  @  V @jADR OUT OF RANGE v @ v  @ V @ v   R--UNDO CNWDv@ @ @@@v @ @@ X @@v  @ @@@v @ @@Z 4vP @ @@ @ @ @@$`@$@^d R--NUM TO ASCIIivn X @|@xv@@$@v dV0vv @v@x@v@$@dv@Z ^V@y v ^v@ v ^, R--ASCII TO NUM6 X@|@@v JT v@^V0hv @r| v v@Z^v  vV  , @@v  v@ X@ @@  V  @ Zv@ X|x~@ V  0 9Zv @^'`0Tv z~!1DGxHPRU ?Q J J  vP@R HPASMB, HP 36806A, 2/74 (HPRUN, PART 3 OF 4)nvN    2v@7nh 8v<v@ @ FV@Pv@ $U v@$@Z3xv@T@ jR--GET-ADRv@ v@@ v@ $V @6 @W"VI,^6 v @@'JjADR OUT OF RANGE T X@~@^)jF#,D@@(@@(@@hZkjmrR---ADD| vpvv vvvp ,@ "@"vv6040 v64664R---ANDv@vv Xp v@($@@4@@ v@ v@Zv@"4@ &:R---IORDv@IvNvS XpX v@($@@6@@] v@b v@lZvv@"6@ R---XORv@vv Xp v@($@@.@@ v@ v@Zv@".@ R---ISZv@@"$ v  R---CMPARv H. *R---JMP4v>HR---JSBRV\ v@fv@pzR---LDA, LDB vXR---STA, STB vhR---PRINT T!%W X@|v v@' jF#,7DZvjR---INPUT nf"$ X@|")v@. v@3'8vBZLv@Vo rHPASMBd~ Vv֯@@@ X@ p~@v @@ v@Z v@ v$B @v" @$ pv X40 @ v4 P0 H6B4 H vv@@v `40 @ 6 h40 @ v64@. ` h @  .v60@4 p v64 pv p" p@"2 v@<%v6 x44B @ 6 @ 4 x4F v6 @ 4 X ` h xPv @Zx v@ X@xV0 EZv@ T_tNu TH v@ vv@.!v@@@$@@+v@@@ @@@v@@@v@@ @@@"v@@@@@",v@@@"$@6V@ v@@J!v@@"@"@TR---DIVv@. vv@"@5v@@"$@$@.@@$@0@@$ , X@@  v@ v@ $@ @ v"$@Zv@$"@v@$@"@& R-DLD v@* v@@4>R-DSTHR v@\ v@@fpR-ASR,LSRz( v@&v@& $ &$$v@@"@@"v@@ $@$B vv@v@vv@ @ @v@ @  v@ $v@( v@(@ "v@^R-LSL,ASL ( v@&$$ & $ v@&$$  v@@@"$@ v V $v@@@"$@ ) .!v@@@ $@  0 v@@ 2vB*46@4 3 `R-RRR j( t v&$$ ~ v"@"  R--RRL ( v& $  R--STO v@ v@  R--CLO v v@  R--SOC  v@ B  v4.y  (R--SOS 2v@  7 v4.{@ < FR--HLT P d R--SHIFT ROTATE GROUP nv xv@@@ v@ v@ @@ v@@ @ $v@@@$@ @ @ \p  B X v4B v@ 4B@@ \p  B X v@  v@@@@ $ ^ v@ ^ %v@$  @$,@ "@$@" ^ "v@@ ,"v@@ $4B"4n 6^ @v@@@ J^ Tv@@ ^"v@@ $4B"4 hv r^ | v v@  v ,@ "@" v ^ %v@@@ @ @  v@"$ ^ @@ @@  rHPEXECd'`0T!?!13!ID$4A4d6789V!2nMANAGC )t#R *** HP BASIC PROGRAM LIBRARY *********************************RR MANAGC: 2000C MANAGEMENT SIMULATION GAME RR 36209 REV B -- 10/73 PART 2 OF 2R#R **** CONTRIBUTED PROGRAM ************************************** 6N2Ҕ"BBr2ORR r2bNb (p*2*dGAME1GAME2GAME3GAME4GAME5GAME6GAME7GAME8< dGAME9GAME10F j GAME NUMBERPgZ W5Pxdj GAME NUMBER MUST BE 1 THROUGH 10nFx2X@}h ZD @W jGAME/FILE NOT OPENED AND READY FOR USE. RUN $SETUP.bL@no3nӟo#onCoCos"o,oS6n@nSJnsTn3^nhocrnc|nßR***INITIAL VALUES AND CONSTANTS***vԞ`v@vo)vo)vSUv|v&`v'} v(6HR`@R`@R``@vcv)N vIa"vJQvK@vtL& wFGHI@0wP :w@DwPNwXwfffbw`lwDH vwX vRh@w  vR`@DvRh@Rh@Rh`mb R***READ SAVED VALUES FROM FILE***hX@|4h2@"Pb@PRPR@R`@ X@|@hRR`ZZX@| wPZ vĠ@X@| V@4*jFOR FIRMENTER AREA SELLING PRICES.4g@@`@>,V@7@6`7@HV@\Rj$ENTER AREA ADVERTISING EXPENDITURES.\f@@`@f,V@6@6`6@pV@zj1ENTER PRODUCTION, R AND D, AND PLANT IMPROVEMENT.f@@`!V@6@6`4V2@>@ @ ` @ @ @ `j-YOUR EXPENDITURES EXCEED YOUR AVAILABLE CASH.jNEGATIVE DATA NOT ALLOWED.j RE-ENTER FIRMDATA V`j ENTER FIRM @ DATA USING THREE LINES AS ABOVE.Zj$DO YOU WANT QUARTERLY REPORT PRINTED f@`w6X@|LPP2P$R * * CALCULATE X - EFFECT OF R&D ON TOTAL ORDERS * *.vt$ @8w66 BZLw(!6&)V R * * CALCULATE Y - EFFECT OF MARKETING ON TOTAL ORDERS * *`X@|j vRPtX@|~vR`R R`% %vRPRP R`ZvvRXRP& VRP} wRP}w&"R`%H$'&$RPR * * CALCULATE Z - EFFECT OF PRICE ON TOTAL ORDERS * *vF_^6w8X@| W v֢@( W*F2(vF2w88!<ZFVְZPw8&Z w%G&F@dR ***** TOTAL ORDERS IN EACH AREA *****nv@Rh%%%%FxZR * * CALCULATE ORDERS FOR EACH FIRM IN EACH AREA * *X@| wr@X@| wr VRX6 W6 w'#WQwQ#R * * OVERALL ORDER PRODUCING EFFECT OF THE COMPANY'S ACTIVITIES  W"PR LAST QUARTER REVENUE ZERO ON FIRM I "v6!$'"P,"vP,wrR`&RX#%$6wr@r@!r@ZJR * * ORDERS RECEIVED IN EACH AREA * *TX@|^ vh Wr|rvr'r@$@|ZZR * * UNIT COSTS OF TRANSPORTATION * *MB@@B@@B``5MB@@B@`B@@B@`B`@B`@@MB@@B@@B`@@w@%w@%"R ***** CALCULATE PRODUCTION COSTS AND QUANTITIES BY AREA *****X@|R * * PLANT CAPACITY IN UNITS * *w@b@P  w7H#$&IW7w =w7w =R * * TOTAL COST OF CURRENT PRODUCTION * *v@@&R * * TOTAL COST AT CAPACITY * *0v@I$7$@%!:R * * CURRENT PRODUCTION IN UNITS * *D"w@@'I#7%#@%&7%#N W@bX w@bW@A@lw@@vv@@w`Fff%@w@s33%@%v`I$7$`%! @#`%%v@I$7$@%! @#@%R * * UNIT COSTS OF PRODUCTION * * X@@ W wRwR'ZZ#R ***** CALCULATE TOTAL MARKETING, REVENUE AND COSTS BY FIRM ****X@| w"P wBP R * * MARKETING AND ORDERS IN UNITS BY FIRM * **X@|4vPP >vPP@HZRR * * GOODS AVAILABLE FOR SALE * *\vr@@!Pfwp VPzwr@&PW w$@W@w@R * * UNIT SALES AND REVENUE BY AREA AND FIRMS TOTALS * * X@|w2%w2P2P!2w"2@%w"P"P!"ZW W@  wP#2P  $ wr@#2P $W .X@} 8vP BW2"." ` Lv@ V B `w2"2"@ jw2P2P@ tw""""!" ~w"P"P!" Z R * * DETERMINE COST OF GOODS SOLD * * vPP%RP W2P+P vr@2P%RP  W2P>r@ "vr@P 2P#P%R@  vr@P @ R * * UNIT DELIVERED COST AND TOTAL TRANSPORTATION COST * * W2P P wr@'2P X@|  vB!B wBPBP!B2@ (Z 2Z < x FR ** NONE SHIPPED THUS DELIVERED COST AND TRANS. 0 ** PX@| ZvBBP dZ n 2 xR ***** DEVELOP FINANCIAL STATEMENT FIGURES ***** X@| R * * DEPRECIATION = 2% OF PLANT VALUE wb@J%b@ R * * EXPENSES = COST OF GOODS + TRANSP + RES + DEPR * * &vb@r@!BP P @!b@ R * * GROSS PROFIT = REVENUE - EXPENSES * * vb@"P"b@ R * * INCOME TAX = 50% PROFIT * * vb@K$b@ Vb@ vb@ R * * NET = GROSS - TAX vb`b@"b@ #R * : DISBURSEMENTS = PROD + TRANSP + MRKTG + RES + PLT IMP + TAX ,v2@@!BP P @ ` b@ R * * NEW CASH BAL = OLD CASH BAL + REVENUE - DISBR "v2@2@!"P"2@ ,R * * CASH FLOW = REVENUE - DISBR * * 6v2`"P"2@ @R * * COMPUTE NEW VALUE OF INVENTORY * * JwPr@#2P@ T VP+ r ^vP"P%RP @ h r WP |vPP%R@  vP R * * NEW PLANT VALUE * * wb@b@#b@ ` R * * ASSETS = CASH + INVENTORY + PLANT VALUE * * v2@2@ P!b@ R * * UNIT COST OF INVENTORY ON HAND * * wRP WP wRPP'P Z R ***** DEVELOP TOTAL SALES, MARKETING, ORDERS * * MD4 X@| M2@Ҕ@ X@| &w2@2@!2 0vҔ@Ҕ@  :Z D wDD Ҕ@ N w44!2@ X v @ bZ lwM@ v X@` vB@B@d!Md vB@B@d!Md vB`B`d!Md vB@B@d!Md Z V@@0NOF X@` j j jFIRM PERIOD j j jSALES ANALYSIS j 'jAREAd 1F 2Z 3n 4  | TOTAL j *,jORDERS\ @B @V ` 4j @| P >.j SHIPMENTS\ 2@B 2@V 2` Hj 2@| 2P R.j MARKETING\ @@B @@ \'V `@j @@ f| P@ p-jREVENUE\ "@@B "@@ z'V "`@j "@@ | "P@ H$ "DLVRD UNIT COST($) ",4(DDD.DD) /j B@B B@V B`j B@ j j (jPROFIT AND LOSSN  CASH FLOWd FINANCIAL ANALYSIS j jCURRENT INCOMEX "P@ N RECEIPTSt "P@ jCOST OF GDS SLDX r@@ "N  DISBURSEMENTSt 2@@ jTRANSPORTATIONX BP@ N NET FLOWt 2`@j MARKETINGX P@!N  NEW BALANCEt 2@@jRESEARCHX @@$j DEPRECIATIONX b@@.N CASHt 2@@8j NET PROFITX b@@B#N INVENTORY VALUEt P@LjTAXESX b@@V!N  PLANT VALUEt b@@` jPROFIT AFTER TAXESX b`@j!N  TOTAL ASSETSt 2@@tj~jjDISBURSEMENT ALLOCATION($VALUE)N INVENTORY ALLOCATION(NO. ITEMS)jjTRANSPORTATIONX BP@N  BEGINNINGt j MARKETINGX P@N PRODUCEDt @jRESEARCHX @@N SHIPPEDt 2P@ jPLANT IMPROVEMENTX `@N BALANCEt PjPRODUCTION COSTX @@jTAXESX b@@ 'T  UNIT COST($)t RPd@djTOTALX 2@@֯2@2('jEBE CAREFUL,NEXT QUARTER YOU HAVE NO CASH TO WORK WITH-ONLY INVENTORY.2j<ZF h@@Pv>Z j@@>dX@|nX@|x vR`R vRZZ h@@j@X@|6j@2@"Pb@PRPR@R`@ X@|@j@RR`ZZ`xMARK  NP"R **** HP BASIC PROGRAM LIBRARY ******************************RR MRKSIM: MARKETING SIMULATIONR MARK, PART 1 OF 5 (INPUT DATA) R 36199 REV AR"R **** CONTRIBUTED PROGRAM *********************************** R THE FIRST 2 DATA ARE INDUSTRY NUMBER AND PERIOD NUMBER. R THE NEXT 12 DATA ARE DECISIONS FORFIRM#1, IN THE FOLLOWING R ORDER: NATIONAL ADVERTISING, RETAIL ADV ALLOWANCE, QUALITY( R LIST PRICE, PRODUCTION, SHIP TO DISTRIBUTIONS CENTERS,DEBT2R PAYMENT, DECICION TO PURCHASE, VARIOUS MARKETING DATA<R (SEE MANUAL). THE NEXT 12 DATA ARE ALLOCATED F!R FOR FIRM #2,AND THE LAST 12 FOR FIBM #3. AT THEFIRST PERIODP!RTHE COMPUTER WILL ASK YOU THE NAMES OF EACH OF THE THREEFIRMSZR THE PROGRAM HAS TO BE RUN FOR EACH INDUSTRY.dR***********SAM@LE DATA(PERIOD 1)************************nR 1,1xR 500000,300000,55,145,50000,30000,0,1,1,1,1,1R 500000,300000,55,145,50000,30000,0,1,1,1,1,1R 500000,300000,55,145,50000,30000,0,1,1,1,1,1 R=========================================================="R : IMPORTANT : EACH TEACHER USING THE GAME HAS TO BE ALLOCATED"R A USER NUMBER WHICH CAN BE 1 OR 2. THERE CANNOT BE MORETHAN 2.NHN  j7**************** MARKSIM *****************jLAST FOR INSTRUCTIONSpDECIS,USERj jENTER USER NUMBERfj@ j@P$@jENTER INDUSTRY # AND PERIOD #:fj@ X@`jENTER DECISIONS FOR FIRM # (12 DATA)nfnj@Z"VԪ@,j3ENTER THE NAMES OF THE THREE FIRMS.ONE ON EACH LINE6Md;j@ĠP$`@ X@`^ fd@d` hj@d@d` Mdd` Zjjj&========GET AND RUN BARKSI============`xMARKET #R **** HP BASIC PROGRAM LIBRARY ******************************RR MARKET: TWO COMPANIES IN ONE-PRODUCT COMPETITIONRR 36619 REV A -- 10/73R#R **** CONTRIBUTED PROGRAM ************************************d"R MARKET - SIMULATION OF MARKET COMPETITION BETWEEN 2 COMPANIESi!R DEVELOPED BY S. FINKELSTEIN, J. MCGRATH, I. STAW, D. SOBIN nR ALSO DEVELOPED BY D. KLASSEN - PROGRAMMED BY D. SOBINsR LATEST REVISION 8-29-72xR COPYRIGHT 1972 - STATE UNIVERSITY OF NEW YORK}Q/Qd@.N1AAaq!Qj2DO YOU WANT INSTRUCTIONS(TYPE 1 FOR YES, 0 FOR NO)f"h1@1@@@dT$vwxMwwwywxjVj6MARKET SIMULATES THE COMPETITION BETWEEN TWO COMPANIESj6SELLING A PRODUCT DIFFERENTIATED BY BRAND ADVERTISING. j7THE QUANTITY EACH COMPANY SELLS IS DEPENDENT UPON PRICEj/AND ADVERTISING BUDGET. THE GAME ENDS WHEN ONE !j!COMPANY GOES BANKRUPT OR REACHES A7$ MILLION IN j TOTAL ASSETS.jj(ARE YOU BEGINNING THE GAME OR CONTINUINGj((TYPE 1 FOR BEGINNING, 2 FOR CONTINUING)fjV@ X@@#jCOMPANY .ENTER PREVIOUS CASH ON HAND,PREVIOUS INVENTORYf1jZjENTER VARIABLE PRODUCTION COSTgTjENTER QUARTER NUMBER gjjFIXED PRODUCTION COST=$d} / QUARTERjVARIABLE PRODUCTION COST=$T/UNITj3WITH NO ADVERTISING AND A SELLING PRICE OF $50/UNIT"%jA COMPANY WILL SELL } UNITS (PRINTED AS @)'j WAREHOUSE CHARGE FOR INVENTORY=$d PER CENT, j"INTEREST CHARGE ON BORROWED MONEY=d PER CENT1j6j@jEjJj)UNITS AND DOLLARS BELOW ARE IN THOUSANDS OjTjY X@P^LQcZhM mkr X@@wMq|LAMA L!T$ 1ZjM@$a R COMPUTE DEMAND  X@@%LA@"QP@$@%a$F&d (Z X@@ VA*MAAMA MAAL11!A% L#AZ X@@%L11#$$%T"$1$11@@ L11 VQPMq WA@!A@MqN %A&A@!A@dZ! X@@&+ L!1!T$0 V!D5j:?jDV!,lIV!@1`"!T$`"lNM D SjXp********************]"jCOMPANY  YOU HAVE REACHED A7$ MILLION AND WONbp********************gjlZqjvW D {jj3DO YOU WANT TO PLAY AGAIN(TYPE 1 FOR YES, 0 FOR NO)fVljbj X@@jj jCOMPANY  VQ@@j$NO PRODUCTION POSSIBLE DUE TO STRIKE jPRODUCTION LEVELf VjADVERTISING BUDGETf VL11"d"%T" VQ@@ L  j UNIT PRICEf VQ@@ VA  jj5YOU MAY NOT RAISE PRICES DURING THE WAGE-PRICE FREEZEj M%Vd* W/Z4 L@ @9VM> Ma@C Ma@HWM Ma@@&R Ma@@&WLF"o$$\^ajfjk jQUARTER pjuj1PROFIT MARKET SHARE CASH ON HAND NUMBER SOLD z jINVENTORY ASSETS^%kT$ 1"!Hq\ 1J kAd z T$ 1^d @A7fffN N dd}P fff fffffffff]`p********************jCOMPANY  YOU HAVE GONE BANKRUPTp********************M D ^W@-@LԞ@LԞ@Ly`"#'`"Vy@vVy,w LywLzA`"$y"v&w"v$xLA`"A`""z LAA z^$W`) ֿ@fffB. ֿ@fff[3 ֿ@fff8 ֿ@fff=B VQ@.GL LQ@@QMV.[L@`` W#w@3e V13j V1dyo L1`$1t~y L11d~-Mw3L@` W#x@8FL11!T$`LMx8 VQ@@ W#y@My_ LQP@M֯@@@=@W@ VQ@@ ֿ@@W`x LQ@@MTT$Ffffff@MMTT$C33fff@j2NEW LABOR CONTRACT - VARIABLE PRODUCTION COST NOW= j $T/UNIT!j9THE PRESIDENT HAS JUST IMPOSED A WAGE-PRICE FREEZE ON THE j8ECONOMY, AND YOU MAY NOT RAISE THE PRICE OF YOUR PRODUCTjOVER THE NEXT 2 QUARTERS.#j(^- jCOMPANY *HAS BEEN THE VICTIM OF EMBEZZLEMENT BY THE2!j8VICE PRESIDENT OF THE COMPANY. YOUR CASH ON HAND IS NOW 7j$1<jA^F jCOMPANY* HAS SUFFERED FIRE DAMAGE IN ITS WAREHOUSEK"j;ALL UNITS WERE DESTROYED. YOUR INSURANCE WILL REIMBURSE YOUP!jIN THE AMOUNT OF $T$` FOR THESE UNITSUjZ^_!j:A TRANSPORTATION STRIKE HAS OCCURED, AND YOU ARE UNABLE TOdj6MOVE YOUR GOODS TO THE DISTRIBUTORS. NEGOTIATIONS HAVEij*BEGUN, BUT HOPE OF A SETTLEMENT LOOKS DIM.njs^xj4THERE HAS BEEN A STRIKE AND YOUR PRODUCTION HAS BEEN}j3HALTED. NEGOTIATIONS HAVE BEEN STARTED, BUT HOPE OFjA SETTLEMENT LOOKS DIM.j^ VQ@@ W-@ LQ@@jTHE WAGE-PRICE FREEZE HAS ENDEDj VQP@W1 LQP j8TRANSPORTATION STRIKE SETTLED. NORMAL DELIVERIES RESUMEDj VQ@@W1j)STRIKE SETTLED. NORMAL PRODUCTION RESUMED jNEW VARIABLE COST=$T / UNIT DUE TO INCREASED WAGESj LQ@^`MASK  )"R **** HP BASIC PROGRAM LIBRARY ******************************RR MRKSIM: MARKETING SIMULATIONR MASK, PART 5 OF 5 (PRINTS ENGLISH HEADINGS) R 36199 REV AR"R **** CONTRIBUTED PROGRAM *********************************** j(----------------------------------------j j( ***(jMARKSIM2j<jA MARKETING SIMULATIONFj Pj(INCOME STATEMENT------------------------Zj(COMPANY SALES...........................dj nj( COST OF PRODUCTION.................xj( CHANGE IN INVENTORY VALUE..........j( COST OF GOODS SOLD.................jj(GROSS PROFIT............................jj(OPERATING AND ADMINISTRATIVE EXPENSES..:j( TRANSPORTATION TO RETAILERS........j( TRANSPORTATION TO DISTR CENTERS....j( TRANSPORTATION TO WHOLESALERS......j( INVENTORY COSTS AT FACTORY.........j( INVENTORY COSTS AT DISTR CENTERS...j( ADVERTISING ALLOWANCES TO RETAILERSj( NATIONAL ADVERTISING EXPENDITURES..j( MARKETING RESEARCH.................j( INTEREST CHARGES...................j( FIXED EXPENSES.....................j( LESS TOTAL O+A EXPENSES............"j,j(NET PROFIT..............................6j(FINANCIAL STATEMENT---------------------@j(ENDING CASH BALANCE.....................Jj(ENDING INVENTORY VALUE..................Tj^j(TOTAL ASSETS............................hj(LESS DEBTS..............................rj|j(OWNER'S INVESTMENT......................j(MARKETING RESEARCH----------------------j(TOTAL INDUSTRY NATIONAL ADVERTISING.....j(TOTAL INDUSTRY ALLOWANCES TO RETAIL..... j POTENTIALS:j' FOR COMPANY DURING THIS PERIOD....j( FOR INDUSTRY TWO PERIODS HENCE.....j(SHARE OF MARKET (IN PERCENT)............jPRICES OF COMPETITORS:j( FIRM #1............................j( FIRM #2............................j( FIRM #3............................j(SALES INFORMATION----------------------- j RETAILERS:j( RETAIL SALES IN UNITS..............j( TOTAL RETAIL SALES IN UNITS........j( BEGINNING INVENTORY................&j( ENDING INVENTORY...................0j: j WHOLESALERS:Dj( ORDERS FROM RETAILERS IN UNITS.....Nj( DELIVERIES TO RETAILERS............Xj( SELLING PRICE TO RETAILERS.........bj( RECEIPTS FROM RETAILERS............lj( BEGINNING INVENTORY................vj( ENDING INVENTORY...................jjDISTRIBUTION CENTERS:j( ORDERS FROM RETAILERS IN UNITS.....j( DELIVERIES TO RETAILERS............j( SELLING PRICE TO RETAILERS.........j' COMPANY SALES TO RETAILERS........j( BEGINNING INVENTORY................j( ENDING INVENTORY...................j jFACTORY WAREHOUSE:j( ORDERS FROM WHOLESALERS IN UNITS...j( DELIVERIES TO WHOLESALERS..........j( SELLING PRICE TO WHOLESALERS.......j( COMPANY SALES TO WHOLESALERS....... j( SHIPMENTS TO DISTR CENTERS.........j( PRODUCTION THIS PERIOD............. j( BEGINNING INVENTORY................*j' ENDING INVENTORY..................4j >j(----------------------------------------H`MAXIMA NR CASE1, 36790 REV A, 2/74 -- MAXIMA, PART 5 OF 5R PROGRAM PREPARED AT STANFORD UNIVERSITYM(&O-1єQq1aQ2Op0</iF H J L N P R T V Fh fffL FLPZffGAPj)SUB-MODELS: DO YOU REQUIRE(YES OR NO) -Z`*PROMOTION BLENDER*dgn`*GROWTH + COMPETITION*xfp`*CANNIBALISATION MODEL*f0jjj j *AYER MODEL*fV@@0Yj j*PROFIT MODEL*fjV@@<Y8W@6j1ST YR % MKT SHARE, PRICE" g`p6R AYER MODELW@Njj&MEDIA IMPRSSNS PER HSHLD, %HSHLD AVAIL g@@&j#NEW BRAND OR ONE OF FAMILY (0 TO 1)0g`:jPRICEDgpNW@@0YXW@vbj$VAL OF PROMOTION: AS ADVTSG, AS PROMl g@Pvj/LG `Ĝ%F Cm@%H O;%@dZ%J 8L@ D ^R$cS%L %N I%`Xb%PZ%P D%@M`C33$&@oZ\%p~Z` AWARENESS % =`INITIAL PCHSRS %=` MKT SHARE %=`jM@ j*PROFIT MODEL*fjV@@<Y8 R PROFIT MODELR DATA INPUTW@ jMKT SIZEg@Vp@@0Y|$W@B.jSALES GROWTH: % YR2, YR38 gHPBM1@@%`dLM1@1@$d!HdVM1`1@$d!Pd`W@jjHORIZON YR. PLANT RESID VAL %t gX`~jAD-COST: YRS 1, 2, 3ghpx jPROM-COST: YR 1g@ V0@@0YpW@jCANNIBALISATION: YR 1,2,3gD H L j R SALES CALCULATIONS X@}XM11@%V Z j*SALES*fV@@<Y"j,jYEARLY SALES (IN UNITS)1j6 jYEARSALES@jJ X@}XTj1^ZhjrjR PLANT COSTMD X`}XMDD!1ZLP%D&X@ R PLANT COST PRINTED JUST BEFORE PAYBACK YR LD$d#`&d%X R PROFIT + LOSS Lpo\)[ LQ@h!@ j,g€* LQ@pz*g€* LQ`xz*g€* j*P+L* f V@@<Y  X@` (Lp%1}@ 2L%1}@ <Lq"Q D}@ FL1q#@ }@ PZ Zj dj1PROFIT AND LOSS STATEMENT IN THOUSANDS OF DOLLARS nj x T YEAR 1H YEAR 2f YEAR 3 j (jSALESP @F @d ` +j GROSS MARGINP є@F є@d є` j !jMARKETING COSTSP Q@}@ *F Q@}@d Q`}@ j DEPRECIATIONP D}@ "F D}@d D}@ j /jGROSS CONTRIBUTION P q@F q@d q` j !jCANNIBALISATIONP D }@ *F H }@d L }@ j .jINCREMENTAL PROFITP 1@F 1@d 1` j j R CASH FLOW CALCULATION X@` La%1"Q#@ B\zH$D Z X`}X )La%1"Q`!L %V (`B\zH$D Z LaXaX!`$d  j *CASH FLOW* f V@@<Y &j 0j$ANNUAL SALES AND AFTER-TAX CASH FLOW :j DjYEAR SALES (UNITS) CASH FLOW Nj X  b X@}X l j1a vZ j j R PAYBACK YEAR + PLANT COST PRINTOUT jPLANT COST = $ L$ X@}X L$$ a V$ Z jPAYBACK BEYOND YRX  j PAYBACK YR j R NPV CALCULATION jDISCOUNT RATE % g$ Md X@}X Mdd a&@!$d( Z jNET PRESENT VALUE =$d jjNEW DISCOUNT RATE %g$$W$ .M@8jB j*RE-RUN*LfVj`jjV@@0LtV@@<Y' R INPUT NEW DATAj)HOW MANY DATA ITEMS DO YOU WISH TO CHANGEfVjj5INPUT: NO. OF VARIABLE, NEW VALUE (ONE PAIR PER LINE)X@|gMZR LIST-OUT OF VARIABLESjVARIABLE NUMBERS AND VALUESjW. X@`jZW@@0Y @@ PP `` ppWu @@Vp@@0Y4 HH* PP4 XX@ >jHZRV0@@0Yu\ XD L fjpZuWzW@@<Y XP \ jZWVp@@0YV0@@<Y X` t jZV0@@<Y Xx D jZ XF V jZj$8.W8 R PROMOTION BLENDERW@j PROM MIX: %1, %2, %3,REDN FACTORgP T X \ +M@l%P @ !T C%X &d!\ +MPl%P N %T {%X &d!\ My~%P Ca%T m\%X j`PROMOTION COST = $MN| R GROWTH + COMPETITIONS@j#GROWTH WITH COMPETN:% YR1, YR2, YR3g` d h j$COMPET EFFECTIVENESS:% YR1, YR2, YR3gl p t $M7T %R !`d$d#R d!M1@7%@$d!` &d!l !M1@7%@$d!d &d!p !M1`7%@$d!h &d!t `pR CANNIBALISATION MODELzVp@@0YW@j#GROWTH WITH COMPETN:% YR1, YR2, YR3g` d h j$COMPET EFFECTIVENESS:% YR1, YR2, YR3gl p t  M7`dW@j)MKT GROWTH (NO MAXWELL HOUSE): % YR2, YR3 gx | j$% FROM MAXWELL HOUSE, % FROM INSTANT g@ B j% ADVERTISING CUTgD MQ@7%@$d!` #l d,MQ@7%@$d!d #p $d!x dd,MQ`7%@$d!h #t $d!| dd$ WB L.&Mv@bNL$d#B d$PY%D d8)Mw@bNL%B d|Y$@Y%D dB`L,Mv@bNL|Y$B d$PY%D dV&Mw|Y$d!B d$@Y%D d`MNd#@ d$v!wj MD Q@%Nt MH Q@%N~ ML Q`%NW@'`MRKSIM  !j9MRKSIM: MARKETING SIMULATION, HP 36199. CALLING NAMES OFj4PROGRAMS ARE: MARK, BARKPI, BARKSI, ANNUAL AND MASK.jFILES ARE PARAM, AND HISTRY.(`NEWA  )O R NEWA BASIC PROGRAM TO ACCOMPANY NEWFOOD (A) PART IIR CASE2, HP 36841A, 2/74 (NEWA, PART 4 OF 8) i&'()*&Q/o'@@ *QO&&@ '&@@ (&@` Po)&@@ *&@P h4W4`7jPAYOFF TABLE (OBJECTIVE IS V@" jMAXIMIZATION):%" jMINIMIZATION):%jNATURE(X@}4+LQ.jACT1Z4j7X@|:iQ< MP =Z@X@|CiFV`OILҔ``%Q@#Q@@L[OLҔ`Q!Q@@R V,Ģ@[ULҔ@`%Q#QĢ@@X^[LҔ@Q!Q@@^LҔ@Ҕ` Ҕ@@a M&&!$Ҕ@dZgX@|jMmipZsW4`vX@|ykQ|X@}4V@hjLQQ!$V`LV@ V> V@LZL!$jZj jPRIOR ANALYSIS:jNATURE PRIOR PROBS.X@|kQZj EXPECTED VALUESW4`j &X@}4 jACTQVj ***BAYES NO-DATA ACTION***jZjjVALUE OF PERFECT INFORMATION ISQt"VưLQtjjM&V@jPRE-jPOSTERIOR ANALYSIS:X@|LV@  V< X@|V@iM!%Z WM! V,@*!jIF THE EXPERIMENTAL OUTCOME IS $j(PROBABILITY IS)'jNATUREPOSTERIOR PROBS. P(EXP./NATURE)*X@}4-LQ0X@|3M%'6LQQ %9V@B< V,@B?kQ BZEV@NH V,@NKj EXPECTED VALUESNZQW4`{TWX@}4Z V,@`] jACTQ`V=toc V,@ifj ***BAYES ACTION***i M&&!$Qluo V,@urjuZx{X@|~ L!$Ҕ@Zj  V,@jZV@W4`jVALUE OF EXPERIMENTATION IS#&jjSUM P(EXP. OUTCOMES) = jNAT. EXP.PROBSX@| jP ZMt@Yd@}4V@ VQd>Qt VQd@QtMtd[d^ V @ X@@X@}4h"ZZLQ$"@ "@M6 V Pht LD@#@W@$D-Q@$tW@$D+Q@$t X@PMW@$D $DPL@$D @$DPM7Ma@$Ҕ@#W&tMa@$Ҕ`#W&tMa`$Ҕ@"&tMa@$Ҕ`"&t X@@ Wa)M77 @#/a$Oa oa$@(@ &M77 /a$Oa oa$@(@ Z M66@%7$W"ZM6&Ҕ@"Ҕ` W MMP P ! f!vQ9rpz#U#%X`@@@@@]`PpHXhbffffff@@ffffffg@`PpHXhxlqtQv{@`NEWB  NR -- NEWB BASIC PROGRAM TO ACCOMPANY NEWFOOD (B) 7/25/73R -- PERFORMS MULTIPLE REGRESSIONSR -- PROGRAMMED BY PROF. DEMSKI AND PROF. FELTHAMR CASE2, HP 36841A, 2/74 (NEWB, PART 5 OF 8) Od 2 dB  R  a  Odrd ! Ar N j"HAVE YOU ENTERED YOUR DATA ALREADYfV@@0Njj&HOW MANY VARIABLES DO YOU HAVE DATA ONf(j!HOW MANY OBSERVATIONS DO YOU HAVE2fPjZjdj*HOW MANY INDEPENDENT VARIABLES DO YOU HAVEnfX@| jVARIABLEf!Zj)WHICH VARIABLE IS YOUR DEPENDENT VARIABLEf!Ԡ@j X@|Ԡ@ V!! V!V!@j VARIABLE ! DOES NOT EXIST. TRY AGAIN.PZ oԠ@ n2Ԡ@nBԠ@Ԡ@nRԠ@Ԡ@ naԠ@ o@ or@" nԠ@' nr@Ԡ@,X@|6nis@ V!Ԡ@<rJX@|Tw@r@^ZhrX@||V!<X@|w@r@ZZZX@| w@@Zn3nC3%nSCosnc3%snS$coC%swTA@wdA@nsoCs$c wTT#A@wdd"a@$a@&w'@#T'd wVT&"Ԣ@ X@|Ԡ@vRR%VZjVARIABLE COEFFICIENT STD.ERRORT-VALUEj-------- ----------- ----------------."jCONSTANT@R@@@&R@@8 X@|Ԡ@Bj!@R&RLZPjQjTHE VALUE OF R-SQUARE IS'RVl[jDONE\f]V@@0NP`b R -- GIVE INSTRUCTIONS j7DATA SHOULD BE ENTERED IN DATA STATEMENTS BETWEEN LINES j2000 AND 3000.jUSE THE FOLLOWING FORMAT:j1 VARIABLE 1: OBSERVATION 1, OBSERVATION 2, ETC.j1 VARIABLE 2: OBSERVATION 1, OBSERVATION 2, ETC. j AND SO ON.j3WHEN YOU HAVE ENTERED YOUR DATA STATEMENTS, RUN THE jPROGRAM AGAIN.bR*****SUBROUTINE TO CALCULATE RESIDUALS*****O2Z"ZjjjDO YOU WANT RESIDUALS#f(V@@0N- o2@2 o"@7vDt<o3$Fo#s#3KjPj OBSERVATIONOBSERVED PREDICTEDRESIDUALZj ------------------- -----------------dX@|njr@2@"@xV@vDD "@#"@@@wtt "@@Zj^&pPjCpR{SqiH@&fHzPP{@MQKZK&_iDdcYNWQJCj&dUxtF~Sztpdz&fx@dhB\[@HU@d&W{uoo\SftwKe&` ` ` ` ` ` ` ` t t t t &t t t t D D D D D D D D J@@@@@@@@@@@@J@@@@@@@@@@@@&tBffnffhtBffnffhhC33hc33&hC33hc33s33@ias33@ia&D R @ p D R \ J B N x l &J V x L @ T t ` @ H t ` &` ` t` ` t t &t t D D D D '`tNEWC1  OhhQiQi O!1iR CASE2, HP 36841A, /74 (NEWC1, PART 6 OF 8) !R NEWC2 BASIC PROGRAM TO ACCOMPANY NEWFOOD(C) PART II 7/25/73 R MAKES DYNAMIC FORCASTS USING A DEPTH OF REPEAT MODEL-XD}~D/jPERIOD0j1w*2wt3X@}4w!5Z7vĞ9v4:vQ< X@|@GwTQIvPw1Z X@|_w1dX|@nw4!$$t(" $t("@x w14!1z v4$" Zv41 4ZX@|w!1Zw!wt4%T!tV4@jR()4@4&vĞv4V@w*4v4Zj TOTAL SALESQ%V!tj TRIAL SALESQ%Vj REPEAT SALEStREP SALES PER REPEATERt'*jZ'jNUMBER OF WEEKS IN FORCASTgjHOW MANY WKS IN EACH REPORTfD YD@` iD[D YFp}@jTRIAL DURING THEFTH 4 WEEK PERIODgYDF@`}F@ wD@[D [F,,j4LIMIT ON FIRST REPEAT AND AVE TIME BETWEEN PURCHASES1ft2 vtt&t@6j+LIMIT FOR REPEAT LEVEL 2,AND LONG RUN LIMIT;f@v~LE v$@"~I vQ@@KX@}LvQQ@!NZ^j&AVE UNITS ON TRIAL,AVE UNITS ON REPEATbwXcgVWhYD@}m wQDW!X$D@r[Dsv@vv@wYD`}| vD ~$D@[DYD@}[D-JPxXHX `xD HXpPpHX@@@P@P@@`'`NEWC2  )"R NEWC1 COMPUTER PROGRAM TO ACCOMPANY NEWFOOD(C) PARTII 7/24/73R DEV A RISK PROFILE BASED ON TRIAL AND REPEAT INFOR CASE2, HP 36841A, 2/74 (NEWC2, PART 7 OF 8) LdMS33O1( X@P 2M1<ZFwPLTZMdd jPOPULATION SIZEnf6xj MIN, MOST LIKELY, MAX TRIAL RATEf@є@!@j MIN,MOST LIKELY, MAX REPEAT RATEf@є@!@j,MIN, MOST LIKELY, MAX REP UNITS PER REPEATERf`є`!`jAVE UNITS ON TRIALg$j&PRICE,MARGIN PER UNIT,TOTAL FIXED COSTg4fj Y@`L"&!"LZ~&!"!M @d$@@$&[jEXPECTED TRIAL RATE@"jEXPECTED REPEAT RATE=@,jEXPECTED REP VOL PER REPEATER=`6j@vF6%@$$!@%`JLHF$TLIF$"f^ jEXPECTED VALUE P/Lhjr j UNIT SALESF| j$ SALESF%4 jNET REVIjX@| Y@`MW,M@$@#&@" M@%&MD@'@MDD"IIEF%D&@\%D[X%D@W,MZ~$@"&%DMZ~$&%D[&w6%@$$!@%`0v=6$!@$$ !@$!`:v>6$@$$ @$`DvP $">&=">@NV@XVP lblLP vv@ M11@Vd d jSIM IS& COMPLETEDZjj UNIT SALES$ SALESNET REVCUM PROB X@P  w> =">$P  LT%1& TMd1&!dw =">P @ k%4$"fdWd Z`NEWD  NR PLAN MODEL MODIFIED FOR USE WITH NEWFOOD(D) 8/29/73R DATA SEQUENCE IN DATA STATEMENTS IS "NAME",AND THENR FOR EACH OF THE PAST FIVE YEARS: TOTAL MARKET,MARKETR SHARE,PRICE,GROSS C MARG,OVERHEAD,ADV.,PROMOTION H 13A,8D,8D,8D,8D,8DH" 13A,4D.3D,4D.3D,4D.3D,4D.3D,4D.3DH 13A,3D,8D,8D,8D,8D,8D H% 13A,3D,4D.3D,4D.3D,4D.3D,4D.3D,4D.3D 0N 2Ab rHF N@P`p    N  Ҕ  OLh@P`pdNOYESPRICE ADVERTISING PROMOTION X@@h@H@H#Z(d SALES VOL SALES $  GR C MARGOVERHEAD-d GR MARGIN ADVERT.  PROMOTION NET OP PR2 X@P7h@p@p<ZAdMARKET SHARE PRICE GR C MGFdOVHD/UNOV CONSADV/UN KdAD CST PROM/UNPROM CT\h ]j^j _j` X@pa X@PbhdZiZkln X@PsM2@@$@xM2@2@$`}M2`2@$@M2@PM2P2`#2@M2``M2ppM2@2P#2`#2pZ jHISTORICAL FILEM j{{ {0{@{PjMMARKET.j@@@@@`@@@PMSHARE.j@@@@@`@@@PMPRICE.j`@`@```@`P M GROSS C MARG.j@@@@@`@@@Pj X@PL@`L`PLPpLPpHZ Y@PM$ Y@P M$$ [ Y@P4Mbfff%$fff$@$@$@"@ @@$P["['j,jBASE PLAN INPUT PROJECTIONS1 j8 LINE # 1974 1975 1976 1977 19786j; X@P@ X@PEM}%b@}JZOTT^^^^T^T^TT1j@p@p@@`@PYc^1j @p@p@@`@PcZdjej5DO YOU WANT AN EXPLANATION OF THE INPUTS?(0=NO,1=YES)gf'hV'tijjj!'MARKET' IS TOTAL INDUSTRY MARKETk j7'SHARE' IS CONCORN'S SHARE OF THE TOTAL INDUSTRY MARKETlj&'GR C MG' IS GROSS CONTRIBUTION MARGINm j7'OVHD/UN' IS OVERHEAD PER UNIT (VARIABLE OVERHEAD COST)nj4'OV/CONS' IS OVERHEAD CONSTANT (FIXED OVERHEAD COST)oj 'ADV/UN' IS ADVERTISING PER UNITpj 'AD CST' IS ADVERTISING CONSTANTqj'PROM/UN' IS PROMOTION PER UNITrj'PROM CT' IS PROMOTION CONSTANTsj#'NET OP PR' IS NET OPERATING PROFITtj/NOTE: 'AD CST' AND 'PROM CT' MUST BE AT LEAST 1uj.YOU MAY NOW INPUT YOUR PROJECTIONS FOR NEWFOODvj3BE CERTAIN THAT 'AD CST' AND 'PROM CT' ARE AT LEASTw jONE FOR EACH YEAR| j WHICH LINEg j NEW VALUES gb@b@b`b@bPjjANY OTHERS?(0=NO,1=YES)f)jV)| Y@PMr@b`[\jjL@ jPLANNING BASE P/L Y@P MA2@ Y@` Mr2@ MbHr[MbpbHMb@r@MbPr`[ j2SPECIFY RESPONSE COEF TO BE USED FOR EACH OF 5 YRSjj`*f@@@@@`@@@P!jp&*f@@@@@`@@@P+j0*f`@`@```@`P?jDj.WHICH MARKETING VARIABLE DO YOU WANT TO CHANGEEj!PRICE=1,ADVERTISING=2,PROMOTION=3IvNjSPECIFY NEW LEVELS BY YEARS gr@r@r`r@rPXj]jANY OTHERS?(0=NO,1=YES)bf.gjlV.qDvf.{M@V.@^M@V.@M`V.`M@V.@jBAD FORMAT RETYPE ITv Y@PM!@M!!$r@'b`(@M!!$r@'bX(@M!!$r`'b`(`[ Y@PM2@A%![ Y@PMb@r@MbPr`[\j DO YOU WISH TO TRY ANOTHER PLAN? j (0=NO,1=YES)f* jV*@Dj-DO YOU WISH TO CHANGE A RESPONSE COEFFICIENT? j (0=NO,1=YES)f+ j%V+* j WHICH ONE?+j#(1=PRICE,2=ADVERTISING,3=PROMOTION)/v4 j NEW VALUES9 f@@`@P>jCjANY OTHERS?(0=NO,1=YES)Hf,MV,@*W\ Y@PaVkfM2@b@%b@kM2@2@%r@p"M2`2@$b@!r@#b`uM2@2@%bP!b`zM2P2`#2@M2`2@%bp!b@M2p2@%bH!bPM2@2P#2`#2p[^jM j{`{p{{{j X@@ X@PM2@Z0j@H@H@@`@PZj^j*DO YOU WISH TO CONSIDER ANOTHER BASE PLAN? j (0=NO,1=YES)f-V-@' d NEW FOOD @@@@@'`0NIK1  $R NIK1 COMPUTER PROGRAM TO ACCOMPANY NIKOLL ELECTRONICS (A) 7/23/73#R CASE1: CASES IN COMPUTER AND MODEL ASSISTED MARKETING: PLANNINGR 36790 REV A, 2/74 NIK1, PART 2 OF 5 OHdvGDnvuxvfvOjCOMP BID(MIN,MAX) f$jCOST,INTANG IF WE LOSEf6jSTARTING,ENDING PRICES,STEP gj*COMPETITIVE (NON-PRICE) ADVANTAGE,MIN,MAX g v!@ w7#@ v $@ w6$"@v w86%6!7%7j jPRICEPROB.WINEXP.PROF EXP.INTANEXP.BENEY}w"'8 w@"wT@!$!$!$!$,wTT@6 wT@@'T@wTT@J w@%TTw@#^ wr$"6%h w$@#rk!|[jj jMORE PRECISION gW@@0NjSTARTING,ENDING PRICES,STEP g j ANOTHER BID gW@@0Y`0NIK2  ) R NIK2 COMPUTER PROGRAM TO ACCOMPANY NIKOLL ELECTRONICS (B)R CASE1, 36790 REV A,2/74,NIK2, PART 3 OF 5R THE DATA STATEMENTS ARE ORGANIZED AS FOLLOWS:R STATEMENT 1ST VAR. , 2ND VAR. , 3RD VAR. , 4TH VAR.R NUMBERR --------------------------------------------------------R 6000 DATA COMP.MIN., COMP.MAX., MFGR.COST, PRICER OPTION1 OPTION1 OPTION1 OPTION1 R . . . . . . R . . . . . . R . . . . . . R 6060 DATA COMP.MIN., COMP.MAX., MFGR.COST, PRICE R OPTION7 OPTION7 OPTION7 OPTION7 R 6100 DATA ADDITL. COST OUTCOME1, INTANG.COST OUTCOME1R . . . .R . . . .R . . . .!R 6190 DATA ADDITL. COST OUTCOME10, INTANG. COST OUTCOME10R 6200 DATA COMP. ADVANTAGE MIN., COMP.ADVANTAGE MAXR 6300 DATA NUMBER OF ITERATIONS IN THE SIMULATION R 6400 DATA INTER-OPTION CORRELATION (MUST BE 0 OR 1 )d@nO`8pHx j8ACTION CODE:1=RESTORE,2=PRINT DATA,3=RUN,4=CHANGE,5=STOP"j jACTION g Ul"}'" X@p,h!6Z@ X@PJh1TZ^ihhrhsV|tV@|uj2INTER-OPTION CORRELATION IS NOT EQUAL TO 0 OR 1 INvjDATA STATEMENT 6400wj3PLEASE RETYPE CORRECTED DATA STATEMENT AND THEN RUNx'|^}j jCURRENT INPUT DATA j==================jj (DOLLARS PER SET)j/===============================================j/OPTION BANDS COMPETITION BIDS MANUFG PRICEj' MINIMUM MAXIMUM COSTj/====== ======== ======= ======= ====== ===== X@p$j`@@$@@$!H 4D,3X,8A,3X,4D,5X,3(4D,4X)Zj jOUTCOME TABLE gW@@0Nj! ($ THOUSANDS)$j@================================================================j3OUTCOME OPTIONS MANUFG ADDITL TANGIB REVNUE PROFIT & j INTANG NET0j3 WE GET COST COST COST : j COST BENEFITD$j@======= ======= ====== ====== ====== ====== ====== ====== ======N X@PXv@`$@bv`$l wT 1vjp1TAH 5D,5X,3A,4X,7(4D,3X)Zjj COMPETITIVE ADVANTAGE(MIN,MAX) :jjINTER-OPTION CORRELATIONjjNUMBER OF ITERATIONS j^ v@є@ v@ v`є@ v@є`vPє` є@ v`єP vpє` єP v@є@ vHє`* vPєp4 w@@> w@H w`@R w@`\wP`!@f w`Ppwp`!Pz w@@ wH` wPpvƞ@ X@P wtj vtjwA""1 vA"wZ^X@|V$ww!@ #@$d$ X@p.V@V8BwLw!@ #@$dVw !@ !"@%`w$@!jZt v@9@~v&@!`8`!@%v6`!@!P8P!`!@%vF`!P!@8@!`!PvV`!p8p!`wd8&868F8Vv Wd1@ Wd1@Wd1@!`xWd1`!@nWd1`!@!PdWd1P!`!@ZWd1`!P!@PWd1@!`!PF Wd1`!p<Wd1p!`2jERROR('2v@<v@Fv@Pv@Zv@dv@nv@xv@v@v@ w@Z X@P w&Z@wJ X@PT w!%A^ w!$hZrj| jEXPECTED PROFIT:jEXPECTED INTANG:jEXP. NET BENEF.:#jjWANT PROBABILITIESgW@@0NjjOUTCOME PROBABILITYj======= =========== X@P j H 5D,7X,1D.3DZ^#j>CHANGE CODE:0=NO MORE,1=PRICE,2=COMP.BID,3=OP.CORR.,4=#ITERAT.j jCHANGE gUh0^jINPUT OPTION #,NEW PRICE f"hjINPUT OPTION #,MIN,MAX r f!|jINPUT CORRELATION CHOICE fVV@j'INTER-OPTION CORRELATION MUST BE 0 OR 10jINPUT # OF ITERATIONS :fD~R INDEPENDENT NORMAL (0,1) RANDOM NUMBER SUBROUTINE v v w@dv@$v@$^phIphvzZ@Uehp]K[@vIpT`zT``WXpIpZsKxGZ]}~dsT dFd JK[dx d $^.d Z8d@@wp@x 1 2 3 3+45 3+54 6 7 Jw`@@  ABCDEFGHABCDEFG........HABC.....Tw`B p ...DEFG.ABCDE........FGH^^'`PAAM  N2x A7Lx pSyG =Nx m9d @t3@Rx Al HSLoPKLL``Pfffp>BF9WJ $0v[[$[($/v[ 0USECNTd= 0USEPRTo@ 0VACSICKe 0VSPRT E 0W2FORMT 0WKCOMPA cADD Mi cCHK Mo cDUMY \qKk cH \BN cINITS33Pz&TTTA!fffPZLL@fffN `L@u0"FP u0d ~"D\ yh $0v[[$[($/v[ 0USECNTd= 0USEPRTo@ 0VACSICKe 0VSPRT E 0W2FORMT 0WKCOMPA cADD Mi cCHK Mo cDUMY \qKk cH \BN cINITF$P Bh ` HD$S FP b D$P @t \ C$P Bh b N$[ J8 d O$Y J8 ` K2$Y J8 j N $[ HD f $0v[[$[($/v[ 0USECNTd= 0USEPRTo@ 0VACSICKe 0VSPRT E 0W2FORMT 0WKCOMPA cADD Mi cCHK Mo cDUMY \qKk cH \BN cINIT\I$g S l Y[$ix W b EV$P Bh \ FP$P Bh j Ty$_ N d Q$_ N b z"J8 u0` }"L, y^ $0v[[$[($/v[ 0USECNTd= 0USEPRTo@ 0VACSICKe 0VSPRT E 0W2FORMT 0WKCOMPA cADD Mi cCHK Mo cDUMY \qKk cH \BN cINITJ8$U FP b GJ$W D\ ^ { "L, y^ z"N }d G$[ FP l J8$Y FP \ D\$S @t h FP$S @t f $0v[[$[($/v[ 0USECNTd= 0USEPRTo@ 0VACSICKe 0VSPRT E 0W2FORMT 0WKCOMPA cADD Mi cCHK Mo cDUMY \qKk cH \BN cINITS$c J8 \ P$e J8 h I>$S @t h FP$U Bh d Q$e J8 Z R$kl HD ` }"N ixf }"L, m`h $0v[[$[($/v[ 0USECNTd= 0USEPRTo@ 0VACSICKe 0VSPRT E 0W2FORMT 0WKCOMPA cADD Mi cCHK Mo cDUMY \qKk cH \BN cINITW[)$0v[[$[($/v[ 0USECNTd= 0USEPRTo@ 0VACSICKe 0VSPRT E 0W2FORMT 0WKCOMPA cADD Mi cCHK Mo cDUMY \qKk cH \BN cINITW[)$0v[[$[($/v[ 0USECNTd= 0USEPRTo@ 0VACSICKe 0VSPRT E 0W2FORMT 0WKCOMPA cADD Mi cCHK Mo cDUMY \qKk cH \BN cINIToty vJp~D vJp@D!VBV+@4+4++vP JP +D  `V @@0*V @@0$V0@0v VJL @v Dv ZJdv-t gv#`hvinstv#u V00@x T0Xx{ V 0EDDOC%}Kv$VG0IVG.KvKIvMKgVKvIK"h@KK',,v@@@1"46K^vO-`v-XbMdv-Of^!VB@KV+@6++6+*h@v1pv3/V40v-T Mj+ vPh@vQ+v2@v@v +Tjv Rv  !VB@ V+@M^v-\ v#@v*@vPv""4v# V0P600@V0pV0H h@@!tv?v!@ h@@v??@V?@ :v-@M!tv-d   !t!VB@b:V++6+@6+`ZvW+ : VA@w j@WEF V!tv-` V0X p  j@ v-p $)  @.38j@ =^B  @CEG j@ I^L vY;ZR@V v[\]+B` X^@ jv_ ^^t~V`V`pV TZaJ T`HVwvZ@vYYVv+@vZ@VvZ`h v+Y$$;.@r| Xa@D  V_0 aaZava v`a@"ap^ Xb@  X^D P  V bb0 ^^Z^Zb Vb@  v  @b@  v  b@b  &^ 0v  : l jTRANS ov@@@ q"4 vr$EDDOC h@) Xc|- h@ Zc j !^!4v !>vZ<!Hv\@!R XR@ !\ V RR>0!fT\!p T"M"j"v-U"M" @@"v/@"v-d "M" v-f @ "M" v-j `"M" V`"jX"XLHP "`"V`@4LX4Lx"v-L"M"j " VLD 6LP V" TLD gx" v-n Lp"M"" jP LP "" "j"" "j""v-r "M"ZL"v/@#T#$v-I$ M$v-O$^$v-J$$" X-KM$'M$,Z-$1$6 X-NO$;M$@Z-$E$Jv-P$O$Tj ? $Y$[ V/.@$\v=@$]^$^V/$c  b$hV   0/@$mv=$rk$w^$|  @b$v=@$v  @ @$9$v=@$^$ XL @~@$ V LL. $ v  @L@$ZL$^$@ %D%I >%NV!@4+6++ %PvE+%Sv-l %Uv"%X%]V .@ %^V! %_vFN %`!.%bvF%g!.%l!%qVB@!%v%{ %|V!@4+6++ %vF+%VF>E!.%v-A%M% >%vA%^%vA@%^%V%!V%%v/@%^%vO-%% T*@"1!i"1% j@@`%v@@@%"%V".!%v/@%%%%%%*%%V%%%%#j##%%$% %%E%(%%%%W%%f%h%g%g%%h%7%n% %%%%%&%%4%-%.%%%%&v&&w&x&& & &:&&&&&,&&6&9& 8&";&$<&&&(&+'&,&.&0&2G&4+&6MxGwv'8&}UGHA MxGw v(8'8UGHA )8)!SKR2 NG:*8*#}PR1035@`x hB @"G1QaPR1035H 1. the town hospitallated because both talk about:plains. 4 Y0HHP ` p   7%<&t=&vJ&x&z#&|&~&4&T&T&&HH0123456789+-Ee. ,=-;ETOANIRSHDLCWUMFYGPBVKXQJZetoanirshdlcwumfygpbvkxqjzH4 @ That isn't so-is it? Read the paragrphs once agan. lains. and&H3$&%&&$&&%&&&@($'dMEMBER fHREPLY FOR THIS GROUP:NAME? NO MORE ALLOWEDCORD***$IDAFJI@@`@CORRECT ANSWER RANGE #REPLY FOR THIS RANGE: WRONG ANSWER GROUP #WRONG ANSWER RANGE #REPLY TO UNEXPECTED ANSWER:FAILURE MESSAGE:HINT #ARE YOU STILL THERE?+LESSON GENERATION TERMINATED!"ILLEGAL INPUT, TRY AGAINFILE IN USE; ACCESS DENIED, OR //STON//OPT //SIZR//HELP//ERRP//FINEYESINONENOSAMPPROAPPEDELINSNMOV4STRONUMTKEYTRITTIMERED,MULACOUA//D02G INTRALESSON BRANCH; TRY AGAIN@@@ @ e@p1n@ a@8 Does paragraph one mention the hospital? Read both@paragrahs again.@@@@@@@@i@ @p3@ @8 That isn't so-is it? Read the paragrphs once agan.@@@@@@@@ @ w@p4 combination in3 one paragraph@meD }`@? You will often find a combination of types in a paragraph.@;Looking for them and recognizing them helps you to find the@main idea of the paragraph.@ @<os{.G5S & p 02000C { X2000C bMAC cMAC 2000C 2000C 2000C2 2000ChC 2000Cn RMASON  2000C ACCTw FIRST  TARGET> SECONDq PROD eTERRY1d fTERRY2 gTERRY3  o  uFORMS> z  ,% - .RENTN D /RENT, 0 DS4p HSC4 05d06 d  07d08dK 09d 10d 11d 124db 13d14d15d162 172182# 19220221222t2123224R2252 dACESAILOR,SPEEDAVRUMSIGHXVEGASJEDSSD1d\SSD2dYSSD3ddSSD4d 0USECNTd= 0USEPRTo@ 0VACSICKe 0VSPRT E 0W2FORMT 0WKCOMPA cADD Mi cCHK Mo cDUMY \qKk cH \BN cINIT \qT* cINT \ cINT3 \j cMOVER \ol cMVR MKll cMVR1 Jl@ cP JT+ cR \ cREP Mk cRONSONMo cRONTRYJQUIKY  #s REPORT o SALES  K WKRPRT ] ESA oT ME p MIHA ot AF Oo C2 |K C3 |s C4 |U C5 | C6 |͈ C7 |p CF |K COMB x CON iU CRAPS ]7 DAES Y͍ DIF'SYp  EC OK ES ͙ M5 |p' M6 |L  M7 | MAH18U MAS  X MF |͞ NAE bp,r NUB bL NUMBER. PDBIN #U3 PHODEb" PHON bͥ PKDBIN Yp PROG2 JL!j PUB 7 REVGATU5 SF OB SINGLE4ͩ> SK1 j!&p SK2 OLL1 START @!LJC JLS,X0Y1 Z2[RENT"d3\DUCKWd W9TWX  TEL7XLOEM_ 6 "CCD1RAC2MDC3dBHC4MCC5DEC6GBC7DJKC8KEC9POC1APC2ISC3q#TBC4JWC5Q?30002dB03d04)SSD5d _!HD8"BOB#MB3$TUF%DJGJADdT?AdGAHdJCRdRBPddJPK eGEM1#EfGCCAgLADRoJACKC)X HELP GOODBADSAV 0UNTSUMU2 0UPDTAQo 0UPDTG KY 0UPDTIC6 0UPDTQ T 0UPDTSBKm cSTCK \m cSUB MT, cT J cTRASH Dqm cTRY Mqo cTRY1 GKn cTRY2 G& cTRY3 GT- cTRY4 G cTRY5 Hn cTRY6 Io cTRY7 JKq cTRY8 K. cTRY9 \T06 cTRYX M FCNSRT`gr FIE Yho FIE01 DKvd FIE02 Dd FIE03 @T5 IPRS  :Oz@ FA |U FB | FC |͒ FD |p GATES 6K# GOFERY HDCP PUm HDPS Y  HOLBIN S͗S HPGOLFp INTIAbL LI1965  LI1967 U LISDIF LISHCP͘ LISPHObp# LIST L LJH  M2 |U M3 | M4 |TEP YU8 TEP-2YL VAB1 ͪ VAB2 pJ VICE @LQ WXY {  BOB U=V BOB1 Q UW1 ͯd R19241(p R19242(LR R19243( R19244(UE j? _v@ d g V=0@ iV=@ Z n T@@ " sv:P ? xv8@ {v@@ }z V= < V@@ " vhh@ vh@ ; = V=0@ @VA B E v  v8@ T" jSYSTEM ERROR #" v:@ z v:H z v:P z  v-Vvv*` Vh V00@60HV0p7 v-W V0.@Tv+@h!VB@h7V++6+@6+*h`  DSKR1@&V&@ jMISvDD"vDD"VD,j:T8j jEjF^v31 v11 v3/V40zv-ZMz|j13h`'55hCjC hj j^h@GCj`C$H H@bth@Cj`CTh@j`Th@I h`6+6++vX+v@"4v-@v#@ v# V00@60HV0p$).V$@K3v*@58 XJHP 9v"`=v-JBVJP6JX4$@DGVJ`6Jh6Jp4`@DIVJP 4$4`@DLO V/0@QS  DV VJD 6JP [VJD `eV0HjV0pjv  !VB@V+@6++6+*hv@@$@fff"4vI+h@IK XL+|h@ vLL@ZL vhvhh@vpGp@vH= XL@|hvMLVM.GgvLIh@MNVN.GvHIvGIM=VN0 vMNgZL*hvP+v jv   !"VB@$V+@6+*h@&vQ+)vSP+VP>Q-XLP|Q@/ vLL@1ZL3 vQ@S5K: XLP|Q@~@? vLL@DZLIvQSNKXvT@ Z V`@E\h@T^vT@$T`3bvUT@ $T@ T@ d V`@}f vVU T@hh@VjvUVlnvTVp VT"U@arv,Ut^vv-Z {%v/@*^4j`RESTART 9rCbH h@@M@EVRh@XWVX@6X`6XX\@@_h@XcVX6XN 6XXf@@ih@XmVX6XN 6XXp@@sh@w pz@@}h@ p@!t!tv-YM j@@`V T`HV+*V`(v]]@2v++P `<V]VFv\\@PVZV``dV`HnVR@VxV`v]]@V] v\\@vRRPv++ `$RV T`HVAvZPv[P$[ `V[F Vv;;VV`H-Z^"VZ@, ֏\ ;$[x 6 v+Y$+P(;$[@ v+Y$+8J v++$+>TvB@^RR@9!z!vZZ@! v ZZ RR!v\@!ZR!^! V RR.F!v<@!! h@)p"  " X0@` "h@ " V @ 0 "$Z0".v0"8^"Bv0@"L^"`d "bj"dv/@"f Vd.@c"hvO-"jv-V "lM"nv-O"pd "rj"t Vd0@!^"vv/@"xv "z"{"|v "} T0!^!!"~V0` "  A"^"!@""v-O"^"M"" V/0@"V/"^"vO-"v/@"v-E"M#v-O#^# vO-# v-R#v/@##( Xa@ #2v_ aa#< V_, d d @#F V_* HH@#P X^^ H#Z V_0 ^^0#dZ^#nv aa ^h ^h #xZa#^#  #v^@#V^ # V ^^. x# v ^ ^@#V#v^^@#V#  #R#^#vO-#$V=@ ($ V=0@ $V @@.$$ $j$v $v  $!$VB@$v-Q$M$$V+@6+[6++$v8@$v $z$v:P$v8`$vF+$z$^$v8@$z$V=%v %v8@% z%^%ve"%v"e%v-h %v=%!%" V/.@ e%#v=@%$^%&  !7%+V .@ %,V! %-vE%. %0vE%5 %:!%?%^&v/&^&vO-&V%!H&v-B&M& jh&%v-C&'M&* jp@&,v-D&/M&4 j,"p@&6j&9v/@&>v-O&C^&H h@@&Rj@&\nj@'&fnj@(&i h@@&p &b& h@@&j@& nj@'(& h@@&^'`#j!#@$UP$z`$~0$$$ $$ %0%@%e%5%6%7%8%9%:%;%<%=%>%E%F%G%%ZZ``@PhxD L T \ d p x H4 @ That isn't so-is it? Read the paragrphs once agan. lains. andacegikHHP oqsuw&y'{*}DG`p@HPX`deQ!0;`@@@@@`NB @D @@@@@@`@@@L @B @ONO@@@@@4`@D @EVENTUAL DESTINATION FILENAME? MEDIT DIRECTIVE? A TEXT:C QUESTION:ICORRECT ANSWER GROUPREPLY FOR THIS GROUP:ECORRECT ANSWER GROUP #CORRECT ANSWER RANGE$NOT RECOGNIZED; PLEASE TRY AGAIN/LESSON FILE TOO SHORT; ACTIVITIES ABORTEDELESSON NAME = VERSION NUMBERTEST RUN ? STARTING SECTION ? A**IGNORED**T**NO BRANCHING**CURRENT SECTION DISCARDED4 TIME = 15 REDISPLAY=YES MULTIPLE CORRECTESS DENIED, OR @' 2. what happened after the rescuei@& 3. te happinss of their families@ 4. miningg@@@@p@@@@f@ T`2a@ @ Excellent.@@@@<@ Find main ideas first, then think about the relatonship@>and, if you are asked to do so, select the item which explains@the relationship.@@@@@@@@@8 The paragraphs are related because both talk about:@ @ 1. the town hospital*.D؂ة o@ &d @Y11d ! *Aڛ % *M =*UW=A= " (  !?@AEHz >VsLJC JLS,X0Y1 Z2[RENT"d3\DUCKWd W9TWX  TEL7XLOEM_ 6 "CCD1RAC2MDC3dBHC4MCC5DEC6GBC7DJKC8KEC9POC1APC2ISC3q#TBC4JWC5Q?30002dB03d04)SSD5d _!HD8"BOB#MB3$TUF%DJGJADdT?AdGAHdJCRdRBPddJPK eGEM1#EfGCCAgLADRoJACKC)X HELP GOODBADSAV 0UNTSUMU2 0UPDTAQo 0UPDTG KY 0UPDTIC6 0UPDTQ T 0UPDTSBKm cSTCK \m cSUB MT, cT J cTRASH Dqm cTRY Mqo cTRY1 GKn cTRY2 G& cTRY3 GT- cTRY4 G cTRY5 Hn cTRY6 Io cTRY7 JKq cTRY8 K. cTRY9 \T06 cTRYX M FCNSRT`gr FIE Yho FIE01 DKvd FIE02 Dd FIE03 @T5 IPRS  :Oz@ FA |U FB | FC |͒ FD |p GATES 6K# GOFERY HDCP PUm HDPS Y  HOLBIN S͗S HPGOLFp INTIAbL LI1965  LI1967 U LISDIF LISHCP͘ LISPHObp# LIST L LJH  M2 |U M3 | M4 |TEP YU8 TEP-2YL VAB1 ͪ VAB2 pJ VICE @LQ WXY {  BOB U=V BOB1 Q UW1 ͯd R19241(p R19242(LR R19243( R19244(UE j? _v@ d g V=0@ iV=@ Z n T@@ " sv:P ? xv8@ {v@@ }z V= < V@@ " vhh@ vhPLAN  PR CASE1, 36790 REV A, 2/74, PLAN - PART 4 OF 5R DATA SEQUENCE IN DATA STATEMENTS IS "NAME",AND THENR FOR EACH OF THE PAST FIVE YEARS: TOTAL MARKET,MARKETR SHARE,PRICE,GROSS C MARG,OVERHEAD,ADV.,PROMOTION H 13A,8D,8D,8D,8D,8DH" 13A,4D.3D,4D.3D,4D.3D,4D.3D,4D.3DH 13A,3D,8D,8D,8D,8D,8D H% 13A,3D,4D.3D,4D.3D,4D.3D,4D.3D,4D.3D 0N 2Ab rHF N@P`p    N  Ҕ  OLh@P`pdNOYESPRICE ADVERTISING PROMOTION X@@h@H@H#Z(d SALES VOL SALES $  GR C MARGOVERHEAD-d GR MARGIN ADVERT.  PROMOTION NET OP PR2 X@P7h@p@p<ZAdMARKET SHARE PRICE GR C MGFdOVHD/UNOV CONSADV/UN KdAD CST PROM/UNPROM CTLhMjNj&WHICH PRODUCT DO YOU WANT TO CONSIDER?Oj(0=TACOS,1=MATZO BALLS)Qf&RV&@WSjTjUjV_W X@pX X@PYhZZ[Z\h ]j^j _j` X@pa X@PbhdZiZkln X@PsM2@@$@xM2@2@$`}M2`2@$@M2@PM2P2`#2@M2``M2ppM2@2P#2`#2pZj jHISTORICAL FILEM j{{ {0{@{PjMMARKET.j@@@@@`@@@PMSHARE.j@@@@@`@@@PMPRICE.j`@`@```@`P M GROSS C MARG.j@@@@@`@@@Pj X@PL@`L`PLPpLPpHZ Y@PM$ Y@P M$$ [ Y@P4Mbfff%$fff$@$@$@"@ @@$P["['j,jBASE PLAN INPUT PROJECTIONS1 j8 LINE # 1974 1975 1976 1977 19786j; X@P@ X@PEM}%b@}JZOTT^^^^T^T^TT1j@p@p@@`@PYc^1j @p@p@@`@PcZdjej5DO YOU WANT AN EXPLANATION OF THE INPUTS?(0=NO,1=YES)gf'hV'tijjj!'MARKET' IS TOTAL INDUSTRY MARKETk j7'SHARE' IS CONCORN'S SHARE OF THE TOTAL INDUSTRY MARKETlj&'GR C MG' IS GROSS CONTRIBUTION MARGINm j7'OVHD/UN' IS OVERHEAD PER UNIT (VARIABLE OVERHEAD COST)nj4'OV/CONS' IS OVERHEAD CONSTANT (FIXED OVERHEAD COST)oj 'ADV/UN' IS ADVERTISING PER UNITpj 'AD CST' IS ADVERTISING CONSTANTqj'PROM/UN' IS PROMOTION PER UNITrj'PROM CT' IS PROMOTION CONSTANTsj#'NET OP PR' IS NET OPERATING PROFITtjuj4DO YOU WISH TO OVERRIDE ANY PROJECTIONS?(0=NO,1=YES)vf(wV(| j WHICH LINEg j NEW VALUES gb@b@b`b@bPjjANY OTHERS?(0=NO,1=YES)f)jV)| Y@PMr@b`[\jjL@ jPLANNING BASE P/L Y@P MA2@ Y@` Mr2@ MbHr[MbpbHMb@r@MbPr`[ j2SPECIFY RESPONSE COEF TO BE USED FOR EACH OF 5 YRSjj`*f@@@@@`@@@P!jp&*f@@@@@`@@@P+j0*f`@`@```@`P?jDj.WHICH MARKETING VARIABLE DO YOU WANT TO CHANGEEj!PRICE=1,ADVERTISING=2,PROMOTION=3IvNjSPECIFY NEW LEVELS BY YEARS gr@r@r`r@rPXj]jANY OTHERS?(0=NO,1=YES)bf>gjlV.qDvf.{M@V.@^M@V.@M`V.`M@V.@jBAD FORMAT RETYPE ITv Y@PM!@M!!$r@'b`(@M!!$r@'bX(@M!!$r`'b`(`[ Y@PM2@A%![ Y@PMb@r@MbPr`[\j DO YOU WISH TO TRY ANOTHER PLAN? j (0=NO,1=YES)f* jV*@Dj-DO YOU WISH TO CHANGE A RESPONSE COEFFICIENT? j (0=NO,1=YES)f+ j%V+* j WHICH ONE?+j#(1=PRICE,2=ADVERTISING,3=PROMOTION)/v4 j NEW VALUES9 f@@`@P>jCjANY OTHERS?(0=OO,1=YES)Hf,MV,@*W\ Y@PaVkfM2@b@%b@kM2@2@%r@p"M2`2@$b@!r@#b`uM2@2@%bP!b`zM2P2`#2@M2`2@%bp!b@M2p2@%bH!bPM2@2P#2`#2p[^`jM j{`{p{{{j X@@ X@PM2@Z0j@H@H@@`@PZj^j(DO YOU WISH TO CONSIDER ANOTHER PRODUCT? j (0=NO,1=YES)f-V-@'dTACOSL, N OL O O bM^RQTzPbNTTTTTywus r\CA@~@}BAad]NNOUZ\ d MATZO BALLSR_pGJ \(kkffffffIIAAAS33S33FffFffFffZ\^`_`@}}}}}Xj@^dp'``PLOT Q ) KD$H H*10 Fr$PLOT1(R PROGRAM NAME = PLOT, BEGINS PLOTTING PROGRAM2R CHAINED TO PLOT1, PLOT2FOHPw* 1. 2. 3. 4. 5. 6. 7. 8. 9.10.11.12.13.14.U V00REPEATZj0DO YOU WANT A LIST OF THE TYPES OF RELATIONSHIPSdfnV0NOx V.YESZj&jCTHIS PROGRAM WILL PLOT ANY OF THE FOLLOWING TYPES OF RELATIONSHIPS:jj% DIRECT RELATIONSHIPS OF THIS TYPE:wH@1. Y = A*X + Cj' INVERSE RELATIONSHIPS OF THIS TYPE:@2. Y = (A/X) + Cjj* PARABOLIC RELATIONSHIPS OF THESE TYPES: X@P`$@`$` Y = v@jj"Z,j& POWER RELATIONSHIPS OF THESE TYPES:6 X``@`$@`$` Y = Jv@T^jhdrj |jZj0 WHICH OF THE RELATIONSHIPS DO YOU WANT TO STUDYfj V44xjwH`$@`$ Y = jdj j\Xv&\^^60\^:j- - - - - A PLOT OF Y =DzNXj% USE VALUES OF A BETWEEN 5 AND 20bj l^vj$ USE VALUES OF A BETWEEN 1 AND 5j ^(jH USE VALUES OF A AND B BETWEEN 1 AND 3, VALUES OF C BETWEEN -3 AND 3j ^j ^j USE POSITIVE VALUES OF Aj ^T*>Rf(<P vA*X + C^v(A/X) ^vA*X^2 ^* v A*X^2 + C4^> v A*(X-H)^2H^R vA*(X-H)^2 + K\^fvA*X^2 + B*X + Cp^zT$Vt j* X +1@v$1@^ j(/X)^j* X^2^j * X^2 +1@vv$^ j* (X -)^2v v$@$$ v1@$$^$j* (X-)^2 +D.v8 v$@$$B v1@$$ DL^Vj * X^2 +$* X +1@`vj^tj* X^3~^ j * X^(1/3)^ j * X^(2/3)^ j * X^(1/2)^ j * X^(3/2)^j/X^2^vA*X^3^ v A*X^(1/3) ^ v A*X^(2/3)^( v A*X^(1/2)2^< v A*X^(2/3)F^PvA/X^2Z^dT`nnv x^ v(SQUARE)^v(CUBE)^v(CUBE ROOT, OR 1/3 POWER)^ v (2/3 POWER)^v(SQUARE ROOT, OR 1/2 POWER)^ v (3/2 POWER)^ v(INVERSE SQUARE)^j#INPUT THE VALUE OF THE CONSTANT A f"j ,^6j#INPUT THE VALUE OF THE CONSTANT B @f$Jj T^^j#INPUT THE VALUE OF THE CONSTANT C hf1@rj |^j#INPUT THE VALUE OF THE CONSTANT H fj ^j#INPUT THE VALUE OF THE CONSTANT K fDj ^`4PREREGD O/r#R **** HP BASIC PROGRAM LIBRARY *******************************RR PREREG: COLLEGE REGISTRATION DEMORR 36282 REV A PART 3 OF 10 6/73R#R **** CONTRIBUTED PROGRAM ************************************ R FILES STUDNT R PRE REGESTRATION - ENTER STUDENT NAMES N  0@P `Np#O(jRESPOND WITH ANSWER OR END2j< j STUDENT #?FfK V0ENDPwZ#(dWnw x#(WX j LAST NAME?f j FIRST NAME?f0 jMIDDLE INITIAL?f@jPHONE?fPjSEX?f`jCITY?fpjSTATE? f jSTREET ADDRESS?f,j@ 0@P`p`6<j-STUDENT IN FILES DO YOU WISH TO CHANGE DATA?g W0YESW0NO<XjNO MORE STUDENTS ALLOWEDb#(R GET STUDENT OR COURSE FILE. #FOp  #G V`@#N#Hw@#I Y@@ #Jh@p#KWp1#P#Lw@#M[#Nw#O^#Ph@#Uw#V^# V`@##w@# Y@H#h@p#Wp1##wh#[#w#^#h@#w#^#`4fPROG   pVARS,JRVARNn(nj@2nj@<`fREG  )#R **** HP BASIC PROGRAM LIBRARY *******************************RR REG: COLLEGE REGISTRATION DEMORR 36282 REV A PART 6 OF 10 6/73R#R **** CONTRIBUTED PROGRAM ************************************vޞD pSTUDNT,COURSE,WORK,STUDNT,COURSE R ACTUAL REGESTRATION N  0@P `Np#N Д $O 0 @P(jRESPOND WITH ANSWER OR END2j<j=j> j STUDENT # ?FfK V0END!>PwZ#(dWnw x#(W! j LAST NAME?f j FIRST NAME?f0 jMIDDLE INITIAL?f@jPHONE?fPjSEX?f`jCITY?fpjSTATE? f jSTREET ADDRESS?f,j@ 0@P`p`R NAME,ADD ,ETC ARE NOW STORED AWAYR A$=STUD # & X=SECTOR  h@@h@ j`@`v6&V 0X@|: h@D#NW!4X h@bV.!4lV!4vv@X@| h@V0v@Z!4v66  j``Z j! jCOURSE-SECTION"fp% Vp0ENDX4 X@h> Vp0-HZRjERROR\  vp@@ vp@w#R Z$=COURSE K$=SECTION Z=SECTORW@ V`` h`@h`V1 h@V6 * v@V X@|$h@. h@ 8V0jBv@LZV@`R jV0 lt V``~ h`@h`   !4 X@ @ X@@W@0 @ ZZR ALL OK NOW TO REG IN COURSE  j``v@v66 hPp jP  V@F X@|@( h@0@P2 jP0@P<ZFjP  `G hP@H h@@x V`@ h@@v@ j@@ V@ X@|@ h@ j@Zj@  ` h@@ h@@@jCREDITS ENTERED SOFAR= 6J X h@ 0@bjcjdjlj   0 @vj h@@V"jCOURSEhSECH CRDS` j INSTRUCTOR^ TIMEjv6X@| h@#W!4 h@v@X@| h@ V0v@ZjhH `  ^ v66 Zj jTOTAL CREDITS= 6jj <@jCOURSE OR SECTION NON EXISTENTJ  j ALREADY HAVE  V60 &  jTOO MANY CREDITS  & jAT MAX CREDITS NOW 0X l j SECTION FULL vR COULD PRINT AVAILABLE  jTIME CONFLICT WITH   !4jTROUBLE!>b!jNO ROOM FOR STUDENT!b#(R GET STUDENT OR COURSE FILE. #FOp  #G V`@#N#Hw@#I Y@@ #Jh@p#KWp1#P#Lw@#M[#Nw#O^#Ph@#Uw#V^# V`@##w@# Y@H#h@p#Wp1##wh#[#w#^#h@#w#^#`pREPS D O2#R **** HP BASIC PROGRAM LIBRARY *******************************RR REPS: COLLEGE REGISTRATION DEMORR 36282 REV A PART 4 OF 10 6/73R#R **** CONTRIBUTED PROGRAM ************************************ pSTUDNTO` N  0P pvd jALL OR STUDENT # ?g` V`@#w@(h@)V0 n* W`0ALL,+W`.n,vd@-h@ 0@P`p2j   0 @< j p,F jP SEX `P X@`ZjdZnw@( X@PjZVd@ j NOT IN FILESb j END OF FILE`SALSIM ) pML0005,ML0017 "j;PLEASE TYPE IN THE NUMBER OF STEPS THEN THE NUMBER OF LANES jSEPARATED BY A COMMA. f$v4$$X@|4i$ j@$`#Z2X@|47i$< j@$`AZEjFj5WHAT NUMBER DO YOU WANT TO MULTIPLY YOUR SCHEDULE BY?Gj6(SEE INSTRUCTIONS FOR DETAILS.) IF YOU DO NOT WANT TOHj&MULTIPLY YOUR SCHEDULE, TYPE IN A 1 .IgZOnOєx*N 0@P`pNДjj2PLEASE ENTER YOUR LANE HEADINGS. MAXIMUM HEADING j0LENGTH IS 7 CHARACTERS. PLEASE TYPE ONLY 0NE j3LANE HEADING AFTER EACH QUESTION MARK THAT FOLLOWS.vĞX@|$gvĠ@T,@Th|V*$ 6Zvv ",v06@v@JTvP^hv`r|vpvvvvvvvvojoo h@@X@|X@|$ h@& V`@N0Z:ZDSN j8STOP THE COMPUTER HAS NOT READ THE 'PROPILE PROPERLY'.S h@@XX@|bX@|$l h@qw%@v V`@ZZ!j:STOP THE COMPUTER HAS NOT READ THE 'PERMAT FILE PROPERLY'.j0DO YOU WISH TO ADVANCE ALL TEACHERS ONE STEP FOR j8PROJECTED COST COMPUTATIONS? (TYPE 1 FOR YES, 2 FOR NO.)gW@* X@|@X@|$M%@ZZX@|$ w$!@Z \*X@|4X@|$>M%HZRZ\wfX@|pX@|$zw$@$@!Z M$@$!ZX@|$X@|M@@!Z M!@Z M@$@jj/DO YOU WANT A PRINTOUT OF THE PERSONNEL MATRIX?j(TYPE 1 FOR YES, 2 FOR NO.)fHVH@jj j8 *****PERSONNEL MATRIX (TRAINING BY EXPERIENCE)*****$j.X@|$8jLANEBZLjVj` X@|@j X@|$@tk~ZjjZjj5THE AVERAGE STEP (ROW) ATTAINED BY YOUR CURRENT STAFFjIS'd@djjaj ,j .vĠ@ /wTOTAL 0 3j 6j 8'jE$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ Bj Lj Vj `$j? *****COST BY CATEGORY FOR THE PROPOSED SALARY SCHEDULE***** jj tvt ~X@| X@|$ M$@$@! Z Lt$@ t Z X@|$ X@| M@@! Z Z M@$@t j j (j   0 @ P 2%j ------- ------- ------- ------- ------- 7j <j F X@|@ P X@P Z j$ dZ nj xj Z j &jD$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ j j j j V$P 4 j 'jE$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ j j j %jB*****COST BY CATEGORY FOR THE PROPOSED SALARY SCHEDULE (CONT)***** j j j j ` p   V$H X`P j ------- Z  X`|$@ j ------- Z R j j V$P T  X@|@  X`|$@ " j$ ,Z 6V$H ; 8j ;j =j @Z Ej J T X@|@ ^ X`P h j$ rZ |j j Z j %jA$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ j j j V$H 4 j $j@$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ j j &j 0%jB*****COST BY CATEGORY FOR THE PROPOSED SALARY SCHEDULE (CONT)***** :j ?j Dj Nj     X XX|$@ b j ------- lZ qV$p vj j j X@|@ XX|$@ j$ Z V$p j j j Z j %jB$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ j j j *j 4j >j4THE TOTAL COST FOR THE PROPOSED SALARY SCHEDULE IS $t Hj Rj \vvw fX@|$ pv@%@ zLvv  Z j2THE TOTAL COST FOR THIS SALARY SCHEDULE WOULD BE $v j%IF ALL TEACHERS WERE PLACED ON STEP 1 j j $jP R P9=SIZE OF ARRAY PMPM-@ R Q9=SIZE OF ARRAY Q"MP,Ld 6M>d@R FILEA IS USED FOR GRADES, FILEB FOR CRITERIONSJpFILEA,FILEBTR N4=NUMBER OF STUDENTS REGISTERED ON THE SYSTEM +1^L@hL͞rLf@|Lg@RR--------------------------------------------**********R2 jPASSWORDf0V00 b jHELP AVAILABLE/@ TYPE COMMANDf0V0@`<DRO V0@`<ALT0 &20 V0<ENDD:bD V0<REGNV`flXblj3SYSTEM PARAMETERS NOT SET, REGISTRATION TERMINATEDv V0<STA  V0<INP  V0<UPD  V0<CLE V0<SYS V0<CRI   V0@`<HEL*>4>j1ALT --- ALTER: ALTERS STUDENT NAME OR PASSWORDH#j>CLE --- CLEAR: ERASES STUDENT NAMES AND THEIR GRADE RECORDSRj/CRI --- CRITERIA: INVOLKES THE CRITERIA FILE\j MAINTAINANCE SUBSYSTEMfj+DRO --- DROP: DROPS A REGISTERED STUDENTpj*END --- TERMINATES A SYSTEM OR SUBSYSTEMzj0INP --- INPUT: USED TO INPUT STUDENT'S GRADESj5REG --- REGISTRATION: PLACES THE STUDENT NAMES ANDj! PASSWORDS ON THE SYSTEMj(STA --- STATUS: PRINTS STATUS REPORTSj2SYS --- SYSTEM: USED IN INITIALIZING THE SYSTEM#j=UPD --- UPDATE: PERMITS THE CORRECTION OF A STUDENT RECORD^!R-------------------------::::------::::-----:::-REGISTRATIONhf@ j REGISTRATIONj.IF YOU MAKE AN ERROR IN TYPING A STUDENT NAME,j6YOU MAY CORRECT IT BY USE OF THE ALT (ALTER) COMMAND.jj$TYPE END TO TERMINATE REGISTRATION L . >!!@jRECORD LENGTH --  WORDSV@B$j,WARNING -- RECORD LENGTH EXCEEDS 256 WORDS.b8R READ SYSTEM'S PARAMETERSB L R ZERO ALL ARRAYSVP` X@@jM--t M,-h ~ W,@7,l j M,,ZV> j TYPE NAMEf@ V@0END V<͢@jAPPROACHING END OF FILEL@M6V`f R WRITE RECORDB `j"FILE FULL, REGISTRATION TERMINATED (^2 jSTUDENT NUMBER<g6F W6@76*2Pw66@Zjdj@njALTER NAME OR PASSWORDxf0V0@@0NV0@@0PnjNAMEf@ jPASSWORDgB^R--------------------------------UPDATE j RECORD UPDATE j AUTHORIZATIONf0V00 "b"j'SET STUDENT NUMBER = 0 TO TERMINATE UPD, jTYPE X TO BYPASS6 jSTUDENT NUMBER@g6JW6TM66@^ W6@76*6hjrj@|jDISPLAY: CBG, Q, E, OR Xf0V00X V0<CBGL7 V0<Q dV0<E| jUPDATE: CBG, Q, E, OR Xf0V00X V00CBG:V00Qv&V00E0: j EX#,CBG,CR1Dg&v6N XL!&vbL1&6lv j QUIZ#,GRD?g&vM&v j EXAM#,GRD?g&vM&vB6^R-------------------------------------------PRINTR jSTATUS REPORTS jHELP AVAILABLEj'SELECT REPORT: DMP, GRD, NAM, RAN, STU f0 V00RAN V00GRD$* V00STU 64 V00NAM \> V00DMP4HV0@`0HEL\R\Rf/`*** SGFMS STATUS REPORTS ***pjz j8DMP --- DUMP PRINT: PRINTS THE RESULTS OF A SELECTED j QUIZ OR EXAMj3GRD --- GRADE PRINT: PRINTS A 2 LINE SUMMARY OF j EACH STUDENT'S WORD j7NAM --- NAME PRINT: PRINTS A LIST OF THE REGISTEREDj, STUDENTS NAMES AND THEIR PASSWORDS!j:RAN --- RANGE PRINT: PRINTS A SELECTED RANGE OF STUDENT j RECORDS#j>STU --- STUDENT PRINT: PRINTS A INDIVIDUAL STUDENT'S RECORDjEXPAND CRITERIA (Y/N)L7f0V00Y  V00N $  L7@ $ j LOWER LIMIT? .f 8VƬ@ $ B j UPPER LIMIT? Lf V V*6*@ $ ` Y6Ơ@|Ǡ@ jj t W0XXXX ~/`-----/` j@ S#=6@ j   d  [6 ^ X@|. V! Z jNO CBG'S STORED  Z jCBG'S X@|.  V! P V7@ F ( j 2! 2 H "EX #",3D," -- ",3D < P F PZ Z^ d W@ njNO QUIZ GRADES STORED x j QUIZ GRADES o3 X@} M1 Z  ^ W@ jNO EXAM GRADES STORED  , M o3 X@} M1 Z  j EXAM GRADES " ,^ 6 jSTUDENT NUMBER @g6 J W656, ^ T 6 ^M66@ hj r W<XXXX |jSTUDENT HAS BEEN DROPPED  6 j @ M: X@|. V! Z j NO CBG STORED  b /@CBG'S/@ v X@|. V! : L7 M:: ! L@  V1 : & 0H 3D,2X,3D,2X,3D,1X,65A :Z Dj N:& NH "CBG AVERAGE ",3D.3D Xj b W@ ljNO QUIZ GRADES STORED v j QUIZ GRADES X@} W j * M! Z j &@ H "QUIZ AVERAGE ",3D.3D,"" W@ jNO EXAM GRADES STORED  H j TEST GRADES X@}  W 4 j * M  ! Z *H 3D,5X,3D 4 j > &@ >H! "EXAMINATION AVERAGE ",3D.3D,"" H^ RR-------------------------------------------NAME PRINT \L fjSINGLE OR TRIPLE SPACE REPORT pf0 z V00SINGLE V0<TRIPLE f L@ j jREGISTERED STUDENTS  X@| hf@ W0XXXX M6@ V@ j j 6@ H 3D,3X,25A,5X,4A Zj^ R--------------------------------------------------GRD PRINT$j!CHECK IF ALL RECORDS ARE COMPLETE.f08V00YVBV00NL$V"j;INPUT TOTAL NUMBER OF CBG'S, Q, & E WHICH SHOULD BE PRESENT`g, j/@MISSING GRADE PRINT/@tY6@|~vŞ` W0XXXXj j6@@ H "",4D,2X,30AX@}, V! j H #,"CBG# ",2D,2XvŠ@VŬ@ jvŞ ZX@} Wd(j22 H #," P# ",2D,2X<vŠ@FVŬ@dPjZvŞdZnX@} x Wj H #," E# ",2D,2XvŠ@VŬ@jvŞZj[6/@CONTINUEf0V00YV00N* w: j4INPUT PERCENTAGE WEIGHTS FOR FINAL GRADE COMPUTATION"jCBG'S,g6 j QUIZ GRADES@gJosTX@}^jWEIGHT OF EXAM  -- hgqrw!q| WqZw!! Wc5ej'PERCENTAGES DO NOT = 100%, REENTER THEMw/` GRADE PRINT /`X@|jM: M6j W0XXXX vX@|. V!:&v@0M:: !:ZDX@}N WlXM!bZlX@}v Ww  %qQZLW:L:&W L&@ R COMPUTE FINAL GRADEMV%PMW%PwX LiV!W!X j@@iH 3D,3X,25A," FG=",3D.3D j@@ %HC"CBGA(",2D,")=",3D.2D," QA(",2D,")=",3D.2D," EA(",2D,")=",3D.2D Z*^4jDUMP QUIZ OR EXAM>M:HLRf0\ V0<QUIZfjQUIZ #pg z W @7 +fM:@j H "QUIZ #",2D,5X,25Aj  V0<EXAM4jEXAM #g  W @7 +j H "EXAM #",2D,5X,25Aj H ""Y6@|j W0XXXX$W:. W L8 j6@@BVL j~6@@ V W `L@jL! t~ H 3D,5X,25A,7D.2D H 3D,5X,25A,6X,"NG" W  j6@@ j~6@@  W L@L! [6j CLASS AVERAGE -- &j^ R RECORD DROP ROUTINE jSTUDENT NUMBERg6w66@(j2 jDROP @<f0FV0@@0YdPV0@@0NZ2dwXXXXn8x jSTUDENT DROPPED^R-------------------------------INPUTj SELECT INPUT MODE: CBG, Q, OR Ef0V00E,V00Q, V00CBG j EXERCISE #fV V4@. jINVALID EXERCISE #j'ALL INPUTS WILL BE PLACED IN EXERCISE #/`", j STUDENT NUMBER6g6@M66@JW6@T W6@56@r^j INVALID STUDENT NUMBER h,rj| W<XXXXj@ HAS BEEN DROPPED,j@ V00ENDV00QV00EH jINVALID GRD TYPE, j STUDENT NUMBERg6w66@W6@ W6@56@jINVALID STUDENT NUMBERj& W<XXXXD0j@ HAS BEEN DROPPED:Dj@N V!lXj! ALREADY STOREDbljGRD,CR1?vfv6 V646@>jINVALID CRITERION #l L16L!vBPR---------------------------------------------QUIZ INPUTjQUIZg'X@} W* ZjQUIZ STORAGE SPACE FULL ,*M'4>R----------------------------------------------EXAM INPUTHjEXAMRg'\X@}f WpZzjTEST STORAGE SPACE FULL,M'BP,^"R-----------------------------------------------DISC FILE CLEARjSTUDENT RECORD FILE CLEAR j AUTHORIZATIONf0 V00 ^j!TYPE C TO CLEAR OR A TO ABORTf0V00C.V00A$.MXXXX8L@XXXXBY6@|LBV[6` jL@t ~ jCLEAR COMPLETED^!R -------------------------------------CRITERION MAINTAINANCE jCRITERIA MAINTANCEjSELECT: CLE, END, INP, PRIjTYPE CRITERIA COMMAND f0 V0<CLEZ V0<INP  V0<PRI(( V00ENDF2 jINVALID COMMAND<F^P!R-------------------------------------------CRITERION F CLEARZjCLEAR CRITERIA FILESdj'TYPE C TO CLEAR FILES OR X TO ABORTnf0xV00CV00XdX@|>jgZ jCLEAR COMPLETED^j&INPUT (SET C#=0 TO TERMINATE ROUTINE)V`grjSYSTEM WILL ACCEPT > CRITERIA /@C#f6 V6,>46"V6hjINVALID CRITERIA NUMMBER"hg6, @@6j@/@ CRITERION:JfTjg6^h^rj"CRITERIA FILE HAS NOT BEEN CLEARED|^ j LOWER LIMITR--------------------------------CRITERION PRINTjSELECT PRINT: RANGE OR SELECTf0 V00RANGE V00SELECTv j LOWER LIMITf6jUPPER LIMIT (MAX IS > f7V6,7jUPPER LIMIT EXCEEDS LOWER LIMITjX6|7&V`gl0hg: @XDjNNH 2D,3X,65AXZbjl^vjC#?f6 V646@> j INVALID C#vhg6jN6^!R----------------------------------------SYSTEMS CONFIGURATIONjSYSTEMS CONFIGURATIONhf@V`f hf@>jDISPLAY OR RESET PARAMETERS?f0 V00DISPLAY V00RESET* * j COURSE NAME4g>j1NUMBER OF BLOCKS ALLOCATED FOR FILEA (GRADE FILE)HfRj4NUMBER OF BLOCKS ALLOCATED FOR FILEB (CRITERIA FILE)\f>fhf@p@zzz jf@>L@ jf@>^jSYSTEM'S PARAMETERS  jCOURSE NAME:  j@H- "NUMBER OF RECORDS PRESENTLY ON SYSTEM ",3DjH' "RECORD SPACE ALLOCATED ",3D," BLOCKS"j>H2 "CRITERION STORAGE SPACE ALLOCATED ",3D," BLOCKS"^R NOTE:!R THE FIRST RECORD OF FILEA IS RESERVED FOR SYSTEM PARAMETERS$R STUDENT RECORDS ARE STORED STARTING WITH RECORD #2.R ----------------******8R ------------------------------------------DISC WRITEBjf6@L njf#3V^`R ------------------------------------------DISC READjhf6@t nhf#3~^2vX@} W1v@ j1H #,"G",2D,"--",3D.2D,3XV@jvZj^ V`f hf@>^(R ------------------------------------------ARRAY CLEAR2X@}< M@FZPX@}Z M@dZnX@|.x L!@Zn3^ V1c L@1L@, V1NL@1dL@1"@dL@,L`1N M1"`N L@dL@"@d"L`,X@|6hg@V@^J j 0!Tr^ jhh H 10X,3D,1X,65ArZ|^ R-----------*******R NOTE:R ALL 3 CRITERION ARE STORED IN THE SAME WORD OF STORAGER THE FIRST CRITERION # IN THE 2 RIGHT-MOST DIGITSR THE 2ND CRITERION # IN DIGITS 3 AND 4R THE 3RD CRITERION IN DIGITS 5 AND 6RR EXAMPLE: 670605R C1=5R C2=6R C3=67 R----------*********R THIS SECTION INPUTS CRITERION #2 AND #3 L78 jCR2 f7 &V7 b 0 V7@67*>  :jCR3 Df8 NV8 b X V8@68*> : b L66 7d 8N  l^ v R---------------------------------SYSTEM'S PARAMETERS WRITE jf@> ^ R--------------------------------SYSTEM'S PARAMETERS READ hf@> ^ `SNOBER  KefghijklJ>>0F@F`FK2J`n J15Kr@ JU^ !R HP CONTRIBUTED LIBRARY, 2/75, 4 PROGRAMS: SNOBOL, SNOBEX, R SNOBER, SNOBLD.wUKW2(wM2UPdx<wXFU,@Th|P jINVALID USE OF *Zd jMISSING RIGHT 'nx jINVALID DELIMITER j LINE TOO LONG j INVALID LABELjIMPROPER EQUALS SIGN jIMPROPER VARIABLE j IMPROPER GOTOjINVALID STRING LENGTHj*SYSTEM ERROR - STACK EXHAUSTED PREMATURELYjINVALID END STATEMENT",jIMPROPER VARIABLE REFERENCE6@j INDIRECT REFERENCE NOT TO A NAMEJTjNUMBER LARGER THAN 31 DIGITS^hjNON-NUMERIC VALUE FOUNDr| jINVALID SUBJECTjEQUALS SIGN MISPLACEDjINVALID PATTERN MATCHjSYSTEM ERROR - INVALID OP CODEj$SYSTEM ERROR - STACK SHOULD BE EMPTYj%ATTEMPTED ASSIGNMENT TO A NULL STRING jINVALID SUBJECT`tSOFAR  )R#R **** HP BASIC PROGRAM LIBRARY *******************************RR SOFAR: COLLEGE REGISTRATION DEMORR 36282 REV A PART 7 OF 10 6/73R#R **** CONTRIBUTED PROGRAM ************************************ R STUDENTS REGISTERED SO FAR REPORTpCOURSEN  ( V`@2vV<jF"jCOURSEhSECH CRDS` Kj INSTRUCTOR^ QUOTAj SOFARPjZv@d X@Hnh@xV0 h@v@ X@`h@V0  h@ &jhH `  ^ j vVV v֠@ZjvhZjTOTAL REGISTERED SOFAR =Vj`tSSVE @ OS 229-56-5036BANISCHJIMZ265-7000MKING OF PRUSSIAPENN.1021 EIGHTH ST.^,yJn"Z:ߺ̺Ztx.\Bڦ[:tz.D  4@hFkפb 4h(Pi$pbΪc n@"D 78npRC9sp&Œj>|4 \-pZx^J:[t|. D-Z @u^J 3gϠfR̤Zbv~BʠNI.\1c6d229-56-5036BANISCHJIMZ265-7000MKING OF PRUSSIAPENN.1021 EIGHTH ST.^,yJn"Z:ߺ̺Ztx.\Bڦ[:tz.D  4@hFkפb 4h(Pi$pbΪc n@"D 78npRC9sp&Œj>|4 \-pZx^J:[t|. D-Z @u^J 3gϠfR̤Zbv~BʠNI.\1c6d56-5036BANISCHJIMZ265-7000MKING OF PRUSSIAPENN.1021 EIGHTH ST.8ZX!2_T%"JD6VlX2'OTJ,7o|>$|H1&bLĘv:2td*S4[\{B *T @]ƻ^,Xmfޓ3Jf(\r b-[ yRH @)RUFb^ļ:uV*w4֊Z:"tD Ãv(QأTL_޿56-5036BANISCHJIMZ265-7000MKING OF PRUSSIAPENN.1021 EIGHTH ST.8ZX!2_T%"JD6VlX2'OTJ,7o|>$|H1&bLĘv:2td*S4[\{B *T @]ƻ^,Xmfޓ3Jf(\r b-[ yRH @)RUFb^ļ:uV*w4֊Z:"tD Ãv(QأTL_޿ 149-24-6864FRANKCLEE@Z667-4000M CHERRY HILLRN.J.1060 N. KINGS HIGHWAYT8ZX!2_T%"JD6VlX2'OTJ,7o|>$|H1&bLĘv:2td*S4[\{B *T @]ƻ^,Xmfޓ3Jf(\r b-[ yRH @)RUFb^ļ:uV*w4֊Z:"tD Ãv(QأTL_޿149-24-6864FRANKCLEE@Z667-4000M CHERRY HILLRN.J.1060 N. KINGS HIGHWAYT8ZX"2_T%"JD6VlX2'OTJ,7o|>$|H1&bLĘv:2td*S4[\{B *T @]ƻ^,Xmfޓ3Jf(\r b-[ yRH @)RUFb^ļ:uV*w4֊Z:"tD Ãv(QأTL_޿24-6864FRANKCLEE@Z667-4000M CHERRY HILLRN.J.1060 N. KINGS HIGHWAYT8ZX"2_T%"JD6VlX2'OTJ,7o|>$|H1&bLĘv:2td*S4[\{B *T @]ƻ^,Xmfޓ3Jf(\r b-[ yRH @)RUFb^ļ:uV*w4֊Z:"tD Ãv(QأTL_޿24-6864FRANKCLEE@Z667-4000M CHERRY HILLRN.J.1060 N. KINGS HIGHWAYTW`W`*$P%$@*$ *Z` 136-26-1841BOLCIKBOB@Z948-6370M ROCKVILLELMD..2 CHOKE CHERRY LANEHYTӺ,vI.ݢȊZI5.j\ԸzT P*U@bFČ^:tV*G4+W\jl}J!(BP- Z0uLJ{ 'O@KƗ<^xx6ޚz:QtT.\]>/_f @$H 7Xn`RG,Yܳtl͂J]ڻ-DZwfJt.ϢfZ̴ZD>136-26-1841BOLCIKBOB@Z948-6370M ROCKVILLELMD..2 CHOKE CHERRY LANEHYT#8V}#;#9 j TRY AGAIN#:#6#;X@|#< L䞿@#=Z#>jHOW MANY PLAYERS (1 TO 6)#?f#@ nO@@#A##B##CV@@T #x#DX@|#E V@T #H#FLԞ@#G26-1841BOLCIKBOB@Z948-6370M ROCKVILLELMD..2 CHOKE CHERRY LANEHYT@#u#qLԞ@#r!V@@,@6@@T #t#sLԢ@#t##u##vZ#w#~#xX@|#y V@T #|#zL@#{##|##}Z#~L@###j#j#j#26-1841BOLCIKBOB@Z948-6370M ROCKVILLELMD..2 CHOKE CHERRY LANEHYT#^# V`## V0@## jPLAYER#jCARDS`POINTS@### j $@#^# j DEALER ### V@T ##jBUSTED#^#V@ 065-32-2709TIBALDIGEORGEA4265-5000MOPARAMUSN.J.120W CENTURY RD.YTӺ,vM.ݢȊZI5.j\ԸzT P*U@bFČ^:tV*G4+W\jl}J!(BP- Z0uLJ{ 'O@KƗ<^xx6ޚz:QtT.\]>/_f @$H 7Xn`RG,Yܳtl͂J]ڻ-DZwfJt.ϢfZ̴ZD:065-32-2709TIBALDIGEORGEA4265-5000MOPARAMUSN.J.120W CENTURY RD.YT4jPROD. O/H RATE467898j 9j <vGD F=vIG H>j MATERIAL O/HDFGHI?vWT V@vYW XAjDIRECT MATERIALTVWXYB vdD&TdC vfF&VdD vgG&WdE vhH&XdF viI&Yd32-2709TIBALDIGEORGEA4265-5000MOPARAMUSN.J.120W CENTURY RD.YT I y ~j P-*-M-*-E-*-A`32-2709TIBALDIGEORGEA4265-5000MOPARAMUSN.J.120W CENTURY RD.YT*Gd_M$A~&ME&L!Cx68lpЦjjԶ{"(P8q@Fp"kn"+V(Pe̤WiNҜ~rBN Z=hz 0.`\F 7Hn džRE$Iܓ4ilزs2db -ZZhx,JڠO:tJ.\5k69TrPj84ph 012-28-2705KELLEYKENEZE948-6370M0 ROCKVILLEUMD..2 CHOKE CHERRY LANEYT*GdcM$A~&ME&L!Cx68lpЦjjԶ{"(P8q@Fp"kn"+V(Pe̤WiNҜ~rBN Z=hz 0.`\F 7Hn džRE$Iܓ4ilزs2db -ZZhx,JڠO:tJ.\5k69TrPj84ph012-28-2705KELLEYKENEZE948-6370M0 ROCKVILLEUMD..2 CHOKE CHERRY LANEYT*Gd[M$A~&ME&L!Cx68lpЦjjԶ{"(P8q@Fp"kn"+V(Pe̤WiNҜ~rBN Z=hz 0.`\F 7Hn džRE$Iܓ4ilزs2db -ZZhx,JڠO:tJ.\5k69TrPj84ph28-2705KELLEYKENEZE948-6370M0 ROCKVILLEUMD..2 CHOKE CHERRY LANEYTv&A V00COVERAGEFB V00BILLINGdC V00BOTHxFfKdf&ixv&}f&h@$v v$$ & j@$bZj3CONTRACT NOT IN FILE-DO YOU WISH TO INSERT ?(Y ORN)28-2705KELLEYKENEZE948-6370M0 ROCKVILLEUMD..2 CHOKE CHERRY LANEYT*GdcM$A~&ME&L!Cx68lpЦjjԶ{"(P8q@Fp"kn"+V(Pe̤WiNҜ~rBN Z=hz 0.`\F 7Hn džRE$Iܓ4ilزs2db -ZZhx,JڠO:tJ.\5k69TrPj84ph 102-34-9148KUPIECJOHNQE265-5000M0PARAMUSLN.J.120W CENTURY RD.ANEYT@Z v@!@$v@!@"@ v@ @X@| v!$ v!"v@  V> V0v!""102-34-9148KUPIECJOHNQE265-5000M0PARAMUSLN.J.120W CENTURY RD.ANEYTj!qAZj&'()*+j<X@|j<1!qAZ v@ V0@jjj*jSUMMARYV@:!X@34-9148KUPIECJOHNQE265-5000M0PARAMUSLN.J.120W CENTURY RD.ANEYTvBV*UXbL=zN8 p)S[Fz^ @@F9r0`R 44hhѠnRܤƎbB n*Upd&LI1Nb8V| <x4ivb ZOM.\34-9148KUPIECJOHNQE265-5000M0PARAMUSLN.J.120W CENTURY RD.ANEYTvBV*UXbL=zN8 p)S[Fz^ @@F9r0`R 44hhѠnRܤƎbB n*Upd&LI1Nb8V| <x4ivb ZOM.\ 018-26-2291MOORECJERRYZ861-8960M LEXINGTON.MASS.W32 HARTWELL AVE.YTvBV*UXbL=zN8 p)S[Fz^ @@F9r0`R 44hhѠnRܤƎbB n*Upd&LI1Nb8V| <x4ivb ZOM.\018-26-2291MOORECJERRYZ861-8960M LEXINGTON.MASS.W32 HARTWELL AVE.YTvBV*UXbL=zN8 p)S[Fz^ @@F9r0`R 44hhѠnRܤƎbB n*Upd&LI1Nb8V| <x4ivb ZOM.\26-2291MOORECJERRYZ861-8960M LEXINGTON.MASS.W32 HARTWELL AVE.YTY(Jq޷{Jh={@0<`xFz:Utd.\IB2Nd8Ld@ ~5kR7oPWjjܸB /(^PR4iHҐfr$Վb~ Z%hJЕ8q v2mT"7o(ɖrN*TE$I56jlض{2TP:u@FҰo4ɮNGn*U]e26-2291MOORECJERRYZ861-8960M LEXINGTON.MASS.W32 HARTWELL AVE.YT OF CONTRACTS:BfFV`<P jCONTRACTVgVWjUNPAID PROG BILLINGXgWZh<[X@|\h<1!qA]Z^X@|_ v1#AdZivA@V@`nvA@ 179-32-2102MASONCJERRYQ265-5000MPARAMUSON.J.120W CENTURY RD.E.YTaqZbv<<@ V<1@^`179-32-2102MASONCJERRYQ265-5000MPARAMUSON.J.120W CENTURY RD.E.YTY(Jq޷{Jh={@0<`xFz:Utd.\IB2Nd8Ld@ ~5kR7oPWjjܸB /(^PR4iHҐfr$Վb~ Z%hJЕ8q v2mT"7o(ɖrN*TE$I56jlض{2TP:u@FҰo4ɮNGn*U\e32-2102MASONCJERRYQ265-5000MPARAMUSON.J.120W CENTURY RD.E.YTY(Jq!޷{Jh={@0<`xFz:Utd.\IB2Nd8Ld@ ~5kR7oPWjjܸB /(^PR4iHҐfr$Վb~ Z%hJЕ8q v2mT"7o(ɖrN*TE$I56jlض{2TP:u@FҰo4ɮNGn*U\a32-2102MASONCJERRYQ265-5000MPARAMUSON.J.120W CENTURY RD.E.YTV@jIN ORDER OF PRIORITYjjKEY # COL #,LENGTHX@|jg1Z h@@X@|h@vX@|v @ 11 v " 096-32-6412PROSSCCHUCKZ948-6370M ROCHVILLEMD.2 CHOKE CHERRY LANE"UQ8D"D;w8p&jiz.sD ;Zvhr*Hz/.^\5djՐf~ j%KP:u v2h4lDΌ' N(E,#Gj,DOUBLE-QUOTES NEED NOT AND MUST NOT BE USED.Hj.THE PROGRAM EVALUATES ANY ELEMENT CONTAINING AR j7NON-NUMERIC AS A STRING. ONLY STRINGS CONTAINING COMMAS\ j7OR ALL NUMERICS MUST B32-6412PROSSCCHUCKZ948-6370M ROCHVILLEMD.2 CHOKE CHERRY LANEVP#LP(@ @P($"L@VpVdLVhL@V@dZ V@@.-L 029-30-8343ROSENCSTEVEX861-8960M LEXINGTONMASS.32 HARTWELL AVE."UQ9D"D;w8p&jiz.sD ;Zvhr*Hz/.^\5djՐf~ j%KP:u v2h4lDΌ' N(E,#G}#Gp+V evS[Nz~B $ H@.F\v 2d0a 4RhHlb, X(m,Þ+300-30-7507BROWNNAUGEX454-2486MSYRACUSEN.Y.5858 EAST MOLLOY RD.Kn: 6ײz4iдw$b Z_.'ODJV6m}#Gp+V evS[Nz~B $ H@.F\v 2d0a 4RhHlb, X(m,Þ'30-7507BROWNNAUGEX454-2486MSYRACUSEN.Y.5858 EAST MOLLOY RD.Kn: 6ײz4iдw$b Z_.'ODJV6m}#Gp+V evS[Nz~B $ H@.F\v 2d0a 4RhHlb, X(m,Þ#30-7507BROWNNAUGEX454-2486MSYRACUSEN.Y.5858 EAST MOLLOY RD.Kn:6ײz4iдw$b Z_.'ODJV6m}#Gp+V evS[Nz~B $ H@.F\v 2d0a 4RhHlb, X(m,Þ+  507BROWNNAUGEX454-2486MSYRACUSEN.Y.5858 EAST MOLLOY RD.Kn: 6ײz4iдw$b Z_.'ODJV6m}#Gp+V evS[Nz~B $ H@.F\v 2d0a 4RhHlb, X(m,Þ'  507BROWNNAUGEX454-2486MSYRACUSEN.Y.5858 EAST MOLLOY RD.Kn: 6ײz4iдw$b Z_.'ODJV6m}#Gp+V evS[Nz~B $ H@.F\v 2d0a 4RhHlb, X(m,Þ# 507BROWNNAUGEX454-2486MSYRACUSEN.Y.5858 EAST MOLLOY RD.T$8Lb>}~!C: t0ݦȒjJ45k\ָ%TJP7oߘv2YTsBDډ A\%lJؕ8qLv2qT"wn"ՊZ} :t$IГ4i vp2db` n("PDNVF<'O|K6l:t}~!C: t0ݦȒjJ45k\ָ%TJP7oߘv2YTsBDډ A\%lJؕ8qLv2qT"wn"ՊZ} :t$IГ4i vp2db` n("PDNVF<'O|K6l:t}~!C: t0ݦȒjJ45k\ָ%TJP7oߘv2YTsBDډ A\%lJؕ8qLv2qT"wn"ՊZ} :t$IГ4i vp2db` n("PDNVF<'O|K6l:t}~!C: t0ݦȒjJ45k\ָ%TJP7oߘv2YTsBDډ A\%lJؕ8qLv2qT"wn"ՊZ} :t$IГ4i vp2db` n("PDNVF<'O|K6l:t}~!C: t0ݦȒjJ45k\ָ%TJP7oߘv2YTsBDډ A\%lJؕ8qLv2qT"wn"ՊZ} :t$IГ4i vp2db` n("PDNVF<'O|K6l:t}~!C: t0ݦȒjJ45k\ָ%TJP7oߘv2YTsBDډ A\%lJؕ8qLv2qT"wn"ՊZ} :t$IГ4i vp2db` n("PDNVF<'O|K6l:t&|LA&L#Gx+&VLfv[{N> |@ .0m  507BROWNNAUGEX454-2486MSYRACUSEN.Y.5858 EAST MOLLOY RD.bĝVi{ 8(pPPơP^N|H>|.>\|6 d.] R(QHRfVޭh|>mۄN9 r(Ֆr~* 4&hLЙ@ ^=xz&L 02`dɀFMқD~>} 6l$I`4h vh2dibIJrξ #ZFh(P,XME|.>\|6 d.] R(QHRfVޭh|>mۄN9 r(Ֆr~* 4&hLЙ@ ^=xz&L 02`dɀFMқD~>} 6l$I`4h vh2dibIJrξ #ZFh(P,XME|.>\|6 d.] R(QHRfVޭh|>mۄN9 r(Ֆr~* 4&hLЙ@ ^=xz&L 02`dɀFMқD~>} 6l$I`4h vh2dibIJrξ #ZFh(P,XME|.>\|6 d.] R(QHRfVޭh|>mۄN9 r(Ֆr~* 4&hLЙ@ ^=xz&L 02`dɀFMқD~>} 6l$I`4h vh2dibIJrξ #ZFh(P,XME|.>\|6 d.] R(QHRfVޭh|>mۄN9 r(Ֆr~* 4&hLЙ@ ^=xz&L 02`dɀFMқD~>} 6l$I`4h vh2dibIJrξ #ZFh(P,XME|0 L-0Z`v^JLA.\#G-&ZLvvۂJ8qr|* 4h,Y@s^J? \2epSRZw~>ʶz:t 3g@΀o% 507BROWNNAUGEX454-2486MSYRACUSEN.Y.5858 EAST MOLLOY RD.;9*tz.ˢVZf\]BN#G+fV̭hvkN *T(P]̄.\}f$ H@  >|0 L-0Z`v^JLA.\#G-&ZLvvۂJ8qr|* 4h,Y@s^J? \2epSRZw~>ʶz:t 3g@΀n- 507BROWNNAUGEX454-2486MSYRACUSEN.Y.5858 EAST MOLLOY RD.;=*tz.ˢVZf\]BN#G+fV̭hvkN *T(P]̄.\}f$ H@  >|0 L-0Z`v^JLA.\#G-&ZLvvۂJ8qr|* 4h,Y@s^J? \2epSRZw~>ʶz:t 3g@΀n)  507BROWNNAUGEX454-2486MSYRACUSEN.Y.5858 EAST MOLLOY RD.;A*tz.ˢVZf\]BN#G+fV̭hvkN *T(P]̄.\}f$ H@  >|0 L-0Z`v^JLA.\#G-&ZLvvۂJ8qr|* 4h,Y@s^J? \2epSRZw~>ʶz:t 3g@΀n%  507BROWNNAUGEX454-2486MSYRACUSEN.Y.5858 EAST MOLLOY RD.bTnf8\d b5k R 7oPޠʆRQT`>/_V#G,YXsǂJEڋ$I\2elآS2dZu~>´vޢʊZQU.\a>7oVU*Taܔ7BnVE*T!C܇9lrئj"D4h<,xXjzp:t.`n,"XDnV[ 507BROWNNAUGEX454-2486MSYRACUSEN.Y.5858 EAST MOLLOY RD.bTof8\d b5k R 7oPޠʆRQT`>/_V#G,YXsǂJEڋ$I\2elآS2dZu~>´vޢʊZQU.\a>7oVU*Taܔ7BnVE*T!C܇9lrئj"D4h<,xXjzp:t.`n,"XDnVW 507BROWNNAUGEX454-2486MSYRACUSEN.Y.5858 EAST MOLLOY RD.q&v!&" v"ZV@,X@| w 1 w!! a wQQ  waa  wqq A w!1 w    507BROWNNAUGEX454-2486MSYRACUSEN.Y.5858 EAST MOLLOY RD.bTof8\d b5k R 7oPޠʆRQT`>/_V#G,YXsǂJEڋ$I\2elآS2dZu~>´vޢʊZQU.\a>7oVU*Taܔ7BnVE*T!C܇9lrئj"D4h<,xXjzp:t.`n,"XDnV[  507BROWNNAUGEX454-2486MSYRACUSEN.Y.5858 EAST MOLLOY RD.bTpf8\d b5k R 7oPޠʆRQT`>/_V#G,YXsǂJEڋ$I\2elآS2dZu~>´vޢʊZQU.\a>7oVU*Taܔ7BnVE*T!C܇9lrئj"D4h<,xXjzp:t.`n,"XDnVW 507BROWNNAUGEX454-2486MSYRACUSEN.Y.5858 EAST MOLLOY RD.bTpf8\d b5k R 7oPޠʆRQT`>/_V#G,YXsǂJEڋ$I\2elآS2dZu~>´vޢʊZQU.\a>7oVU*Taܔ7BnVE*T!C܇9lrئj"D4h<,xXjzp:t.`n,"XDnVS 507BROWNNAUGEX454-2486MSYRACUSEN.Y.5858 EAST MOLLOY RD. h`!PV@vP h`!@V,vV+PD X|@~@ v!!@Z&v!0Dv@NvV"@XV<bv!lvwV  507BROWNNAUGEX454-2486MSYRACUSEN.Y.5858 EAST MOLLOY RD. V0STOPV0 jMOREfV@@<Nbvƞvv@ V0Ơ@"V^,V@6V@@<'@v@Jv@T^ V  507BROWNNAUGEX454-2486MSYRACUSEN.Y.5858 EAST MOLLOY RD.ION BY GIVING THE COMMAND:j j KILL-FILE2jj5N IS AN INTEGER REPRESENTING THE NUMBER OF RECORDS TOj2SET ASIDE FOR YOUR DATA. REFER TO THE TSB LANGUAGEj%MANUAL FOR MORE HELP WITH DATA FILES.j j7THE FILES ARE RE 507BROWNNAUGEX454-2486MSYRACUSEN.Y.5858 EAST MOLLOY RD.PED WITH THE LASTj0ENTRY BEING THE WORD 'STOP' ON A LINE BY ITSELF.jj*NOTE:j/ THE DELIMITER MAY BE CHANGED IN STATEMENT 30. j FOR INSTANCE:!j9 IF A SPACE DELIMITER IS REQUIRED INSTEAD OF A COMMA - j8 30 D 507BROWNNAUGEX454-2486MSYRACUSEN.Y.5858 EAST MOLLOY RD.X V0  X@P V0 ZdL @P("ZV@@.-,"L, ֏J d6 @j@`J j END OF FILETb^  507BROWNNAUGEX454-2486MSYRACUSEN.Y.5858 EAST MOLLOY RD.~3Yʧ?tnBTک`\-BZwVJp.ln"%K(9s,X2,Y4hr,՞~J 'hNНH /^^x6;dvfjMzC.\3g&g$dbĞJ8q8ӶvT"NJZE%.J\6ml23gTΨbr;bvV*Lz?.~\ 'O|  507BROWNNAUGEX454-2486MSYRACUSEN.Y.5858 EAST MOLLOY RD.jp֮k*T">(|P /0^`5kH֐fj"EP#G̏,vXplJؔn"!C(3,fX̰Z$w~Bʸ~ :t,Yгt ^JWگl\B'O(K,;w(|P /0^`5kH֐fj"EP#G̏,vXplJؔn"!C(3,fX̰Z$w~Bʸ~ :t,Yгt ^JWگl\B'O(K,;w(|P /0^`5kH֐fj"EP#G̏,vXplJؔn"!C(3,fX̰Z$w~Bʸ~ :t,Yгt ^JWگl\B'O(K,;w(|P /0^`5kH֐fj"EP#G̏,vXplJؔn"!C(3,fX̰Z$w~Bʸ~ :t,Yгt ^JWگl\B'O(K,;w(|P /0^`5kH֐fj"EP#G̏,vXplJؔn"!C(3,fX̰Z$w~Bʸ~ :t,Yгt ^JWگl\B'O(K,;w(|P /0^`5kH֐fj"EP#G̏,vXplJؔn"!C(3,fX̰Z$w~Bʸ~ :t,Yгt ^JWگl\B'O(K,;w|>iӄNu Z'OL@ށ!|B&2Ld0L$? ~-[}RH:u @Үk4:(tPކRQ4Q\S]>  507BROWNNAUGEX454-2486MSYRACUSEN.Y.5858 EAST MOLLOY RD.UB2bN~:BtV*W4k\B/_(P!B$H+WXjL}J(:Pt@Ҧ[4yD @(QQFR^V|h>|>iӄNu Z'OL@ށ!|B&2Ld0L$? ~-[}RH:u @Үk4:(tPކRQ4Q\S]>  507BROWNNAUGEX454-2486MSYRACUSEN.Y.5858 EAST MOLLOY RD.UB2bN~:BtV*W4k\B/_(P!B$H+WXjL}J(:Pt@Ҧ[4yD @(QQFR^V|h>|>iӄNu Z'OL@ށ!|B&2Ld0L$? ~-[}RH:u @Үk4:(tPކRQ4Q\S]> 507BROWNNAUGEX454-2486MSYRACUSEN.Y.5858 EAST MOLLOY RD.UB2bN~:BtV*W4k\B/_(P!B$H+WXjL}J(:Pt@Ҧ[4yD @(QQFR^V|h>|>iӄNu Z'OL@ށ!|B&2Ld0L$? ~-[}RH:u @Үk4:(tPކRQ4Q\S]> 507BROWNNAUGEX454-2486MSYRACUSEN.Y.5858 EAST MOLLOY RD.UB2bN~:BtV*W4k\B/_(P!B$H+WXjL}J(:Pt@Ҧ[4yD @(QQFR^V|h>|>iӄNu Z'OL@ށ!|B&2Ld0L$? ~-[}RH:u @Үk4:(tPކRQ4Q\S]>  507BROWNNAUGEX454-2486MSYRACUSEN.Y.5858 EAST MOLLOY RD.UB2bN~:BtV*W4k\B/_(P!B$H+WXjL}J(:Pt@Ҧ[4yD @(QQFR^V|h>|>iӄNu Z'OL@ށ!|B&2Ld0L$? ~-[}RH:u @Үk4:(tPކRQ4Q\S]>  507BROWNNAUGEX454-2486MSYRACUSEN.Y.5858 EAST MOLLOY RD. 2Pϱ@Lҙ@~={& L)0R`Vƭh^мjՄN} $(HP.] v2 d@ȁf A0'LN0GL+Wxl6l J@(,>X| L50j`z P.]@F#GH*fT̩`v+WiVҬrN Z.]hЂ&$LH>f| x6mƖ:ur 507BROWNNAUGEX454-2486MSYRACUSEN.Y.5858 EAST MOLLOY RD. 2Pϵ@Lҙ@~={& L)0R`Vƭh^мjՄN} $(HP.] v2 d@ȁf A0'LN0GL+Wxl6l J@(,>X| L50j`z P.]@F#GH*fT̩`v+WiVҬrN Z.]hЂ&$LH>f| x6mƖ:ur 507BROWNNAUGEX454-2486MSYRACUSEN.Y.5858 EAST MOLLOY RD. 2PϹ@Lҙ@~={& L)0R`Vƭh^мjՄN} $(HP.] v2 d@ȁf A0'LN0GL+Wxl6l J@(,>X| L50j`z P.]@F#GH*fT̩`v+WiVҬrN Z.]hЂ&$LH>f| x6mƖ:ur  507BROWNNAUGEX454-2486MSYRACUSEN.Y.5858 EAST MOLLOY RD. 2Pб@Lҙ@~={& L)0R`Vƭh^мjՄN} $(HP.] v2 d@ȁf A0'LN0GL+Wxl6l J@(,>X| L50j`z P.]@F#GH*fT̩`v+WiVҬrN Z.]hЂ&$LH>f| x6mƖ:ur  507BROWNNAUGEX454-2486MSYRACUSEN.Y.5858 EAST MOLLOY RD. 2Pе@Lҙ@~={& L)0R`Vƭh^мjՄN} $(HP.] v2 d@ȁf A0'LN0GL+Wxl6l J@(,>X| L50j`z P.]@F#GH*fT̩`v+WiVҬrN Z.]hЂ&$LH>f| x6mƖ:ur 507BROWNNAUGEX454-2486MSYRACUSEN.Y.5858 EAST MOLLOY RD. 2Pй@Lҙ@~={& L)0R`Vƭh^мjՄN} $(HP.] v2 d@ȁf A0'LN0GL+Wxl6l J@(,>X| L50j`z P.]@F#GH*fT̩`v+WiVҬrN Z.]hЂ&$LH>f| x6mƖ:ur 507BROWNNAUGEX454-2486MSYRACUSEN.Y.5858 EAST MOLLOY RD. {7ߠ̆RYtBdɴNDGΏ,~Xq6lpJn"an4"hDЈViwb Zs.ǢFZ&M\Bl0<`x&+W$HiӬvN Z;wr*Śz>:|t. \1pb>}"8Dp> |v +W`jՌ^~ J%(JP6m v2-[T,  507BROWNNAUGEX454-2486MSYRACUSEN.Y.5858 EAST MOLLOY RD. {7ߠ̆RYtBdɴNDGΏ,~Xq6lpJn"an4"hDЈViwb Zs.ǢFZ&M\Bl0<`x&+W$HiӬvN Z;wr*Śz>:|t. \1pb>}"8Dp> |v +W`jՌ^~ J%(JP6m v2-[T(  507BROWNNAUGEX454-2486MSYRACUSEN.Y.5858 EAST MOLLOY RD. {7!ߠ̆RYtBdɴNDGΏ,~Xq6lpJn"an4"hDЈViwb Zs.ǢFZ&M\Bl0<`x&+W$HiӬvN Z;wr*Śz>:|t. \1pb>}"8Dp> |v +W`jՌ^~ J%(JP6m v2-[T$ 507BROWNNAUGEX454-2486MSYRACUSEN.Y.5858 EAST MOLLOY RD. {7ߠ̆RYtBdɴNDGΏ,~Xq6lpJn"an4"hDЈViwb Zs.ǢFZ&M\Bl0<`x&+W$HiӬvN Z;wr*Śz>:|t. \1pb>}"8Dp> |v +W`jՌ^~ J%(JP6m v2-[T, 507BROWNNAUGEX454-2486MSYRACUSEN.Y.5858 EAST MOLLOY RD. {7ߠ̆RYtBdɴNDGΏ,~Xq6lpJn"an4"hDЈViwb Zs.ǢFZ&M\Bl0<`x&+W$HiӬvN Z;wr*Śz>:|t. \1pb>}"8Dp> |v +W`jՌ^~ J%(JP6m v2-[T(  507BROWNNAUGEX454-2486MSYRACUSEN.Y.5858 EAST MOLLOY RD. {7!ߠ̆RYtBdɴNDGΏ,~Xq6lpJn"an4"hDЈViwb Zs.ǢFZ&M\Bl0<`x&+W$HiӬvN Z;wr*Śz>:|t. \1pb>}"8Dp> |v +W`jՌ^~ J%(JP6m v2-[T$  507BROWNNAUGEX454-2486MSYRACUSEN.Y.5858 EAST MOLLOY RD.t_Z:Ϻft.]D)S[fz 0 `@F)SH[ַ| 4h @hѤnbΚC n2ep&U$c~DBNN|~ 3gfͤ^bĆ5kfj* 507BROWNNAUGEX454-2486MSYRACUSEN.Y.5858 EAST MOLLOY RD.tcZ:Ϻft.]D)S[fz 0 `@F)SH[ַ| 4h @hѤnbΚC n2ep&U$c~DBNN|~ 3gfͤ^bĆ5kfj* 507BROWNNAUGEX454-2486MSYRACUSEN.Y.5858 EAST MOLLOY RD.tgZ:Ϻft.]D)S[fz 0 `@F)SH[ַ| 4h @hѤnbΚC n2ep&U$c~DBNN|~ 3gfͤ^bĆ5kfj*SSRP  \pFILEA,FILEBR SGFMS, HP 36832A, 6/74( O<R FILEB IS USED TO STORE THE CRITERION STRINGSPR FILE A IS USED FOR STORING STUDENT GRADESdLf@xLg@N0R D$ IS A STUDENT NAME BUFFER, Y$ IS THE COURSE NAME N@ANR ARRAYS B, Q, AND P MUST BE IDENTICAL IN SIZE R TO THE ARRAYS B, Q, AND P IN THE MANAGEMENT SYSTEM PROGRAM O   N!(1("N(є(  ,R THE VALUES OF B9, Q9, AND P9 MUST BE IDENTICAL TO THOSE@R IN THE MANAGEMENT SYSTEM PROGRAMTR B9=NUMBER OF RX GRADEShR Q9=NUMBER OF QUIZ GRADES|R P9=NUMBER OF EXAM GRADESL.P MPMP jSTUDENT STATUS REPORT PROGRAMR READ SYSTEM PARAMETERS hf@> jTYPE YOUR NUMBER0g6DM66@X W6@56@l jINVALID NUMBERhf6@ nhf#3 jPASSWORDf0V014j+INVALID PASSWORD -- PROGRAM TERMINATED b R PRINT STUDENT NAME AND COURSE NAME4jH@H H 25A,3X,25A\j&SELECT PRINT: RX, PE, TS, ALL OR STOPpM&M f0j V0<STOPbV0<RXV0<PEV0<TS$$ V0<ALL\./@8B/@LV/@`j/`tb jPRINT CRITERIAf0M&w'E V0<YESdX@|. V!ZjNO RX GRADES STOREDPvX@|. V!<v@M&& !(<ZAw&&&B jRX AVERAGE -- &P^dV00NOxg jANSWER: YES OR NOjxX@|.z V!{ZjNO RX GRADES STORED^j vY:@|. V!:Tv@M&& !:"v@$VP,&v@(j, j@:!:@H #,"RX",2D," -- ",3D,3XT[:^jhw&&&i R COMPUTE CLASS RX AVEjHY6@|k ;lX@|.m VtnwEE@rw'' tZu[6ww'''Ezj| jRX AVERAGE -- &d CLASS AVERAGE -- 'j ^R---------------------QUIZ GRADE PRINT W@jNO PRACTICAL EXAM GRADES STOREDX@} Wl0M!D j XZl M&@mwEnY6@|o ;pX@}q VurwEE@sw tZu[6vw'EjjP. E. AVERAGE --  CLASS AVERAGE -- ^R--------------------EXAM GRADE PRINT W@jNO TEST GRADES STOREDpX@} W\w Y6@| ;w  [6 w  &@ j , 4M  !HZ\jTEST AVERAGE --  &@p^!R----------------------------------CRITERION NUMBER BREAKDOWNR $R THIS SECTION BREAKS THE CRITERION NUMBER INTO ITS COMPONENT PARTSR V1c $ L@1L@  $ V1N 8L@1d LL@1"@d `L@ t L`1N  M1"`N  L@d L@"@d L` X@| hg V@ d ( j <! <H "RX",2D,2X,3D,2X,2D,1X,50A P d j x x H 10X,3D,1X,50A Z ^ R--------------------ARRAY CLEAR n# n3 o ^ H" "PRACTICAL EXAM #",2D," -- ",3D ,H6"TEST #",2D," -- ",3D.2D," CLASS AVE. -- ",3D.2D 5R---------------------------------DISC READ 6hf6@ 7 nhf#3 :^ ;R------------------DISC READ FOR AVE CALCULATION <hf6@ = nhf >^ @`HSTPAL1  ) J HДHH JTlaQdȜ JJHJ`fO@HPH0Hp*D`@h(v@-vV1 h@@2vԞt <nFw@*REALOAADDSUBMULDVQSTOPRTBONHLTUCBPSCDVRNOPPwP-ZACBOZBOPPADBSARTCSCRSNRSNLRALPCLENDORGDS DSAZR RE ENTRY FOR GETTING NEXT STATEMENTdh@nva@x X@py v0 zZ.>bHR GOSUB SUBROUTINE TO FIND VALUE OF N FROM STRINGRv4d\ X}~@fwp Xt@Pz V0  V0 ttw@ZtjILLEGAL ITEM COLUMN RE-ENTER LINEvd@w v!P(4v44@Z^.V@@<*L8jBZLVPP0+VVPP0-`X@|jVptVPp1@`$@`$P~vpVPp1P`$@`$PZj2NEXT STATEMENT HAS INVALID OP CODE. RE-INPUT LINE.R HANDLE POS OR NEGATIVE CONSTANTSwPw`RVd@VPP0+va@ vaPv0PPPP(v@}2v@"@}<XF R OP CODE IS NOW J-1Pv@Z V0Ԣ@_ V0Ԣ@}d V*Ԣ@n v@x|R DSA SET OP CODE PORTION TO 00} v@~R OP CODE END SET LOCATION TO 000 v@@R OP CODE ORG OR DS SET OPCODE TO -1 v@@R CHECK COL9-10 FOR LEGAL LABLEVHH@9 X@|Ģ@VH R USE FIRST LABEL TABLEVHP0@$@@$|@VH6R USE SECOND LABEL TABLE#VHP0Д@$H @@$H |"@,R USE THIRD LABEL TABLE6#VHP0@$H@@$H|@ZJj2NEXT STATEMENT HAS INVALID OPERAND. RE-INPUT LINE.TrR J IS THE LABEL LOCATION L(J) IS STATEMENT LOCATION| v@R IMMEDIATE INSTRUCTION COLUMNS 9-10 NUMERICva`wPw@RVd@ v@ j 1234567890jf.V@@0*X Va@:& Va`N0X:va@DXNva@XV@<@l]w`bR STWEIP ADDRESS AND CONVERT TO CHARACTERSl wdvw#dP w#d#Pv0@@ @@v0@@ @@v0`` @@wtd Xx}tVpp<  v0 v0ppZV@0@ Va@R Va`pz R DS OR ORG OPCODE=13 v@hva@ V0Ԣ` v @  v@ v0@` *HR INDIRECT * CODE IN COL 5R v0PP*\zfR IMMEDIATE # CODE IN COL 5pVH6p6D 6L 6P zu v0PP#zw@dw@#dPw@#d#Pv0@@ @@v0HH @@v0PP @@V@0@ w@P w@#Pv0`` @@v0pp @@v@j0Z R END STATEMENT READ END OF SECOND PASS  v0``1  v0pp0 $j0 tVV ~rSTPAL R GOOD ASSEMBLY TRY EXECUTION j&ASSEMBLY COMPLETE, BEGINNING EXECUTION j v@ rSTPAL2 `STPAL2 O J HДHH JTlaQdȜ J JH Lw Vv@ ` v@ jw6 t v@ ~Va@6a@6aP " Va` Va@ R STATEMENTS OUTSIDE DEFINED RANGE j*ATTEMPT TO EXECUTE OUTSIDE DEFINED AREA AT jNUMBER OF STATEMENTS EXECUTED j3DO YOU WISH TO CORRECT THE MACHINE LANGUAGE PROGRAM f V@@0NO rSTPAL3 rSTPAL j+A CONSTANT MAY NOT BE THE NEXT INSTRUCTION. jMEANINGLESS OP CODE AT  v@ (v@ 2V| P <Va d F ` PjATTEMPT TO EXECUTE BEYOND CORE Z dj)CANCELED DUE TO STATEMENT LIMIT EXCEEDED. n x Va"6,a"   wa" v#a" j3ACCUMULATOR OVERFLOW. HIGH ORDER DIGITS TRUNCATED. jVALUE OF ACCUMULATOR   R IMMEDIATE INSTRUCTION AS A LITERAL w6@  6 R INDIRECT INSTRUCTION CHECK DEPTH v@ v@ VH   Va@ Va@6a@6aP " Va`  j-INDIRECT ADDRESSING MORE THAN 10 LEVELS DEEP. jFURTHER LEVELS IGNORED. "w6@ ,R OP CODES ROUTINES USING COMPUTED GOTO. 6v@ JT  t$\ TvX ^T|  d,  hvX rTL |  b R THE S/R USED IN ALL ARITHMETIC OPERATIONS W6@ w  w@ @} Va@6aP w ^ W6@ : &j%ATTEMPT TO REDEFINE CONSTANT BY READ. 0  :V  ?g D Wa"7,a" NW XvaP bv@} lv@"@} v  va@ w  b j%VALUE HAS TOO MANY DIGITS. RE-INPUT.  : v  v!  xtW6@ ~V v (<W6@ZFwtPdZ wt@d vtPnvt"Px VP6@zv{V|v}v@)vP($P(P"P(P"P(Vv xv   VX,V@@P ,k" ,k6 W6@j* A CONSTANT MAY NOT BE CHANGED BY STORING. wWvaP&va@w&v@}0v@"@}:  v# x\W6@ f$j&HALT ENCOUNTERED. EXECUTION COMPLETE..  v% x Wv' jATTEMPT TO DIVIDE BY ZERO." | W v'%  v W6@ V W6@ V dwP(nV@@P xk k ,W6@ /V|T2V|6 v@@@va@JvO Tw@@ @@}^ v䞯N h va@Prv@@}|v@@"@@}v` ( w@@w@@ @@}W`WHv䞯_}N W@v䞯ZN=@ Va@PhvFP"h Va@Phvz"hk IS IMPROPER PARAMETERvhV@7@7PwN  wdFPv瞯N @&v䞯N @0WPl: W@7@hDvN Va@PhX va@@brlv@@}vv@@"@@}hj vvxLvVv`xW@jINPUT DATA. FORMAT SXXXXX,ETC.w@fvfvpX|HVf@ V0, V0 vvf@v4X@|P~@w Xt@P V0  V0 ttw@ZtjILLEGAL ITEM IN COLUMNRE-ENTER LINE.jw v!P(4v44@Z2v@}<v@"@}FV``0+xPV``0-ZV``0 xdj.ONLY +,-, OR BLANK ALLOWED IN SIGN POSITION AT`nxvaPva@vpZ va@ v@ v@v j CONTENT OF LOCATIONSTOY|w@} @k[ @` STPAL3  J HДHH JTlaQdȜ J JHN0v0 *#-+R MACHINE LANGUAGE PROGRAMMINGV@@0NOj2START EDITING. 000 ADDRESS STILL LAST STATEMENT.2nc(n2f<V@`<000@FwPPw@ZdvnjBEGINNING EXECUTIONoj xrSTPAL2bR GOSUB SUBROUTINE TO FIND THE VALUE OF N FROM STRINGv4d X}~@w Xt@P V0  V0 ttw@ZtjILLEGAL ITEM COLUMN@ RE-ENTER LINEvd@,w v!P(4v44@"Z,^6 R CHECK FOR COMMENT@V@@0*2Jw`Tw@^hvr R ASSIGN FLAG BIT| X@PVPP00Zvawpw` v@wPw@ v@2` TSAP3  ) K6 &R ****** HP TIME SHARED BASIC ******************** &R ****** TSAP3: CORRELATION ******************** &R ****** ********************&R ****** CONTRIBUTED PROGRAM - IOWA ********************&R ****** J. KOLP, J. HEMINGWAY ********************p$tsapfW0NO(V@2 j8PEARSON PRODUCT MOMENT CORRELATION (r) IS A MATHEMATICAL<j5EXPRESSION OF THE RELATIONSHIP BETWEEN TWO VARIABLES.Fj4THE CORRELATION COEFFICIENT VARIES BETWEEN +1.00 ANDPj/-1.00. AN r=0 MEANS THAT TWO VARIABLES HAVE NOZ j8RELATIONSHIP TO EACH OTHER. VARIATIONS IN VALUES OF ONEdj1VARIABLE ARE UNRELATED TO THE VALUES OF THE OTHERnj2VARIABLE. AN r=+1.00 MEANS THAT THE TWO VARIABLESxj0HAVE A PERFECT POSITIVE RELATIONSHIP; AN r=-1.00j$MEANS PERFECT NEGATIVE RELATIONSHIP.!j9YOU CAN PICK TWO VARIABLES FOR CORRELATION, PLUS CHOOSINGj/AMONG THE DATA SELECTION CRITERIA. YOU WILL BE j7PROMPTED FOR THE VARIABLES AND DATA SELECTION CRITERIA.v@ V`@N-00NANN1 O` h@@jWHAT IS THE FIRST VARIABLEvi@"f0,w`06wvw@vJwDTvZ@^vi@h w6789:r X@Z `|wvwv@V0@`0@DZj.THAT'S NOT A VARIABLE NAME. PLEASE TRY AGAIN.jWHAT IS THE SECOND VARIABLEvi@f0w0ww X@Z `www@V0@`0@vZj.THAT'S NOT A VARIABLE NAME. PLEASE TRY AGAIN.j*WHICH DATA SELECTION CRITERION DO YOU WANT&vi`0g0:DY@}Nh@$Xnh@Cbh@lVi@vV0@`0RAIV0@`0EXPV0@`0MANV0@`0FORV0@`0FARV0@`0LANV0@`0IMPTiV$UVAv6AwTiW0@@0NONEBW0@P0STATE$W0@P0YEARS W0HX0AND * vZ@*W0@P.SECTNV4W0pp01R>w@HTZ8zRw@\TZ8zf V/0pPp~zN  v 1234567890v Y$@~@ Y4@PVZ@ w%T "$@ w%H"$@ W0%%.44W4P v4$P)$ [4[$V$.TZB8$ V10pPB.8W/Bv@LVjINVALID. PLEASE TRY AGAIN.`jRtR~RM66 AvM77 Aw M88 Av@ M99 Aw@ M:: Av$Aw[L6&L7&Mf8"$@&@Mg9"$@&@LFfLGg LE%8"6@ L7%8"6%:&EM>%:"6%7&E M>@%f'g(W>F2L><PF L>$@PjN = Zj THE CORRELATION COEFFICIENT FOR ` WITH dj#WITH A DATA SELECTION CRITERION OF 0n jEQUALS >x r$tsapn`TUT01 ^ O #R *** HP TIME-SHARED BASIC PROGRAM LIBRARY ********************* R #R TUT01: TUTOR SERIES BASIC LANGUAGE PROGRAMMING COURSE, R (PART 1 OF 25)R 36139 (A810) REV A -- 7/71R#R *** CONTRIBUTED PROGRAM **************************************RdMnM$xj2WELCOME TO THE HEWLETT-PACKARD T/S SYSTEM. WE WILL"j*Vd`>4>j(NO , THIS WILL BE EXPLAINED LATER, AGAINHRj5VERY GOOD, IF 'X' WERE USED FOR MULTIPLY, IT COULD BE\ j7CONFUSED WITH THE VARIABLE 'X'. LETS PRACTICE A LITTLE:fM$$@p jHOW MUCH IS 2*3zftM@Vt`j"NO, REMEMBER THIS * MEANS MULTIPLYpjSUREM$$@jHOW MUCH IS 3*4+7fM@VL VB  jSORRY, LOOK AGAINj-NO, MULTIPLICATIONS ALWAYS PRECEED ADDITIONS: j RIGHT YOU ARE$M$$@.jHOW MUCH IS 3*(1+5)/28fBM@LVHjVj'NO, OPERATIONS WITHIN () PRECEED OTHERS`.jjGOODtM$$@~ j8THAT LEAVES ^ WHICH IS OUR WAY TO INDICATE SQUARES,CUBES!j:ETC., SUCH AS X^2 FOR 'X SQUARED' OR X*X, Y^3 FOR 'Y CUBED j OR Y*Y*Y ETC.j6YOU CAN EVEN DEFINE YOUR OWN,BUT THESE WILL BE COVEREDj4IN ANOTHER LESSON. WE'LL USE SQR(SQUARE ROOT) IN OURj1COMING EXAMPLE TO GIVE YOU THE IDEA. LET'S ASSUME j7YOU WANT TO COMPOSE A PROGRAM TO COMPUTE RADIUS VECTORSj2(THE SQUARE ROOT OF THE SUM OF THE SQUARES OF THE j5THREE COMPONENTS). THIS PROBLEM WILL BE A SEQUENCE OFj+STATEMENTS TO TELL THE COMPUTER WHAT TO DO.j/DO YOU THINK THE STATEMENTS SHOULD BE NUMBERED:j (1) CONSECUTIVELY (1,2,3 ETC.)j" (2) INCREMENTALLY (10,20,30 ETC.)j' (3) ANY SEQUENCE FOR IT DOESN'T MATTER j(TYPE NO. OF ANSWER)fM@(V@P2j6WELL,THE COMPUTER DOESN'T CARE SINCE IT SIMPLY WILL DO<!j:THEM IN SEQUENTIAL ORDER WHEN IT RUNS YOUR PROGRAM,HOWEVERFdPjRIGHTZM$$@d j7LEAVING SPACE BETWEEN NUMBERS PERMITS INSERTIONS LATER.nj5FOR OUR SAMPLE PROGRAM, LETS FIRST CALL FOR OUR KNOWNxjVARIABLES. WE SIMPLY TYPE:j j10 INPUT X,Y,Zj j810 IS SIMPLY THE FIRST STATEMENT NUMBER. X, Y, AND Z AREj2OUR 'DATA'. NEXT, WE WRITE OUR EQUATION BY TYPING:j20 LET R=SQR(X^2+Y^2+Z^2)jj5HERE 20 IS THE NEXT STATEMENT NUMBER, 'LET' TELLS THEj3COMPUTER THAT AN EQUATION IS COMING, AND 'R' IS OURj/UNKNOWN VARIABLE. NOTE:UNKNOWNS MUST BE ON THE j3LEFT OF THE '=' AND KNOWNS ARE ON THE RIGHT. SQR IS j7THE SQUARE ROOT FUNCTION MENTIONED EARLIER. THE REST IS!j:TELETYPE ALGEBRA. FROM THIS POINT ON 'R' CAN BE TREATED AS!j:A KNOWN IN OTHER EQUATIONS. IN THIS EXAMPLE WE'LL TELL THE!j:COMPUTER TO PRINT THE VALUE OF 'R' BY TYPING THE STATEMENTj" j 30 PRINT R,j6!j9WHICH WILL CAUSE THE COMPUTER TO DO JUST THAT. NOW WE ADD@j3AN 'END' STATEMENT AND THIS IS OUR COMPLETE PROGRAMJjT j10 INPUT X,Y,Z^j20 LET R=SQR(X^2+Y^2+Z^2)h j 30 PRINT Rrj40 END|j!j9WHEN 'RUN' IS TYPED, THE PROGRAM WILL CALL FOR THE VALUESjOF X,Y,Z WITH A QUESTION MARK. j7 (TRY IT. TYPE ANY THREE NUMBERS SEPARATED BY COMMAS.)g"@!@!@ (THIS IS YOUR RADIUS VECTOR)!j:WELL, THE HARD PART IS OVER AND NOW THE FUN BEGINS. BY THE jWAY, YOU HAVE ANSWERED$CORRECTLY OUT OF QUESTIONS.j3IN ORDER TO CONTINUE WHAT WE HAVE BEGUN, IT WILL BEj0NECESSARY TO REQUEST ANOTHER PROGRAM FROM ME. TO"j;DO THIS, TYPE 'GET-$TUT02'. WHEN I RESPOND WITH A LINE FEEDj#TYPE 'RUN' AND I'LL MEET YOU THERE.j&LAST ONE THERE IS A HUMAN!! GOOD LUCK.`TUT02 ^  #R *** HP TIME-SHARED BASIC PROGRAM LIBRARY ********************* R #R TUT02: TUTOR SERIES BASIC LANGUAGE PROGRAMMING COURSE, R (PART 2 OF 25)R 36139 (A810) REV A -- 7/71R#R *** CONTRIBUTED PROGRAM **************************************Rdj6WELL, I AM GLAD YOU MADE IT. I'VE BEEN WAITING FOR YOUn"jEXECUTED BEFORE THE 'INPUT' STATEMENT IN 10. THIS DEMONSTRATES#j>WHY IT IS SO HANDY TO NUMBER STATEMENTS IN INCREMENTS. OUR NEWjPROGRAM NOW LISTS AS FOLLOWS:jj.9 PRINT''WHAT ARE YOUR VALUES FOR X,Y, AND Z'' j10 INPUT X,Y,Zj20 LET R=SQR(X^2+Y^2+Z^2)j%30 PRINT''THE RADIUS VECTOR EQUALS''Rj40 ENDjj+WHEN 'RUN' IS TYPED, THE PROGRAM DOES THIS:jj#WHAT ARE YOUR VALUES FOR X,Y, AND Zj? j1 (TRY IT, TYPE THREE NUMBERS SEPARATED BY COMMAS)gjTHE RADIUS VECTOR EQUALS@!@!@&j9j:jDjN j7NOW, IF YOU HAVE A NUMBER OF VALUES TO COMPUTE AND WANTXj5TO AUTOMATICALLY REPEAT A PORTION OF YOUR PROGRAM YOUbj$CAN DO THIS BY USING THIS STATEMENT:ljv j 35 GO TO 9j"j;THIS WILL CAUSE THE COMPUTER TO RETURN TO THE BEGINNING AND"jj2TYPE 'KILL-(NAME)' AND THE PROGRAM WILL BE ERASED.HjR"j;WHEN YOU WANT TO SIGN OFF, TYPE 'BYE' AND THE COMPUTER WILL\ j LOG YOU OFF.fjp"j< YOU HAVE COMPLETED ANOTHER LESSON WITH YOUR COMPUTER TUTORzj.AND ARE READY TO TRY A FEW THINGS ON YOUR OWN.j4 THE BEST WAY TO BECOME COMFORTABLE WITH THE SYSTEM!j9IS TO TRY IT ON SOME OF YOUR OWN PROBLEMS. DON'T HESITATE!j9TO CALL ON YOUR H-P REPRESENTATIVE FOR ANY ASSISTANCE YOU jMIGHT REQUIRE."jTHAT'S TOO BAD....IT HELPS ME TO TEACH YOU IF YOU GET A CHANCE#j=TO PRACTICE WITH A PROBLEM THAT IS FAMILIAR TO YOU. BUT WE'LL&!j:GET GOING HERE AND YOU CAN TRY SOMETHING ON YOUR OWN AFTER0 j THIS LESSON.:lD"jjHj4 ALL VARIABLES ARE EITHER ONE LETTER OR ONE LETTERR j7 FOLLOWED BY ONE DIGIT. YOU MAY USE ANY LETTER OF THE\j( ALPHABET AND ANY DIGIT FROM 0 THRU 9.fjp j7LET'S TRY A FEW EXAMPLES AND YOU TELL ME WHICH ONES AREzjWRONG:jj (1) 10 LET X1=R*B^2j6 (TYPE THE NUMBER OF j7 (2) 10 LET XY=A1+B*3 THE EXAMPLE AND RE-j6 TURN THE CARRIAGE)j (3) 10 LET X9=X^2+Y^3jjWHICH ONE(S) IS/ARE WRONGjf4jV4@8V4@V4`$#j;TRY AGAIN, AND USE 1,2 OR 3 FOR YOUR ANSWER, WHICH IS WRONG!j7NO, THIS IS A VALID STATEMENT-TRY AGAIN, WHICH IS WRONG$$j=NOT QUITE, THIS STATEMENT IS LEGAL. TRY AGAIN; WHICH IS WRONG.8!j9RIGHT. 'XY' IS AN ILLEGAL VARIABLE NAME. NO MORE THAN ONEB$j?LETTER OR ONE LETTER AND ONE DIGIT ALLOWED. LET'S TRY SOME MORELjVj (1) 10 LET X1=X1+Z^5[j5 (TYPE THE NUMBER OF`j6 (2) 10 LET T2=P+Q YOUR CHOICE AND RE-jj5 TURN THE CARRIAGE)tj (3) 10 LET Y=V11+1~jjWHICH ONE IS WRONG THIS TIMEf4jV4` V4@V4@j+PLEASE.....ONLY THE NUMBERS 1,2 OR 3. WHICH$j=NO, THIS IS VALID. X1 WOULD BE INCREMENTED BY 'Z^5'. AGAIN... j6THIS ONE IS OK - LOOK A LITTLE CLOSER. IT SHOULD BE... !j:THAT'S RIGHT. V11 IS ILLEGAL. YOU CAN'T HAVE MORE THAN ONEjDIGIT FOLLOWING A LETTER.j(!j9SO FAR, THE FOLLOWING KINDS OF STATEMENTS HAVE BEEN USED:2 j7'PRINT', 'INPUT', 'LET', 'GO TO', AND 'END'. IF YOU ARE<"j;AT ALL UNCERTAIN AS TO HOW ANY OF THESE ARE USED, LOOK ONCEF!j:MORE AT THE PREVIOUS SAMPLE PROBLEM. WHEN YOU ARE POSITIVEP"jFOLLOWED BY THE NAME OR NAMES OF WHAT THE COMPUTER IS TO READ. j8THE ACTUAL NUMERICAL VALUES WILL BE FOUND AFTER THE WORD j7'DATA' SO, OF COURSE, YOU MUST SEE THAT THEY ARE THERE.j!j:NOW LET'S RETURN TO OUR RADIUS VECTOR PROBLEM. INSTEAD OFj%USING STATEMENTS 9 AND 10, LET'S SAY:jj 11 READ X, Y, Zjj 12 DATA 3, 4, 12j!j:STUDY THE ABOVE TWO STATEMENTS CAREFULLY. NOTICE WHERE THE #j=COMMAS ARE (COMMAS ARE VERY IMPORTANT IN COMPUTER DIRECTIONS."jW@pHW`pR!j:NO - YOU SEE IT HAS TO BE ONE OF THE NUMBERS FOLLOWING THE\j#'DATA' STATEMENT. TRY AGAIN. 'X' ISf*p!j9THAT'S A GOOD TRY. YOU CHOSE ONE OF THE NUMBERS FOLLOWINGzj,'DATA', BUT NOT THE RIGHT ONE. ONCE MORE: X=*jA PERFECT CHOICE. AND WHAT IS ZgjW`#j=NO, THAT'S NOT CORRECT. STUDY THE STATEMENTS AGAIN ALONG WITHj3YOUR PREVIOUS ANSWER CONCERNING X AND TRY AGAIN. Z=j6RIGHT AGAIN. YOU NOW HAVE MASTERED THE FUNDAMENTALS OFjTHESE TWO TYPES OF STATEMENTS.j#j=LET US CONSIDER ONE MORE THING ABOUT 'DATA' - YOU ARE ALLOWED!j:TO HAVE MORE THAN ONE DATA 'SET' WITH THE DATA STATEMENT. !j:FOR INSTANCE, IF WE WANTED TO DETERMINE TWO RADIUS VECTORSj3INSTEAD OF ONE, WE COULD REPLACE STATEMENT 12 WITH:jj 12 DATA 3, 4, 12, 8, 15, 11j j6THIS STATEMENT CONTAINS TWO X'S, TWO Y'S, AND TWO Z'S.$"jUNLESS IT IS SOMEHOW DIRECTED TO USE THE READ STATEMENT TWICE.#j=USE 1=PRINT, 2=GO TO, 3=LET, AND 4=INPUT, AND DECIDE WHICH OF"j9THESE COULD MAKE IT READ MORE THAN ONE SET OF DATA. WHICHfjV@nV@FjNO, NOT THAT ONE. AGAIN. WHICH(2j5THAT'S NOT A PERMISSIBLE CHOICE - TRY AGAIN. WHICH OF<Fj5YOU'RE DOING FINE. THIS ENDS THE 'TUT04' PART OF YOURP!j9LESSON. NOW CALL THE PROGRAM 'TUT05' (USE THE SAME METHODZj2YOU USED TO CALL 'TUT04') AND CONTINUE YOUR STUDY.d j GOOD LUCK.n`TUT05 ^  #R *** HP TIME-SHARED BASIC PROGRAM LIBRARY ********************* R #R TUT05: TUTOR SERIES BASIC LANGUAGE PROGRAMMING COURSE, R (PART 5 OF 25)R 36139 (A810) REV A -- 7/71R#R *** CONTRIBUTED PROGRAM **************************************Rd!j9I'M BACK AGAIN. GLAD YOU'RE STILL HERE. LET'S SEE........njxj"THE PROGRAM AS IT NOW STANDS SAYS:j j 11 READ X,Y,Zj 12 DATA 3,4,12,8,15,11j 20 LET R=SQR(X^2+Y^2+Z^2)j+ 30 PRINT''THE RADIUS VECTOR EQUALS'';R j 35 GO TO 9 j 40 ENDj"j;LET'S USE THE 'GO TO' STATEMENT ALREADY IN THE PROGRAM, BUT!j:CHANGE IT TO EITHER 'GO TO 11' OR ELSE TO 'GO TO 12'. ONLY!j7ONE OF THESE IS CORRECT. DO YOU THINK IT IS '11 OR '12'gdjWdX"Wd`"j2YOUR ANSWER HAS TO BE EITHER 11 OR 12. WHICH IS IT"$j?'11' IS CORRECT, BECAUSE IT IS 'READ' WHICH WE WANT DONE TWICE.,#j='DATA' IS NOT A SEQUENTIAL INSTRUCTION - JUST INFORMATION FOR6#j=THE MACHINE. INCIDENTALLY, THE 'DATA' STATEMENT MAY BE PLACED@"jTHE LINE NUMBER SHOULD BE BETWEEN 20 AND 30 SO IT WILL PRECEDE!j9THE 'PRINT' ON LINE 30. SO NOW OUR PROGRAM MIGHT WELL BE:j& j 11 READ X,Y,Z0j 20 LET R=SQR(X^2+Y^2+Z^2):#j> 25 PRINT ''X, Y, AND Z VALUES ARE, RESPECTIVELY:''; X,Y,Z?j, 30 PRINT ''THE RADIUS VECTOR EQUALS'';RD j 35 GO TO 11Nj 38 DATA 3,4,12,8,15,11X j 40 ENDbjljAND THE COMPUTER RESPONSE IS:qjvj2 X, Y, AND Z VALUES ARE, RESPECTIVELY: 3, 4, 12j THE RADIUS VECTOR EQUALS 13j3 X, Y, AND Z VALUES ARE, RESPECTIVELY: 8, 15, 11j$ THE RADIUS VECTOR EQUALS 20.2485j OUT OF DATA IN 11j"j;THIS PROVIDES THE NECESSARY INFORMATION. IF THE QUANTITY OF#j>DATA EXCEEDS THE AVAILABLE LINE SPACE IN THE 'DATA' STATEMENT,#j=ADDITIONAL 'DATA' STATEMENTS CAN BE USED, SO LONG AS THEY AREj3NUMBERED SUCH THAT THE DATA ARE SEQUENCED PROPERLY.j"jW(3) - THEN CHANGE PROGRAM STATEMENTS ACCORDINGLY. THE PRESENT!j9SEQUENCE OF STATEMENTS IS: 11,20,25,30,35,38,40. WHICH IS$j@THE FIRST ONE WE MUST MAKE A CHANGE IN? (NATURALLY, LINE NUMBERS #jj4LOOK AT THE PROGRAM MORE CAREFULLY. TRY AGAIN. WHICHH R!j7RIGHT. HOW MANY STATEMENTS WOULD NOT HAVE TO BE CHANGED\g4fjpW4@zjLOOK REAL CLOSE. AGAIN......\!j:THAT'S THE IDEA. BUT, WITH SUBSCRIPTS THE COMPUTER MUST BE"j;'WARNED' TO RESERVE SUFFICIENT MEMORY SPACE FOR THE VALUES.%jATHE TERM FOR THIS IS THE WORD 'DIMENSION'. WHICH OF THE FOLLOWINGj2INSTRUCTIONS DO YOU THINK MIGHT 'RESERVE STORAGE';jj, FOR (TYPE '1' FOR THIS CHOICE)j, TAPE (TYPE '2' FOR THIS CHOICE)j, DIM W(3) (TYPE '3' FOR THIS CHOICE)jjYOUR CHOICE IS........$g.j8W`~BW``LjNO SUCH CHOICE. AGAIN......V$`!j:NO, BUT WE'LL TAKE UP THAT INSTRUCTION IN A FUTURE LESSON.jjTAKE ANOTHER GUESS......t$~ j7RIGHT. 'DIM' STANDS FOR DIMENSION, 'W' IS THE NAME, AND#j>'(3)' IS THE NUMBER OF LOCATIONS NEEDED. (YOU MAY RESERVE MORE"j;THAN YOU EXPECT TO USE, IF YOU WISH.) IF WE USE SUBSCRIPTS,#j=IT IS NOT ADVISABLE TO USE THE 'GO TO' STATEMENT FOR REPEATED#j=SETS OF DATA. THEREFORE, LET US ASSUME THAT WE WILL HAVE ONLY#j=ONE SET OF VALUES FOR OUR THREE W'S (WE'LL TAKE A CLOSER LOOK#j>AT THE USE OF SUBSCRIPTS IN A FUTURE LESSON). SO, WE CAN ELIM-"j;INATE THE 'GO TO' INSTRUCTION, AND THAT LEAVES US A PROGRAM"j;WITH THE 'DIM' STATEMENT BUT NO 'GO TO' STATEMENT. HERE'S A j POSSIBILITY:j j 8 DIM W(3)j 11 READ W(1), W(2), W(3)j( 20 LET R=SQR(W(1)^2+W(2)^2+W(3)^2) #j= 25 PRINT ''W(1), W(2), AND W(3) AARE;''; W(1),W(2),W(3)j- 30 PRINT ''THE RADIUS VECTOR EQUALS'';Rj 38 DATA 3,4,12( j 40 END2j<$j@NOTE THAT THE 'DIM' SHOULD BE PUT FIRST. THIS IS SO IT WILL 'SETFj*UP' THE COMPUTER'S MEMORY FOR THE PROBLEM.PjZ!j:WELL, YOU'VE COMPLETED ANOTHER LESSON. BE SURE TO TRY YOURd"jYOU CAN CHECK ON YOURSELF. BEFORE WE DO THAT, LOOK AT EACH ONE,j'AND SEE IF YOU CAN TELL WHAT IT IS FOR.6j@"jFORMULATE A PROGRAM NOT ALREADY IN THE COMPUTER'S MEMORY. THEN^#j>THERE'S 'RUN' - THIS ONE IS USED TO BEGIN THE EXECUTION OF ANYh$j?PROGRAM. HOW MANY OF THE OTHER 14 ARE YOU PRETTY SURE YOU KNOW.rgj#j=WELL, HERE'S YOUR CHANCE TO TEST YOURSELF. I AM GOING TO TYPE"jCHOICE YOU SELECT. AFTER YOU HAVE TRIED THEM ALL, WE'LL TAKE A"j;LOOK AT THE ANSWERS AND SEE HOW YOU DID. OK? HERE THEY ARE:j j6 1. WHICH IS USED TO CALL A PROGRAM FROM THE LIBRARYgW@#j< 2. WHICH ONE MUST NEVER BE OMMITTED IN A COMPLETE PROGRAMgW@!j8 3. WHICH CAUSES THE COMPUTER TO ALTER NORMAL SEQUENCEg&Wh:0:j, 4. WHICH ELIMINATES A PROGRAM FROM MEMORYDgtNWtxbXb!j8 5. WHICH CAUSES THE COMPUTER TO TYPE OUT YOUR PROGRAMlgdvWdX j6 6. WHICH TELLS YOU WHAT PROGRAMS ARE IN THE LIBRARYgTWTD j- 7. WHICH STOPS THE TELETYPE FOR DATA ENTRYgDWD@ !j7 8. WHICH IS THE CORRECT ONE TO INTERRUPT THE MACHINEg4W4@j' 9. WHICH IS USED TO SHOW AN EQUATION g$W$@* *"j9 10. WHICH IS NECESSARY BECAUSE OF SUBSCRIPTED VARIABLES4g>W`RHRjWV4P\!j YOU ANSWERED 4% CORRECTLY. LET'S CHECK YOUR ANSWERS:fjpjQUESTION SHOULD YOURzj NUMBER BE ANSWERjj 1 4 j 2 2 j 3 13 j 4 15 tj 5 11 dj 6 17 Tj 7 16 Dj 8 8 4j 9 1 $j 10 6 jV4`~#j>YOUR SCORE IS ACTUALLY LESS THAN A PASSING SCORE (7 RIGHT). DO#j>YOU THINK MAYBE YOU OUGHT TO GO BACK AND TRY A PREVIOUS LESSONjAGAIN (0=NO, 1=YES)$fD)j.VD@V8VDjB#j=YOUR ANSWER DOESN'T MAKE SENSE. LET'S START OVER: ONCE AGAIN,LV$j@GOOD IDEA. CALL FOR AN EARLIER LESSON AND I'LL HELP YOU WITH IT.`bj"j;WELL, IT'S UP TO YOU, OF COURSE. LET'S CONTINUE. BUT FIRST,t~"jIN THE PROGRAM FOR COMPUTING RADIUS VECTORS, THE COMPUTER MADE#j=A DECISION AS TO HOW MANY RADIUS VECTORS TO COMPUTE, BASED ON$j?THE AMOUNT OF DATA PROVIDED. THERE ARE MANY REASONS WHY SUCH A#j>MEANS OF DECISION-MAKING IS IMPRACTICAL FOR ORDINARY PURPOSES,"jORDINARY DECISION-MAKING IS DONE BY MEANS OF ONE OF THESE FOUR"j;CODE WORDS: (1) 'NEXT', (2) 'THEN', (3) 'IF', OR (4) 'FOR'.#j=WHICH DO YOU THINK IT MIGHT BE (USE THE NUMBER OF THE CHOICE,jFOLLOWING MY QUESTION MARK).."g,j6W@T@nJ"TW`r^ j5THIS IS USED FOR SOMETHING ELSE, TRY AGAIN, WHICH ONEh"r!j:YOU'RE RIGHT, 'IF' WARNS THE COMPUTER THAT IT IS TO MAKE A|#j>CHOICE, BASED ON A GIVEN CONDITION, OF COURSE SINCE A COMPUTER"jPICK THE ONE (NUMBER OF CHOICE) WHICH SEEMS CORRECT, WHICH ONEbfljvVİ@Vİ@Vİ`Vİ@nbj4NO, BUT YOU HAVE THE RIGHT IDES, SO WHICH MUST IT BEb%j?THIS DOESN'T ACTUALLY PUT ANY CONDITION ON 'X', WHICH OTHER ONEb#j>YOU FIGURED THAT ONE OUT, THE '=' SYMBOL, RATHER THAN THE WORD#j>'EQUALS' IS NECESSARY, AND 'X=4' PUTS A CONDITION ON 'X'. THE j8'35583' IS A LEGIMATE LINE NUMBER, SINCE ANY LINE NUMBER$j@THROUGH 99999 IS ACCEPTABLE. THE COMPUTER WILL TRANSFER CONTROL!j9TO LINE 35583 ONLY IF 'X' IS EXACTLY 4; OTHERWISE IT WILL j6IGNORE THE INSTRUCTION AND CONTINUE WITH THE NEXT ONE.jj.LET'S PLAY A MATCHING GAME WITH THE FOLLOWING: j* j7 (A) 'IS EQUAL TO' (1) > (6) <>4"j; (B) 'IS NOT EQUAL TO' (2) => (7) >=>!j: (C) 'IS LESS THAN' (3) >< (8) <H"j; (D) 'IS GREATER THAN' (4) <= (9) =<Rj- (E) 'IS LESS THAN OR EQUAL TO' (5) =\j& (F) 'IS GREATER THAN OR EQUAL TO'fjp$j?THE THREE SYMBOLS '=', '<', AND '>', SHOWN ALONE AND IN VARIOUSz#j=COMBINATIONS IN THE CHOICES (1) THROUGH (9), GIVE CONDITIONAL$j@CONTROL TO THE 'IF' STATEMENT. SIX OF THE CHOICES HAVE MEANINGS!j9GIVEN BY THE LETTER-IDENTIFIED LIST (A) THROUGH (F). NOWj3SEE IF YOU CAN MATCH THE SYMBOLS WITH THE MEANINGS."jNICE GOING - YOU GOT IT COMPLETELY RIGHT, SO NOW REMEMBER THAT.8#j>WON'T WORK, IF YOU WANT ME TO TELL YOU, TYPE '1' - IF YOU WANTB"j9TO TRY AGAIN, TYPE ANY OTHER NUMBER, WHAT'S YOUR PLEASURELftVj`Vt@~jj/OK....THEN WHAT DO YOU THINK THE COMBINATION ISt~#j=WELL, YOU SHOULD HAVE HAD 5,6,8,1,4,7 IN THAT ORDER, YOU SEE,!j:'=' MEANS 'IS EQUAL TO', '<>' MEANS 'IS NOT EQUAL TO', '<'#j=MEANS 'IS LESS THAN', '>' MEANS 'IS GREATER THAN', '<=' MEANS#j>'IS LESS THAN OR EQUAL TO', AND '>=' MEANS 'IS GREATER THAN OR j7EQUAL TO'. THE TWO SYMBOLS NOT USED ABOVE ARE INVALID.j#j=NOW THAT YOU UNDERSTAND 'IF' AND 'THEN', LET'S SEE HOW WE CAN#j>USE THEM TO CONTROL ITERATION. THIS WILL BE AN 'IF' LOOP, ANDx#j>THE COMPUTER WILL DECIDE THE NUMBER OF TIMES WE GO THROUGH IT.@#j=WE'LL TAKE A LOOK AT AN EXAMPLE OF THIS AND WORK OUT A USABLE#j=SOLUTION, BUT FIRST WE'LL NEED TO CALL IN A DIFFERENT PROGRAM#j>FROM THE LIBRARY. YOU SHOULD BE GETTING GOOD AT CALLING THESEl j8IN BY NOW, THIS ONE IS 'TUT08' - SO CALL IT AND WE-LOOP.`TUT08 P  #R *** HP TIME-SHARED BASIC PROGRAM LIBRARY ********************* R #R TUT08: TUTOR SERIES BASIC LANGUAGE PROGRAMMING COURSE, R (PART 8 OF 25)R 36139 (A810) REV A -- 7/71R#R *** CONTRIBUTED PROGRAM **************************************Rd#j>O.K., WE'LL TRY A PROBLEM: REQUIRED, COMPUTE SUCCESSIVE VALUESn#j>OF U*(U+1)^2 FOR UNIFORMLY INCREASING 'U' VALUES, BUT LIMITINGx$j?U*(U+1)^2 TO 10 OR LESS. THE COMPUTER WILL DECIDE HOW MANY 'U'"j;VALUES IT WILL USE. IT WILL KEEP INCREASING'U' BY 'DELTA U'!j9UNTIL U*(U+1)^2 REACHES 10, THEN STOP. THE PROGRAM SHOWNjBELOW WILL ACCOMPLISH THIS.j j 100 LET U=0j 110 PRINT U,U*(U+1)^2 j 120 LET U=U+1j" 130 IF U*(U+1)^2<=10 THEN 110 j 140 ENDj$j@STUDY THE PROGRAM AND SEE IF YOU CAN TELL ME WHAT LINE NUMBER ISj.THE BEGINNING OF THE LOOP. WHICH WOULD YOU SAYfjVİn"j#TRY ANOTHER NUMBER. WHICH ONE IS IT"j,FINE. AND WHICH IS THE LAST LINE IN THE LOOP,gD@WDA^Jj+STUDY THE PROGRAM AND TRY AGAIN. WHICH ONET,^$j?THAT'S THE ONE. NOTICE WE USED A 'DELTA U' OF UNITY (LINE 120):h#j=WE COULD HAVE USED OTHER INCREMENTAL VALUES, WHICH WOULD HAVEr"jNUMBER OF LOOPS - I.E., THE COMPUTER IS INSTRUCTED EXACTLY HOWNj2MANY ITERATIONS IT IS TO MAKE. HERE IS AN EXAMPLE:Xjbj 160 FOR J=2 TO 2.5 STEP .1ljv"jH"jWELL, MAYBE THAT WAS TOO TRICKY. IT SHOULD BE 'NEXT J', AND WE#j=THAT'S THE ONE, ALL RIGHT, THE WORD 'NEXT' IS THE CLUE, SO WE#j>PUT A LINE NUMBER ON IT WHICH SEQUENCES IT AS THE LAST LINE OF#j=THE LOOP. THE COMPUTER THAN 'BACKTRACKS' TO THE BEGINNING OF"jWITH YOUR PROGRAM. YOU 'READ IN' PAPER TAPE BY INSERTING IT IN#j=THE READER (FAR LEFT) ADN TYPING 'TAPE' ON THE KEYBOARD. I'LL#j>GENERATE A LINEFEED AFTER YOU TYPE RETURN. YOU PUSH THE LITTLEj-LEVER FORWARD AND THE TAPE BEGINS TO BE READ.j0WE'LL WORK IT OUT SOME MORE IN A FUTURE LESSION.jj!CALL 'TUT09' FOR THE NEXT LESSON.` TUT09 I ) #R *** HP TIME-SHARED BASIC PROGRAM LIBRARY ********************* R #R TUT09: TUTOR SERIES BASIC LANGUAGE PROGRAMMING COURSE, R (PART 9 OF 25)R 36139 (A810) REV A -- 7/71R#R *** CONTRIBUTED PROGRAM **************************************Rd$j@WELCOME TO LESSON 9. WE BRIEFLY INVESTIGATED THE TAPE UNIT LASTnj1LESSON. HAVE YOU TRIED USING TAPE (0=NO, 1=YES) xgjWW@$j?YOU WEREN'T PAYING TNTION - YOU HAVE TO TYPE '0' OR '1' - SO:jHAVE YOU HAD THE CHANCE YET x#j>WELL, THAT SHOULD BE NEXT. DID YOU UNDERSTAND THE EXPLANATION$j@IN LESSON 8? I HOPE SO, BUT ACTUALLY TRYING IT SHOULD HELP YOU. j5WOULD YOU LIKE TO TRY A SHORT TAPE NOW (0=NO, 1=YES) g$jW$W$@j#j=YOU CAN'T ANSWER A 'YES OR NO' QUESTION THAT WAY, ONCE MORE -j' AND WERE YOU SUCCESSFUL? (0=NO,1=YES)"f$,j6V$^@V$@|J"j:????????..PLEASE TYPE '0' FOR 'NO' OR '1' FOR 'YES'..WHICHT"^#j>IT MAY TAKE SOME PRACTICE BEFORE YOU GE PROFICIENT AT IT. YOUh#j>PROBABLY SHOULD TRY AGAIN WHILE IT'S STILL FRESH IN YOUR MIND.r|#j=THAT'S THE WAY TO DO IT, NOW I'D SAY IT WAS TIME WE WENT BACK#j>0.K. THEN - WE'LL FORGET ABOUT THE TAPE FOR AWHILE AND GO BACK#j=TO WRITING PROGRAMS. WE SAW THAT 'SQR' ALWAYS MEANS 'FIND THE"jMEANS 'TANGENT', 'SIN' MEANS 'SINE', AND 'COS' MEANS 'COSINE'."j;ONE ('ABS') MEANS TO USE THE POSITIVE VALUE FOR WHATEVER IS$j@BEING CONSIDERED. THIS IS THE 'ABSOLUTE VALUE' - OFTEN REQUIRED.j$j@EACH FUNCTION IS FOLLOWED BY AN EXPRESSION IN PARENTHESES, KNOWN$j@AS THE 'ARGUMENT'; IT IS WHAT THE FUNCTION OPERATES ON. EXAMPLE:$j@'ABS(Y)' MEANS 'Y' IS TO BE MADE POSITIVE REGARDLESS OF SIGN, OR#j=ITS 'ABSOLUTE VALUE' IS TO BE USED. HERE 'Y' IS THE ARGUMENT.jj/HERE ARE SOME OF THE OTHER AVAILABLE FUNCTIONS:jj4 (1) ATN(U) (2) EXP(U) (3) INT(U) (4) RND(U) j$j@HERE THE 'U' SIMPLY REPRESENTS THE ARGUMENT. ONE OF THE ABOVE IS $j@FOR TAKING ONLY THE WHOLE NUMBER PART OF A DECIMAL NUMBER. WHICHj-DO YOU THINK THIS ONE MIGHT BE (TYPE NUMBER)  gt*j4Wt`R>#j>NO, IT'S 'INT(U)' BECAUSE 'INT' STANDS FOR 'INTEGER'. WHICH DOH\R$j?THAT'S RIGHT - 'INT' MEANS 'INTEGER'. TRY ANOTHER: WHICH ONE DO\j1YOU SUPPOSE IS USED TO GENERATE NUMBERS AT RANDOMfg$pjzW$@$j>YOU NEED ANOTHER GUESS. LOOK AT THE LETTER COMBINATIONS. TRY..f$j?GOOD. ALSO, 'ATN' MEANS 'ARCTANGENT', A TRIGONOMETRIC FUNCTION,#j=AND 'EXP' MEANS 'EXPONENTIAL', WHICH IS THE ANTILOG FUNCTION.#j>IF YOU USE A TRIGONOMETRIC FUNCTION, PLEASE NOTE: THEY INVOLVEjRADIANS, NOT DEGREES.j$j?TYPE CHOICE NUMBER: WOULD YOU LIKE PRACTICE USING: (1) A 'TRIG'#j>FUNCTION? (2) A 'LOG' FUNCTION? (3) ANOTHER STANDARD FUNCTION?j3OR (4) NO STANDARD FUNCTION? WHAT'S YOUR PREFERENCEgW@W@W`W@jj/I DO NOT UNDERSTAND YOUR CHOICE. PLEASE RETYPE.jjGOOD. CALL IN 'TUT11' AND TYPEAS YOUR FIRST CHOICEbj"GOOD. CALL IN 'TUT12' AND PROCEED.bj!j9THAT'S FINE. WE'LL USE THE PROGRAM CALLED 'TUT10'FOR THISl#j>PURPOSE. CALL IT IN FROM THE LIBRARY, AND AFTER YOU HAVE TYPEDn#j>'RUN' I'LL GIVE YOU SPECIFIC STEP-BY-STEP DIRECTIONS ON HOW TOp#j>PROCEED. AFTER YOU HAVE HAD A CHANCE TO TRY IT, WE CAN DISCUSSr"j;THE RESULTS IN THIS PROGRAM WHEN YOU CALL IT BACK IN. SO...tj4DO A TAPE WITH 'TUT10', AND I'LL BE WAITING FOR YOU.vb'`TUT10 W O. #R *** HP TIME-SHARED BASIC PROGRAM LIBRARY ********************* R #R TUT10: TUTOR SERIES BASIC LANGUAGE PROGRAMMING COURSE, R (PART 10 OF 25)R 36139 (A810) REV A -- 7/71R#R *** CONTRIBUTED PROGRAM **************************************Rd"j 2. TURN ON THE PUNCH BY DEPRESSING THE ON BUTTON ON THE LEFTj SIDE OF THE TELETYPE.j!j: 3. PRESS 'RETURN'. THIS WILL CAUSE A TAPE TO BE PUNCHED."j< A LISTING WILL BE GENERATED WHILE THE TAPE IS PUNCHING.j"j; 4. WHEN TAPE IS NO LONGER BEING GENERATED FROM THE PUNCH,"$j@ YOU CAN TURN IT OFF BY PRESSING THE OFF BUTTON (RIGHT ABOVE,j THE ON BUTTON).6j@j% 5. TEAR OFF THE NEWLY PUNCHED TAPE.JjTj4 6. LIFT THE LITTLE PLASTIC CLAMP ON THE READ UNIT.^jhj% 7. PLACE THE TAPE IN THE READER BY;r"j; A) LOCATING THE SECTION OF TAPE THAT CONTAINS A SERIES|j OF BLANK FEED HOLES,#j= B) PLACING THIS SECTION OF THE TAPE UNDER THE CLAMP WITH j8 THE TEETH OF THE SPROCKET IN THE FEED HOLES, ANDj- C) CLOSING THE CLAMP DOWN ON THE READER.jj/ 8. TYPE 'SCRATCH' (CR) AND THEN 'TAPE' (CR).j#j> 9. PRESS THE LEVER ON THE FAR LEFT SIDE ALL THE WAY FORWARD.j j7 10. REMOVE THE TAPE WHEN THE TELETYPE HAS READ IT ALL.j"j< 11. TYPE 'KEY'. IF ANY ERRORS WERE DETECTED DURING READING,j* THE DIAGNOSTICS WOULD BE PRINTED NOW.jj# 12. IF NEEDED, CORRECT ANY ERRORS.j j 13. TYPE 'RUN'.&j0j:!j9 WHEN THE PROGRAM IS THROUGH RUNNING, CALL 'TUT09' BACK.DbNjXj4DO YOU WISH TO RUN THROUGH THIS PROGRAM AGAIN (0=NO,]jANY OTHER NUMBER=YES)bf4ljvV4"j;WHEN YOU WISH TO MOVE ON AND LEARN MORE, CALL BACK 'TUT09'. jSEE YOU THERE.bWjHOW MUCH IS 2 PLUS 2`fjjtV@~jAW, COME ON - HOW MUCH`j!RIGHT, NOW CALL IN 'TUT09' AGAIN.`TUT11 W S #R *** HP TIME-SHARED BASIC PROGRAM LIBRARY ********************* R #R TUT11: TUTOR SERIES BASIC LANGUAGE PROGRAMMING COURSE, R (PART 11 OF 25)R 36139 (A810) REV A -- 7/71R#R *** CONTRIBUTED PROGRAM **************************************RxjWHAT IS YOUR FIRST CHOICEf4jV4@V4@V4`V4S8V4k%"j;YOU AREN'T PLAYING FAIR, BETTER YOU STAPT OVER: TYPE 'RUN'.b!j:HERE WE GO. PICK ONE OF THE TRIGONOMETRIC FUNCTIONS: SINE,#j=COSINE, OR TANGENT, IN THE SPACE BELOW, WRITE A PROGRAM WHICHjWILL GIVE THE FOLLOWING OUTPUT:j j8 'THE VALUE OF THE (FILL IN FUNCTION NAME) FOR (FILL!j: IN ANGLE VALUE) DEGREES IS (FILL IN FUNCTION VALUE)'j#j=DO IT FOR 8 SEQUENTIAL ANGLE VALUES, WRITE YOUR PROGRAM HERE:" X@P ,j6Z@j/WHEN YOU'RE DONE, TYPE '1' AND WE'LL CONTINUE -JjT j ARE^jh j YOUrj| j DONEj j YETj j fjV@j!OK - KEEP WORKING ON IT, DONE YET$j@NOW , WHEN I STOP, 'SCRATCH', ENTER YOUR PROGRAM AND TRY RUNNING%jAIT. WHEN YOU ARE DONE, CALL 'TUT11' AGAIN. THIS TIME TYPE 10652jIN ANSWER TO MY FIRST QUESTION.b$j@AND YOU'VE WRITTEN A PROGRAM? GOOD, NOW FOR THE $63.95 QUESTION:j)(1=YES, OTHER NUMBERS=NO) DID IT WORK????&gt0j:Wt@XD j7THIS MAKES YOU A TRIGONOMETRIST, SO CALL IN 'TUT12', ORIj4IF YOU'VE BEEN THROUGH THAT ONE CALL IN 'TUT13'. OK.NbX#j>WELL HERE'S ONE THAT WILL. TYPE THE NUMBER OF THE CHOICE HERE:bj0DID YOU USE (1) SINE, (2) COSINE, OR (3) TANGENTlgvjW@W@W`bj3AND WHAT ANGLE DID YOU START WITH? HOW MANY DEGREESfjj*HOW ABOUT THE INCREMENT? NUMBER OF DEGREESfjj)O.K. - HERE YOU ARE - CALL THE ANGLE 'A':jj 100 FOR A = TO  ԤpSTEP W`\ W@zj. 110 PRINT ''THE VALUE OF THE SINE OF''; j4 120 PRINT A;''DEGREES IS'';SIN(A*3.14159/180)* j 130 NEXT A4 j 140 END>jH"j;TRY IT OUT; YOU SHOULD BE SUCCESSFUL. THEN CALL IN 'TUT12'.Mj3OR, IF YOU'VE BEEN THRU THAT ONE, CALL 'TUT13'. OK?Rb\j1 110 PRINT ''THE VALUE OF THE TANGENT OF'';fj4 120 PRINT A;''DEGREES IS'';TAN(A*3.14159/180)p*zj0 110 PRINT ''THE VALUE OF THE COSINE OF'';j4 120 PRINT A;''DEGREES IS'';COS(A*3.14159/180)*j4THE FOLLOWING PROGRAM WILL PRINT OUT A TABLE OF LOGS!j:FROM LOG(2.0) THRU LOG(8.8) IN INCREMENTS OF 0.2. HOWEVER,&jCIT IS IN THE WRONG ORDER. (REMEMBER, THESE ARE NATURAL LOGARITHMS)jj 200 LET N(J)=LOG(I+(J-1)/10)j j 300 NEXT Ij j 400 PRINTjj 500 FOR I=2 TO 8j$ j 600 END.j8j 700 PRINT I;N(1);N(3);N(5);N(7);N(9)BjLj 800 FOR J=1 TO 9 STEP 2Vj` j 900 NEXT Jjjt$j@ 1000 PRINT '' .0 .2 .4 .6 .8 ''j* NOW, WHEN I STOP, YOU DO THE FOLLOWING:jj, REARRANGE THE PROGRAM IN PROPER SEQUENCE,jj3 'SCRATCH', TYPE OUT THE PROGRAM, THEN TYPE 'RUN'.jj0 WHEN RUN IS COMPLETED, CALL IN 'TUT11' AGAIN.jj/ ANSWER MY FIRST QUESTION BY TYPING IN 27429. b!j7DID THE PROGRAM RUN PROPERLY (0=NO, OTHER NUMBERS=YES) g(WP2#j=THEN I GUESS YOU'RE A LOGARITHMIAN - PROCEED WITH YOUR LESSON<j4BY CALLING IN 'TUT12' (IF YOU'RE THRU WITH THAT ONE,Fj6CALL IN 'TUT13' ) FROM THE LIBRARY. YOU'RE DOING FINE.KbPj/WELL, HERE'S A SEQUENCE THAT WILL WORK FOR YOU:Zjd Xdpdnh$xj CHANGE  TO $Zj CHANGE 1000 TO 110KZxA_UFPZnj j8TRY IT - AND WATCH IT WORK. THEN, CALL IN 'TUT12' (OR IFj6YOU'VE BEEN THRU THAT, CALL 'TUT13') FROM THE LIBRARY.bj0TRY THIS ONE: WHAT IS ABS(SQR(15-6*INT(1.8742)))fTjVT`"jTHEN, SQR(15-6) = +3 OR -3, AND ABS(+3) OR ABS(-3) ARE BOTH 3.j3HOW ABOUT: INT (5-ABS(SQR(1.84+ABS(1-X)))) WHEN X=4ft Vt@P j8CAN'T BE. NOTICE: ABS(1-X)=ABS(-3) OR 3, AND SQR(1.84+3)$j?IS +2.2 OR -2.2. NOW, ABS(+2.2) AND ABS(-2.2) ARE BOTH 2.2, AND(j6INT(5-2.2), OR INT(2.8), IS 2 (TRUNCATE) - THE ANSWER.2dPVT`dZ#j=YOU HAD THEM BOTH RIGHT, SO I'LL PRONOUNCE YOU A FUNCTIONEER.d!j:LET'S GO ON WITH OUR LESSON. CALL IN 'TUT12' OR, IF YOU'VEnj$COMPLETED THAT ONE, CALL IN 'TUT13'.x`ZTUT12 W )b #R *** HP TIME-SHARED BASIC PROGRAM LIBRARY ********************* R #R TUT12: TUTOR SERIES BASIC LANGUAGE PROGRAMMING COURSE, R (PART 12 OF 25)R 36139 (A810) REV A -- 7/71R#R *** CONTRIBUTED PROGRAM **************************************Rd$j?BEFORE WE GO ON TO DEFINING FUNCTIONS, WOULD YOU LIKE TO REVIEWnj0THE MEANINGS OF THE STANDARD ONES (0=NO, 1=YES) xgjWW@"j9PLEASE USE BINARY (ONLY '0' OR '1'), WHICH IS IT . . . . j GOOD, USE THIS ANSWER SELECTION:jj1 (1) SIN(X) (2) COS(X) (3) TAN(X) (4) ATN(X)jj1 (5) EXP(X) (6) ABS(X) (7) LOG(X) (8) SQR(X)jM$j6USE THE NUMBER OF YOUR CHOICE FOR EACH QUESTION BELOW.jj'WHICH FUNCTION FINDS THE ABSOLUTE VALUEf"M$$@,j6V`h@"jEXCELLENT. NOW FOR THE HARDEST: WHAT FUNCTION COMPUTES 'E^X'NfXM$$@bjlVPv#jBY THE WAY, YOU GET A 'BIG FAT GOLD STAR' FOR A PERFECT SCORE."j ARGUMENT IS NEGATIVE, AN ERROR MESSAGE WILL APPEAR. IF 'SQR'"jj1 10 LET X=3.14159/180 (DEGREES TO RADIANS)Hj, 20 FOR I=0 TO 360 STEP 60 (START OF LOOP)Rj/ 30 PRINT I, SIN(X*I) (OUTPUT STATEMENT)\j* 40 NEXT I (END OF LOOP)pjz#j=IF YOU WOULD LIKE TO HAVE THIS PROGRAM RUN, TYPE '1', IF NOT,j$TYPE ANY OTHER NUMBER, WOULD YOU....f$jV$@ MdZ XZx j$Zj#j>COLUMN HEADINGS WOULD PROBABLY HAVE IMPROVED THE OUTPUT, ALSO,"jEIGHT FUNCTIONS ABOVE, THERE'S 'INT', WHICH EXTRACTS THE WHOLE$#j>NUMBER PART OF ANY NUMBER. IF N=27.68, THEN WHEN THE STATEMENT.$j?'PRINT INT(N)' IS USED, THE COMPUTER WILL PRINT '27', THE OTHER8"j;STANDARD FUNCTION IS 'RND(X)' WHICH GENERATES A NUMBER (NOTB$j@SPECIFIED) BETWEEN 0 AND 1, IT HAS AN UNUSED ('DUMMY') ARGUMENT.LjVWj`#j=I'LL REMIND YOU OF A PROGRAM ON STANDARD FUNCTIONS LATER, NOWj"j;LET'S SHOW HOW WE CAN WRITE OUR OWN FUNCTIONS, THIS IS DONEt#j>BY MEANS OF THE TERM 'DEF' (FOR 'DEFINE'), HERE IS AN EXAMPLE:~jj DEF FNP(C) = C+.57*Cj#j>THE 'FN' MEANS 'FUNCTION' TO THE COMPUTER, AND 'P' IS THE NAME"j;OF THE FUNCTION, A FUNCTION NAME IS A SINGLE LETTER, SO YOU"jTHEN THE EXPRESSION COULD BE READ: 'THE PRICE FUNCTION OF COSTjIS DEFINED AS C+.57*C'.(j2#j=THE FOLLOWING SAMPLE PROGRAM INCORPORATES THE ABOVE FUNCTION:<jFj 100 DEF FNP(C) = C+.57*CP j 110 READ CZj4 120 PRINT ''THE PRICE IS'';C;'%MARK UP IS''FNP(C)d j 130 DATA 1.00n j 140 ENDj"jTHE STANDARD FUNCTIONS ARE USUALLY SUBROUTINES, SINCE WHEN ONEx$j@OF THEM IS CALLED FOR, THE MACHINE SUBSTITUTES THE ARGUMENT INTO#j>A SERIES (SUM OF TERMS) TO EVALUATE THE FUNCTION, WE MAY WRITE#j=OUR OWN SUBROUTINE FOR A PROCESS TO BE DONE MORE THAN ONCE IN$j?OUR MAIN PROGRAM. THE SUBROUTINE WILL BE EXECUTED WHEN THE MAIN j8PROGRAM TRANSFERS CONTROL TO IT, NOTE THESE EXPRESSIONS:jj/ (1) GOSUB (2) DOSUB (3) GOFOR (4) ROUTINEj#j(SUBROUTINE) WHICH BEGINS ON LINE 400' . AFTER THE SUBPROGRAM6#j=HAS BEEN EXECUTED, CONTROL IS RETURNED TO THE STATEMENT AFTER@!j:THE ONE WHICH CALLED FOR THE SUBROUTINE, HOW IS THIS DONE:JjTj. (1) GOBACK (2) MAIN (3) RETURN (4) GO TO^jhj DO YOU THINK (NUMBER OF CHOICE) rg$|jW$`!j8YOU HAVEN'T HIT THE RIGHT KEY, YET, NUMBER OF CHOICE....r#j=YOU'VE GOT IT, YOU USE THIS ONE AS THE LAST STATEMENT IN YOUR$j?SUBPROGRAM SO AS TO RETURN TO THE POINT WHERE YOU LEFT THE MAIN"j;PROGRAM. THE NEXT STATEMENT IN THE LATTER IS THEN EXECUTED.jWE'LL TRY AN EXAMPLE.#j>HERE'S ONE THAT WILL GIVE US THE MAXIMUM AND MINIMUM VALUES OF&$j?N NUMBERS, ASSUMING NO TWO NUMBERS ARE EQUAL, I'LL LEAVE ONE OFN$j?THE MAIN PROBLEM STATEMENTS BLANK; WHEN I STOP TYPING, YOU FILLX j7IT IN CORRECTLY SO THAT IT WILL CALL IN OUR SUBROUTINE.l XdAPvjj (MAIN PROGRAM STATEMENT)Zjj  XKUPjj (MAIN PROGRAM STATEMENT)Zjj2(THE NEXT 11 STATEMENTS CONSTITUTE THE SUBROUTINE)j j 200 LET B=A(1)j j 210 LET C=A(1)j j 220 FOR I=2 TO N*j4j 230 IF A(I)jHj 240 IF A(I)>C THEN 265Rj\ j 250 GO TO 268fjk j 260 LET B=A(I)mjp j 262 GO TO 268qjr j 265 LET C=A(I)sjt j 268 NEXT Izjj 270j j5NOW FILL IN LINE 140. WHAT STATEMENT DID YOU REFER TOgTjWTFWTdj0IT'S A LINE NUMBER IN THE SUBROUTINE. WHICH ONE j5NO, I MEAN WHAT SUBROUTINE STATEMENT DID YOU REFER TOgdjWdd$j?IT HAS TO BE 200. THIS IS THE FIRST LINE IN THE SUBROUTINE. NOW#j>RIGHT. SINCE THIS ONE IS THE FIRST LINE IN THE SUBROUTINE. NOW!j7FILL IN LINE 270. WHAT IS THE FIRST LETTER YOU PUT DOWNfj#j=IT'S 'R', BECAUSE ALL YOU NEED HERE IS THE WORD 'RETURN'. THE"jTO COMPLETE THE PROGRAM, AN 'END' STATEMENT IS NECESSARY. THIS!j:MUST CARRY THE HIGHEST LINE NUMBER - SUBROUTINES INCLUDED.j$j?IF THE SUBROUTINE OCCURS BETWEEN THE MAIN PROGRAM AND THE 'END'"j;STATEMENT, A 'STOP' STATEMENT MAY ALSO BE NEEDED TO AVOID A"j<'NONSENSE' OUTPUT. SO THE FINAL PROGRAM COULD IN GENERAL BE:j j 100 (MAIN PROGRAM BEGINS) j . .... j . ....4 j 140 GOSUB 200>j . (MAIN PROGRAM RESUMES)H j . ....R j 190 STOP\j 200 (SUBROUTINE BEGINS)f j . ....p j . ....z j 270 RETURN j 300 ENDj"j;I HOPE YOU WILL TRY USING SUBROUTINES IN YOUR OWN PROGRAMS.j2SO THAT YOU CAN BECOME P~ROFICIENT AT WRITING THEM.j"jTHE PURPOSE OF 'REM' IS TO ENABLE A PROGRAMMER TO PUT COMMENTS jTHROUGHOUT HIS PROGRAM. $j"CALL 'TUT14' FOR YOUR NEXT LESSON. ``~TUT14 B ! #R *** HP TIME-SHARED BASIC PROGRAM LIBRARY ********************* R #R TUT14: TUTOR SERIES BASIC LANGUAGE PROGRAMMING COURSE, R (PART 14 OF 25)R 36139 (A810) REV A -- 7/71R#R *** CONTRIBUTED PROGRAM **************************************Rdj6GLAD TO SEE YOU AGAIN, I HOPE YOU HAVE BEEN PRACTICINGn"j;THE INSTRUCTIONS AS YOU LEARN THEM, LEARNING HOW TO PROGRAMx j8WELL IS LIKE MASTERING A FOREIGN LANGUAGE, ONLY REPEATEDj!EXERCISE CAN MAKE YOU PROFICIENT.Mtj$j?BEFORE WE UNDERTAKE ANY NEW WORK, LETS FIRST REVIEW SOME OF THE j8BASIC STATEMENTS YOU HAVE PREVIOUSLY BEEN INTRODUCED TO.jj6AN ARITHMETIC FUNCTION MAY BE USED TO AVOID WRITING ANj4IDENTICAL STATEMENT REPETITIOUSLY, FOR EXAMPLE, YOURj-PROGRAM MAY REQUIRE THE FOLLOWING STATEMENTS;jj* 120 LET U=(C1*X^2 + C2*X + C3) * SIN(X) j . j .j$ 280 LET V=(C1*Y^2 + C2*Y + C3) +2 j . j ."j 370 LET W=C1*Z^2 + C2*Z + C3, j .6j@$j@AN EASIER WAY TO DO THIS WOULD BE TO USE THE FUNCTION STATEMENT.J!j9WHICH OF THE FOLLOWING STATEMENTS WOULD BE INVOLVED (TYPETjTHE NUMBER OF THE STATEMENT)^jhj0 (1) GO TO (2) REM (3) DEF (4) IF...THEN...rj|gjW`Mtt@ j8YOU'RE PUTTING ME ON. A FUNCTION MUST BE PRECEDED BY THEj3SYMBOL 'DEF', AN ABBREVIATION OF THE WORD 'DEFINE'.j jRIGHT. j/ YOU WOULD WRITE, FOR EXAMPLE, THE FOLLOWING ;jj% 90 DEF FNR(Q)=C1*Q^2 + C2*Q + C3j .j .j 120 LET U=FNR(X) * SIN(X)j .j .&j 280 LET V=FNR(Y)+20j .:j .Dj 370 LET W=FNR(Z)NjX#j=REMEMBER - A FUNCTION, LIKE THE PARENTS OF A TEENAGER, ALWAYSb j8REQUIRES AN ARGUMENT, IN THE DEFINING STATEMENT (90) THEl j8ARGUMENT IS Q, WHEN USED IN THE BODY OF THE PROGRAM, THEvj4CALLED FOR ARGUMENT REPLACES THE 'DUMMY' ARGUMENT Q.j$j=FOR EG, IF C1=1, C2=3, AND C3=6, WHAT IS THE VALUE OF FNR(3) gjW` Mtt@j*NO, WOULD YOU BELIEVE 24? (1*9 + 3*3 + 6) j VERY GOOD. jj!j:DID YOU UNDERSTAND THE DIFFERENCE BETWEEN A FUNCTION AND A"j;SUBROUTINE? A SUBROUTINE IS USED TO AVOID WRITING IDENTICAL$j?GROUPS OF INSTRUCTIONS, WHEREAS A FUNCTION TREATS ONLY A SINGLE jLINE,j "jUSE OF A SUBROUTINE? (TYPE THE 2 NUMBERS SEPARATED BY A COMMA)4j>!j8 (1) GO TO (2) RETURN (3) NEXT (4) GOSUB (5) END HgRj\M%fW@pMtt@zWt@j6X?)'ZG';=80>:?< (THE COMPUTER EQUIVALENT OF TSK, TSK) j8SINCE THIS IS YOUR FIRST MISTAKE, I WON'T REPRIMAND YOU.jRIGHT. j j8GOSUB XXX IS AN ABBREVIATED WAY OF INDICATING 'GO TO THE j7SUBROUTINE WHICH STARTS AT LINE NUMBER XXX'. THE RETURN$j@STATEMENT, WHICH SHOULD BE THE LAST STATEMENT IN THE SUBROUTINE.$j?IS A SIGNAL THAT WHEN THE SUBROUTINE HAS BEEN EXECUTED, CONTROL!j:IS RETURNED TO THE PROGRAM STATEMENT FOLLOWING 'GOSUB XXX'jj$j@THE FUNCTION AND SUBROUTINE CALLS ARE VERY POWERFUL INSTRUCTIONSjAND SHOULD BE MASTERED.Wt@8$#jSINCE YOU MISSED t%OF THE ABOVE QUESTIONS ABOVE, PERHAPS.j4YOU SHOULD REVIEW 'TUT09' WHEN YOU ARE THROUGH HERE.8jBjL"j;YOU PROBABLY NOTICED THAT BLANKS WERE INSERTED BETWEEN SOMEVj5OF THE WORDS USED IN THE STATEMENTS ABOVE, TO IMPROVE`$j@LEGIBILITY, BLANKS MAY BE USED FREELY IN ALL STATEMENTS, WITHOUTj#j>AFFECTING THE INTENT OF THE STATEMENT IN ANY WAY, WITH BUT ONEt"jAT THE FOLLOWING. TYPE A ZERO IF YOU THINK A SYSTEM COMMAND ISj.INVOLVED, AND A ONE FOR A PROGRAM INSTRUCTION.jM4MD L@@ L@@ L`" L@@, LP6 L`@ Lp@J L@@T LH^ LPhj   BATTING AVERAGErj|jGOSUB XjDEF XjBYE X j IF...THEN... XjHELLO XjSCR XjLET XjINPUT X0jLIST :XDNR SUBRXMDD@bglW0Dv j  OUT j  HITM44@L$4'D}@j$^R END SUBRjV$j@V$K !j9YOUR BATTING AVERAGE WAS .....NEVER MIND. TENNIS ANYONE?j/THE DODGERS COULD HAVE USED YOU LAST SEPTEMBER. jHOW ARE YOU AT PING PONG?j $j?--NOTE-- A PROGRAM INSTRUCTION MUST BE PRECEEDED BY A STATEMENT*j6NUMBER -- A SYSTEM COMMAND IS NEVER PRECEEDED BY ONE.4j>jH$j?LET'S SEE HOW SOME OF THESE SYSTEM COMMANDS CAN BE USED. ASSUMERj3THE FOLLOWING IS PART OF A PROGRAM BEING DEVELOPED:\jfj .pj .z j 410 GOSUB 800 j 420 LET T=T+T1 j 430 LET T=T+T1 j 440 LET D=V*Tj .j .j 800 LET Q=C1*V+2 j 810 LET R=K*D j 820 ENDj$j?UPON EXAMINATION, YOU MAY NOTE THAT STATEMENT 430 IS REDUNDANT.$j?YOU COULD DELETE THIS BY MERELY TYPING IN THE STATEMENT NUMBER."j;THEN DEPRESSING THE CARRIAGE RETURN. THE COMPUTER INTERPETS"j;THIS AS AN ERASURE OF THE PREVIOUSLY WRITTEN STATEMENT 430.j$j@THERE IS ALSO A STATEMENT MISSING FROM THE SAMPLE PROGRAM ABOVE."j;WITHOUT WHICH THE PROGRAM WOULD NOT RUN. JUST FOR EXERCISE.$"jSUBROUTINE, WHICH SHOULD BE INSERTED BETWEEN STATEMENT NUMBERSj1810 AND 820. YOU COULD CORRECT THIS BY TYPING IN:j j 815 RETURNjj5DO YOU SEE THE ADVANTAGE OF NUMBERING YOUR STATEMENTS!j:INCREMENTALLY? IT'S EASIER TO INSERT STATEMENTS AT A LATER!j9TIME WITHOUT NEEDLESS RETYPING OF NEIGHBORING STATEMENTS. j#j=IF YOU WERE CORRECTING A PROGRAM, YOU WOULD SOON REALIZE THATj2YOU HAVE A HOPELESS RECORD OF YOUR WORK, AND WOULD(jLIKE A FRESH UPDATED LISTING.2j<"jANOTHER FEATURE IS THE ABILITY TO RENUMBER STATEMENTS. THIS IS$j?DONE BY A COMMAND OF THE FORM 'REN-X,Y', WHERE X IS THE NUMBER %jAASSIGNED TO THE FIRST STATEMENT AND Y IS THE INTERVAL BETWEEN NEW jSTATEMENT NUMBERS.j4FOR EXAMPLE, THE COMMAND 'REN-20,10' SAYS, IN EFFECT$j?STARTING WITH THE FIRST STATEMENT OF THE PROGRAM I AM CURRENTLY%jAWORKING ON, ASSIGN TO IT THE STATEMENT NUMBER 20. FROM THAT POINT!j:ON, RENUMBER THE REMAINING STATEMENTS IN INCREMENTS OF 10.jj BEFORE AFTERjj#15 LET S=0 20 LET S=0j(18 FOR I=N TO M 30 FOR I=N TO Mj%23 LET S=S+I 40 LET S=S+Ij"25 NEXT I 50 NEXT Ij#31 PRINT S 60 PRINT S"j,"jFOLLOWING COMMANDS WOULD BE NECESSARY IF THE RESULTING PROGRAM@j+WERE TO BE OF ANY USE TO YOU IN THE FUTURE.JjTj' (1) NAME (2) GET (3) SAVE (4) STOP ^ghjrW`wW@|jNO. %jAACTUALLY, TO STORE THE NEWLY INCREMENTED PROGRAM IN YOUR LIBRARY.j5THREE COMMANDS ARE NEEDED, THEY ARE 'KILL-', 'NAME-',j3AND 'SAVE', WHERE THE PROGRAM NAME FOLLOWS THE '-'.jV"jCASE YOU HAVEN'T, LET'S TRY THEM OUT. THE ARROW IS FOR ERASING%jASINGLE CHARACTERS (INCLUDING SPACES) YOU HAVE TYPED. FOR EXAMPLE,jENTER A SINGLE DIGIT fj$jYOU TYPED IN THE NUMERAL THAT TIME. NOW TYPE IN A NUMBER#j>HAVING FOUR OR FIVE DIGITS, AND FOLLOW IT IMMEDIATELY WITH TWO "j;ARROWS (KEYBOARD 'O' WITH SHIFT KEY) FOLLOWED BY ONE OR TWO jOTHER DIGITS. TRY IT.fj("jYOU TYPED IN THE NUMERAL THAT TIME. SEE HOW IT WORKS?2#j=A SINGLE ARROW WOULD HAVE ERASED THE LAST DIGIT, THREE ARROWS<!j:THE LAST THREE DIGITS, AND SO ON. THE OTHER EDIT COMMAND IF#j>MENTIONED, 'ALT MODE', WILL DELETE AN ENTIRE LINE OR EVEN SOMEP#j=COMMANDS, SUCH AS 'SAVE', IF IT IS USED PRIOR TO THE CARRIAGEZ#j=RETURN. TRY IT WHEN YOU WANT TO CANCEL A LINE YOU HAVE TYPED.dj3I'M OUT OF PROGRAM SPACE AGAIN, SO CALL 'TUT17' ANDnj WE'LL CONTINUE - SEE YOU THERE -'`(TUT17 B + #R *** HP TIME-SHARED BASIC PROGRAM LIBRARY ********************* R #R TUT17: TUTOR SERIES BASIC LANGUAGE PROGRAMMING COURSE, R (PART 17 OF 25)R 36139 (A810) REV A -- 7/71R#R *** CONTRIBUTED PROGRAM **************************************RdN n"j;YOU HAVE DIALED THE WRONG NUMBER. INSTEAD OF YOUR BOSS, YOUx"jI WOULD LIKE TO STORE IT WHERE IT CAN BE ACCESSED ONLY THROUGHj"MY OWN USER NUMBER. PLEASE ADVISE &%jA (B) I HAVE BEEN WORKING WITH ONE PROGRAM THAT IS NOW 'SAVED' AND#j= I WOULD NOW LIKE A CLEAN MEMORY TO START WRITING A NEW ONE.j WHAT COMMAND SHOULD I USE?&%jA(C) I HAVE WRITTEN AND SAVED SO MANY PROGRAMS THAT I CAN REMEMBER j8NEITHER THEIR NAMES NOR HOW MANY THERE WERE. I REGRET MY!j:PROMISCUOUS PAST, AND WOULD LIKE A LIST OF THEIR NAMES, SO!j:THAT I MAY CORRECT THE SITUATION. PLEASE TELL ME HOW I MAYjOBTAIN SUCH A LIST&#j>(D) I HAVE JUST COMPLETED MAKING SEVERAL CHANGES TO MY PROGRAM #j>AND EVERYTHING IS NOW SO CONFUSED THAT I REALLY DON'T HAVE ANY"j;IDEA OF WHERE I AM. HOW CAN I START LIFE AGAIN WITH A FRESH jUPDATED LISTING OF MY PROGRAM *&4%jA(E) MY PROGRAM REQUIRES A FEW ADDITIONS TO IT. WHEN I WAS WRITING>#j=IT, I SEQUENCED THE INSTRUCTIONS BY TWOS, BUT I NOW FIND THATH#j>I HAVE TO ADD AS MANY AS 3 OR 4 STATEMENTS BETWEEN SOME OF THER"j;EXISTING ONES. I KNOW--I GOOFED BY NOT USING A LARGE ENOUGH\&jCINCREMENT, BUT I UNDERSTAND THAT THERE IS A METHOD FOR RESEQUENCINGf"j;THE STATEMENT NUMBERS USING ANY NEW INCREMENT I NOW CHOOSE.p"j'SAVE' TO KEEP IT. NOW I FIND THAT THE UPDATES WERE ALL WRONG.jj'HOW CAN I GET THE ORIGINAL PROGRAM BACKt&~"j<(J) THIS CRAZY PROGRAM SEEMS TO GO ON FOREVER. THE ONLY TIME%jAIT EVER PAUSES IS WHEN IT ASKS FOR MORE DATA, BUT THAT'S JUST IT.$j@I DON'T HAVE ANY MORE DATA. I DON'T WANT TO BE RUDE AND HANG UP.j4SO PLEASE TELL ME WHAT I CAN TYPE IN WHEN IT PAUSES &$j@(K) HOLY SMOKE, I HAVE TO DELETE ABOUT 30 CONSECUTIVE STATEMENTS!j:DOES THAT MEAN THAT I MUST ENTER FACH STATEMENT NUMBER. IFj4THE TIME SHARING COMPUTER AT HEWLETT PACKARD IS ONLY#j>HALF AS GOOD AS YOU CLAIM IT IS, THERE SHOULD BE AN EASIER WAY j TO DO THIS&jj"j;-----I'M RUNNING OUT OF PROGRAM SPACE, BUT I HAVE SOME MORE !j:QUESTIONS TO ASK. I WILL CONTINUE THEM ON THE NEXT PART OF#j>THIS SEQUENCE 'TUT18'. BEFORE YOU TYPE 'RUN', PLEASE ENTER THEjFOLLOWING STATEMENT:(j2 j 100 LET S=4<`TUT18 B *A #R *** HP TIME-SHARED BASIC PROGRAM LIBRARY ********************* R #R TUT18: TUTOR SERIES BASIC LANGUAGE PROGRAMMING COURSE, R (PART 18 OF 25)R 36139 (A810) REV A -- 7/71R#R *** CONTRIBUTED PROGRAM **************************************RdM4XnR ******x!R***STATEMENT 100 MUST ALWAYS BE PRESERVED WHEN PERFORMING ANY"R***RESEQUENCING, AS IT MAINTAINS CONTINUITY WITH PREVIOUS PROG.R ******j"j;PLEASE ENTER THE STATEMENT THAT WAS REQUESTED AT THE END OFj'TUT17', AND THEN TYPE 'RUN'.(jL L@h L@p" L`P, L@x@JgTj^L@hW<|rM44@|^"j(M) I HAVE JUST ENTERED A PROGRAM INTO THE SYSTEM VIA THE TAPE"j;READER ON THE TELETYPE. WHAT COMMAND SHOULD I GIVE BEFORE I j TYPE SAVE DJj.(N) DID YOU MESS ME UP. REMEMBER THAT RENUMBER!j:YOU TOLD ME ABOUT? BALONEY, YESTERDAY I TRIED IT, AND SURE#j=ENOUGH, I LISTED THE PROGRAM AND SAW THAT THE STATEMENTS WERE!j:NEWLY INCREMENTED. BUT TODAY I TRIED TO CORRECT ONE OF THE!j:STATEMENTS, USING THAT LIST AS A REFERENCE. NOT ONLY DID I%jANOT CORRECT THE STATEMENT I INTENDED, I REWROTE ANOTHER STATEMENT!j:NOWHERE NEAR THE ONE IN QUESTION. SOMEBODY TOLD ME THAT I #j=NEGLECTED TO DO ONE THING AFTER I PERFORMED THE EDIT COMMAND.jWHAT SHOULD I HAVE~ DONEJ$j?(0) I AM WRITING A RATHER LARGE, ELABORATE PROGRAM. I DEVELOPED $j?PART OF IT UNDER ONE PROGRAM NAME, AND TO MAKE THINGS EASIER, I%jBDEVELOPED THE REST OF IT UNDER A DIFFERENT PROGRAM NAME. I FINALLY "jTHAT IN THIS AGE OF SPACE TRAVEL, NUCLEAR ENERGY AND THE PILL,4#j=THERE SHOULD BE AN EASIER WAY TO COMBINE THE PROGRAMS, RATHER>$j?THAN RETYPE ALL OF THE STATEMENTS FROM ONE OF THE PROGRAMS INTOHj1THE OTHER. IS THERE ANY SPECIAL COMMAND I CAN USERJjj%jB---- THAT'S ALL THE QUESTIONS FOR NOW. LET'S SEE HOW WELL YOU DID.jj YOU ANSWERED4OF THE 15 QUESTIONS CORRECTLY.W4x j7PERFECT SCORE (TELL ME THE TRUTH, DID SOMEONE HELP YOU)`jj#THE CORRECT ANSWERS ARE AS FOLLOWS:$j.j- (A) (B) (C) (D) (E) (F) (G) (H) (I)8j. 5 17 3 12 11 9 4 6 16BjLj (J) (K) (L) (M) (N) (O)Vj 10 14 13 7 5 15`jj$j@WE'LL DISCUSS THESE AND OTHER SYSTEM COMMANDS IN LATER SESSIONS.t#j=THE IMPORTANT THING TO REMEMBER IS: BEFORE YOU ISSUE A SYSTEM~!j9COMMAND, CHANGE TO ANOTHER PROGRAM, OR SIGN OFF, YOU MUSTj1CONSIDER THE EFFECT ON YOUR CURRENT WORKING AREA.j jj,THE NEXT LESSON IS 'TUT19'. COME BACK Y'ALL.(`~TUT19 B PH #R *** HP TIME-SHARED BASIC PROGRAM LIBRARY ********************* R #R TUT19: TUTOR SERIES BASIC LANGUAGE PROGRAMMING COURSE, R (PART 19 OF 25)R 36139 (A810) REV A -- 7/71R#R *** CONTRIBUTED PROGRAM **************************************Rb R THIS PROGRAM USES A TEST PROGRAM WHICH NEEDS TO BE LISTEDd$j@YOU HAVE COME A LONG WAY SINCE YOU STARTED YOUR 'TUTOR' LESSONS.n$j@ALSO, YOU HAVE LEARNED A GREAT MANY TERMS WHICH OUR TIME-SHARINGx#j>SYSTEM USES. HERE IS A LIST OF THE 'BASIC' LANGUAGE STATEMENTSj AND SOME OF THE SYSTEM COMMANDS:jj* (1) ALT MODE(ESC) (13) GO TO (25) REMj, (2) BREAK (14) IF (26) PUNCHj/ (3) BYE (15) INPUT (27) RENUMBERj- (4) CATALOG (16) KEY (28) RETURNj* (5) LIBRARY (17) LENGTH (29) RUNj+ (6) DATA (18) LET (30) SAVEj. (7) DEF (19) LIST (31) SCRATCHj+ (8) APPEND (20) NEXT (32) STEPj+ (9) END (21) NAME (33) STOPj+ (10) FOR (22) GET (34) TAPEj+ (11) GO SUB (23) PRINT (35) THENj+ (12) DELETE (24) READ (36) KILLjjjj j j j j jjL$j1WHICH ONE IS USED TO REQUEST NUMBERS FROM THE TTY"j (TYPE IN THE CORRECT NUMBER),f6VxJ;j0 NO, THE CORRECT ANSWER IS 'INPUT'. TRY ANOTHER.@OJjRIGHT.KL$$@Oj1WHICH ONE MUST BE THE LAST STATEMENT OF A PROGRAMTfYVHh^j' THE CORRECT ANSWER IS 'END'. NEXT ONE:cmhjGOOD.iL$$@mj!WHICH ONE IS USED FOR COMPUTATIONrfwVH |j THAT SHOULD BE 'LET'. j THAT'S RIGHT.L$$@jWHICH ONE IS USED WITH 'FOR'fVP j,YOU SHOULD HAVE PICKED THE STATEMENT 'NEXT'.jO.K.L$$@j/WHICH ONE ALWAYS TRANSFERS CONTROL IN A PROGRAMfVh jYOU MEAN 'GO TO' j VERY GOOD.L$$@jWHICH ONE IS USED WITH 'THEN'fVpjYOU SHOULD HAVE PICKED 'IF'. j THAT'S RIGHT.L$$@jWHICH ONE IS USED WITH 'READ'fV` jNO, IT IS 'DATA'.  j GOOD FOR YOU.L$$@j j7THESE ARE 'BASIC' STATEMENTS WHICH DIFFER FROM 'SYSTEM'! j8COMMANDS IN THAT ALL 'BASIC' STATEMENTS ARE PRECEEDED BY&j5A LINE NUMBER. NOW LET'S LOOK AT THE SYSTEM COMMANDS:+j0j-WHICH ONE IS USED FOR COMBINING TWO PROGRAMS?5f:V@XDjTHE ANSWER IS 'APPEND'.N]X j THAT'S RIGHT.YL$$@]!j7WHICH ONE PUNCHES A TAPE OF THE PROGRAM BEING WORKED ONbfgVh vl j YOU MEAN 'PUNCH'q{vj GOOD.wL$$@{jWHICH ONE ALTERS LINE NUMBERSfVl j THE ANSWER IS 'RENUMBER'.jRIGHT.L$$@jjjTHAT'S$& OUT OF 10 RIGHT. FOR NEW MATERIAL IN"jONE - NUMBER 27 IN THE LIST ABOVE. YOU'LL REMEMBER THAT IT WAS!j:USED TO CHANGE THE LINE NUMBERS IN YOUR PROGRAM. SOMETIMES"jANY OF THESE WAYS COULD BE USED TO DELETE LINES. THERE IS ALSO("j;ONE MORE, AND THERE'S A GOOD REASON FOR IT BEING AVAILABLE.2#j=ALL OF THE OTHER METHODS ARE RELATIVELY SLOW IF LARGE AMOUNTS<#j>OF THE PROGRAM ARE TO BE REMOVED - SUCH AS 11 OR 12 LINES OR AF#j=BLOCK OF LINES. THEREFORE THE SYSTEM MAKES AVAILABLE A WAY OFPj6DOING THIS. IT IS WITH A COMMAND THAT LOOKS LIKE THIS:Zjd j DELETE - XX,YYnjxj2'XX' AND 'YY' ARE LINE NUMBERS. ALL LINES BETWEEN j(AND INCLUDING 'XX' AND 'YY' ARE DELETED.!j:TRY IT BY TYPING IN A SMALL PROGRAM, DELETING A FEW LINES,j(AND GETTING A NEW 'LIST' OF THE PROGRAM.jj* THE NEXT LESSON IS IN THE PROGRAM CALLED  j 'TUT20'. `pTUT20 B 6 #R *** HP TIME-SHARED BASIC PROGRAM LIBRARY ********************* R #R TUT20: TUTOR SERIES BASIC LANGUAGE PROGRAMMING COURSE, R (PART 20 OF 25)R 36139 (A810) REV A -- 7/71R#R *** CONTRIBUTED PROGRAM **************************************Rdj1WHAT HAPPENED WHEN YOU TRIED THE 'DELETE' COMMANDnj0ON THAT OTHER PROGRAM, DID IT WORK (1=YES, 0=NO)f4jV4@,$j?THIS IS AN ACCOMPLISHMENT. NOW LET'S ELABORATE A LITTLE ON THIS#j>COMMAND. THERE'S MORE THAT WE CAN USE IT FOR. SUPPOSE THAT YOU,#j=DIFFERENT THINGS COULD HAVE GONE WRONG. BUT LET'S CONCENTRATE6#j>ON HOW TO MAKE IT COME OUT RIGHT. WHEN YOU USE THIS COMMAND TO@#j>DELETE AN ENTIRE BLOCK OF LINES, BE SURE YOU TYPE 'DELETE' ANDJ%jBSEPARATE IT FROM THE LINE NUMBERS WITH A HYPHEN. SEPARATE THE LINETjNUMBERS WITH A COMMA.tjw$j?TO GIVE YOU SOME MORE PRACTICE, TRY DELETING WHAT WE'VE DONE SO|#j=FAR IN THIS PROGRAM. WHEN I STOP, TYPE 'DELETE - 100,400' AND#j>AND TYPE 'RUN' AGAIN. YOU SHOULD GET LINE 410. LINE 410 IS THE%jBFIRST PROGRAM LINE AFTER 400, WHICH IS THE LAST ONE TO BE DELETED.#j=IF IT DOESN'T WORK, CALL THIS WHOLE PROGRAM BACK IN. OH YES -"jjH#j>HERE, 'N1', 'N2', . . . . , 'N7' REPRESENT LINE NUMBERS. IF WER"jPROGRAMS INTO A SINGLE PROGRAM. LET'S DO THIS WITH THREE VERY%jASHORT PROGRAMS, SO YOU WILL EASILY BE ABLE TO SEE HOW IT IS DONE.jHERE ARE THREE SUITABLE ONES:jj) 100 INPUT X, Y 200 READ Yj0 110 LET W = X+2-Y 205 LET U = Y^2-Yj6 120 FOR I=1 TO 3 240 IF U+2>Y+3 THEN 260j, 242 GO TO 200j' 130 PRINT W+I 250 STOP&j- 140 NEXT I 260 PRINT Y, U0j0 150 END 275 DATA 1.2, 3.5Dj, 300 INPUT X, Y, W, U 292 GO TO 200Nj& 335 PRINT X, Y, W+2-U 300 ENDX j 345 ENDbjl"jTYPE EACH ONE OUT, SAVE IT, AND BE SURE THAT IT RUNS (YOU WILL"jUPPER LEFT 'START', THE ONE BELOW IT 'LAST', AND THE REMAINING$j?ONE 'MIDDLE'. EACH OF THESE SHOULD HAVE RUN FOR YOU IF YOU USED"jY+3 THEN 335*j STOP4j PRINT $X, Y, W+2-U>j ENDHjf(jHCOMPARING THE ABOVE PROGRAM WITH THE THREE GIVEN PROGRAMS, IT IS OBVIOUSp#j=THAT THE FOLLOWING DELETIONS ARE NECESSARY: LINES 120 THROUGHz$j?150 IN 'START', LINE 200 AND LINES 260 THROUGH 300 IN 'MIDDLE',$j@AND LINE 300 IN 'LAST'. THEN THE PROGRAMS CAN BE COMBINED IN THE%jAORDER: 'START', 'MIDDLE', 'LAST'. WHEN I STOP, MAKE THE NECESSARY$j?DELETIONS IN YOUR PROGRAMS, TYPE 'SAVE' FOR EACH, AND CALL THIS j7PROGRAM BACK IN. (THE LINE NOS. REFERENCED IN 240 & 242"j;MUST BE MODIFIED.) TYPE '50 GO TO 1000' BEFORE YOU RUN IT.b#j>YOU WILL NEED TO GIVE THE MERGED PROGRAM A NAME, WHICH YOU CAN j7TYPE IN WITH A 'NAME' COMMAND. TO FORM THE NEW PROGRAM, jYOU MUST TYPE:j j GET-START j APPEND-MIDDLE$ j APPEND-LAST.j8j3'LIST' THE PROGRAM TO SEE WHAT IT LOOKS LIKE. THEN,B"j;TYPE REN-100 TO RESEQUENCE THE PROGRAM AND AGAIN 'LIST' THE#jY+3 THEN 160, j 140 GO TO 1006 j 150 STOP@j 160 PRINT X, Y, W+2-UJ j 170 ENDOjT#j>IF THERE ARE SPACES MISSING ON A LINE IT IS IMMATERIAL. IF YOU^#j=DID NOT GET THE ABOVE PROGRAM, RE-EDIT (MERGE) AND START THIShjPROGRAM AGAIN. DID YOUrf|jV@jSEE YOU LATER THEN.b j8THAT'S FINE. NOTICE THAT IN ORDER TO 'APPEND' A PROGRAM,"j;THE FIRST STATEMENT OF THAT PROGRAM MUST HAVE A LINE NUMBER#j=GREATER THAN THE LAST STATEMENT OF THE PROGRAM TO WHICH IT IS jBEING APPENDED.jj j8---BY THE WAY, PLEASE 'KILL' THE SHORT EXERCISE ROUTINES!j9YOU SAVED AND USED IN 'TUT21' AND 'TUT22'. THANKS A HEAP. j"THE NEXT LESSON IS CALLED 'TUT23'.`zTUT23 B >J %R *** HP TIME-SHARED BASIC PROGRAM LIBRARY ************************ R #R TUT23: TUTOR SERIES BASIC LANGUAGE PROGRAMMING COURSE, R (PART 23 OF 25)R 36139 (A810) REV A -- 7/71R$R *** CONTRIBUTED PROGRAM ****************************************Rd,(vZj U=4.2, V=5.87, W=3.92 (FROMdj)THIS IS 'TUT23', AND IS A REVIEW LESSION,nj TO ENABLE YOU TO MAKE SURE YOUxj,HAVE LEARNED THE FUNDAMENTALS OF THE 'BASIC'j LANGUAGE. THE FIRST PART OFj,THE LESSON WILL BE DEVOTED TO YOUR WRITING Aj PROGRAM INVOLVING TERMS ANDjTHEIR USE. LET'S BEGIN.jj,WRITE THE SHORTEST PROGRAM YOU CAN. TO READ:j,THE PROGRAM ITSELF), TO ENTER A VALUE CALLEDj X FROM THE TELETYPE, AND TOj-PRINT OUT THE POSITIVE DIFFERENCE BETWEEN THEj LARGEST OF THE FOUR VALUESj-AND THE AVERAGE OF THE OTHER THREE. TRY THEMjSEVERAL TIMES USINGj2X AS A PARAMETER (DIFFERENT VALUES). THEN CONTINUEj WITH THIS LESSON PRO-#j>GRAM. BEFORE YOU RE-RUN IT, TYPE '20' AND RETURN THE CARRIAGE"b,j3THE FOLLOWING PROGRAM ALLOWS FOR AN INFINITE NUMBER6 j OF INPUT VALUES:@jJ j 100 READ U,V,WTj 110 DATA 4.2, 5.87, 3.92^ j 120 INPUT Xhj 130 IF X>5.87 THEN 170rj 140 IF X=5.87 THEN 190|j$ 150 PRINT ABS(5.87-((X+8.12)/3)) j 160 GOTO 120j 170 PRINT ABS(X-13.99/3) j 180 GOTO 120j" 190 PRINT ''NO MAXIMUM VALUE'' j 200 GOTO 120 j 210 ENDjj.OF COURSE THIS PROBLEM INTERPRETATION REQUIRESj A UNIQUE MAXIMUM VALUE.j-IF YOURS IS DIFFERENT, DON'T CHANGE IT UNLESSj IT DID NOT WORK. NEXT MAKEj$THE ASSUMPTION THAT THE DATA MAY NOTj$ STAY THE SAME, AND THAT U, V, AND Wj&ARE TO BE REARRANGED (IF NECESSARY) SOj" THAT U IS THEN THE GREATEST AND Wj%THE LEAST OF THE THREE. HAVE X, U, V,&j# AND W PRINTED OUT AS ADJUSTED. RUN0j$THE PROGRAM WITH NEW DATA. THEN CALL:j THIS ONE BACK IN AND TYPE:DjN j DELETE - 20,30Xjb j THEN RUN IT.lbvj4IF YOU CHANGED YOURS SUCCESSFULLY, TYPE '1' AND WHEN j I STOP, CALL IN !j7PROGRAM 'TUT24' WHICH IS THE NEXT PART OF THIS LESSION. j IF YOU WANT TOj.KNOW HOW I CHANGED THE PROGRAM I STARTED WITH,j TYPE '9' INSTEAD. WHAT IS j YOUR CHOICE.gtjWt@bj0I WANT TO REMOVE A BLOCK OF LINES IN THE MIDDLE,j PLUS LIND 110 (A SET OFj1DATA WOULD BE ADDED WITH EACH 'RUN'). WHAT IS THEj BEGINNING (BLOCK) LIND jI SHOULD REMOVE (NUMBER ONLY) gt j*WtAH4j,NO, IT'S 130, BECAUSE V MUST BE GENERALIZED.>RHj,RIGHT; THAT'S BECAUSE V MUST BE GENERALIZED.Rj ON THAT BASIS, WHICH SHOULD\jBE THE LAST LINE IN THE BLOCKfgtpjzj,IT WILL HAVE TO BE 180. WE'LL STILL WANT THEj LAST THREE LINES. SO WE CANjUSE THE SYSTEM COMMANDS:jj DELETE - 110,110j DELETE - 130,180jj,CIRCLE IN PEN OR PENCIL THOSE LINES DELETED.j NOW WE WANT TO INSERT QUITEj'A NUMBER OF LINES WHERE THESE HAVE BEENj! REMOVED. TO MAKE ROOM, SHOULD WEj*(1) USE A SMALL INCREMENT FOR THE NEW LINEj NUMBERS, (2) RESEQUENCE,j+OR (3) WRITE A NEW PROGRAM AND APPEND IT TOj THIS ONE? TYPE NUMBER ONLY:jWHICHgt$j.Wt@8Wt@BWt`~L j8THIS WON'T WORK BECAUSE THE LINE NUMBERS OF THE APPENDEDV j8PROGRAM WOULD NEED TO BE LESS THAN THE LAST STATEMENT OF`#j=THE ORIGINAL PROGRAM. RESEQUENCING WOULD PROBABLY BE THE MOSTjj DESIRABLE WAY TO DO IT.t~jTYPE 1, 2, OR 3 PLEASE.j+OK, PROVIDED YOU DON'T NEED TOO MANY LINES.j I'D PREFER RESEQUENCING. NOWj+THIS IS DOUBTLESSLY THE BEST WAY, ALTHOUGH jANOTHER MIGHT WORK. NOlWj-IN ORDER TO GUARANTEE SUFFICIENT ROOM FOR THEj INSERTED PART, THE COMMANDjBELOW WILL CHANGE LINE NUMBERS:jj RENUMBER - 100,500jj* THIS WAS EXPLAINED IN 'TUT15'. NOW WE CAN j INSERT THE REQUIRED PART:jj' 630 PRINT 760 LET U=V(j' 640 IF UW THEN 790 790 PRINT''X, U, V, AND W:''Fj- 670 LET Y=V 800 PRINT X,U,V,WPj5 680 LET V=W 810 PRINT''DIFFERENCE:'';Zj/ 690 LET W=Y 820 IF X>U THEN 860\j/ 700 GOTO 650 830 IF XW? ..NO..j(........ ........ ........ .j+ . . . .......j+ YES YES YES . Y=V .j+ . . . . V=W .j+....... ....... . . W=Y .j+. Y=U . . Y=U . . .......j(. U=V . . U=W . . .j(. V=Y . . W=Y . . .j,........ ....... . ........&j1 . . ....... X>U? ..NO..0j1 . . ........ .:j5 (150) (160) . ........D!j:  YES . XjHj)NOW LET'S TRY A DIFFERENT PROBLEM. ASSUMERj YOU RECEIVE INTEREST OF 4 PER-\j*CENT, COMPOUNDED QUARTERLY, ON AN ORIGINALfj AMOUNT 'P'. PRINT OUT CURRENTpj+VALUE FOR EACH YEAR, OVER A 10-YEAR PERIOD.zj RUN THE PROGRAM AND SAVE IT.j*THEN CALL THIS ONE BACK IN, AND TYPE '100'j BEFORE YOU RUN IT.j$WE CAN CHECK YOUR ANSWERS WITH MINE.bjHERE IS MY PROGRAM:jj# 100 PRINT''THE VALUE OF P IS''; j 110 INPUT P j 120 PRINT j8 130 PRINT''YEAR NUMBER AND AMOUNT ARE GIVEN BELOW:'' j 140 PRINTj 150 FOR I=1 TO 10j 160 FOR J=1 TO 4j 170 LET P=P+.01*P j 180 NEXT J j 190 PRINT I,P$ j 200 PRINT. j 210 NEXT I8 j 220 ENDBjLj%HERE IS THE PROGRAM AS IT WILL APPEARVj WHEN RUN. FILL IN AN INITIAL `j2VALUE FOR 'P' WHEN IT IS REQUESTED (AROUND $1000):jjtjTHE VALUE OF P IS~gjj'YEAR NUMBER AND AMOUNT ARE GIVEN BELOW:j X@P X@@MQ%ZjjZj&EVEN THOUGH YOU MAY HAVE PROGRAMMED ITj" DIFFERENTLY, YOUR ANSWERS FOR 'P'j)VALUES SHOULD AGREE WITH MINE, IF THEY DO j NOT, MAKE A FLOW CHART FROM MYj&PROGRAM IN ORDER TO TRACE OUT THE FLOW j OF INFORMATION.(j2j*NOW WRITE A PROGRAM WHICH WOULD PERMIT YOU<j TO ADD TO OR SUBTRACT FROM ANFj)AMOUNT 'P' EVERY YEAR FOR 5 YEARS. ASSUMEPj THAT YOU KNOW THE FIVE AMOUNTSZj(WHICH ARE TO BE USED. A 'READ' STATEMENTdj IS PROBABLY PREFERABLE TO USINGnj$AN 'INPUT' STATEMENT, BUT YOU MAY DOxj$ WHATEVER YOU WISH, AFTER YOU'VE RUNjTHE PROGRAM, SAVE IT.jj,THEN, CALL IN 'TUT25' TO FINISH THIS LESSON.`TUT25 P P! #R *** HP TIME-SHARED BASIC PROGRAM LIBRARY ********************* R #R TUT25: TUTOR SERIES BASIC LANGUAGE PROGRAMMING COURSE, R (PART 25 OF 25)R 36139 (A810) REV A -- 7/71R#R *** CONTRIBUTED PROGRAM **************************************Rdnxj(IN THIS PROGRAM, 'TUT25', WE'LL CONTINUEj OUR REVIEW LESSON, ONE PROGRAMj&WHICH WOULD SOLVE THE ASSIGNED PROBLEM j IS THE FOLLOWING:j j 100 INPUT Pj 110 FOR I=1 TO 5 j 120 READ A j 130 LET P=P+A j 140 NEXT Ij, 150 DATA (5 POSITIVE OR NEGATIVE VALUES) j 160 ENDjj$NOW LET'S SUPPOSE WE WANT TO COMBINEj$ THIS PROGRAM WITH THE PREVIOUS ONE,"j$SO THAT IMMEDIATELY PRECEDING THE AN,j$NUAL STATEMENT OF ACCOUNT, A DEPOSIT6j$OR WITHDRAWAL WAS MADE FOR THE FIRST@j$ FIVE YEARS ONLY. TRY THIS WITH YOURJj*OWN PROGRAM. FIRST, INSERT SOME STATEMENTSTj FROM THE LATTER ONE INTO THE^j,PREVIOUS ONE IN THE PROPER PLACES. THEN RUNhj TO CHECK, AND CALL THIS r"jj$ONE INSTRUCTION NEEDS TO BE INSERTEDHj$ SINCE WE ONLY WANT TO CHANGE 'P' IFRj%THE COUNTER 'I' LIES BETWEEN 1 AND 5.\ j SO WE CAN ADD:fjpj 185 IF I>5 THEN 220zjj&DO YOU FOLLOW THE PROGRAM? IF SO, TYPEj! '1'; IF NOT, TYPE '9', PREPARE Aj$FLOW CHART OF THE PROGRAM, AND CALL jTHIS PROGRAM BACK IN. TYPE:j j DELETE-100,110jj AND RE-RUN IT. DID YOU FOLLOW ITf4jV4@bj$GOOD ENOUGH. YOU HAVE HAD A CHANCE Tj$THAT'S GOOD. YOU HAVE HAD A CHANCE Tj$O REVIEW QUITE A NUMBER OF DIFFERENT$j$STATEMENTS AND COMMANDS USED IN 'BAS.jIC', AND IN THE SYSTEM.8jBj$BEFORE WE BRING THIS LESSON COMPLETELj$LY TO A CLOSE, HERE IS A PROBLEM YOUVj$CAN TRY TO WORK OUT. THE LIMIT OF YO`j$UR WORKING CORE IS FOR ALL PRACTICALjj$PURPOSES ABOUT 6000 CHARACTERS. SUPPtj$OSE YOU HAD A PROGRAM, THE LENGTH OF~j$WHICH WAS APPROXIMATELY 11000 CHARACj$TERS LONG. HOW COULD YOU SOLVE THIS?j$TRY TO FIND A WAY. FOR MY SOLUTION. jUSE THIS PROGRAM, BUT TYPE:j j DELETE-100,120j jBEFORE YOU RUN IT.bj$OBVIOUSLY YOU WOULD HAVE TO MAKE TWOj$ PROGRAMS OUT OF THE ONE. BOTH WOULDj$PROBABLY BE ABOUT 5000 TO 5500 CHARAj$CTERS LONG. AT THE END OF ONE, EVERYj$NUMERICAL VALUE STILL NEEDED COULD B j$E TRANSFERRED TO THE OTHER, BY USING j8'COMMON' STATEMENTS. THE FORM OF THE 'COM' STATEMENT IS:j(j 100 COM A(50),B(50)2j<"j;IF THIS IS THE 'COM' STATEMENT IN MY FIRST PROGRAM, I COULDFj-HAVE ONE IN MY SECOND PROGRAM THAT LOOKS LIKEPjZj# 100 COM A(25),B(25),C(25),D(25)djnj4AND 'A' IN MY SECOND PROGRAM WOULD REFER TO THE SAMEx j7DATA CONTAINED IN THE FIRST HALF OF 'A' IN PROGRAM ONE.#j>LIKEWISE, 'B' IN PROG. 2 WOULD REFER TO THE SECOND HALF OF 'A'#j>IN 1, 'C' IN 2 TO FIRST HALF OF 'B' IN 1, AND 'D' IN 2 TO THE jSECOND HALF OF 'B' IN 1. jTRY IT SOMETIME.jj#j>THIS ENDS THE TUTOR SERIES. GLAD TO HAVE HAD YOU IN THE CLASS.jBYE`TUTOR P I j HP 36139. j6TUTOR: TUTOR SERIES BASIC LANGUAGE PROGRAMMING COURSE.j3CALLING NAMES OF PROGRAMS ARE: TUT01 THROUGH TUT25.`USECON *rd R ***USECON*** A MACROECONOMIC HYPOTHESIS-TESTING MODEL iR FOR SENIOR HIGH SCHOOL ECONOMICS STUDENTS. n#R ***BY LOREN DUNHAM, SENIOR HIGH SCHOOL, FAIRMONT, MINNESOTA sR DEVELOPED FOR HEWLETT-PACKARD, FALL, 1973 tR HP CONTRIBUTED LIBRARY, 2/75LR **********DESCRIPTION, INTRODUCTION********** P$THE U.S. ECONOMY: ITS YOUR DECISION!j!j9CONSULT YOUR LAB BOOK FOR DIRECTIONS. FOR ALL RESPONSES, jYES=1 AND NO=0.j#DO YOU WANT TO INPUT INITIAL VALUESgjIN WHAT YEAR ARE YOU STARTINGfW,L@jxPERSONAL CONSUMPTIONP f4xPRIVATE INVESTMENTP fxGOVERNMENT SPENDINGP ft M@4 tP  ----------x ACTUAL GNPP @jx POTENTIAL GNPP g@j,R **********INITIALLIZATION********** >ML @MTAMdBMtUW@VL4N PX}*4VYW,4V\LN P^d*\_K,\bLtN Pdd*tbeK,tbhM@N Pdj W@dlkhl M@4 tn}p*@'@pAG,@'@rVR **********C,I,G, PRINTOUT********** L@M$@#@'@W@jl  **********jl YEAR: jxPERSONAL CONSUMPTIONP 4P@PxPRIVATE INVESTMENTP P@PxGOVERNMENT SPENDINGP tP@PP --------x ACTUAL GNPP @P@Pjx POTENTIAL GNPP @P@Pjl  **********V@jDO YOU WANT TO CONTINUEgWw W$,QW$Qjj0VERY GOOD SO FAR! YOU MUST NOW KEEP THE ECONOMY j BALANCED.W@+@XW@-@R **********INFLATION********** jj1 ********** INFLATION ALERT! ********** XR **********RECESSION********** bjfj1 ********** RECESSION ALERT! **********R **********POLICY INPUTS********** LĞdPVĬyVĪAjjYOU MAY ASSUME A MULTIPLIER OF j j5ENTER YOUR POLICY DECISIONS IN BILLIONS OF DOLLARS OR"j6PERCENTS. BE SURE TO INDICATE DIRECTION OF CHANGE BY A$j2+ OR -. (FORMAT FOR PERCENTS: ENTER 2.1% AS 2.1.)&j( j FISCAL ACTION*j,jGOVERNMENT SPENDING: .g4/W4x 20 W4,x 2162 j TOO DRASTIC!4,6jPERSONAL TAXES COLLECTED: 8gA@9 WA@P <: WA@,P <;@< j TOO DRASTIC!>6@jBUSINESS TAXES COLLECTED: BgA@C WA@xFD WA@,xFEJF j TOO DRASTIC!H@JjLj MONETARY ACTIONPjRjRESERVE REQUIREMENT (%): SgTTWTC33XU WT,C33XVM!TW\X j TOO DRASTIC!YR\jDISCOUNT RATE (%): ^gd_Wd`b` Wd,`bafb j TOO DRASTIC!d\fjNET OPEN MARKET PURCHASES: hgtiWtPlj Wt,Plkpl j TOO DRASTIC!nfpR **********COMPUTATION********** Ltt!4M@4&@"tM@&@"t M`4$#4L44!@%`L!@%` WA@ L44"A@$ WA@ L"A@$WTL"h%T}p$WdL@%dd' L Ԥ}p$Wt L44!@%t$ L!@%t$ M@4 tM@@Q%@L@`WHEELS^ P+M!R *** HP BASIC PROGRAM LIBRARY *****************************RR WHEELS: AUTO PURCHASE AND MAINTENANCE SYSTEMRR 36187 REV B 10/73R R *** CONTRIBUTED PROGRAM ********************************R R NqN*Nє!1AQawP jCODE? uj W0@ B V.  B X@p(h2Z< X@t F!h!1AQaqPZS V.  BUw@Z[V@dj3WELCOME TO THE QUICKIE COMPUTER CAR CHOOSING PARLORnj3***************************************************xj j7SO YOU WANT TO BUY A CAR. WELL, MAYBE I CAN HELP YOU TOjMAKE A GOOD CHOICE. V.  B,j3DO YOU NEED INSTRUCTIONS? TYPE 1 FOR YES, 0 FOR NO.6g@W@rJWTj*I SAID 1 OR 0, NOTHING MORE, NOTHING LESS,^j NOTHING ELSE. TRY AGAIN.h,rj(YOU SHOULD HAVE BEEN GIVEN A ROLE NUMBER|j'FROM 1 TO 15 AND ALSO A CAR DESCRIPTIONj&SHEET. WHEN I ASK YOU, ENTER YOUR ROLEj(NUMBER FOLLOWED BY A COMMA AND THEN THE jCAR NUMBER OF YOUR CHOICE.j,ENTER ROLE NUMBER, COMMA AND CAR CHOICE NOW.g$ V.  BW$x W$$DW$DW$xX VDV&D&Vx l0j4THERE AREN'T THAT MANY CARS, KNUCKLEHEAD. TRY AGAIN.:Dj2ENTRIES MUST BE POSITIVE WHOLE NUMBERS. TRY AGAIN.NXj2THERE ARE ONLY 15 ROLES. TRY ONE OF THEM, INSTEAD.bljvj ROLE NUMBER$ CAR NUMBERy V.  BjREPORT FOR MONTH NUMBERjM$d M%@j YOU DROVEMILES THIS MONTH.j3RUNNING EXPENSES (GAS, OIL, WEAR, ETC.) AMOUNT TO $jjMAJOR REPAIRS REPORTj***** ******* ******~j jACCIDENT REPORT j******** ****** j jUNEXPECTED EVENTS j********** *******4j5>j,WHAT WAS YOUR TOTAL INCOME THIS MONTH? ENTERHjTHE AMOUNT IN DOLLARS.RgH\j/WHAT WAS THE TOTAL OF YOUR EXPENSES? ENTER THE fjAMOUNT IN DOLLARS.pgIz!j YOU SPENTI'Hd@PER CENT OF YOUR INCOME j THIS MONTH.j(TRY HARDER NEXT MONTH. GOOD-BYE FOR NOW. j Zj4YOU ARE NOT PLAYING ONE OF THE 14 ASSIGNED ROLES, SOj4I MUST KNOW ABOUT HOW MANY MILES YOU EXPECT TO DRIVEj4THIS MONTH. ENTER AN ESTIMATE OF HOW MANY MILES AS AjPOSITIVE WHOLE NUMBER.f V.  B VذVتj*I SAID POSITIVE WHOLE NUMBER. BE NICE NOW. Lєxآd LxF MxP $ Mx@. VB8`BVVL`VVx l`j$YOU GOOFED ON YOUR ENTRY. TRY AGAIN.j~LZ@L YD@HLd@V*, UD<d V@ !,$j%EXHAUST SYSTEM NEEDS REPAIR. COST = $x | " V@ A,#j$YOUR BRAKES GAVE OUT. REPAIRS COST $F H  " V@ A(,($j&TRANSMISSION ON BUM. BILL AMOUNTS TO $dd2"< V@ QPF,P&j)BODY EXTERIOR NEEDS SPRUCING UP. COST = $d KZ"d V@ axn,x%j'MECHANICAL PROBLEMS IN ENGINE. BILL = $x F" V@ q,$j&ELECTRICAL SYSTEM NEEDS REPAIR. COST $x G" V@ ,$j%DRIVE LINE PROBLEMS. THIS WILL COST $de" V@ ,$j&FUEL SYSTEM DIFFICULTIES. TOTAL BILL $Pf " V@ ,#j#SUSPENSION SYSTEM TROUBLE. COST = $xV"L@,[D6V@M`@JUTh|TjNO MAJOR REPAIRS THIS MONTH.^hj(YOU'RE IN LUCK. NO MAJOR REPAIRS NEEDED.r|j-NOTHING NEEDS FIXING. THINGS O.K. THIS MONTH.^Ld@L XĞ@`L}@V*XT& V@ $X&j*YOU HAVE BEEN IN A FENDER-BENDER. COST = $PBN V@!$X"j!YOU HAD AN ACCIDENT WITH DAMAGE $ddj'YOUR INSURANCE RATE GOES UP 25 PER CENTN& V@!$:0X:$j&OH. OH. BAD ACCIDENT.DAMAGE TO CAR = $Kd@Dj0AS A RESULT, YOUR INSURANCE GOES UP 50 PER CENT.NL@XZbVlM`@vUjNO ACCIDENTS.THANK GOODNESS.j6IT MUST BE YOUR CAREFUL DRIVING OR LUCK. NO ACCIDENTS.j0NO ACCIDENTS THIS MONTH, NOT EVEN A LITTLE DENT.^jTYPE MONTH NUMBER 1-12fV@ ֯0j2ENTRIES MUST BE POSITIVE WHOLE NUMBERS. TRY AGAIN.Vh4 j%A YEAR HAS ONLY 12 MONTHS. TRY AGAIN.4^>>@Kd xP@}d PP`Kx P P@dKd PH>PpdKd `KKKKppKd x @dd P P R>HWdZd PdFP PXdPd d `KP PP\ hddd P p]Fd PfD@fffp@@@@@@@`@dZ@`P@@@@``pD`hrp@@@@@@@`@sF`@`@@P@`@fzDPP`@`PP@`@@``p@```@@`@`DpG@`@@`@@@`@E@@@@@@@@@DHB\`@@```@``PdZ@`````@@`DXzH`@@@@@@@@`\(`@@```@@@Dh\(`@@```@@`pzH@@`p``@@@DxG@`@@``@@@@ W =`@```````DD j~@@@```@@HH I^@@````@``DL I^@@``@@@@`P fff`@`@@@@``DT I^@`````@@`X ]/@```@@@@`D\ @@@`@``@`@` I^`@````@`@Dd ["@p@`p@@@Ph ]/@p@`p@@@PDl zHP@Pp@P@Ppp p@@`@`@@@`#t B\@@``@@@@`Md @ Wx  . j4YOU HAVE ENCOUNTERED EVENT NUMBER................... jCHECK TO SEE WHAT HAPPENED. $ 8 . jNONE THIS MONTH 8^ B`fXCORUN T Jv J` m JДH^ Ktp@u Jє K J0H@  K41($mnU K   R COBOL, HP 36845B, 6/74 L^ O Oa<n>M @rLmm@xp*,*,COSCR M$mnUڞX@}uEp@ x@ HZXP@@P/@@P?PPPO}}P_ddPo@``&Pߗє@`@(`"oPKK)P@`@K(`"o@MUMmLmm@W~W| W~ 8MmLmm@W4m\ $ W| 5~ .8 W @LBM mCLmm@DL L @V LmOXXM X}j@t~MmLmm@@ԯ@P@U4 ` 8B UP T  <  H\ UP L^d  Lm@@M  W @x M @x V^<@ h`Ph`V= j*r$CODBG@M4@DLlmJ Y>@d T M1>m^Lmm@` W1>v jb W1>d hc M1>@mdM>>@eLmm@h[>jLmW m@K m@lLmm`n^f% Wa@`  La`La@  L^@"4M6@<M7$> W14d H>\W7pf]6@pM77@z> W14PW6@714D M6PM44@> ]6@J W14PM44@%%VU@ W14@M6@ < M6` .< 8M6@ L< `R ALTER jM1@@1P t W14d  % Wa@`7a@@ La` La@  j  p j@z(!@P)`  j  W>`  M1@  X@}> ( W1d  < 2Z <> PLڞ Z d@%n@%n* x M1@%n  W1@Z  j***NORMAL TERMINATION r$COMONP % La@ La`  j  j V0@  % % M44@  M4@ "% , 6 T h Un@ % 'M44@ (La@ ) La@ *#( ,La` 0LU :M64 <% FL NT@ X b l v v X XUa@@ * bUa@@ lUa@@ vUa@@ Wa@@ L^@  L La@ #A L La` ". W14d  M74 M4@ % M47  ( % M4@ > M46 %   *Ml + WaP ,X 4 H% Rh5@@@ \ W14h  H fBMhL%NLa`V W14P ~`Mk@j Lє}tMh@~M44@Mi14 Mj14@ W14@D  Mk14`#A#(#ZV=jUiUi( Lє}є}!h Wk0@2Lk(#2Lݢ@4Vݪ6< X@`P V@dZZdM@@1@f LXl! }n W1`L xM44` L@1PM44@M@@ W14P , W14d  W14a L`@> L`@Lڞ L@n L`` L@4@", L@@- L`@6LP@M44@J L4dT%V L!4^>` L@4b%rL@@d!4| M4d% M4_@ W14R L@L@@@@LP M@ T`*0L@@@ V@* M4@& Un@*0L@@`:M4@dD>X M4db>v M4_@MWn@V0@@`L@VP* M4_M> M4d% L@:*M@@@4\%hLaPjLapph5@@  W14S%La@La` % M75@@ W14Lj 7` W14K W14PM44@>$X@}@@@& j 7 `(Z*^%Ua@@ W14j p Mn@z(!@La`La@ W14j d !4 M44@ Wn`=142Mn@(<2Mn< W14@ZFM44@PMn@#nZM44@\^d#(fM44@nYe@|x#Z W14@`VBװX6װh6׾@ 4׬h 2V׬B 6תt 6װ2[e>%pUa@@La@M@`a@La`8L^@dLԞa@`La`M@`a@La@Lݞ`M@`d8#(L MejkghVMf@`Yi@|b#ZjV׾@ t TעP~vVװ~L^`Mf@Mj@Vd VתF ~LעPMf@MhhPga"Mggga"a"MgP%g ע@ Mee@Mkk!j[iM@ M@h%f M@g%f Wa@@( M`k(^dM@xVݪ` M@ M@^ M@M@Ԡ@^MeP(#` Mm@%eMn@%e!$e@@ Mmmnz(Mnnnz(z(MemnfffpMmm#e Mnn!ez(^Mnn mmz("Mmm$,6kmn@Vݪ`TJLnL^TLmV LԠ@nX^#ALמ Wn!m Wa@@Lמh#Lݢ@LמLמP#Wm!n5a`@@&L!e@ &#0Lמ:Lݢ@DVݪN^XLaP\L]La@^#A_L` V-l4ݪbMhpdMgklMfahvWfB 7fp 7fd Wff 7f` 7fn Wf`7f@ 7fp WfD WfX7fh7f@4 WfF 7fH \ Wft 7fP^#Mkk:ע@ #Mhh@lLݢ@Mf Lf*4Wk5 Wf=ah@86Wl,7Mk@8Wf@6fX5m!n6fh5m!n :WfX>MfhH \ Wm!n7fH p Mad@D zLf#Mhh@Lah# V׼@ 7kWfP La@$TVU@7l+aPWa`@a`@MmmMnnUa@@8La@La`$8La`DWm!n5a`@@LXLԞa@`La`@^La@Lݞ`@LU@^Ml@(L`;@`2<MfmFMgnPM@ZdMfm!l%fnMgn!l%gx Mffgz(zMgggz(z(|Mlfgfffp~ M@f#l M@g!lz( M`^%NMl@(Mh@} Mi@#h}Mj@@}Mk@@#j}Mgi%k}$Oh%k!i%jMfh%k!i%j}!h%j!k%@"$Mff!i%@@}$h%@@!j%@,Mffz(%@%@@.L`!@`0M@6x@%NJ$TWn|M@~ Mf@'nPMg@'n ffz(PMff L`"ڠ@xLU@%N$MeM@Mgn$ Mf Mgn)g L%e x #A X@| Lמ V : &M 0 l 2Lע@ :# DZ N^ XM@@@@@%14@ \M44@ ^ l Xמ@@ V01 Z ^ #( L X@|ݸH #Z L0נ@נ@ Z ^ W14d ! >  ! W14j !*! ]14J X!M44@!  !*M44@!,^!4#A!HMi!RMj!\%!fLa@!pLa`!z#A!Mg!Mh!Li!Lj!!!L!Mj!Mi!Lg!Lh!!!Mg!Mh!Mn"!Wn!! V ݼ!!^!Lݢ@!Vݾ#Z!Lמ!^!Lܢ@!Vܾ#Z!!"."Wa@7a`a`@@@"`"LLמ"NX@|""P#"RZ"VL"`X@|"j!"#"Z"^#(L՞@#*VԪ#2#,L՞@#.La`#2^#ALo#PL؞Ԣ@`#R^#ZT#n#f#fL#h^#nL#xLԠ@#^#T####L/ פ@###L פ@@@###L@@ #Lؠ@#Lٞ#L٠@#^#Vݪ`##Me?nP(ݢ@#^#Me?mP(ݢp#^# R GET NEXT CHAR..>M2#Wg##Lg#Mg#^#V#Z$#$Lݢ@$Le@ $"^$TLmz(!n$ Yl@P $ VP)l$$[l$^$ L`$$Wm$$Lڢ@$$$^% w514@%W5&% Ma@5a"%"Ma`5@}%$Ma@5@#a`}%&Ma@5#a@a"}P %(MaP55}}P%*Ma`55PP%, Wa@@%:%. YnX %0*Map!n5@n`@(`"on@%2[n%: Wa@@%D%< Map%DM44@%F^%N Ye@`%bMfe%l Me@e%v M@ef%x[e%z^%M$% W14`%%M$@%M44@%^%>%Lڞ%%^%M44@% M514@% Yn@@% Man5!n@%[n%V`5@@&4& Wa@@&& h5@@a@&^& L14@&M44`& &M44@&M5& % &"Mn@@%a`&$ Ma@a@!n&&Wa@!a`^&*&'L^`&)&*M@&,^&4W14S714P&6L^P&8'`ACF2 $] *#, J! 0 R PROGRAM NAME = ACF-2, OF CIRMO, ASSIGNS PROBLEMR JEFFERSON COUNTY WRITING TEAM, LAKEWOOD, COLORADO( R 9 AUGUST 19732F<r$ACF-3Fw$Pv@ZW.ndvPnY}xv$d V@$4$H xW0Y}"֏$"!@x[v!$V$PvD$P v0$$9w$$ JvDP V@D4D@,",6vD$@J[TW0<^jPROBLEM NUMBER = hY$`rj0$$|[$<YHW.DX U&:N v0$$1l v0$$2l v0$$3l v0$$4l v0$$5l v0$$6l& v0$$70l: v0$$8DlN v0$$9X[b v0$$0lw$$ v^`ACF3 ʗ] P; J! 0 %=R PROGRAM NAME = ACF-3, OF CIRMO, CHECKING PROBLEMSR JEFFERSON COUNTY WRITING TEAM, LAKEWOOD, COLORADO( R 9 AUGUST 19732P<r$ACF-4Fr$ACF-2PnZvT"dY}n V!@xv$! v$"T@v"X`wP`$W w@ w@w$W," w@ w@ t Tw| wL #"v,vĠx 6Z@[J<TW0F^j(THERE IS AN ERROR. TRY ANOTHER PROBLEM.hFr`ACF4 З] c J! 0 %= R PROGRAM NAME = ACF-4, OF CIRMO, PLOTS ORBITSR JEFFERSON COUNTY WRITING TEAM, LAKEWOOD, COLORADO( R 9 AUGUST 19732d<r$ACF-5Fr$EARORBPr$ACF-6Zr$EARCKdT nnW`Pxv1ZOaHYJ v"Ytz Vt[tVBrv watY|wta Vt0, Vt@@"T,vP*6^@vP.J^TvP@^ a"Ph[rj|[U<Pv2F`ACF5 $] *% J!  R PROGRAM NAME = ACF-5, OF CIRMO, THE QUESTIONINGR JEFFERSON COUNTY WRITING TEAM, LAKEWOOD, COLORADO( R 9 AUGUST 19732F<r$ACF-2FN`HP&v`A--------------------------- TEAR HERE ---------------------------ZN 02@2djnjTEAR OFF THE OUTPUT AND:x j8 1) CONNECT THE PLOTTED POINTS WITH A SMOOTH LINE, ANDj, 2) MARK THE CENTER OF THE PLOTTED POINTS.j`j v@EQUNCOSAINTOCEMIwxvDTdx tDTdvDD`v$" j7----- QUESTIONS ABOUT THE SKETCH OF THE ORBITTING MASS:j"j; 1. WHICH OF THE FOLLOWING WORDS BEST DESCRIBES THE SPEED%jB OF THE ORBITTING MASS AT EACH POINT ALONG THE CIRCULAR PATH:j A. CONSTANT,j" B. IRREGULARLY CHANGING,j# C. UNIFORMLY CHANGING, OR"j D. RANDOM.,j A,B,C,OR D? 6uD0@j JV00AhT^,hrj|!j9 2. WHICH OF THE WORDS IN QUESTION 1 BEST DESCRIBES THEj, DIRECTION OF THE MOTION OF THE MASS? uD0j V00C|j!j9 3. WHICH OF THE WORDS IN QUESTION 1 BEST DESCRIBES THEj' VELOCITY OF THE ORBITTING MASS? uD0j V00C&j0j5 4. WHICH OF THE FOLLOWING WORDS BEST DESCRIBES THE:j, ACCELERATION OF THE MASS AS IT ORBITS:Dj A. INWARD,Nj B. OUTWARD,Xj C. TANGENTIAL, ORbj D. RANDOM.lj A,B,C,OR D? vuD0j V00Alj$j?THE DIRECTION OF THE ACCELERATION AT ALL POINTS ALONG THIS PATH$j?IS INWARD, TOWARD THE POINT AT THE CENTER OF THE CIRULAR ORBIT.jj----- PROBLEMS TO SOLVE:jj--------- PROBLEM 1:jjGIVEN: wd @A5`*  *XRADIUS OF PATH =:UNITS OF DISTANCE4 XSPEED OF ORBITTING MASS =UNITS OF SPEED>jH%jBCALCULATE THE MAGNITUDE OF THE ACCELERATION OF THE ORBITTING MASS.Rj YOUR ANSWER = \uDtfj pVDRzVt1j$j?THE MAGNITUDE OF THE ACCELERATION CAN BE CALCULATED BY DIVIDINGj THE SPEED SQUARED BY THE RADIUS;j% ACCELERATION = (SPEED)^2/RADIUS.jj--------- PROBLEM 2:w`< j RIGHT!^j2 PLEASE RE-EXAMINE THE QUESTION AND TRY AGAIN.^`:ACF6 $] P= J!  R PROGRAM NAME = ACF-6, OF CIRMO, THE DATA TABLER JEFFERSON COUNTY WRITING TEAM, LAKEWOOD, COLORADO( R 9 AUGUST 19732F<r$ACF-2F V05`xPjZ#j=THERE ARE THREE ORBITS PLOTTED, EACH WITH A DIFFERENT SYMBOL.djnj----- DATA TABLE FOR THE PLOT:x N@   v@ 123456789v"vDTP X`XH V00 V0@Zwv V@vZv V!P.,$j?INPUT YOUR CALCULATION FOR THE ACCELERATION. THE CORRECT VALUE"jWILL BE PRINTED FOR COMPARISON.,#j> RADIUS SPEED ACCELERATION PERCENT DEVIATION6vp$@X`Jw$!$TwdP'$P^ V!P.hk$Xd\ rtDT|vd$&$@@d| ` "&d k$XdZ V!P0!j9CALCULATE THE ACCELERATION FOR THE ORBITTING MASS IN EACH&jDOF THESE ORBITS. YOU CAN CHECK YOUR ANSWERS BY RUNNING CIRMO AGAIN.X"j9 DO YOU THINK THE DEVIATION BETWEEN ANSWERS IS REASONABLEf  V 0YESXV .NOj/PERHAPS YOU MADE AN ERROR IN YOUR CALCULATIONS.j'YOU SHOULD HAVE USED THIS RELATIONSHIP:j$ ACCELERATION = (SPEED)^2/RADIUSj&j%DO YOU WANT TO TRY ANOTHER PROBLEM? 0xD :j D V 0YES<NV .NO&X`ACERM] ed@p~AGLPHr-`X h@`AGP@@e`BffglB@HPPd bffg@@pffg\B XX@`pco@@@@@Q&ffgpK@L@`Q&@@AG@`P@hAGp``L`@`@`H`F@xSP``HJP\Xn XLxx`@P@n Pffg@`@ffg@@Q&@x HL|@AGL@`PĜ`pP@JoHffg|@d`@@@9ffg@`PffghBph@x`hx`Hr-p\PffgL\ `ffgP|AGLHMRnLhh``Pf AGd[PffgpJdZp`B JffgPH r!hFbMPePffgP` KCffgH| b Jffg`D Pffgxe@@`bffg^@L@x@ffg@@PDV @@@B Jffg@@bLpB Xx_e`BBd@LHmTz@@Yffg@@J@`_;dPhAGp@`@x@b R4@HK@@@Q&hAAGLP@`@d ``@@ffg@@P`MPH_fffP@Pffg@L `LX`@L`@@L@X`@ZDLH ypLXPL Ah` ih`h@J``v D@A@LdN@ffgd@LHmTz@@Yffg@@J@`_;dPhAGp@`@x@b R4@HK@@@Q&hAAGLP@`@d ``@@ffg@@P`MPH_fffP@Pffg@L `LX`@L`@@L@X`@ZDLH ypLXPL Ah` i2AEVS ] *+s KA@@FJq Q@@@R ***** AEVS VERSION 1, AUGUST 5, 1971 R.J.M. TAYLOR("R ***** TRANSLATED FROM 'FORTRAN PROGRAMMING FOR THE BEHAVIORAL2R ***** SCIENCES ' BY D.J. VELDMAN<v4FN@a@@PpW,AZ R COMPUTE TRACTdwDnX@|x h@@@ nh@wDD ZX@|X@| w@ZvQ@vV@ XԞ@d X@| h@@@ nh@a wa&Q w&V h@@@"nj@c,Z6X@|@wJ h@@@T nh@^X@|h h@@@r nh@a|w %aZwX@| h@@@ nh@w %ZZvWX@| h@@@ nh@a vWW!%aZ vQWZ&vV0X@|: vVV!%DZN vVVXVW,4$44bR DEFLATE Rlv$vX@| h@@@ nh@a v$$!a%ZvDQ&$X@|X@| h@@@ nh@ h@@@ nh@av#a%$D h@@@nj@ ZZ Z*>4v@> R COMPUTE % OF TRACEHX@|R wQ'Dd\ZfvXpX@|zvXX!Zj  j jTRACE =hی礯DN @j $A7勞X}@PCT. OF TRACE EXTRACED BYROOTS.j r$DISC2`2ANAL1 i] PA K@kPH`H6>q)J,HHBєlB!<(r$ANAL-22r$PIVOT<N0   HFv$dP v VARIABLESZwINDEPENDENT FUNCTION (ALONG THEdw  nWk`x&jD DOES YOUR PLAN DEPEND ON SETS OF DATA HAVING VALUES FOR ONE OR TWOj"OF THE VARIABLES AT FIXED VALUES? wxu V 0Yv6"j P HOW MANYf6 V6Ak@j1YOU HAVE SELECTED TOO MANY CHARACTERS. TRY AGAIN.xjWHICH @ 6* -- f0 0@$6",V000``j5REMEMBER, A SINGLE SPACE OR COMMA BETWEEN CHARACTERS.",w  6w @@X@JV0  0@@$"@$"^T^w hw "r W @$6"|w  w `@Zj* THIS SELECTION IS NOT CORRECT. TRY AGAIN.jINPUT AND THEN LET'S TRY AGAIN.oYt@ wt@t[txjw"W4jj5 WHICH VARIABLE(S) DO YOU WANT TO USE IN FORMING THE:&k|  X - AXIS) - ?0t$P:vPDw "NXX X``bVCl V0, v V0  V0@@%"@%"Z$j? YOU HAVE NOT SELECTED VARIABLES THAT ARE CONSISTENT WITH YOUR  jPLAN. TRY AGAIN. &w  W +k"6 #j>YOU HAVE SELECTED TOO MANY CHARACTERS (VARIABLES). THIS IS NOT"j;CONSISTENT WITH YOUR CONDITIONS. PLEASE CHECK YOUR RESPONSE jAND TRY AGAIN.w!W` ZW0 w*w"4j `|  Y - AXIS) --- ?>t$`HX`RXP\ W`1PfZpZzv`NW 1k"6"j( SOMETHING IS WRONG. YOU WANTED TO USE (k"6) VARIABLES INjTHIS PLAN. TRY AGAIN.v@nj1 DO YOU WANT TO MAKE ANY CORRECTIONS IN YOUR PLANf V 0YP+ *****PAUSE FOR PROCESSING YOUR PLAN ***** W2(`ANAL2 i] i- KlHHq7q)J,HHBєlB!r$ANAL-3r$ANAL-1pSLITS1(N  2o<v=F v:;M "PnhZhdX` nv;"xvHXH|@VBMvM"vJXJpV@4V.V0,X|"Y`VCqW0$l #l!q["0,Y`6VCqJ@w$l #l!qJ[T wp^v hv rv | V` 6d 0Y`VCqW".$l #l!qW`0V=0`0[ V`40 w"p"p v |ZVC ,w "&t0V`D:ZDV0 XNZXV@b V` 6d lV=@vY`VCq w![ wpv v  V` 6d v=vHvJє`vM w"@";" V` 6d Z V@*4wX>W@HY }lRW.p\j DATA@% "@% "fzp@% "@% "zw`[ j SET jv w@V0 V`0j0V`0v`(w lwXY }l $j$l # .w  "8w`B[ LjV`w jtY`~VCqv!$l #l!q[v=@V` vє` v0V0 v vє`0vvє` j(2`ANAL3 i] */ KPmPH`H8q)J,HHBєlB!<(r$ANAL-12r$ANAL-4<wFnCPvl"ZVC,d"j;WOULD YOU LIKE TO EXAMINE THE DATA COLLECTED IN ACCORDANCE n j WITH THE PLANxgW0YjVC j FIXED VALUESF  VARIABLESCCOUNT` VARIABLES` COUNTX"|" w H@$BX`VC"w  @ $B t 4@5t V P@%"@%"" @"Z,VB@6CL $Cp@jJVBhT VC@h^jhZr%jA AT THIS POINT IN THE 'ANALYSIS' YOU CAN CONTINUE WITH YOUR PLAN,|'jEOR SELECT ANOTHER. THEREFORE, PLEASE RESPOND TO ONE OF THE FOLLOWING:x+CONTINUE (IF YOU WANT TO PROCEED) OR,x#ANOTHER (TO TRY ANOTHER PLAN)gW0CW0Aj,YOU HAVE MADE AN ERROR IN TYPINC. TRY AGAIN.jv"(NH"(qHpHNHHH@H jv2DEFINE A FUNCTION USING THE INDEPENDENT VARIABLE (vtvv&v0w&)+-*/^(\SINCOSTANATNABSINTSGNEXPLOGSQR:lDnhsNv X8@@@@`P@PPPPPPPPPPbVlv@PvwPv@`w`jl t @$`  (@):`F(@)= ?wv( t$@0HVwP@w`@j 0HY V .^-f*vp"@4 vp"1/> vp "Hvp`@Rvp\pf[p v )zvD$BX4 V4 V44.  v44 Z4YX4p W440Z4VCV``.( XԞH`WԠ@0@ZvDD $wB.w8BVF0tL w F"V v@$D` v@@$Djt YdP@~ VPdd0[d X`` @%1d Z v@$Dv@@$D@ Wt06ԪH (%j@ARE THE ARGUMENTS OF THE TRIG FUNCTIONS TO BE DEGREES OR RADIANSgW0R W.DvG}wt( v4`Ԧ`2 Wv06ԮB <jDO YOU WANT TO USE NATURAL LOGSFgPW0YZW.N<djWHAT BASE DO YOU WANT TO USEnfx V06@Bdvwv W44@v44P$44` ϖp"41w4.wq4PP w@$4@W-714q4`6q4@hX$$|~ V"@$-J V"$pvDD v@$D"$v@@$DBZ$" W,j+ YOU SEEM TO BE MISSING A LEFT PARENTHESIS.6 j TRY AGAIN.@JV4.hT w"@$^hv$$ r v"@$|v"$4[VB$j, YOU SEEM TO BE MISSING A RIGHT PARENTHESIS.6j(SOMETHING IS WRONG. HERE IS THE PROBLEM.j @" ^6v@@$D `VBN vє`vє@є@ w 0123456789.-+vFBbw& VF70 W.E:w DbNwP)XbwBl VvYY W1[vF1^W5X7.5X w!$X w `.wP(C5X "P(#$X$@[^vF^j YB|Y|" vtB*vtt 4T@%@t > v@% tH V*@pR$j? THERE SEEMS TO BE A MISTAKE IN COMPILING YOUR FUNCTION. PLEASE\jTRY DEFINING IT AGAIN.fpv4zVpv$"vTBVB4\R ` t R 2 F F F Z n VT v"@v4*v  v@% t*v v@% t * V.R  vB  $v@%@%8 .vє@@%є@@%: 8 v@%,B B[ L[ V2 `v4$ 4 j^ tv4$"4 ~^ v4$$4 ^ v4$&4 ^ V$,B4446B$4B4 v4$(4 ^ jILLEGAL EXPONENTIAL OPERATION.  v44 ^ ֏4z(  jILLEGAL ARG OF TRIG FUNCTION.  v4$4 !v44$H4$PO4$X (^ 2v4_4& <^ F!v44$h4$p4$x P^ Zv4o4 d^ nV4,B xv44& ^ V4,B v44 ^ j5ATTEMPT TO TAKE THE SQUARE ROOT OF A NEGATIVE NUMBER.  j-ATTEMPT TO TAKE THE LOG OF A NEGATIVE NUMBER. vT ^ `ANAL4 i] PF[ KlHHq7q)J,HHRєl!w  -(n2wk"<VBldFj! SELECT A NUMBER FOR THE OUTPUT--PvklZd&jA SELECT ONE OF THE FOLLOWING NUMBERS FOR THE FORM OF YOUR OUTPUT:n$j@1) A TABL! OF VALUES, 2) A TABLE OF VALUES AND A PLOT, 3) A PLOTx jWHICH NUMBER -- fl VlljTl^ j7YOUR SELECTION WAS NOT IN THE PROPER FORMAT. TRY AGAIN!<w "j; TABLE OF VALUES: (THESE VALUES DO NOT REFLECT A CORRECTIOND FOR SIGNIFICANT FIGURES.)VB7j COMMON VALUESx CALCULATED VALUESxCALCULATED VALUESw pTX@"VCq6, @%q"@%q"6VCqT@w  pJZT  p^v)hX-|"rVl`| VCq6). VC-Nw "  - W @6Cq@w  w  p Wq@w  p w p! v) VCR-4CR-@N R- pR-@wR-`-pwR-@-@& VCR-@N0v) :Vl`NDjNZ-Xv`bv"lX,@vX-|V,0 WR-@0 WR-@,V,0X|,"V0-#R-@ Zv,@R-@v,-#R-@ V,0v-V-0"Z- v ,@ V,0VB\ v*v-4v">v,, HV,PR\v"fV`pv,,"zv"Z,V v@"vVl4kVl0j r$ANAL-5#j>NOW, YOU MAY WANT TO STUDY THE DATA FOR A FEW MINUTES AND THEN'jFTRY ANOTHER OPTION. IF YOU WANT TO CONTINUE BEFORE CONTROL IS RETURNEDj TO YOU, STROKE TJHE 'RETURN' KEY.w@ur$ANAL-6'jE TAKE A FEW MOMENTS TO EXAMINE BOTH THE GRAPH AND THE NUMERIC VALUES.wP $u.j5USING BOTH THE TABLE OF VALUES AND THE GRAPH, CAN YOU8j%DEFINE A RELATIONSHIP OR AN EQUATION.Bf Lvl@VV 0N`r$ANAL-6j`JANAL5 i] m KkpHPH81)J,”HHєnB!2(r$ANAL-62OQa0 HH<o#FVn@ `PvZXz d w nZxw vD679"w@w@vє@vє@Y@VBww@W06 X`@&wt @ @V0"vt,"vt,Z6Y| @W0 JV,lT v۞۠@^V۪x hwx rvN`|wtV,lVݪP vݞݠ` vݞݠ@Vݪd wd vNPwtX} Wt?& Zv)vGd%&&N@dW@D&v&)0vLG:*Dv')NwlGXwmd%&'@db*lvvv9W@ V۾P( VݾP(v"w"* j w"ݪd  Fv W@  VP( VP(v  *[4v">W. \Hw&$@"Rwm'$є`є`@\Y}f VBBp wq B@W.vv4 v.-,+*vw{~"X4}q VBB$wQ4&$B .@wa4'$B .@@v** B .@$B . v-- B . v{{ B .@@v++ B .@ v,, B .v.. $Z4.V-4.L8w!"BLw!-&,Vw!@@%"-&.` w!@@%,&.jX4}qt VBB~vvv B ~@"-&.@vww B ~",&.@v~~ Z4V+",@&.,"6{"-@&.,"*w!@!*",$-&.&+",@&.${"-@&.v&ww"[v$d w4x,A GRAPHICAL PLOT OF THE RELATIONSHIP BETWEEN | Pp@P AND p  v0  PHZ( w`F(2w`pP< w@@)Fv0@@PdZ v0@PPdY$f nw"xvtXT}X4t}qTWa4.$v*@#.WQ4wQ4 WQ4x wQ4Q4TTWQ4-wQ4wZ4vt4ZTW$d JW6"j01,&6 j01@&JW$l TWr^j*10^ 1h&rj*10^ 1|&W4.W`m +&`m +&W4`W+& +&W1& 1&w0 W$d 6Cm:TDRDW4PlNw44 Xv$$"blw4vv$$"wm}$m#l}Wmfffwm"[$P0+  X4@F 4-Z4j  X4@DP 4'Z4W$d * v j  D*W0 H4v$">RHv$RN\v#,2D.2D5X#,D.2D6Xf j pp X$P$L~Lz V$P, jFH$ jFPD $Z$W$d  j H "p@@p *10^W$d v(jG ------------------------- TEAR HERE -------------------------- #j=CONNECT COMMON CHARACTERS WITH A SMOOTH LINE AND THEN EXAMINEjTHE RESULT CAREFULLY. wP u  ` $Vє@"*є@@ `B ."j;WOULD A DIFFERENT 'SCALING FACTOR' FOR THE PLOT BE OF VALUE 8#j`H` V;0> Z>  V9 vL;`P  V9  vL;@   vL;` v&`&;P(" V9*  ( vL;fff v&P&;P(" (V9* 2w" <* FYmP P VAmP) d Z[m dwlmfff nwm x v''lP(" 4 `BANAL6 i] *: KkpHPH81)J,”HHєnB!P(r$ANAL-42r$ANAL-3<r$ANAL-1Fr$EX-DATPv"ZVn@dVn@n j5WOULD ANOTHER FORM OF OUTPUT BE OF VALUE AT THIS TIMExf V 0Nvn(#j= WOULD YOU LIKE TO USE THE SAME VARIABLES BUT REDEFINE EITHERj%THE DEPENDENT OR INDEPENDENT FUNCTIONf V .YvnwpwP2VB84B VB84@8"j; WOULD YOU LIKE TO SELECT A DIFFERENT PLAN FOR THE ANALYSISj&OF THE VARIABLES IN THIS INVESTIGATIONf "V 0N8,o36o@nӟJYt@T w1t@t^[thj-WILL THE NEW PLAN REQUIRE ANOTHER SET OF DATArf |V 0Y<Fj3 DOES (DO) THE GRAPH(S) RESEMBLE A STRAIGHT LINE(S)f vV .YN@v@*@#.w"j2 WOULD YOU LIKE TO DETERMINE THE SLOPE OF THE LINEf V .Yv@W!1!@6C!@b$j? SELECT ONE OF THE CHARACTERS USED TO PLOT A GIVEN SET OF DATA:%j?WHICH OF THESE PLOT CHARACTERS DO YOU WANT TO ANALYZE (# @ * .)&f 0X@: V 0@lDZNj6SORRY CHARLIE, YOU'LL HAVE TO PLAY THIS GAME STRAIGHT!Xbvlj( SELECT AN INTERVAL FOR THE 'CHANGE IN (p )' AND THEvjCORRESPONDING 'CHANGE IN (P)'.j$'CHANGE ALONG Y-AXIS' = 'CHANGE IN (P)' = gj$'CHANGE ALONG X-AXIS' = 'CHANGE IN (p)' = g2P CHANGE IN (Y) `SLOPE = ------------- = }%'@}P  CHANGE IN (X)(jE DOES THE EXTENSION OF YOUR GRAPH INCLUDE THE ORIGIN, THE POINT (0,0)f 'jFCOMPARE YOUR RESULT FOR THE SLOPE OF THE LINE WITH THE FOLLOWING VALUEjCALCULATED BY 'MODEQ'.V 0N 3P CHANGE IN (Y) ^`SLOPE = ------------- = !}@}P  CHANGE IN (X)>j6 THE DEVIATION IN VALUES FOR THE SLOPE OF THE LINE IS }$!#''!@P PERCENT. ֏!#''!dPz 6P CHANGE IN (Y) `SLOPE = ------------- = }%!@@}*P  CHANGE IN (X)4w!@@$""!@ %!@@$> ֏hیRHw"R"jTHE Y-AXIS INTERCEPT IS . YOU SHOULD COMPARE THIS VALUE\j!WITH THE INTERCEPT ON YOUR GRAPH.fDj6 THE DEVIATION IN VALUES FOR THE SLOPE OF THE LINE IS }$!@#''!@@P PERCENT.p֏!@#''!@dPz$j@ WHILE THE FIGURE OF 'TEN PERCENT' IS NOT A STANDARD FOR MAXIMUM%jBERROR, AN ERROR GREATER THAN THIS VALUE MAY SUGGEST THE FOLLOWING:$P51) A REEXAMINATION OF THE CHANGES IN VALUES ALONG THE@(Y) AND (X) AXES,P,2) THE RELATIONSHIP MAY NOT BE LINEAR. TRY A@REDEFINITON OF FUNCTIONSP!3) ANOTHER PLAN FOR THE ANALYSIS v`(jEIS THE PROBLEM IN YOUR VALUES FOR 'CHANGE IN (Y)' OR 'CHANGE IN (X)'f V 0N jOKAY, TRY AGAIN.w  VC! j1 WOULD YOU LIKE TO FIND THE SLOPE OF ANOTHER LINEf $V 0N.8$j@ THIS CONCLUDES THE PROGRAM. IF YOU WANT TO EXTEND YOUR PLAN FORBj0ANALYSIS OR TRY ANOTHER PLAN, RUN 'MODEQ' AGAIN.L`^ARDI ] PKA K@kPH`H6>qJ,2(r$ANAL-12N<pSLITS1F*`A >> AREA (METERS SQUARED) `D >> DIAMETER (METERS) Pv@A DZndX`n vDxVBDnvd$D@@ v$k D v$k "Znj(`AT ] wT@KFTKyLg(bCŽD TUMAY>V. ZNw7W^ b}m_ 4B}h \fhMw7KQm1A7xsr/sɫ76xFL/Kf3B{5*PR?g3n@N_1_Z@a~($yqV +KiˀE< ^_0U\|xf3B{5*PR?g3n@N_1_Z@a~($yqV +KiˀE< ^_0U\|x`AVR23P@] PLg J@A@q@@&6FK!@q@A !R ***** AVR23+, VERSION 1, AUGUST 5, 1971 R.J.M. TAYLOR("R ***** TRANSLATED FROM 'FORTRAN PROGRAMMING FOR THE BEHAVIORAL2R ***** SCIENCES' BY D.J. VELDMAN<N@FpM,L,SX,GPX@|Znӟd X@Pnw1axZ X@@h@h@nj@nj@Z V@jINSUFFICIENT DATA FOR VARIABLER X@Pw1!1 X@PvRZZ" vA@A@, vAPA#F6X@|@X@|JX@|Tw$@$$ @$ ^ w$$@@hh`$r nh`|h@$ nh@qh@@P  nh@єPvqh@@P nj@w1@1@ @ v  v!!  v11  vRR  v  v h@@P  nh@Pv&h@@P 0nj@:ZDZNZXX@|bw1`1` @&&$6l v&&$6vX@|w1`1` R@&6 vRR&6ZX@|w1p1p @&& v&&ZZX@|w1@1@ !@&$6 v!!&$6X@|w1@1@ @& v& ZZ v7*X@|4v77 1>w1P1P 1@&$&H v11&$&RZ\v77$7'Ff X@Hpw11"7%F'!zZw1`1`#1`#1@w1p1p#1`#1Pw1@1@#1@#1P*w1H1@#1`#1@#1P#1`#1p#1@ w1Pqw1@1@!1P X@P VA w11&AZ X`H va1'1PwAwAPwa$w.Z8j B X@PL w1/1V vaa` wjZtjANALYSIS OF VARIABLE~j#j>SOURCE M.S. D.F. F-RATIO PjjTOTALh1@A@jBETWEENh1@A@ j Ah1`A`a`` j Bh1@A@a@@V@ j Ch1PAPaPPj j ABh1`A`a``V@ j ACh1pApapp j BCh1@A@a@@ j ABCh1HAHaHHjWITHINh1PAPj MEANS FOR ALL EFFECTS. (jA MAIN2j<X@|F jPZZj djB MAINnjxX@| j!ZV@ j C MAIN X@| j1Zj  j A BY BX@|jjROW #X@| jRZj"Z,V@6 j A BY C@jJX@|TjROW #^jhX@|r j|ZjZ j B BY CjX@|jROW #X@| jZjZj jCELL MEANS BLOCKS = C LEVELS.j X@|X@|&X@|0h@@P : nh@єPD vRNZXZbjAB lX@|vjROW #X@| jRZjZj Z V2j& SUBJECTS PER CELL. BLOCKS =C LEVELS.jX@|X@|X@|h@@P  nh@P vR Z*Z4j AB>jHX@|R j ROW # \X@|f jRpZzjZj ZZbR SUB PBRFw@ W%% tW@ vv.v> $ v v. v>@' $ v@&H$ . v'@&H$. 8w@"'$>UUP@ '$>UUX  BV.@ V Lw$@Q%@&.` V$w@&@!$d !$uj!$Z-s!O@ `W@ t jw@# t^ ~ R ROUND OFF ROUTINES Phی礯N @ P/A7勞}@ `2BEOIL] y@ `ddd_+id:^ijod|jcPq;dg kv.trdx6u(sv{v@r|x@nz5Jzo{d Bf%4@ #F#CLj@͑HڠFxsA ]<)LA=bfQBP%/TMVLVTQL5?X ^+dLR^5NB^:^N>5c_B X;`\9_X6q,Jb܋X4{f{X_rHj`bVrLm}VTrPn3TW^sLmZ~oWm@ufWI?ygX>D@2 XbNAMES:PRODLABCAPTEXT:5DATA OF BROECKX,D'HOOGE,GOOVAERTS, AND VAN DEN BROECKYYYZZZZZ[ [@[h[[[\\\/\C\\]]4]|]]^^F^u^z^}^__=_D_V___```3`J`s`w````````aa!aGaraaaab5bBbPbmb{bbbbcc+cbccccdJdWd`dddee8e@eJeNePesBINOM ] *F KF6f7 <r$PASCL(R PROGRAM NAME = BINOM, BINOMIAL EXPERIMENTS AND2R THE BINOMIAL PROBABILITY DISTRIBUTION<"NP`  p  0  F N22PNZwVdWP:nj*DO YOU WANT INSTRUCTIONS FOR RUNNING BINOMxfj V0YESV0NO0nwVPj2THIS PROGRAM INVESTIGATES BINOMIAL EXPERIMENTS ANDj"BINOMIAL PROBABILITY DISTRIBUTION. j ----- DEFINITION:$j?BINOMIAL EXPERIMENTS ARE COMPOSED OF REPETITIONS OF INDEPENDENT$j?TRIALS, EACH WITH 2 POSSIBLE OUTCOMES. THE 2 POSSIBLE OUTCOMESj'ARE USUALLY CALLED SUCCESS AND FAILURE.jj6----- DEFINITION: BINOMIAL PROBABILITY DISTRIBUTION -!j:AN EXPERIMENT CONSISTS OF 'N' INDEPENDENT BINOMIAL TRIALS.!j9EACH TRIAL HAS PROBABILITY P OF SUCCESS AND PROBABILITY Q#j>(Q = 1 - P) OF FAILURE. THE BINOMIAL PROBABILITY DISTRIBUTION" j8IS ALL OF THE PROBABILITIES OF EXACTLY 'X' SUCCESSES AND,'jE'N-X' FAILURES (X = 1,2,3...N). THE SUM OF THESE PROBABILITIES IS 1.6j@j----- DESIGN AN EXPERIMENT:J#j= 1) THE NUMBER OF TOSSES, N, FOR THE POLYHEDRON FOR ONE Tj EXPERIMENT.^j/ 2) THE NUMBER OF SIDES ON THE POLYHEDRON.h#j= 3) THE SUCCESS - THE SIDE OR SIDES WHICH YOU WANT DOWN.r j8 4) THE NUMBER OF SUCCESSES, X, FOR ONE EXPERIMENT.|%jBTHEN YOUR CALCULATION FOR P(EXACTLY X SUCCESSES AND N-X FAILURES).j" EXAMPLE EXPERIMENTAL DESIGN:j# 1) TOSS A POLYHEDRON 3 TIMES.j0 2) 6 SIDES ON THE POLYHEDRON - LIKE A DIE.j3 3) SUCCESS - THE 2 OR THE 5 ON THE DOWN SIDE.#j= P(SUCCESS - A 2 OR A 5) = 2/6 = 1/3, SINCE THERE ARE j7 2 WAYS FOR SUCCESS OUT OF 6 POSSIBLE OUTCOMES.#j> P(FAILURE) = 4/6 = 2/3. P(SUCCESS) + P(FAILURE) = 1.%jB 4) WE DESIRE 2 SUCCESS IN THE 3 TOSSES. THE 2 SUCCESSES AND$j@ 1 FAILURE MAY OCCUR IN 3 DIFFERENT WAYS: SSF, SFS, FSS.j0 5) CALCULATE P(2 SUCCESSES AND 1 FAILURE):j P(SUCCESS) = 1/3j P(FAILURE) = 2/3$j? P(SUCCESS AND FAILURE) = P(SUCCESS) * P(FAILURE) = 2/9#j= SINCE (2 SUCCESS AND 1 FAILURE) CAN OCCUR IN 3 WAYS,#j> P(2 SUCCESSES AND 1 FAILURE) = 2/9 + 2/9 + 2/9 = 2/3.j&jNOW TRY YOUR OWN EXPERIMENT.0 v6<: v  CORRECT!Dv0RIGHT!N vp SUCCESSESX vFAILURESb v TOSSESlvPNOvv`YESv+R*P^X*Q^(N-X)*R*Q^(N-X)*P^X*R*Q^(N-X)*R*P^XWP j ----- DESIGN THE EXPERIMENT:  j6-- 1) HOW MANY TOSSES OF THE POLYHEDRON (MAXIMUM OF 7)gFWFp5F@5FFjj&-- 2) HOW MANY SIDES ON THE POLYHEDRONg6 ֯61656@  j+-- 3) SUCCESS: A) HOW MANY DIFFERENT SIDESff j * ֯f0f4fA6H4> Hj-- 3) SUCCESS: B) WHICH SIDES?R%jA (TYPE ONE NUMBER AND THE RETURN KEY FOR EACH QUESTION MARK)fX@|fkj pf!zV!4!A64!!pZj-- 4) HOW MANY SUCCESSES OUT OFF j DO YOU WANTg7jW7@57AF577jSINCE YOU HAVE 7j THEN YOU MUST HAVE F#7@j.v66@$V6@`.WV`8j'-- 5) THE PROBABILITIES: (AS FRACTIONS)B%jB TYPE THE NUMERATOR AND DENOMINATOR SEPARATELY, THE NUMERATORL%jA FIRST (THEN THE RETURN KEY), THEN THE DENOMINATOR (RETURN).Vj`j- IF YOU DO NOT KNOW AN ANSWER, TYPE 999.j~t j RETURNING,~j# WHAT IS THE PROBABILITY OF EXACTLY7 j OUT OF Frj?V w f'6)7w6"f'6(F#7w% % ֏#A7 VٰdVٰd  fVٮ  jTHE PROBABILITY ISj/kj4WHAT IS THE PROBABILITY OF ONE TOSS BEING A SUCCESS?(V2 ֏"f'6A7<j SINCE THE POLYHEDRON HAS6SIDES AND THEREFVf@dPj ARE f$WAYS IN WHICH YOU CAN GET A SUCCESS.Zndj) IS 1 WAY IN WHICH YOU CAN GET A SUCCESS.njTHE PROBABILITY ISxwjfwk6j W7@j# WHAT IS THE PROBABILITY OF EXACTLYk7r j BEING j?V֏"f'6)7A7|v<<@V<@^&"V=@, j THE ANSWER IS6wjf)7@wk6)7JTr^<hrv<|j jIF P(SUCCESS) =f/6, WHAT IS P(FAILURE)?V֏"6"f'6A7j& P(SUCCESS)+P(FAILURE)= 1. TRY AGAIN!j0 WF#7@j$ WHAT IS THE PROBABILITY OF THE LASTF#7 j BEING @j?V ֏#A7v<<@V<@l&&0V=@: j THE ANSWER ISD wj6"f(F#7Nwk6(F#7Xbl<vj v< j WHAT IS THE wz jP(FIRST W7@j TOSS k7r j BEING  j AND THE LAST  WF#7@ 4 j TOSS *H4kF#7>H j BEING R@\WzP fj)?pVz ֏# %A7v<<@V<@&V=@ jTHE ANSWER IS wjf)7$6"f(F#7 wk6)7%6(F#7 <j   j  j TRY AGAIN! j% IN HOW MANY WAYS CAN YOU GET EXACTLY7 $ . j AND F#7 8@ Bj? Lg VW1 r ` VٰP4P jVٰP tj ~j1 HERE ARE A FEW WAYS IN WHICH YOU CAN GET EXACTLY7  j AND F#7 @ j.  jTHE ANSWER IS  t v j UF d P < (  X@@ vp X$@@ v`$  X4@@ vP4 ( XD@@ 2v@D < XT@@ Fv`T P Xd@@ Zv@d d Xt@@ nv@t xv@ w4 XF@~@ v w44  Z W4@%7 F#7  XF@~@ V@ jS   jF  Z v@ V`@ ^ j Zt "Zd ,ZT 6ZD @Z4 JZ$ TZ ^vP h  rvٞP |j0 j3NOW, LOOK FOR A RELATIONSHIP BETWEEN THE NUMBERS IN j,PASCAL'S TRIANGLE AND THE NUMBER OF WAYS YOU jCAN GET EXACTLY 7  j AND F#7 @ j. VP wP  vP VٰP : jCAN YOU SEE THE RELATIONSHIP  f  V0YES V0NO : &( 0 :!j9THE NUMBER OF THE ROW IS THE SAME AS THE NUMBER OF TIMES D j8THAT THE POLYHEDRON WAS TOSSED. THE NUMBERS IN EACH ROW N%jAARE THE SAME AS THE NUMBER OF POSSIBLE WAYS OF GETTING SUCCESSES. X!j:THE FIRST NUMBER IS THE NUMBER OF POSSIBLE WAYS OF GETTING bj50 SUCCESSES, THE SECOND NUMBER IS FOR 1 SUCCESS, ETC. l VٰP4P  vt j CONGRATULATIONS!  j t j0 j"DO YOU WANT TO TRY ANOTHER PROBLEM f w` wV V0`0 V0P (  j SUMMARIZING, YOU HAVE FOUND THE  wzP  wjf)7$6"f(F#7 * wk6)7%6(F#7 4j)= > H#j;THE NUMBER OF DIFFERENT WAYS THAT THIS EVENT COULD OCCUR IS Rvٞd \t fj*SINCE EACH WAY HAS AN EQUAL PROBABILITY OF pkj/k), AND SINCE THEY ARE MUTUALLY EXCLUSIVE, zj WE CAN ADDj/kTIMES = *j/k vٞd t R- COMBINATIONS w@ w7 X@}F WF#?  VA V+F#$ . VAF# V+$.w$.$w$.Z8w'B^LR-STUDENT INPUT FOR PROBABILITYV P`ZjV|t~WG@V @/ZFWG@vF@w&Fj^wG V.@  jTAKE YOUR TIME.wG@ ^j$ YOU HAVE INPUT AN INCORRECT NUMBER.^(j YOU HAVE MADE A TYPING MISTAKE.2^<j ARE THESE EVENTS INDEPENDENTFfPV0`ZV0Pxd(n<x#j=REMEMBER THAT INDEPENDENT EVENTS DO NOT DEPEND ON EACH OTHER.j   j7 IF 2 EVENTS ARE INDEPENDENT THEN THE P(A&B)=P(A)?P(B). j8WHICH OF THE FOLLOWING OPERATORS BELONGS WHERE THE ? IS:#j;1)ADD, 2)SUBTRACT, 3)MULTIPLY, OR 4)DIVIDE (1,2,3, OR 4) fVְ`j&REFER TO THE DEFINITION AND TRY AGAIN.j0j%NOW, CALCULATE THE PROBABILITY AGAIN.j'REMEMBER TO MULTIPLY THE PROBABILITIES.^`W7@,jp"6, jp@p6^@ WF#7@^JjTh^ j@ph^rWF@|j j@P^ WF#7@j j@P^YT@}j֯j'T/j'Tk'T/k'Twjj'Twkk'T[Tkj/k.^&jNOW, WHICH DO YOU WANT TO DO:0j 1. TRY THE PROBLEM AGAIN,:j) 2. HAVE THE CORRECT ANSWER PRINTED, ORDj 3. STOP RUNNING THE PROGRAM?N jINPUT 1,2, OR 3 Xf=bjlV=`v V=@6=@(&^$j?IS THERE A GENERAL FORMULA FOR CALCULATING THESE PROBABILITIES?&jCIF P = P(SUCCESS), AND Q = P(FAILURE), THEN COMPLETE THE FOLLOWING:jj P(X SUCCESSES)=P^ZjjWG@V0X & V=@j P(X SUCCESSES)=P^X jP((N-X)FAILURES)=Q^(\ )* j P 4Z>HjRWG@ \ V0N-Xf&pV=@ zj P((N-X)FAILURES)=Q^(N-X)jCOMPLETE THE FOLLOWING:!j:IF EXACTLY X SUCCESSES AND N-X FAILURES CAN OCCUR R TIMES,"j*j*4R>j HL@R[\W$@fM$@pjz j (SECONDS)j j-----DATA TABLE: j TOTAL TIMEDISTANCESPEEDjSECONDSMETERS METERS/SECONDYt@}DMat4L1t kAtAtat[t&jD -------------------------------------------------------------------j j/ DO YOU WANT TO RUN THIS SPEED PROGRAM AGAIN? dPj V$ WP0YES.j2DO YOU WANT TO GRAPH THE DATA IN THE DATA TABLE? 8dPBj LV.VWP0NOj`jj.DO YOU WANT TO RUN THE ACCELERATION PROGRAM? tdP~j VjWP0NOj (`BLINK3] *^ JH`H:tAA1aPr$BLINKD(r$BLINKP2R PROGRAM NAME = BLINK3, ACCELERATION PROGRAM<!R CHAINED TO BLINKY,BLINKD,BLINKM,BLINKP,BLINK2,BLINK5,BLINK6F R CHAINED TO BPLOTPOP HHZN d v 1234567890nvv@xn!j- -------- UNIFORM ACCELERATION PROGRAM - RUN vv:vvv@jj3INPUT THE ACCELERATION (M/SEC/SEC) OF THE OBJECT? d4j V V444eV4d$j=YOU MUST USE AN ACCELERATION GREATER THAN ZERO. TRY AGAIN "j9YOU MUST USE AN ACCELERATION LESS THAN 100. TRY AGAIN jjTIME (WITH RETURN KEY):L}"t,VJ6j @JtTV6^ ֏Phjr"j< TRAVELING OVER 9 SECONDS PUTS THE PHOTOGRAPH OFF SCALE,|"j; SO THE PHOTOGRAPH WILL ONLY SHOW TRAVEL FOR 9 SECONDS.LH$j THE OBJECT ACCELERATED FOR SECOND(S) AT4 M/SEC/SECj -----SIMULATED PHOTOGRAPH: j0 LD@$4$@@Lfff$DddX|P$P~jH #,DDDD.D4XZ j (METERS)j L (0123456789012345678901234567890123456789nMDLtDd & M@$4%D@0M4&t@@:W4f D Y@f NW/4XL@bMDD@l MADD@vLAD waD4$D@[&M$j3I'''''''''I'''''''''I'''''''''I'''''''''I'''''''''IH 12X,DDj L@ Y@f TW$@j Rj  RW$@4 j**R4j >L@HRR[\W$@fM$@pjz j (SECONDS)j j-----DATA TABLE: j ACCELERATION TOTAL TIMEDISTANCE FINAL SPEEDYt@}DL1t4 j4At"Atat[t&jD ------------------------------------------------------------------  j6 DO YOU WANT TO RUN THIS ACCELERATION PROGRAM AGAIN? dPj V WP0YESWP.NOj2DO YOU WANT TO GRAPH THE DATA IN THE DATA TABLE? $dP.j 8VBWP0NO`L WP.YESV(`jjj*DO YOU WANT TO TRY SOME MOTION PROBLEMS? tdP~j VjWP0NO WP.YESjwtw``"BLINK5^] PZ JH`H:tdJFr$BLINK6(r$BLINKD2R PROGRAM NAME = BLINK5,GIVES PROBLEMS<!R CHAINED TO BLINKY,BLINKD,BLINKM,BLINKP,BLINK2,BLINK3,BLINK6FOPWtZj djWHAT IS YOUR PROBLEM NUMBERnfxL[D@" Ma"MW@TLd#a"N VdpTVdTVd@L䞯"a" dN dV@Vd TL"a" dN  dPV@VPTL6"a" dN  d P"V6@,V6@@6T@jJTj^j)YOU HAVE INPUT AN ILLEGAL PROBLEM NUMBER.h j TRY AGAIN!rj|djHERE IS YOUR PROBLEM, :j -----SIMULATED PHOTOGRAPH: MFNH H0H L  0123456789VP L40 5 10 15 20 25 30 35 40 45 50jL0350 45 40 35 30 25 20 15 10 5 0j0 j (METERS)j  X4Pn V4P4P0j'&:0j!:Z4DNHNnXMDbUl*lL$d vVP VxVd@LL$Y|$~[Ld@VP VPLM@$%D@@ Wd  W * R INITIAL VEL4V`R>VX HHLRM %D\fWD@zpRzMFM %D@$%F@@WWd  Y@d W/L@MDD@MJD@W`MFF@[^M$j$L@. Y@f 8TBtBW$@`Lj V`j jtW$@~j*Vj L@j DDMDD@[W$@M$@j (FLASH SEQUENCE)j jjdSECOND(S) BETWEEN FLASHES.Wt2(2VP<L6FZPL6@Z L7P$dL8d$nL9N $dxL:a"%jL: 9 8 7 6L[D@"jYOUR PROBLEM NUMBER IS -------j- -----PROBLEMS: ANSWERS: U,jj1. CALCULATE THE TIME LAPSEjBETWEEN POINTS 0 ANDJ -------------------jj2. CALCULATE THE DISTANCEjBETWEEN POINTS 0 ANDJ. -------------------jj3. CALCULATE THE AVERAGE SPEEDjBETWEEN POINTS 0 ANDJ. -------------------j",j6j1. CALCULATE THE DISTANCE@jIN METERS BETWEEN POINTSJj51 AND 2 ----------------------Tj^j2. CALCULATE THE DISTANCEhjIN METERS BETWEEN POINTSrj52 AND 3 ----------------------|jj3. CALCULATE THE AVERAGE SPEEDj5BETWEEN POINTS 1 AND 2 ----------------------jj4. CALCULATE THE AVERAGE SPEEDj5BETWEEN POINTS 2 AND 3 ----------------------j j5. CALCULATE THEj5ACCELERATION ----------------------jjj%1. BETWEEN POINTS 0 AND 2, CALCULATE:jj6 A. THE DISTANCE IN METERS ---------------jj6 B. THE NUMBER OF SECONDS ELAPSED ---------------&j0j6 C. THE AVERAGE SPEED (M/SEC) ---------------:j Dj2. CALCULATE THE SPEED BETWEENNj6POINTS 2 AND 3 ---------------Xjbj3. CALCULATE THE SPEED BETWEENlj6POINTS 3 AND 4 ---------------vj j74. CALCULATE THE ACCELERATION ---------------#j= ----------------------------------------------------------- jDO YOU WANT ANOTHER PROBLEMgjW0NO W.YESL:PM`(!j:DO THE CALCULATIONS AWAY FROM THE TELETYPE. WHEN YOU HAVE%jBFINISHED THE CALCULATIONS, RUN BLINKY AGAIN TO CHECK YOUR ANSWERS. j GOOD LUCK, `.`BLINK6^]  JH`H:tdJFr$BLINK5(r$BLINKD2R PROGRAM NAME = BLINK6, CHECKS PROBLEMS<!R CHAINED TO BLINKY,BLINKD,BLINKM,BLINKP,BLINK2,BLINK3,BLINK5FOP$j? PROBLEMS: YOUR ANSWERS: ZUdbd!j)1. HOW MANY SECONDS ELAPSED BETWEEN 0 ANDJ ngGxMHJ$dj!j82. YOUR CALCULATION FOR THE DISTANCE BETWEEN THE POINTS fFLH%Jj!j83. YOUR CALCULATION FOR THE AVERAGE SPEED gfMhH'Hjj-----TABLE OF RESULTS:jj DISTANCESECONDSSPEEDj3--------------------------------------------------- j YOUR VALUESFGfjjCORRECT VALUESHHh"j ,MD6LT`@ ֏H"F&HfffTJT ֏H#G'Hfffh^h ֏h#f'hfffr|jMDD@^WD@X0"jT#D9OF YOUR ANSWERS ARE WITHIN 10% OF THE ACCEPTABLE ANSWERS.j ^j$j` ,YOU MISSEDD0 PROBLEMS. CHECK THE TABLE TO SEE WHICH PROBLEMS j YOU MISSED.jLETS TRY A SIMILAR PROBLEM.j &^0v:P:M@DM@NMtXb j51. YOUR CALCULATION OF THE DISTANCE BETWEEN 0 AND 2 l vJ@v vK@@ vL@HfFLHK"Jj j52. YOUR CALCULATION OF THE DISTANCE BETWEEN 2 AND 3 fGLIL"Kj j53. YOUR CALCULATION OF AVE. SPEED BETWEEN 1 AND 2  jPOINTS 1 AND 2gfwhH&dj j54. YOUR CALCULATION OF AVE. SPEED BETWEEN 2 AND 3  ggwiI&d j* j55. YOUR CALCULATION FOR THE ACCELERATION 4Li#h&d>fHjRj-----TABLE OF RESULTS:\jf'jF----------------------------------------------------------------------pj DISTANCEDISTANCESPEEDSPEEDzj 1 TO 22 TO 31 TO 22 TO 3'jE---------------------------------------------------------------------j YOUR VALUESFGfgjjCORRECT VALUESHIhij  j  ACCELERATION j YOUR VALUESj jCORRECT VALUESMD ֏I"G&Ifff ֏H"F&Hfff ֏h#f'hfff$$ ֏"&fff8.8 ֏i#g'ifffLBLLTPVWD@~`jjtX~M@M@Mt(j1. BETWEEN POINTS 0 AND 2:j0 A. YOUR CALCULATION FOR THE DISTANCE fFj2 B. YOUR CALCULATION FOR THE TIME gFwHd@ vH@j2 C. YOUR CALCUALTION FOR THE AVERAGE SPEED gf whH'Hjj22. YOUR CALCULATION OF SPEED BETWEEN 2 AND 3 (gg2j<j23. YOUR CALCULATION OF SPEED BETWEEN 3 AND 4 FgiPvZjdj24. YOUR CALCULATION OF THE ACCELERATION nfxj j-----TABLE OF RESULTS:j"j;-----------------------------------------------------------j BETWEEN POINTS 0 AND 2j DISTANCESECONDS AVERAGE SPEED&jD-------------------------------------------------------------------- j YOUR VALUESFFfjjCORRECT VALUESHHhj &jC-------------------------------------------------------------------j SPEEDSPEED ACCELERATIONj POINTS 2 AND 3POINTS 3 AND 4 &jD--------------------------------------------------------------------LJ@LK@@@"LLK"J,MjJ&d6MkL&d@vk#j&dJ j YOUR VALUESgiTj^jCORRECT VALUESjkhMDr ֏H"F&Hfff| ֏H#F'Hfff ֏h#f'hfff ֏g#j'jfff ֏i#k'kfff ֏"&fffLT`WD@jX&M@0M`:MtDNjXj$DO YOU WANT TO CHECK ANOTHER PROBLEMbglj vW0NOL:PMt@(j `BLINKD^] *d JH`H:tdJZr$BLINK2(r$BLINK32r$BLINK5<r$BLINKMFR PROGRAM NAME = BLINKD, DIRECTS THE PACKAGEP!R CHAINED TO BLINKY,BLINKM,BLINKP,BLINK2,BLINK3,BLINK5,BLINK6Zv&ddN nU:^xj)HAVE YOU RUN THE UNIFORM SPEED PROGRAM? t&$ j V$x V 0YESV .NOxj0HAVE YOU RUN THE UNIFORM ACCELERATION PROGRAM? t&$ j V$ V 0YES:V .NO(Tj Mt@"j,26W@T@j JxTwt^j3WHICH OF THE FOLLOWING PROBLEMS DO YOU WANT TO TRY:hj 1)UNIFORM SPEED,r j7 2)ZERO INITIAL SPEED WITH UNIFORM ACCELERATION, OR|j1 3)INITIAL SPEED WITH UNIFORM ACCELERATION? jINPUT EITHER 1, 2, OR 3. t&$j V$ W7`U<j--------UNIFORM SPEED PROBLEM:j<#j> --------ZERO INITIAL SPEED WITH UNIFORM ACCELERATION PROBLEM:j<!j9 --------INITIAL SPEED WITH UNIFORM ACCELERATION PROBLEM:j&<0`:j$ WHICH OF THE FOLLOWING DO YOU WANT:Dj+ 1)PROGRAMS FOR SPEED AND ACCELERATION,Nj4 2)PROBLEMS INVOLVING SPEED AND ACCELERATION, ORXj$ 3)CHECKING ASSIGNED PROBLEMS? bt&$lj vTTb`"j`;, YOU WILL BE ABLE TO CONTROL THE AMOUNT OF TIME THE OBJECT'jEMOVES. WHEN YOU ARE ASKED FOR THE AMOUNT OF TIME, MEASUREMENT OF THE$j?AMOUNT BEGINS WHEN YOU PRESS THE RETURN KEY, AND STOPS WHEN YOU$j@PRESS IT AGAIN - LIKE A STOPWATCH. PLEASE PRACTICE THIS TIMING j4DEVICE NOW. SEE HOW CLOSE YOU CAN GET TO 5 SECONDS.jjTIME (WITH RETURN KEY):dVj d j TIME USED =$SECONDS. COMPARE THIS WITH THE TIMEjYOU THOUGHT YOU HAD USED.  x*`HBLINKM^] Pc JH`H:tdJ<r$BLINK5(R PROGRAM NAME = BLINKM, GENERATES PROBLEMS2!R CHAINED TO BLINKY,BLINKD,BLINKP,BLINK2,BLINK3,BLINK5,BLINK6<LdFR THIS PROGRAM GENERATES PROBLEMSP R CHAINED TO BLINK5ZLd`@@dLP@@nL䞯d @@xUL@@`M@VP VPnM@V`VX nM``HBLINKP] : JH`H:tAA1aR PROGRAM NAME = BLINKP, PLOTS FOR PROGRAMS!R CHAINED TO BLINKY,BLINKD,BLINKM,BLINK2,BLINK3,BLINK5,BLINK6(Op@0Pp2O2222q22<vxFjPj.THIS PROGRAM CAN GRAPH FUNCTIONS OF YOUR DATA.Z j5DO YOU KNOW WHICH FUNCTIONS THIS PROGRAM CAN GRAPH? dtpnj xVZ Wp0YES@Wp.NOZ$j@ LET'S SAY, ARBITRARILY, THE VALUE OF Y (THE DEPENDENT VARIABLE)j5DEPENDS ON THE VALUE OF X (THE INDEPENDENT VARIABLE).#j=THEN, WE SAY Y IS A RUNCTION OR X. FUNCTIONS OF X WHICH THISjPROGRAM CAN GRAPH ARE:!j: 1) Y VS. X^N 3) Y VS. LOG X 5) Y VS. (COS X)^N!j: 2) Y VS. E^X 4) Y VS. (SIN X)^N 6) Y VS. (TAN X)^Nj' AND THE INVERSE OF ANY OF THE ABOVE, j8 WHERE N = REAL NUMBER, E = NATURAL LOG BASE = 2.718...jJjj)HOW MANY (X,Y) PAIRS OF DATA ARE THERE? t4j "V,V6l@jJj(WHICH QUANTITY DO YOU WANT GRAPHED AS X?Tj#(INPUT TIME, DISTANCE, OR SPEED): ^tPhj rVT|w`WpLpPVP@`.TIMM@VP@`.DISM@VP@`.SPEM` UPT&M@Spjj(WHICH QUANTITY DO YOU WANT GRAPHED AS Y?&j#(INPUT TIME, DISTANCE, OR SPEED): 0Mp:tDj NV&XLPblX@}4v U`LALALaL1ZX@}4 Up  LA*LA* La* L1*Z4j>#j;WHICH FUNCTION OF X (OR ITS INVERSE) DO YOU WANT GRAPHED? Ht$Rj \V4$`4$@zfj' INPUT THE NUMBER FOR THE FUNCTION.p>zV$`6$@6$$fj*DO YOU WANT THE INVERSE OF THE FUNCTION? t0j V V00YESV0.NO V$@6$`j!INPUT THE VALUE YOU WANT FOR N: tj VVV V0.YES$vd.$vd.X@}48wqBwLZV` vq@j v@tX@}4~v9qv;qv9v;ZXԞ@}4v@X@}4 W?V14 v@Z2 wwqw(P2w<wqFwPZZw"dw$"nWxwDx 'wDwT$P \$\pjV$@V$` V00YESj- - - - - GRAPH OF Y VS.@ - - - - -"j- - - - - GRAPH OR Y VS. 1/@ - - - - -" V00YESj- - - - - GRAPH OF Y VS.@ - - - - -"j- - - - - GRAPH OF Y VS. 1/@ - - - - -",,j- - - RANGE OF VALUES FOR Y IS$AND FOR p IS6 XԞ@P@vT@"Ԣ@%TJX@}4T VT1@^ VT+@rhZrv@"T&@#@|vt$@#@vttvt v@ tv"wt%Dj! ! ! t*Zj! !&jD-------------------------------------------------------------------- F X = pj- DOES THE GRAPH LOOK LIKE A STRAIGHT LINE? tpj VWp0NOl& Wp.YES0j4DO YOU WANT TO CHANGE THE VARIABLES BEING GRAPHED? :tpDj NV0X Wp0YES@bWp.NOl!j8DO YOU WANT TO HAVE A DIFFERENT FUNCTION OF X GRAPHED? vtpj Vlj Wp0YES4Wp.NOl0X@}4 \$  4HZ` wqq(d^ wqoq^ wqq^ wqq(d*^4wqq(d>^HwqOq(dR^\v@X^f^pv@E^Xz^v@LOG X^ v@(SIN X)^^ v@(COS X)^^ v@(TAN X)^^`BLINKY^] *h JH`H:tdJ<r$BLINKD(R PROGRAM NAME = BLINKY, BEGINS THE PACKAGE2!R CHAINED TO BLINKD,BLINKM,BLINKP,BLINK2,BLINK3,BLINK5,BLINK6<L:PFv&xPNZjPLEASE TYPE YOUR NAME: dt&$nj xV$Z X@V@ V0 Z L`@@jjHI `&. HAVE YOU RUN THIS PROGRAM BEFORE? t&$j V$ V0YES"V.NOj!j9YOU SHOULD OBTAIN A COPY OF HOW TO USE THIS PROGRAM FROM j0YOUR TEACHER. THEN RETURN AND RUN BLINKY AGAIN.`"M@,6`BLLES] Ped @a2VwpA݃|[oUjS-#hh5mrc>HcR?hN[AaLB^^f|w~]`KƨEm]jMl AM+^5y#UwEF+{Ya6j"?__RKBpKY!]Hz(`TE$D,=a@U`G5~_j~G&UBPF<%OKKs1{EwI` 2}Igb!Bm`^ Adr@ R[t]YMeb;Er]Ir_M^ Bc@d R[$H&e@c9b;B @BLOWS ]  R PROGRAM NAME = BLOWS, AREAS SWEPT BY MOVING MASS R STEPHEN BEATTY - 1973 - JEFFCO SCHOOLS, LAKEWOOD, COLORADON>  H0H!d@(vx2Mp< L  0123456789 FdPv@TESTZdj-DO YOU WANT INSTRUCTIONS FOR RUNNING BLOWS? ntDxj VDdV0NO V.YESdjj/THIS PROGRAM WILL EXPLORE THE MOTION OF A MASS jTO WHICH BLOWS ARE APPLIED.j2HERE IS A DESCRIPTION OF THE PARTS OF THE PROGRAM:j PART DESCRIPTION j5 1. MOTION OF A MASS MOVING WITH UNIFORM VELOCITY.jj4 2. MOTION OF A MASS MOVING WITH UNIFORM VELOCITYj) WITH BLOWS APPLIED TOWARD A POINT.jj3 3. MOTION OF A MASS WITH BLOWS APPLIED RANDOMLYj# TOWARD OR AWAY FROM A POINT.j"j4 4. MOTION OF A MASS MOVING WITH UNIFORM VELOCITY,j. WITH BLOWS OF RANDOM MAGNITUDE APPLIED 6j# TOWARD OR AWAY FROM A POINT.@jJj2 5. MOTION OF A MASS WITH ZERO INITIAL VELOCITYTj/ WITH BLOWS APPLIED IN RANDOM DIRECTIONS.^jhj'THE MOTION OF THE MASS WILL BE PLOTTED.rj5THE TIME INTERVAL BETWEEN PLOTTED POINTS IS CONSTANT.|"jZHRR MOTION UNDER A CENTRAL FORCE --- PART 2\R TIME INTERVALS MUST BE THE SAMEfjpj ----- BLOWS TOWARD C:zjMT@w67@MD@L$@nLd@@HLhdvPLL@X@}~$WP$ V@Ldh$Ld$ U..X4.M$6@@ 7x @8vgd$x #7'$Bvfd$6@'$LvgT$gVvfT$f`M8$$jM9$$tMf f%D~Mg g%Dw66!8w77!9LfLgW7x 77@76F 76@L76L@ V@.TESTk67Z R PRINTS DIAGRAML Y@x  j- Y@F L0 ([2 Y@F < VZF[PZ Y@F d VnLxMP`@ L0 [j0 Vx 4@jCj[ V@0TESTjjj%CONSTRUCT TRIANGLES BY DRAWING LINES:j( 1) FROM C TO EACH OF THE NUMBERS, ANDj" 2) BETWEEN EACH OF THE NUMBERS.j4THEN, COMPARE THE AREAS OF THE INDIVIDUAL TRIANGLES.j"j(DO YOU WANT TO RUN THIS PROGRAM AGAIN? ,tD6j @VD"J V0YESTV.NO"^fhR RANDOM BLOWS -- PART 3rj|j) -----BLOWS RANDOM TOWARD OR AWAY FROM C:jw`w6@w7PwT@M&@@@W&@MT@.MT@.R SIZES OF BLOWS VARIED AND RANDOM IN OR OUT --- PART 4jj* ----- VARIED BLOWS TOWARD OR AWAY FROM C:j&w6@0w7P:wT@DNjXw&@@@bW&`lMT@vMT@vd`@@.R RANDOM ANGLES --- PART 5jjj" ----- BLOWS AT RANDOM DIRECTIONS:jwx vdh@jnw6xM7x MD@L L$@*wP4M'dz@>Lfd'HLgd'RV\`f`BLME ] *j@@z ` j NKt I`|xCcASTBNlX`tuI@y|vhYXeF@a@h{@f@RoaNmSm@EMNQ{Ve@I@dWhLEK_@iLu W@I`Nm ASP d qJ,F(r$ANAL-1F w,6>"P w`Zv@@@dv`Pk`nNxnpSLITS1v@T H D'jE 'CANEX' COMPILES DATA TO BE USED IN THE 'ANALYSIS OF AN EXPERIMENT'.j3ARE YOU FAMILIAR WITH THE PURPOSE OF THE EXPERIMENTf V 0Y,%jA THIS EXPERIMENT IS IN THE PSSC PHYSICS LABORATORY GUIDE. YOU ARE&jDASKED TO DETERMINE A MATHEMATICAL RELATIONSHIP FOR THE TIME REQUIRED$j@FOR WATER TO FLOW FROM A CONTAINER. THE FLOW TIME WILL DEPEND ON%jBDIFFERENT COMBINATIONS OF INITIAL HEIGHT OF WATER IN THE CONTAINER"j> DIAMETER OF HOLE (CM) `H >> HEIGHT OF WATER (CM)@`"T >> FLOW TIME (SEC) GOOD LUCK!TX`^X`hX}k  V`4Ph$v$k " $ZZZnjh(&`x I`PW `@j `@l&@x Rff @P^ @@x@@s33&`x I `PT`@l`@vff&Px lPP|P@FffP@``CASE2 ] Ph !R CASE2: CASES IN COMPUTER AND MODEL A SSISTED MARKETING:R DATA ANALYSIS R HP 36841A, 2/74("R CALLING NAMES OF PROGRAMS ARE: HINB1, HINB2, FALLON, NEWA,2R NEWB, NEWC1, NEWC2, AND NEWD.<`CENTR2] B R PROGRAM NAME = CENTR2, FORCE TO MASS IN MOTIONR CHAINED TO CENTRI, CENTRQ, CENTR32(r$CENTRQ2 N <O2F w 123456789PwZ j ----- SECTION 2: d(jGHERE IS A SIMULATED PHOTOGRAPH OF A MASS IN UNIFORM MOTION TO THE EAST:njxj! * * * * *j"jj1 * * * * *H^Rj\j1 * * * * *f^pjz j * * * *^` V0 NORTHEAST V0 NORTHWEST V0 SOUTHEAST V0 SOUTHWESTj% NOT PROGRAMMED FOR THAT DIRECTION.`CENTR3] *o6 KR PROGRAM NAME = CENTR3, CENTRIPETAL ACCELERATIONR CHAINED TO CENTRI, CENTRQ, CENTR2(v@2W0A< j ------SECTION 5: F&jDSUPPOSE THERE IS A MASS IN UNIFORM MOTION TO THE EAST(TO THE RIGHT).P!j:TO THE MASS IS APPLIED A PARTICULAR FORCE WHICH IS UNIFORMZj4IN MAGNITUDE, BUT CONTINUALLY CHANGING IN DIRECTION,d@78nj/SO THAT IT IS ALWAYS DIRECTED TOWARD A POINT. x@78j)WHAT IS THE RESULTING MOTION OF THE MASS?jjWATCH.j ---- SIMULATED PHOTOGRAPH:)X* T * p * | * X+ (THE POINT) p *  T  *  X *jwB%j?WHICH WORD DESCRIBES THE PATH: 1)CIRCLE, OR 2)STRAIGHT LINE? dtjWWt@JWt@"#j= APPARENTLY YOU ARE LOOKING AT THE SIMULATED PHOTOGRAPH FROM ,"j;A DIFFERENT PERSPECTIVE THAN THAT INTENTED. THE PATH LOOKS6j.VERY MUCH LIKE A CIRCLE FROM MY POINT OF VIEW.@TJ j RIGHT.Tj^$j@IN SECTION 4 WE CONCLUDED THAT THERE IS A RESULTING ACCELERATIONh#j>IN THE SAME DIRECTION AS THE APPLIED FORCE. IF WE EXTEND THATrj0CONCLUSION TO THIS SITUATION, THEN WE HAVE THAT:| j7 IN CIRCULAR MOTION, THERE IS AN ACCELERATION TOWARD j THE CENTER OF THE CIRCLE.`CENTRI] PiA R PROGRAM NAME = CENTRI, BEGINS - FORCE TO STILL MASSR CHAINED TO CENTRQ, CENTR2, CENTR32(r$CENTR22O< w 123456789FwP'jETHIS SIMULATES A STROBOSCOPIC PHOTOGRAPH OF THE MOTION OF A FREE MASSZj'WHILE A UNIFORM FORCE IS APPLIED TO IT.djn j-----SECTION 1: xj&BEGIN WITH A MASS WHICH IS MOTIONLESS.j1IN WHICH DIRECTION DO YOU WANT TO APPLY A FORCE ?w@jj--PART : EAST, SOUTH, OR WEST? N dtj V.EASTv@ V.SOUTHv@ V.WESTv`j ----SIMULATED PHOTOGRAPH: "\|,j6j#DO YOU WANT TO TRY ANOTHER FORCE? @N  Jdt Tj^ V 0YEShV 0NOr6| X@P @*Zj* * * * * X@Pd "@* ZjjjTHE DIRECTION OF THE FORCE IS .j/IN WHICH DIRECTION IS THE RESULTING VELOCITY? N0 dt0j&V00D0:D j RIGHT!Nj2IN WHICH DIRECTION IS THE POSITIVE ACCELERATION? Xdt0bjlV00vN j RIGHT!j^"j; WRONG. EXAMINE THE SIMULATED PHOTOGRAPH AND TRY AGAIN.^j(`DCENTRQ] j K R PROGRAM NAME = CENTRQ, FORCE AND ACCELERATION ARE COLINEARR CHAINED TO CENTRI, CENTR2, CENTR3(<2r$CENTR3< N  FjPj----- SECTION 3 - QUIZ:Z&jD 1. FOR THESE EXPERIMENTS IS THE DIRECTION OF THE RESULTING VELOCITYdj4 THE SAME AS THE DIRECTION OF THE APPLIED FORCE? ndtxv@jj"j; 2. FOR THESE EXPERIMENTS IS THE DIRECTION OF THE RESULTING&jA ACCELERATION THE SAME AS THE DIRECTION OF THE APPLIED FORCE? dtv@^ V0YESV0NOZ j RIGHT!T%jB PLEASE EXAMINE THE RESULTS OF APPLYING A FORCE DIRECTED SOUTH$j@ TO A MASS MOVING TO THE EAST. IF YOU STILL CANNOT SEE THAT"V@@,$j? THE RESULTING ACCELERATION IS ALWAYS IN THE SAME DIRECTION6J@$j? THE RESULTING VELOCITY IS NOT ALWAYS IN THE SAME DIRECTIONJ"j< AS THE APPLIED FORCE, PLEASE SEE YOUR TEACHER ABOUT IT.TT^jhV0NOr V0YES|jj ----- SECTION 4 - A CONCLUSION:jj-FROM THESE EXPERIMENTS IT SEEMS THAT THERE ISv678` jAN ACCELERATION t768j&IN THE DIRECTION OF THE APPLIED FORCE.t768j 2`DCHECK  *rR*** BAEDP TIMESHARE BILLING.R*** THIS PROGRAM ZEROES OUT LAST MONTH'S NUMERIC DATA IN(!R*** FILE MASTER AND PRINTS A LIST OF I.D./SYSTEM ENTRIES FOR2R*** WHICH CUSTOMER DATA IS REQUIRED.<R***FR***Pp*,*,*ZNH  0dv ABCDEFGHIJKLMNOPQRSTUVWXYZn v 0123456789xvĞ@R*** FILE STATUS CHECK. DUSFILM@-W-`jFILE USFILM STATUS= -b V`@jFILE USFILM IS INCOMPLETE.b h@&6֯Piw DMASTER@-W-,jFILE MASTER STATUS= -"b,R*** ZERO OUT OLD NUMERICS IN MASTER FILE1j0NUMERICS IN FILE 'MASTER' ARE BEING SET TO ZERO.6 DMASTER`-@ V`@hJ h@&&&&&Tj``^JhR** CHECK USFILM ID/SYS. FOR EXISTENCE IN MASTER.rj5CHECKING FOR ID/SYS ENTRIES MISSING FROM MASTER FILE.|v^/@ h@@ h@@ h`@ V`@ h@&6R*** GOSUB TO CONVERT A1 TO C$.R*** SEARCH MASTER FOR C$. V`@&Xh@ V@P,0 V@P*0&Z&R*** SEARCH RECORD I-1.0v:v@Dh@N@@@`X h@&&&&&b V@P,0Nl V@P*0vj0 MISSING FROM MASTER FILE.v^^@ R*** ALMOST DONEV^j1ALL ENTRIES IN USFILM ARE PRESENT IN MASTER FILE.j1I CONGRATULATE YOU ON YOUR DILLIGENT AND ACCURATEjMASTER FILE UPDATING.`/@j^ITEMS MISSING FROM MASTER FILE.`R*** GOSUB TO CONVERT ID/SYS A1 TO C$v0 vN v0@@ v"N  vPw@dw@#@dPw`#@d#@P w@dP$ X@@ v@v0@@ Z^'`dCHEM1 ] PlE R**C.A.I.**CHEM1**CHEMISTRY DRILL**MAY 19, 1972 R HP 36878A, 6/74vD@ w47FG(w89d2o< pREC1,$EX1,$EX2,$EX3FN  HHPHPN 0`HZ wd w@n w@xR RECORD THE BEGINNING TIMEjGENERAL IDENTIFICATION PROGRAMj------------------------------j"j< IF YOU WANT INSTRUCTIONS TYPE 'STOP' AFTER THE QUESTION"j; MARK AND CONSULT DOCUMENTATION. OTHERWISE, INPUT 'GO'j AFTER THE QUESTION MARKf V0STOPR IDENTIFICATION ROUTINEjjjjSTUDENT INFORMATIONj-------------------j j YOUR NAME :"g ,R6j'CHOOSE TOPIC 2 OR 3. WHICH DO YOU WANT@fDJhD@ThD^v@h V.ORDERrhD|v@hDv@X@|hDv@ZR V0ORDERv NONEjORDER ( OR ):f V 1v4@0v4@&R ONLY ONE ANSWER IN REVERSE ORDER0v:RDjLEVEL -- (1 TO ) --NfFXLFFbVF@lj&LEVEL NUMBER IS TOO LARGE -- RETYPE ITvDVF@v@ vF@@LF R UPPER LIMIT IS SETRR EXHAUST THE RECORD LIST jLIST OF COMMANDS: X@Xh0j0--ZdWRONGENDSTOPLEVELSCORETIME dNUMBERORDERRTIMEREPEATIDENTj l*j4R>RHRRR BEGINNING OF QUESTION AND ANSWER ROUTINE (MAIN DRILL)\RfRpjzj j MAIN EXERCISE j -------------j V*"@v$"@  X@|@ ֏0Zwv@hD@ V"@hDhDX@|$hD.Z8 X@|@BhDLX@|VhD`ZjZtV4@~hD`hDP`WF jQUEST. #D:`fV4@X@|hDPV0P(ZxV0P( xR(R SCORE 1 PT. FOR CORRECT RESPONSE2M44@<wFFwDD@PR SHOW THAT THIS QUESTION HAS BEEN ASKEDZdR GO GET THE NEXT QUESTIONnRx R WRONG ANSWER ROUTINER GO SEE IF THE RESPONSE WAS A COMMANDRR R MISSPELLING??v$X@P V.Pv$$@Z V$P@ j ----- MISSPELLED.^R R IT MUST BE AN ERRORMFF@"R INCREMENT # OF TRIES BY 1,WF`6wDD@@MFJ R RESET FLAGSTw@@%@^R RECORD THAT A QUESTION WAS MISSEDhjCORRECT ANSWER -- P  rjAAAAAAAAAAAAAAAAAAAAAAAAA |j+ BBBBBBBBBBBBBBBBBBBBBBBBBR GOTO THE ANSWER INPUT STATEMENT j TRY AGAINR GOTO THE ANSWER INPUT STATEMENTRR COMMAND ROUTINE -- FIRST CHECK TO SEE IF IT IS A COMMANDR X@Xh0V00R IF IT IS A COMMAND -- JUMPZll&T0X  t , ^0 R WRONG COMMAND:6DR GO TO BE COUNTED WRONGNRXR END COMMAND -- COMMAND TO START OUT ROUTINEbMDD@lR DO NOT COUNT THE QUESTION WE ARE ONv R%R STOP COMMAND -- COMMAND TO STOP THE PROGRAM WITHOUT THE OUT ROUTINEMDD@R DO NOT COUNT THE QUESTION WE ARE ONR GO TO THE FINALIZATION ROUTINER!R LEVEL COMMAND -- USED TO CHANGE THE LEVEL OF WORK DURING RUNV@jLEVEL CAN'T BE CHANGED -- SORRYMDD@R DO NOT COUNT THE QUESTION WE ARE ONWD* M84'Dd@j@ D FD8 j@@@*vD@4w8d>w4FHjR j NEW LEVEL --\fFfVF@pj&LEVEL NUMBER IS TOO LARGE -- RETYPE ITzRVF@v@ vF@@LFjLEVEL CHANGED -- NEW BALL GAMEpR START THE MAIN DRILL ROUTINE AGAINRR SCORE COMMAND -- USED TO FIND OUT SCORE THUS FAR IS RUNj#k4 OUT OFD@ 4&D@d@%j  R R TIME COMMAND -- USED TO FIND THE TIME AT PRESENT $j . R SKIP A LINE 8j BEGAN AT:MIN.HRS.DAYS. B'j TIME NOW IS: MIN.@HRS.@DAYS. Lj V R SKIP A LINE ` jR t R NUMBER COMMAND -- USED TO FIND THE # OF POSSIBLE QUESTIONS ~j R SKIP A LINE jTOTAL # OF QUESTIONS : j# OF QUESTIONS IN LEVEL F: "@ j# OF QUESTIONS ASKED :D j R SKIP A LINE  R R ORDER COMMAND -- USED TO CHANGE THE ORDER OF THE QUESTION V0ORDER jORDER CAN'T BE CHANGED -- SORRY  MDD@ WD F R IF WE HAVEN/T STARTED, DON/T WRITE FILE M84'Dd@ (R COMPUTE AVERAGE ON MAIN DRILL 2!j@ D FD8@@ <R F j NEW ORDER -- Pf ZV 0 dV 1 nj5ILLEGAL ORDER -- CHECK ORDER LIST ABOVE AND RETYPE IT x F v4@  v4@ o R RESET Q ARRAY FOR NEW GAME jORDER CHANGED -- NEW BALL GAME j w4F w8d vD@ R R R RTIME COMMAND -- USED TO FIND ELAPSED RUN TIME j $jELAPSED RUN TIME :@x #x #MIN.  "R ,R REPEAT COMMAND -- REPEAT THE QUESTION (ONLY) 6WF @ jQUEST. #D: ` J TR ^R IDENT COMMAND -- IDENTIFY THE USER AND PROBLEM hj r jNAME :  | jTOPIC: D jORDER :  jLEVEL : F j# OF QUESTIONS ASKED : D WD@ M84&D@d@  w8d jSCORE :8 j BEGAN AT :MIN.HRS.vDAYS. %j TIME IS: MIN.@HRS.@DAYS. $jELAPSED RUN TIME :@x #x #MIN. j  R R R OUT ROUTINE -- REPEAT MISSED QUESTIONS BEFORE FINISHING &R (REDRILL) 0R : X@| D W NR WRONG OR MISSPELLED (-1/2) XZ bj(YOU MISSED NO QUESTIONS -- PERFECT SCORE l vR R START ASKING QUESTION j w9d jRETEST j------ w7G j j7FINISHING UP -- ONLY ONE TRY ON THE FOLLOWING QUESTIONS j X@| R CHECK ALL THE QUESTIONS Wt R HAS THE QUESTION BEEN MISSED? MGG@ hD@  V"@ > R COUNT THE QUESTION ASKED AGAIN *hD 4 H >hD HX@| RhD \Z fX@@ phD zX@| hD Z Z V4@ hD`  hDP` j QUEST. # G: ` f V4@$ R INCORRECT ANSWER X@| hDPV0PBZ.$V0PB. V0STOP8`BjCORRECTLw77@Vt`jWRONG. CORRECT ANSWER IS: jjPtZ~R FINALIZERR STOP ROUTINE FOR THE OUT ROUTINEMGG@R DO NOT COUNT THE QUESTION AT HANDRR R FINALIZATION ROUTINEw9dWDM84'Dd@R % SCORE ON MAIN ROUTINEWG( R SKIP AVERAGE FOR REDRILL IF NOT DONEM97'Gd@ R % SCORE ON REDRILL(R WRITE FILE RECORD HERE2!j@ D FD8@@<j@G9FjPjZ jTHE DRILL IS OVERdjn#j MAIN DRILL 4 CORRECT OUT OF D FOR SCORE OF8%xj!j REDRILL: 7 CORRECT OUT OFG FOR SCORE OF9%RRjjGOODBYEbwDD@ `vCHEM2 ]  R**C.A.I.**CHEM2**CHEMISTRY DRILL**MAY 19, 1972 R HP 36878A, 6/74vD@ w47F(w8d2w9d<wGFvtPoZ pREC1,EX1,EX2,EX3,CHEMdN  HHPHnN 0`Hx w w@ w@jGENERAL IDENTIFICATION PROGRAMj------------------------------j"j< IF YOU WANT INSTRUCTIONS TYPE 'STOP' AFTER THE QUESTION"j; MARK AND CONSULT DOCUMENTATION. OTHERWISE, INPUT 'GO'j AFTER THE QUESTION MARKf V0STOP jjjjSTUDENT INFORMATIONj-------------------j" j YOUR NAME :,g 6j,CHOOSE TOPIC 2 OR 3 OR 4. WHICH DO YOU WANT@fDJhD@ThD^v@h V.ORDERrhD|v@hDv@X@|hDv@Z V0ORDERv NONEjORDER ( OR ):f V 1v4@v4@v&jLEVEL -- (1 TO ) --0fF:LFFDVF@bNj&LEVEL NUMBER IS TOO LARGE -- RETYPE ITX&bVF@lv@v vF@@LF jLIST OF COMMANDS: X@Xh0j0--ZdWRONGENDSTOPLEVELSCORETIMEdNUMBERORDERRTIMEREPEATIDENTjljRj j j MAIN EXERCISE j -------------*j4 V*"@>v$"@ H X@|@R ֏0>\Zfwpv@zhD@ V"@hDhDX@|hDZ X@|@hDX@|hDZZVt@2V4@.hD`$L.hDP8B`LWF`V jQUEST. #D:``fjV4@t ~Vd@Vd@RM44@wFwDD@4RRMFF@ WF`wDD@vt@(z2MF<w@@%@F<Pj  ZjAAAAAAAAAAAAAAAAAAAAAAAAA dj* BBBBBBBBBBBBBBBBBBBBBBBBBnvtx4 j TRY AGAINzR X@Xh0V00ZllT"@:l  .RRMDD@ "R,MDD@6 0@RJV@hTjLEVEL CAN'T BE CHANGED -- SORRY^zhMDD@rWD|M84'Dd@j@ D FD8j@@@vD@w8dw4Fj j NEW LEVEL --fFVF@j&LEVEL NUMBER IS TOO LARGE -- RETYPE ITVF@v@ vF@@LF&jLEVEL CHANGED -- NEW BALL GAME0:RDjN#k4 OUT OFD@ 4&D@d@%XjbzlRvjj BEGAN AT:MIN.HRS.DAYS.'j TIME NOW IS: MIN.@HRS.@DAYS.jzRjjTOTAL # OF QUESTIONS :j# OF QUESTIONS IN LEVEL F: "@j# OF QUESTIONS ASKED :DjzR V0ORDERjORDER CAN'T BE CHANGED -- SORRY zMDD@ WD>*M84'Dd@4!j@ D FD8@@> j NEW ORDER --Hf RV 0z\V 1fj5ILLEGAL ORDER -- CHECK ORDER LIST ABOVE AND RETYPE ITp>zv4@v4@ojORDER CHANGED -- NEW BALL GAMEjw4Fw8dvD@Rj$jELAPSED RUN TIME :@x #x #MIN.z R WFz  jQUEST. #D: ` $z .R 8j B jNAME :  L jTOPIC: D V jORDER :  ` jLEVEL : F jj# OF QUESTIONS ASKED : D tWD@ ~M84&D@d@  w8d jSCORE :8 j BEGAN AT :MIN.HRS.DAYS. %j TIME IS: MIN.@HRS.@DAYS. $jELAPSED RUN TIME :@x #x #MIN. j z R X@| W  Z j(YOU MISSED NO QUESTIONS -- PERFECT SCORE  0 R j (w9d 2jRETEST <j------ Fw7G Pj Z j7FINISHING UP -- ONLY ONE TRY ON THE FOLLOWING QUESTIONS dj nYT@| x WT  MGG@ hD@ V"@ hD  hD X@| hD Z X@T@ hD X@| hD Z Z Vt@ "V4@ @ ,hD` 6 ^ @hDP J$ T h ^j QUEST. # G: ` hf rV4@ | Vd@   Vd@ V0STOP   jCORRECT w77@   vt@  2 j [T  0 R &MGG@ 0R :w9d DWD X NM84'Dd@ XWG l bM97'Gd@ lR v!j@ D FD8@@ j@G9 j j jTHE DRILL IS OVER j #j MAIN DRILL 4 CORRECT OUT OF D FOR SCORE OF8% j !j REDRILL: 7 CORRECT OUT OFG FOR SCORE OF9% j jGOODBYE b vfdg vnD vm XĞ@@ VĠ@. +  * vff@ *Z 4X@|m >hnP H P RXĞ@P@ \VP.ĜP Ģ@ fVİ@ pVĬ@ zVĢ`Ģ@. +  P Ģ@ P Ģ@` VP ĜP Ġ@. +  vgg@ Z Z Vg0m4f@*m Vg0m4f@0m  jWRONG NUMBER OF TERMS.  vd@ ^WF~vD.$vG.j QUESTION #  : 8XǞ@|BhD`LV0jVj` + `tjj`tZ~^vnP vdmgf hP@vh@ XĞ@P@VPĠ@. + vmm@ Vİ@6h*Ģ@ jPPhĢ@vhĠ`Z VhP jPPhP vmm@ hP@ (^2vt<jCORRECT ANSWER --FV4@PhD`Z XĞ@|@dhDPnjP + xZhDPjP^hDPwDD@ `CIRDI ] *wD K@kPH`H6>qJ,2(r$ANAL-12N<pSLITS1F*`C >> CIRCUMFERENCE (METERS) `D >> DIAMETER (METERS)Pv@C DZndX`n vDxVBDnv4d$D v$k D v$k "4Znjh(`\CIRMO З] P| J! 0 %=  R PROGRAM NAME = CIRMO, RELATES SPEED, RADIUS, ACCELERATIONR JEFFERSON COUNTY WRITING TEAM, LAKEWOOD, COLORADO( R 9 AUGUST 19732Z<r$ACF-2Fr$ACF-3Pr$EARCKZw@dv"nvxxN  n#j+DO YOU WANT TO CHECK AN ASSIGNED PROBLEM? tD j V 0YESV .NO$j?THIS PROGRAM INVESTIGATES CIRCULAR MOTION - AS A MASS ORBITTING"jvvZR*** IF M1=999999, USFILM IS COMPLETE.V֮z(&rCHECK&v֤P 0 V`PD:bDj+USFILM IS TOO SMALL. KIL AND RE-OPEN USFILMNj+TO A LARGER SIZE, AND RUN DRIVER(OPTION 3).XbbV!41vljP!1`vV` h!1vz('`:CONDI ]  R PROGRAM NAME = CONDI, CONDITIONAL PROBABILITY N w@(j,DO YOU WANT INSTRUCTIONS FOR RUNNING CONDI 2f< V0YESdFV0NOTP(Z j----- DEFINITION:d!j:CONDITIONAL PROBABILITY DEALS WITH A REDUCED SAMPLE SPACE.n"j; EXAMPLE: TWO 3'S AND TWO 5'S ARE ARRANGED IN SOME ORDER.xj' ALL ARRANGEMENTS ARE EQUALLY LIKELY.j0 IF THE LAST NUMBER IN THE ARRANGEMENT IS A 5,!j9 WHAT IS THE PROBABILITY THAT THE TWO 3'S ARE TOGETHER?jj- SAMPLE SAPCE OF THE POSSIBLE ARRANGEMENTS:&jC (3,3,5,5), (3,5,3,5), (3,5,5,3), (5,3,5,3), (5,5,3,3), (5,3,3,5)j!j9 A REDUCED SAMPLE SPACE WITH A 5 AS THE LAST ELEMENT ISj" (3,3,5,5), (3,5,3,5), (5,3,3,5)jj+ EVENT 'A' IS 'THE TWO E'S ARE TOGETHER'.j, SINCE THERE ARE TWO SAMPLE POINTS IN 'A', j P(A) = 2/3.j$j?IS THERE AN EQUATION FOR CALCULATING CONDITIONAL PROBABILITIES?j!j9TRY THE FOLLOWING EXPERIMENT - TOSSING UP TO 5 POLYHEDRA:""j;EVENT 'A' IS 'AT LEAST ONE POLYHEDRON WILL STOP WITH A SIDE,#j>DOWN OF YOUR CHOICE'. EVENT 'B' IS 'THE SUM OF THE DOWN SIDES6j#IS LESS THAN A SUM OF YOUR CHOICE'.@jJ"j4@l vNj$j=EVENT 'A', AT LEAST ONE POLYHEDRON WILL HAVE THIS SIDE DOWN fX@| V4A1Z jj$DO YOU WANT THE SAMPLE SPACE PRINTEDfj V0YES V0NO4  w@*44*> w@є@&H w@є@&R w`є`&\ Vє@ fw@&є@$є`&pj+NOW, CALCULATE THE FOLLOWING PROBABILITIES:zjj-1.P(A) 2.P(B) 3.P(A&B) 4. P(A GIVEN B) j XĞ@@j @.?vxt. W@5j$j@ALL PROBABILITIES MUST BE BETWEEN 0 AND 1 INCLUSIVE. TRY AGAIN!bWZfj V0YESV0NO8$.8j$DO YOU WANT THE SAMPLE SPACE PRINTEDBfLjVV0NO` V0YES~jt8~w@4jNOW, CALCULATE THE PROBABILITY.jj-DO YOU WANT THE CORRECT PROBABILITY PRINTED fjV0NO  V0YESjTHE CORRECT PROBABILITY IS j v==@jDO YOU WANT TO CONTINUEf(j2 V0YESZ<V0NO FPZZd X@`nvxvvvZ v$є@ v$єHvє@v@V=@ jYOU CORRECTLY CALCULATED@"= OF THE PROBABILITIES.$j?THE PROBABILITIES COULD HAVE BEEN WRITTEN IN THE FOLLOWING WAY.jj 1. P(A) = є@/@j 2. P(B) = є@/@j 3. P(A&B) = є`/`"j4. P(A GIVEN B) = є@/@,j6%jACAN YOU SEE WHAT THE FORMULA FOR THE PROBABILITY OF 'A' GIVEN 'B'@j2WOULD BE USING SOME COMBINATION OF P(A&B) AND P(B)JfTj^ V0YEShV0NOr|6j%DO YOU WANT TO TRY ANOTHER EXPERIMENTfjV0NO  V0YESTjCOMPLETE THE FOLLOWING:j P(A GIVEN B) = f  V 0 P(A&B)/P(B)0 V 0 P(B&A)/P(B)0j#NOT QUITE! DO YOU WANT TO TRY AGAINfj V0YESV0NO&0j:j0THAT IS THE FORMULA FOR CONDITIONAL PROBABILITY!D:jADEFINITION -- THE CONDITIONAL PROBABILITY OF AN EVENT A, GIVEN B,(IS DEFINED BY P(A GIVEN B) = P(A&B)/P(B)N$j@IS DEFINED BY THE EQUATION P(A GIVEN B)=P(A&B)/P(B), IF P(B)#0.X b֏#A7ljvjj0THAT IS NOT CORRECT. DO YOU WANT TO TRY AGAIN w@wj `CORRECT!j^X@|V&&4&&v&v&Z ^j+YOU HAVE MADE A TYPING MISTAKE. TRY AGAIN! ^*w4w\> Tpf\RHH X@}1Ǣ@R X@}1Ǣ@\ X@}1Ǣ`f X@}1Ǣ@p X@}1ǢPzWw\\@ Tjjjjj 8v@v    V>vє@є@@V060606060   ~ vє@є@@ V> ~ $vє`є`@ . ~ 8W\P\P ~ Bj&DO YOU WANT MORE OF THE SAMPLE SPACE  Lf V V0YES ~ `V0NO j t 8 ~Z Z Z Z Z W@ vє@є@ vєHє` j ^ CjD YOU HAVE INPUT AN INCORRECT VALUE FOR YOUR EVENT. CHECK THE NUMBER7OF POLYHEDRA YOU ARE THROWING AND THE NUMBER OF SIDES. ^ j/SINCE YOU DID NOT GET THE CORRECT RELATIONSHIP. j ANALYZE YOUR DATA AND TRY AGAIN. ``CORS ] *{ JR *****CORS VERSION 2, AUGUST 26,1971!R *****TRANSLATED FROM 'FORTRAN PROGRAMMING FOR THE BEHAVIORAL(R *****SCIENCES' BY D.J. VELDMAN2jHOW MANY SUBJECTS ARE THERE<fFjHOW MANY VARIABLES ARE THEREPfZjMAXIMUM NUMBER OF FACTORSdfnpCORRxj(YOU HAVE NOT ENTERED THE FILES STATEMENTO!@@1@@o!no1oX@| h@@$@nj@#ZwD@&X@|vd@@@@ v@$d@ hd@@ nhd1X@|" v!1, v@@6h@@ nh@!JX@|TM!!!1%1^Zhh@rnj@#|ZZRX@| v@$@h@ nh@! v%Dw1!&"@ZX@| v@$@h@ nh@!X@|w!!&"$&1%1Z&w!@0h@:nj@#DZNRXjMEANSbjlovjjjSIGMASX@|w1hی礯N %1@Zjo3jj jCORRELATION MATRIXjX@| v@$@h@ nh@!*X@|4w!hی礯N %!@>ZHo#R\jfZpjzjr$SEVSbR ARRAY PRINT SUBROUTINEX@|kZj^``COTON] P\ @@pp @A`x pT pJPV Pd @~ pb @n `| `l `P`G@EPC@f p| `v pz HB@FPB`pXH`| p\ `P`@P`XJ PT HT Hv Hb Ht HX P@ P@Px `N PH @PXh HXPKPXZ h@@X@| h@vZ/v P COUNT ] #R **** HP BASIC PROGRAM LIBRARY *******************************RR COUNT : CTC MANUFACTURING PARTS CONTROL RR 36210 REV B PARt 18 OF 23 2/73R#R **** CONTRIBUTED PROGRAM ************************************ R *MANUFACPIN---COUNTS EACH FILE TO SEE HOW FULL THEY ARE* O  N  nhd ddddddd d 2dG1G2G3G4G5G6G7G8G9dpG1ij+j,%P7RECORDS TOTAL POSS. # OF PTS # OF POSS.1j2FILE# RESERVED # OF PARTS ON FILE2 j PARTS LEFT@wDFGw@whD@zw' V`@h@nh@ W@ w''@ w(@w)(#'j$!jhD (^ 'P)VwDD!'XwFF!(ZwGG!)[W6@5@5pj` v`Aew@gjw@oWP~ D ------^ ------t ------D F^ Dt G'`CUSORT *I R*** THIS PROGRAM SORTS FILE 'MASTER' INTOR*** 1.) DIV/LOC SEQUENCE (FILE 'LOCSRT')R*** 2.) NAME SEQUENCE (FILE 'NAMSRT')(R***2N`HH H0HHHH< OQddANFp*,*,*Pvn`Z R*** ASSIGN FILESdv`MASTERnvd@x>v`WORKvd`>j1=DIV/LOC, 2=NAMES, 3=BOTHfTR*** DIV/LOCv@"R*** NAMESv@"R*** BOTHv@v@"R*** COUNT ITEMS, PUT IN FILE 'WORK', jCOUNTING ENTRIES6v@ V`@J V``|T h@^v@h j`rT|"jR*** PARAMETERS TO DEFINE MULTIPLE LEVEL SORTR*** (ID/SYS WITHIN DIV/LOC)v@ v@@h  v@@|  v@@@ v@@PjSORTING ON DIV/LOC - BEGIN AT@&0R*** 'NAMSRT' IS DESTINATION FILE FOR NAME SORT:v`NAMSRTDvd@N>XR*** PARAMETERS TO DEFINE MULTIPLE LEVEL SORTbR*** (ID/SYS WITHIN NAME)lv@v v@@` v@@d  v@@@ v@@PjSORTING ON NAMES - BEGIN AT@.j END SORT -@jCOPYING FILE 'WORK' TO FILE ` h`@ j@@` V``* V`@ "jFILE `1 IS TOO SMALL. KILL AND RE-OPEN TO A LARGER SIZE.b h`j@`  *Z4b> R*** ASSIGN FILESHD`d-RW-p\jFILE ` STATUS =-fbp^zR*** GOSUB TO CONFIGURE SORT FIELD A$ FROM X$.v v.@X@|v^.n @"@v.^@@v.^@Z^R*** GOSUB TO CONFIGURE SORT FIELD B$ FROM Y$.v  v.@X@|v^. @"@v .^@@v.^@Z$^.R*** SORT ROUTINE - TSB BILLING8$R*** USES A.C.M. ALGORITHM NO. 347 (VOL 12/NO.3/MAR 1969/PG 186-187)B R*** STRING (LEN=72) AND 5 NUMERICS IN EACH PHYSICAL RECORDLR*** PASS IN N9=NO. ITEMS TO BE SORTED.VR*** PASS IN F9=INDEX OF FILE TO BE SORTED.`R***jR***tV`n~ jn@`R***vݞ@v@vV>v v @ hn hnzV@ Z jn jnwv (w2w<wFwPwZvd hnnzxV>  jn jnwv wwwww hnzV@  jn jnwv "w,w6w@wJwT^ hnhzr jn| jnv͢@ hnzV* wv0wwwwwv@ hnzV, V@^& V"@"b0v:wQDvNvݠ@XbvlwQvvvݠ@vݢ@VݰvvQ V">V0v@v@V0hn@ hn zV@  v* hn4z>jn@Hv@R hn\zfV ,*pjn@z^`nDISC2 ] P9 KA@@FJq a@@@ R ***** DISC2 VERSION 1, AUGUST 5, 1971 R.J.M. TAYLOR("R ***** TRANSLATED FROM 'FORTRAN PROGRAMMING FOR THE BEHAVIORAL2R ***** SCIENCES ' BY D.J. VELDMAN<O!@1@@Q@@q@1@FpW,A,C,SPX@|Z vT@adX@|n h@@@x nh@ v$T h@@@nj@ZZX@| h`@@ nh`1 w1Zv`v@v@oSX@| h@@"njS,Z6X@|@ h@@J nh!TX@|^X@|h h@@r nh1|v1Z h@@ nhQw4X@| w44!!$ZwQ4 h@@njSZZX@|w4X@| h@@@& nh@0 h@@@: nh@qD w44 %qNZX w4bZlX@|vX@| h@@@ nh@q h`@@ nh`1v1q&% h`@@nj`3ZZw4X@|w44!aZwH4 w@X@| wa'Hd*w$@&@!a4Z>wfHvvRvwv@\ w7f@$w@@&f@ w@Pf w(@'7pvff$wzvgF@"f v@%7"f$w@@vdg$@#&$fwfwgwdjWILKS LAMBDA =A7勞}%@jjD.F. = f AND gjj F-RATIO =A7勞}$d@jjP =hی礯N %@jvFf vv7F"F@#j>ROOT % VARIANCE CHI-SQUARE D.F. P$j.X@|8 v67@!aBvFF@LwFVw}`w6&Fjt!jQd@A7勞6}@F~hی礯N @Zj X@| wAA%FX@| h@@@ nh@1 w11&q h@@@nj@3ZZX@| h@@@ nh@qX@|(wq2X@|< h@@@F nh@1P h@@@Z nh@dwqq!1$nZxZ h@@@nj@sZjCENT.X@| h@@@ nh@qX@|hی礯qN @Zj Zj  jCOREL j X@|" h`@@, nh`16X@|@hی礯1N @JZTj ^ZhwtF"vrjUNIVARIATE F-TESTS D.R.B.= wDFW= t|j j"VARIABLE F-RATIO PX@|v$X@| h@@@ nh@1 v$$!1@$qZ v7A@'Fvd$"7%t&"$$wwwwtwdjhی礯dN @hی礯N @Z& j MEAN 0Xޞ@|:jDZNj XX@|b h@@@l nh@1vX@|k1ZjZbR SUB PBRFw@ W%%pW@vv.v> v v.v>@' v@&H$* v'@&H$.4w@"'$>UUP@ '$>UUX >V.@RHw$@Q%@&.`R$w@&@!$d !$uj!$Z-s!O@\W@pfw@#p^z`DISCRM] z KA@@F Jq a@R ***** DISCRM VERSION 1, AUGUST 5, 1971 R.J.M. TAYLOR("R ***** TRANSLATED FROM 'FORTRAN PROGRAMMING FOR THE BEHAVIORAL2R ***** SCIENCES' BY D.J. VELDMAN<pA,W,C,SFR ENTER FILES STATEMENT HEREPO@@@Q@ZvמPdjNUMBER OF VARIABLESnfxn3X@| h@@@ h@@@ h`@@ h@@@nj@3nj@3nj`3nj@3Zj NUMBER OF GROUPSfvXԞ@|j jNUMBER OF SUBJECTS IN GROUP"f,vq6X@|@ h@@@J nh@1Tw1^ h@@@hnj@3rX|| h@@@ nh@v h@@@nj@ZZX@|vj @@@Pv @$jP hj@@ nhjX@| h@@@ nh@1 w11! h@@@&nj@30 h@@@: nh@DX|Nv!%XZb h@@@lnj@vZZv vtq R DO 35 I=1,NVX@| h`@@ nh`1 h@@@ nh@ h@@@ nh@qX| h@@@ nh@1 w61 h@@@ nh@1*w714 v11 >wqq #6%7&tHZR h`@@\nj`3f h@@@pnj@szZZwFX@|wFF qZwG@'FX@|wA h@@@ nh@1X@| wAA!1Z wAA%G h`@@ nh`1$w1.Z8 R COMPUTE COVARIANCEBX@|LX|V h`@@` nh`1jv11%G#A%At h`@@~nj`3w1 h`@@ nh`1v1 h`@@nj`3 h@@@ nh@q h@@@ nh@ v%F#q h@@@nj@ w h@@@ nh@(v2 h@@@<nj@F h@@@P nh@qZwqd h@@@n nh@qxwq h@@@nj@sZZvd@X@| h@@@ nh@qX@|wqZX@|w4X@| h@@@" nh@, w44!$6Z@ h@@@J nh@qTwq4^ h@@@hnj@srZ|Z v@8r$AEVSR *****MATRIX INVERSION SUBROUTINER *****INVERTS NEARLY SINGULAR MATRICES UP TO 64 X 64R *****R.J.M. TAYLOR, UNIVERSITY OF LETHBRIDGE O@q@ovD@X@|wDX@| W@lX@| W@& W@b W@ & hd@@0 nhdq: WDqbDvNvX wDqbZlZvvDD%DwDv@ w@V0\XĞ@| hd@@ nhdqwDq hd@@ nhdqwHq hd@@ nhdqwqH hd@@njds hd@@* nhdq4wqD> hd@@HnjdsRZ\wfwp hd@@z nhdqwDqwq@  hd@@njdsXĞ@| hd@@ nhdqWDwq wqq'D hd@@njds Z XԞ@| V0 $ hdԤ@@ . nhdq 8wDq Bwq L hdԤ@@ Vnjds `XĞ@| j hdԤ@@ t nhdq ~vq hd@@ nhdq vq hdԤ@@ nhdq wq"%D hdԤ@@ njds Z Z Z R REORDER COLS X@| v"@  W1 v (v 2XԞ@| < hdԤ@@ F nhdq PwDq Zwqq dwqD n hdԤ@@ xnjds Z Z ^ ` DJ  *` @pRtHw {{"uvAq&t\vu1m(e h ejed ]arb2=\=WUp[__^scBhlmٚq uqyod{kLpB=nhgoFfpqt)ufwEqx t sEX |JV  @'bT v  ^X!@|"h+v     ! @$ !" @!& @!rZ!|"v   @ @  @ @$  v  @  @"  v @  @ >DRIVER Pm JEF56 R*** TSB BILLING. R*** THIS PROGRAM ALLOWS FOUR ENTRY POINTS TO THE PROCEDURE(R*** OF COMPILING MONTH END TIME AND DISC TSB USAGE FROM2 R*** DAILY FILES.<R*** 1.) ENTIRE PROCESS.FR*** 2.) RE-ENTER 'USAGE' (SPECIFY SYSTEM NUMBER).PR*** 3.) COMBINE SYSTEM USAGE FILES TO 'USFILM'.ZR*** 4.) CHECK 'USFILM' VS. CUSTOMER INFORMATION.dR***nR*** S0 = NO. OF TIMESHARE SYSTEMS.xw5`w6@ j1 = ENTIRE PROCESSj2 = RE-ENTER 'USAGE' j 3 = COMBINEj&4 = CHECK MISSING CUSTOMER INFORMATIONf$T$",jJULIAN DAY RANGE (BEGIN, END)fFEVE@6E[6F@6F[6F*EV$@ jBEGINNING SYSTEMg6 W6@76+5rUSAGE"rCOMBIN,rCHECK6`>EARCK З]  J! 0 %=  V01xv@2( r$CIRMOZ2j*DO YOU HAVE A STUDENT NUMBER FROM 'EARORB'<f FV 0YdP"j< 'EARCK' WAS DESIGNED TO CHECK AN ANSWER CALCULATED FROM THEZ&jCCOMPUTER PROGRAM 'EARORB'. TRY IT, YOU MIGHT LIKE IT! (GET-$EARORB)dv@n(xv$xwj- DID YOU HAVE THE STANDARD OR COMPLEX PROBLEMg`W`0Sj- OKAY, WHAT WAS THE INITIAL SEPARATION? --- fw"@"j< OKAY, LET'S CHECK YOUR ANSWER. COMPLETE THE FOLLOWING TABLE j OF VALUES.H  INITIALH FINALjSEPARATION-------t$ F f`jORBITAL SPEED----" t$@, F 6f@@w&PPJ W&C5&dhT%jA YOU HAVE BLOWN IT. YOU GAVE THE WRONG VALUES FOR THE SEPARATION.^h w'&PPr|V!@*!@w''$!@&!@w''$!&!@@jQ=wq'wq jH_Ph''@w@WP|VC&X@s33Aq&7q&Fff%jB YOU SLY FOX. THOUGHT THAT WOULD TRIP UP THE COMPUTER DIDN'T YOU.j!WELL IT DIDN'T. PLAY IT STRAIGHT.Z&!j: OKAY, LET'S EXAMINE YOUR ANSWER FOR THE WORK NECESSARY TO0 jCHANGE ORBITS. :`% CHANGE IN ENERGY (WORK IN JOULES) = DfWNvXq@@@$q'q`"X"j< THE DEVIATION BETWEEN YOUR RESULT AND THAT FROM 'EARCK' IS:b1` YOUR VALUE `------------- = d$X"W&XPERCENTl` 'EARCK' VALUEvj% DOES THIS DEVIATION SEEM REASONABLEf V 0Y#j= YOU HAVE APPARENTLY MADE AN ERROR IN YOUR CALCULATION OF THE j8THE TOTAL ENERGY OF EACH ORBIT. PERHAPS A SECOND LOOK ATj'AT THE WORKSHEET WOULD CLEAR THE ISSUE.$j? PERHAPS YOU WOULD LIKE TO EXPAND ON THE THE IDEA OF ELLIPTICALj6ORBITS. CHECK THE WORKSHEET FOR ADDITIONAL REFERENCES.`EARORBЗ] * J! 0 %=  V02v@v"(n#2'jF'EARORB' SIMULATES A SITUATION OF A UNIT MASS (ONE KILOGRAM) MOVING IN<(jGA CIRCULAR PATH ABOUT THE EARTH. YOU WILL BE ASKED TO DO THE FOLLOWING:F'`<1. CALCULATE THE ENERGY NECESSARY TO MOVE THE UNIT MASS FROMP'`;ITS INITIAL ORBIT TO ITS FINAL ORBIT (WORK DONE IN JOULES).Z&`:2. COMPLETE THE ASSOCIATED WORKSHEET AND CHECK YOUR ANSWERd`WITH THE PROGRAM 'EARCK'.nw@xr$ACF-2ww&dW&C w'&PPrV!@*!@w''$!@&!@w''$!&!@@r$j? AT THIS POINT YOU MAY HAVE A PROBLEM OF STANDARD DIFFICULTY ORj,ONE MORE COMPLEX (CHECK WORKSHEET FOR HINT).!j8 PLEASE SELECT BY TYPING EITHER 'STANDARD' OR 'COMPLEX'.f H  INITIALH FINALjSEPARATION-------F `"V 0S@,jORBITAL SPEED----@F  GOOD LUCK6J@jORBITAL SPEED----@F @J%jA REMEMBER, YOU ARE TO CALCULATE THE ENERGY (JOULES) NECESSARY TOT#j>TO MOVE THE OBJECT FROM THE INITIAL TO FINAL ORBIT. BE SURE TO^jCOMPLETE THE WORKSHEET.hrv'|v jH_Ph''@w@^`ECAT1] P`pj nff\{33NE]puo mfitf]^Vvs p33c33{33Z=q_;v@@r3izffD9Xb\vv q3`s33Ydx@|33 ny@ff Ie`BxALoC33@ Mg+xF3qLX|cmfȴy{ ofNffxgfz|ff mK33thQe?}{@nQyrȵd/{@DpX@ Bd{@p3K33Dff Q d9X}@BpvffI33 ae}IrLDI33 _"gl}Pu[33O33 vviX~Lvk33Vff hlDOft3C33W33 uhmO@S33vU[33 KKmh@ X3{_33\ sn@@R|3\_ \(nA SL{d_ K:o|A@U3|k33d dpAA`^ff@Yrffdff Onq%AWff@ffo33h O\)q&B`[Ltb {q%BZLLl` Z=qq&B_A&fya lq&BVA&fdh Hrr\CY3@ `q w;r!CZ@fW33{33 j$r\CbB3_33C MrD\CYTH r-stDaffBS33L _CsEdffBXVff atzE kD@_33X33 O\)u?}E@bDffTZ D:v+F ffCY\^ D`wPF@hCLVff` [&yF`q3Ee\33 B^6zFhffD3`X d{dZG`mCٚ`] x|IGnCf`\33 }S}pGuDiQ33 n{~{GgfDs3c33S _|HlD@hW33 hQHo3D3jff_ G@bH{Gw33h kK@bNIqGho ^+@9IyffGk33s XQ@JwLGhuff a$A7LJ @3Hffps iAXJ@xGYep T1AK }E3fffp33 J\AK@|F33nffoff uB=qK`BGqn rB\KxGl| NVBL`@G&fpBZBHL@Gs3pBr^5BHLGI~ffFLg+CCLAfIyEfsnCMEH333|ff G"CME H3zffs vffCFMKJDff w33 N{D1NDfK}AZDINI Jf{33E3SDzOI@K33@ GXrDO PMDff ILQ7LDO@J@M333MuE?}P NM&fBff PLtEpP@N&fNY~ffRfq^EP`ULQ33C33 TdbF$POQ&f{33ViF+Q`TPs3@ WffBFQTs3QL@ VfUpG =Q^YTL [V+G\)QXULFff [I&GR]3UK XRHR]&fTPff QffXIGRcfVfT O@I#S]@VfV WVJ^5SbW&fZ [3~RJTc33Y Y33 ^ffG/KT iٚ\ffa ^DLZT@c3\\ [oMVU lf]f bcMTU@kf_Ya33 cf}?}NU`tc@jff i33V\O|Uld b dfVPrV`t33d c e3FQhsVuffdffh ^l(R\V{@g h ^Ly&SVrfg&fb X3XrT/Wzga O33_UWyLhٚ] N3^ JVRW@l@c V33xQWXR]&fTPff QffXIGRcfVfT O@I#S]@VfV WVJ^5SbW&fZ [3~RJTc33Y Y33 ^ffG/KT iٚ\ffa ^DLZT@c3\\ [oMVU lf]f bcMTU@kf_Ya33 cf}?}NU`tc@jff i33V\O|Uld b dfVPrV`t33d c e3FQhsVuffdffh ^l(R\V{@EXDAT i]  K@kPH`H6>q)J,HHBєlB!F(r$ANAL-22r$ANAL-1<oCFpSLITS1Pw,Z!j7 HOW MANY VARIABLES WERE INCLUDED IN YOUR INVESTIGATIONdgknWkPx j7THE MAXIMUM NUMBER OF VARIABLES IS FOUR(4). TRY AGAIN. ZX}k w@ Z j8 INPUT AN ALPHABET LETTER AS A SYMBOL FOR EACH VARIABLE.j/SEPARATE EACH LETTER WITH A SPACE OR A COMMA: f@ @@%k" v>6"v0N&j. IS YOUR DATA TO BE INCLUDED WITH 'CLASS DATA'fPv0PVP0N&""j< DO YOU WANT TO USE DATA COLLECTED BY OTHER STUDENTS IN THIS, jANALYSIS6f0@V00N&Jj(OKAY, GIVE ME THE FOLLOWING INFORMATION:Tj& 1) YOUR LABORATORY GROUP NUMBER -- ^fh#j= 2) HOW MANY OTHER STUDENT GROUPS ARE TO BE INCLUDED IN YOUrj ANALYSIS --|f>v>>V>@#j= SORRY CHARLIE. THAT'S ONE FOR ME. REMEMBER, MAXIMUM OF THREE|VB>j& WHICH STUDENT GROUPS (ONE AT A TIME): j AT A TIME): X |>  jGROUP - fZNnnh@h@D&N20n3:Dj HAVE YOU ENTERED YOUR DATANf XV 00b%jAOKAY, YOU CAN ENTER A MAXIMUM OF SIX SETS OF DATA. HOW MANY SETS lj&DO YOU WISH TO INCLUDE IN THE ANALYSISvfvvwdX|X`X}k V/k  VvjV v$k "  v2$k "  VR*V*>4 j DATA TABLE: >P$@@$k" @$k" HR P$\Vzfu$k " pzu2$k " Zj V"` 0ZZV00N`nj@h@N"n#X|> Xx V0Z8X`$v"$k " $k " .Z8ZBnj#LhVP`Vjnjth~Pnj3t"j:HOW MANY DATA SETS DO YOU WANT TO INCLUDE IN YOUR ANALYSISfvvVd j0YOU BLEW IT! MAXIMUM NUMBER IS TWENTY-FOUR (24).X@vv>" V`> ZVB>P#j< DO YOU WANT TO EXAMINE THE DATA TO BE USED IN THIS ANALYSIS(f 2V 0NP<v@F(Pw,"Z2d`FAFIL] *NJffHVff Q HPffLnffTB]I33H s33 dTQJffU33X` s33[33 nff Vff Ti s33Qbffx nff @x L H JffY. l SQ _R W X T q{ Wff O{ W o e EB u ^ w K Ku nff M Z# P ZG m Eq RG \W T eG `) j. Qff S = [33 H F{ a B[33~[33 LTJffVffBa33MBnffEEWr`Qs33QEC33 | JffL KQ \ffs3333O33dbffVffH d O33K BqIb Quh N =@j[Hfk O3LQBnG.SGQ\)YR\R{OBul\ z H0 I\HuD\G:| H#IQ| A{AGb h K yY [ff Q ]Uff Zff Q H33 Fff ZffD C P|C 33M|eN J33 Rff]Tff k33SPITNWT| YHWOVb EOQ~ t Q@CH V @~ r p BMz ~ L r d h h r fL KQ \ffs3333O33dbffVffH d O33K BqIb Quh N =@j[Hfk O3LQBnSEP SEPSEP]SEPSEP,SEP3SEPSEPSEP SEP SEP SEP SEP SEP SEPSEPSEPSEP5SEPSEPSEPRSEPSEPSEPSEPSEPSEPSEP SEPSEPSEPSEPFALLON] PR REGRESSION PACKAGE TO ACCOMPANY THE FALLON CASER PROGRAMMED BY PIET VANDEN ABEELE 8/28/73R CASE2: 36841A, 2/74 (FALLON, PART 3 OF 8) p$FALFIL0N &B&&BR&&.Nbr! b&2&r&*Nє1 "”& F< h@T =N0FFd*TOT ADVMAL ADVTOT SALMAL SALCHANGE %TV HOMPjDO YOU WANT INSTRUCTIONSZf d V 0YESxnxj4THIS PROGRAM CONTAINS THE DATA APPEARING IN THE CASEy j8YOU CAN BUILD UP TO 4 VARIABLES OF YOUR OWN BY COMBININGzj2UP TO THREE VARIABLES FROM THE CASE INTO A NEW ONE{j*THE FOLLOWING STEPS SHOULD BE GONE THROUGH|!j9 1 AFTER THESE INSTRUCTIONS THE PROGRAM WILL TERMINATE}#j= 2 SPECIFY THE FUNCTIONAL EXPRESSION OF YOUR NEW VARIABLES~"j; (D) AS A FUNCTION OF THE ARGUMENTS A,B AND C IN LINES"j; 1410,1420,1430 AND 1440. WHEN RUNNING THE PROGRAM YOU"j< WILL BE ASKED TO GIVE A NAME TO D AND TO SPECIFY WHICHj VARIABLES A,B AND C ARE.jEXAMPLEj-------j( YOU WANT TO CREATE TWO NEW VARIABLESj) TOTAL SALES - TOTAL ADVERTISINGj ANDj, TOTAL SALES * % CHANGE /% TV HOMESj" THE APPROPRIATE STATEMENTS AREj 1410 D=A-Bj 1420 D=A*B/C'j#DO YOU WANT TO CREATE NEW VARIABLESf  V 0YESv  jHOW MANYf nL `  X@`$ X@L . h@8ZBZLVVjAVAILABLE VARIABLES ARE` X@`aj#@p@pbZ~X@|!j INPUT THE NAME OF YOUR VARIABLE#` (7 CHARACTERS)f` @p@` pV@2j.INPUT THE #'S CORRESPONDING TO A, B AND C FOR P p@` pj$ (INPUT 0 IF YOU DON'T USE ONE)jA---#fjB---#fjC---#f X@L VvV v$V(v4(TR v` DR v` DR v` DR v` DZZv` j)THE FOLLOWING VARIABLES ARE NOW AVAILABLEX@|j#@p@pZj2DO YOU WANT LINEAR REGRESSION (0) OR LOG-LINEAR(1)fj3HOW MANY INDEPENDENT VARIABLES(EXCLUDING INTERCEPT)fvL  o@ oB@ o@ nB@@*o@@4 nR@> n@H nb@@R nr@@\j)INPUT THE # OF YOUR INDEPENDENT VARIABLESfX@|p j#--?zf{*v0@p@p@p@pZX@| M@@X@|V@w@ Vj$CANNOT TAKE LOG OF NEGATIVE QUANTITY "w@Z Z j!WHICH IS YOUR DEPENDENT VARIABLE? $f .X@| 8V@ L B w@ G t L V T M Tw@ tZ ~j"DO YOU WANT THE CORRELATION MATRIX f  J oC nCC% oC ncC% ns$c n$s nS" LKL LN X@| LKK R@@ Z  LLK&"@ LM (X@| 2 LMM!@@ < LNN!@ FZ P LMM"N@& ZM'@"K&M dj nj x'jF********************************************************************** j "jVARIABLE COEFFICIENTB=VALUES-ERRORT-VALUE !j-------- -------------------------------- j -j r@@L%@@r@@L%@@ X@| vL%@@ 1j 0@p@pr@@@r@@& Z H' "INTCEPT",10X,3D.3D,21X,3D.3D,8X,3D.3D H'7A,10X,3D.3D,6X,3D.3D,8X,3D.3D,8X,3D.2D j j j ' H "R2.................",3D.3D w(@"@#'$@&"@ j ( H "ADJUSTED R2 .......",3D.3D w)'&&@#'&"@ j "@) H' "F(",D,",",2D,")","............",3D.3D j L H"ERROR VARIANCE.....",3D.3D j (jG....................................................................... "jDO YOU WANT ANOTHER RUN ,f 6 V0YES @ Jn2 Tor ^o hnџ ro1 |X@| L M1 X@| L!@& Z M1 X@| M11 @"@& Z M11 Z X@| X@| L2@"'1 Z Z &os3 0os$3 :o" Do# NMFG X nŸ@ bX@| l MFF!@ vMGG @@ Z MGG"F@&& MFF& ob@ X@| Mb@@#F'G Z ns%c n⟿@ n#$ V 0YES  j j jCORRELATION MATRIX X@| j +0@p@p *Z +H#,7A,8X 4j >X@| HX@| R M& \Z fZ pj znk j  `'`FIELDE] S R PROGRAM NAME = FIELDE, ELECTRIC FORCE FIELD NHH v 123456789(j.DO YOU WANT INSTRUCTIONS FOR RUNNING FIELDE? 2dt<j F V0YESdPV.NO(Z@djn$j?IN THIS PROGRAM YOU WILL BE ABLE TO INPUT THE COORDINATES (X,Y)x"j;OF A TEST CHARGE. THE PROGRAM WILL CALCULATE THE MAGNITUDE j7AND DIRECTION OF THE ELECTRIC FORCE ON THE TEST CHARGE.j"jIT IS SUGGESTED THAT YOU BEGIN WITH ONE SOURCE, THEN TRY MORE.@jJj&HOW MANY SOURCES DO YOU WANT TO USE? Tdt4^j hX@}4rj|j ----- SOURCE :vx  j(INPUT THE MAGNITUDE(COULOMBS) OF SOURCE :  tj V Mj+IS THE SOURCE POSITIVE(+) OR NEGATIVE(-)? tj VV0+V0-j INPUT EITHER + OR -. M!j.INPUT THE (X,Y) COORDINATES(METERS) OF SOURCE :&:0j: j X = D tNVbXvbj l:vj Y =  tj V:Zj !j:TO GET THE MAGNITUDES AND DIRECTIONS OF THE ELECTRIC FORCE"j;AT VARIOUS POINTS, INPUT THOSE (X,Y) COORDINATES. WHEN YOUj%HAVE ENOUGH DATA INPUT THE WORD DONE. j -----DATA TABLE: +j COORDINATES?h DIRECTION?PVECTOR FIELD MAGNITUDE?h  Z(DEGREES)?P (FIELD UNITS)%jB-----------------------!---------------!--------------------------jX = t V * j * j ! Y = 4t>V HfR\jfLdpX@}4zVB#4B#LdEcM!#@ #@L#'!%'!@Mf#'!%'!@L Mdd!fZw$@!d@V4dV4dV4dV4dV4dV4dB$V4dV.V4dV8V4djBLD_d&LtV LDd_d&`tjLD@d_d&tLDDZd@~LDZLDCLDLDZ\ !p YOU ARE AT A SOURCE \ !p VECTOR FIELD STRENGTH = 0 2\ !p DN !Z $fffdd ^j#j>NOW PLOT THE INFORMATION ON GRAPH PAPER TO GET A VECTOR FIELD.(`ZFIELDF] * R PROGRAM NAME = FIELDF, GRAVITATIONAL FORCE FIELDNHN ( v 12345678902j.DO YOU WANT INSTRUCTIONS FOR RUNNING FIELDF? <dtFj P V0YESnZV.NO2dhnjx$j@IF YOU INPUT THE COORDINATES (X,Y) OF A POINT, THIS PROGRAM WILL&jDCALCULATE THE MAGNITUDE AND THE DIRECTION OF THE GRAVITATIONAL FORCE%jBAT THAT POINT. IF YOU PUT THE INFORMATION ON GRAPH PAPER YOU WILLjHAVE A MAP OF A VECTOR FIELD. $j?TO GET THE DIRECTION (0 TO 360 DEGREES) AT EACH POINT PLACE THEj/ORIGIN OF THIS COORDINATE SYSTEM ON EACH POINT:j! 90j !j !j( 180---+---0,360j !j !j! 270j'jEFOR EACH POINT YOU SHOULD PUT THE FOLLOWING INFORMATION ON YOUR PLOT:-j; 1. DRAW AN ARROW IN THE DIRECTION OF THE FIELD, AWAY FROM THE POINT, AND /jA 2. MAKE THE LENGTHS OF THE ARROWS PROPORTIONAL TO THE MAGNITUDE OF THE FIELD."j,j6$j@THE FIELD IS CREATED WHEN YOU INPUT THE NUMBER OF SOURCES, THEIR@&jDPOSITIONS, AND MAGNITUDES. THEN YOU CAN GET THE GRAVITATIONAL FORCEJ#j>OF THE FIELD AT VARIOUS POINTS BY INPUTTING THE COORDINATES OFT j THOSE POINTS.^$j?IT IS SUGGESTED THAT YOU BEGIN BY USING ONE SOURCE, THEN MORE. hj&HOW MANY SOURCES DO YOU WANT TO USE? rdt4|j W4pjPLEASE USE LESS THAN 7 SOURCES.X@}4j ----- SOURCE :vx !j* INPUT THE MAGNITUDE(KILOGRAMS) OF SOURCE :  dt Mj !j.INPUT THE (X,Y) COORDINATES(METERS) OF SOURCE :  j X = tV&j & ?xY = 0 t:j DVNZXjb$j@ TO GET THE MAfGNITUDES AND DIRECTIONS OF THE GRAVITATIONAL FORCEl$j@AT VARIOUS POINTS, INPUT THOSE (X,Y) COORDINATES. WHEN YOU HAVEvj!ENOUGH DATA INPUT THE WORD DONE.  j -----DATA TABLE: *j COORDINATES?x DIRECTION?PVECTOR FIELD MAGNITUDE ?X  ! (DEGREES?P! (FIELD UNITS)#j>----------------------!----------------!----------------------jX = t V0@V j Y = t V0@V jLd X@}4*VB#4B#>4R>LdEcHRM!#@ #@\L#'!%'!@fMf#'!%'!@pL zMdd!fZw$@!d@V4dV4d8V4dLV4d`V4dtV4dV4dV4dV4dLD_d&$ LDd_d&$LD@d_d&$LDDZd@.8LDZBLLDCV`LDjtLDZ~?F YOU ARE AT A SOURCE?F VECTOR FIELD STRENGTH = 0?X ! DN ! $fffdd^j"j< NOW PLOT THE DATA ON GRAPH PAPER TO GET A VECTOR FIELD MAP.`fFIELDG] Pu R PROGRAM NAME = FIELDG, GRAVITATIONAL EQUIPOTENTIAL LINESN HHHj.DO YOU WANT INSTRUCTIONS FOR RUNNING FIELDG? (dt2j<V0NOF V.YESPjZ'jETHIS PROGRAM PLOTS POINTS WHICH HAVE THE SAME GRAVITATIONAL POTENTIALd#j>ENERGY AS A POINT WHICH YOU INPUT. YOU CAN GET LINES OF EQUALn(jGPOTENTIAL (EQUIPOTENTIAL LINES) BY CONNECTING THOSE POINTS WITH A LINE.xj"j;THERE CAN BE AS MANY AS 3 MASSES ACTING AS SOURCES FOR THE j$GAVITATIONAL POTENTIAL ENERGY FIELD.jj1THE FIELD PLOTTED IS ONLY 30 METERS BY 30 METERS.R LINES OF EQUAL POTENTIAL#R - - - - - TO SAVE MATRIX AND PRINT ALL LINES, 1160 = 'GOTO 500'R - - - - - TO INPUT SOURCE, TYPE '190' BEFORE 'RUN'N>&!> nn#L  *+#OSw4@jj&HOW MANY SOURCES DO YOU WANT TO USE? dt4j"W4454`54@5t6,6N@ v 123456789JR - - - - - INPUT SOURCESTX@}4^jh$j4----- INPUT THE (X,Y) COORDINATES(METERS) OF SOURCE :rLx |j X = tVj|j , Y = tjVL@%P v!@w}ZjR - - - - - INPUT STARTING POSITION#j=THIS PROGRAM WILL PLOT A MAXIMUM OF FOUR EQUIPOTENTIAL LINES.&j%HOW MANY LINES DO YOU WANT PLOTTED? 0dt:jDWt6Ĭ@6Ī@6Į&NjX(jH----- INPUT THE (X,Y) COORDINATES FOR THE STARTING POINTS OF YOUR LINES:b vdgdglY@|vj X = tVjvj , Y = tjV Wx 5x  j8 THE COORDINATES ARE LIMITED TO FROM 1 TO 30 METERS.v w@%@w$ X@}4 w@%# w#* W54 w!@!@5 w!!> w!'!Hw$$!!RZ\vg$fL$zHpv$$$gzvag"$ vaPg $[j ----- EQUIPOTENTIAL LINES: j YOU ARE ON A SOURCE.v Yx @~@ Y@x vd$X@}4 w@%# w# W5j w!@!@ w!! w!'!w$$!!$Z.vd$8Y@|BVd,a6d*aP`LL!@VL`[j[tWx 7d 7P 7x7P7P~j-  v@%P v 51015202530 j@  V! Y@f  L [ Y@x  VMKC@@L @@[ jW@Fj(j3+''''!''''!''''!''''!''''!''''!''''!''''!''''!''''!2j40 3 6 9 12 15 18 21 24 27 30<ZFjP[Zjd"jFIELD, A SCALAR FIELD SINCE THE POTENTIAL ENERGY HAS MAGNITUDE$j@BUT NOT DIRECTION. YOU CAN INPUT THE NUMBER, SIZE, AND POSITION#j>OF THE MASS OR MASSES WHICH WILL ACT AS SOURCES FOR THE FIELD.j"j;TO GET THE MAGNITUDE OF THE GRAVITATIONAL POTENTIAL ENERGY j1AT VARIOUS POINTS, INPUT THOSE (X,Y) COORDINATES.!j9USE NUMBERS BETWEEN 1 AND 30 FOR THE X AND Y COORDINATES.j$j@IF YOU PLOT ON GRAPH PAPER THE GRAVITATIONAL POTENTIAL ENERGY AT%jAEACH OF YOUR COORDINATE POINTS, YOU WILL HAVE A MAP OF THE SCALARjFIELDjj&HOW MANY SOURCES DO YOU WANT TO USE? dt4j X@}4vx "j,j ----- SOURCE :6!j.INPUT THE (X,Y) COORDINATES(METERS) OF SOURCE :@ j X = JtTVr^j Y = htrj |V@!j)INPUT THE MAGNITUDE(KILOGRAMS) OF SOURCE : tj VjZj "j---------------------------!----------------------------------jX = &t0Wx :W@DV4N?h! Y = XtbWx lW@vV4j?PUSE COORDINATES 1 TO 30 ONLY.jw$X@}4VB#4B#( M!#@ #@ w$$!'!Z  ?F YOU ARE AT A SOURCE.* ?l !?P$fffdd*^4j>&jD NOW PLOT THE INFORMATION ON GRAPH PAPER TO GET A SCALAR FIELD MAP.H`(FIELDT] * R PROGRAM NAME = FIELDT, SCALAR TEMPERATURE MAP!j9WITH FIELDT YOU CAN EXPLORE A PROPERTY OF A SCALAR FIELD.$j@THE PROGRAM WILL PRINT A MAP OF POINTS. DRAW A CONTINUOUS LINE (j5THROUGH EACH SET OF POINTS THAT HAVE THE SAME LETTER.2j ----- SCALAR MAP: <N HFnP XD@hZ XT@`dVDH6DP4TH6TPnLd@@@xVd@ LDT@ZTZD XDPx XTPxVD@VDhVDp4T@6Dp4T`Ld`@@Vd@ LDT@ZTZD XD@P  XT@P "VD@J,VD@ J6VDP4TP6DP4TxJ@hJLdP@@TVd`h^ LDT`hZTrZD|R PRINT Y$@P  X4@P T$4@j jA.jB.jC.Z4j [$%jA DRAW THE LINES NOW. INPUT THE WORD READY WHEN YOU HAVE FINISHED.&jD----------------------------TEAR HERE-------------------------------& j 0dt :jDjNLABCXj"LINES CONNECTING TEMPERATUREbj$ POINTS (DEGREES CELSIUS)l Y@`vMAd@@?`?L A[j"j Y@@Hj-WHAT IS THE DIRECTION(IN OR OUT) OF HEAT FLOWR!jBETWEEN LINES  AND @@? \zfj. INPUT EITHER THE WORD IN OR THE WORD OUT.pHzdt j V 0IN V .OUTfL@LWA#A@M6@M6V16#j= HEAT FLOWS FROM HIGHER TEMPERATURE TO LOWER TEMPERATURE.jH j RIGHT.j$[.`FORCE ] P JFr$FORCE1(r$FORCE22R PROGRAM NAME = FORCE, DYNAMICS<R CHAINED TO FORCE1, FORCE2Fj-DO YOU WANT INSTRUCTIONS FOR RUNNING FORCE? POp Zvxdtpnj xVF Wp0YESWp.NOF6jj1FORCE DEMONSTRATES THE EFFECT OF AN UNIFORM FORCE#j=ON THE MOTION OF A MASS. THE MOTION IS SIMULATED BY PLOTTINGj!SUCCESSIVE POSITIONS OF THE MASS.'jETHERE ARE THREE PARTS, AND THEY SHOULD BE RUN IN THE FOLLOWING ORDER:j#j> 1. APPLYING AN UNIFORM FORCE TO STOP A MASS WHICH IS MOVINGj& UNIFORMLY ALONG A STRAIGHT LINE.j$j? 2. APPLYING A FORCE PERPENDICULAR TO THE DIRECTION OF MOTION j OF A MASS.j"j; 3. APPLYING A FORCE AT AN ANGLE BETWEEN 0 AND 90 DEGREES"j+ TO THE DIRECTION OF MOTION OF A MASS.,j6j&WHICH PART DO YOU WANT (1, 2, OR 3)? @tJjTV6^vhW@r W@7`(|6`FORCE1']  J H<r$FORCE2(R PROGRAM NAME = FORCE1, APPLY FORCE TO STOP MOVING MASS2R CHAINED TO FORCE, FORCE2<NHFMPvxZv@dMD@nLԞ}@}x֯ԦP.ԦPnLd}@}֯dP.dPMdd@PMfdLd&fffPPj1 --------APPLYING A FORCE TO STOP A MOVING MASS: j7YOU ARE THE PILOT OF A SPACE VEHICLE THAT HAS A MASS OFj$KILOGRAMS AND AN INITIAL VELOCITY OFfMETERS/SECOND.j#THE VEHICLE IS BEING ACCELERATED AT(M/S/S) j BY A FORCE OFdNEWTONS.j"jYOU HAVE JUST REVERSED YOUR DIRECTION.YOU ARE NOW ACCELERATINGjIN THE OPPOSITE DIRECTION.&j+FINAL STATE OF TRANSPORT AFTER 5 SECONDS ISAP METERS/SEC.l& j7YOU HAVE USED YOUR 5 SECONDS AND YOUR FINAL VELOCITY IS0jAP METERS/SEC.:W@DlN(jGCONGRATULATIONS! AT 5 SECONDS FROM THE STARTING TIME YOU HAVEXj*REDUCED YOUR VELOCITY TO VERY NEARLY ZERO.blWD@vj- DO YOU WANT TO TRY THE SAME PROBLEM AGAIN? tj VMDD@MdfV0NO V.YESj jj$LET'S TRY A TWO DIMENSIONAL PROBLEM.jL@ j $j?HAVE YOU TRIED A FORCE THAT IS EQUAL IN MAGNITUDE, BUT OPPOSITE*j$IN DIRECTION TO THE INITIAL FORCE? 4t>j HV*R V0YES\V.NO fM@pLddzj HERE IS WHAT HAPPENS IF YOU DO:j ----FORCE APPLIED =dNEWTONS ,j"j;WHEN THE APPLIED FORCE IS EQUAL AND OPPOSITE TO THE INITIALj1FORCE, THE ACCELERATION OF THE MASS BECOMES ZERO.j*THE MASS THEN MOVES AT A UNIFORM VELOCITY.j'jFTO STOP, THE MASS MUST THEN BE ACCELERATED FROM THAT VELOCITY TO ZERO.'jEYOU MUST CALCULATE THE ADDITIONAL FORCE NEEDED TO ACCELERATE THE MASS!jFROM ITS INITIAL VELOCITYfMETERS/SEC. TO 0 METERS/SEC. j IN 5 SECONDS.j j7 1. ACCELERATION = CHAINGE IN VELOCITY DIVIDED BY TIMEj+ A = (FINAL V - INITIAL V)/Tj( A * T = FINAL V - INITIAL Vj$ FINAL V = INITIAL V + (A * T)$j.j3 2. WE KNOW THAT FINAL VELOCITY = 0 METERS/SECOND,8j1 TIME = 5 SECONDS, ANDBj" INITIAL VELOCITY =fMETERS/SECOND.LjVj1 3. SUBSTITUTING THESE VALUES INTO THE EQUATION,`j 0(M/SEC) =f(M/SEC) + (A * 5 SEC)jjtj1 4. SOLVING THE EQUATION FOR THE ACCELERATION A,~j A =f(M/SEC)/5(SEC)j ACCELERATION =fP (M/SEC)/SECj#j= 5. CALCULATING THE FORCE NEEDED TO CAUSE THIS ACCELERATION,j/ FORCE = MASS(OF OBJECT) TIMES ACCELERATIONj FORCE =(KG) * (fP (M/SEC)/SEC)j FORCE =%fPNEWTONS j8 THIS IS THE FORCE NECESSARY TO CHANGE THE VELOCITY j OF A KG MASS FROMfM/SEC TO ZERO M/SEC.jj4 6. NOW WE CAN CALCULATE THE TOTAL FORCE NECESSARY,j3 TOTAL FORCE = FORCE TO STOP ACCELERATION PLUS j7 FORCE TO REDUCE THE VELOCITY TO ZERO#j TOTAL FORCE = (d NEWTONS) + (%fPNEWTONS) j TOTAL FORCE =d"%fPNEWTONSjjLET'S TRY ANOTHER PROBLEM.(j 2<<`FORCE2] *D JR PROGRAM NAME = FORCE2, FORCE AT ANGLE TO MOTIONR CHAINED TO FORCE, FORCE1 - LINE 130 TO TEST(NaH H`H2v 1 2 3 4 5 6 7 8 9 1011<vdP@@Fv`#10000002000000300000040000005000000Pv``dp`dpZvdd}dLԞP@@}nLd&fffPPxvxyzv A{j T@0&jD --------APPLYING A FORCE PERPENDICULAR TO THE DIRECTION OF MOTION: "j*YOU ARE THE PILOT OF A SPACE VEHICLE, MASSKG, TRAVELING 'jETO THE RIGHT(IN A DIRECTION REPRESENTED HERE BY MOTION TO THE RIGHT)."j0YOUR VEHICLE IS BEING ACCELERATED BY A FORCE OF ` NEWTONSj(APPLIED IN THE DIRECTION OF YOUR MOTION.j#j=YOU CAN APPLY ANOTHER FORCE TO YOUR VEHICLE, PERPENDICULAR TO"j (MOVING THIS WAY)j!j9THE PATH OF THE VEHICLE WILL BE PLOTTED FOR 50 KILOMETERSj5DOWNRANGE, OR FOR 10 SECONDS, WHICHEVER OCCURS FIRST.j"j/HOW MUCH FORCE(NEWTONS) DO YOU WANT TO APPLY? ,vDZ6 LFZdZ@tfJj TV"^ VfQ$rhrjf3NEWTONS FORCE WILL NOT GET YOU EVEN 1 KM DOWNRANGE.|jTRY A LARGER FORCE."Lff}Ld&Lf& YD@XLD@$%D@@MaD@$%D@@[DMTVdL_V'TL&j 0j&--------APPLYING A FORCE AT AN ANGLE: :$j?YOU ARE THE OPERATOR OF A DEFENSIVE SPACE STATION. YOUR STATIOND#j>IS EQUIPPED WITH INTERCEPTOR SPACE PROBES WHICH YOU MAY LAUNCHNj&AT ANY ANGLE BETWEEN 0 AND 90 DEGREES.Xjbj*----DIAGRAM: P = PROBE LAUNCHING SITElj% ------------P----------- 0 DEGREESv$p! p$! !---> (THIS IS TO THE RIGHT)>p!X ! p!X ! p!X V (THIS IS DOWNRANGE) p!h 90 DEGREESL`jMTF @PMVH @x LdL4V 0A j8A FOREIGN BODY IS DETECTED NEAR YOUR STATION. YOUR TASK$j@IS TO SEND A PROBE TO MAKE CONTACT WITH IT. THE BODY IS LOCATED%kT}METERS TO THE RIGHT ANDV}METERS DOWNRANGE FROM YOU.jIT IS NOT IN MOTION.j L_V'TL LZd@*jTHE SPACE PROBE HAS A MASS OF KILOGRAMS.4M*V@ T@@@>j+THE CONTACT MUST BE MADE WITHIN 10 SECONDS.HL֞\vxfjpj/HOW MUCH FORCE(NEWTONS) DO YOU WANT TO APPLY? ztfj VpLff}Vfj3 YOU MUST APPLY A FORCE GREATER THAN 0 NEWTONS.p Vdd$ j% YOU MUST APPLY A FORCE LESS THANd$NEWTONS.p!j8AT WHAT ANGLE(DEGREES) DO YOU WANT TO SEND YOUR PROBE? tDj V LDD@VD6DZ$VfDdZ,ԤQ8!j:YOUR FORCE AND ANGLE WILL NOT GET YOU EVEN 1 KM DOWNRANGE.f$j0 THE ANGLE MUST BE BETWEEN 0 AND 90 DEGREES..8R GRAPHB LFDdZL LgF$fV LhF$f`Lh&jLg&t YD@X~LD@$%D@@MaD@$%D@@[Dj ----PROJECTED PATH: &jC 0 10 20 30 40 50 (KM TO RIGHT)j4 !'''''''''!'''''''''!'''''''''!'''''''''!'''''''''!j-*(INITIAL POSITION)wDF@w'VF#TFVF*MF%'@!TMVF%'@wT'F@ MV'F@ Y$@d j- (V@%$P@%$P<2 @%$ <V@%$/V4@%$@/VPFT+(FOREIGN BODY) PYDPRWa0@%$7a0@%$@dT[ZdwDe VDb ifD@* gi d  WaD@#aD@ WDP7$d wDD@ WDP7$d wDD@jV.DV@%$1V6@%$@1V|[$|wJ@%*$&f@j SUCCESSFUL CONTACT j (KM DOWNRANGE) jTIME REQUIRED =JPPSECONDSL֞@ j (KM DOWNRANGE) j TIME USED = @%D@%D@ SECONDSj V@ ~0j$ANGLE OF FOREIGN BODY FROM STATION =DEGREES:j YOUR ANGLE =DDEGREESD$j0MINIMUM SEPARATION BETWEEN YOUR PROBE AND BODY ='}METERSN jOCCURED}%METERS TO THE RIGHT OF THE ORIGIN ANDXk}METERS DOWNRANGE.bjv&jADO YOU WANT TO LEARN HOW TO CALCULATE FOR A SUCCESSFUL CONTACT? t j VvV 0NO  V .YESvj ----CALCULATING FOR A CONTACT: !j:YOU MUST CALCULATE THE CORRECT ANGLE TO LAUNCH YOUR PROBE.j4YOU CAN DO THIS BY FINDING THE TANGENT OF THE ANGLE.j j8 TANGENT OF ANGLE = (METERS DOWNRANGE)/(METERS TO RIGHT)jjDO YOU NEED MORE HELP?  t j  V*V 0NO:4 V .YES>jHj2TO SOLVE THIS PROBLEM YOU MUST BE ABLE TO USE THE R jTANGENT FUNCTION.\jfjCONSIDER THE DIAGRAMpjzj A Bj j Cjj2IF YOU DRAW LINES FORM A TO B, B TO C, AND C TO A,jABC IS A RIGHT TRIANGLE.%jBIF YOU DIVIDE THE LENGTH OF SIDE BC BY THAT OF AB, YOU WILL OBTAINj6A NUMBER WHICH IS CALLED THE TxANGENT OF THE ANGLE CAB.jIT CAN BE USED AS FOLLOWS:j"j; TANGENT OF ANGLE = (METERS DOWNRANGE)/(METERS TO RIGHT)j #j = (V} METERS)/(T}METERS) $j .j TANGENT OF ANGLE = V'T 8j6IF YOU LOOK UP THIS NUMBER IN A TABLE OF TRIGONOMETRIC B j4FUNCTIONS UNDER THE 'TAN' COLUMN YOU WILL FIND THAT V'T LjCORRESPONDS TO THE ANGLE  DEGREES Vj `jLET'S TRY ANOTHER PROBLEM. jj t ~j j(DO YOU WANT TO TRY THIS PROBLEM AGAIN?  t j V V 0YES V .NO j T@ V@ f "jMUST INCLUDE THE STATEMENTS SHOWN BELOW (STATEMENT NUMBERS MAY%jBDIFFER, BUT THEY MUST BE THE FIRST FEW STATEMENTS IN THE PROGRAM):(j<j410 REM* AUTHOR: JOHNNY DOE, MAGEE SCHOOL, APRIL/74.Fj20 REM* VERSION # 3.Pj30 REM* MODIFIED: MAY 24/74.Zj40 REM* INSTRUCTIONS:d#j>50 REM* TELL BATCH USERS HOW TO USE YOUR PROGRAM. IF PROGRAMn(jG60 REM* IS FOR HANDS-ON TYPEWRITER USE ONLY; THEN PROGRAM SHOULD PRINTx%jA70 REM* OUT INSTRUCTIONS INSTEAD OF PUTTING THEM INTO 'REMARKS'.$j?80 REM* IF REFERENCE MATERIALS ARE OPTIONAL OR REQUIRED; THESE$j?90 REM* MUST BE INCLUDED IN THE SUBMISSION TO COMPUTER CENTRE."j<100 REM* THE COMPUTER CENTRE WILL THEN HANDLE XEROXING AND 'jE110 REM* DISTRIBUTION OF SUCH REFERENCE SHEETS TO PROSPECTIVE USERS. j8120 REM* PREFERRABLY, REFERENCE SHEETS SHOULD BE TYPED,$j?130 REM* SO AS TO BE EASILY XEROXED (MAKE ANY DRAWINGS BLACK).jREM$j@REM* VARIABLES USED SHOULD BE SPECIFIED AND THEIR PURPOSE STATEDj5REM* BRIEFLY; ESPECIALLY FOR PROGRAMS TO BE APPENDED.&jDREM* FOR PROGRAMS TO BE APPENDABLE, STATEMENTS SHOULD START AT 9000.'`FORMDX q j#j>S U B M I S S I O N T O: SYSTEM LIBRARY / INDEX / CATEGORIES.#j========================= ============== ===== ==========(j2"j<... FILL IN ONLY RELEVANT PARTS (SYS.LIB.AND/OR INDEX, ETC).<jFjP%jBF R O M : SCHOOL............... TEACHER.............. DATE....Zjd&jD STUDENT............... TEACHER SIGNATURE...............n/@xjSYSTEM LIBRARY UPDATE:j=====================j$j=YOUR PROGRAM NAME ! . . . . . ! USER ID ! . . . ! NEW NAME j$.......jj- %jBIS THIS A CHANGE TO AN EXISTING PROGRAM IN SYSTEM LIBRARY ? YES NOj $j=(USE BACK OF THIS SHEET TO EXPLAIN USEFULNESS OF ANY PROGRAM  j CHANGES.)j- %jADID YOU SUBMIT EXISTING PROGRAM ? YES NO. -SHOULD IT BE DELETED ?j jXREF INDEX UPDATE: j=================j"$j?DESCRIBE PROGRAM (IF NEW/CHANGE): PURPOSE, WHAT IT DOES, USES :,j6j @&jDL1 ! . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . !JjTj ^&jDL2 ! . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . !hjr#j=WHAT CATEGORY CODE NUMBERS DESCRIBE PROGRAM (IF NEW/CHANGED):|j (#j>USE ONE OR MORE CODES TO ANSWER EACH QUESTION BELOW; TEN MAX.)jj0- WHAT GRADE LEVELS IS IT SUITABLE FOR, MAINLY ?j.- WHAT USAGE METHODS CAN BE USED, REASONABLY ?!j:- WHAT KINDS/PURPOSES APPLY TO THIS PROGRAM, IMPORTANTLY ?"j;- WHAT SCHOOL TOPICS OR USE MIGHT BE MADE OF THIS PROGRAM ?"j<- WHAT PROGRAMMING LANGUAGE WAS USED TO WRITE THIS PROGRAM ?jj  j7! . . ! ! . . ! ! . . ! ! . . ! ! . . !jj #j= ! . . ! ! . . ! ! . . ! ! . . ! ! . . !jjCATEGORIES UPDATES: j==================&j0j :%jACODE ! . . ! CATEGORY ! . . . . . . . . . . . . . . . . . . . !DjNj X%jACODE ! . . ! CATEGORY ! . . . . . . . . . . . . . . . . . . . !bjl j v j8(FIRST COLUMN OF 'DETAIL'CATEGORIES MUST BE A HYPHEN - )j%jAR E S U L T : THIS PROPOSAL WAS/WAS NOT IMPLEMENTED. DATE.....'jF (THIS LAST LINE TO BE COMPLETED BY COMPUTER CENTRE.)`HASEY] *P @VXcpcxclod`] g_Zkdhb`dxe\bDgb<ZT\Va$[_ad]cfYcH__]_ca,OF DEPENDENT =FjSUM OF INDEPENDENT =7 MEAN OF INDEPENDENT =E,"/@?P$VARIANCE AND COVARIANCE CALCUALTIONS6j@&jD MONTH X-MEAN X Y-MEAN Y COL. 1^2 COL. 2^2 COL.1*COL.2JX%|TvG %"E^vH %"Fhv44 G$Hrv33 H@|v55 G@V-hjX@]a$N fc[P Yf_R cHYaT _cHdV __]X ]_cZ _]f\ c_Y^ a,ccH g] cxD _gclH Z_oL kZdP dhk`T bdh] X `bg\ dx`_` edxZd \ekh bD\dhl gbDbp b<g`t Zb<dxx T\Ze| VT\\@ a$VbDB [a$gD _[b<F a_ZH daT\J ]dVL cHINB1 ] P"R HINB1 COMPUTER PROGRAM TO ACCOMPANY HINESBURY MILLS(B) 7/23/73R PROGRAM PROVIDES TRACE OUTPUT FOR INDIVIDUAL CONSUMERSR CASE2, HP 36841A, 2/74 (HINB1, PART 1 OF 8)w M6789: h 2i@@@`@@@``@`` h1@1@1`A@A@A` iD4( iX@|MjMMW,W, L`'L@' L@'M( W-`-* W-@/+M@,2-M`.2/M@2M3W,164L4@576L4@7M8W-A;9MD@:<;MD@<jCONSUMERHAS PRIMARY USE= LD%P$4!D>jPERCEIVED NEED ISD%P$4!DAL)EpB ֿ-DCL))}DL'gxE ֿ-GFL''}GL&EHjPRICE BRAND PERC AS )IjPREM PERCEIVED AS'J jREG PERCEIVED AS&L ֿ-OML*~`NQOL*^pQ ֿ-TRL**dSYTL**KYjADD BUTTER PERCEIVED AS*e ֿ*D,f jTHERE IS A DEALh ֿ,ijPRICE REDUCTION IS SMALLk ֿ-4l jIT IS NOT SEENm,jPRICE REDUCTION IS LARGE ֿ+jHINESBURY REG IS DEAL ITEMW@V4@WD@ jNO EXACT MATCHVEVFVE VEhVgxjNO DEAL PURCHASE MADE,jHINESBURY REG IS PURCHASEDM66@j$OTHER REG PLUS ADD BUTTER IS ON DEALW@V4@WD@jOTHER REG IS PURCHASEDM88@WD@V4@ Vd**jADD BUTTER IS PURCHASEDM::@ jNO EXACT MATCHVEVFVEhVgxVF V(E Vg"W@ ,V0)- V0)}. V0)d/V0&0 V0*d1V0'2V0*3 V0*}4M@5W@ 6 jNO EXACT MATCH7V`8V@X;VE<V*Ep=V*H>V*d?V*gjPRICE BRAND IS PURCHASEDM99@ jPREM IS PURCHASEDM77@jREG CAKE IS PURCHASED ֿ-( jBRAND IS HINESBURY jBRAND IS OTHER REGVE VEhVgVgVEpVgVgxXVEYVFZVEh[Vg\VF ]VE ^VEp_Vg`VgaVgxM@M@M`L4@L4@MD@MD@ LD%P$4!DjCHANGE PERC NEED TO" jCONSUMER DOES NOT BUY!Q$Q$jCONSUMERS HAVE BEEN SIMULATEDjZL6`%7!8!9`%:j j BRAND SHARESj HINESBURY REG6&$jHINESBURY PREM`%6&$j OTHER REG8&$j ADD BUTTER`%:&$j PRICE BRAND9&$jTOTAL PURCHASES6!7!8!9!:R MODEL1 Pfff@ffflL@L@S33FffLYl@@fff@@L`GLS33`(HINB2 ]  #R HINB2 COMPUTER PROGRAM TO ACCCOMPANY HINESBURY MILLS(B) 7/23/73R PROGRAM DOES NOT SHOW TRACE FOR INDIVIDUAL CONSUMERSR ONLY FINAL BRAND SHARE FROM SIMULATIONR CASE2: HP 36841A, 2/74 (HINB2, PART 2 OF 8)w M6789: h i@@@@`@ i@`@``` h1@1@1`A@A@A` ihD4(X@|MMMW,W, L`'L@' L@'M( W-`-* W-@/+M@,2-M`.2/M@2M3W,164L4@576L4@7M8W-A;9MD@:<;MD@<R= LD%P$4!D>RAL)EpB ֿ-DCL))}DL'gxE ֿ-GFL''}GL&EHRIRJRL ֿ-OML*~`NQOL*^pQ ֿ-TRL**dSYTL**KYRe ֿ*D,fRh ֿ,iRk ֿ-4lRm,R ֿ+RW@V4@WD@RVEVFVE VEhVgxR,RM66@RW@V4@WD@RM88@WD@V4@ Vd**RM::@RVEVFVEhVgxVF VE Vg"W@ ,V0)- V0)}. V0)d/V0&0 V0*d1V0'2V0*3 V0*}4M@5W@ 6R7V`8V@X;VE<V*Ep=V*H>V*d?V*gRM99@RM77@R ֿ-(RRVE VEhVgVgVEpVgVgxXVEYVFZVEh[Vg\VF ]VE ^VEp_Vg`VgaVgxM@M@M`L4@L4@MD@MD@ LD%P$4!DR" R!Q$Q$jCONSUMERS HAVE BEEN SIMULATEDZL6`%7!8!9`%:j j BRAND SHARESj HINESBURY REG6&$jHINESBURY PREM`%7&$j OTHER REG8&$j ADD BUTTER`%:&$j PRICE BRAND9&$jTOTAL PURCHASES6!7!8!9!:R MODEL1}LS33 fffl@ LL @S33Fff S33`s33 @L@Y@YLY`G`HPASMB#] * K J`R HPASMB, HP 36806A, 2/74, PART 1 OF 4NH H0H( p*,ASMWRK,$ASCII2 wP@FjHP ASSEMBLER PACKAGE dj @nDxWDnjV@@.:<v LIDUSTEDJFJOEJRUPR X@ @V@`0 @Z<vdTĞ@ ,v@@.WP6`1/j*IGNORED0d1 T6@l46R--:LIST;V@AV1@@1@@.SBV1@@1`@.1xHv6`JOWD@T V`@DY h@@^ V1Phv6@rp| V.1P XĞ@|@h@ Z V1`v6Pp V.1`vNV@jh` @@ X@d  v @ j ZX|h@V@0v& ?@0j :ZDV@bNj:: Sj Xdb j****LIST END****ldv X`~@jF#,DĦP(ĦP(@PZ^R--:DUMPV`V1@@1@@.1xv6@WD@v@ V`@DR--:STOREV@V1@@1@@.Sv6@WDWD`v`V1`@1@@01vV1`@1@@05xj@ h@@ V`@(D WD /`V@@0::HV@@0:<8 j@`*vĠ@>HvĢ@M /`Rv\j LINESfdR--:EDITV`vT@V1@@1`@.1x h@@ h@@j@DWDjV@@0/V@@0:8 j@`j/BAD CONTROL STATE RE-ENTER STATEMENT ON TTY @DWDjV@@.:P $v IDRE. X@@8V@@0 `BZLjINVALID EDIT FUNCTIONV`V@41@eV@j V1@tv6@~p V.1@vfg V1`v6@p V.1`vgV@Vf@g4f> j LIMIT ERROR V`@K V`@dX|f@h@ j@`ZT(ZZ(R--/INSERT<h@F j@`KvĠ@PZR--/REPLACE AND /DELETEdXf|gnh@xZR--/END V`@h@ j@`Vd@ V`@( V`@ h@@ h@@h@ j@` jEDITING COMPLETE DASMWRK@Dd@R--:JFILEJ V1@Ov6@T^WD@cv`0hdRv6@WD@ WD4@V`v6`vd@vT`WDWD` DASMWRK@DlR--:JOBqosv`vdR--:EJOBb4R--:RUN> WH@WH j LOADR NOT RUNRdW wH@\ r$HPRUNPR--:PROGRAM V1@V1@@1@@0ASMBV1@@1@@0LOADR ` jNO SUCH PROGRAMd` j$END ASMB NPRGdD`@D h@@ V@1@@0ASMB v ?x j $END ASMB CSd v LTCAR w`@P`p v@  V1@ V $ X@P .V1@1@@0  L 8Z B L W@ N w@@ Pv@ R  VW`1p [ r$ASMBP ` WH jjL06 t jLOADR TERMINATED ~d wH@ W@ jNO PROGRAMS LOADED. wH jLOADR COMPLETE d R--FIND COMMAS n1P v@ X` V0  V., v1 v@ VH Z v1 ^ R--ASSIGN FILEv016@16@@D0dD^ j0 UNDEFINEDd j0 IS READ-ONLYd jMISSING PARAMETER j ILLEGAL DIGIT  jINVALID FORMAT( j0 IS TOO SMALL*TTd,d,jEDITED PROGRAM IS ON ASMWRK0d< jBAD CONTROL STATEAvT@FKjEND FILEP jEDITING ABORTED!ZddjASMWRK IS TOO SMALLnPx j ILLEGAL LUN jPARAMETER ILLEGALjRE-ENTER STATEMENT ON TTYTTdp R--STRING TO NUMERICz v  0123456789vX16@|16@@ X@P V0 Z^ vP @Z^8R--TAB AND DELETE TRAILING BLANKSBX@~@L V. `VZ` v@j X@`t V0 ~Z^v  v`  vp @^'`IATATA P@ R**IATATA**ANALYSIS OF IATA AND ATA UNITIZATION PROGRAMMES. pIATAID,CONTNR*N0@P`(Op2j"WOULD YOU LIKE A CONTAINER SUMMARY<gFdP w@@NZ w@@Yd h@@n h@@xW@@0Nr+/@?X SUMMARY OF UNIT LOAD DEVICES/@?x-jIATA?| ATA(US)/@?pMIN?T MAX,?D MIN?hMAX/@IATA?`CHARG,?`TARE?@EXT?`GROSS?PATA.?pCHRG?PTARE?`GROSS/@?@+jID?@WGT?PVOLUME?PWGT?pjID?@WGT?hWGTb X@T h@DdDPF V`@jDdPFH5 5A,2X,5D,2X,4D,2X,4D.D,4X,5D,5X,5A,4X,5D,5X,4D,3X,5DZb"j:NOTE:0 IN MINIMUM CHARGEABLE WEIGHT COLUMN INDICATES PIVOT"%j WEIGHT VARIES/@"BY TARIFF CONFERENCE(OR ORIGIN-DES,%j!TINATION COMBINATIONS). ZEROES IN/@ VARIOUS OTHER6 j7 FIELDS MEANS DATA NOT AVAILABLE OR NOT APPLICABLE. COJ@"j:AND COS CONTAINERS ARE FURTHER BROKEN DOWN INTO IATA REGISJ#jTRATION/@#NUMBERS FOR VARIATION OF THESE TWO T%j$CATEGORIES. IF YOU ARE GOING TO WORK/@ WITH THESE ^!j:TYPES, MAKE SURE YOU ENTER THE CORRECT REGISTRATION NUMBERhj(I.E. DSC-221)./`r j IATA OR ATA|gW@@0IW@@0A r R**IATA SECTION.wIATAj CONTAINER OR REGISTRATION NUMBERf0V0@@0DV0@@0S h@@ V`@h@DdDPFV00v h@@ V`@& h@`0V00`DD h@@N V`@Xh@DdDPFbV0lXvj-ELIGIBLE FOR SHIPPER OWNED CONTAINER DISCOUNTgW@@0NvD VԮjMINIMUM CHARGEABLE NET WEIGHTfjACTUAL TARE WEIGHT OF CONTAINERgGWDwDGwHD9G wID;G^ 4*4wt>jHOW MANY COMMODITIESHfRX@|\jff H#,"WGT ",2D,"="pgqzwtq!tZ^V0@@0DV0@@0S Vt!I*. Vt!I*.jjt!I" jjt!I" H:#,"MAXIMUM GROSS WEIGHT OF ",2DX3D," LBS EXCEEDED. REMOVE" H 2DX3D," LBS."/$ .V0@@0DV8V0@@0SVBV0@@0CVLjV jCONTAINER COST`fj~t~w4X@|j H#,"RATE ",2D,"="g! w4!%q!4Z v!@X@|W!@v!W!>v!Z ^w64 jORIGIN AIRPORT(f2jDESTINATION AIRPORT<f@FW@@0NPV0@@0DnZV0@@0SndV0@@.Cnwvt!Gxwwv#H!R**TEST FOR MINIMUM CHARGEABLE WGT AND COSTING OF EXCESS TARE.w4G$!4Wv>wK#vw4K$!4R**TEST FOR IATA 10% RULE. VDfff%4 vFfff%4PvGFvDGP/`jH0 15X,"ANALYSIS OF SHIPPING IN SHIPPER OWNED ",4AjH& 20X,"CONTAINERS VS. NORMAL PACKAGING"j"@"H 28X,"FROM ",3A," TO ",3A,j606H 25X,"USING ",7A," CONTAINER"/@wxv;wJjTx4T H9 10X,"GROSS COST OF SHIPMENT OF ",4D," LBS ",4X,"$",4D.2D^jhhH$ 10X,"PLUS CONTAINER COST",22X,3D.2Drj|D|H& 10X,"LESS CONTAINER REBATE",20X,3D.2Dwyv"WyWy-DwyDv6y$v6j6H+ 10X,"LESS TARE WEIGHT ALLOWANCE",14X,4D.2D j4 "D"6H& 10X,"NET COST OF SHIPMENT",20X,4D.2D/j6H6 10X,"COST IF NET CONTENTS ARE SHIPPED LOOSE",2X,4D.2DjH. 10X,"COST IF SHIPPED IN NON-",4A," CONTAINER" j&6 G$&H* 10X,"OF EQUAL TARE WEIGHT",20X,4D.2D/////0jMORE:gDW@@0YPNW@@0NXb"j9---------------------------------------------------------l j---------------v^ jDATA NOT ON FILE.P jCONTAINER CHARGEf7Wt@zjSECOND PIVOT WEIGHTg~W~*w~Wt@zjFIRST OVER PIVOT RATE=g& W~7t-~   w}t"* w}~"* W~5t+~>4f>jSECOND OVER PIVOT RATE=Hg'Rw|t#~\fw'|pz w&~'}v^&%}!'%|/`jH0 15X,"ANALYSIS OF SHIPPING IN AIRLINE OWNED ",4AjH- 17X,"CONTAINER VS. SPECIFIC COMMODITY RATES"j"@j60j7"H= 10X,"MINIMUM CHARGEABLE WEIGHT OF",X,5D,X,"LBS",2X,"$",5D.2DWt@jt"^H- 10X,"PLUS EXCESS OF",15X,5D,X,"LBS",3X,5D.2D V0@@.C . j  H$ 10X,"PLUS CONTAINER COST",23X,4D.2D $ V .L 8W@@0N V Bj LD LH( 10X,"LESS CONTAINER DISCOUNT",20X,3D.2D V j `7 ^ "D `H* 10X,"TOTAL CONTAINER COST",20X,"$",5D.2D/ jj t4 t H: 10X,"COST IF NET CONTENTS ARE SHIPPED LOOSE",2X,"$",5D.2D ~ j 4"7 ^ "D H, 10X,"SAVINGS OR LOSS(-)",22X,"$",5D.2D///// 0 R**ATA SECTION. wATA jCONTAINER NUMBER f0 h@@ V`@ h@DdDPF V00P  v wDF  4  Vt!I* 2 ( P 2j <jt!I" F4 PV0@@0B ZV0@@0D dV0@@0E nV0@@0Q x V00LD-N  jCONTAINER COST f  v V0@@0Q V0@@0E V@ j5USING THE MIXED SHIPMENT RULE (RULE 12,C.A.B.131),YOU j MAY INPUT RATES j t !H; "EQUAL TO ",5D," LBS FOR EACH COMMODITY IN THE CONTAINER." ~  jORIGIN AIRPORT f jDESTINATION AIRPORT "f@ ,V0@@0E T 6V0@@0Q T @ JR**SETTING US OR CANADIAN MINIMUM CHARGE. TV@@0Y r ^V@@@0Y r h rV@@0@@@ |vTx  vTP jGENERAL CARGO RATE g' V0@@0E v۞~  v۞R Vt!G, vܞfff$t!G#D wvt"  & V0@@0E  wvd  & wvA &v7v%' 0V7>T D :v7T D/` Nj Xj bj"@ lj60 vjTv7 jh j7 j4 j j&4 G$ 0 jDAYLIGHT OR REGULAR gp jCONTAINER CHARGE f7 Wt@  Wp@@0D  jRATE/LB FOR EXCESS ABOVE PIVOT g&  w& V0@@0B H *V0@@0D H 4 V00LD-N H > \ HWGAD \ RvD$G#D \V@ fV00B p V00B-2 zV00D V00LD-N vNQ  vNzH  vNI^  vNr!  vN V0@@0B V0@@0D V00LD-NBWG1DBWG+DL$vD.vK$D#G8VBvDLvKV/``V0@@0BjV0@@0Dt V00LD-N~jjjj"@j60j7W& jt"t"%&V<j VK(VD< jDH, 10X,"PLUS EXCESS TARE CHARGE",17X,"$",5D.2D<(j2K2H3 10X,"LESS UNDER TARE WEIGHT DISCOUNT",7X,"$",5D.2D<j `7 t"%& D"KFV@dPj t4Zd jn4"N%t"K DnH- 10X,"MIXED SHIPMENT RULE COST",16X,"$",5D.2Dxj 4"N%t"7 t"%&j 4"7 t"%& D"K0`IB ] T@J@TK@yy\g(boD pU6cYE*V. HN^70W^ ɞ_ 4# ÊM*mQ5}.7KHA7ir/876N4FL/XP ,vl4UϪgO@Bej) Fj gB&_&B>B[{5*FR?gjnZ@NIpt_Z~($qV;KiE]^_0\axQ]gEDNVBzcM-I#PMU.dj8gNJ+vDi;TcH@[c`MZ[T"eCKmddcq876N4FL/XP ,vl4UϪgO@Bej) Fj gB&_&B>B[{5*FR?gjnZ@NIpt_Z~($qV;KiE]^_0\ax 6w@x 0AV0@@.PAUSHB /@> C X@PDx0EWAFZHjJWTW} ,V j NEED HELP Wf0XV0@@0NBY j YOU MAY USE :Zj[jCOMM TO LIST COMMAND NAMES\j)EXPL TO EXPLAIN A SINGLE COMMAND NAME]j"INFO TO GET GROUPS OF COMMANDS^w@c,hWrUsswsj"NAME OF COMMAND TO BE EXPLAINED = t|w jCOMMAND NAME = |f0l X@uiP V0@@1PZX@}^V0@@/@$`@$ r0@@Z/@COMMAND INVALIDTw:W?jDr$IDAE21Tr!@Tr!@P  U444OIgggT@&JMM> (IHT@ H>>44K *T` 4CJ9999T@ 9&\&44TP 4C44&%&PT`  &499999Tp c>I>>&KT@Q~4&M&4JTHOIN  fkpTPqrstu&wxTXy\&&4}kk T`gfff||||Th*    vTpuC z jCOMMAND NOT YET IMPLEMENTED!'%r$IDA98&r$IDA39*r$IDA234r$IDA249r$IDA25>r$IDA26Cr$IDA27Hr$IDA28Ir$IDA29Jr$IDA30Kr$IDA31Mr$IDA33Nr$IDA34Or$IDA35Pr$IDA36Qr$IDA37\r$IDAE39]r$IDAE01cr$IDA45fr$IDA46gr$IDA47kr$IDA95pr$IDA48qr$IDA50rr$IDA51sr$IDA52tr$IDA07ur$IDA08vr$IDA09wr$IDA12xr$IDA13yr$IDA14zr$IDA54|r$IDA17}r$IDA18~r$IDA19r$IDA20r$IDA21r$IDA49r$IDA22bw@r/@COMMAND NAMES :/@l X@uh0 jF#,4A2X0VPP jZ$"/@/COMMAND 'EXPLAIN' WILL EXPLAIN ANY OF THE ABOVE.W^,8jBjUSER DEFINED COMMANDS :/@LX@}^Vj`@$`@$`H #,4A,2XjZojt, ( j * LEVEL =  - n 2j!CHANGE PROMPT LEVEL TO 1, 2, OR 3 <j 1 : DETAILED PROMPTS F j 2 : INTERMEDIATE Pj 3 : SHORT, CRYPTIC Zj d ( nP  xj W 2 W@7@7`'  2#($R:CHANGING POSITION OF COMMANDS WILL AFFECT IDAE21 AND IDA912 BY Q2#)dABSO@ADDC@#+dADDV`ALLS@#-dANOV`APPO@#/dAPPS@APPV`#1dAUTOpBACK`#3dBCORPBCOV`#5dCHGO@CHGP`#7dCOEF@CORR@#9dCOVA@DELB`#;dDELOPDIFF@#=dDOTPPDURB@ #?dENLI@ENTE@#AdEXPL@EXPO`#CdFILEPFORW@#EdFPRF`FPRO@#GdFPRRpFPRSH#IdFPRVPFREQ`#KdINFO@HISTP#MdINDX@LAGGp#OdLIST@LOGE@#QdLOG1HMEAN@#SdMULCPMULVX#UdNAME@NEWS@#WdNORM`PARC@#YdPLTC@PLTS@#[dPOWE`PRTF@#]dPRTO`PRTR@#_dPRTS@PRTVP#adQUIT@RAND@#cdRECO@REGR@#edRETB`RETO@#gdRUNSHRVSFL #idSAMP@SAVF@#kdSAVRxSCAT@#mdSEPR@SERC@#odSTANhSTEP@#qdSUBS@SUMM@#sdSWEE@TRAN@#udWLSR@RDIM@#wdNEWC@CALC@#ydSORT@PSOR@#{dRANK@ENTS@#}dENRA@MSORX#dCRSP@PSAM@#dGAUS@HELP@#dCTABxMTAB@ #dDIVIpSPEC@#dCRTS@COMM`#dAPPB@ZERS@#dZERC`ZERR@#dCATE@SELR@#dMOVE`DELV@#dSTAR@SPADP#dMPLS@COMP@#dDUMP@SUBV@#dPACF@CRFI@#dCROS@EOBR@#dMISS`EOBS@# dBOXJ@'j#NO DATA HAS BEEN ENTERED YET. USE:'!j:'ENTER', 'ENTS', 'ENRA', 'CRSP', 'INDX', 'RAND', OR 'STAR''jTO DEFINE DATA MATRIX.' ','`LIDA01 ] Pf2R:12FEB744'<R:PROGRAM TO CLEAR COMMON AFTER GET-$IDAd"R *************************************************************xR R IDARR A SYSTEM OF PROGRAMS FOR INTERACTIVE DATA ANALYSIS FROMR THE UNIVERSITY OF CHICAGO GRADUATE SCHOOL OF BUSINESSR TIME-SHARED BASIC PROGRAM LIBRARYRR DEVELOPED BY ROBERT F. LING, AIDED BY HARRY V. ROBERTS,R AT THE GSB IN THE SUMMER AND FALL OF 1972."R MODIFIED, AND NEW COMMANDS ADDED, BY THEM AND BY JUNE ROBERTS"R THEREAFTER. WORK ON NEW COMMANDS BY OTHERS CREDITED IN THE"R APPROPRIATE SUBPROGRAMS.RR THE NAME OF THE CONTROL PROGRAM IS "IDA."R THE IDA SYSTEM IS BASED ON A COMMAND STRUCTURE."R GET-$IDA, RUN, AND ANSWER "YES" TO THE QUERY, "NEED HELP ?","R TO GET DETAILED EXPLANATIONS. ISSUE THE COMMAND 'LIST' FOR R A LIST OF THE IDA COMMANDS.RR#R IDA IS DESIGNED FOR USE AT THE GRADUATE SCHOOL OF BUSINESS,#R UNIVERSITY OF CHICAGO. ITS USE ELSEWHERE IS PROHIBITED UNLESS"$R SPECIFIC CONSENT HAS BEEN GIVEN BY HARRY ROBERTS OR ROBERT LING.,!R HEWLETT-PACKARD HAS BEEN GIVEN PERMISSION TO DISTRIBUTE IDA6R TO USERS OF ITS COMPUTERS.@R#("R *************************************************************' r$IDAh '`LIDA02 ˗]  KgҔRaN JД<H(J- J^2R:10MAY74<R:>SCATdPJ PN2#AQw@wHvdvvXd|W@0v@vQ#@'@&vA#@'@0ZXjYH6 #," HOR. OBS. IN ROW ",3D," AN OUTLIER; PLOTTED AS "ZH7 #," VERT. OBS. IN ROW ",3D," AN OUTLIER; PLOTTED AS "]n3bX@|g vAAl vQQq VAs33vvA@x@{jY|j-3.4 VAF33 vAF @jYj3.4 VQs33vQ@@jZj-3.4 VQF33 vQF @jZj3.4Zj Xp@~@X@|VQ,Pfff4Q*PP#v2P"Q@A2P"Q@A@Z X@P vP"@֏H P"H PQjF#,DDH Pj - X@F  V2Q@@$ V2H jF#,D2@@$*ZjZn3Z j - - ' X@` j - - - - 'Zj - - j -3 X@` j jF#,2DZ/@ j MEAN STD. DEV.*j VERT. VAR.@@4j HORIZ. VAR.@@>j SAMPLE SIZE =XHVd140'Rj\j BUT FOR THE`OBSERVATIONS PLOTTED ABOVE:fjpj MEAN STD. DEV.zj VERT. VAR.hxj HORIZ. VAR.p@ j SAMPLE SIZE =`'@vJXd|TWP@r^v@hV0|rZ|^' r$IDAK'`PIDA03 ˗] * KgҔRaN JД<H(J- J^2R:12MAY74<R:>NORMdPJ PN2##AwQwJw@wHvwX|W@0v@vA#@ w A`! w A@&vAA'@0Z:vdH1 #," OBS. IN ROW ",3D," AN OUTLIER; PLOTTED AS "njX@| vAA VAs33vA@@jj-3.4 VAF33  vAF @jj3.4 vAA@Zw@ X@F  V/ X@|%vAH P'w@*Z/Z1vQ@@4X`@|>w"@&@HwD@&%RwFD"IIEF%D&@\%D[%D%D\vQFf vQ"@FpZ]n3bX@|g vAAl vQQZj Xp@~@X@|VQ,Pfff4Q*PP#v2P"Q@A2P"Q@A@Z X@P vP"@֏H P"H PQjF#,DDH Pj - X@F  V2Q@@$ V2H jF#,D2@@$*V<@@$+ZjZn3Z LVdj+ NOTE: FREQUENCIES OVER 9 INDICATED BY '*'j MEAN = @j STD.DEV. = @w&%@`w&%@@` j SKEWNESS =  j KURTOSIS = jSTUDENTIZED RANGE =  j SAMPLE SIZE =' j - - ' X@` j - - - - 'Zj - - j -3 X@` j jF#,2DZ^L/`d FREQUENCY DISTRIBUTION V X@F `V4Hj VHtj ~j *vd@ jF#,XDZ^@vJX|TW@r^v@hV0|rZ|^' r$IDAK'`IDA04 ˗] P KgҔRaN JД<H(J- J^2R:12MAY74<R:>PLTSdP/n PN A3q5NpJw@Tvd^vh vpSEQUENCE PLOT Uj,WANT TO PLOT ALL ROWS OF ACTIVE DATA MATRIX  jPLOT ALL ROWS fV@@.N j FIRST ROW fdVdvdVd?4d,jGIVE NUMBER LESS THAN  AND MORE THAN @ j LAST ROW fV*d4@jGIVE NUMBER LESS THAN @ AND MORE THAN djWANT HISTOGRAM ONLY fV@@0N vp HISTOGRAM W@2Xd|&vA#@'@0Z12Xd|3 vA@4ZH1 #," OBS. IN ROW ",3D," AN OUTLIER; PLOTTED AS "Xd|W@H vA/A VAs33vA@j j-5.2 VAj33 H vAj *j4j5.2HZRjunsvW@w v OF ' 'xWX|ywPzvPP`%P`%{|vPPД`%P`%~v jp OF STANDARDIZED VALUES jVp@@0SXd|W@wA vqq@Zj ROWXd|֯P.P jF#,3DXj -W@j DELETEDwA vqq@Wl  `* x 'Wl  x * x ' `*Z!j9 -'----'----'----'----'----'----'----'----'----'----'- j8 -5 -4 -3 -2 -1 0 1 2 3 4 5j j HISTOGRAMj j ABS. FREQ.jwq@ X@j  Vq@q@W*qwqZ X@~@֯P<P jF#,DDD `- X@j  V"q~R ` *Z$j.Z0!j9 -'----'----'----'----'----'----'----'----'----'----'-2 j8 -5 -4 -3 -2 -1 0 1 2 3 4 53jXvbX|lW@vv@ZjMEAN = @j STD. DEV. = @ jSAMPLE SIZE = Vd140'vvd vd@Xd@|v!@$" v!@ZVj! NO ACTIVE OBSERVATIONS IN ROWS d TO 'v &j BUT FOR THE  OBSERVATIONS PLOTTED ABOVE: jMEAN = V@vvXd|W@v "@Z v&@ j STD. DEV. =' r$IDAK'`IDA05 ˗]  KgҔRaN JД<H(J- J^2R:12MAY74<R:>HISTdP/n PNq5A30@ ,w@.WT1WXE6wP;v0`%P`%@TEv0Д`%P`%Tv^X|hW@rv@| vAZvA@vA@X@|V@AvAV>AvAZj MIN. OBS. = MAX. OBS. =jMEAN =@ STD. DEV. =@ j SAMPLE SIZE=jUj4* GIVE MIDPOINT OF A CENTRAL INTERVAL OF HISTOGRAM: & j * MIDPOINT: &x +j0W?1j2 j7CHOOSE A CONVENIENT NUMBER NEAR THE MEAN AND/OR ONE NOT4j6TOO FAR FROM HALFWAY BETWEEN THE MIN.OBS. AND MAX.OBS.6j:?UDDXDj2* GIVE WIDTH OF EACH CLASS INTERVAL OF HISTOGRAM: NbXj* WIDTH OF INTERVAL: bx gjlSmjn j8TRY A 'ROUND NUMBER' THAT IS A RELATIVELY SMALL FRACTIONpj*(SAY ABOUT 1/5) OF THE STANDARD DEVIATION.qjvXvפPX@| vAA"&Z H9 #," OBS. IN ROW ",3D," AN OUTLIER; PLOTTED IN EXTREME "X@| vA/A VAs33vA@@j j LEFT INTERVAL VAj33 H vAj %@*j4 jRIGHT INTERVALHZRjunsX@|wA vqq@Z j HISTOGRAMj j ABS. FREQ.jwq@ X@j  Vq@q@W*qwqZ X@~@֯P<P jF#,DDD `- X@j  V"q~R ` *Z$j.Z0!j9 -'----'----'----'----'----'----'----'----'----'----'-8j B X@@@L jF#,2X4DE $VZY/@ZW@`[ l 0`jjjMEAN =@tj STD. DEV. =@~ j SAMPLE SIZE =j j WANT CDF ALSOf@V@@@0Y' X@j vqq q@Zj j CUMULATIVE j ABS. FREQ.j X~@֯@.@v@- jF#,3D,A@ X@j  Vq,(Vq*-֯@.@# `. (# `'(Z-֯@.@72j4<7j88H +,""<ZF!j9 -'----'----'----'----'----'----'----'----'----'----'-Pj Z X@@@d jF#,4X2DE $nZx/@}W@' l 0?'@vJX|TW@r^v@hV0|rZ|^' r$IDAK'`IDA06 ˗] * KgҔRaN JД<H(J- J^2R:12MAY74<R:>FREQdP/n PNA3q55 Jw@Tv^X|hW@rv@| vAZvA@vA@X@|V@AvAZX@|V>AvAZj MIN. OBS. = MAX. OBS. =jMEAN =@ STD. DEV. =@ j SAMPLE SIZE=jUj0* GIVE MIDPOINT OF A CENTRAL INTERVAL OF TABLE: & j * MIDPOINT: &x +j0W?1j2 j7CHOOSE A CONVENIENT NUMBER NEAR THE MEAN AND/OR ONE NOT4j6TOO FAR FROM HALFWAY BETWEEN THE MIN.OBS. AND MAX.OBS.6j:?UDDXDj.* GIVE WIDTH OF EACH CLASS INTERVAL OF TABLE: NbXj* WIDTH OF INTERVAL: bx gjlWmjnjUSE YOUR COMMON SENSE, ORoj+TRY A 'ROUND NUMBER' ABOUT 1/2 THE STD.DEV.pjvXvפPX@| vAA"&ZH1 #," OBS. IN ROW ",3D," AN OUTLIER; INCLUDED IN "X@| vA/A VAs33vA@@j j FIRST CLASS. VAj33 H vAj %@*j4 j LAST CLASS.HZRjunsvnX@|wA vqq@Z v@q@ X@h v@ q@Z X@j  vqd$q& vd$&ZW@v@X OF ' ' WX wP vPP`%P`% vPPД`%P`% v@Xv jFREQUENCY DISTRIBUTION j$j CLASS P  CUMULATIVE.!jMIDPOINTP  PERCENTAGEP  PERCENTAGEBw@L X@j V VQ`w@jWPPQ~tj~jF#,DD.DE fff$Vff$ X  jF#,3D.Dq T  jF3D.D VcZj j TOTAL  X  jF3D.D j(NUMBER) X (jF#,3Dj)j?'@vJX|TW@r^v@hV0|rZ|^' r$IDAK'`IDA07 ˗] P KgҔRaN JД<H(J- J^2R:22APR744R:>ENTSN0@ <p* W@ W~  X@|` X@|@ wZZo`@ wAonӟoSjUj$IDA CAN CURRENTLY STORE A MAXIMUM OF j OBSERVATIONS ON @ VARIABLES #jIN A 'TABLE', OR MATRIX, OF  ROWS AND @ COLUMNS., j@H$ "CURRENT IDA DIM. ARE ",3D," X ",2D,j.U4000 jFILE NAME IS 264jNAME OF INPUT FILE IS 6f08D0@:j< >V@@@.NB@Bh@DV,4@RFjFIRST TWO ELEMENTS IN 0 ARE,H j@J jTRY USING 'RDIM'L'RX@|T w@@VX@|X h@ZL\Z^Z`%/@FILE '0' HAS  OBSERVATIONS ON  VARIABLES.bwdhfX@|gVXihhi WR@rj/@BUT COL.IS A CONSTANT lj/AND WILL NOT BE ENTERED IN THE IDA DATA MATRIX.nw@prw@tvvVXywvPxzyvzv@`$P`${WX|v`%A`%x @~vД`%P`%@Zv#X@| wR@ZW@vH 2X6A," IN COLUMN",2X2D'/@DATA MATRIX NOW HAS  OBSERVATIONS AND  VARIABLES. j THEY ARE: X@|VXv@`$A`$x v@Д`$P`$j@Z"/@WANT TO USE ALL  VARIABLES LISTED ABOVE f@V@@@.NEjUjHOW MANY OF THESE  VAR. DO YOU WANT TO USE j HOW MANY OF  VAR. fn V4@j%YOU MUST GIVE A NUMBER BETWEEN 1 AND  . TRY AGAIN!jUj5GIVE NUMBERS, SEPARATED BY COMMAS, OF THE IDA COLUMNS j8LISTED ABOVE THAT ARE TO BE RETAINED IN THE DATA MATRIX.jGIVE  NUMBERS OF COLUMNS: nf X@|@X@| V0 V,wvvZZV@jj!!!GIVE NUMBERS BETWEEN 1 AND !!j !!!DUPLICATE NUMBERS! TRY AGAIN.@X@| wR@wWPv@Д`%P`%v@`%A`%x  lZX@|v@  l wR@ZDvE/@ COMPUTING...J w@@LX@|NpPZR w`@Tw@VUX``X$/@4EACH COLUMN WILL AUTOMATICALLY BE NAMED VAR01,VAR02,Zj(ETC..., ACCORDING TO THE NUMBER OF THE '0 'VARIABLE\ j8IN THAT COLUMN UNLESS YOU CHOOSE TO GIVE EACH VARIABLE A^jNAME OF 1 TO 6 CHARACTERS.`/@WANT TO SUPPLY NEW NAMES bw@df@fV@@@0N' hv@jvlX|njpp H #,"VAR.",XDD,X,"= "rf@tVPzvvД`$P`$@@`x|zv`$A`$x @@`|Z}W@'~' Up/@* SAMPLE SIZE (N) = x jWj&N IS THE NUMBER OF ROWS IN DATA MATRIXV@ j N MUST BE LESS THAN OR EQUAL TO   /@* NO. OF VARIABLES (K) = *x /j4WR>j)K IS THE NUMBER OF COLUMNS IN DATA MATRIXH RV,\jK MUST BE LESS THAN f pjN,K = zfR U j.* ARE THE FIRST TWO ELEMENTS OF YOUR DATA FILE j6 VALUES FOR N AND K (SIZE OF DATA MATRIX) TO FOLLOW?   j* N,K GIVEN IN FILE?  x @ j W N j/IF THE FIRST TWO ELEMENTS OF YOUR DATA FILE ARE j2VALUES FOR THE SIZE OF THE DATA MATRIX TO BE READ, j0YOU WILL NOT BE ASKED TO SPECIFY THEM. IF YOUR &j6FILE CONSISTS OF DATA ALONE, THEN YOU WILL BE PROMPTED 0jFOR THE VALUES OF N AND K. : NV@@@0H  XV@@@0N bV@@@0Y lj(RESPONSE INVALID. ANSWER 'YES' OR 'NO'. v  ^pvz v@v@X@|v!@$" v!@Zv &vX@|W@v "@Z w@w@&@v4@&V4Q/@FOR VAR., ABS.(S.D./MEAN) < .02.j&WARNING! ROUNDING ERRORS MAY BE LARGE.W` j2FOR NUMERICAL ACCURACY YOU MAY WISH TO RECODE THE j2ORIGINAL DATA BY ADDING AN APPROPRIATE CONSTANT TOj.EACH OBSERVATION. THEN RE-ENTER. WARNING ONLY.^L WR@@RN֏#@A7RP wR@@R^@X@|B w@@DX@|F wR@H wJZLX@|NwP wR@RLTZVZX^ lVP r nvД`$P`$@ p t rv`$A`$x @ t^#("d;VAR01 VAR02 VAR03 VAR04 VAR05 VAR06 VAR07 VAR08 VAR09 VAR10#2d5VAR11 VAR12 VAR13 VAR14 VAR15 VAR16 VAR17 VAR18 VAR19' /@)TO LIST CURRENT NAMES USE COMMAND 'NAME'.' r$IDAK'`IDA08 ] o KgҔRaN JД<H(J- J^.JP0&'g72R: 4 AUG 744R:Q1=1 FOR ENRA;=2 FOR >EOBRdNH@Hip*n w`@sv6}xv7Z@zU{}{vPENRA|}vPEOBRW@jWANT EXPLANATION fV@@0N& v&'ԞUj W@"jh^vcrh W@rmvrZwj|jCOL. #HASINTEGERS IN ACTIVE ROWS. jMIN # IS jMAX # ISjR: COPY OBS #'S FROM COL.J TO COL. K9+1 OF XMATvX|W@v@ w@ w@@ZvR: ZERO ALL OTHER X MAT DATA CELLS R:>ENRA W@W@jjFURTHER USE OF 'P ' WILL ERASEjDATA NOW IN FIRSTROWS,COLUMNS.jWANT TO CONTINUE WITH PfV@@0N'  wAo w`@!W@+&w@+j0W`?5 jFILE NAME IS :D?j#NAME OF RANDOM ACCESS DATA FILE IS Df0ID0@NW@bSj'0' CANNOT BE FOUND.XjCHECK YOUR SPELLING!]?bjg V`@#(l h@@q vV@64@7{$j5CURRENTLY 'ENRA' CANNOT HANDLE DATA FILES LARGER THAN6X7'  vԞ @R:R1 IS 1ST RECORD OF DATA, R2 IS POSSIBLE 'NAMES:' REC.w'& $ V`@h@' @h@ V.NAMES:#, w] Fw('! V`@h@(z | Wz 5|  Wz @jREC. #( OF '0' SHOULD HAVE 2 NUMBERS:j(M1=M2=0 IF NO MISSING VALUES IN FILE, ORj0M1=1 AND M2= # REPLACING MISSING VALUES IN FILE.#,h@z | w'w'wz | jANY MISSING DATA IN '0' fV@@0N wz @j)NUMBER WHICH REPLACES MISSING VALUES IN '0' = g| jW`j$IDA CAN CURRENTLY STORE A MAXIMUM OFj OBSERVATIONS ON @ VARIABLES$jIN A 'TABLE', OR MATRIX, OF  ROWS AND @ COLUMNS. $jCURRENT IDA DIM. ARE  X @. L$ j WANT TO RDIM .f@8V@@@.N' BjLjVjFILE '0' HAS `W`~e jDATA MATRIX OF:j jROWS, OR OBSERVATIONS ANDCOLUMNS, OR VARIABLESt~jAX DATA MATRIX Wz j MISSING VALUES REPLACED BY| j NO MISSING VALUES@V@@@0N&& R:***** X@|` w@@ Z X@|` X@| w Z Z ^ R*** j U j* FILE SAMPLE SIZE, (N1 =  x  j W jN1 IS THE NUMBER OF ROWS IN '0' DATA MATRIX.  V氯 jN1 MUST BE A P"OSITIVE INTEGER.  j* # OF VARIABLES, (K1 =  x  j W j K1 IS THE NUMBER OF COLUMNS IN '0' DATA MATRIX.  V jK1 MUST BE A POSITIVE INTEGER.  jN1,K1 =  f V氯  V  w&@ v R:***** V`@  h@@ k,ARE THE FIRST TWO ELEMENTS OF '0'. j)THEY DON'T LOOK LIKE VALUES OF N1 AND K1!  W5 * #, *v 4v >w&@ Hv R:****?R****@jBjCHECK CW'rEU^TJJjNAMES OhT j'0' NAMES Yh^jNAMES OF ANY VARIABLES IN '0' hf@mV@@@.N SrpVALUES OF ANY VARIABLES IN '0' tf@ S^#(jNOT ENOUGH OR NO DATA IN '0'.#)j)USE IDA COMMAND 'FILE' OR PROGRAM $RECLIS#*jTO CHECK CONTENTS OF '0'.#+' #, jWRONG TYPE FILE!#-#)&"/@0'ENRA' CAN ONLY BE USED TO ENTER DATA IN THE IDA&j4DATA MATRIX FROM OBSERVATIONS AND VARIABLES SELECTED&jFROM A RANDOM ACCESS FILE.&' &r$IDA08A&r$IDA08D&r$IDAE08' jCHECK FILE CONTENTS.' j'P ' ABORTED.' r$IDAK'`"IDA08A] *9 KgҔRaN JД<H(J- J^.JP0&'g72R:10JUN74<R;SUBPROGRAM #2 OF ENRA (Q1=1) AND EOBR (Q1=2)N@<<p*D0@ V`@' wgj W`("j* ENTER HOW MANY COL(S). ? $2(j* HOW MANY COLUMNS FROM THE '0 ' DATA MATRIX*j1 DO YOU WANT TO ENTER IN THE IDA DATA MATRIX ? 2x <jFWPjYOU MAY ENTER AS MANY AS @Z"jBUT IF YOU ENTER LESS THAN@YOU WILL HAVE 1 COLUMNdjTO SAVE OBS. #'S IN.n j TRY AGAIN!xV' V4@@4 jONLY@'IDA COL(S). AVAILABLE WITH CURRENT DIM.njU!jFOR EACH OF THECOLUMNS FROM THE '0 ' DATA MATRIX j7YOU WISH TO ENTER IN THE IDA DATA MATRIX, GIVE NUMBERS,jSEPARATED BY COMMAS :"j-NUMBERS, SEPARATED BY COMMAS, FOR EACH OF THECOL(S).j SELECTED '0' COL. #'S ARE nnfjj SELECTED '0' COLUMNS ARE:"H 2X3D,2X6A, j NUMBER NAME6v@X@|JwTZ^W'hX@|rw| v@`%P`% Hj"Z v@ 0123456789X@|w Hj"Zw@W@jj'0' HASROWSw@ v@"v$j%V*&W`D0jENTER FROM ALL OF@ROWS :ND%j!WANT TO ENTER DATA FROM ALL THESE@ROWS,TONf@XV@@@0NZ W@@{\$j?YOU WILL HAVE TO USE 'RDIM' TO REDIMENSION THE IDA DATA MATRIX.]vF`$@`^ vGF!@``VGFdajTO@ROWS.bldVFFge#jBUT CAN'T HAVE MORE THAN COL(S). WITH@ROWS.flgj CAN'T HAVE COL(S). WITH@ROWS.lqV@@@.N' vzR; SET Q1=2 AND COPY BLOCK OF OBS.#'S IN COL.K9+1 OF X MAT{o`~  @vX|v@ w@Zv oRg@w@&R*******j IDA DIM. ARE  X @. WANT TO RDIM f@V@@@0N' ^R**********j%j!WANT TO SELECT SUBSAMPLE FROM ALL@ROWS,TOf@V@@@0N44j9W`H>j%FOR BLOCK OF ROWS YOU WISH TO SAMPLE,Cj+GIVE TWO NUMBERS, SEPARATED BY A COMMA FOR:HjFIRST ROW, LAST ROW = MfR V6' WV4k\jROW #'S ARE INTEGERS.a j TRY AGAIN!fHkV@zpjFIRST ROW IS LARGER THAN LAST.uazV@4@4@4@j'0 ' HAS ONLYROWS.a w@"@&R****j nҟZ@@ oR@o@@vX|v@ w@ZjSAMPLE NOW HAS@ROWS.& GR*** HVP f RvД`$P`$ \ z fwP pv`%P`% z^ R*** X@} h@@ Z^R**** w!P wP$@$h@'@. R:NAME FOR Z IS NAME X IN STRING Y AFTER 'NAMES:' IN REC.R28^R****wg@X@|V-gwgZWg@jONLYVARIABLES IN '0'. X@|@X@| V0ZZjDUPLICATE NUMBERS. TRY AGAIN."R****vVAR000WHw2Wc wPvPP@@@wP%2 wdv@@@@@vDd% wDPvPP@@@wDP%2v``@@@<^&"/@0'ENRA' CAN ONLY BE USED TO ENTER DATA IN THE IDA&j4DATA MATRIX FROM OBSERVATIONS AND VARIABLES SELECTED&jFROM A RANDOM ACCESS FILE.&' &r$IDA08B' jCHECK FILE CONTENTS.' j'P ' ABORTED.' r$IDAK'`IDA08B] Pv KgҔRaN JД<H(J- J^.JP0&'g72R:10JUN744R:SUBPROGRAM #3 OF ENRA (Q1=1) AND EOBR (Q1=2)N<@ 1p*"`W@ w@@ j'j-* WANT TO TAKE A PURPOSIVE SUBSAMPLE OF THESE@ROWS ? x @jW j NEED HELP f@V@@@0N"jYOU MAY SELECT THOSE ROWS IN'0' IN WHICH A DESIGNATEDj.VARIABLE HAS VALUES WITHIN A DESIGNATED RANGE.V@@@0NXV@@@0Y,V@@@0?j*INVALID RESPONSE. ANSWER 'Y', 'N', OR '?'.,j.W`60j# OF SELECTION COL. 2@6j# OF '0*' COL. TO BE USED FOR PURPOSIVE SELECTION @gdBWdDWdd5d@5d@KFj COLUMNS IN '0'.H j TRY AGAIN!J6KjLW`TNjL,U = PhT%/@6GIVE LOWEST, THEN HIGHEST, VALUE, SEPARATED BY COMMAS,^ j8ACCEPTABLE IN SUBSAMPLE FOR COL. CHOSEN IN OPTION ABOVE.hfTj j SELECTING...v X@}@w$& $@@h@$X@}dh@$ZV$,6$+Tv@w@@Zw@  jVj-NO ROWS IN RANGE OF VALUES GIVEN. TRY AGAIN!&TXjb!j#WANT TO TAKE A RANDOM SAMPLE OF THE@ROWS lf@vV@@@0N/@WHAT SIZE RANDOM SAMPLE g@ W@ -@jMUST GIVE NUMBER LESS THAN@ j TRY AGAIN! W@ @7jMUST GIVE NUMBER LESS THAN7@ wp[@&"`j SUBSAMPLE HAS@ ROWS. W@ @/@ IDA DIM. ARE  X @v487 W@@4$j#FINAL SUBSAMPLE CANNOT BE MORE THAN7ROWS WITH THIS OPTION.$/@ IDA DIM. ARE  X @. WANT TO PROCEED f@V@@@.N Wz /@!WANT TO PRUNE OUT MISSING VALUES f@V@@@0Nw@wn1 j ENTERING...R:V2 IS LARGEST VAR.# IN SELECTED LIST oRg@W@(R: IF OBS.#'S IN COL.K9+1 OF X MATv X@}@v@ w$& $@@!w@@"G$Z&'R:IF OBS. #'S IN COL.1 OF 2 COL. X MAT( X@}@*v@@,Z.o`~  @0v2 X@}@3v@4w$& $@@5w@@6G8Z:ER****F!R: READING SELECTED VAR. VALUS OF SELECTED OBS.(S) INTO MAT XGh@$Pnh@StX@|~wW@WR@1|  wR@!4Z w@@v@^R ****vjj(jSUBSAMPLE NOW HAS COL(S). OF ROWS FROM '0 ' DATA MATRIXwX@| V1 j#jBUT '0' COL.# IS A CONSTANT FOR THIS SUBSAMPLEj/AND WILL NOT BE ENTERED IN THE IDA DATA MATRIX.w@R w@wW0R w% H*w/ 4X@|9 w> wCZRZ\v#fWhX@|jv@ lwn pZv V0@ jX@|w@@Z X@|` w@ZjOBS. #'S SAVED IN COL.#@w@wv@OBS#'S v@j  nҟL L  & oRL L  0 j DATA NOW IN 5!jROWS OF FOLLOWINGCOLUMNS OF THE IDA DATA MATRIX: 7 8j :& GR**** HWP f Rv@Д`%P`% \ z fwP pv@`%P`% z^ R:**** WP vД`%P`%@  wP v`%P`%@ ^R****v@vjj IDA@ '0'jCOLUMN NAME COLUMN (VAR.)X|w jF#,3X2Dw H D jF#,2X6A@ EW I FjF3X3D HZ I^!3R****!4 V1@!R!>֏#@A7!R!Hv1@!R^!TR****"_R****"`D0@" V`@' "^&r$IDA08C&w@`@&r$IDA912' jCHECK YOUR FILE CONTENTS.' j'P ' ABORTED.' r$IDAK'`(IDA08C]  KgҔRaN JД<H(J- J^.JP0&'g72R:9JUN744R:GETTING RANDOM SUBCAMPLE OF Q(16) OF Q(8) FOR >ENRA<Oq1@ FnPn3Zos_ v@@w@@@v@v@8v@B X@}@Vv@`vb w@jZphvr X@}@ v@v@@Z o@ X@}@ w@@Z&pv@qv֞@svuV>zv{ v @|wD}WAD~vvDwDvW?DvvDwDWADvvDwDvvFvƢ@W+DwFv@W-DV@ V"@"wqv1vv֠@wqv1vv֠@v֢@Vְvqv1 V"XzV@uv@v@V0 wD@WADv v@v@WDA v@D^&wp& r$IDA08B' r$IDAK'`(IDA08D] * KgҔRaN JД<H(J- J^.JP0&'g72R:12JUN74<R: CHECKING CONTENTS OF C$, A RANDOM ACCESS FILE WITH:>#R DATA MATRIX OF N1 ROWS AND K1 COLUMNS BEGINNING IN REC. # R1@R NAMES, IF ANY, BEGINNING IN REC. # R2BR EACH OBS. TAKING M RECORDS:C%R OBS. 1 STARTING AT BEGGINNING OF R1, OBS.2 STARTING R1+M, ETC.ER: MISSING VALUES REPLACED BY P(62) IF P(61) = 1N@<<Np*D0@ V`@' o& R**** h@@ X@} h@@ Z^R****onr/@NUMBER OF VAR(S). TO BE LISTED wf|VT j)MUST GIVE NUMBER LESS THAN 21. TRY AGAIN.rnj"jGIVE NUMBERS OF '0' VAR(S)., SEPARATED BY COMMAS,j"IN THE ORDER YOU WANT THEM LISTED.nfW'j j THEY ARE: j '0' j NUMBER NAMEj X/@ WANT VALUESf@V@@@.N ?jW`jFIRST ROW, LAST ROW = j0GIVE LOWEST AND HIGHEST NUMBERS OF ROWS YOU WANTjLISTED, SEPARATED BY COMMAS:fTjjROWjNUMBER VALUES OF '0 ' COLUMNSjX}T w$& $@h@$nh@jX@|w Wz    V1|   j   j M  Z j !Z & Wz  0 +j VALUES OF| REPLACED BY 'M' IN LISTING. 0/@MORE ROWS OF THE SAMECOLUMNS 5f@ :V@@@0Y ?/@LIST OF DIFFERENT COLUMNS Df@ IV@@@0N S Nr S^ TR: **** XX@| ]w b w!P g wP$@ lh@' q vv@`%P`% {j  H 2X3D,2X6A Z ^&"/@0'ENRA' CAN ONLY BE USED TO ENTER DATA IN THE IDA&j4DATA MATRIX FROM OBSERVATIONS AND VARIABLES SELECTED&jFROM A RANDOM ACCESS FILE.&' &r$IDA08A' jCHECK FILE CONTENTS.' j'P ' ABORTED.' r$IDAK'`IDA09 ח] P KgҔRaN JД<H(J- J^. J02R:12JUN74<R:C$ IS FILE BEING CREATED OR MODIFIED WITH >CRFI>&R:$IDA09A,$IDA09B CHAIN BACK TO L. 600..$IDA09C CHAINS BACK TO Q(7)=440dN@H Pi vמnW@sjWANT EXPLANATION xf@}V@@@.N&p*W@j.WANT TO CREATE OR MODIFY A RANDOM ACCESS FILE f@V@@@0N'v6@ j FILE NAME = f0#( V`@w@@`@ h@@h@VFw@w@@R:FILL IN IF-THENS AND GOTO TYP(-1)'S'  w@@w@@!@ " h@@'h@@@ w`@!E h@`Jh@@Ow@@!`T V`@hY h@@^h@chvמmR:WILL ASK IF ANY MISSING VALUES IN 390rR:CHAIN TO $IDA22A FOR INITIALIZINGw@ wpn&D0@W@Xj* >> x jW` j NEED HELP f@V@@@0NX jUSE SUBCOMMAND:&j(SUBC TO GET LIST OF 'CRFI' SUBCOMMANDS.0jQUIT TO QUIT USING 'CRFI'.:XD%dPOBS@MODO@STAT`SUBC@QUIT@N%dREDE@PNAM`MODN@PTEXPMODT`X/@* >> Zx \j^W`_`W @@0?bld X@PfiPh W @@1PjZljINVALID SUBCOMMAND.vwD0@U&&&&'&&&&&jSORRY, NOT IMPLEMENTED YET.X#(D0@#2W@#F#< j0 CANNOT BE FOUND.#A'#FW#Z#P jCANNOT WRITE ON 0#U'#Z^&r$IDA09C&r$IDA09B&r$IDA09A& w`H&r$IDAE08' &jDWRONG TYPE FILE! GET EXPLANATION BY RE-EXECUTING 'CRFI' AT LEVEL 1.' #j;YOU MAY USE THE IDA COMMAND 'FILE' TO LIST THE CONTENTS OF 0' r$IDAK'`IDA09Aח] w KgҔRaN JД<H(J- J^. J02R:13JUN744#R:Q1=1 FOR >>POBSERVATION;=2 FOR >>MODOBSERVATION;=3 FOR >>STATUS<R:C$ IS FILE BEING CREATED OR MODIIFIEDPp*ZD0@dN@H Pn N xU  R:>>POBS AND >>MODOnjj* UjOBSERVATION # ?  j OBS.# ? x jWj THERE ARE!OBSERVATIONS. INPUT INTEGER 1 TOW@ j7OR, '0' IF YOU DON'T WANT TO PRINT ANOTHER OBSERVATION.W'j W5@5@"j0 HAS BEEN DEFINED AS HAVINGOBSERVATIONS, OR INTERVIEWS.h@!@ @=$$h@@)V@@@.E' .jOBS. #HAS NOT BEEN FILLED IN YET.3W@8=nh@BW@D H #,3D,"-",3D7XF v4 PH wD 4PJv5LjVALUES FOR OBS. #NjPX@}DRw@d $@T wP84"5VwX j VARIABLE #'S:ZX@}\ jD8H^wP`Zbjdjf X@PhX@}j wP$@lW*xnVְtpV.tr jMISSINGsvtjvZxw@zj|Zv55PjZjjW`#j!WHEN YOU ARE DONE MODIFYING OBS.#, GIVE '0' IN ANSWER TOjTHE FOLLOWING PROMPT:jj * U jVARIABLE # ?  j VAR. # ? x djW j TRY AGAIN!j'0' HAS BEEN DEFINED FOR OBSERVATIONS.Wd4Wdd5d@5d@j * NEW VALUE ?  x djjWjTHE OLD VALUE OF VAR#dIN OBS.#ISdVְjMISSING VALUES IN '0' ARE REPLACED BYVְ* H 3D," TO ",3DjFOR ALL MISSING VALUES, INPUT *j-jINPUT VALUES FOR VARIABLE #'S :2w4v@7 wP8#<nAjF j@!KnfPX@}Uw Zv_ZdW04nwPpv@x7VְV. jMISSINGj^3 R:PRINTING ON FILE4h@!@>jMODIFYING OBS.#...C w/Hnj@M w/@Rj\j$TO PROOFREAD VALUES, EXECUTE 'POBS'.f' W@ R:DOESN'T HANDLE P(1)=0 YET ' j'0' HAS BEEN DEFINED FOR: jN1 = OBSERVATIONS, OR INTERVIEWS jK1 = VARIABLES PER OBSERVATION jOBSERVATION #'S v X@| h@!@  @ N  h@@ & V@0EMPTY 0 (' 0j :v@ NZ XV b Zj \jARE NOT FILLED IN YET. ^ l b jARE ALL FILLED IN. l W@ v nR:NO PROVISION FOR P(4)=0 YET p' vVְ xj$MISSING VALUES ARE REPLACED BY M2 = zj |' jTHERE ARE NO MISSING VALUES. '' r$IDA09N' r$IDA09K'`IDA09Bח] * KgҔRaN JД<H(J- J^. J02R:26MAY74<R:C$ IS FILE BEING MODIFIED>#R:Q1=1 FOR >>SUBC;=2 FOR>>REDEFINE;=3 FOR >>PNAME;=4 FOR >>MODNAME@R:Q1=5 FOR >>PTEXT;=6 FOR >>MODTEXTPp*ZD0@d*NF H@HPF`FpFFFF0 l)v H U p R:>>SUBCOMMANDwW`jWANT EXPLANATIONS, TOO f@V@@@0Nw@!d:POBS PRINT OUT VALUES OF SPECIFIED OBSERVATION(S) IN FILE"d;MODO MODIFY VALUE(S) OF VARIABLES IN 1 OBSERVATION IN FILEd2PNAM PRINT OUT CURRENT NAMES OF VARIABLES IN FILEd$MODN MODIFY CURRENT NAME(S) IN FILEd,PTEX PRINT OUT CURRENT TEXT DESCRIBING FILEd!MODT MODIFY CURRENT TEXT IN FILEd'STAT PRINT OUT CURRENT STATUS OF FILE.dSUBC LIST SUBCOMMANDSdQUIT QUIT USING 'CRFI'%dBREDE REDEFINE NUMBER OF OBSERVATIONS, VARIABLES, OR MISSING VALUElj'CRFI' SUBCOMMANDS:j X@Ph@W&j@X&jF#,4A3X@@@XZbjgW`'l#j>FURTHER EXPLANATION AVAILABLE BY RE-EXECUTING 'CRFI' AT PROMPTvjLEVEL 1.'R:>>REDEFINEj$SORRY, REDEFINE NOT YET IMPLEMENTED.'R:>>PNAME W@ H "VARIABLES",4D,"-",4D h@@h@@j j@ FOR '0'jw w!Pv@ X@}h@@ w8H j"vP* X@P,jF#,6AX@`$P`$.Z0j2j4Z>' R:>>MODNAME W@ j0 HAS NO NAME RECORDS IN IT. R:LATER WILL ALLOW PERSON TO ADD NAMES IF THERE IS ROOM ' jNUMBER OF VARIABLE g W' W@ jONLY VARIABLES IN 0 . TRY AGAIN!   h@$ WF  h@  j NAME OF VAR.#IS @`%P`% &jWANT NEW NAME FOR VAR.# 0g0 :W0@@0Y l DjWANT ANOTHER VARIABLE Ng0 XW0@@0Y b' lj vw0 jNEW NAME FOR VAR.# g0@` w/ v@`%P`%0 h@$ WF h@  > h@$ WF j@NAMES: j@ P`p jVARIABLE IS RENAMED.  w/@ j U    j$ WANT TO LIST OR NAME MORE VARIABLES   j MORE VAR(S).  g0 *W0@@0N' 4 > h@ P`p H U R f z Rv@ \ fv @ p zv@  v@  vP@  v`@  vp@ ^ X@} h@@ Z^ w!Pw$@$W@L.w$$@8wpB`LwVWX`wPPjWtwP~R:NAME FOR VAR#Z IS NAME X IN STRING Y OF RECORD R OF C$^R:>>PTEXT W`j0 HAS NO DESCRIPTIVE TEXT.R:LATER WILL ALLOW PERSON TO ADD IT IF THERE IS ROOM' h@`@j@ X@ph@@j@Z'oR:>>MODTEXTp W`z h@`@ h@ P`pj@`TEXT j LINE 1 IS:jv@d j LINE 2 IS:j v@ d j LINE 3 IS:jv@d j LINE 4 IS:jv@d j LINE 5 IS:jPv@Pd j LINE 6 IS:j`v@`d j LINE 7 IS:jpv@pd8'djWANT TO CHANGE LINE ng0xW0@@0N jGIVE NEW LINE:f@ @Gj,NEW LINE TOO LONG--CAN'T BE > 70 CHARACTERS.j@@^W'&r$IDA09.' r$IDA09N' r$IDA09K'`.IDA09Cח] Pb KgҔRaN JД<H(J- J^. J02R:14JUN74<R:C$ IS FILE BEING MODIFIED OR INITIALIZED>$R:C1 INDICATES FILE TYPE. NOW, C1=1, FOR RANDOM ACCESS, ONLY OPTIONF&R:C2=MAX # OBS. ALLOWED, C3=MAX # VAR. ALLOWED, C4=MAX # RECORDS ALLOWEDPp*ZD0@d*NF H@HPF`FpFFF0 fv7}hv8@jv9}l)v H UXXR:INITIALIZING C$ AS RANDOM ACCESS FILEbj%HOW MANY OBSERVATIONS, OR INTERVIEWS lfvV@7jLIMIT IS7 OBSERVATIONS.'@ HOW MANY VARIABLES fV@8jLIMIT IS8 VARIABLES.'R:COMPUTE # OF RECORDS NEEDEDw)` 栯 FW)@9#jYOU NEED) RECORDS FOROBSERVATIONS ANDVARIABLES, BUTjLIMIT IS9RECORDS.'R:SEE IF C$ HAS AT LEAST R4 RECORDS V`@ h@)*jYOU NEED) RECORDS. 0 HAS LESS. '*H ANY MISSING DATA 4f@>V@0NzHv֞@Rj+GIVE AN INTEGER (+ OR -) DIFFERENT FROM ANY\j1OF YOU DATA VALUES TO REPRESENT MISSING VALUES : ffpzvמjINITIALIZING '0'... w/ j@@ w@@w@@!@ w@VFw@ w`@!w@`@ X@|@ j@EMPTYZ@#(j w/@j'0!' IS INITIALIZED AND READY TO GO.W`jjYOU MAY FILL IN N1 =OBSERVATIONS ON EACH OFjK1 =VARIABLES AT YOUR CONVENIENCE, jTHE PROMPT * >>!j:WILL INDICATE THAT 'CRFI'--A DAUGHTER OF 'IDA' AWAITS YOURjSUBCOMMAND. YOU MIGHT TRY:j j3SUBC OR 'SUBCOMMAND', TO GET A LIST OF SUBCOMMANDS<j+PNAM OR 'PNAME', TO PRINTOUT CURRENT NAMES j7PTEX OR 'PTEXT', TO PRINTOUT CURRENT DESCRIPTIVE TEXT.jQUIT TO QUIT USING 'CRFI'.jwp&@w$@J j@$NAMES:Tw^ v 0123456789hw@rVF|w@X@} X@p v@ @x  X@Pw@W@vP  vvPVAR000 wdW@ : wPW@  w  l vPPP@@ &wP% 0 l :vP@@@@ DvDd% N wDP XvPPP@@ bwD#P lvP``@@ vv@`$P`$P Z j@@ Z w$$@ h@$ Z ^#(j@`TEXT#2v/' ' HAS VALUES FOR N1 AND K1 IN RECORD #1.#< v@p0#F&vBIN RECORDS 2 TO N1+1, THE K1 DATA VALUES FOR OBSERVATIONS 1 TO N1.#Pj@#Z'vCIN REC.# N1+2, 'NAMES:', FOLLOWED BY STRINGS OF THE #\%vP@IN RECORD N1+3, 'TEXT', FOLLOWED BY 7 LINES OF DESCRIPTIVE TEXT.#^vp/IN RECORD N1+4, THE VALUES OF M1 AND M2, WHERE:#`&v@BNO MISSING VALUES OR M1=1 AND M2=THE VALUE REPLACING MISSING ONES.#aV֮#d#bv@*M1=M2=0 SINCE THERE ARE NO MISSING VALUES.#c#i#dv@0M1=1 AND M2=THE NUMBER REPLACING MISSING VALUES.#iVF##nvj C K1 NAMES.# v` @P###vj C FIRST 70 NAMES# vPpp4# vppp5# v`5IN RECORD N1+3, THE NAMES OF THE REMAINING VARIABLES.# j@`Pp@#w$@# j@$#^&r$IDA09' j WRONG FILE' r$IDAK' r$IDA09K'`<IDA10 ˗] Z KgҔRaN JД<H(J- J^2R:29MAY744!R:>ENRA, ENTERING SELECTED VARIABLES FROM A RANDOM ACCESS FILE6 R:CREATED WITH >CRFI8 R:9JUN74 KEPT AS BACKUP FOR NEW 'ENRA' NOW IN IDA08A-IDA08DdN 0@<PvPENRAp* W@W@jjFURTHER USE OF 'P ' WILL ERASEjDATA NOW IN FIRSTROWS,COLUMNS.jWANT TO CONTINUE WITH PfV@@0N' #R:ZERO DATA MATRIX,ETC., BUT LET SCRATCH COL.VALUES AND ALL P MATR:VALUES EXECPT P(65), THE CRSP MONTH INDICATOR, REMAIN W~  X@|` X@|@ wZZo`@ wAonӟjU jFILE IS jNAME OF INPUT FILE IS f0D0@W@ j0 CANNOT BE FOUND.jCHECK YOUR SPELLING!j V`@@ h@@nj'0' HASOBSERVATIONS AND VARIABLES.V@jBUT CURRENT IDA DIMENSIONS AREX@' vj(HOW MANY VARIABLES DO YOU WANT TO ENTER fV4@4@@ j TRY AGAIN! j WHICH ONES nnfvX@| w@@ h@@nh@X@| w&Z0Z:X@|DwNXh@$bWFlh@@ v@`%P`%VPvД`$P`$ wPv`%P`% Z*w@R& X@} h@@ Z^ w!Pw$@$W@L.w$$@8wpB`LwVWX`wPPjWtwP~R:NAME FOR VAR#Z IS NAME X IN STRING Y OF RELCORD R OF C$^@jNOT ENOUGH OR NO DATA IN 0Aj%USE COMMAND 'FILE' TO CHECK CONTENTS.B' #(jSORRY, CANT'T TAKE MORE THAN OBSERVATIONS.#*'&R:GOTO IDA912 FOR UPDATING MEANS AND STD.DEVS.&w@`@&v&v@&r$IDA912' jP NOT EXECUTED.' r$IDAK'`LIDA11 ˗] *- KgҔRaN JД<H(J- J^2R:12MAY744R:>MSOR<Nq1=N 0  bndnfoshn3lv@vX@|v@vZ pv@v@vv@@'@X|JvOX@|Tv@^ vhZrv|X@|v@ wZZ^pv@qv֞@svuV>zv{ v @|wD}WAD~vvDwDvW?DvvDwDWADvvDwDvvFvƢ@W+DwFv@W-DV@ V"@"wqv1vv֠@wqv1vv֠@v֢@Vְvqv1 V"XzV@uv@v@V0 wD@WADv v@v@WD- v@D^' r$IDAK'`IDA12 ˗] Pk KgҔRaN JД<H(J- J^2R:28APR744R:MODIFIED FROM A PROGRAM WRITTEN BY J.A.YOST IN AUG.1973<R:>CRSP, FOR PLACING CRSP- DATA INTO IDA DATA MATRIX>R: Q(8)=1,2,OR 3 FOR LOAD FROM SCRATCH, ADD DATA OR CHECK@R: Q(9)= # OF MONTHS OF DATA IN CRSP FILESBR: Q(10) = # OF $CRSPH RECORDSDR: Q(11)= # OF FIRMS IN CRSP FILESFR: Q(12)= LAST YEAR OF CRSP DATAHR: Q(13)= 1,2,OR 3 IF $CRSPR, $CRSPS, OR $CRSPP IS USEDJR: Q(14)= 1 OR 2 FOR RETURNS OR PRICESLR: Q(15) =1 IF FIRM HAS MISSING PRICES, I.E., M>0NR: P(65) = 0 IF NO CRSP DATA LOADEDP"R: = 1 TO Q(9) TO INDICATE THE STARTING CRSP INDEX MONTHRR: OF LOADED DATAT!R: P(1) = P(65) FOR TEMPORARY CHAINING UNTIL DATA IS LOADEDV R: $IDA12A MUST BE REVISED WHEN Q(9) > 600 SINCE DIM L(600)dp*nPߗ`@`xQ@`x` N(0 wHF wPG wXGw`H w@jUjWANT EXPLANATION fV@@0N&U66j(* WANT TO CHECK DATES FOR CRSP- DATA ? ,@6 j * CHECK ? @x BjDWJFJV@@0NKV@@0YTLV@@0?MV@@0HELPNj!INVALID RESPONSE. PLEASE RESPOND:Oj'YES NO OR ?, IF YOU WANT AN EXPLANATIONPT w@`V wh`^!R:IDA12A CHAINS TO L. Q(7)=500 AFTER OPTION Q(8)=3 [CHECKING]j D$CRSPH@fVf@:j%THE CRSP HEADER FILE CANNOT BE FOUND.&jIDA CANNOT LOAD CRSP DATA0': W@`&?v0$CRSPRD wh@F wp@GUIIKIj* WANT TO LOAD FROM JNK j * LOAD FROM NXXv0$CRSPSZ wh@\ wp@^X`v0$CRSPPb wp@d wh`fXhV@@0N' W@j IDA DATA MATRIX NOW HAS:  ROWS  COLUMN(S)W@jBUT THE FIRST@!j:ARE UNDEFINED BECAUSE OF PREVIOUS USE OF 'DIFF' OR 'LAGG'. WAjYOU HAVE ENTERED 'CRSP' DATAj"AAA vTA @ j$TTUj' WANT TO ERASE ALL DATA AND START OVER  j ERASE fV@@.N WA w@Aj YOU MAY LOAD MONTHS OF 0 DATA.w@4 w@@ w`` wpd V,@"j#DATA MATRIX FULL WANT TO CONTINUE f0V0@@0N'R:IDA912 CHAINS TO L.Q(7)=800 FOR OPTION Q(8)=2 j"U$**$j* COLUMN NUMBER OF DATA MATRIX&jTO PLACE NEW VARIABLE :(,*j* COL.# FOR NEW VAR. ?,x .j0W4,@62&jNUMBER SHOULD BE@8@OR LESS. PLEASE RE-ENTER.4*6 W@R> X@|@@V1aHBZDR:J NOT IN SAME COL. AS REGRESS. VAR.FRHj#WARNING! IF YOU PLACE DATA IN COL.Jj-CURRENT REGRESSION RESULTS WILL BE WIPED OUT.KjWANT TO DECLARE NEW COL.# Lf0NV0@@.N*OjWANT TO CONTINUE Pf0QV0@@0N' RvTV' V V*@2X& W~  X@|` X@|@ wZZo`@ wP  X@pwZnӟwA@vUj5GIVE NUMBERS FOR MONTH AND YEAR, SEPARATED BY COMMAS.jE.G., 12,1926 FOR DEC.1926j STARTING MONTH, YEAR g67W66577#j3MONTH AND *YEAR MUST BE INTEGERS 1 TO 12 AND 1926 TO` j TRY AGAIN! W6s3356`W7x^f57A` w47x``!6 W4?p j8NO RETURNS AVAILABLE UNTIL 2/1926 OR PRICES UNTIL 1/1926 j GIVE NEW:^j ENDING MONTH, YEAR fVW vTWx`` V VT+HVT+4j#GIVE AN ENDING DATE LATER THAN THE j"674 jNO DATA AFTER j'HH j GIVE NEW:R: CHECK IF ALL DATA CAN BE LOADED WITH PRESENT DIM.vT#4@V@%j IDA WILL NOW TAKE ONLY  OBSERVATIONS IN @ COLUMNS.jYOU HAVE ASKED FOR . WANT TO 'RDIM' fV@@.N' j CHOOSE A SHORTER SUBPERIOD.j YOUR SUBPERIOD HAS  MONTHS.v@w@4L w@@V&"H4 " STARTING ",2D,"/",4D," [CRSP INDEX MONTH",X3D,"]"$H " ENDING ",2D,"/",4D'H 2D,"/",4DXUbblbT 0 FILE INTO IDA DATA MATRIX ? dl h0 ? x jW j WANT TO LOAD bV@@0NV@@0?V@@0Y j7INVALID RESPONSE. PLEASE RESPOND Y FOR YES OR N FOR NOD0@fVf@h!jTHE 01 FILE CANNOT BE FOUND. IDA CANNOT LOAD THE DATA.^j!j9CRSPR DATA ARE MONTHLY RETURNS WITH DIVIDENDS REINVESTED.#j=CRSPS DATA ARE MONTHLY RETURNS WITHOUT DIVIDEND REINVESTMENT.jCRSPP DATA ARE MONTHLY PRICES!jOFX,COMMON STOCKS AND THE NYSE ARITHMETIC INDEX.j^&r$IDA12A&r$IDAE12' j'CRSP' NOT EXECUTED' r$IDAK'`*IDA12A˗] "K KgҔRaN JД<H(J- J^2R:9FEB74<R:>CRSPNA X(0 p*,* D$CRSPH@fPߗ`@`Q@`x` Uh,, D$CRSPP@f^ W@`Xh D$CRSPS@f D$CRSPR@fjw4@ vT@ @ vv0ENTER wd!p@W4?jH #,"NO DATA FOR STOCK "jUNTIL j H X2D,"/",4D jDATA NOT ENTERED.V>TjjAFTER j wxV԰ wx@h@$ nT"d@nh@ X@|%w4"d *V԰h/ Uh>>44 V^9H> V.P^H WxbRj+MISSING DATA FOR STOCK IN SUBPERIOD CHOSEN.Tj WANT TO PROCEED TO LOAD  Vf0XV0@@0NZ wx\ ^ Wxh`jb!jENTERED IN ROW,COL.TO INDICATE MISSING VALUE.h wjZk w`lj COL. CONTAINS m wA@z W@@ V@0v@Uj WANT TO LOAD ANOTHER SECURITY j ANOTHER SECURITY fV@@.N W@@'v@v& j END OF $CRSPHU<j INVALID HEADER NUMBERS.Fj&1ST HEADER NUMBER MUST BE INTEGER 1 TOPPj 2ND HEADER NUMBER MUST BE 1 OR 2U j TRY AGAIN!ZUj-GIVE THE HEADER NUMBERS, SEPARATED BY COMMAS,jOF THE SECURITY YOU WISH TO 0  j HEADER NOS.f V@6@<V6@6+P<"H " STARTS ",2D,"/",4D$H " ENDS j",2D,"/",4D V`@h@X@| h@Ddnh@C h@h@$Z jYOU HAVE PICKED ^Xjlv0CHECKv j PRICE DATA: j"dd j$ j RETURNS DATA:j"d@d@V԰j%MONTHS OF MISSING PRICES. WANT LIST f0V0@@0N n"d@h@$nh@v X@|"d@ Vw d@ jv@V``j H #,2D,"/",4D3XZ jNO MISSING DATAj j MORE CHECKS f V@@.NX w@& r$IDA12}& w``& wpd&r$IDA912' r$IDAK'`jIDA13 ˗] * KgҔRaN JД<H(J- J^2R:30AUG73 N@   v6Uj WANT LIST OF SUBCOMMAND NAMES f V @@0N^j COMMAND PROCEDUREj******* *********j SYST SYSTEMATIC SAMPLINGj+ RAN1 SIMPLE RANDOM SAMPLING BY SORTING!j: RAN2 SIMPLE RANDOM SAMPLING BY DRAWING RANDOM NUMBERS"j$ SRAN STRATIFIED RANDOM SAMPLING@j NONE NONE OF THE ABOVEJ"TU^^^j& *WHICH PROCEDURE DO YOU WANT TO USE? hx @rj|Wv66@j *WHICH PROCEDURE ?x @jWV6@^V@@@0SYSTV@@@0RAN1 V@@@0RAN2 V@@@0SRANV@@@0NONE'&R0R:RD jINVALID COMMANDNTR: SYSTEMATIC SAMPLING IMPLEMENTATION "` r$IDA13A "` r$IDA13BR:SRAN IMPLEMENTATION --OLD HVR13Uj *POPULATION SIZE ?j% *SIZE OF POPULATION TO BE SAMPLED ?x jW j NEED HELP f V @@0Nj( YOU WILL GET A LIST OF SUBCOMMAND NAMESj1FOR WHICH YOU MAY REQUEST FURTHER EXPLANATIONS.  V䰯4@jTRY AGAIN! GIVE AN INTEGER >1.j DESIRED MINIMUM SAMPLE SIZE fV@ V氯4,j$TRY AGAIN! GIVE AN INTEGER >0 AND < L&&j THE SAMPLING INTERVAL IS  SO  OBSERVATIONS WILL BE DRAWN"jFROM THE FIRST  TIMES  ELEMENTS OF THE POPULATION.v"$VTJ!j!AN INCOMPLETE INTERVAL OF LENGTH  IS LEFT AT THE END.Tj) THE FOLLOWING ARE THE SAMPLE ELEMENTS: VV@@@0SYST0^X@|hMr M%@| M@$!kZV w@ M%w$!kv@ f V @@0N'0w5 w%@:k?X@|Dw IkNZSw XW*`Zk[v@]_g`gf lV @@0N'vjTHE LAST ITEM,,COMES FROM THE INCOMPLETEjINTERVAL AT THE END.j ACTUAL SAMPLE SIZE IS j WANT ANOTHER SAMPLE ^"` j WARNING!!!"eW@""j$"jWANT TO CONTINUE "f "V @@0N'"^"j! WANT MORE DETAILED EXPLANATIONS "f "V @@0NT"j) WHICH SUBCOMMAND DO YOU WANT EXPLAINED "f@"V@@@0SYST$T"V@@@0RAN1""V@@@0RAN2#"V@@@0SRAN#"j0INVALID RESPONSE! USE SYST, RAN1, RAN2 OR SRAN."""#("j MORE EXPLANATIONS #"#v@@@RAN1# #(##r$IDA13A#(j# SIMPLE RANDOM SAMPLING BY SORTING #*"j< THIS PROCEDURE CAN BE USED TO SORT A POPULATION OF SIZE#, j7N INTO A RANDOM SEQUENCE. THIS IS OFTEN USEFUL FOR THE#.!j:FORMATION OF RANDOM SUBGROUPS IN AN EXPERIMENT. IT CAN BE#0#j>USED ALSO FOR SEQUENTIAL SAMPLING OF SMALL FINITE POPULATIONS.#2"j; THE INDIVIDUALS IN YOUR POPULATION MUST HAVE BEEN NUM-#4j3BERED CONSECUTIVELY FROM 1 TO N FOR IDENTIFICATION.#6 j7 WHEN YOU RUN THE PROGRAM YOU ARE ASKED THE SIZE OF#8!j:THE POPULATION. YOU ARE THEN GIVEN THE OPTION OF A PRINT-#: j7OUT OF THE ORIGINAL ORDERING OF THE POPULATION WITH THE#<!j:RANDOM NUMBERS ASSIGNED TO EACH ELEMENT THEREOF. FINALLY,#> j8YOU ARE GIVEN THE PRINTOUT OF THE RANDOM ORDERING OF THE#@!j9POPULATION AND THE RANDOM NUMBER OF EACH INDIVIDUAL. FOR#B j7SPEED OF PRINTOUT, YOU CAN ELECT TO SUPPRESS THE RANDOM#D!j9NUMBER, SINCE ONLY THE ORDERING IS NEEDED FOR STATISTICAL#F j PURPOSES.#H!j:~ YOU CAN USE THIS PROGRAM FOR SORTS OF UP TO ABOUT 800#J j8ITEMS WITHOUT EXCESSIVE COMPUTER TIME. FOR N=750 A SORT#Lj*TOOK LESS THAN ONE MINUTE OF CONNECT TIME.#N j WARNING!#P$#R^#j STRATIFIED RANDOM SAMPLING #j6 PROCEDURE SELECTS ONE ELEMENT AT RANDOM FROM EACH#j3SUCCESSIVE GROUP OF K ELEMENTS IN A POPULATION OF N# j7ELEMENTS NUMBERED SERIALLY FROM 1 TO N. IT SELECTS ONE#!j:ELEMENT FROM THE FINAL INCOMPLETE GROUP, IF THERE IS ONE. #$^#!j: SIMPLE RANDOM SAMPLING BY DRAWING OF RANDOM NUMBERS UNTIL#j-DESIRED UNDUPLICATED SAMPLE SIZE IS REACHED. ##j= THIS PROCEDURE SELECTS A RANDOM SAMPLE OF N1 FROM A FINITE##j=POPULATION OF N, SELECTION WITHOUT REPLACEMENT. THE USER IS ##j>ASKED FOR N AND N1, AND THE SAMPLE ELEMENTS ARE PRINTED OUT IN#$j?ORDER OF THEIR LISTING IN THE POPULATION. IT SHOULD BE POSSIBLE#"jQUIRED SAMPLE SIZE, N1. ACTUAL SAMPLE SIZE MAY BE N1 OR N1+1.$b"$jUSE OF @@@$j(WILL PREVENT RETURN TO IDA COMMAND LEVEL$j"AND ANY DATA ENTERED WILL BE LOST.$^' r$IDAK'`~RIDA13A] Pc2 R:RAN1:29AUG73dPd@N 1drddj *SIZE OF GROUP TO BE SORTED?x W j NEED HELPf V @@0N r$IDA13F< V䰯4@ j GIVE INTEGER >1! n1dj, WANT RANDOM NUMBER PRINTOUT BEFORE SORTING f V @@0Nj# GROUP RANDOM ORDER NUMBERX@|"w+V @@0N@, jF#,4D6X6jFD.6D@wJ v11@N V1X TPj#STARTING OVER--HIT A TECHNICAL SNAGRT vr1^ v1hZr X@d| V1@ X@|1@ X@|1 Vr@rwDrwF vrr vvrDvFZZZDj WANT PRINTOUT OF RANDOM NUMBERSNf b j7 GROUP SAMPLE RANDOM ORDER ORDER NUMBERv@ X@d X@|1jF #,2(4D6X)V @@0N jFD.6Drv@v@jZZ j ANOTHER SAMPLE f V @@0N''j, TYPE 'GET-$IDA' AND 'RUN' TO USE IDA AGAIN.'`RIDA13B] (J R:RAN2 OF >PSAM2R:11MAY74d N  1nP/@j% *SIZE OF POPULATION TO BE SAMPLED ?x jW j NEED HELP f V @@0N#( V䰯4@jTRY AGAIN! GIVE AN INTEGER >1.V}&j DESIRED SAMPLE SIZE fV@ V氯4,j$TRY AGAIN! GIVE AN INTEGER >0 AND < n1vԞww/" V1,$, v11@JvԠ@OV0Tj, THE FOLLOWING MEMBERS OF THE POPULATION OF jCOMPRISE THE SAMPLE OF : vX@| V1 jF#,3X4Dv@VPPjZj j ANOTHER SAMPLE *f 4V @@0N'>#("j;RAN2 SELECTS A RANDOM SAMPLE OF N1 FROM A FINITE POPULATION#2"jPSAM FOR N>40002R:12MAY74dN  1drd(lPd@nP/@ n1d nrdP j DESIRED SAMPLE SIZE fV@ V氯4,j$TRY AGAIN! GIVE AN INTEGER >0 AND < vԞ vDd V0Dd vDD@ww/w&DW0D%.w@. V160 X@|12 W0r4Z6 v11@8 vr1:vԠ@<V0J@J X@dT V1@^ X@|1@h X@|1r Vr,rwwDr| vrrvrDZZZj, THE FOLLOWING MEMBERS OF THE POPULATION OF jCOMPRISE THE SAMPLE OF : vwPv #,2X5DVa"wPv #,3X6D X@d V1 X@|1jF rv@ V/'jZZj ''j. TYPE 'GET-$IDA' AND 'RUN' TO ENTER IDA AGAIN.'`IDA14 ˗] Q< KgҔRaN JД<H(J- J^2R:13OCT734R:>GAUSdN jUj.* WHAT IS THE MEAN OF THE NORMAL VARIABLE X ?  j * MEAN = ?x ~W@j"!j9TO CALCULATE PROBABILITIES FOR A NORMAL DISTRIBUTION, YOU,!j9MUST SPECIFY THE MEAN AND STANDARD DEVIATION OF THAT DIS-6j2TRIBUTION. YOU WILL BE ASKED FOR THESE SEPARATELY.;@jBUJJ^Jj- WHAT IS THE STANDARD DEVIATION OF X Th^ j STD.DEV. = hf}rV}|j#STANDARD DEVIATION MUST BE POSITIVE@jUj1* WHAT IS THE LOWER LIMIT L FOR THE CALCULATION ?j* LOWER LIMIT L = ?x yWjjTHE CALCULATION TO BE MADE ISj0PR(LR: >CTAB N2   N` N ,n3-vd.U//2/!j9NEED TO DEFINE CLASS INTERVALS FOR VERTICAL OR HORIZONTAL0 j VARIABLES132jNEED TO DEFINE CLASS INTERVALS3 f @@4j5V @@0N76F7vd@8X|:W@B< wd@> vH@ v2d2d@BZDDFvHX|JW@NLv@NZ^w@c jVERTICAL VARIABLE:hrwf|wgtwHjHORIZONTAL VARIABLE:vvtX|W@:wd@#f'gX wdd@Wdwd@WdX wdT vH"&P v@Vv@VP0&vH0 v2d2d@:ZD X@T NwX X@Hbw2!lZv v2PZ X@Pw X@T w2!Z v2X ZW@k W@P*w`Д`%@P`%@ 4*w``%@A`%@x 4 WHPR>vД`%HP`%HH\Rv`%HA`%Hx \jJOINT DISTRIBUTION OF ` VERSUS fjkv#,4D2Xp uVd@zj)WANT PRINTOUT OF KEY FOR CATEGORY LABELSf V @@0Nj jVERTICAL VARIABLE:jjCATEGORYMIDPOINT X@T  V2PjjFD.5DEf X%gZjjHORIZONTAL VARIABLE:jjCATEGORYMIDPOINT X@H V2X jjFD.5DE P$Zjj%THE EXTREME CATEGORIES ARE OPEN-ENDEDjU!j9WANT CONDITIONAL DISTRIBUTION (IN PERCENTAGE FORM) OF THEj/VERTICAL VARIABLE GIVEN THE HORIZONTAL VARIABLEjWANT CONDITIONAL DISTRIBUTIONf jV @@0N'W@.jCONDITIONAL DISTRIBUTION OF ` GIVEN $j. X@P8 V2X jB X@X L V2P`Vv2d$2&2X `ZjZt v#,3D.DX~  j NUMBER  X@P V jF#,4D2XZjj'X|W@v Z X@|W@H VA4*v4 V?H>vHZRj MIN. OBS. = MAX. OBS. =\jMEAN =@ STD. DEV. =@f j SAMPLE SIZE=pjzUj3* GIVE MIDPOINT OF A CENTRAL INTERVAL OF VARIABLE:  j * MIDPOINT: x jWj j7CHOOSE A CONVENIENT NUMBER NEAR THE MEAN AND/OR ONE NOT j8TOO FAR FROM HALFWAY BETWEEN THE MIN. OBS. AND MAX. OBS.jU j1* GIVE WIDTH OF EACH CLASS INTERVAL OF VARIABLE:    j* WIDTH OF INTERVAL:  x t $j &j )W V .!j9USE YOUR COMMON SENSE, OR TRY A 'ROUND NUMBER' ABOUT HALF 8 j THE STD. DEV. Bj L  V^ w X@H V2X  w@ Z ``% j ``` X@H V2X  jF#,4D2X Z j TOTAL j  X@T  V2P jF#,7D N ` X X@P ] V2X  l bjF2 lZ vj Z j j TOTAL  X@P V2X  jF2X  Z j j ^' r$IDAK'`1+R%aIDA16 ˗] * KgҔRaN JД<H(J- J^2R:12MAY74<R: 2-WAY TABLE OF MEANS>R: >MTABN2 B N`@ N ,n3-vDh. wh1nCEjNEED TO DEFINE CLASS INTERVALSJ f @@Tj^V @@0NrhrX||W@ wd@ vHwD v2d2d@ vBdBd!ZvX|W@v@Zw@ jVERTICAL VARIABLE:wfwgtwH&jHORIZONTAL VARIABLE:0:vDvtXX|bW@gwDlwd@#f'gXv wdd@Wdwd@WdX wdT vH"&P v@Vv@VPvH v2d2d@ vBdBd!Z X@T w X@Hw2!wB! Z* v2P/ vBP4Z> X@PHwR X@T \w2!awB!fZp v2X u vBX zZW@ W@Pw`Д`%@P`%@w``%@A`%@x  WHPvД`%HP`%Hv`%HA`%Hx jWANT JOINT FREQUENCIESf jV @@0NW@jJOINT DISTRIBUTION OF ` VERSUS jv#,4D2Xvd W@8VDP.v@Д`$DP`$D$8.v@`$DA`$Dx 7 wz@@ 8 X@X = V2P`B X@PG V2VLvBB&2VZ`ZeUjj~jj4MEANS WILL BE PRINTED OUT IN INTEGER FORMAT 'DDDDD'.lj6GIVE POWER OF 10 THAT, WHEN MULTIPLIED BY THE ORIGINALmj)MEANS, WILL GIVE THE NUMBERS PRINTED OUT.t~jSCALING FACTOR: POWER OF 10fTjv#,5DX X@X  X@P V2vBP(T$BZZ jTABLE OF MEANS VT j(TIMES VTj1X@|Tj0ZvTTj0. X@|T@j0Zj1j)Wj OF @, GIVEN ` AND jvd@ 'X|W@v Z X@|W@H VA4*v4 V?H>vHZRj MIN. OBS. = MAX. OBS. =\jMEAN =@ STD. DEV. =@f j SAMPLE SIZE=pjzUj3* GIVE MIDPOINT OF A CENTRAL INTERVAL OF VARIABLE:  j * MIDPOINT: x jWj .U j1* GIVE WIDTH OF EACH CLASS INTERVAL OF VARIABLE:    j* WIDTH OF INTERVAL:  x t $j &j )W V .j1EXECUTE 'CTAB' WITH SAME VARIABLES, WAIT FOR HELP L' V^ w X@H V2X  w@ Z ``% j ``` X@H V2X  jF#,4D2X Z Vd@  j TOTAL   jMARGIN j  X@T  V2P jF#,7D N ` X X@P Z V2X  l \Vd h ^ V2 d `j --  b l djFB f l hjF2 lZ vj Z j Vd@ j TOTAL   j MARGIN  X@P V2X  Vd jFBXR   jF2X  Z j j ^' r$IDAK'`RIDA17 ˗] Q KgҔRaN JД<H(J- J^2R:29MAY744R:Q1=1 FOR>CATE;=2 FOR>SELR;=3 FOR>MOVE;=4 FOR>DELVPN  0 Pd w`D nW@xjWANT EXPLANATION f V @@0Nj& W@'UX@|W@ZvPSELR R:OK FOR SELR$j@'SELR' CANNOT BE EXECUTED WITH INACTIVE ROWS IN THE DATA MATRIX.jUSE 'RECOUP' FIRST.' vPMOVE W~ $j@'MOVE' CANNOT BE USED UNTIL A SCRATCH PAD IS DECLARED IN 'RDIM'.' vPCATEvPDELVwU W~ j j * WANT TO U'j%SELECT INACTIVE ROWS USING VALUES IN jMOVE jDATA COL. OR SCRATCH COL. f V @@0DV @@0S!j:INVALID RESPONSE! PLEASE ANSWER DATA, OR D SCRATCH, OR S.w@^j j* GIVE NUMBER WjOR NAMEjFOR THE COLUMN TO BE Uj+USED FOR CREATING A CATEGORICAL VARIABLE : j#USED FOR SELECTING INACTIVE ROWS :  jMOVED :  j DELETED : x 0jW6 j NEED HELP f V @@0N6V0@@0HELP8V0@@0?:JvRU& W~ Xjj$WANT TO PUT CATEGORICAL VARIABLE IN XWwXw@Xjbj* GIVE NUMBER OF lWvn j SCRATCH COL. ow~ pv j DATA COL.  w@8@W`j!TO PUT CATEGORICAL VARIABLE IN : jTO MOVE COL. TO : x jW j NEED HELP f V @@0NXj%fV'  Vs334-fffWv!&R:>SELR v@.X@|8 VAVBvLjV V?j`vjZtj MIN. OBS. = MAX. OBS. =yj~U"j TO RETAIN ALL ROWS IN WHICH COL.VALUES ARE >=L AND <=U,j.GIVE VALUES FOR L AND U, SEPARATED BY A COMMA.jL,U = fTV@5T> R:FLAG ROWS WHICH DO NOT HAVE L<=X<=Uv@vX@|W>5AT w@Z "j(NO ROWS DELETED SINCE ALL VALUES IN COL.IN RANGETOT'  w@(&<WPZFv0Д`%P`%PdZv0`$PP`$Pd^nWPxvД`%P`%0v`$PP`$P0^j W0@^j$DATA MATRIX HAS VARIABLE(S) IN FIRST COLUMN(S)W@j!NO NAMES GIVEN FOR VARIABLES, BUTj FOR YOUR REFERENCE :j COLUMN 1ST OBSERVATIONX@|jF2X,DD,6X,D.5DEZY j THEY ARE :/@ COLUMN NAMEX@|"VPJ,j6Д`$P`$6 H 2X,DD,4X,6A@TJj6`$PP`$PTZYjZW@^ W~ `jIN YOUR SCRATCH PAD:bj COL. NAME VALUE IN FIRST ROWdj **** ****** ******************fw@h X@!}~ !jwl<rj|#0@| H X2D,3X6A,4XD.5DEZ^W@W X@P8VД`$P`$00@`zZVX X@|PV`$P`$00@`ZV0@`.FITTEDGV0@`.RESIDUGWw@ X@!}~ !VPV`P`$00@`zwPV`P`%00@`zZlWw~ wX@}h V00*ZWf X@|@"h$V004&Z(f*w!.4V,\>wGjRj*CAN'T USE FITTED OR RESIDUAL COL(S). WITH PT W@' V"j;BUT YOU CAN COPY RESIDUAL OR FITTED VALUES INTO A DATA COL.W jBY USING 'SAVR'.X' \ jNO DATA IN COL.^`' fwkj0 IS NOT A VALID NAME OR NUMBERpzwwP J%H5 "GIVE INTEGER, ",2D," OR LESS, BUT NOT LESS THAN 1."&&d123456789101112&d131415161718192021&r$IDA912&r$IDAE17&r$IDA17A' r$IDAN ' jP NOT EXECUTED.' r$IDAK'`IDA17A˗] 4a KgҔRaN JД<H(J- J^2R* 26 SEP 744 R:CHAINED FROM IDA17 TO FINISH Q1=1 >CATE;=3 >MOVE;=4 >DELVPN  0 P!Zw@`D dU' R:CREATE CATEG.VAR.vPCATEwX|W@@Z' vv@vX@| W@* W, W* v v v@*Z4j THERE AREACTIVE OBSERVATIONS IN COL.>W@H@j : BRHwJ<L j(0) : R(jMAX. = MIN. = MEAN =@ STD.DEV. =@\j HOW MANY CATEGORIES DO YOU WANT ^f`V' bVTff fdj$ONLY 21 OR FEWER CATEGORIES ALLOWED.e' fj LOWER LIMIT OF FIRST CATEGORY ISj jFOR CATEGORY :p X@|@r!j8,PLEASE GIVE CATEGORY'S VALUE, UPPER LIMIT OF CATEGORY :tf!zZ{jUPPER LIMIT OF CATEGORYIS|jPLEASE GIVE VALUE OF CATEGORY~f!vX|W@. X@|@ W@$Z W*$$ w!.ZLw``VV*'jvt&vPMOVEvv j MOVING...V, R:MOVE SCR J1 TO DATA J2X@| w wZ X@|` w wZ"W,# R:PRINTOUT SCR J1 NAME$w&<'j(jNAME OF SCRATCH COLUMN #"@WAS 0, v  123456789. w"@0v0SCR.002 X@}~ 4V/@6VH;7v0`` 8J; v0PP1<wP=WJ>7@ZJw @Tn^vhjCOL."@r 3R:MOVE DATA J1 TO SCRJ2 X@|` wX|@ w@Z wZW@fR:GIVE SCR.J2, NAME OF DATA J1w<wnvPDELVv j DELETING... X@|` X|@ w@Z wZ W@D X|@ w@"<$w&n4Z>w@v0 BnDjEV@JF@J w`@LV@RNnӟP vҔ@@@QXR X@|@T w;`VZXw@\W1f^w` w`@bj# OF UNDEFINED ROWS NOW@f W`@hX|@j X@|@lV,pV>zr v@tzv@@ vZZX@| vZ X@|@ vZv@ 0jCOL. 3 j HAS BEEN  8U'' B ` B jMOVED FROM THE  D V*@ L F jDATA MATRIX TO COL."@OF THE SCRATCH PAD. H b LjSCRATCH PAD TO COL. OF THE DATA MATRIX. V& `jDELETED FROM THE DATA MATRIX. b W@ h ew g#( hW1' j&<WPZFv0Д`%P`%PdZv0`$PP`$Pd^nWPxvД`%P`%0v`$PP`$P0^@ W~ J X@|`T X@|@^ whZrZ|o`@ wAonӟjNO DATA LEFT IN DATA MATRIX!'#( X@|@#*W1a##,Z#0jREGRESSION VARIABLES#2jWERE IN COL.# NOW IN COL.##4 X@|@#6j#8a#8H #,5X2D#:Wa+#>#<#@#> waa@#@ jF12X2Da#BZ#Dj#F##PjCOL.$WAS ONE OF THE REGRESSION VARIABLES.#oc#>w@@# X@|`#w@#Z#^#jYOUR REGRESSION OF COL.a@ON#jTHE INDEPENDENT VARIABLES:#X@|#ka#Z#j#jHAS BEEN WIPED OUT BECAUSE$#P&r$IDA912' jP NOT EXECUTED.' r$IDAK'`>IDA18 ˗] *% KgҔRaN JД<H(J- J^.R: UPDATED JUNE 1, 19740R: NUMBER OF FREQUENCY POINTS RESTRICTED TO 502R:4JUN744R FEBRUARY 19,1974 VERSION BY WM.WECKER6R:>SPEC< W@F>&FvGAHwdJ wPLwF@Nw6PNHp1AqAROTvp*+0#$ZjDATA IS IN WHICH COLUMNdf j 0IS THE INPUT RAW DATA (D) OR AUTOCOVARIANCES (C)g@W@0DW@.Cj &HOW MANY OBSERVATIONS IN ORIGINAL DATAfv#@Tv@^W@0Cohvmj ACTIVE OBSERVATIONSnroj ACTIVE COVARIANCESrj +HOW MANY DIFFERENT WINDOWS [1 - 5 POSSIBLE]|f V@6Prj TYPELAGS FOR TUKEY LAG WINDOWSv֞nfX@|v:ZV@8Gj  NOT ENOUGH DATA OR SPACE FOR LAGr `$@j .SOME LAGS ARE GREATER THAN N/3 --- DO YOU WANTj)TO ANSWER LAST 2 QUESTIONS AGAIN (Y OR N)fV0YrR:R: FREQUENCY POINTS RESTRICTED TO 50vd &R:XW@0DbX@|l v1vZ wX|w!Zw&wX| w#ZX@|v@wX|" w!% Z v1&ZX| w!Z 1/PLAGPAUTOCOVARIANCEd AUTOCORRELATION/@*X@|4j@P1d 1&1@>ZH o@z/P#SPECTRAL ESTIMATES FOR TUKEY WINDOWX@| X@|wq@$@$@&$1ZX| w$&wef X@~@ wg@%%f#e!qwefwfgZw@e@%F$1@@$f%#ew66;e ZZQH!"WINDOW LAG VALUE",4X,5(5D.DD,3X)VnjQ[o!`X@|jw!@&`$tZ~nj#H"BANDWIDTH",11X,5(5D.DD,3X)H "DEGREES OF FREEDOM",2X,5(5D,6X) o#@$%#nj#j-DO YOU WANT DUMP OF SPECTRAL NUMBERS (Y OR N)fV.Ynk/P(AUTOSPECTRA PLOTTED ON LOGARITHMIC SCALE/@ WINDOW LAG VALUE PLOT CHARACTERX@| jpH 9D,16X,AZvD6'@/@|  POWER SCALE(jHFREQ.1.0 1.8 3.2 5.6 1.0 1.8 3.2 5.6 1.0 1.8 3.2 5.6 1.0 1.8 3.2 5.6 1.0FjD@D@D@D@D`D`D`D`D@D@D@D@D@D@D@D@DH "SCALE",17("E",SD,1X)j## H 6X,"1",16("...1")$vD@ $D%vP& vh@&@$'vg( Xd 2vfd<hFlP Vg*fQZvgg hdv@n X@~@x Wv@ 'B"DVv@ vpZVPjH 5X,67Av@ jfA7 H .DD,2X,67Av@Z&dC. '& r$IDA29i' r$IDAK'`IDA19 ˗] Q} KgҔRaN JД<H(J- J^2R:11APR744R:>SAVFdN@H0np*W@jWANT EXPLANATION f@V@@@0N W@&jUj+NAME OF OUTPUT FILE TO SAVE DATA MATRIX IS jOUTPUT FILE NAME = f0jD0@W@  j0 CANNOT BE FOUND.j . W jCANNOT WRITE ON 0 h@@ @Lh@"h@@"j WARNING! 0 IS NOT NOW EMPTY.#jIF YOU SAVE IDA DATA IN 0 WITH 'SAVF',$j3THE OLD CONTENT IN THE FILE WILL FIRST BE ERASED !!&j(j#DO YOU WANT TO PROCEED WITH 'SAVF' *f@,V@@@.NL.202j WANT TO NAME ANOTHER OUTPUT FILE4f@6V@@@.NH8j IF YOU WISH, YOU MAY:W`@<j0TYPE THE CHARACTER C WITH CONTROL KEY DEPRESSED,> jRETURN CARRIAGE,@jOPEN A FILE WITH A NEW NAME.Bj,DO NOT USE 'KIL' OR YOU WILL LOSE YOUR DATA!Dj(THEN TYPE RUN-9998 TO GET BACK TO IDA.F'H^LvNX|PW@TRv@TZV R:#ACTIVE ROWS IS N1Xj%WANT ENTIRE ACTIVE DATA MATRIX SAVED Zf@[j\V@@@0N^v`4dWkfj4YOU MUST DECLARE FEWER COL(S). OR USE A LARGER FILE.gjWANT TO DECLARE FEWER COL(S). hf@iV@@@0N.jklX@|nvpZtjj DATA IN COLUMNS 1 THROUGHw W@w@jFITTED VALUES IN COL.jRESIDUAL VALUES IN COL.@jj* SAVE HOW MANY COLUMNS ? x jWV' VL jCAN'T SAVE MORE THAN 19 COL(S).4WfjUjGIVE&COLUMN NUMBERS, SEPARATED BY COMMAS :  jWHICH COL(S). ? nfX@|V,@4W j&IS AN INVALID COL. NUMBER. TRY AGAIN! V060@  W@"j w@$@w' @ V`@ X@}'@h@Zw&'@w&@w&@W- U@w#"j FILE WITH'RECORDS NECESSARY FORBY ACTIVE MATRIXj0 HAS ONLY& RECORD(S). .wR: NO ROOM FOR K1 COL. OF DATAW?wR: NOT POSSIBLE TO INCLUDE NAMESw#@W@wR:NOT POSSIBLE TO INCLUDE DESCRIPTION^W ) W7  ) j0 NOT BIG ENOUGH TO HOLD: j W  jNAMES W $  j EXTRA TEXT j $ 8 )^ . j0 CAN HOLD: 0 v@' 2jCOL(S). OF THE ACTIVE ROWS 8W L Bv@&@! DjORCOL(S). WITH NAMES. Fj L^ `j&DON'T PANIC. IT'S A PROGRAMMING ERROR. j&jDAND DON'T USE THE 'KIL' COMMAND IF YOU DON'T WANT TO LOSE YOUR DATA. t#j0 NOW CONTAINS THE FIRSTACTIVE ROWS OF THE  COLS. YOU ~$j@DECLARED. NOTIFY THE R.A. OR CALL J.ROBERTS, 798-8803 ABOUT BUG. j1USE 'FILE' TO LIST CURRENT CONTENTS OF YOUR FILE. '& r$IDA29i' j'SAVF' NOT EXECUTED.' r$IDAK'`IDA20 ] = JgҔRaN JД<HKuvw( Kxyz-K2R:13MAY744R:>MPLS6R:24APR74 VERSION BY WM.E.WECKER< V@>'m"R A(103,22) - 3 COLUMN VECTORS OF THE IDA MATRIX ARE PLOTTEDNR PLOT INTERFACER THE FOLLOWING ARE DESCRIPTIONS AND DEFAULT SETTINGSR OF BOXP2 VARIABLES:R!R P(3,300) - DATA ARRAY CONTAINING UP TO THREE TIME SERIESoRR I0 = 1 ARITHMETIC SCALER = 2 LOG SCALEv@R I1 = ? INDEX OF FIRST POINT PLOTEDv@R I2 = ? INDEX OF LAST POINT PLOTTEDR"vK,R I3 = ? NUMBER OF PERIODS/YEAR6v@@R I4 = ? FIRST PERIOD OF FIRST YEAR TO BE PLOTTEDJR (0 FOR ANNUAL DATA)Tv^ R I5 = ? YEAR OF FIRST POINT TO BE PLOTTED (2 DIGITS)hv@rR I6 = ? NUMBER OF SERIES TO BE PLOTTED|v@R I7 = 0 MEANS OMITTEDR = 1 MEANS PLOTTEDv@o!R E(3,3) = ? CONTAINS FIRST AND LAST INDEX OF EACH SERIES"R TO BE PLOTTED. ENTRIES IN THE E(X,Y) VECTOR TAKER PRECEDENCE OVER THE VALUES FOR I1,I2."R Q(I,3) SAVES THE IDA COLUMN VECTOR TO BE PLOTTEDw@@@@`@Kw@@@@`@j*IS AN EXPLANATION OF PLOT OPTIONS DESIRED fV@@.Yj5'MPLS' PLOTS UP TO 3 TIME SERIES IN IDA DATA COLUMNS.j#HOW MANY TIME SERIES TO BE PLOTTED fvV@4:R INCORRECT RESPONSE - REPROMPT&j TIME SERIES CANNOT BE PLOTTED0:X@|D/`bjllH' #,"COLUMN NUMBER OF TIME SERIES # ",2Dg`W`@5`A* j`H) "COLUMN #",DD," IS INACTIVE$. RESPECIFY."l*j44H2 #,"INDEX (ROW) OF FIRST OBS. OF TIME SERIES #",3D>g@? W@?C@ jA@AH7 "ALL ROWS <= ",DD," ARE INACTIVE DUE TO DIFFERENCING."B4C W@AHDjEEH. "ROWS ABOVE ",DD," ARE INACTIVE. RESPECIFY. "F4HjRRH1 #,"INDEX (ROW) OF LAST OBS. OF TIME SERIES #",3D\g@]W@A@c^j__H0 "FIRST OBSERVATION MUST BE <= LAST OBSERVATION"`jaa H "TRY AGAIN!"bRc W@?gd jA@fRg W@AkhjiiH- "ROWS ABOVE ",DD," ARE INACTIVE. RESPECIFY."jRkZlv@@9@@9`@mv@@;@@;`@pj-ARE STANDARD DEFAULT OPTIONS DESIRED (Y OR N)zfV@@0YtR PROMPT USER FOR OPTIONS$R USERS WILL NOT BE ALLOWED THE LOG OPTION, IT ALTERS THE IDA ARRAYjSCALEPARITHMETIC SCALE = 1PLOGARITHMIC SCALE = 2f V@6@jH# DD," IS NOT AN ACCEPTABLE ANSWER "j SHOULD MEANS BE PLOTTED (Y OR N)fV@@0YvR LABELING INFORMATION"j:YEAR CORRESPONDING TO FIRST OBS. TO BE PLOTTED (2 DIGITS) .f8j1FIRST PERIOD, OF FIRST YEAR, (0 FOR ANNUAL DATA) LfVVt`jNUMBER OF PERIODS PER YEAR jft&~b&r$IDA20A' r$IDAN ' r$IDAK'`$IDA20A] + JgҔRaN JД<HKuvwxyz{|}~( J-JR2R:27APR743R 21MAY74 MODIFIED BY RKK TO TAKE OVER 100 POINTS4 R:END OF >MPLSR TSPLOT(A(3,300),K0,I5,I6,K3,I1,I3,N0,E(3,2),I8)R PLOTS UP TO 3 TIME SERIES FROM ARRAY A(3,300)R K0=1 FOR ARITHMETIC SCALE, =2 FOR LOG SCALER I5 IS INDEX OF FIRST POINT PLOTTEDR I6 IS INDEX OF LAST POINT PLOTTEDR K3 IS THE NUMBER OF PERIODS PER YEAR#R I1 IS THE FIRST PERIOD OF THE FIRST YEAR PLOTTED--0 FOR ANNUALR I3 IS THE FIRST YEAR TO BE PLOTTED--2 DIGITSR N0 IS THE NUMBER OF SERIES TO BE PLOTTEDR E(3,2) CONTAINS THE FIRST AND LAST INDEX OF EACH SERIESRR I8=1 FOR MEANS PLOTTED; =0 FOR NOT PLOTTEDR R TSPLOT WILL CHAIN BACK TO PROGRAM-NAME CONTAINED IN R$ $R THE CONTENT OF R9 WILL DETERMINE THE ENTRY ADDRESS ON RETURNN1 A`BNq"N@ X@BJ v` TZ^v.'!hv*+#v:v-vXw vvnsR L - INDICATES # OF DELETED OBSERVATIONS PER COL VECTORnßwR CHANGE TO LOGS IF INDICATED--THIS ALTERS X AVRAYV@HX|X@|VBR@@4@R@D& v0Z:ZDR FIND MIN AND MAX VALUES TO BE PLOTTEDHvIVR@@ z@@NJv@LIN vR@@ X VB,lbvlvR@`vvX|Vz@@w@X@|Vz@@VR@*6R@, v@%VBR`,4R@@4@R@ vR`%VBR`*4R@@4@R@ vR`ZZw R  SET UP SCALINGvv V@ vovo vEw vF#@*R CALL ROUND(DELT,DELT)> .Hw@MR THIS PATCH REMOVES THE BUG IN SCALING ROUTINE J.K.RWP \VF0Efv&FpwF$zV@w"FzvEF v1@wF@ X@H v11@ FZ V@w1H1@@w w51@ w61HvW5?6.$w56.W5|B8v@BW5cVLv@Vw7` Vj VB~tw55P~ VBw55PV5c65|. X@Hv11$P(ZR CALCULATE MEANS AND SET UP PLOTTING ARRAYRnAX|Vz@X@|VR@*6R@, vqq R` ZZj( R 6000 FORMAT(////)2X@|7V@Z< jPPH# 10X,"SERIES ",1d,5X,"SYMBOL = ",1AUxZjxjH3 10X,"SERIES ",1D,5X,"SYMBOL = ",1A,5X,"MEAN = ",1AR DETERMINE THE ACTUAL NO OF POINTS -- COMPUTE MEAN!R IDA INTERFACE MUST PATCH HERE TO ADJUST FOR DELETED POINTSvR@8"R@:@R COMPUTE MEAN -- NORMALIZE vqq&"vAq#'@ZR WRITE PLOT HEADINGS V@jjR 6010 FORMAT(' Y-SCALE(LOG)')H "19x,"y-scale(log)""j H 29X,"Y-SCALE"V@"j,,H 22X,"SCALED BY 10**",3D@njT3TH 9(6D.D)^jrrH 6X,"*",8("=======*")|R MAIN PLOTTING LOOPv"@X| v`@@ X@@v`Zv`A Vv@ Vpv X@@v`Z XD b @ v`&Z0X@|:vDZN VX R PLOT MEANSbvl VvVR@*6*R@vA v`v@l R PLOT SERIESv VVR@*6*R@vR`#'@ vVz@@v`@@DELETED v`v@ V@H v@@X@| v*VB0@4>4v`>ZHVRj\`\ H 2d,"-",2d,1x,66azR 6060 FORMAT(2X,I2,1H-,I2,66A1)Vj` H 2X,3D,1X,66AR 6070 FORMAT(5X,I2,66A1)v@V@v@v@ZR WRITE PLOT TRAILERS jr njT3 ' $R SUBROUTINE ROUND(X,RX) .wF 3wF 8v L V@ t VwP `v@ j L t VP ~wP v@  t V@ VP wP  V` w`  V@ w@  VP  wP   V` < (w` 2 < V@ Z Fw@ P Z VP x dwP n x Vx wx  wP w$P( vF W vF R ^' r$IDAK'`pIDA21 ˗] Q7 KgҔRaN JД<H(J- J^2 R 14 MAY 74 RKK4R:>PACF6R:15JAN74 VERSION BY WM. WECKER<N)!)!)A)=N >W@F?jWANT EXPLANATION @fAV0NFB#j='PACF' COMPUTES THE PARTIAL AUTOCORRELATION FUNCTION ESTIMATEC$j?VIA THE ITERATIVE METHOD GIVEN IN BOX AND JENKINS (1970),P.497.Dj!REISSUE 'PACF' TO EXECUTE 'PACF'.E'F W@'N j WHICH COLUMNPgTV' UW5@5ZVjTHAT COLUMN NOT DEFINEDWNZ/@ HOW MANY LAGSdfeVR nf jMAX NUMBER IS 40gZnvsvxX`@|W@v!v@Z v8`v&w%X`@|W@w%% "@Z6X@|@w!JX`@|"KW@^LW @^Tw!! "$ "^ZhZrX@|| w!!'%Znn# v@!@R vA@!@XĞ@|w67 X@|Ģ@v! w66 !%!" w77 !%!Z0v!#6&@#75vA: X@|Ģ@Dv!"$!"NZvZPV P v5X@| v55AZ/@HPARTIALjORDER AUTO COR. L V5@HV5@*V5@ w4@j+ -8 -6 -4 -2 0 2 4 6 8 w4@j+ -4 -3 -2 -1 0 1 2 3 4 *w4@4j+ -2 -1.5 -1 -.5 0 .5 1 1.5 2>Hw4@Rj+ -1 -.75 -.50 -.25 0 .25 .50 .75 1\ P j)/----/----/----/----/----/----/----/----/X@|vEAvZ' jF#,3D5X jF#,SD.3DE L -vEE'4VET 8 L E*$ P /.j8VET VB P *LjV P /` L E*j^' r$IDAN ' j'PACF' NOT EXECUTED' r$IDAK'`IDA22 ˗] E KgҔRaN JД<H(J- J^. O!Q *2R:29MAY744R:>CROS<R 23 MAY 74 BY R.K.KNOWLESARFR: ************************************K R CROSS CORRELATIONLRM jWANT EXPLANATIONN f @POV @@0NTPj6'CRCF' COMPUTES THE CROSS CORRELATION FUNCTION BETWEENQ"jENTE;=2 FOR>STARdN 0@ f w`\ gUhjhvPENTEinjvPSTARnW@xjWANT EXPLANATION zf|V@@0N~&Up* W@W@jjFURTHER USE OF 'P ' WILL ERASEjDATA NOW IN FIRSTROWS,COLUMNS.jWANT TO CONTINUE WITH PfV@@0N' #R:ZERO DATA MATRIX,ETC., BUT LET SCRATCH COL.VALUES AND ALL P MATR:VALUES EXECPT P(65), THE CRSP MONTH INDICATOR, REMAIN W~  X@|` X@|@ wZZo`@ wAonӟUjU,"j* MODE OF INPUT IS 6" j * MODE = '6,j-* MODE OF INPUT : FROM 'FILE' OR 'TERMINAL' ?6x @;j@W^Jj+RESPOND 'F' FOR FILE OR 'T' FOR TERMINAL : T6^V@@@0FhV@@@0Tr jINVALID RESPONSE|JjU jNAME IS jNAME OF INPUT FILE IS f0D0@W@ j0 CANNOT BE FOUND.jCHECK YOUR SPELLING!j V`@@  h@@V䰯4V@4,'j%PRESENT DIMENSIONS OF DATA MATRIX AREROWS BY@ COLUMN(S)jBUT FIRST TWO ELEMENTS OF 0 ARE, jDATA NOT ENTERED.'X@| w@@X@| h@ZZX@| w@@ jROW: nfX@| wZZ& @&&h@ V.NAMES:&X@| @&&&&h@0 `&:VPXDvД`$P`$NlXwPbv`%P`%lZvw@&jUpj* SAMPLE SIZE (N) = x jWj&N IS THE NUMBER OF ROWS IN DATA MATRIX V@4䰯 jN MUST BE AN INTEGER LESS THAN@  j* NO. OF VARIABLES (K) = *x /j4WR>j)K IS THE NUMBER OF COLUMNS IN DATA MATRIXH R V,4\jK MUST BE AN INTEGER LESS THAN f pjN,K = zf| V@4䰯~ V,4V@@@0FjUj(ENTER ELEMENTS OF MATRIX BY ROWS BELOW :jDATA : U j.* ARE THE FIRST TWO ELEMENTS OF YOUR DATA FILE j, VALUES FOR N AND K (SIZE OF DATA MATRIX)?   j* N,K GIVEN IN FILE?  x  j W X  h@@ k,-ARE THE FIRST TWO ELEMENTS OF YOUR DATA FILE.  h@@ W5 jBOTHANDARE NOT INTEGERS.  XV@@0N bV@@0Y l j NEED HELP  nf pV@@.N  rjPLEASE ANSWER YES OR NO. v jUj&FOR DEFINING INITIAL ZERO DATA MATRIX,j,GIVE TWO NUMBERS, SEPARATED BY A COMMA, FOR:j' N AND K, OR # OF ROWS, # OF COL(S). = jN,K = f V,fff4,jCURRENT IDA DIM.AREX' vvX@| w@@Zw@`@jjPLEASE GIVE NAMES FOR:X@|Zw@"j,W`'6jX"DATA MATRIX OF ZEROES NOW DEFINED.@'j H #,"VAR.",XDD,Xf@VP0vД`$P`$@@`&:0v`$A`$x @@`:^@jNOT ENOUGH OR NO DATA IN 0Aj%USE COMMAND 'FILE' TO CHECK CONTENTS.B' &w@`\ &v&v@&r$IDA912&r$IDAE08' jP NOT EXECUTED.' r$IDAK'`IDA24 ˗] Q"j KgҔRaN JД<H(J- J^2R:12FEB74<#R:Q1=1 FOR >ABSO;=2 FOR>ADDC;=3 FOR>ADDV;=4 FOR >DIFF;=5 FOR>DOTP>#R:Q1=6 FOR>EXPO;=7 FOR>LAGG;=8 FOR >LOGE;=9 FOR>LOG1;=10 FOR>MULC@R:Q1=11 FOR>MULV;=12 FOR>POWE;=13 FOR>STAN;=14 FOR >DIVIB R:Q1=15 FOR>SAVRN@ W@jWANT EXPLANATION f@V@@@0Nj3WILL GIVE EXPLANATION IN IDA24E FOR TRANS. AND SAVR W@&j V,@.jDATA MATRIX ALREADY FULL (@COL(S).)jWANT TO CONTINUE f@V@@@0N' . W@7p1Wx6U@^c@j&* IN WHICH COLUMN WILL THE TRANSFORMEDJj#VARIABLE BE PLACED? GIVE NUMBER : Th^j!* COL. # TO PLACE TRANSF. VAR. : `hcj* COL# TO PLACE VAR. : hx rj|W V0@$j4TO PLACE VARIABLE IN A NEW COLUMN, TYPE THE NUMBER :@j j OTHERWISE,jGIVE A NUMBER BETWEEN 1 AND : h V6' W@4,@#( V@@4,jNUMBER GIVEN TOO LARGEUTP j* COLUMN TO BE TRANSFORMED :x jW?&jDATA IN COL(S).1 TO:? V6' DV@ZNjNUMBER GIVEN TOO LARGE X&ZV.b\V@6p bU 22   2l lUvvj* VALUE OF POWER =  j * POWER = j* P = x jW jNUMERIC INPUT REQUIRED j 2 FOR SQUARE,j 0.5 FOR SQUARE ROOT,j -1 FOR RECIPROCAL, ETC.vUj* VALUE OF CONSTANT =  j * CONSTANT = j* C = x jW  jNUMERIC INPUT REQUIRED X@}`" w$Z&X`@|(WxB*U4H222\.p24 w>LH w!RL\ wofLp VzW@L wL WzwPL w%L W$W@LV@@$j3NONPOSITIVE VALUE IN ACTIVE DATA TO BE TRANSFORMED.j$REQUESTED TRANSFORMATION IMPOSSIBLE.'$ w))L.V*83 w4L8 w"=LB wLZVw```Wptjw`` oR: GOTO IDA912 FOR UPDATING MEAN AND STD.DEV.tv~w@`` &v@+v@Xv@/Uj@H. "COLUMN",XDD," = (COLUMN I) ",A," (COLUMN J)"j(GIVE VALUES I,J, SEPARATED BY A COMMA : "WpjI,J = "jNUMERATOR, DENOMINATOR = "f, V:@T6jCOLUMN NUMBERS MUST BE <@@jPLEASE RE-ENTER I,J : J"Tv`;`UX@|V wXZYX@|hT@r22222222rw!|w%w'Z w`tR:>SAVR W@"j&NO RESIDUALS OR FITTED VALUES TO SAVE.jEXECUTE 'REGR' FIRST. '" W@0$ wP& w`` ( wps*&0j2U4::4 jWANT TO 6j,SAVE RESIDUALS, FITTED VALUES, OR NEITHER ? 8D: j* R, F, OR N ? Dx @EjFWNHj'CAN SAVE RESIDUALS, FITTED, OR NEITHER.IjPLEASE ANSWER. R, F, OR N Jf@NV@@@0RXP,V@@@0FbRV@@@0N' SV@@@0?HT jINVALID RESPONSE.VHX v@ RESIDUALSYv@Zlb v@ FITTED VALUESdvlj*COL. # TO PLACE @ =vhUj!GIVE A POSITIVE INTEGER FOR GAP :jGAP = fWp  v` X@| wZvRX@|\w#"fZpw`` u W@zw w@@zt X| W@ w#@'@ Z w@ w@@ w`` t j8FOR THIS TRANSFORMATION, THE TRANSFORMED VARIABLE CANNOT !j9OCCUPY THE SAME COLUMN AS THE VARIABLE TO BE TRANSFORMED. V0@@ j @ H, #,"WANT TO PUT NEW VARIABLE IN COLUMN ",DDX f@ V@@@0N@ v@ bR:PRETEST FOR DIFF AND LAGGX@|W@Z6j/SOME OBSERVATIONS HAVE PREVIOUSLY BEEN DELETED.j-TO EXECUTE 'LAGG' OR 'DIFF' NOW WOULD LEAD TOj IMPROPER UPDATING BY THE SYSTEM.jj4TO ACCOMPLISH THE DESIRED TRANSFORMATION, YOU SHOULDj(FIRST 'RECOUP' THE DELETED OBSERVATIONS,jTHEN 'LAGG' OR 'DIFF',j6AND FINALLY DELETE THE APPROPRIATE OBSERVATIONS AT THEj#COMPLETION OF SUCH TRANSFORMATIONS. ' #( X@|@#2V1a#Z#<Z#FR: J NOT A REGRESSION VAR.#P#ZjCOL.'CONTAINS 1 OF THE REGRESSION VARIABLES.#djWANT TO CHOOSE ANOTHER COLUMN #nf@#xV@@@0N#&r$IDA912& r$IDA29i&r$IDA38' jREQUESTED COMMAND NOT EXECUTED.' r$IDAK'`,IDA25 ˗] L KgҔRaN JД<H(J- J^2R:29MAY74<"R:Q1=1 FOR >PRTF;=2 FOR>PRTR;=3 FOR>PRTO;=4 FOR>PRTS;=5 FOR>PRTV>"R:Q1=6 FOR>FPRF;=7 FOR>FPRR;=8 FOR>FPRO;=9 FOR>FPRS;=10 FOR>FPRVN`<@p@  w@ TRY AGAIN! w`d W@jWANT EXPLANATION f`V`@@0N& W@7H H W@'U&'&&'& W@jNO RESIDUALS OR FITTEDS YET.jEXECUTE REGRESSION FIRST.'  W@& wpM& WP N j U  j2* GIVE FORMAT FOR PRINTING AN OBSERVATION (ROW) :    j j IF YOU WANT: j/0 DECIMALS GIVE #,13D 1 DECIMAL GIVE #,11D.D j22 DECIMALS GIVE #,10D.2D 3 DECIMALS GIVE #,9D.3D j14 DECIMALS GIVE #,8D.4D 5 DECIMALS GIVE #,7D.5D j0OR IN EXPONENTIAL FORM, SOMETHING LIKE #,XSD.5DE j jFORMAT MUST BE PRECEDED BY #, j j * FORMAT =     j* FMT =  x ` j W   V`@@0? V`@@0HELP V`@@.#, &j N^ H W~  z Rj'WANT TO PRINT SUBMATRIX OF DATA MATRIX  Tf` VV`@@.N z \j' OF SCRATCH PAD  ^f` `V`@@0N' fvpS hw~  p z W@' vpD w@ j U j4TO PRINT SUBMATRIX BETWEEN ROWS I1 AND I2 INCLUSIVE, "j82j' LAST COL.# CAN'T BE SMALLER THAN FIRST4k@6$8w:V@4A4@4AH<F$Hv"@JnLVp0SRMvPTRv @TX@|VvXv@ZZ[Vp0S\sR: NONCONSECUTIVE COLS. PARTtjHOW MANY COLUMNS ~fUjGIVE%COLUMN NUMBERS, SEPARATED BY COMMAS : j COL. #'S :nnfVp0DX@|Vs334-~ fff0 v @Z jWP v`#,7D.5Dv; wP VP%w@w@wPX|Vp0S* V,@( V,@: T" j jMEAN . jS.DEV.  . j#UNDEF..(W@8*j,, H #,"* ",DDD," *".X}80 jF`2Z4j6:8 jROWDELETED:Z</@>w@@wP!Bw@DW'FR:VALID COL #'S? NEED UPDATING?v4DX@|V4,`jONLY COL(S). 1 TO@, INCLUSIVE, VALID.k@t V*@ V,fffvD@ V0@W@7@v4@ZVDjDATA IN COL.(S) 1 TOONLY.V4@j) FITTED AND RESIDUAL VALUES NEED UPDATINGw@wH wL X@|wZ wp&v@vpDX@|vZvH vL  j ROW Vp0SJX}8w V*4,? V.@"v@ALIVE?7" V,@,$ W@6&?,W@?6h7w8 X@`9 V@. <:j ;w@<Z=j @@`#>B?j@@ H #,7X,"COL.",DDBZD/@F^JX}8LwNrPj<@RZTDh W*@rWP|v@Д`%P`%v@`%A`%x  W0@v@FITTEDv@RESIDU^Vp0S0jACTIVE DATA IN ROWSTO ,COL.(S) 1 TO,jBUT YOU CAN ALSO PRINT ROWS@TO` , COL.(S)@TO@ W@j'FITTED' VALUES IN COL.j'RESIDUAL' VALUES IN COL.@jMEANS OF COL(S). IN ROW@jSTD.DEV(S). OF COL(S). IN ROW@X^0 jSCRATCH PAD HAS:Nj ROWS 1 TO`, COL.(S) 1 TO~ Xk@b^&r$IDAE25&r$IDA25A& wP&r$IDA38' r$IDAN ' jCOMMAND NOT EXECUTED.' r$IDAK'`IDA25A˗] +\ KgҔRaN JД<H(J- J^2R:3APR74<R:Q1=1 FOR >PRTF;=2 FOR >PRTR;=3 FOR>PRTO;=5 FOR >PRTV>R:Q1=6 FOR >FPRF;=7 FOR>FPRR;=8 FOR>FPRO;=10 FOR>FPRVN`<@pU$$'$$'$v.v@8 v @B W@7pLj WANT FITTED VALUES ONLY Vf``V`@@.NjjTO PRINT ONE COL. OF DATA PLUSlj$'FITTED' AND 'RESIDUAL' VALUES, GIVE~WP v `v@ n@v@U jCOLUMN :j'* COLUMN OF DATA MATRIX TO BE PRINTED :x jW jH% "DATA IN FIRST",X2DX,"COL(S). ONLY."j V@4@4 W@7`*V'  * V6*,v@. n@/v@0 v@@24v>v@@ W@7`JBv@DvF n@Gv@HJ n`Lv@Nv@P v`@Rv`VUjROW :j$* ROW OF DATA MATRIX TO BE PRINTED :x jWjV*4,@ V4@v V?  "jROW3UNDEFINED BECAUSE OF PRIOR USE OF 'DIFF' OR 'LAGG.' ' v n X@| v Z  WP N j U  j2* GIVE FORMAT FOR PRINTING AN OBSERVATION (ROW) :    j j IF YOU WANT: j/0 DECIMALS GIVE #,13D 1 DECIMAL GIVE #,11D.D j22 DECIMALS GIVE #,10D.2D 3 DECIMALS GIVE #,9D.3D j14 DECIMALS GIVE #,8D.4D 5 DECIMALS GIVE #,7D.5D j0OR IN EXPONENTIAL FORM, SOMETHING LIKE #,XSD.5DE j jFORMAT MUST BE PRECEDED BY #, j j * FORMAT =     j* FMT =  x ` j WH   V`@@0? V`@@0HELP V`@@.#, &j N^ jWP v`#,7D.5D wP VP%w@w@wPX| V,@( V,@: T" j jMEAN . jS.DEV.  . j#UNDEF..(W@8*j,, H #,"* ",DDD," *".X}80 jF`2Z4j6:8 jROWDELETED:Z</@>w@@wP!Bw@DW'F j ROW X}8w V*4,> V.@"v@ALIVE?8"V,,$ W@6&>,W@>6h8j:@:H #,7X6A<B>j@@ H #,7X,"COL.",DDBZD/@F^JX}8LwNrPj:@RZTFh W*@rWP|v@Д`%P`%v@`%A`%x  W0@v@FITTEDv@RESIDU^jACTIVE DATA IN ROWSTOjMEANS OF COL(S). IN ROW@jSTD.DEV(S). OF COL(S). IN ROW@ j TRY AGAIN!^' jCOMMAND NOT EXECUTED.' r$IDAK'`HIDA26 ˗] Q.9 KgҔRaN JД<H(J- J^2R: 14 JUL 744R:Q1=1 FOR>RECO;=2 FOR>RETO;=3 FOR>RETB6R:Q1=4 FOR>CHGO;=5 FOR>DELO;=6 FOR>DELBN0@ P w`h W@' U""" ", V,#@6.jALL#@DEFINED ROWS ALREADY ACTIVE.0j REQUESTED OPERATION UNNECESSARY.2'6W@>7W@>8 j#(@9j#*:$j?THEY CANNOT BE MADE ACTIVE BY USE OF 'RECO', 'RETO', OR 'RETB.'< j WARNING ONLY.>U@@vPRECOBv@JvT w@^X|h w@@rZ|&vPRETOUjRETRIEVE WHICH ROW (GIVE # jROW = fV@jNO DATA IN ROWS BEYOND V+@ j#(@j#*' W@jH' "ROW",3D," IS ACTIVELY IN USE ALREADY"' v w@&vPRETBU:j)TO RETRIEVE ROWS I1 TO I2 INCLUSIVE, GIVE&j.TWO NUMBERS, SEPARATED BY A COMMA, FOR I1,I2: 0D:j1ST ROW, LAST ROW = DfFV@NHjTJjNL:N V+@bXb V,@ljNO DATA IN ROWS BEYONDv' X| w@@Z w@& v@CHGO U j#GIVE ROW NUMBER I, COLUMN NUMBER J, jAND THE NEW DATA VALUE X(I,J) : jI, J, X(I,J) =  f V+@  jD@ jF ' V*l V* Z W@ ( jROW IS INACTIVE. "' ( w@` 2v <& ZjNO DATA BEYOND COL. d' vPDELO U jDELETE WHICH ROW (GIVE #)   jROW =  f V? j REQUESTED OPERATION UNNECESSARY. jH! "ROW",3D," IS ALREADY INACTIVE."' W@8$jh.' 8vB w@V&vPDELBUj%DELETE ROWS I1 TO I2 INCLUSIVE. GIVEj.TWO VALUES, SEPARATED BY A COMMA, FOR I1, I2 :jFIRST ROW, LAST ROW H) "ROWS",3D," TO",3D," ARE BEING DELETED."fV@j(FIRST ROW CANNOT BE LARGER THAN LAST ROWV@4@jNO DATA IN ROWS BEYONDV?JV?,j REQUESTED OPERATION UNNECESSARY.jH, "ROWS",3D," TO",3D," ARE ALREADY INACTIVE."jF"' , j@6v@jJX|TW@r^jhhH1 "WARNING: ROW",3D," HAS PREVIOUSLY BEEN DELETED"rZ|R:FLAG DELETED ROWS AND GOTO IDA912 FOR UPDATINGX| w@Z w@&R R: # OBS. IN COL.vw@X|v!Z^B$HA "FIRST ",3D," OF ",3D," ROWS AND FIRST ",2D," OF ",2D," COL.(S)"DH! #,"FIRST ",3D," ROWS UNDEFINED "FH/ "BECAUSE OF PREVIOUS USE OF 'DIFF' OR 'LAGG'."N H "TRY AGAIN!"TH+ "FIRST NUMBER CANNOT BE LARGER THAN LAST."#(#H? "THE FIRST",4D,"ROWS ARE UNDEFINED BECAUSE OF PREVIOUS USE OF"#*H5 "'DIFF' OR 'LAGG' AND ARE UNAVAILABLE FOR ANALYSIS."&R:GOTO IDA912 FOR UPDATING MEANS AND STD.DEV(S).&r$IDA912' r$IDAN ' jP NOT EXECUTED' r$IDAK'`IDA27 ˗] XR KgҔRaN JД<H(J- J^2R:13JUN744R:Q1=3 FOR>MISS;=4 FOR>MEAN;=5 FOR>FILEN0@ HP T@p*Nv7` W@' T@jvPMISSj jCURRENT STATUS: Wz $ jNO NUMBER HAS BEEN.$k|  IS NUMBER .j2DESIGNATED AS REPRESENTING MISSING VALUES IN DATA.8jB jWANT TO CHANGE Lf@VV@@@0N'` Wz @tjtj~!j7WANT TO DECLARE NEW NUMBER TO REPRESENT MISSING VALUES f@V@@@.Nwz | j3THERE IS NOW NO NUMBER TO REPRESENT MISSING VALUES.' wz @jj&NUMBER TO REPRESENT MISSING VALUES IS g| 'iR:>MEANjt/@"VARIABLE MEAN STD. DEV.yj~X@|W@j@@H 3X,2D,2X,2(3X,D.5DE)VP jД`$P`$@@ H X,6A,2(3X,D.5DE)*j`$PP`$P@@ZjjBASED ON ACTIVE ROWS.'vPFILEU j FILE NAME IS jNAME OF FILE TO PRINT IS f0 V`@ h@@ j'0 ' IS EMPTY.'  @h@jFIRST ELEMENT OF '0' IS V殯 V殯VF`h@jFIRST ELEMENT IN '0' IS THE STRING:j @h@jSECOND ELEMENT IN '0' IS Vw`$` WF4Lff h@jSECOND ELEMENT IN '0' IS THE STRING:jj'0$' DOES NOT HAVE STANDARD IDA FORMAT.w\"j'0' PROBABLY HAS DATA MATRIX OFROWS ANDCOLUMNS."j#HOW MANY ROWS DO YOU WANT TO PRINT ,f.Vm/v80 V`@1j6X@|@jJJ H #,"ROW",3D," : "T nh@^X@|`jbZdjhZmjrU||j"* WANT TO CHECK NAMES OR TEXT IN '0' ? j*CHECK NAMES, TEXT ?x @jW!j:FILES SAVED WITH 'SAVF' IN IDA MAY HAVE NAMES AND DESCRIP-j4TIVE TEXT SAVED AFTER THE VALUES OF THE DATA MATRIX.|V@@@0?V@@@0N'w$w@ w$@w$@;$jjW`jWANT TO LIST CONTENTS OF '0'  jLIST '0' f@V@@@0N'j-WANT TO START LISTING FROM BEGINNING OF FILE f@V@@@0Nw$@D0@W@j'0"' CANNOT BE FOUND OR IS PROTECTED.W`j%NOTE: FILE NAMES MUST BE PRECEDED BY:j($ IF A SYSTEM FILE * IF A GROUP FILE' W`j(WHAT NUMBER RECORD DO YOU WANT TO LIST:  jRECORD NUMBER  V`@g$ W$5$$j!INVALID RECORD NUMBER. TRY AGAIN!h@$@h@Wjh@WjjjFILE RECORD LIST COMPLETEDR:EORWw$$@jEND OF FILE CONTENTS.'j j END OF RECORD$jLIST ANOTHER RECORD f@V@@@0N' jRECORD NUMBER  R:#OBS. IN COL.vw@X|v!Z^' r$IDAN ' j'P' NOT EXECUTED.' r$IDAK'`\IDA28 ˗] +! KgҔRaN JД<H(J- J^2R:2OCT73<R:Q1=1 FOR >CORR;=2 FOR >COVAFR: L.9010,$IDA29 CHAINS TO L.8000 IF K8=0N W@ r$IDA29i W` wP@ w`p  wp}"r$IDA38j HOW MANY VARIABLES fV@j ONLY)VARIABLE(S) IN DATA MATRIX. TRY AGAIN!U0D"j9GIVE COLUMN NUMBERS OF VARIABLES, SEPARATED BY COMMAS: &F0jCOL. #'S OF VARS.: :FD j COL. #'S: FnfHX@|JV@RLj NO DATA IN COL.'S BEYOND COL.N j TRY AGAIN! PRZSwPTW@XUbbj3* NUMBER OF DECIMAL PLACES WANTED IN THE PRINTOUT? v j* # DECIMALS = xDjWV@,D4D`j NUMBER OF DECIMAL PLACES ALLOWEDjIS BETWEEN 2 AND 5 INCLUSIVEwX"Djw@w/@HX}8WP  ?p  ?D@ ZjX| %j *X}8/W@~4 TD>>Rfz>jF #,DD.2D,2XHRjF #,DD.3D,2X\fjF #,DD.4D,2XpzjF #,DD.5D,2X|~$jF #,D.5DE,2X%@%@ZjZ/@ V#' Hw!w!W@j H #,"COL.",DDB VP8j$Д`$P`$$H #,6A.B8 j$`$PP`$PB^@R:IF K8=0 IN $IDA29,>REGRBvD`EjJ j|@DRvTX|VW@ZX v!@ZZ^j@Dh j@Drj@D@@&|H "MEAN = ",D.5DEH "STD. ERROR OF MEAN = ",D.5DEH "STD. DEV. = ",D.5DEH "STD. ERROR PRED. OBS.= ",D.5DE' r$IDAK'`IDA29 ˗] Q5 KgҔRaN JД<H(J- J^2R:10APR74<R:Q1=1 FOR>REGR;=2FOR>COEFF;=3FOR>ANOV;=4FOR>SUMMN 0 U W@j"NO DATA HAS BEEN ENTERED YET. USEj6'ENTER','ENTS','ENRA','CRSP' OR 'RAND' TO ENTER DATA :' W` wP@ wp@&W@ j* DEP. VAR. = ,j/* DEPENDENT VARIABLE (NAME OR COLUMN NUMBER) = ,x 01j6WT@JTXYW^vDcW@|hjHOW MANY INDEP. VAR. r|jHOW MANY INDEPENDENT VARIABLES f V@@j@OR FEWER INDEP. VAR. POSSIBLE.hV#(WX@|jH #,"INDEP. VAR.",XDD,X,"= "f0XWvZW`j0GIVE COLUMN NUMBER(S) OF INDEPENDENT VARIABLE(S)jSEPARATED BY COMMA(S) :jINDEP. VAR(S). = nfoc w@X@|VD0V@V060@lwaZ X@|@X@| V.j'DUPLICATE VARIABLES GIVEN. TRY AGAIN!ZZ wa@DvX| v!@Z&X@|0X@|:wRaaDZNZXX@|bwR@aa@lwR@R@vZwR@@@vX@|Z w@@wP  j COMPUTING...@jjANALYZING RESIDUALS...&!/@.VARIABLE B(STD.V) B STD.ERROR(B) Tjv%weR@@&"@X@|vR@%@a@'@av%% %@a vR%e%@a@'@aW@jaR@&H# 3X,2D,4X,3D.4D,2(2X,D.4DE),X,3D.3D H WaP> !j*Д`%aP`%aR@&*H" X,6A,2X,3D.4D,2(2X,D.4DE),X,3D.3D4H>+j*`$aPP`$aPR@&HZRv%@a@"%WvD\X@|fX@|p.vDD!R$@a'@a%@a'@azZZ wfe%@a@@$D@@& j%f%'fH% "CONSTANT 0",4X,2(2XD.4DE),X3D.3D^ W@j2EXECUTE 'REGR' FIRST TO DEFINE REGRESSION EQUATION' W@ wP wp|&vP U\*'\`]t`wF@%@a@@jw'R@@%Fo^t~v'~w&F#'vd&&&'&"@jj/ SOURCE SS DF MS Fj j&&&H$ #,"REGRESSION",2XD.5DE,2X3D,2XD.5DEVd| jF2X3D.2Dd jF2XD.4DEdj'"@'&"@H! "RESIDUALS",3XD.5DE,2X3D,2XD.5DEjF@F&@H " TOTAL",5XD.5DE,2X3D,2XD.5DE^*`,2.'2w%@#''F<w(@"@$@#%&"@Fw(;(Pw&(Z/@?`MULTIPLE R R-SQUAREd jn%%nH "UNADJUSTED",4X,D.4D,5X,D.4Dxj&(H " ADJUSTED",5X,D.4D,5X,D.4Dj STD. DEV. OF RESIDUALS ='&"@^j0 IS NOT A VALID NAME OR NUMBER j NEED HELP f0V0@@0N^jjDATA IN COL(S). 1 TOW@j!NO NAMES GIVEN FOR VARIABLES, BUTj FOR YOUR REFERENCE :j COLUMN 1ST OBSERVATIONX@|jF 2XDD,6XD.5DEZY j THEY ARE :/@ COLUMN NAMEX@|"VPJ,j6Д`$P`$6H 2XDD,4X6A@TJj6`$PP`$PTZYj^^ v4@'RwR4 X@|@V0 X@|@V0wRR"4%R%RZZ X@|@V0 wRR$4 wRR$4Z ^XWh\ X@P8]VД`$P`$00@`^Z`VXhb X@|PdV`$P`$00@`fZhV0@`.FITTEDxl W@m"jTO USE 'FITTED' (COL.) OR 'RESIDUAL' (COL.@)nj6VALUES OF PREVIOUS REGRESSION, FIRST SAVE THESE VALUESpj'IN A COL. OF THE DATA GROUP OF COLUMNS.vxV0@`.RESIDU|zl|l~ X@|@hV00Z V,@V,lj DATA IN FIRSTCOL(S).jREGRESSION NOT EXECUTED.'wwwP ^ &d123456789101112d131415161718192021@'w@@@@@@EX|JW@T w^X@|h+w!R@$a#@a'@arZ|"w@a@!@a@%w@a@#w@@! w@@@@!@@Zw@@&X|W@ w@@ #@@Zw@@&@$w@@@@&#P @w``@@ w@^#(w`#2 r$IDA28}&r$IDA31& w`t &r$IDA38' r$IDAK'`IDA30 ˗] `& KgҔRaN JД<H(J- J^2R: 4 AUG 744R: Q1=1 FOR >STEP; =2 FOR >FORW; =3 FOR >BACKN 0  W@' W` wP@ w`x wp}r$IDA38W@ j* DEP. VAR. = ,j/* DEPENDENT VARIABLE (NAME OR COLUMN NUMBER) = ,x 01j6WT8j::H #,"NAME INVALID. NEED HELP "<f0>V0@@.Y@JTXYW@^vDcW@|hjHOW MANY INDEP. VAR. r|jHOW MANY INDEPENDENT VARIABLES fV'WX@|jH #,"INDEP. VAR.",XDD,X,"= "f0XWj:f0V0@@.YvZW`j0GIVE COLUMN NUMBER(S) OF INDEPENDENT VARIABLE(S)jSEPARATED BY COMMA(S) :jINDEP. VAR(S). = nfX@|waZ wa@D n@vX| v!@Z&X@|0X@|:wRaaDZNZXX@|bwR@aa@lwR@R@vZwR@@@U !/@.VARIABLE B(STD.V) B STD.ERROR(B) Tjv%weR@@&"@X@|vR@%@a@'@av%% %@a vR%e%@a@'@aW@jaR@&H# 3X,2D,4X,3D.4D,2(2X,D.4DE),X,3D.3D H WaP> !j*Д`%aP`%aR@&*H" X,6A,2X,3D.4D,2(2X,D.4DE),X,3D.3D4H>+j*`$aPP`$aPR@&HZRv%@a@"%WvD\X@|fX@|p.vDD!R$@a'@a%@a'@azZZ wfe%@a@@$D@@& j%f%'fH" "CONSTANT",9X,2(2X,D.4DE),X,3D.3D^X@|vj--------------------$.8Z=v@B w@@NwP PW`VR wP @V@X/@[jANALYZING RESIDUALS ...`r$IDA31X@|V@X@|vR@Z V,v"vvR@@&R%R@@v@V@ 4v",j--------------------JT^Zcv@hBv5vX|V@5v5vZ ^4 X@|@> vRH wRRR wR\Zf X@|@p vRz wRR wRZvawaawa^ X@|  Z X@| v"@ V,  x v@ v@ vR@@&R%R@@ <v@ FV@  P Z4 dv iv@ n x X@P j- Z   Z B v5@ vĞ@ X@| V>5 v5 v Z ^W@/@THE FIRST ACTIVE OBSERVATIONjH# "IS CONTAINED IN ROW",3D," OF THE"j"DATA MATRIX. FOR YOUR REFERENCE :/@COLUMN 1ST OBSERVATIONjX@|jF2X,DD,6X,D.5DEZY /@,THESE ARE THE VARIABLES IN THE DATA MATRIX : j COLUMN NAMEjX@|"VPJ,j6Д`$P`$6 H 2X,DD,4X,6A@TJj6`$PP`$PTZYj^^ v4@'RwR4 X@|@V0 X@|@V0wRR"4%R%RZZ X@|@V0 wRR$4 wRR$4Z ^wF@%@a@@w$R@@%F w%@#$'Fw5$&"@vdF#$&&$&"@jVd|j%5d H9 "MULT. R =",XD.4D,2X,"S.E. RES. =",XD.5DE,2X,"F =",3D.2Dj%5d H: "MULT. R =",XD.4D,2X,"S.E. RES. =",XD.5DE,2X,"F =",XD.4DE^X X@|P8bVД`$P`$00@`lZvVP X@|PV`$P`$00@`ZlX@|hV00Z V0.FITTEDw V0.RESIDUw@wwwP ^ &d123456789101112d131415161718192021@'w@@@@@@EX|JW@T w^X@|h+w!R@$a#@a'@arZ|"w@a@!@a@%w@a@#w@@! w@@@@!@@Zw@@&X|W@ w@@ #@@Zw@@&@$w@@@@&#P @w``@@ w@^' r$IDAN ' r$IDAK'`IDA31 ˗] +&g KgҔRaN JД<H(J- J^2R:10APR74<R:Q1=16 FOR >DURB;=19 FOR RVSF>R:ANALYZING RES. FOR IDA29,30,34O! r0@ W@j2EXECUTE 'REGR' FIRST TO DEFINE REGRESSION EQUATION'vX|W@0v@& w!@0ZbW@  lWL CwFGHX@|vF!'@@ ֏FRn8vX|W@v@V0 Z j j F $HA "WARNING: RESIDUAL IN ROW ",3D," IS ",SD.DD," S.D. UNITS FROM 0"8ZBC W@LD&LnsN v@RESIDUALVX|`W@jv@#@'@ov@t&v@@#@@'@@yv@~v@v@v@v@vrH"rH"@Zj X@@ X@@ vr@T(-27<AC v0*F v0 F v01 F v02F( v03)F- v04.F2 v053F7 v068F< v07=FA v08BFC v09FZPjZ@0@@ZH A,"!",XAXAXAXAXAXAXAXAX,"!"dZn v0FITTED YsjFXXXAXAXAXAXAXAXAXA0@@xj'v W!@v@v@X@| W!6v@"v@,@6v@@!@0|rv@|Zv@$$@"&@v@v$@&@w"& ֏Rnj2WARNING: RESIDUALS MAY BE EXCESSIVELY CORRELATED :jj OBSERVED NUMBER OF RUNS=2j EXPECTED NUMBER OF RUNS=jSTANDARD DEVIATION OF RUNS=j (OBS.-EXP.)/(STD.DEV.)=jjCHECKING AUTOCORRELATIONS... v`8@X@|v X@|"@v!!%! @Z Z X@|@ v5@&@ ֏5@ j j 5 H! "WARNING: AUTO(",DD,") =",XSD.DD Z j ' W@ & vEF X@|@ vEE!!@ vFF!!%!@ Z wt@$@"F&E!!@ wtt"!@@!!@&E!!@ j t H "DURBIN-WATSON STAT. =",2D.3D '& wP& w`| & wp}&r$IDA38' r$IDAK'`2IDA32 ˗] QB KgҔRaN JД<H(J- J^2R:12MAY74<R:Q1=7 FOR >AUTO;=8 FOR >SERC;=9 FOR >RUNSdP/V P O!3!1AQ,w@6W@`@j+STANDARD DEVIATION OF VARIABLE EQUALS ZERO;J T`TVXT j AUTO CORR. UYV j SERIAL CORR. WYX j'RUNS' Y j IS UNDEFINED.^'` T`cccUhh j5* GIVE MAX. ORDER OF AUTO (OR SERIAL) CORR. WANTED : rxwj|Wj*GIVE AN INTEGER VALUE BETWEEN 1 AND 20 FORj*MAX. ORDER WANTED = r j* MAX ORDER : r V@4P j$ORDER GIVEN OUTSIDE ALLOWABLE RANGE.vX|W@&v@ w!&Z0WH :W@D v@T  v8` T`   v! X@|" v!!v!!!!"@Z X@|@v""@!!"  v!"!"@!!"@*Z4X@|> v&"H v!!&"RZfX@|pv1AQzX@|"v11 !"@vAA ! "!@vQQ !"$! "!ZZj/@ORDER SER.CORR./@X@|jQ1$A H 3D,5X,SD.3DZ' v W!@A@ v@ v@ X@| W!A@  v@ v@  ( v@ (!@#@0 < 2v@ <Z Fv@$$@"&@ Pv@ Zv$@&@ dw"& j j OBSERVED NUMBER OF RUNS= j EXPECTED NUMBER OF RUNS=" jSTANDARD DEVIATION OF RUNS= j (OBS.-EXP.)/(STD.DEV.)= j ' X@| v X@|"@ $v !#@$! @#@ Z Z j /@ORDER AUTOCORR. L  j*-1 -.75 -.50 -.25 0 .25 .50 .75 +1  P  j)'----'----'----'----'----'----'----'----' wD wF@  X@|@ v5@&@ wDD 5$5  jF#,3D5X  jF#,SD.3D5  L - v5/5 V5T    L 5*  P '  ! V5T    P *  !  P ' L 5* !Z #j %j&S.E. OF EACH COEF. GIVEN RANDOM MODEL= &jFD.3D@& 'j )wK%D *jBOX-PIERCE STATISTIC=K + wGK'FUUU ,wH@@&H%F -wI@&H%F .jEXPECTATION GIVEN RANDOM MODEL=F /j (OBS.-EXP.)/(STD.DEV.)=G#H'I' r$IDAK'`"IDA33 ˗] l7 KgҔRaN JД<H(J- J^2R:16OCT73<R:Q1=1 FOR >SEPR;=5 FOR BCOR;=6 FOR BCOVN!2Aq N W@j2EXECUTE 'REGR' FIRST TO DEFINE REGRESSION EQUATION' W@ wP w`B  wp@r$IDA38v%'weR@@%@a@@&#P @vD X@}P !v!R@%@a@'@a&v%% !%@a0 X@}P :v2R%e&@a%@aD,vDD!R%@a'@a%@a'@aNZXZbv!@@a@"%lv2@@e$D@@&v X@}P  v2@ X@}P V0v2@2@#@a$2v2@2@#@a$2Zv2@2@ZW@ U*H\*j)WANT TO USE THE VALUES OF THE INDEPENDENT4j#VARIABLES GIVEN IN THE DATA MATRIX >fHj)USE VALUES OF INDEP. VAR. IN DATA MATRIX Rf\ jUSE DATA MATRIX ffpUzzj NUMBER OF Y'S TO COMPUTE S.E. =  j HOW MANY Y'S fjw@jjH7 " Y S.E.(FITTED) S.E.PRED.(Y)"jX@|V@@0N~jROW : xV w52@@ w!@ XĞ@}P  w !%a wA2@ XԞ@}P wAA!a$2Z w55!a%A$Z8 XĞ@}P Bw55!a$2@LZVj[55!e$@[H' #," ",D.4DE,3XD.4DE,6XD.4DE`jjPtw@~jUjX'S = jVALUES OF INDEP. VAR. X'S = j2GIVE VALUES OF INDEP. VARS., SEPARATED BY COMMAS : ngqP  w52@@ w!@ XĞ@}P  w !%q wA2@ XԞ@}P wAA!q$2 Z w55!q%AZ( XĞ@}P 2w55!q$2@<ZAjFj[55!e$@KjPZZ' R: BCOR AND BCOVvP X@|vaZW`TUjNUMBER OF DECIMAL PLACESjWANTED IN THE PRINTOUT " j # DECIMALS = "fD,V@,D4D`T6j NUMBER OF DECIMAL PLACES ALLOWED@jIS BETWEEN 2 AND 5 INCLUSIVEJTj^X@|hW@rj|| H #,"VAR.",DD,2X VPjД`$P`$H #,6A,2X j`$PP`$PX@|W` TDjF #,DD.2D,2X22$2jF #,DD.3D,2X22$2jF #,DD.4D,2X22$2jF #,DD.5D,2X22$2jF #,D.5DE,2X2Z&j0Z:v@`CONST.D j@`X X@}P bW`l TDvvv"jF #,DD.2D,2X2@2$2@@{"jF #,DD.3D,2X2@2$2@@"jF #,DD.4D,2X2@2$2@@"jF #,DD.5D,2X2@2$2@@jF #,D.5DE,2X2@ZW`'jF#,D.5DE2@@' r$IDAK'`IDA34 ˗] +, KgҔRaN JД<H(J- J^2R: 12JUN74N0   W@j.ONE OF THESE COMMANDS MUST BE EXECUTED FIRST : jREGR FORW STEP' W@ wP w`D wp}r$IDA38U,j/GIVE NAME OR COL. NO. OF VARIABLE TO BE SWEPT :6jVAR. TO BE SWEPT :"6, jVAR. : 6x0;j@XJWLj#VARIABLE GIVEN INVALID. NEED HELP Nf0PV0@@.YT^X@|W1aZj,VARIABLE NOT IN ORIGINAL REGRESSION EQUATIONjSWEEP OPERATION NOT PERFORMED' X@}P W1a Z XP @|W1aZ R: ADD INDEP. VAR. Z9wP P @ waaP  waP  { X@|@ vR&wRRP 0 wRP :ZD X@|@N vRXwRRP b wRP lZv^{vP vP @jANALYZING RESIDUALS ...r$IDA31 R: DELETE INDEP. VAR. Z9*4 waaP > waP HwP P @M vP @RW@ /@+THE FIRST OBSERVATION OF EACH VARIABLE (FORjH0 "REGRESSION) IS CONTAINED IN ROW",3D," OF THE "j"DATA MATRIX. FOR YOUR REFERENCE :/@COLUMN 1ST OBSERVATIONjX@|jF2X,DD,6X,D.5DEZY /@,THESE ARE THE VARIABLES IN THE DATA MATRIX : j COLUMN NAMEjX@|"VPJ,j6Д`$P`$6 H 2X,DD,4X,6A@TJj6`$PP`$PTZYj^^ v4@'RwR4 X@|@V0 X@|@V0wRR"4%R%RZZ X@|@V0 wRR$4 wRR$4Z ^X X@|P8bVД`$P`$00@`lZvVP X@|PV`$P`$00@`ZlX@|hV00Z V0.FITTEDw V0.RESIDUw@wwwP ^ &d123456789101112d131415161718192021@'w@@@@@@EX|JW@T w^X@|h+w!R@$a#@a'@arZ|"w@a@!@a@%w@a@#w@@! w@@@@!@@Zw@@&X|W@ w@@ #@@Zw@@&@$w@@@@&#P @w``@@^' r$IDAK'`IDA35 ˗] QI KgҔRaN JД<H(J- J^2R:12JUN744R:Q1=1 FOR>ALLS;=2 FOR>SUBSN 0  N@ W@' W` wP@ w`F wp}r$IDA38W@ j* DEP. VAR. = ,j/* DEPENDENT VARIABLE (NAME OR COLUMN NUMBER) = ,x 01j6WT8j:: H #,"NEED HELP ";<f0>V0@@.Y@JTXYW@^vDcW@|hjHOW MANY INDEP. VAR. r|jHOW MANY INDEPENDENT VARIABLES fV`j'NUMBER OF INDEP. VAR. MUST BE 6 OR LESShV'WX@|jH #,"INDEP. VAR.",XDD,X,"= "f0XWj:f0V0@@.YvZW`j0GIVE COLUMN NUMBER(S) OF INDEPENDENT VARIABLE(S)jSEPARATED BY COMMA(S) :jINDEP. VAR(S). = nfX@|waZ wa@DvX| v!@Z&!&X@|0X@|:wRaaDZNZXX@|bwR@aa@lwR@R@vZwR@@@^W@Uj"DEP. VAR. WILL BE REGRESSED ON ALLj'POSSIBLE COMBINATIONS OF K INDEP. VARS.jK =  jSUBSET SIZE = g W,j  H% "SUBSET SIZE SHOULD BE LESS THAN",3D* R: HAM VECTOR H n@(@ v@(@X@| v@(@v@X|~vZZn&XĞ@|v V$vL$v@LvVXƞ@|`v jZtW@~V1 Xƞ@P j-Z  Z w@' wF@%@a@@ w$R@@%F w%@#$'F w5$&"@ vdF#$&&$&"@ j j %5d H9 "MULT. R =",XD.4D,2X,"S.E. RES. =",XD.5DE,2X,"F =",3D.2D v"@&"@%5@ j 5@$"@&7"@$@  H: "(MALLOW'S CP =",5D.2D," ; HOCKINGS'S JP =",5D.2D, ")" ^ !/@.VARIABLE B(STD.V) B STD.ERROR(B) T j v% weR@@&"@ X@| V` vR@%@a@'@a v%% %@a vR%e%@a@'@aW@.jaR@&H# 3X,2D,4X,3D.4D,2(2X,D.4DE),X,3D.3D$`. WaPV8!jBД`%aP`%aR@&BH" X,6A,2X,3D.4D,2(2X,D.4DE),X,3D.3DL`V+jB`$aPP`$aPR@&`Zjv%@a@"%tvD~X@| VX@| V.vDD!R$@a'@a%@a'@aZZ wfe%@a@@$D@@& j%f%'fH" "CONSTANT",9X,2(2X,D.4DE),X,3D.3D^W@ /@+THE FIRST OBSERVATION OF EACH VARIABLE (FORjH0 "REGRESSION) IS CONTAINED IN ROW",3D," OF THE "j"DATA MATRIX. FOR YOUR REFERENCE :/@COLUMN 1ST OBSERVATIONjX@|jF2X,DD,6X,D.5DEZY /@,THESE ARE THE VARIABLES IN THE DATA MATRIX : j COLUMN NAMEjX@|"VPJ,j6Д`$P`$6 H 2X,DD,4X,6A@TJj6`$PP`$PTZYj^^ v4@'RwR4 X@|@V0 X@|@V0wRR"4%R%RZZ X@|@V0 wRR$4 wRR$4Z ^X@|Z"w$R@@$@%@a@@ v7$&"@^X X@|P8bVД`$P`$00@`lZvVP X@|PV`$P`$00@`Zl X@T hV00ZV0@`.FITTEDwP V0@`.RESIDUwT wwwP ^ &d123456789101112d131415161718192021' r$IDAN ' r$IDAK'`IDA36 ˗] t KgҔRaN JД<H(J- J^2 R: VERSION 9/18/72N!2 W@ r$IDA29i W`, wP@ w`H  wpK"r$IDA38,U66^6j2LET N1 = NO. OF VARIABLES IN PARTIAL CORR. MATRIX,@j1AND N2 = N0. OF GIVEN VARIABLES FOR EACH PARTIAL.Jj*GIVE VALUES N1, N2, SEPARATED BY A COMMA :Th^ j N1, N2 = hfr V P |jN1+N2 MUST BE 20 OR LESS^UjH' "COL. NOS. OF FIRST",3D," VARIABLES :" j LIST 1 = nf!X@|v!ZUjH( "COL. NOS. OF SECOND",3D," VARIABLES :" j LIST 2 = nf!&X@|0 v !:ZXv bX@|lX@|vv2ZZ X@| v4@&2v24X@|V0 X@|V0v22"4$2$2Z ZZUjNUMBER OF DECIMAL PLACESjWANTED IN THE PRINTOUT  j # DECIMALS = fDV@,D4D`@"j NUMBER OF DECIMAL PLACES ALLOWED,jIS BETWEEN 2 AND 5 INCLUSIVE6@jj.PARTIAL CORRELATION MATRIX GIVEN VARIABLE(S) :W@ X@|jH #,DDD,3XZl X@| VP:j&Д`$P`$&H #,6A,3X0b: j&`$PP`$PbZl/@X@|W@j H #,"VAR.",DD,2X4 VP* jД`$P`$H #,6A,2X 4* j`$PP`$P4X@|H TDRRfzRjF #,DD.2D,2X22$2\fjF #,DD.3D,2X22$2pzjF #,DD.4D,2X22$2jF #,DD.5D,2X22$2ZjZ' r$IDAK'`IDA37 ˗] +3 KgҔRaN JД<H(J- J^2R:17SEP73N110  W@j#REGRESSION EQUATION NOT YET DEFINEDj%EXECUTE ONE OF THESE COMMANDS FIRST : jREGR FORW STEP' W`, wP@ w`J  wpK"r$IDA38,X|- w@.Z1X|6W@@ZJj3WARNING: DELETED OBSERVATION IN DATA MATRIX MAY BEj,SELECTED IN SAMPLE. DO YOU WISH TO PROCEED f0V0@@0N'jNO. OF SUBSAMPLES WANTED = f/@vj H #," S N "X@|V@V@@@@ ja H #," B(",DD,") "  j j  H #," "  Zjj H #," S.E. R"/@XŞ@|vX|& v0V@X: w@@Dv@NbX w@bZl V"`vv@Vdj!TOO FEW OBSERVATIONS FOR SAMPLINGjEXECUTION OF SAMP DISCONTINUED' X@|@v1X|W@v11!aZ v11&Z j(ROWS = X|W@jH #,DD,XZj) X@|@*X@|4 wR>X|HW@\R wRR a"1$a"1\Zf wRRpZu w1RzZ| X@|@}X@|~wRR1%1 wRRZZX@|ZjF #,DD,2X,DD,2Xv%X@|vR@1@'1v%% $1V@V@@@@!jH #,D.3DE,X )!j"j## H #," "$)Z. v%1@"%8j%Bw'R@@%1@Lw%@#''1@Vj`'&"@`H #,D.3DE,Xjjt%tH #,D.2D~/@ZX| w@Z w@@/@j$DATA MATRIX BEFORE 'SAMP' RECOVERED. ' v4@'RwR4 X@|@V0 X@|@V0wRR"4%R%RZZ X@|@V0 wRR$4 wRR$4Z ^' r$IDAK'`IDA38 ˗] QSj KgҔRaN JД<H(J- J^2R:13MAY74<R:UPDATING $IDA'S OF LINES 5024-5040 O!  j UPDATING  W`& w`& WP@0 jCORR. MATRIX...X@|X@|V0$ v.X|8W@`Bv#@'@Lv$#@'@V v $$`Zjv&@t v~ v@ZZ^ R: NO. OBS. IN COL.vX| v!@Z^ W@ j,REGRESSION...vX| v!@ZX@| X@|wRaa Z*Z4X@|>wR@aa@HwR@R@RZ\wR@@@fvpX@|zZ w@@wP  L w@jjANALYZING RESIDUALS...  v4@'RwR4 X@|@V0  X@|@V0wRR"4%R%RZ Z  X@|@ V0 8 $ wRR$4 . wRR$4 8Z B^ L'w@@@@@@ VX| `W@ j w tX@| ~+w!R@$a#@a'@a Z "w@a@!@a@% w@a@# w@@! w@@@@!@@ Z w@@& X| W@ w@@ #@@ Z w@@,&@ w@@@@&"@ w``@@ ^ R: ANALYZE RESIDUALS v X| W@ v@ w!@ Z wFGH X@| vF!'@@ & ֏FRn 0v :X| DW@ b Nv@ XV0 l bZ lj nj vF v$HA "WARNING: RESIDUAL IN ROW ",3D," IS ",SD.DD," S.D. UNITS FROM 0" Z v W!@ v@ v@ X@| W!  v@ v@  v@ !@0 v@ Z *v@$$@"&@ 4v@ >v$@&@ Hw"& R ֏Rn Wj \j2WARNING: RESIDUALS MAY BE EXCESSIVELY CORRELATED : fj pj OBSERVED NUMBER OF RUNS= zj EXPECTED NUMBER OF RUNS= jSTANDARD DEVIATION OF RUNS= j (OBS.-EXP.)/(STD.DEV.)= j jCHECKING AUTO CORRELATIONS... v`8@ X@| v X@|"@ v!!%! @ Z Z X@|@ v5@&@ ֏5@jj5H! "WARNING: AUTO(",DD,") =",XSD.DDZwpj W`d #A W`` #@ W`p #D W`t #E W`x #F W`N #O W`p&T`x #G'#I#J#K#L#M'#@r$IDA24#Ar$IDA25#Dr$IDA28#Er$IDA29#Fr$IDA30#Gr$IDA31#Ir$IDA33#Jr$IDA34#Kr$IDA35#Lr$IDA36#Mr$IDA37#Or$IDA39& r$IDA903' r$IDAK'`,IDA39 ˗] y KgҔRaN JД<H(J- J^2R:13MAY744"R:Q1=1 FOR>NAME;=2 FOR>SCAT;=3 FOR>NORM;=4 FOR>PLTS;=5 FOR>HIST6R:Q1=6 FOR>FREQ;=7 FOR>AUTO;=8 FOR>SERC;=9 FOR>RUNS8R:Q1=11 FOR>MSOR;=15 FOR>CTAB;=16 FOR>MTABdN  0 @P`eWxnfW@ngjWANT EXPLANATION hf iV @@0Nnj'nw@Hx W@'U'TP'''w`MSORW@k`+ CANNOT BE EXECUTED AFTER 'DIFF' OR 'LAGG'.'w`SCATw`CTAB wH@w@V@w`MTABw`V`k` NOT POSSIBLE WITH FEWER THANCOL(S). OF DATA.'RV]R: # OBS.?vvvV]j6 CAN'T EXECUTE 'NORM' WITH MORE THAN 375 OBSERVATIONS.'j!CHOICE OF 'DEPENDENT VARIABLE' :  wh@ w@ wH@j6CHOICE OF VERTICAL AND HORIZONTAL VARS., RESPECTIVELY: vP * VARIABLE : v@: ,v@ON THE VERTICAL AXIS : vP* VERT. VAR. : ,U11r1j.* GIVE NAME OR COLUMN NUMBER FOR THE VARIABLE 6WP@;U@EEEETJJJ2@ UP^222hTE jTO BE PLOTTED Jj@OwTjTO BE TABULATED : Yw^ jTO BE SORTED : cwhjTO BE TABULATED @mwrjPwx 0|jW j NEED HELP f V @@0NrrV0@@0HELPV0@@0? WH W@w@v@ON THE HORIZONTAL AXIS :  vP* HORIZ. VAR. : ,wHw@W@*@7H*@ W@ wP w`N  wp@`j&W@  WHjU@X&&&&&&2 UP&222&&'WRXR:>SCATZv\v^`wXbR:Q(11) IS TOTAL # OF ACTIVE ROWSdUffhfj'USE ALL ACTIVE ROWS FOR SCATTER PLOT ? gjh j* ALL ROWS ? jP0ljnWrojPLEASE ANSWER YES OR NO.pfrV0@@0?otV0@@.NjFIRST ROW, LAST ROW fV? j@H "ROWS 1 TO ",3D," UNDEFINED." j TRY AGAIN!V@j)FIRST ROW CANNOT BE LARGER THAN LAST ROW.V@jNO DATA IN ROWS BEYONDvX|W@vZjTOBLOCK HAS NO ACTIVE ROWS.'vvw`R:Q(12) IS # OF ACTIVE ROWS I3 TO I4whp v@ vHX@|W@whh!@"wpp!H"Zwh!h&wp!p&V@wx@ vX|W@v @#h@v H#p@Zwx&@w@ &@vv/@W@ w@ <v@@` OF ' ' VS. ' ' v@PP0wH< v@H \ 0 v@@@` v@ V140$ w`"&$wX&jSCATTER PLOT OFSTANDARDIZED VALUES @(&RR:>NORMw@ wH4W@B<v@@X OF ' '$ v@PP0. v@@@X8LBv@ Lj#NORMAL CUMULATIVE PROBABILITY PLOT @V&`RR X| W@ w4 v  Z X@| W@ W4A w4  V? v Z w4#4&@ R:S=STUDENTIZED RANGE ^ R<WXdFwPPv0`%P`%Zndv0Д`%P`%n^$/@%DATA MATRIX HAS VARIABLE(S) IN FIRST  COLUMN(S)W@j!NO NAMES GIVEN FOR VARIABLES, BUTj FOR YOUR REFERENCE :j COLUMN 1ST OBSERVATIONX@|jF2X,DD,6X,D.5DEZY j THEY ARE :/@ COLUMN NAMEX@|"VPJ,j6Д`$P`$6 H 2X,DD,4X,6A@TJj6`$PP`$PTZYjZ W@^[j'FITTED' VALUES IN COL.\j'RESIDUAL' VALUES IN COL.@]j^^W@ X@P8VД`$P`$00@`zZVX X@|PV`$P`$00@`ZV0@`.FITTEDw@V0@`.RESIDUw@@l X@|@h V00*Z f* V,@z4V,\>w@ W@@Bj( NO FITTED OR RESIDUAL VALUES AVAILABLE DV`GFjUNTIL REGRESSION EXECUTED.GjH'\ jNO DATA IN COL.^`'fwkj0 IS NOT A VALID NAME OR NUMBERpzwwP ^R:>NAME'vX| v!@Z^#(&d123456789101112#2d131415161718192021&r$IDA02&r$IDA03&r$IDA04&r$IDA05&r$IDA06&r$IDA11&r$IDA15&r$IDA16&r$IDA32&r$IDA38' r$IDAN *'r$IDAE15' r$IDAK'`*IDA40 ˗] +94 KgҔRaN JД<H(J- J^2R:29MAY744R:UPDATING MEANS AND STD.DEV.(S) OF COL(S). J1 TO J2dN 0@ njxV' w`@R: UPDATING WHEN COLS.I3 TO I4 APPEND OR REPLACE J1 TO J2Rv@vvX| W@V*#(ZjUPDATING MEAN, STD.DEV....v:R: COMPUTE Z, THE NEW Q4, AND COMPARE TO OLD Q4 w`@ X@| w;`Zw@z X|"$Z*W1r/4W+\>R: DELETE 1 OR MORE ROWS IF Q4 < Z@ X|@HVJZRr\R: RECOVER 1 OR MORE ROWS IF Q4 > Z^ X|@fhZrX@|t,vZxjyW1zw|jOBSERVATIONS IN FIRST@ROWS NOW UNDEFINED.~ W@ w@@W@jj GIVE NAME(S) OF NEW VARIABLE(S) X| Zj V,@jWARNING! DATA MATRIX FULL.j' R j  H #,"VAR.",XDD,X f@ VP vД`$P`$@@`   v`$A`$x @@` ^\RfRzX||W@@~Z^R:COMPUTING MEAN,STD.DEV.vv X@|v!@$"Zv &vX|W@v "@Z w@w@&@^8R: DEL.OBS.VW@~[X@|`!w@%@&@#&@ew4@%@@jw44"#@@$@&ow@4&@tZyv@~^RR: ADD OBS.W@X@|!w@%@&@!&@w4@%@@w44 #@@$@&w@4&Zv@^R R: # OBS. IN COL.vX| v!@Z^,W@h.W@r1v4@'@6V4Qr;j@/@FOR VAR.,ABS.(STD.DEV./MEAN) IS4LjMEAN IS @Nj STD.DEV. IS @Tj(WARNING! ROUNDING ERRORS MAY BE LARGE.UW`Z 7@rVj5YOU MAY WISH TO RECODE THE ORIGINAL DATA BY ADDING ANXj0APPROPRIATE CONSTANT (POSSIBLY NEGATIVE) TO EACHZj'OBSERVATION AND THEN RE-ENTER THE DATA.^rhjmjCOL. IS A CONSTANT EQUAL TO @r^#'R#(R:WIPING OUT REGRESSION IF J IS IN MAT V#2 X@|@#<V/a##F##Z# R:J NOT IN MAT V#$T##j>THE FITTED AND RESIDUAL VALUES FROM THE CURRENT REGRESSION OF:#jTHE DEPENDENT VARIABLE IN COL.a@#j)ON THE INDEPENDENT VARIABLES IN COL(S). :#X@|$ka,$wa$VPP$,$"j$,Z$@ wa@$Bw@@$J X@|`$Lw@$NZ$Pj1HAS BEEN ERASED BECAUSE YOU REPLACED DATA IN COL.$T^$UR&r$IDA12' r$IDAK'`IDA41 ˗] Q[ KgҔRaN JД<H(J- J^2R:29MAY744R: COMPUTING MEANS AND STD.DEV.(S)dN 0@ njxV' w`@ W@. W@vvv@v W`^ V0R:UPDATING FOR DELB,RETB,RECO,SELRR:UPDATING FOR APPO,APPBv: j UPDATING Z"$R: COMPUTING MEAN AND STD.DEV. FOR ALL ROWS 1 TO N AND ALL COL(S).,#R: 1 TO K. Q(1) STILL 0. FOR ENTE,ENTS,ENRA, AND SOMETIMES CRSP,- R: RAND, AND INDEX.v@2v6X@|@ w@@JZOw@TjDATA MATRIX HASOBSERVATIONS ON VARIABLE(S)VjX j COMPUTING ZjMEAN(S) AND STD.DEV.(S)...\z^`X@|bd,fZhjj W@l w@@mR:IF >ENTE,Q2=24, CHECK FOR NAMESnW`\ 7`@popWrjtjNAMES READ FROM DATA FILE ARE:vX@|xVP~zjД`$P`$|~wPj`%P`%ZjjWANT TO SUPPLY NEW NAMES(S) jwUj3YOU MAY GIVE EACH VARIABLE A 1 TO 6 CHARACTER NAME.!j:YOU ARE STRONGLY URGED TO SUPPLY NAMES FOR YOUR VARIABLES. j8IF YOU DO, SEQUENCE PLOTS, TABLES, ETC. WILL BE LABELED."jRAND N@   jWANT EXPLANATION f V @@0N w`Z wpPR:WILL CHAIN TO EXPLANATION PROG.v6UjWANT LIST OF SUBCOMMAND NAMES f V @@0N^jDISTRIBUTION COMMANDj------------ -------j CAUCHY CAUCj CHI-SQUARE CHISj GAMMA-1 GAMM"j LOG NORMAL LOGN,j NORMAL NORM6j UNIFORM UNIFBj AUTOREGRESSION ARG1C j AUTOREGRESSIVE-D j INTEGRATED-Ej MOVING AVERAGE ARMASj NONE OF ABOVE NONETU^^^#/@0*WHICH DISTRIBUTION DO YOU WANT TO SAMPLE FROM ?hx @rj|Wv66@/@*DIST = x @jWV6@^V@@@0CAUCV@@@0CHIS V@@@0GAMM V@@@0LOGN V@@@0NORMV@@@0UNIFV@@@0HELPV@@@0NONE'V@@@0ARG1 V@@@0ARMAp&R0R:RCV@0?D jINVALID COMMANDNTR:DETERMINE COL. TO PLACE SAMPLE W@j IDA DATA MATRIX NOW HAS:  ROWS  COLUMN(S)W@j BUT THE FIRST@ROWSj6ARE UNDEFINED AND UNAVAILABLE FOR PLOTTING OR ANALYSISj,BECAUSE OF PREVIOUS USE OF 'DIFF' OR 'LAGG'.vX@|W@v@ZR: NO DELETED ROWS IN X MATUj' WANT TO ERASE ALL DATA AND START OVER  j ERASE f V @@0N W~  X@|` X@|@ wZZo`@onӟ wAv@V0"j;YOU MUST FIRST 'RECOUP' YOUR DELETED ROWS OR ERASE ALL DATAjBEFORE USING 'RAND'.' U   j(* IN WHICH COLUMN DO YOU WANT THE RANDOM j"SAMPLE BE PLACED ? GIVE NUMBER : j* COL. # TO PLACE SAMPLE : xjW" j@ H: "TO PLACE SAMPLE IN A NEW COLUMN, TYPE THE NUMBER : ",XDDjH1#,"OTHERWISE,GIVE A NUMBER BETWEEN 1 AND",XDD,":" " V@@4,$jNUMBER GIVEN TOO LARGE&^R: DETERMINE SAMPLE SIZE W@Utj* SAMPLE SIZE (N) = x $j.WL8j&N IS THE NUMBER OF ITEMS IN THE SAMPLEBLV@Vj``H&"N MUST BE LESS THAN OR EQUAL TO",XDDDb j8BUT YOU CAN USE 'RDIM' TO INCREASE THE MAX. SIZE TO 563.jtj* N = ~^R : DETERMINE EITHER PARAMETER R OR DFvD@Uj* VALUE OF PARAMETER R : ,j* R = ,"vD@,x &6j@WJTDTT j R-1^j! F(T)=L*(L*T) EXP(-L*T)/(R-1)!hj'T>0, WHERE R IS A POSITIVE INTEGER < 50rj AND L IS A POSITIVE REAL NUMBER.| jVALUE OF R IS : ,jNO. OF DEGREES OF FREEDOM : , W&& W&7&d jVALUE MUST BE AN INTEGERTD|jVALUE MUST BE BETWEEN 1 AND 50TD|^ R:CAUCHY DISTRIBUTIONU jWHAT IS THE VALUE OF THE MEDIAN j MEDIAN = f U**>*j* VALUE FOR SCALE S = 4H> j * SCALE = Hx 4Rj\Wzfj+THE SCALE S IS SUCH THAT P(M-SRAND N@   &O<q `q A a 1 !  U@pR : AR(1)v\UFj(MEAN, STANDARD DEVIATION, BETA1, BETA2 =f4&'W4Z("j:STANDARD DEVIATION MUST BE POSITIVE. STANDARD DEVIATION = 2g4<FjM,S,BETA1,BETA2 = PZ^\ v&&@"'^ w64@"'$'_j PROCESS MEAN= PROCESS S.D.=6ajGIVE FIRST OBSERVATIONbfc w@dX@|n wx ww@d%w& '%@ !%4Z#(pR:ARMAr R:2FEB74 BY WM.WECKERtRv R VARIABLE LISTx#R A = CUMULATIVE SUM OF AUTOREGRESSIVE TERMS FOR AN OBSERVATIONzR B = FACTORIALS (VECTOR)|R C = DIFFERENCING COEFFICIENTS~R D = NUMBER OF DIFFERENCES R D0 = DELTAR F = PHI VECTOR OF UNDIFFERENCED SERIESR F0 = COLUMN OF DATA MATRIX WHICH CONTAINS THE SERIES R F$ = DATA FILER G = PHI VECTOR OF DIFFERENCED SERIES#R M0 = CUMULATIVE SUM OF MOVING AVERAGE TERMS FOR AN OBSERVATIONR N0 = NUMBER OF OBSERVATIONS!R P0 = NUMBER OF AUTOREGRESSIVE TERMS IN DIFFERENCED SERIES!R Q0 = NUMBER OF MOVING AVERAGE TERMS IN DIFFERENCED SERIESR S = VARIANCE OF WHITE NOISER T = THETA VECTOR OF DIFFERENCED SERIESR W = WHITE NOISE (LAST Q0 VALUES)R W9 = CURRENT WHITE NOISE DISTURBANCER Z = INITIAL P0+D+50 DATA VALUESRRR R INPUT PARAMETERSRvevjP,D,Q=gD W DP5Pj,PROBLEM TOO BIG--P+D AND Q CAN BE AT MOST 10vuWX@} jPHI()=fqvuu qZVu@j0THE SUM OF THE PHI'S CANNOT EQUAL 1. TRY AGAIN.WX@} jTHETA()=gAZjDELTA=fE jSIGMA-SQUARED=g4RR COMPUTE BINOMIAL COEFFICIENTSR OF DIFFERENCE FORMULARv!@1@1D@@VD X@|D v!!@$ZX@|Dv1!D&!@$!D"@Z X@|D@ v1D"@@(@$1D"@ZRR IF P0D$X@|DvqZR R COMPUTE FIRST D AUTOREGRESSIVE PARAMETERS"R$VD8&X@|D( va1D"@*X@|,vaa 1D" @$q.Z0Z2R4R COMPUTE AUTOREGRESSIVE PARAMETERS D+1 THROUGH P06R8W@DR:XD@}<v"D@>va@ X@|D@Bvaa 1$q DZFZHRJ!R COMPUTE FINAL AUTOREGRESSIVE PARAMETERS [START WITH LARGERL!R OF P0+1 AND D+1 TO AVOID REPEATING PARAMETERS CALCULATED N R PREVIOUSLY]PRR v:D@TV+ DdVX} DXv#@Zva\X@|D"^vaa 1$q"D @`ZbZdj$ DATA GENERATION NOW IN PROGRESS...fRhR INITIALIZE FIRST OBSERVATIONSjRlwu D;n W D~o w$E&@"upX@}urwe$tw$vZxRzR GENERATE FIRST Q0 VALUES OF WHITE NOISE|R~WYE@} wl  wl w@d% wqE4[ERR ACTUAL DATA GENERATIONR YEu@|d v՞RR GENERATE CURRENT DISTURBANCER wl  wl w@d%w~4RR DOES PROCESS HAVE AUTOREGRESSIVE TERMS?R W DRR ADD AUTOREGRESSIVE TERMSRX@} D WEd ! D v a%E"Nv a%Ed "eZRR DOES PROCESS HAVE MOVING AVERAGE TERMS?RWRR ADD MOVING AVERAGE TERMSRX@} v#A%qZRR DATA OBSERVATION IS SUM OF AR TERMS, MA TERMS, R DELTA, AND CURRENT DISTURBANCERRv E!~RR UPDATE WHITE NOISE VECTORRW@W X@~@ wqq@Zwq@~R !R FIRST 50 OBSERVATIONS THROWN OUT TO REDUCE INITIALIZATIONR EFFECTSRWEd  wEd e W@@wEd @@ WEd ! DwE[E ve#(#'R:CHAIN TO IDA912 FOR UPDATING#(v#* w`#,w@`Z &r$IDA912' r$IDAK'`NIDA46 ˗] Qc KgҔRaN JД<H(J- J^2R:2APR744R:Q1=1 FOR>RDIM;=2 FOR>ZERS;=3 FOR>ZERC;=4 FOR>ZERRd N0 xU|pjW@jWANT EXPLANATION f0V0@@0YU jIDA CURRENTLY HAS:j)A DATA MATRIX WHICH CAN HOLD A MAXIMUM OFj OBSERVATIONS ON@ VARIABLES INj ROWS AND@COLUMNSj& PLUS 3 ROWS FOR 'STATISTICS-KEEPING' W~ 6 jA SCRATCH PAD WITHj `ROWS AND~ COLUMNS6#(@UJJ"j-* GIVE MAXIMUM NUMBER OF DATA ROWS WANTED: j* MAX.NO. ROWS = x jWj V4氯j4NUMBERS OF ROWS AND COLS. MUST BE POSITIVE INTEGERS. j START OVER!j#IDA CANNOT TAKE MORE THAN 563 ROWS.jJVF`vwF&`w`wL 9v@ w~ V]"jWITHROWS YOU MAY HAVE A MAXIMUM OFCOLUMNS FOR DATA.j%j* WANT TO SET ASIDE ANY OF THECOLUMNS IN A SCRATCH PAD ? x 0jW  j NEED HELP f0V0@@0N " V0@@0N*V0@@0Y4V0@@0? Uj0HOW MANY COLUMNS DO YOU WANT IN THE SCRATCH PAD j# OF SCRATCH COL(S). = gw@WA#jCAN'T HAVE MORE THANOF THECOLUMNS IN THE SCRATCH PAD.w~  v#~ @wo``$o.nӟBvД@x  LvД| x  Vv@H $ `vJ B jVH~!v@`@@` FITTEDRESIDUVPvДn x FITTEDv@`RESIDUv`$A`$l  FITTEDRESIDU W~ l X@}~ W`V. vSCR.00h0 0@ v``0 vP`0w@ WPv`%P`% wPv`%P`% Z ^ d12345678910d11121314151617jU<<j&THE DATA MATRIX NOW HAS DIMENSIONS OF:#jROWS AND@COLUMNS.( W~ P-jTHE SCRATCH PAD HAS:2j`ROWS AND~ COLUMNS.7P<j DATA DIM. AREBY@A W~ PFjSCRATCH PAD IS`BY~ PjUVK@'ZjYOU CANNOT EXECUTE:_"j;1. 'PSORT' WITH LESS THAN 4 COLUMNS OR MORE THAN 300 ROWS.dV]}ij#2. 'NORM' WITH MORE THAN 375 ROWS.nVp}s"j;3. REGRESSIONS OR 'SORT', 'RANK', OR 'SCAT' WITH LESS THANxj$ 2 COLUMNS OR MORE THAN 450 ROWS.}j'R:>ZERS W~ j%YOU DON'T HAVE A SCRATCH PAD TO ZERO.' w@ X@|`X@|!~  wZZ jALL VALUES IN THE`ROWS AND~ COL(S).j!OF YOUR SCRATCH PAD ARE NOW ZERO.jW@''{R:>ZERC| W~ ~jj3WHICH COL. OF YOUR SCRATCH PAD DO YOU WANT TO ZERO fV4A~ j!GIVE A POSITIVE INTEGER LESS THAN~ @V' V@v@  X@|` wZ v"@jALL VALUES IN COL.oR:>ZERRp W~ zrzj2WHICH ROW OF YOUR SCRAhTCH PAD DO YOU WANT TO ZERO fV4,@j!GIVE A POSITIVE INTEGER LESS THAN@zV' Vw@X@|!~  wZjALL VALUES IN ROW'"j"j1NORMAL MAXIMUM DIMENSIONS OF IDA DATA MATRIX ARE:"j 100 ROWS AND 19 COLUMNS,"jBUT, USING 'RDIM', YOU MAY :" jASK FOR AND GET"j******* **********"j563 ROWS 1 COLUMN" j 450 2" j 374 3" j 300 4" j 280 5" j 203 8" j 171 10" j 122 15"#<"U""j3SOME OF YOUR COLUMNS CAN BE PUT IN A SCRATCH PAD OF"j21 OR MORE COLUMNS AND 3 + THE NUMBER OF DATA ROWS." j8NO COMPUTATIONS WILL BE DONE ON THE SCRATCH PAD NUMBERS,""j;BUT YOU MAY CHANGE OR MOVE THESE NUMBERS USING THE COMMANDS"j,'APPS', 'MOVE', 'ZERS', 'ZERC', AND 'ZERR'."j5YOU MAY ALSO SPECIFY A COLUMN IN THE SCRATCH PAD WHEN"j'USING 'CATE', 'SELR', 'PRTS', OR'FPRS'.#j#"^#(j* WANT MORE DETAILS ? #-w@#2#P#<w@#AW@7@P##F j* MORE ?#P0#Zj#nW##x jPLEASE RESPOND:#j"NO, FOLLOWED BY A CARRIAGE RETURN,#j) IF YOU DON'T WANT ANY MORE EXPLANATION#!j9WITH A CARRIAGE RETURN ONLY IF YOU WANT MORE EXPLANATION.##F#V00##V0@@0Y##V00N##V0@@0?#x# jINVALID RESPONSE.##x#w@#j#^' jCOMMAND NOT EXECUTED.' r$IDAK'`hIDA47 Η]  KgҔRaN JД<H(J- J^.JP2R:13JUN744R:Q1=1 FOR>APPO;=2 FOR>APPS;=3 FOR>APPV;=4 FOR>APPBdN0@ `fjh w`^ nUprtvpvPAPPOqrvPAPPSstvPAPPVuvvPAPPBW@jWANT EXPLANATION f@V@@@0N&p*W@ W~ j'WANT TO USE 'APPS' WITH DATA SUBMATRIX f@V@@@0NX WITH SCRATCH PAD f@V@@@0N' j@~ w`w`w~ @ W@'Ux j DATA NOW IN  jB@ww@w@W@ jD@jF@jU,j* MODE OF INPUT IS 6 j * MODE = "6,j-* MODE OF INPUT : FROM 'FILE' OR 'TERMINAL' ?6x @;j@W^Jj+RESPOND 'F' FOR FILE OR 'T' FOR TERMINAL : T6^V@@@0FhV@@@0Tr jRESPONSE INVALID|JjU jNAME IS jNAME OF INPUT FILE IS f`D`@W@j CANNOT FIND '`'. CHECK YOUR SPELLING! V`@j^jNOT ENOUGH OR NO DATA IN '`'.jIT'S PROBABLY ALL MESSED UP.'w@w@8@ V,@jHP!j7* COLUMN NUMBER OF DATA MATRIX TO PLACE NEW VARIABLE :x jWjJjLjNV' Vs334,fffV*jHPjPV@@@0TXX@| h@Z jDATA FOR COLUMN X@| jROW  gZv w` w@`&xw| w@8~V,jHP$j>* ROW NUMBER OF DATA MATRIX TO PLACE NEW OBSERVATION VECTOR :x jWjJjLjNV' V+fff4-fffjPV@@@0TXX@| h@Zj DATA FOR ROW : nfX@| wZ w@@v w@&@w@DjFW@JHj*GIVE TWO VALUES, SEPARATED BY COMMAS, FOR:Jj(FIRST COL., LAST COL. OF NEW NUMBERS : PfR V6' ^V@f`jTbjNdJf Vs334-fffph jFOR FIRST COL., jjJljMnbpW*trw@t Vs334-fffzv jFOR LAST COL., xjzW,|v @~v @V@jj#FIRST ROW, LAST ROW OF NEW NUMBERS f V6' V@jTjNV+fff4+fffW@'  jD@jF' W*W@ V+@ jLAST ROW TOO SMALL V,@jFIRST ROW TOO LARGE V@40ww V-fff j FOR LAST ROW,jJW*W*j$IF FIRST AND LAST COL.(S) ARE NOT 1,v@vj jNEW NUMBERS WILL BE ENTERED IN: jROWSTO, W* j DATA COL.(S)TOjSCRATCH COL.(S)"@TO"@ j , BY ROWS.V@@@0T&XX|X| h@ Z"Z$:& j DATA FOR: (X|* jROW : , nf"@.v0X|2v@4 w6Z8Z:W*b<X|> w@@@ZBW@LDvFvHB w@J&LwHNwPP w@`RvTvVV*&XX|Zw`@8`\Z^R:CHAIN TO IDA912 FOR UPDATING N,K,Q4,MEANS, STD.DEV.`&bW@'d!j9'PRTS' OR 'FPRS' CAN BE USED TO PRINT OUT SCRATCH VALUES.f'wwv@XU]]b]j1* WANT TO DELETE FIRST TWO ELEMENTS OF INPUT FILE^j BEFORE DATA VALUES ARE READ ? _lbj* DELETE 1ST TWO VALUES ? lP 0qjvWj/IF THE FIRST TWO ELEMENTS OF YOUR DATA FILE AREj2VALUES FOR N AND K (SIZE OF DATA MATRIX TO FOLLOW)j3THEN YOU WILL WANT THEM DELETED HERE. IF YOUR FILEj&CONTAINS DATA ALONE, THEN ANSWER 'NO'.bV0@@0HV0@@0?V0@@0NV0@@0Yj.RESPONSE INVALID. ANSWER 'YES', 'NO', OR '?'.bh@^@H$ "SCRATCH PAD NOW HAS ",2D,"COL.(S)"B$HA "FIRST ",3D," OF ",3D," ROWS AND FIRST ",2D," OF ",2D," COL.(S)"DH! #,"FIRST ",3D," ROWS UNDEFINED "FH/ "BECAUSE OF PREVIOUS USE OF 'DIFF' OR 'LAGG'."H#H@ "USE OF ",4A," WILL ERASE PART OF CURRENT DATA. WARNING ONLY!"JH" "NUMBER SHOULD BE ",3D," OR LESS"LH "BUT NOT LESS THAN ",3DMH "BUT NOT LESS THAN 1."N H "TRY AGAIN!"PH2 "REMINDER: LENGTH OF INPUT VECTOR SHOULD BE ",4DTH+ "FIRST NUMBER CANNOT BE LARGER THAN LAST."&r$IDA912&r$IDAE47' r$IDAN ' j'P' NOT EXECUTED.' r$IDAK'`BIDA48 ˗] +J KgҔRaN JД<H(J- J^2R:21MAY744R:>CALC<W@_Z _N2!212H@ cwtxd v@ 0123456789enfn#gn3hw$Di jRn v@x>v@@$`@ D D"@$@ d P X@t"j Z V@j-v`V@j0JvX@@~@j,JZVDDj."vD`'v`,J6 vD``@v@CJDWtFEjF^Jv$@T vd^vd$Pc vd$P$h V46@|r j@@@| VP46@ j@@@V` j@@@^R--A=B+C v$!@ v41@vV!@$1@&X@|$:40v !$@$ 1$@4: v|D v}$NZXVBlbv@lv@"B!@v^v@$"4@ X$@~@!"1@Z v@@^v@X@|$:4v !$$>"1$4>$ v v}$ZX@@~@ V Z v@$!@*^4R--A=B-C> v1@1@HR v1@1@\^v@vv@v v@`v@` X@ V< ZVhf V<-v@v@ V< .v$<.Vfff3 X@P8 V@0~BZL V<.Vva"`~v@V v}v`` $v@@ $}$vP X@|@ vP$  v} v}$ ZVv@@@( v@2< V@ZFv@@@P<Z v@@$d^xR--A=B*C v@@֏!@@1@@"nv@!@$1@}v`X4@1@v X$!@v14$!$  $ 4@ v}v$ 4@}$Z$v@ v$ 4@Z4'v@$ 4P"$ 4P!@$1@"^@R--A=B/CJv$!@@T v41@^V4@|hj *** DIVISION BY ZERO **r'| v@@V$`^ R--SCALE B AND C. X&$@~@ v!&!&@Z&v!@!`V4@fv&}&14@ v!$@V&@lv'X(@|$v)&$!( ' v')} v!()}$'Z(&v!('0v':X(@|4Dv)&$1( 'N v')}X v1()}$'bZ(lX&$@|4@~@vv}$!& !&@&14|&V14@$"!&@@!&} !&@"$14}v@v'v*&"4@X(@|4 v)' !* ("$1( v')} v!* ()}$'Z( V' !&*v@v'X(@|4 v)' !* ( 1( v')} v!* ()}$' Z(* v*@4Z&> v$@"4@CV@\H)v"" @!@$1@Rv@@$0@\^fR--SIMPLE CASE--C IS ONLY 1 WORD.pv61@zv' X&$@~@ v(}$' !& v&(&6v'("&$6Z&> j CALCULATOR jNEED INSTRUCTIONS  f V@@0Y& V@@0N_ jWHAT   d j &f +V@@0Q' 0R :  & DR N X@ XV@@<  bv@ lZ v & vP@@ v@ R VP<C  d j  & R VP<R    d j  & R VP0H$ *R 4 X@ > X@P HV@0@@ RZ \V@@0. fV@@0- pv@ zZ  & R d R  n3 R VP0+V VP0AV VP0-t VP0St VP0* VP0MVP0/VP0DR$j P NOT LEGAL .d8n#BjL &VR*****ADD`jt R*****SUBTRACT~4 R*****MULTIPLYxR DIVIDE V@@j DIVISION BY ZERO vPC @Rn#j  0U@j3 HOW MANY DIGITS TO THE LEFT OF THE DECIMAL POINT (gt2 j5 HOW MANY DIGITS TO THE RIGHT OF THE DECIMAL (6 MAX)<fD>F@j*NO. DIGITS (LEFT, RIGHT) OF DECIMAL PT. = BgtDFwtt!t` D`Pj Z^dRn t=x^Rv@!@@^&r$IDAE48' r$IDAK'`IDA49 ˗] Qo KgҔRaN JД<H(J- J^2R:13JUN746R:>INDXN0@ P w`b vPINDX W@j,HOW MANY INDEX NUMBERS DO YOU WANT IN COL.1 g W@5j IDA DIM. AREX@' vv@w@X@| w@@Z4w@8@ V,@jHPjUj!COLUMN TO PLACE INDEX VARIABLE =   j COLUMN =  fV' V*jHPVs334,fff4 V,@4 jJ%jL*4U>>p>jVALUE OF 1ST INDEX = HfR j INCREMENT = \ffpjINDX(1), DELTA = zfvW@ w`@W-"jPUTTING INDEX IN COL.!CHANGES NUMBER OF UNDEFINED ROWS. j WARNING ONLY! X@}@ wZX|W@ wv w Zv w`@ w@`&H#H@ "USE OF ",4A," WILL ERASE PART OF CURRENT DATA. WARNING ONLY!"JH" "NUMBER SHOULD BE ",3D," OR LESS"LH "BUT NOT LESS THAN ",3DTH+ "FIRST NUMBER CANNOT BE LARGER THAN LAST."&R:GOTO IDA912 FOR UPDATING MEANS AND STD.DEV(S).&r$IDA912' j'P' NOT EXECUTED' r$IDAK'`IDA50 ˗]  KgҔRaN JД<H(J- J^2R:2NOV734R:>SORT<Oq 0 1=O > W@F@ r$IDA29iFnPosZn3dUnxnj.* GIVE VARIABLE NAME OR COLUMN NUMBER FOR THE xj VARIABLE TO BE SORTED :  j * VARIABLE : x 0jWvVUj(* GIVE COLUMN NAME OR COLUMN NUMBER FOR j) COLUMN RECEIVING SORTED OBSERVATIONS : j* RECEIVING COLUMN : x 0 jW,"j;AFTER THE COLUMN IS SORTED IN ASCENDING ORDER, WHICH COLUMN#j=IN THE DATA MATRIX DO YOU WANT TO REPLACE WITH IT? IT CAN BE"!j9ANY COLUMN IN THE ACTIVE DATA MATRIX EXCEPT THE ONE BEING$j-SORTED, OR IT CAN BE A NEW VARIABLE IN COLUMN@&j',6v8V.@:j6RECEIVING COLUMN CANNOT OCCUPY THE SAME COLUMN AS THAT<j/OF THE VARIABLE TO BE SORTED. PLEASE RE-ENTER.>@ V6*@EA V0@BJEj5YOU HAVE SPECIFIED AN INVALID COLUMN, PLEASE SELECT AFj'DIFFERENT COLUMN LESS THAN OR EQUAL TO @GjIJj2REQUEST WILL DESTROY OLD DATA IN RECEIVING COLUMN.OjWANT TO PROCEED ?Tx  VWXW @@0Ymjrv@vX|W@v@ vZp w`@ X@` w  ZvX|&W@D0v@: wDZ W@' /@NAME OF NEW VARIABLE =  f0 VP vД`$P`$0@` ' v`$A`$x 0@` 'W@/@FOR YOUR REFERENCE :/@COLUMN 1ST OBSERVATIONjX@|jF2X,DD,6X,D.5DEZY /@,THESE ARE THE VARIABLES IN THE DATA MATRIX : j COLUMN NAMEjX@|"VPJ,j6Д`$P`$6 H 2X,DD,4X,6A@TJj6`$PP`$PTZYj^^ X@PVД`$P`$00@`zZ X@XV`$P`$00@`Zl> X@P HhRV00z\ZfwpzwwP ^pv@qv֞@svuV>zv{ v @|wD}VAD~vvDwDvV?DvvDwDVADvvDwDvvFvƢ@V+DwFv@V-DV@ V"@"wqv1vv֠@wqv1vv֠@v֢@Vְvqv1 V"XzV@uv@v@V0 wD@VADv v@v@WD, v@D^#(&d123456789101112#2d131415161718192021' r$IDAK'`IDA51 ˗] +V% KgҔRaN JД<H(J- J^2R:2NOV734R:>PSORT<Oq,1=N 0  > W@F@ r$IDA29iFnPosZn3d V@@nj4CAN'T USE PSOR IF IDA DIM. HAVE LESS THAN 4 COLUMNS.x'Uj.* GIVE VARIABLE NAME OR COLUMN NUMBER FOR THE j VARIABLE TO BE SORTED : & j * VARIABLE : &x 00j:WXDNXbvlVDj* ACCOMPANYING VARIABLE :x 0jWj1THE ACCOMPANYING VARIABLE WILL BE ARRANGED IN THEj6SAME ORDER AS THE SORTED VARIABLE IN THE SORTED ORDER.j!WANT LIST OF VAR. IN DATA MATRIX f0V0@@.YvVU  j(* GIVE COLUMN NAME OR COLUMN NUMBER FOR  j) COLUMN RECEIVING SORTED OBSERVATIONS : * j* RECEIVING COLUMN : *x 04j>WCHD H"j;AFTER THE COLUMN IS SORTED IN ASCENDING ORDER, WHICH COLUMNR#j=IN THE DATA MATRIX DO YOU WANT TO REPLACE WITH IT? IT CAN BE\jaa"H> "ANY COL. NO. IN THE ACTIVE MATRIX EXCEPT COLS.",3D," AND",3Df jk@kH "OR IT CAN BE COLUMN",3Dpjz^vV0V0j&COL. NUMBER IMPROPER. PLEASE RE-ENTERja jk@  V6*@ V0@.j5YOU HAVE SPECIFIED AN INVALID COLUMN, PLEASE SELECT Aj'DIFFERENT COLUMN LESS THAN OR EQUAL TO @j j2REQUEST WILL DESTROY OLD DATA IN RECEIVING COLUMN.jWANT TO PROCEED ?x  WHjW @@0Y3$ .v@3 8vBX|LW@jVv@`vjZtU~~j'* GIVE COLUMN NAME OR COLUMN NMBER FOR j/ COLUMN RECEIVING ACCOMPANYING OBSERVATIONS : j** RECEIVING COL. FOR SORTED ACCOMP. VAR. :x 0jW j1IN WHICH COLUMN DO YOU WANT TO PLACE THE (SORTED)j,ACCOMPANYING VARIABLE ? YOU MAY PLACE IT IN\ vV0V0V0j&COL. NUMBER IMPROPER. PLEASE RE-ENTERj@"H> "A NUMBER LESS THAN OR EQUAL TO",3D," BUT NOT",3D,3D," OR",3D V6*@<( V0@2d<j5YOU HAVE SPECIFIED AN INVALID COLUMN, PLEASE SELECT AFj'DIFFERENT COLUMN LESS THAN OR EQUAL TO @PjZdj2REQUEST WILL DESTROY OLD DATA IN RECEIVING COLUMN.njWANT TO PROCEED ?x  WjW @@0Yv@ p w`@vv" X@@, X@`6 w  @ZJvTv^ZhvrX||W@v@ w wZ' W@  /@NAME OF NEW VARIABLE =  f0 WP vД`%P`%0@`   v`%A`%x 0@` ^W@/@FOR YOUR REFERENCE :/@COLUMN 1ST OBSERVATIONjX@|jF2X,DD,6X,D.5DEZY /@,THESE ARE THE VARIABLES IN THE DATA MATRIX : j COLUMN NAMEjX@|"RPJ,j6Д`$P`$6 H 2X,DD,4X,6A@TJj6`$PP`$PTZYj^^ X@PVД`$P`$00@`zZ X@XV`$P`$00@`Zl> X@P HhRV00z\ZfwpzwwP ^pv@qv֞@svuV>zv{ v @|wD}WAD~vvDwDvW?DvvDwDWADvvDwDvvFvƢ@W+DwFv@W-DV@ V"@"wqv1vv֠@wqv1vv֠@v֢@Vְvqv1 V"XzV@uv@v@V0 wD@WADv v@v@WD- v@D^#(&d123456789101112#2d131415161718192021' r$IDAK'`IDA52 ˗] Qs KgҔRaN JД<H(J- J^2R:2NOV734R:>RANK<Oq 0 1=O > W@F@ r$IDA29iFnPosZn3Uj.* GIVE VARIABLE NAME OR COLUMN NUMBER FOR THE j VARIABLE TO BE RANKED :  j * VARIABLE : x 0jWv VU%j(* GIVE COLUMN NAME OR COLUMN NUMBER FOR j COLUMN RECEIVING RANKINGS :  *%j* RECEIVING COLUMN : *x 0/j4WW9"j;AFTER THE COLUMN IS RANKED IN ASCENDING ORDER, WHICH COLUMN>"j X@P HhRV00z\ZfwpzwwP ^pv@zv֞@vV>v v @wDVADvvDwDvV?DVvvDwDVADVv$vD.wD8VBvLvFVvƢ@`V+DVjwFtv@~V-DtV@B V"@"wqv1vv֠@(wqv1vv֠@(v֢@ Vְvqv1( V"X2V@<v@Fv@PV0Z wD@dVADFnvx v@v@WD,x v@DF^#(&d123456789101112#2d131415161718192021' r$IDAK'`HIDA53 ] G2J,!,1,A,Q,a,<JqF JddPJєQK .SJEV JW K56YJ ZK[J]p*^ N_O`nan#bnCcncdnSevfnßgn3hvNxwYES v@@ v@@ v@@ vє@@/@,IS DATA TO BE ENTERED FROM TERMINAL (Y OR N)fV@@.YvN@T/@NAME OF INPUT FILEfD@V@jREAD-ONLY FILE -- #1"V"jCANNOT ACCESS FILE -- STATUS "j&DELETE FIRST TWO OBSERVATIONS (Y OR N),f6V@@.YT@h@QeQfE jOQeJ jOQfOH 10D.5D,10X,"HAS BEEN DELETED."Tj$NUMBER OF OBSERVATIONS (100 MAXIMUM)hfiVd|jjONLY 100 OBSERVATIONS ALLOWEDk|vd}VN@~j+ENTER INPUT DATA (ONE OBSERVATION PER LINE)Xe|VN@ h@QfQZVN@j/DO YOU WISH TO SAVE THE DATA ON A FILE (Y OR N)fV@@.YjNAME OF OUTPUT FILE fD@VjCANNOT ACCESS FILE -- STATUS Xe| j@QZj0CONSTRUCT MODEL ON NATURAL LOGS OF DATA (Y OR N)vŞfV@@.YvŞ@ VŮ@Xe| vQQZnS j ENTER P,D,Qf&j"SEASONAL PERIOD (0 IF NONSEASONAL):gD VN jENTER BP,BD,BQvfww Vw@v@X@|w@ v"Z V w@v#X@|w! v" Z Xe|*we "4v15Z>v %Hv %Rv:\vfXe|pv qZz v&dvj,INCLUDE A PARAMETER FOR NON-ZERO SERIES MEANv@fV@@0Yvvv  VLvqLjESTIMATE PARAMETERSMj (AUTOMATIC SEARCH=1)Nj (MANUAL SEARCH=2)Of`V@fw.I w $IDA53r$IDA53D jPARAMETER VALUESVjX@| j@ZH" 5X,"AUTOREGRESSIVE PARAMETER(S)"VjX@| j@ZH! 5X,"MOVING AVERAGE PARAMETER(S)"VjX@| j@ZH* 5X,"SEASONAL AUTOREGRESSIVE PARAMETER(S)"VjX@| j@ZH* 5X,"SEASONAL MOVING AVERAGE PARAMETER(S)"V  j MEAN j$@"q@H 5X,"*NUMBER ",2D,"=",4D.4D H 5X,"*",10X,4D.4D w55&d"j5 j MANUAL SEARCH2f<V@@.YF KVfLvMXe|Nv OZP v&dQvRvqfw$IDA53hw\jr$IDA53Anw5E&d"xj5 w6X@|w66 qZ V6w$IDA53w\r$IDA53Aw5E&d"j5H "STANDARD ERROR = ",6D.6DjCONTINUE MANUAL SEARCH (Y OR N)fV@@0Y jTHE FINAL MODEL ISvv V"v ,V,6V@h@v"Jv@@Tv@^6hV,rv"|v@@"@v@hV,v"v@@v@V@ v@v@rv@v V@1v&v@01w $IDA532w.s@3r$IDA53G4j*WRITE RESIDUALS TO AN OUTPUT FILE (Y OR N)5f6V@@.YD7jNAME OF OUTPUT FILE8f9D@:V=;jCANNOT ACCESS FILE -- STATUS <7=Xe|> j@A?ZDv %Nv Xvbw"lvAAv vaQ"Av@ Vebvj"FORECAST FUTURE TIME SERIES VALUESfV@@.Y4jHOW MANY PERIODS AHEADfw@vv X| 8 vQa ZX| vQ*VŮ@1/ vaoa1Z4VŮ@>Xe|H vQoQR vaoa\ vAQ"a]ZH2 4X,"PERIOD",11X,"ACTUAL",4X,"FORECAST",7X,"ERROR" H 5X,5D,5X,3(8D.3D)j*LIST ACTUALS,FORECASTS AND ERRORS (Y OR N)fV@@.Y .jFIRST PERIOD TO WRITEgjwdX|vd jQaA Z .b 8w7 B Vְ t LX@| Vv" `w77 @$Q" jZ t Vװ ~X@| v" w77"@$A Z va7  ^ j'ENTER PARAMETERS IN THE FOLLOWING ORDER vq@ VB jAUTOREGRESSIVE PARAMETER(S) X@| j  fq vq@q@ q Z VB < jMOVING AVERAGE PARAMETER(S)  X@| j " (fq 2Z < VB x Fj$SEASONAL AUTOREGRESSIVE PARAMETER(S) P X @| Z j "  dfq nZ xV j$SEASONAL MOVING AVERAGE PARAMETER(S) X @| j "  fq Z H"*NUMBER ",2D,"=" ^ `rIDA53A%] +`J!,1,A,Q,a,q,(J2 Jdd<Jє=K .?JA Jvwxyz{|}~B JFJ KKPJfghiQJRK! 1 A Q SKbȜ T Kr   UJjklmnVJWK;nv@xvvؠe X@dvvv!Zn3XKvAZnSv@v@V*J" v@,v@6v@@Jv@TV*^ v@hv@rv@|Tv@V* v@v@v@v@V* v@v@v@VvX|X|v $&v@@"@$@'Z(Z0X|:X|Dv $Nv@@"@$@OZPZQr$IDA53BR`BIDA53B%] Q{J!,1,A,Q,a,q,(J2 Jdd<Jє=K .?JA Jvwxyz{|}~B JFJ KKPJfghiQJRK! 1 A Q SKbȜ T Kr   UJjklmnVJWK;mNnv@xvvؠevX|w vQA#Zvewd"v@wwE X@`vZX@}w wwwEE" v"wEE  v@ V`4 v@*w@4 V\> VE*hی\Hv@Rz\ve"fvApv!uZyv@zr$IDA53Cw6 VְX@|v"w66 @$A"Z VװX@|v" w66"@$QZw6 ^`BIDA53C%] J!,1,A,Q,a,q,(J2 Jdd<Jє=K .?JA Jvwxyz{|}~B JFJ KKPJfghiQJRK! 1 A Q SKbȜ T Kr   UJjklmnVJWK;mNnv@xvvؠew5X|w v1 vQ!"1 w55 Q$QZv5s Rw6 VְQ)X@|3v"=w66 @$!"GZQ Vװ[X@|ev"o w66"@$QyZw6 ^`IDA53D%] +c K1,!,1,!,a,q,KAuvwxyz{|}~ Jdd(Jє2K .<K6F JP JdJ0PnKxJJJK   Q JBȜ  J  Q Jfgh7FJK;6nC@oJnTLfhi@^vgP w$IDA53Dwkr$IDA53A/@INITIAL-SUM-OF SQUARES =6/@ITERATION NUMBER fLhh&gvRR CALCULATE NUMERICAL DERIVATIVES FOR STEEPEST DESCENTRv@MFA wQ%A wAA!wXX|ub LBP!lZq w$IDA53DvMQ@r$IDA53AWHj5YOU CANNOT ESTIMATE MORE THAN 9 PARAMETERS, TRY AGAINX|u LB! w!BPZX|u LB!"Bw B%!Z M'wAFv@VA r$IDA53E`IDA53E%] Q~ K1,!,1,!,a,q,KAuvwxyz{|}~ Jdd(Jє2K .<K6F JP JdJ0PnKxJJJK   Q JBȜ  J  Q Jfgh7FJK;Vf@ n X@}X@| M7*X|u4 M77 B$B>ZH MF7&%RvF\vFfZp LQzZX@}X@| LB vBBLB&Q$Q vZZX@} M&Q$ v h.Z8nBM7@LMF@VX@}`wQ$7&Q!AjvAtwAQ~ZX@}ZM;6 w$IDA53EMNr$IDA53AM86w6;w;8 X@}MQAwA(Z2V;-6< VFP nFM77@Pv@Z VPVd r$IDA53Finvhh$gxv@ VP r$IDA53Fir$IDA53F`IDA53F%] ; K1,!,1,!,a,q,KAuvwxyz{|}~ Jdd(Jє2K .<K6F JP JdJ0PnKxJJJK   Q JBȜ  J  Q Jfgh7FJK; jPARAMETER VALUES X@}@MAQkAZwAQV} wA@X@|wwA@A@!AZkA$@#A@kA jSUM-OF-SQUARES =;M8X@} V$7&Q&^r}AA7M88@ZV8?,'/@9ITERATION STOPS, RELATIVE CHANGE IN EACH PARAMETER < .001",V;#6'6A7J6'/@9ITERATION STOPS, RELATIVE CHANGE IN SUM OF SQUARES < .001@JM6;Tvff@| VfP r$IDA53Dn#/@1SUM-OF-SQUARES CANNOT BE REDUCED, ITERATION STOPS%/@6ITERATION LIMIT (10) EXCEEDED, TRY BETTER GUESS VALUESRR /@)BACK-FORECAST RESIDUALS FROM FINAL MODEL:Xdk!Z/@"ACTUAL RESIDUALS FROM FINAL MODEL:Xe|uk!Z v;&s .:`LIDA53G] +f J,,,,,є,J J!d1d(J2K .<JvF Jwxyz{|}~P JdJ@Q`qnKxJ}Jv@ V@@ X@@ w$IDA53Gwir$IDA53Hv V@Zv"VlX@|j"@Q`qZ"H. 5X,"Z(I) =",4(1X,1A,D.3D,"*",1A,"(I-",2D,")")6@ X@`OwZT w$IDA53G^r$IDA53Hhvr V@|Zv"VlX@|j$@"@@Q`qZH7 " EST Z(I) =",7D.6D,3(1X,1A,2D.3D,"*",1A,"(I-",2D,")")V@l X@@w w$IDA53Gr$IDA53Hv V@Zv"&Vl0X@|:jX@Q`qDZXH' 11X,4(1X,1A,5D.3D,"*",1A,"(I-",DD,")")bls .v`LIDA53H] Q J,,,,,є,Juvwxyz{|}~ Jd!d(J!2K .<JF JP JdJ0APanKxJJvwZvAv-w+V*h w!@ Vv@v0" VB6,v06 vA@vPJvaTv@^shV*& w@ Vv@hv0 VBv0 vAvPvav@s&v@0s:`IDA54 ˗]  KgҔRaN JД<H(J- J^2R:13JUN744R: CODING FOR IDA53 TO IDA53H CONTRIBUTED BY WM.E.WECKER< N@ PFvPBOXJP&jDWARNING: AS NOW SET UP, YOU CANNOT RETURN TO IDA AFTER EXECUTION OFZ&jC'BOXJ'. ALSO YOU MUST HAVE YOUR UNIVARIATE TIME SERIES OF NOT MOREd%jATHAN 100 OBSERVATIONS IN A FILE THAT CONTAINS NO OTHER VARIABLES.njxjWANT TO CONTINUE f@V@@@0N' W`&jj$WANT EXPLANATIONS OF 'BOXJ' PROMPTS f@V@@@0N&j&jC'DELETE FIRST TWO OBSERVATIONS (Y OR N) ?' THIS GIVES YOU A CHANCE$j? TO DELETE N AND K IF YOUR TIME SERIES FILE IS IN IDA FORMAT.j%jA'NUMBER OF OBSERVATIONS (100 MAXIMUM) ?' THIS GIVES YOU A CHANCE#j> TO FIT THE MODEL TO LESS THAN THE WHOLE SERIES IF YOU WISH.j#j>'ENTER P,D,Q ? ' FOR THE NON-SEASONAL PART OF THE MODEL TO BE%jA FITTED, P IS THE HIGHEST ORDER AUTOREGRESSIVE; D IS THE NUMBER"%jA OF CONSECUTIVE DIFFERENCING OPERATIONS; Q IS THE HIGHEST ORDER,j MOVING AVERAGE TERM.6j@$j@'ENTER BP,BD,BQ ? ' FOR SEASONAL MODELS, BP IS THE HIGHEST ORDERJ"j< AUTOREGRESSIVE TERM AT THE SEASONAL GAP (E.G., LAG OF ONET#j= YEAR, BP=1 ); BD IS THE NUMBER OF CONSECUTIVE DIFFERENCING^%jA OPERATIONS AT THE SEASONAL GAP; BQ IS THE HIGHEST ORDER MOVINGhj$ AVERAGE TERM AT THE SEASONAL GAP.rj|#j>'INCLUDE A PARAMETER FOR NON-ZERO SERIES MEAN ? ' IN ORDINARY$j? REGRESSION PARLANCE, THIS IS THE CONSTANT OR INTERCEPT TERM.j$j@'ENTER PARAMETERS IN THE FOLLOWING ORDER---' THESE PROMPTS CALL%jB FOR FIRST GUESSES OR STARTING VALUES OF THE PARAMETERS THAT YOU j HAVE SPECIFIED.j&jC'ESTIMATE PARAMETERS ? ' AUTOMATIC SEARCH WILL INITIATE THE RECUR-$j@ SIVE ESTIMATION OF PARAMETERS BY NON-LINEAR LEAST SQUARES ANDj BACK FORECASTING.j%jA'WRITE RESIDUALS TO AN OUTPUT FILE ? ' THIS PERMITS YOU LATER TO%jB ANALYZE RESIDUALS BY IDA DIAGNOSTIC CHECKS (SUCH AS AUTO, PACF,j RUNS, SPEC, NORM).j&r$IDA53' j'P ' ABORTED.' r$IDAK'`IDA912˗] +i KgҔRaN JД<H(J- J^2R:18 OCT 744R: COMPUTING OR UPDATING MEAN(S) AND STD.DEV.(S)6R: Q(1)=0 COMPUTED FOR 1ST TIME FOR ENTE, ENTS, AND ENRA8R: AND SOMETIMES FOR CRSP, RAND, AND INDX:R: Q(8)=1 IF DATA ENTERED WITH 'CRSP'< R: Q(1)=1 UPDATING>R: Q(8)=2 IF COL. ADDED WITH 'CRSP'@R: Q(8)=0 I3 AND I4 REFER TO ROWS IN DATA MATRIXB!R: Q(8)>0 I3 AND I4 REFER TO COL(S). IN DATA MATRIXDR: Q(6)= # OF PROGRAM CHAINING TO OR FROM IDA912F R: Q(7)= # OF LINE TO CHAIN TO IN PROGRAM ABOVE FROM IDA912dN 0@ njxV' w`@ W@. W@ W`D  W`^ W@ R:UPDATING FOR APPSvHvPvvvvv@v W`^  WL 7| R:UPDATING FOR DELB,RETB,RECO,SELRR:UPDATING FOR APPO,APPBv: j UPDATING Z"$R: COMPUTING MEAN AND STD.DEV. FOR ALL ROWS 1 TO N AND ALL COL(S).,#R: 1 TO K. Q(1) STILL 0. FOR ENTE,ENTS,ENRA, AND SOMETIMES CRSP,- R: RAND, AND INDEX.v@2v6X@|@ w@@JZOw@TjDATA MATRIX HASOBSERVATIONS ON VARIABLE(S)VjX j COMPUTING ZjMEAN(S) AND STD.DEV.(S)...\z^`X@|bd,fZhjj W@l w@@mR:IF >ENTE,Q2=24, CHECK FOR NAMESnW`\ 7`@popWrjtjNAMES READ FROM DATA FILE ARE:vX@|xVP~zjД`$P`$|~wPj`%P`%ZjjWANT TO SUPPLY NEW NAMES(S) jwUj3YOU MAY GIVE EACH VARIABLE A 1 TO 6 CHARACTER NAME.!j:YOU ARE STRONGLY URGED TO SUPPLY NAMES FOR YOUR VARIABLES. j8IF YOU DO, SEQUENCE PLOTS, TABLES, ETC. WILL BE LABELED."jR: DELETE 1 OR MORE ROWS IF Q4 < Z@ X|@HVJZRr\R: RECOVER 1 OR MORE ROWS IF Q4 > Z^ X|@fhZrX@|t,vZxjyW1zw|jOBSERVATIONS IN FIRST@ROWS NOW UNDEFINED.~ W@ w@@Wh'W@jj GIVE NAME(S) OF NEW VARIABLE(S) X| Zj V,@jWARNING! DATA MATRIX FULL.j W``'Uj#WANT TO LOAD ANOTHER SECURITY FROM $ jLOAD MORE FROM $ UhVB..v0$CRSPP8`Bv0$CRSPSL`Vv0$CRSPR`j0 jftV@@0N'~wp& R j  H #,"VAR.",XDD,X f@ VP vД`$P`$@@`   v`$A`$x @@` ^\RfRzX||W@@~Z^R:COMPUTING MEAN,STD.DEV.vv X@|v!@$"Zv &vX|W@v "@Z w@w@&@^8R: DEL.OBS.VW@~[X@|`!w@%@&@#&@ew4@%@@jw44"#@@$@&ow@4&@tZyv@~^RR: ADD OBS.W@X@|!w@%@&@!&@w4@%@@w44 #@@$@&w@4&Zv@^R R: # OBS. IN COL.vX| v!@Z^,W@h.W@r1v4@'@6V4Qr;j@/@FOR VAR.,ABS.(STD.DEV./MEAN) IS4LjMEAN IS @Nj STD.DEV. IS @Tj(WARNING! ROUNDING ERRORS MAY BE LARGE.UW`Z 7@rVj5YOU MAY WISH TO RECODE THE ORIGINAL DATA BY ADDING ANXj0APPROPRIATE CONSTANT (POSSIBLY NEGATIVE) TO EACHZj'OBSERVATION AND THEN RE-ENTER THE DATA.^rhjmjCOL. IS A CONSTANT EQUAL TO @r^#'R#(R:WIPING OUT REGRESSION IF J IS IN MAT V#2 X@|@#<V/a##F##Z# R:J NOT IN MAT V#$T##j>THE FITTED AND RESIDUAL VALUES FROM THE CURRENT REGRESSION OF:#jTHE DEPENDENT VARIABLE IN COL.a@#j)ON THE INDEPENDENT VARIABLES IN COL(S). :#X@|$ka,$wa$VPP$,$"j$,Z$@ wa@$Bw@@$J X@|`$Lw@$NZ$Pj1HAS BEEN ERASED BECAUSE YOU REPLACED DATA IN COL.$T0^$UR&r$IDA12' r$IDAK'`0IDA95 ˗] Q KgҔRaN JД<H(J- J^2R: 31 JUL 744R:Q1=1 FOR>NEWC;=2 FOR>CRTS;=3 FOR>COMM"<N0 PAUFFW@ZHjWANT EXPLANATION Pf0RV0@@.NTjZW@`\j3BE SURE YOUR 'COMMON' SPECIFICATIONS ARE COMPATIBLE^jWITH THE NEW IDA 'COMMON.'`jdj* NEW COMMAND NAME = nx 0xjWHV0@@0?HV0@@.HELPj" 'HELP' IS ONE OF THE IDA COMMANDSjHj TO USE 'NEWC' THE USER MUST:j31. HAVE A 4-LETTER NAME FOR THE NEW COMMAND THAT ISj0 DIFFERENT FROM THOSE USED IN THE SYSTEM $IDA. j8 ISSUE THE IDA COMMAND 'LIST' TO GET A LIST OF ALL THE j IDA COMMANDS.j.2. HAVE A PROGRAM IN HIS LIBRARY BY THAT NAME.j4 THE PROGRAM MUST HAVE THE SAME 'COMMON' VARIABLESj AS THOSE OF $IDA.j1 (GET AND LIST $IDACOM TO SEE REQUIRED FORMAT.)j4 (GET AND RUN $IDAVAR TO GET AN EXPLANATION OF THEj VARIABLES USED IN 'COMMON.')jj&TO USE 'NEWC', REISSUE 'NEWC' COMMAND.' 0@j(NEW COMMAND NAME MUST HAVE 4 CHARACTERS.j'NEWC' NOT EXECUTED.'l X@viP V0@@1PXZ& Xj1THE NAME YOU CHOSE IS THE SAME AS ONE OF THE $IDAbj.SYSTEM COMMAND NAMES. YOU SHOULD FIRST CHANGElj/YOUR PROGRAM NAME TO ONE THAT IS DIFFERENT FROMvj-ALL THE IDA COMMAND NAMES BEFORE CREATING THE j NEW COMMAND.' w^^@"W^P*$j)ONLY 5 USER DEFINED COMMANDS ARE ALLOWED.&jNEW COMMAND NOT ACCEPTED.('*w^@`^@0@@4jNEW COMMAND NAME ACCEPTED.9j>'R: >COMMj4CURRENT, OR SOON TO BE IMPLEMENTED IDA COMMANDS ARE:jjMISCELLANEOUS COMMANDS:vĞ@xvĞ@xvĞPxvĞ@xj#<jDATA DEFINITION COMMANDS: vĞ` xvĞPxj#<jDATA EDITING COMMANDS:vĞP x" X@@$vĞ`&x(Z.vĞ`0x2j4#<8jPRINT AND PLOT COMMANDS:: X@`<vĞP>x@ZDvĞ@FxHjJ#<LjTRANSFORMATION COMMANDS:NvĞ@PxRvĞ@TxVvĞPXx`jb#<dj"SUMMARY AND ONE SAMPLE STATISTICS:hvĞ@jxlvĞ`mxnjp#<~jREGRESSION ANALYSIS:vĞ@xvĞ`xj#<jTIME-SERIES ANALYSIS:vĞ`xj#<jj3COMMANDS TO BE IMPLEMENTED SOME TIME IN THE FUTURE:vĞ`xW`'j#j>EXECUTING SOME OF THE ABOVE COMMANDS AT THE FIRST PROMPT LEVELj&WILL GIVE AN OPTION OF AN EXPLANATION."j;IF NOT, THE COMMAND 'EXPLAIN', OR 'EXPL', WILL USUALLY GIVEjA BRIEF EXPLANATION.#j>'INFO' WILL GIVE EXPLANATIONS FOR ALL COMMANDS WITHIN A GROUP,jE.G., ALL TRANSFORMATIONS.'xX@|iP jF#,4A4XPZj^W`j*ARE YOU USING A CATHODE RAY TERMINAL NOW  j * USING CRT f0V0@@0?' V0@@0Y V0@@0N' jPLEASE ANSWER YES, NO, OR ? w@@W`' $j@IF YOU GET THE PROMPT 'MORE?' OR SOMETHING LIKE IT AT THE END OF*$j?SOME PRINTOUT, RESPOND WITH A CARRIAGE RETURN ONLY WHEN YOU ARE,j3READY TO GO ON. YOU MIGHT TRY THE COMMAND 'COMM'.3'@dCHGPCRTSMISSQUITB"dCOMMEXPLHELPINFOLISTNEWCNEWSPAUSDdCALCCRFIFILEGAUSPSAMFdNAMERDIMSPADSAVFTdENTEENTSENRA^dCRSPINDXRANDEOBREOBShdCHGOAPPOAPPBAPPVAPPSjdDELODELBRECORETORETBSELRldDELVMOVEMSORPSORSAVRSORTndZERCZERRZERS|dPRTSPRTOPRTVPRTRPRTFdFPRSFPROFPRVFPRRFPRFdFREQHISTNORMPLTSSCATdCTABMTABMPLSRVSFdCATERANKDIFFLAGG"dABSOADDCMULCEXPOLOGELOG1POWESTANdADDVDIVIDOTPMULVSUBVdCORRCOVAPARCMEANdDURBRUNSSERC"dREGRFORWSTEPBACKALLSSUBSSWEESAMPdCOEFSUMMBCORBCOVSEPRANOVdAUTOBOXJCROSPACFSPECSTARdCOMPDUMPENLIPLTCTRANWLSR#<W@7@P##>W`#F#@j* MORE COMMANDS ? #B#P#F j * MORE ? #P0#Zj#nW##x jPLEASE RESPOND:#j#NO, FOLLOWED BY A CARRIAGE RETURN, #j$IF YOU DON'T WANT ANY MORE COMMANDS,# j7WITH A CARRIAGE RETURN ONLY, IF YOU WANT MORE COMMANDS.##F#V00##V0@@0Y##V0@@0N'#V0@@0?#x# jINVALID RESPONSE.##x#^' j'CRTS' NOT EXECUTED.' r$IDAK'`IDA98 ˗] P KgҔRaN JД<H(J- J^2 j13JUN74 VERSION4j~j13JUN74 NEW COMMANDS:j3 'MISS'--TO DECLARE MISSING VALUES IN DATA j8 'BOXJ'--BOX-JENKINS ESTIMATION OF ARIMA MODELSjj10JUN74!j9ENRA REVISED COMPLETELY. ENTER SELECTED OBSERVATIONS ANDj0 SELECTED VARIABLES FROM RANDOM ACCESS FILEjjNEW COMMANDS AVAILABLE:#j=EOBR USING LIST OF OBS. #'S IN IDA DATA COL., ENTER SELECTEDj) VARIABLES FROM A RANDOM ACCESS FILEj%jACRFI CREATE A RANDOM ACCESS FILE BY INPUTTING DATA FROM TERMINALj"j SELECTED BLOCKS OF ROWS FOR 2 OTHER VARIABLES.j$ TWO NEW COMMANDS AVAILABLE:$j? 'MPLS' PLOTS 1,2,OR 3 SPECIFIED COL(S). OF DATA MATRIX#j> 'PACF' COMPUTES AND PLTS THE PARTIAL AUTO CORRELATIONj0 FUNCTION FOR A SPECIFIED COLUMN.j0 THE FOLLOWING BUGS HAVE BEEN CORRECTED:$j? SUBCOMMAND 'RAN2' IN 'PSAM' GAVE DUPLICATE NUMBERS%jA SUBCOMMANDS 'ARMA' AND 'ARG1' IN 'RAND' DID NOT WORKj+ IF DATA MATRIX WAS NOT ERASED.$j@ UPDATING REQUESTED NAMES FOR 'APPO' AND 'APPB' WHEN!j: NO NAMES HAD BEEN GIVEN FOR THE ORIGINAL DATA#j=29APR74 'PLTS' CAN NOW PRINT HISTOGRAM ONLY OR PLOT SEQUENCE#j> PLUS HISTOGRAM. TO GET HISTOGRAM ONLY, ANSWER"j< 'NO' TO 'PLOT ALL ROWS?', 0 FOR 'FIRST ROW?'#j> IF YOU WANT ALL ROWS. OTHERWISE GIVE FIRST ANDj LAST ROW.j NEW COMMAND AVAILABLE:"j; 'MPLS' TO PLOT UP TO 3 TIME SERIES IN 3 COLUMNS OFj OF IDA DATA MATRIX. j823APR74 'PRTS' BUG CORRECTED. NOW PRINTS SCRATCH PAD ATj 3RD PROMPT LEVEL.j- ANNOTATED VERSION OF 'COMM' NOW UP#j=22APR74 'ENTS' NO LONGER BOMBS OUT IF VAR. 10 IS A CONSTANT.j22APR74 NEW COMMAND:#j= 'STAR', OR 'START WITH ZEROS', FOR DEFINING AN N X K#j= DATA MATRIX OF ZEROS TO USE IN TIME-SERIES ANALYSIS.#j>18APR74 CORRECTED BUG IN 'ENTS' CAUSED BY USE OF SCRATCH PAD.j) 2APR74 COMPLETELY REVISED OLD COMMANDS: j7 'PRTS' AND 'FPRS' WILL NOW PRINT VALUES IN THEj' SCRATCH PAD OR THE DATA MATRIXj6 'PRTR','FPRR','PRTF','FPRF','PRTV',AND 'FPRV'#j= WILL NOW ALSO PRINT MEANS AND STD.DEV. FOR EACH COL.8j) 1APR74 COMPLETELY REVISED OLD COMMANDS::#j> 'RDIM' CAN NOW BE USED TO SET ASIDE P(63) COLUMNS INB#j> A SCRATCH PAD. THERE WILL BE NO COMPUTATIONSL#j= ON THESE COLUMNS AND THEY WILL NOT BE ERASEDV#j> WHEN COMMANDS LIKE 'ENTE' ARE USED. BUT, THEY`#j= MAY BE MOVED TO THE DATA MATRIX WITH 'MOVE',b"j; ZEROED WITH 'ZERS', 'ZERC', OR 'ZERR', ANDd#j> FILLED WITH NEW VALUES WITH 'APPS' OR 'MOVE'.j%jA 'APPS' CAN NOW BE USED TO PUT VALUES IN THE SCRATCH PADl#j> IN ADDITION TO ADDING OR CHANGING A SUBMATRIXnj$ IN THE DATA MATRIX.t#j> 'ENTE' WILL NOW ENTER NAMES OF COLUMNS AUTOMATICALLYv%jA IF THEY ARE IN DATA FILE AFTER DATA AND 'NAMES:'j 1APR74 NEW COMMANDS:$j? 'APPB' TO APPEND A BLOCK OF ROWS TO DATA MATRIX j7 'CATE' TO CREATE A CATEGORICAL VARIABLE#j> 'SELR' TO DELETE ROWS SELECTIVELY ON THE BASIS!j: OF THE VALUES OF A SPECIFIED COLUMN"j;  'MOVE' TO MOVE VALUES FROM A DATA COL. TO Aj6 SCRATCH PAD COL., OR VICE VERSA#j> 'DELV' TO DELETE A COLUMN FROM THE DATA MATRIX#j> 'ZERS' TO ZERO ALL ELEMENTS IN THE SCRATCH PAD j8 'ZERC' TO ZERO A COL. IN THE SCRATCH PAD j7 'ZERR' TO ZERO A ROW IN THE SCRATCH PADj 4MAR74 NEW COMMANDS:j- 'CRTS' --TO DECLARE USE OF CRTSj3 'COMM' --LISTS IDA COMMANDS BY GROUPSj) COMPLETELY REVISED OLD COMMANDS:"j; 'SAVF' --PRINTS NAMES AND DESCRIPTIVE TEXT AT %jA END OF FILE IF OUTPUT FILE IS LARGE ENOUGH !j: 'FILE' --NOW LISTS CONTENTS OF ANY TYPE FILEjdj21FEB74 NEW COMMANDS:e#j> 'SPEC' --ESTIMATES THE SPECTRAL DENSITY FUNCTIONfj1 OF A DISCRETE TIME SERIES.g"j; 'DIVI' --DIVIDE VALUES IN COL.J1 BY VALUES INh j7 COL.J2 AND PUT RESULT IN COL. J3ijn j814FEB74 NEW SUBCOMMAND--'ARMA'--IN 'RAND'. IT GENERATESpj3 DATA FOR A COL. IN THE DATA MATRIX FROM ANr!j9 AUTOREGRESSIVE-INTEGRATED-MOVING AVERAGE PROCESSsj OR 'ARIMA' PROCESS.tjv!j: 'SAVR' NOW OFFERS OPTION TO SAVE FITTED VALUES INwj. A SPECIFIED COL. OF THE DATA MATRIX xj611FEB74 CORRECTED BUG IN CRSP WHEN CRSP DATA ADDED TOzj' PREVIOUSLY DEFINED DATA MATRIX|j#j= 8FEB74 'CRSP' CAN NOW BE USED TO LOAD DATA FROM THE UPDATEDj3 $CRSPR, AND $CRSPS AND $CRSPP FILESj"j<17JAN74 CORRECTION MADE TO AVOID 'OUT OF STORAGE' CONDITION"j< CREATED IN APPV PROGRAM WHEN P(78) ADDED TO COMMON.jj515JAN74 EVERY PROGRAM IN IDA WAS CHANGED LAST NIGHT."j; THE DIMENSIONS OF THE CORRELATION MATRICES M AND U j8 WERE CHANGED TO M(19,19) AND U(19,19) AND A NEWj, VEC`TOR P(78) WAS ADDED TO 'COMMON.'j j6JAN74 $j(FOR EARLIER NEWS, GET- AND RUN- $IDAARC.%j3 IF YOU SHOULD RUN INTO BUGS IN THE SYSTEM OR HAVE%&j5SUGGESTIONS TO MAKE, CONTACT HARRY ROBERTS (3-3609 OR%0j798-8803). IN THE CASE OF BUGS,%:j6PLEASE SAVE YOUR COMPLETE COMPUTER OUTPUT FOR THE RUN.' r$IDAK'``IDA99 ˗] +v KgҔRaN JД<H(J- J^2 R: VERSION 7/3/72@jCOMMAND NOT YET IMPLEMENTED' r$IDAK'`IDAARC] Q3 j13JUN74 VERSION OF $IDAARCj2R: LINES 6570-6583 OF IDA98, 'NEWS' ADDED TO IDAARC"j<6JAN74 'AUTO' NOW PLOTS THE SAMPLE AUTOCORRELATION FUNCTIONj5WHILE IT PRINTS OUT THE AUTOCORRELATION COEFFICIENTS.jj4JAN74 NEW COMMANDS AVAILABLE:j& CTAB (2-WAY CROSS-TABULATION)j$ MTAB (2-WAY TABLE OF MEANS)j!j: 4DEC73 BUG IN >SUBS CORRECTED. L.790 NOW REFERS TO IMAGE j IN L.800.j"j; 3DEC73 BUG IN >SUMM CORRECTED. ADJUSTED MULTIPLE R SQUAREj NOW ALWAYS POSITIVE.j,!j926NOV73 >REGR NO LONGER PERMITS DECLARATION OF DUPLICATE6j4 VARIABLES OR OF FITTED OR RESIDU COL(S). AS@j, DEPENDENT OR INDEPENDENT VARIABLES.Tjj321NOV73 BUG IN >ENTS CORRECTED. NOW WORKS IF VAR.#j IS GREATER THAN 10.jj12NOV73jALL PRT- AND FPR- COMMANDS:%jB1. AT PROMPT LEVEL 1 NOW HAVE OPTION TO GET DETAILED EXPLANATION."j;2. HAVE TITLES FOR EACH COL. TO IDENTIFY VARIABLE PRINTED.#j=3. PRINT 1,2,3,OR 4 TABLES IF AT LEAST 5,10,15,OR 20 COLUMNSj ARE DESIGNATED. j" j'PRTF' AND 'FPRF':&!j9WILL NOW PRINT IF IDA IS 'RDIM'-ED TO OTHER THAN 19 COLS.(jNOW HAVE 3 OPTIONS:*j 1. 'FITTED' ONLY,j 2. 'FITTED' AND 'RESIDUALS'. j8 3. DESIGNATED DATA COL. PLUS 'FITTED' AND 'RESIDUALS'0j2j8NOV73:j'CRSP':<j6PROMPT LEVEL 1 HAS OPTION TO GET DETAILED EXPLANATION.>!j:CHECK OPTION NOW LISTS MISSING DATES FOR DESIGNATED HEADER@j NUMBERS OF CRSP STOCKS.DjF!j:'HIST': NEW PRINT FORMAT USED SO DIGITS ON NEGATIVE END OFHj5 HORIZONTAL SCALES OF HISTOGRAM AND CDF ARE NOJj. LONGER CHOPPED OFF FOR CERTAIN VALUES.Ljj/ 2NOV73 BUG IN SORT,RANK, AND PSORT CORRECTED."j; USE AFTER REGRESSION SPECIFIED NO LONGER WIPES OUT j8 V MAT LIST OF REGRESSION VARIABLE COL. NUMBERS.j#j>31OCT73 BUG IN 'POWER' EXECUTION CORRECTED. WILL NOW COMPUTEj POWERS OF ZERO VALUES.j5 30OCT73 BUG IN 'MSOR' CORRECTED. SEE 2NOV73 'NEWS'.j#j>NEW COMMAND 'INFO' PUT ON FOR SAME TASK AS 'HELP' TO ALLEVIATE#j> PROBLEM OF NOVICES GETTING LOGGED ON TO OTHER PORT IF j2 THEY TYPE 'HELP' WHEN UNDER H-P CONTROL.  j25OCT73 WARNING!!j2 IF YOU USE THE SYSTEM COMMAND 'KIL' AFTER"$j@ RUNNING AND INTERRUPTION OF A CHAINED PROGRAM LIKE IDA,$#j> YOU WILL LOSE YOUR COMMON DATA AND WILL HAVE TO START& j OVER. *$j@ TO SAVE COMPUTING TIME, THE CORRELATION MATRIX WILL NOT,!j: BE COMPUTED OR UPDATED UNTIL IT IS REQUIRED FOR A.j CHOSEN COMMAND. 0#j= DURING THE PAST MONTH MANY CHANGES HAVE BEEN MADE IN2 j IDA: 4#j= 1. OUTLIERS OR RESIDUALS ARE NOW IDENTIFIED BY THEIR6"j< ROW (RATHER THAN POSITION AS ACTIVE OBSERVATION)8j! IN THE DATA MATRIX. >#j= 2. ADDITIONAL TESTS HAVE BEEN ADDED SO THAT THE USER@#j= WILL BE GIVEN AN IDA DIAGNOSTIC RATHER THAN BEINGB"j< KICKED OUT OF IDA CONTROL IF HE GIVES AN INVALIDDj RESPONSE. H"j; 3. MORE HELPFUL IDA DIAGNOSTICS HAVE BEEN ADDED. j21SEP73 NEW COMMAND AVAILABLE:!j9'GAUS' COMPUTES NORMAL PROBABILITIES FOR USER SPECIFIED%jA MEAN, STD.DEV. AND LOWER AND UPPER LIMITS OF VARIABLE.  j811SEP73 NEW VERSIONS OF 'SCAT,' 'NORM,' 'HIST,' 'FREQ,'!j9 'AUTO,' 'RUNS,' 'SERC,' 'DURB' AND 'RVSF' HANDLE$j? MORE OBSERVATIONS. RESIDUALS AND FITTED VALUES NOW UP-"j< DATED AUTOMATICALLY IF DECLARED AS VARIABLES IN THEj FIRST 8 COMMANDS. Lj30AUG73 NEW COMMAND AVAILABLE:V"j<'PSAM' ENABLES USER TO SELECT A PROBABILITY SAMPLE--SIMPLE`j, RANDOM, STRATIFIED OR SYSTEMATIC. $j?24AUG73 HIDDEN CONTROL CHARACTER WHICH TURNED OFF GE-TERMINETSj REMOVED FROM 'PLTS.'#j> 22AUG73 'PLTS' NOW SHOWS WHICH, IF ANY, ROWS ARE DELETED AND"j; GIVES MEAN AND STD.DEV. OF OBSERVATIONS PLOTTED AS(j- WELL AS OF ALL ACTIVE OBSERVATIONS. xj16AUG73 NEW COMMAND AVAILABLE:"j;'CRSP' ALLOWS USER TO ENTER CRSPR FILE DATA FOR 1 OR MORE!j: SECURITIES FOR SUB-PERIOD SPECIFED BY USER. ALSO!j: ALLOWS USER TO ADD OR REPLACE A COLUMN WITH CRSPRj* DATA FOR THE SUB-PERIOD CHOSEN. "j<8/5/73. INCORRECT UPDATING BY THE SYSTEM (DESCRIBED IN NEWSj, ITEM OF 4/11/73) HAS BEEN REMEDIED.,!j: 12JUN73 'NORM' NOW INCLUDES SMALL FREQUENCY DISTRIBUTION.."j< 'PLTS' MAY BE USED TO PLOT ALL OR SOME OBSERVATIONS0j3 SPECIFIED BY USER FOR SPECIFIED VARIABLE. 6"j<1JUN73 NEW VERSION OF 'NORM' REPLACED BY OLD BECAUSE OF BUG;j' IN REGR, NORM, SWEE SEQUENCE. @j25MAY73 NEW COMMAND AVAILABLE:J!j9'MSOR' SORTS OBSERVATIONS OF ENTIRE DATA MATRIX SO THATT"j; VARIABLE DESIGNATED BY USER IS IN ASCENDING ORDER.^j0 ALL VARIABLES REMAIN IN SAME COLUMNS. hj3BUG IN 'SORT', 'RANK', AND 'PSOR' CORRECTED TO SORTr!j9OBSERVATIONS OF A VARIABLE WITH ONLY VALUES OF 0 AND 1. j22MAY73 NEW COMMAND AVAILABLE:j'ENRA'j3ALLOWS USER TO ENTER SELECTED DATA FROM A 'SPECIAL'!j9STRUCTURE RANDOM ACCESS FILE WHICH INCLUDES NAMES FOR THEj6VARIABLES. FOR USE IN STUDIES INVOLVING LESS THAN 1001j6OBSERVATIONS AND LESS THAN 129 VARIABLES. ISSUE 'EXPL'jFOR FURTHER EXPLANATIONS. !j94/27/73. TO USE THE COMMANDS 'SORT', 'PSOR', AND 'RANK',  j8THE RECEIVING COLUMNS MUST BE DIFFERENT FROM THE COLUMNS  j7BEING OPERATED ON. PREVIOUS VERSIONS OF THESE COMMANDS &"j;DID NOT SAFEGUARD AGAINST THEIR IMPROPER USE. NOW THEY DO. 0/@ vj!22APR73 NEW COMMAND AVAILABLE: j/ ENTS (ENTER SELECTED DATA FROM SERIAL FILE.) j. USED TO ENTER INTO THE IDA DATA MATRIX j/ N OBSERVATIONS ON K3 VARIABLES SELECTED j2 FROM THE K VARIABLES IN A SERIAL FILE CON- j3 TAINING AT LEAST N X K ELEMENTS. (IF 'ENTE' j1 IS USED WITH A SERIAL FILE ALL N X K ELE- j0 MENTS ARE ENTERED INTO THE DATA MATRIX.) /@ !j:4/11/73. WARNING!! THE FOLLOWING SEQUENCES OF OPERATIONS j1WILL RESULT IN INCORRECT UPDATING BY THE SYSTEM : j j0A. 'DIFF' OR 'LAGG' FOLLOWING 'DELO' OR 'DELB' j3B. TRYING TO DELETE OBSERVATIONS THAT ARE ALREADY!j. INACTIVE, OR TRYING TO DELETE OR RETRIEVE! j0 OBS. THAT ARE NONEXISTENT (DUE TO PRIOR USE!j OF 'LAGG' OR 'DIFF')! j!* jTEMPORARY REMEDY:!4j2A. METHOD 1. 'DELO' ON FIRST ACTIVE OBSERVATION!>j& AFTER 'DIFF' OR 'LAGG'!Hj1 METHOD 2. AFTER 'DELO' OR 'DELB' AND BEFORE!Rj0 EXECUTING 'DIFF' OR 'LAGG', SAVE!\j1 ACTIVE DATA IN TEMPORARY FILE AND!fj( RE-ENTER THE TEMP. FILE.!p jB. DON'T DO IT.!z/@!j02/20/73. THREE NEW COMMANDS ARE NOW AVAILABLE :!j!j6 SORT SORTS THE VALUES IN ANY VARIABLE (COLUMN) INTO! j7 ASCENDING ORDER AND PLACES THE RESULTANT VECTOR!j2 INTO A COLUMN TO BE SPECIFIED BY THE USER.!j!j5 RANK ASSIGNS RANKS TO THE OBSERVATIONS IN A COLUMN!j5 (SPECIFIED BY THE USER) AND PLACES THE VECTOR! j7 OF RANKS INTO ANOTHER COLUMN (TO BE SPECIFIED).!j! j7 PSOR PAIRED SORT. SORTS ONE VARIABLE INTO ASCENDING" j8 ORDER AND CARRIES ANOTHER VARIABLE WITH IT. THE"j5 SORTED VARIABLES CAN BE PLACED IN ANY COLUMNS"j6 TO BE SPECIFIED BY THE USER. FOR EXAMPLE, LET"$j( THE VALUES OF COLUMNS 1 AND 2 BE".j) C1: 3.2 2.5 2.2 5.1 2.3"8j) C2: 1.0 1.3 4.2 4.4 3.0"B j7 SUPPOSE WE PSORT C1 WITH C2 AS THE ACCOMPANYING"Lj5 VARIABLE AND PLACE THE RESULTANT VARIABLES IN"V j8 COLUMNS C3 AND C4 RESPECTIVELY, THEN WE'LL HAVE:"`j) C3: 2.2 2.3 2.5 3.2 5.1"jj) C4: 4.2 3.0 1.3 1.0 4.4"tj5 ONE POSSIBLE USAGE: PSORT FITTED VALUES FROM"~j5 REGRESSION AND CARRY RESIDUALS. THEN ANALYSE"j* THE VECTOR OF RESIDUALS SO SORTED."j"!j:2/20/73. COMMAND 'AUTO' NOW COMPUTES BOX-PIERCE STATISTIC" j7AND THE NORMAL APPROX. TO ITS CHI-SQUARE APPROXIMATION."/@"j51/2/73. THE SYSTEM PROGRAM '$CALC' HAS BEEN MODIFIED"j5SO THAT IT IS AVAILABLE UNDER THE IDA COMMAND 'CALC'."!j9IT IS A CALCULATOR CAPABLE OF DOING ARITHMETIC OPERATIONS" j7WITH A VARIABLE LENGTH ACCUMULATOR OF UP TO 150 DIGITS."/@#(j31/1/73. COMMAND 'RAND' NOW AVAILABLE. ALLOWS USER#2j6TO SAMPLE FROM CAUCHY, CHI-SQUARE, GAMMA-1, LOGNORMAL,#<j"NORMAL, AND UNIFORM DISTRIBUTIONS.#F/@#j312/10/72. 'CHAIN' ERROR IN IDA47 (ENCOUNTERED WHEN#j6EXECUTING 'APPO','APPS', OR 'APPV' HAS BEEN CORRECTED.#/@#j412/8/72. 10:30A.M. CLERICAL ERRORS IN THE CONVERSION#j3OF OLD 'IDA' TO THE PRESENT VERSION CAUSED IMPROPER#j5EXECUTION OF CERTAIN TRANSFORMATIONS. NOW CORRECTED.#/@$Tj112/7/72. A NEW COMMAND 'NEWC' ALLOWS THE USER TO$Yj0DEFINE UP TO FIVE COMMAND NAMES FOR HIS OWN USE,$^ j7I.E., CHAINING $IDA TO PROGRAMS IN HIS PRIVATE LIBRARY.$cj'TO DEFINE A NEW COMMAND NAME, YOU MUST:$hj21. HAVE A 4-LETTER COMMAND NAME THAT IS DIFFERENT$mj' FROM THOSE USED IN THE SYSTEM $IDA.$rj52. HAVE A PROGRAM IN YOUR LIBRARY BY THAT NAME. THE$wj4 PROGRAM MUST HAVE THE SAME 'COMMON' VARIABLES AS$| j THAT OF $IDA.$j1 (GET AND LIST $IDACOM TO SEE REQUIRED FORMAT)$j1 (GET AND RUN $IDAVAR TO GET AN EXPLANATION OF$j$ THE VARIABLES USED IN 'COMMON')$/@$j.12/7/72. IDA NOW CAN BE RE-DIMENSIONED BY THE$j-USER TO HANDLE MORE THAN 100 ROWS IN THE DATA$j,MATRIX SUBJECT TO THE FOLLOWING CONSTRAINTS:$j$jNO. VARIABLES MAX. NO.$j (COLUMNS) (ROWS)$j$j 19 100$j 15 122$j 10 171$j 8 203$j 5 280$j 4 300$j$j1AND ANY OTHER COMBINATION OF R(ROWS) AND C(COLS.)$j.SUCH THAT R<=300, C<=19, AND (R+3)(C+3)<=2266.$j/THE COMMAND NAME TO RE-DIMEMSION IS 'RDIM'. IF$j.THE COMMAND IS NOT EXERCISED, THE MAXIMUM SIZE$j2DATA MATRIX THAT CAN BE ACCOMMODATED IS 100 BY 19.$/@$j010/17/72. THERE IS A TYPO ERROR IN THE WRITEUP.$ j7THERE IS NO COMMAND NAMED 'RVSP', BUT ONE NAMED 'RVSF'.$j2COMMAND 'SEPR' HAS BEEN UPDATED TO GIVE S.E.(Y) AS$j6WELL AS S.E. PREDICTED (Y). S.E.(Y) GIVEN IN PREVIOUS$j6VERSION WAS INCORRECT. IT GAVE THE SQUARE OF S.E.(Y).$/@%j310/6/72. IDA WELCOMES YOU. IF YOU SHOULD RUN INTO%&j4BUGS IN THE SYSTEM OR HAVE SUGGESTIONS TO MAKE, CON-%0j4TACT BOB LING (3-3668) OR HARRY ROBERTS (3-3609). IN%:j3THE CASE OF BUGS, PLEASE SAVE YOUR COMPUTER OUTPUT.%Dj3NEWS ABOUT 'IDA' WILL BE PRINTED IN REVERSE CHRONO-%Nj1LOGICAL ORDER. YOU MAY TERMINATE THE PRINTING OF%Xj5OLD NEWS BY STRIKING THE 'BREAK' KEY, THEN 'RUN-9998'%bj(TO GET BACK TO THE COMMAND LEVEL OF IDA.'`~IDACOM˗] M KgҔRaN JД<H(J- J^2 R: VERSION 15JAN74<R:FR: ************************************PR:ZR: CODE YOUR PROGRAM BETWEENdR: LINE 50 AND LINE 9998nR:xR: ***********************************R:' r$IDAK'`~IDAE01˗] +wV KgҔRaN JД<H(J- J^2R: 4 AUG 744R:FIRST EXPLANATION OF IDAdN0 jj1IDA (AN ACRONYM FOR 'INTERACTIVE DATA ANALYSIS')j"jRESULTS YOU DECIDE WHICH TASK YOU WISH IDA TO EXECUTE NEXT ANDjISSUE THE APPROPRIATE COMMAND.#j=WHEN YOU DO NOT WANT TO DO MORE, YOU TYPE THE COMMAND 'QUIT'.jj*CURRENTLY THERE ARE OVER 100 IDA COMMANDS.$j)$j?> IS THE SYMBOL INDICATING THAT IDA IS READY FOR YOU TO ISSUE.&jC A COMMAND WORD INDICATING WHICH TASK IS TO BE EXECUTED NEXT.3j8&jCPROMPTS ARE GIVEN BY IDA WHEN MORE INFORMATION IS NEEDED TO EXECUTE=j) THE TASK INDICATED BY THE COMMAND.B%jB THE PROMPTS ARE DETAILED (LEVEL 1), LESS DETAILED (LEVEL 2)Gj. OR BRIEF (POSSIBLY CRYPTIC) IN LEVEL 3.L$j? PROMPT LEVEL 1 IS IN EFFECT UNLESS YOU ISSUE THE COMMANDQj( CHGP TO CHANGE THE PROMPT LEVEL.V$j@ IT IS SUGGESTED YOU USE PROMPT LEVEL 1 THE FIRST TIME YOU[ j8 ISSUE A COMMAND IN ORDER TO TAKE ADVANTAGE OF THE` j7 ADDITIONAL EXPLANATIONS AVAILABLE AT THAT LEVEL.ejj j7* WILL PRECEDE A PROMPT IF FURTHER INFORMATION WILL BEoj FORTHCOMING IF YOUtj (1) TYPE ? ORyj (2) JUST SIT AND WAIT A BIT.~j#(j&YOU CAN GET MORE INFORMATION ABOUT IDA!j: (1) FROM 'CONVERSATIONAL STATISTICS' AND ITS 'COMPUTERj PREFACE', ORj$ (2) IF YOU GET-$IDA, RUN IT, ANDj ISSUE THE IDA COMMANDS:"j< EXPL TO GET AN EXPLANATION FOR A SPECIFIC COMMAND"j< INFO TO GET EXPLANATIONS OF ALL THE COMMANDS IN Aj6 GROUP--SUCH AS TRANSFORMATION COMMANDSj OR, IN SOME CASES,j, ISSUE THE COMMAND AT PROMPT LEVEL 1.jj"IN ORDER TO ANALYSE DATA WITH IDA,j2DATA MUST FIRST BE ENTERED IN THE IDA DATA MATRIX.$j?YOU CAN THINK OF THE DATA MATRIX AS A TABLE WITH NUMBER OF ROWS$j?EQUAL TO THE NUMBER OF OBSERVATIONS (QUESTIONNAIRES) AND NUMBERj,OF COLUMNS EQUAL TO THE NUMBER OF VARIABLES.jj,YOU MAY ENTER DATA IN THE IDA DATA MATRIX BY#j> (1) USING DATA FILE(S) AND ONE OF THE FOLLOWING COMMANDS:j* ENTER, ENTS, ENRA, CRSP, OR EOBR;j$j? (2) INPUTTING DATA DIRECTLY FROM THE TERMINAL WITH TAPE ORj! KEYBOARD, USING 'ENTER';j $j@ (3) ENTERING DATA GENERATED BY IDA, USING 'RAND' OR 'INDX'.j!j9AFTER DATA IS ENTERED, YOU MAY EXECUTE OTHER COMMANDS TO:&jCDESIGNATE VARIABLES FOR ANALYSIS OF CROSS-SECTIONAL AND TIME-SERIES%jA DATA BY SIMPLE AND MULTIPLE REGRESSION AND RELATED TECHNIQUES;#"jYOU CAN NORMALLY ENTER A MAXIMUM OF 100 ROWS (OR OBSERVATIONS)#j=AND A MAXIMUM OF 19 COLUMNS (OR VARIABLES) OF DATA IN THE IDA"j;DATA MATRIX, BUT YOU CAN USE THE IDA COMMAND 'RDIM' TO RE-!j9DIMENSION THE DATA MATRIX TO MORE ROWS (A MAX. OF 563) ATj+THE EXPENSE OF FEWER COLUMNS (A MIN. OF 1).jj+YOU CAN STOP THE NORMAL EXECUTION OF IDA BY"j< (1) USING C-CONTROL IF IT IS AWAITING INPUT BY YOU, OR,j OTHERWISE,j6 (2) USING THE 'BRK', 'BREAK', OR 'INTERRUPT' KEY.j j7IF YOU THEN WISH TO GET BACK TO THE COMMAND LEVEL, TYPEj 'RUN-9998', THEN CARRIAGE RETURN!j9AND IDA WILL RESPOND WITH > THE COMMAND READINESS SYMBOL.jj-TO STOP USING IDA, TYPE THE IDA COMMAND QUIT.jTO GET A LIST OF IDA COMMANDS, jTYPE THE IDA COMMAND, COMMjTO GET ADDITIONAL DETAILS, jTYPE THE IDA COMMAND, INFO'#(j* WANT MORE DETAILS ? #2#P#< j * MORE ? #P0#Zj#nW##x jPLEASE RESPOND:#$j@'N9' (OR 'N'), OR 'YES' (OR 'Y'), FOLLOWED BY A CARRIAGE RETURN.##<#V00##V0@@0Y##V0@@0N'#V0@@0?#x# jINVALID RESPONSE.##x#^' r$IDAK'`TIDAE08Η] Q KgҔRaN JД<H(J- J^.JP2R:13JUN744R:EXPLANATIONS FOR ENTE,STAR,CRFI,ENRA,EOBRdN0  W`@ W`\  W`HU$j?'ENRA' WILL ENTER A SUBSAMPLE OF DATA FROM A RANDOM ACCESS DATAj0FILE IN THE IDA DATA MATRIX IF THE FILE CONTAINS%jA A DATA MATRIX OF N1 X K1 (A 'TABLE' OF N1 ROWS AND K1 COLUMNS),j WITH THE DATA FOR:j4 ROW 1 STARTING AT THE BEGINNING OF REC.# R1, AND$"j< ROW I STARTING AT THE BEGINNING OF REC.# (R1+M X [I-1])..#j= R1 = 1 OR 2 (PREFERABLY 2, WITH VALUES FOR N1 AND K18j$ IN RECORD # 1)Bj6 M = THE # OF RECORDS REQUIRED TO STORE ONE ROWL#<V&jC'ENRA' ALLOWS YOU TO DESIGNATE A SET OF COLUMNS (VARIABLES) K OF K1`j TO ENTER IN THE IDA DATA MATRIX.jjt#j=GIVEN THE CONSTRAINTS OF THE CURRENT IDA DIMENSIONS, YOU MAY:~$j?(1) ENTER ALL N1 ROWS (OBSERVATIONS, INTERVIEWS, CASES, ETC.);j1(2) ENTER A BLOCK OF ROWS DESIGNATED BY YOU; OR,%jB(3) ENTER THE FINAL SUBSAMPLE OF N ROWS (OBS.,...) RESULTING FROMj+ TAKING SUCCESSIVE SUBSAMPLES SELECTED;&jC PURPOSIVELY, ON THE BASIS OF THE VALUES OF A DESIGNATED COL.j AND/OR RANDOMLY.#<!j:THE N ROW #'S (OBS.#'S) OF THE SUBSAMPLE ARE AUTOMATICALLY$j@ENTERED IN COL.#(K+1) OF THE IDA DATA MATRIX IF THERE IS ROOM SO%jATHAT YOU CAN USE THEM WITH 'EOBR' TO SELECT THE SAME OBS.#'S WITH$j@OTHER SETS OF VARIABLES FROM THAT FILE. (YOU COULD SAVE THEM AS&jDA FILE CALLED, SAY, 'SAMP#1' WITH 'SAVF' FOR FUTURE USE WITH 'EOBR'.j%jA'ENRA' ALSO ALLOWS YOU TO CHECK THE CONTENTS OF YOUR FILE WITHOUT j ENTERING IN THE IDA DATA MATRIX.#(jj M=INT(.9999 + K1/128)(j2$j?'ENRA' WILL ALSO AUTOMATICALLY ENTER THE NAMES OF THE VARIABLES<%jA(COLUMNS) AND THE # REPRESENTING MISSING VALUES, IF ANY, IF THESEFj!ARE STORED IN THE FILE SUCH THAT:PjZ#j=(1) THE RECORDS IMMEDIATELY FOLLOWING THE DATA EACH CONTAIN d$j? SEVEN 60-CHARACTER-LONG STRINGS, EACH CONTAINING NAMES FORn"j< 10 VARIABLES. THE FIRST NAME RECORD, R2 = (R1+M X N1),x#j> MUST CONTAIN 'NAMES:', FOLLOWED BY NAMES FOR THE FIRST 70j COLUMNS (VARIABLES)."j;(2) THE RECORD FOLLOWING THE NAME RECORD(S) CONTAINS TEXT j DESCRIBING THE FILE.$j@(3) RECORD R3 = R2 + INT(1.9999 + K1/70) CONTAINS THE VALUES OFj P(61) AND P(62), WHERE:&jD P(61) = P(62) = 0 IF THERE ARE NO MISSING VALUES IN THE DATA"j< P(61)=1 AND P(62) = # REPRESENTING MISSING VALUES IFj THERE ARE ANYj%jBIF YOU HAVE INITIALIZED AND FILLED IN YOUR RANDOM ACCESS FILE WITH$j?THE IDA COMMAND 'CRFI', YOUR FILE WILL CONTAIN NAMES, TEXT, AND"j;MISSING VALUE INFORMATION IN ADDITION TO N1,K1 AND THE DATAjMATRIX.j'$j?'EOBR'--ENTER SELECTED OBSERVATIONS FROM A RANDOM ACCESS FILE--!j:WILL ALLOW YOU TO ENTER DIFFERENT SETS OF VARIABLES FROM A%jASUBSAMPLE N OF N1 ROWS (OBSERVATIONS, INTERVIEWS, CASES,...) FROM#j>A RANDOM ACCESS FILE, USING N OBSERVATION #'S LISTED IN AN IDA"j;DATA COLUMN. THESE #'S MAY HAVE BEEN ENTERED IN THE COL. BY j7USE OF 'ENTE', 'INDX', OR 'ENRA' (WITH THAT SAME FILE.) j' U j #j='STAR', OR START WITH ZEROS, IS USED FOR TIME-SERIES ANALYSIS #j=WHEN IT IS REASONABLE TO SPECIFY ZERO MEAN OR WHEN THE SAMPLE j8MEAN HAS BEEN SUBTRACTED OFF FROM THE INDIVIDUAL VALUES. j #j>'STAR' WILL DEFINE A DATA MATRIX OF ZEROS IN THE FIRST N ROWS, #j>THE FIRST K COLUMNS. YOU WILL BE ASKED TO SPECIFY N AND K AND  jTO SUPPLY K NAMES. j &"j;AFTER COMPLETION OF 'STAR', YOU MAY USE 'APPS' OR 'APPB' TO 0"jCOLUMNS (OR VARIABLES) ARE READ FROM THE FILE OR DESIGNATED BY!j:YOU, THE DATA IS ENTERED BY ROWS, STARTING WITH ROW 1 WITHj3K VARIABLES AND ENDING WITH ROW N WITH K VARIABLES.$j?ANY FILE CREATED IN IDA WITH THE 'SAVF' COMMAND WILL HAVE N AND!j:K AS THE FIRST TWO ELEMENTS, FOLLOWED BY N X K VALUES AND, j7SOMETIMES, 'NAMES:', FOLLOWED BY K NAMES, AND 'TEXT:',jFOLLOWED BY A DESCRIPTIVE TEXT.""j;'ENTE' WILL ENTER THESE NAMES AUTOMATICALLY, PRINT THEM OUT,j0FOR YOU, AND ASK IF YOU WANT TO SUPPLY NEW ONES.6"jYOU CAN ALSO ADD TO OR REPLACE COLUMNS OF DATA WITH CRSP- DATAjBY USING 'CRSP' AGAIN.$j.#j=YOU NEED TO KNOW TWO 'HEADER NUMBERS' FOR EACH STOCK YOU WISH8%jATO LOAD. THESE HEADER NUMBERS ARE GIVEN IN THE 'CRSP DIRECTORY',B'j,ON FILE IN THE COMPUTER LAB, FOR EACH OF THEX STOCKS IN THELj-CRSP FILES AND FOR THE NYSE ARITHMETIC INDEX.V"`$j?YOU WILL ALSO BE ASKED, IN SEQUENCE, IF YOU WISH TO LOAD $CRSPRj$j@DATA, $CRSPS DATA, AND FINALLY $CRSPP DATA. YOU CAN ONLY CHOOSEtj*ONE OF THESE FOR EACH EXECUTION OF 'CRSP.'~j!j:YOU WILL BE ASKED THE STARTING (AND ENDING) MONTH AND YEAR%jAYOU WISH TO USE FOR THE STOCK RETURNS OR PRICES YOU ARE ENTERING.#($j@THE NYSE ARITH. INDEX AND SOME OF THE STOCKS HAVE PRICE DATA FORkHMONTHS FROM 1/1926 THROUGH jHHH 2D,"/",4D!j AND RETURNS DATA FROM 2/1926 FORH@MONTHS.!j9OTHER STOCKS HAVE DATA FOR SHORTER PERIODS, AND SOME HAVEj(MISSING MONTHLY PRICES IN THOSE PERIODS.j(!j9CRSPR DATA ARE MONTHLY RETURNS WITH DIVIDENDS REINVESTED.#j=CRSPS DATA ARE MONTHLY RETURNS WITHOUT DIVIDEND REINVESTMENT.$j$CRSPP DATA ARE MONTHLY PRICES OF THEXSTOCKS PLUS THEjNYSE ARITHMETIC INDEX.j j*IF YOU ANSWER 'YES' TO THE '...CHECK...?' j8QUERY IN 'CRSP', YOU WILL BE GIVEN THE STARTING, ENDING,j/AND MISSING DATES FOR ANY STOCK IF YOU KNOW ITS jHEADER NUMBERS. j!j"TO EXECUTE 'CRSP', REISSUE 'CRSP'.#'(#j=THE PROGRAM $LISCRS WILL GIVE YOU SOME INFORMATION ON NUMBERS2j#IN THE CRSPH--OR CRSP HEADER--FILE.7#(<jTO GET YOU STARTED,Fj%HERE ARE 4 WITH THEIR HEADER NUMBERS:Pj 1,1 NYSE ARITHMETIC INDEXZ j 66,2 AT&Td j 500,2 IBMnj$291,2 DETROIT AND MACKINAC RAILWAYpjx "j* WANT MORE DETAILS ? "#2#(W@7@P##0 j* MORE ?#20#<j#FW#}#P jPLEASE RESPOND:#Rj"NO, FOLLOWED BY A CARRIAGE RETURN,#Tj) IF YOU DON'T WANT ANY MORE EXPLANATION#d j8WITH A CARRIAGE RETURN ONLY IF YOU WANT MORE EXPLANATION#n#0#}V0@@0Y##~V00##V0@@0N!#V0@@0?#P# jINVALID RESPONSE.##P#j#^' r$IDAK'`IDAE15˗] +1 KgҔRaN JД<H(J- J^2R:12MAY744 R:EXPLAIN CTAB,MTABZ N0 Pj!EXPLANATION OF 'CTAB' AND 'MTAB':j$j@ CTAB PROVIDES A CROSS-TABULATION OR 2-WAY FREQUENCY DISTRI-'jEBUTION OF CATEGORICAL VARIABLES X AND Y, OR OF QUANTITATIVE VARIABLES'jFX AND Y THAT CAN BE PUT INTO FREQUENCY CLASSES DURING EXECUTION OF THE%jACOMMAND. Y IS THE 'VERTICAL' OR 'ROW' VARIABLE, CORRESPONDING TO'jETHE 'DEPENDENT VARIABLE' OF SIMPLE REGRESSION. X IS THE 'HORIZONTAL'$%jAOR 'COLUMN VARIABLE', CORRESPONDING TO THE 'INDEPENDENT' VARIABLE.jOF SIMPLE REGRESSION.8#<B%jB IN THE PRINTED TABLE X CAN HAVE A MAXIMUM OF 9 CATEGORIES ANDL&jCY CAN HAVE A MAXIMUM OF 21. IF X IS CODED IN ADVANCE AS AN INTEGERV&jCIN THE RANGE 1 TO 9, AND Y AS AN INTEGER IN THE RANGE 1 TO 21, THEN`&jDNO EXPLICIT CHOICE OF CLASS INTERVALS NEED BE MADE DURING EXECUTION.j&jCOTHERWISE, TAKE THE OPTION OF DEFINING CLASS INTERVALS; THE PROMPTSt$j?ARE DETAILED AT LEVEL 1 AND SHOULD BE SELF-EXPLANATORY. IF YOU~(jGDO DEFINE CLASS INTERVALS, YOU WILL BE GIVEN THE OPTION OF PRINTING OUT#j>YOUR 'DECODED' INTERVALS UNDERNEATH THE JOINT FREQUENCY TABLE.#<$j? CTAB ALSO GIVES THE OPTION OF PRINTING OUT THE CONDITIONAL&jDDISTRIBUTION OF Y GIVEN X IN PERCENTAGE FORM--THAT IS, PERCENTS THAT'jFSUM TO 100 VERTICALLY. IF YOU WANT PERCENTS IN THE OPPOSITE DIRECTION j7RE-EXECUTE THE COMMAND WITH THE VARIABLES INTERCHANGED.j"j< YOU SHOULD BECOME FAMILIAR WITH CTAB BEFORE USING MTAB.(jGWITH BOTH CTAB AND MTAB YOU WILL GET THE BEST RESULTS IN TABLE PRINTOUT&jDIF YOU HAVE NAMED YOUR VARIABLES UPON THEIR ORIGINAL ENTRY INTO IDA.&jDIF YOU HAVE LOTS OF VARIABLES, YOU MAY PREFER TO USE THE ALTERNATIVE&jCENTRY COMMAND 'ENTS', WHICH PERMITS VARIABLES TO BE NAMED ACCORDINGj'TO THEIR COLUMN IN THE IDA DATA MATRIX. #<%jA MTAB MAKES IT POSSIBLE TO TABULATE THE MEANS OF A VARIABLE Z'jFACCORDING TO THE CELLS DEFINED BY X AND Y, WHERE X AND Y ARE THE SAME ($j@AS IN CTAB. THUS Z IS LIKE THE DEPENDENT VARIABLE IN A MULTIPLE2"j;REGRESSION FOR WHICH THE INDEPENDENT VARIABLES ARE X AND Y.<'jFTHE COMMAND EXECUTES IN MUCH THE SAME FASHION AS CTAB, BUT IN ADDITIONF%jBTO X AND Y, YOU WILL BE PROMPTED TO ENTER Z. YOU WILL BE GIVEN THEP'jEOPTION OF PRINTING OUT A 2-WAY TABLE OF X AND Y PRIOR TO THE PRINTOUTZjOF THE TABLE OF MEANS OF Z.d#<n&jC IN ORDER TO PROVIDE FOR A NEAT PRINTOUT OF THE MEANS, THEY AREx&jCPRINTED OUT IN INTEGER FORMAT 'DDDDD'. YOU WILL BE PROMPTED ON THE&jCNECESSARY SCALING BY AN APPROPRIATE POWER OF 10 IN ORDER TO DISPLAY"j2. THE COLUMN, J2, IN WHICH THE TRANSFORMED VARIABLE IS TO BE$j@ PLACED--A DATA COL. OR A SCRATCH COL., IF YOU HAVE SET ASIDE j SCRATCH COLUMNS WITH 'RDIM'.j!3. THE NUMBER OF CATEGORIES, K3. j64. A VALUE, B(I), TO BE ASSIGNED TO EACH CATEGORY, I.*$j@5. THE UPPER LIMIT, U(I), OF EACH OF THE FIRST K3-1 CATEGORIES.4#<>j3FOR EXAMPLE, IF THE VARIABLE TO BE TRANSFORMED HAS:Hj-MIN. = 40; MAX. = 80; MEAN = 60; STD.DEV. = 5R$j?YOU MIGHT CHOOSE, K3=3; B(1)=0, U(1)=55; B(2)=1, U(2)=65;B(3)=0\#j>THUS, EVERY ROW WITH VALUE <= 55 OR > 65 IN COL. J1 WOULD BE 0f#j>IN COL.J2. EVERY ROW WITH VALUE >55 AND <=65 IN J1 WOULD BE 1pjIN J2.z' vPSELR #j='SELR' CAN BE USED TO SELCT ROWS FOR WHICH A SPECIFIED COLUMN j/HAS SPECIFIED VALUES AND DELETE ALL OTHER ROWS. !j:THE COLUMN J2 MAY BE A DATA OR A SCRATCH COL. FOR EXAMPLE, j'YOU CAN SPECIFY THAT ALL ROWS FOR WHICH j L <= X(I,J2) <= U j%BE ACTIVE, AND ALL OTHERS BE DELETED. j2YOU MUST HAVE ALL ROWS ACTIVE BEFORE USING 'SELR'. 'vPMOVE"j<'MOVE' CAN BE USED TO MOVE ALL VALUES FROM COL.J1 TO COL.J2.j3WHEN DATA MATRIX COL.J1 IS MOVED TO SCRATCH COL.J2,"j J1 ARE MOVED TO THE NEXT COLUMNj3TO FILL THE GAP AND ZEROES ARE PUT IN THE LAST ONE.j,WHEN SCRATCH COL.J1 IS MOVED TO DATA COL.J2,!j:COL.J1 IS FILLED WITH ZEROES AFTER ITS VALUES ARE MOVED TO j DATA COL.J2. j8NO COMPUTATIONS ARE DONE ON SCRATCH COLUMNS--THUS SAVING!j9UNNECESSARY COMPUTATIONS. ALSO, SCRATCH COLUMNS ARE NOT  j7ERASED WHEN 'ENTE' AND OTHER SIMILAR COMMANDS ARE USED.'vPDELV%jB'DELV' IS USED TO DELETE A DATA COLUMN WHICH IS NO LONGER NEEDED--j0THUS SAVING UNNECESSARY UPDATING OF THAT COLUMN."j;IF COL.J IS DELETED, THE VALUES IN EACH COLUMN >J THROUGH K$j@ARE MOVED TO THE NEXT COLUMN NUMBER. NAMES, CORRELATION VALUES,jETC. ARE ALSO CORRECTED.'#<W@7@P##F j* MORE ?#P0#Zj#nW##x jPLEASE RESPOND:#j#NO, FOLLOWED BY A CARRIAGE RETURN, #j&IF YOU DON'T WANT ANY MORE EXPLANATION#!j9WITH A CARRIAGE RETURN ONLY, IF YOU WANT MORE EXPLANATION##F#V00##V0@@0Y##V0@@0N'#V0@@0?#x# jINVALID RESPONSE.##x#j#^'jTO USE P , REISSUE P' r$IDAK'`IDAE21˗]  KgҔRaN JД<H(J- J^2R:11JUN744Tr!@68:<>@Bbbbbbc5Tr!@hcc6 Ud,X 8T@Lx@:T@ l4 `<T`  ( T  >T@  H t<@TP h0\BT` $P|`jNO EXPLANATION YET. SORRY.a'br$IDAE22cr$IDAE23djABSOLUTE VALUE TRANSFORMATIONij----n'j%ADD CONSTANT TO COLUMN OF DATA MATRIXj--- -j2COLUMN(J) = COLUMN(I) + C ; I, J, C USER SPECIFIED', j ADD VECTORS1j--- -6j!COLUMN(K) = COLUMN(I) + COLUMN(J);jI, J, AND K ARE USER SPECIFIED@' j7ALL SUBSETS OF INDEPENDENT VARIABLES WILL BE CONSIDEREDj--- -j2IN THE REGRESSION RUN. THE NUMBER OF INDEPENDENT j&VARIABLES CONSIDERED MUST BE 6 OR LESS'!j9ANOVA (ANALYSIS OF VARIANCE) TABLE FOR CURRENT REGRESSIONj----'Xj5APPEND AN OBSERVATION (ROW) VECTOR TO THE DATA MATRIX] j --- -b'j%APPEND A SUBMATRIX TO THE DATA MATRIX j --- -j'THIS COMMAND MAY BE USED TO ADD SEVERALj(VARIABLES TO THE DATA MATRIX OR CHANGE Aj"BLOCK OF VALUES IN THE DATA MATRIX' j4APPEND A VARIABLE (COLUMN) VECTOR TO THE DATA MATRIX% j --- -*'j3AUTOCORRELATION COEFFICIENTS OF A VARIABLE (COLUMN)j----'j)BACKWARD PROCEDURE IN STEPWISE REGRESSIONj----'LjB-COEFF CORR MATRIXQ j - ---Vj/B-COEFF ARE THE CURRENT REGRESSION COEFFICIENTS['jB-COEFF COVARIANCE MATRIX j - ---Vj4CHANGE A SINGLE OBSERVATION VALUE IN THE DATA MATRIX j-- - -'xjCHANGE THE LEVEL OF PROMPT}j-- - -j) 1 = DETAILED PROMPTS, ELEMENTARY LEVELj. 2  = ABBREVIATED PROMPTS, INTERMEDIATE LEVELj& 3 = CRYPTIC PROMPTS, ADVANCED LEVEL'j*COEFFICIENTS AND THEIR STANDARD ERRORS ANDj----j&THE T VALUES IN THE CURRENT REGRESSION'@j(CORRELATION MATRIX OF A SET OF VARIABLESEj----Jj.TO BE SPECIFIED BY THE USER. WILL BE PROMPTEDO'jCOVARIANCE MATRIX OF VARIABLESj----'j3DELETE A BLOCK OF ROWS OF DATA FROM THE DATA MATRIX j --- -$j?THESE CAN LATER BE RETRIEVED BY THE COMMAND 'RECOUP' OR 'RETB.''l j7DELETE AN OBSERVATION (ROW) VECTOR FROM THE DATA MATRIXq j --- -v j7IT CAN LATER BE RETRIEVED BY THE COMMAND 'RETO,' 'RETB'x j OR 'RECOUP.''jDIFFERENCING TRANSFORMATIONj)---- X(L,J) = X(L,I) - X(L-K,I) WHERE:jK IS THE GAP FOR DIFFERENCING,j!L = K+1,... OF THE ACTIVE MATRIX,j(I IS THE VARIABLE TO BE TRANSFORMED, ANDj2J IS THE COLUMN TO PLACE THE TRANSFORMED VARIABLE.jI,J,K AND L USER SPECIFIED."jEXPL FOR 56'DIFF' OR 'LAGG' HAS MADE FIRST ROWS UNAVAILABLE FOR ANALYSIS.'pj+REGRESSION : TO SPECIFY REGRESSION EQUATIONuj----z'jRETRIEVE A BLOCK OF ROWS j --- - 8j$RETRIEVE AN OBSERVATION (ROW) VECTOR= j--- - B j RUNS TEST j ---- FOR  j7RESIDUALS OR ANY OTHER VARIABLE (COLUMN IN DATA MATRIX)'jRESIDUALS VS FITTED VALUES PLOT j- -- - j0A VERY SMALL PLOT TO TAKE A QUICK LOOK TO SEE IFj5REGRESSION ASSUMPTIONS ARE BADLY VIOLATED. USE 'SCAT'jFOR A DETAILED PLOT IF DESIRED.'dj1SAMPLE SUBSETS OF OBSERVATIONS FOR ERROR ANALYSISij----nj3. REGRESSION USING RANDOM SUBSAMPLES OF DATA MATRIXs'j1SAVE ON A FILE PART OR ALL OF ACTIVE DATA MATRIX. j --- -j-USER WILL BE PROMPTED TO GIVE THE NAME OF THEj*FILE HE HAS OPENED TO SAVE THE DATA MATRIX',j3SAVE RESIDUALS OF CURRENT REGRESSION IN DATA MATRIX1j--- -6' j SCATTER PLOT j---- OF  j7STANDARD ERROR OF PREDICTED VALUE IN CURRENT REGRESSIONj- - --'Xj-SERIAL CORRELATION OF VARIABLE IN DATA MATRIX]j--- -b'j3STANDARDIZATION TRANSFORMATION OF VARIABLE (COLUMN)j----' j+STEPWISE REGRESSION : USER TO SPECIFY STEPS%j----*'j2SUBSETS OF VARIABLES OF A GIVEN SIZE IN REGRESSIONj----j4ANALYSIS. USER WILL BE PROMPTED TO SPECIFY THE DEP.j4AND INDEP. VARS. AND AN INTEGER VALUE K. REGRESSIONj4WILL BE PERFORMED ON ALL DIFFERENT COMBINATIONS OF KjOF THE INDEPENDENT VARIABLES.'j(SUMMARY STATISTICS OF CURRENT REGRESSIONj----j-S.E. OF RESIDUALS, MULTIPLE R, R SQUARE, ETC.'Lj3SWEEP OPERATION. USER WILL BE ASKED TO SPECIFY THEQj----Vj0VARIABLE TO BE SWEPT. IF THE VARIABLE IS IN THE[j4CURRENT REGRESSION EQUATION, IT WILL BE DELETED FROM`j5THE REGRESSION. OTHERWISE, IT WILL BE ADDED. BEFOREej*EXECUTING 'SWEEP', ONE OF THESE COMMANDS :jj REGR STEP FORWoj-MUST FIRST BE EXECUTED TO IDENTIFY THE SET OFtj*INDEPENDENT VARIABLES UNDER CONSIDERATION.y'j!WEIGHTED LEAST SQUARES REGRESSIONj- - - -' j7TRANSFORM SEVERAL VARIABLES BY THE SAME TRANSFORMATION.j----'xj)RE-DIMENSION THE MAX. SIZE OF DATA MATRIX}j- ---j0TO HANDLE MORE THAN 100 ROWS IN THE DATA MATRIX.&j2NEW COMMAND NAME. ALLOWS USER TO DEFINE UP TO FIVEj6--- - COMMAND NAMES FOR HIS OWN USE, I.E.,j3CHAINING $IDA TO PROGRAMS IN HIS PRIVATE LIBRARY. &@!j9CALCULATOR CAPABLE OF DOING ARITHMETIC OPERATIONS. IT HASE#j>---- A VARIABLE LENGTH ACCUMULATOR OF UP TO 150 DIGITS.J#j= FURTHER INSTRUCTIONS AVAILABLE WHEN 'CALC' ISSUED.O'j6 SORT. SORTS THE VALUES IN ANY VARIABLE (COLUMN) INTO!j9---- ASCENDING ORDER AND PLACES THE RESULTANT VECTOR INTOj) ANOTHER COLUMN SPECIFIED BY THE USER.' !j9 PAIRED SORT. SORTS ONE VARIABLE (COLUMN) INTO ASCENDING "j;- --- ORDER AND CARRIES ANOTHER VARIABLE (COLUMN) WITH !j: IT. THE SORTED VARIABLES ARE PLACED IN TWO OTHER j3COLUMNS SPECIFIED BY THE USER. ONE POSSIBLE USAGE: #j=PSORT FITTED VALUES FROM REGRESSION AND CARRY RESIDUALS. THEN !j*ANALYSE THE VECTOR OF RESIDUALS SO SORTED. &' lj3 RANK ASSIGNS RANKS TO THE OBSERVATIONS IN A COLUMN qj3---- SPECIFIED BY THE USER AND PLACES THE VECTOR OF vj4 RANKS INTO ANOTHER COLUMN SPECIFIED BY THE USER. {' j1ENTER SELECTED VARIABLES FROM A SERIAL DATA FILE. j5--- - (IF 'ENTE' IS USED ALL THE VARIABLES IN j+ EACH OBSERVATION ARE ENTERED.) !R!4 j8ENTER SELECTED DATA FROM A 'SPECIAL' RANDOM ACCESS FILE.!9j'-- --!>!j9FILE MUST HAVE N1+3 RECORDS WITH N1<=1000 OBSERVATIONS ON!C!j:K1<=128 VARIABLES IN FIRST N1 RECORDS AND FILE INFORMATION!H j8AND VARIABLE NAMES IN LAST 3 RECORDS. USER SELECTS VARI-!M j7ABLES AND A SAMPLE OF THE OBSERVATIONS FOR DATA MATRIX.!R j8CALL JUNE ROBERTS AT 798-8803 ABOUT BUGS OR SUGGESTIONS.!W'!!j:MATRIX SORT. ENTIRE DATA MATRIX IS SORTED WITH DESIGNATED! j8- --- VARIABLE IN ASCENDING ORDER. ALL VARIABLES! j7REMAIN IN SAME COLUMNS. HINT! TO KEEP TRACK OF ORIGINAL!jSEQUENCE, USE 'INDX' FIRST.!!R!j2$CRSPR FILE DATA MAY BE ENTERED IN IDA DATA MATRIX"j5 ---- FOR SUBPERIOD AND SECURITIES SPECIFIED BY USER"j4 IF THERE IS NO MISSING DATA IN THAT SUBPERIOD." !R"`$j?PROBABILITY SAMPLE SELECTION: SIMPLE RANDOM, STRATIFIED RANDOM"ej-- --- OR SYSTEMATIC."j&""j EXPL FOR COMMANDS WITH Q1>96. SEE IDAE21 AND IDAE22 FOR OTHERS< T`FTd$.8BLPTnV`jt~j%APPEND A BLOCK OF ROWS TO DATA MATRIXj=== =& jZERO SCRATCH PAD.j=== ='jZERO COLUMN IN SCRATCH PADj=== ='jZERO ROW IN SCRATCH PADj=== ='$j@CREATE A CATEGORICAL VARIABLE TO PLACE IN DATA OR SCRATCH COLUMN j ====&j.SELECT ROWS TO BE DELETED FROM THE DATA MATRIXj=== =&#j>MOVE VALUES IN A DATA COLUMN TO A SCRATCH COLUMN OR VICE VERSAj==== &j/DELETE A VARIABLE (COLUMN) FROM THE DATA MATRIX j === =&jSTART A DATA MATRIX OF ZEROES j====&$j.SCRATCH PAD COLUMNS SET ASIDE FROM DATA MATRIX& j = ===(&.j$MULTIPLE PLOTS OF UP TO THREE SERIES0 j= == =2'8jENTER DATA FROM COMPUSTAT FILES:j ====<'Bj'DUMP PART OF IDA COMMON IN SCRATCH FILEDj====F'Lj!SUBTRACT VECTOR FROM OTHER VECTORN j === =Pj# COLUMN(K) = COLUMN(I) - COLUMN(J)Qj I,J,K USER SPECIFIEDR'Vj)PARTIAL AUTOCORRELATION FUNCTION ESTIMATEXj== = =Z&` jCREATE A DATA FILEb j== ==d&jj#CROSS CORRELATION FUNCTION ESTIMATElj====n&t$j@ENTER SELECTED DATA USING OBSERVATION #'S AND RANDOM ACCESS DATAv$j@= == = FILEx&~#j=MISSING VALUES IN DATA MATRIX--PRINTOUT OF CURRENT STATUS ANDj==== OPTION TO CHANGE STATUS'#j>ENTER SELECTED DATA USING OBSERVATION #'S AND SERIAL DATA FILEj/= == ='"j (N9+2) IS THE ROW OF 'STANDARD DEVIATIONS' OF THE COLUMNS.&jC (N9+3) IS FULL OF ZEROES IF YOU HAVE NOT USED 'DIFF' OR 'LAGG.'#j> IT SHOWS HOW MANY OF THE FIRST VALUES OF EACH COLUMN ARE$j? 'NOT ASCERTAINED' BECAUSE OF THE USE OF 'DIFF' OR 'LAGG'.#<j'USING 'PRTS' AND 'FPRS' YOU MAY CHOOSE:#j>1. NONCONSECUTIVE COLUMNS: HAVING EXECUTED A REGRESSION, YOU"j< MAY PRINT 'FITTED' AND 'RESIDU', OR COLUMNS K9 AND K9+1,""j< (NORMALLY 20 AND 21) IN ADDITION TO DATA COLUMNS 1 TO K.,"j<2. CONSECUTIVE DATA COLUMNS: TO PRINT ANY GROUP OF COLUMNS6#j> WITHIN THE FIRST K COLUMNS OF THE DATA MATRIX--DESIGNATING@$j@ THE FIRST COLUMN, J1, AND THE LAST COLUMN, J2, OF THE GROUP.J/@Tj%'PRTF' AND 'FPRF' HAVE THREE OPTIONS:^j"1. PRINT ONLY THE 'FITTED' VALUESh&jC2. PRINT A COLUMN, J, DESIGNATED BY YOU AND 'FITTED' AND 'RESIDU'.r"j;3. PRINT ONLY 'FITTED' AND 'RESIDU' BY DESIGNATING J AS 0.|jj.'PRTR' AND 'FPRR' PRINT THE 'RESIDUAL' VALUES.#<$j?'PRTV' AND 'FPRV' PRINT THE VALUES IN ANY DATA COLUMN--1 TO K-- jDESIGNATED BY YOU.j$j@'PRTO' AND 'FPRO' PRINT THE VALUES OF ALL DATA COLUMNS--1 TO K--$j@FOR A ROW DESIGNATED BY YOU. YOU CAN DO THE SAME WITH 'PRTS' OR%jA'FPRS' BY ASSIGNING THAT ROW NUMBER TO I1 AND I2, 1 TO J1 AND THE jVALUE OF K TO J2.j"j;'NAME' IS A USEFUL COMMAND TO QUICKLY FIND OUT WHAT COLUMNS#j>DATA ARE IN AND, IF YOU HAVE EXECUTED A 8REGRESSION, THE COLUMNj"NUMBERS FOR 'FITTED' AND 'RESIDU'.j'#<W@7@P##F j* MORE ?#P0#Zj#nW##x jPLEASE RESPOND:#j#NO, FOLLOWED BY A CARRIAGE RETURN, #j&IF YOU DON'T WANT ANY MORE EXPLANATION#!j9WITH A CARRIAGE RETURN ONLY, IF YOU WANT MORE EXPLANATION##F#V00##V0@@0Y##V0@@0N'#V0@@0?#x# jINVALID RESPONSE.##x#j#^'jTO USE P , REISSUE P' r$IDAK'`8IDAE39˗] + KgҔRaN JД<H(J- J^2R:14JUN74,>HELP OR > INFOdj* HOW MANY CATEGORIES ? nPx/@WVPYj2YOU CAN HAVE HELP ON ANY OR ALL OF THE FOLLOWING :jj 1. GENERAL COMMENTS ABOUT IDAj 2. DATA DEFINITION j 3. DATA EDITINGj 4. DATA DISPLAY (PRINT)j 5. DATA DISPLAY (PLOT)j 6. TRANSFORMATIONSj 7. SUMMARY STATISTICS"j 8. ONE SAMPLE STATISTICS,j& 9. REGRESSION OR TIME-SERIES ANALYSIS6j10. MISCELLANEOUS COMMANDS@jJj2HOW MANY OF THE ABOVE CATEGORIES DO YOU NEED HELP TfYV'^VPh X@Pr wp |Zj H9 #,"WHICH ",DD," ? GIVE NUMBERS, SEPARATED BY COMMAS : "nfX@| wp Z wH @wL /@ vp!H T&&&00r$IDAE40r$IDAE41&r$IDAE420r$IDAE43 jGENERAL COMMENTS :jj61. MAXIMUM SIZE OF DATA MATRIX IS NORMALLY 100 BY 19.j1 COLUMNS OF THE DATA MATRIX ARE REFERRED TO ASj4 VARIABLES; ROWS, OBSERVATIONS. UNIVARIATE DATAj( SHOULD BE STORED AS A COLUMN VECTOR.j* IF YOU HAVE MORE THAN 100 ROWS IN YOURj) MATRIX, YOU MAY RE-DIMEMSION THE SIZEj$ BY EXECUTING THE COMMAND 'RDIM'.j52. COMMAND STRUCTURE : THE SYSTEM PRINTS THE SYMBOLj4 '>' WHEN IT WAITS FOR THE USER TO TYPE A COMMANDj4 WORD FOR A TASK. ONLY THE FIRST 4 CHARACTERS OFj2 A COMMAND WORD ARE CHECKED BY THE SYSTEM. FOR$ j8 EXAMPLE, ONE OF THE COMMANDS AVAILABLE IS 'EXPLAIN'..j5 THIS TASK WILL BE EXECUTED WHETHER THE USER TYPES8j2 'EXPLAIN' OR ANY WORD THAT BEGINS WITH 'EXPL'.B j7 SOME COMMAND WORDS ARE CONTRACTIONS, SUCH AS 'PARC'Lj6 FOR THE COMPUTATION OF 'PARTIAL CORRELATIONS'. TOVj6 OBTAIN THE ENTIRE LIST OF VALID COMMAND WORDS, YOU`j! MAY ISSUE THE COMMAND 'LIST'.~j53. PROMPTS : IN ALMOST ALL CASES, ONCE A COMMAND IS j7 ISSUED BY THE USER, IDA WILL NEED ADDITIONAL INFOR-j5 MATION BEFORE THE TASK CAN BE EXECUTED. THE USER j8 WILL BE PROMPTED FOR THE INFORMATION. IDA HAS THREE!j9 LEVELS OF PROMPTS WHICH THE USER CAN CHOOSE DEPENDING!j9 ON HIS FAMILIARITY WITH THE SYSTEM. UNLESS OTHERWISEj6 INSTRUCTED BY THE COMMAND 'CHGP' (FOR CHANGING THEj6 LEVEL OF PROMPTS), IDA WILL GIVE 1ST LEVEL PROMPTSj5 WHICH ARE MEANT TO BE USED BY THE NOVICE -- THESEj4 PROMPTS ARE GENERALLY DETAILED AND LENGTHY. 2ND j7 LEVEL PROMPTS ARE MORE CONCISE AND ABBREVIATED, AND j7 3RD LEVEL PROMPTS ARE VERY BRIEF, POSSIBLY CRYPTIC.!j9 WHEN A PROMPT IS PRECEDED BY THE SYMBOL '*', THE USER j7 WILL AUTOMATICALLY OBTAIN FURTHER EXPLANATION IF HE j7 WAITS A CERTAIN AMOUNT OF TIME (USUALLY 30 SECONDS)j3 WITHOUT RESPONDING, OR IF HE TYPES ' ? ' OR ANYj6 ALPHAMERIC CHARACTERS WHEN NUMERIC INPUT IS CALLED(j FOR.2j54. IDA HAS A NUMBER OF BUILT IN CHECKS FOR ERRORS IN< j8 THE USER'S INPUT. HOWEVER, ERRORS WILL OCCASIONALLYF j7 CAUSE YOU TO BE KICKED OUT OF THE SYSTEM IDA. ALSOP j8 HITTING THE 'BREAK' KEY DURING EXECUTION WILL SURELYZ!j9 GET YOU OUT OF IDA. IN EITHER CASE, YOU CAN GET BACKd j8 TO IDA (WITHOUT LOSING YOUR ACTIVE DATA) BY TYPING :n j RUN-9998x j7 AND YOU'LL BE BACK AT THE IDA COMMAND LEVEL AND CANj$ PROCEED FROM WHERE YOU LEFT OFF.j65. ACTIVE DATA : WHEN YOU ENTER YOUR DATA MATRIX, ITj4 BECOMES ACTIVE. ALL COMMANDS WILL REFER TO THISj3 MATRIX. WHEN YOU DELETE A ROW (BY 'DELO') OR A!j: BLOCK OF ROWS (BY 'DELB'), THE ROWS ARE NOT PHYSICALLYj5 DELETED. THEY ONLY BECOME INACTIVE IN SUBSEQUENTj3 COMPUTATIONS UNLESS YOU RETRIEVE THEM LATER VIA j8 COMMANDS SUCH AS 'RECOUP' OR 'RETO' (RETRIEVE OBSER-j5 VATION). IF YOU CHANGE A COLUMN OF YOUR ORIGINALj5 DATA MATRIX BY TRANSFORMATION, YOU CANNOT RECOVERj5 THE ORIGINAL BY THE COMMAND 'RECOUP'. YOU CAN DOj3 SO ONLY BY AN INVERSE TRANSFORMATION (IF ONE IS!j9 AVAILABLE) OR BY RE-ENTERING THE ORIGINAL DATA MATRIX!j9 FROM FILE. IF YOU WANT TO RETAIN THE ORIGINAL COLUMN!j9 IN THE FIRST PLACE, AT THE TIME OF TRANSFORMATION YOU"j; MUST PLACE THE TRANSFORMED COLUMN IN A DIFFERENT (FREE)j COLUMN OF THE DATA MATRIX.j46. UPDATING : AS SOON AS THE USER ENTERS HIS DATA,j5 IDA COMPUTES THE MEANS AND STANDARD DEVIATIONS OF"!j9 ALL THE VARIABLES. AS THE USER EDITS HIS DATA MATRIX,!j: OR MAKES TRANSFORMATIONS, THE MEANS AND STANDARD DEVI-6 j8 ATIONS ARE AUTOMATICALLY UPDATED. TO SAVE COMPUTING8j6 TIME THE CORRELATION MATRIX AND REGRESSION ARE NOT: j8 UPDATED UNTIL NEEDED. UPDATING OCCURS AUTOMATICALLY<j2 IF 'FITTED' OR 'RESIDU' VALUES ARE CALLED FOR.J!j9 THUS IF THE USER EXECUTES IN SUCCESSION THE FOLLOWINGTj5 COMMANDS : REGR, COEF, DELO, COEF, ..., THE FIRST^ j7 COMMAND DEFINES THE REGRESSION EQUATION, THE SECONDh j8 COMPUTES AND PRINTS THE REGRESSION COEFFICIENTS, THEr"j< THIRD DELETES A ROW (OBSERVATION VECTOR) TO BE SPECIFIED|j6 BY THE USER, AND THE FOURTH WILL COMPUTE AND PRINTj/ THE NEW REGRESSION COEFFICIENTS, AND SO ON.j47. FORMAT OF DATA FILES: WHEN YOU USE THE COMMANDSj 'FILE' OR 'SAVF'j0 THE FOLLOWING FORMAT IS IMPLICITLY ASSUMED : j7 ELEMENTS OF THE DATA MATRIX ARE SEQUENTIALLY STOREDj0 BY ROWS. THE FIRST TWO ELEMENTS OF THE FILEj4 SPECIFIES THE SIZE OF THE DATA MATRIX. THUS, IFj THE MATRIX CONSISTS OF j 1.2 3.1 j 2.5 4.1 j 1.1 2.9j1 IT WILL BE SAVED (WHEN YOU EXECUTE 'SAVF') ASj& 3 2 1.2 3.1 2.5 4.1 1.1 2.9j3 BUT WHEN YOU ENTER DATA VIA 'ENTER', 'APPV', ORj6 'APPS', YOU MAY USE A FILE WITHOUT THE TWO LEADINGj4 ELEMENTS DESCRIBED ABOVE; THAT IS, THE FILE MAY&j4 CONSIST OF DATA ALONE, STORED BY ROWS. YOU WILL0 j7 BE PROMPTED FOR THE VALUES OF N AND K IN THAT CASE.wH H @WH AL ' r$IDAK'`IDAE40˗] Q KgҔRaN JД<H(J- J^2R:14JUN74<R: PART OF >HELP OR >INFOdN0 Up!H  jDATA DEFINITION :j j8CRSP TO ENTER DATA, OR APPEND OR REPLACE A COLUMN WITHj( DATA, FROM ONE OF THE $CRSP FILESj1ENTE TO ENTER DATA FROM FILE, TAPE, OR TERMINALj5ENTS TO ENTER SELECTED DATA FROM A SERIAL DATA FILE$ j7ENRA TO ENTER SELECTED DATA FROM A RANDOM ACCESS FILE. j7EOBR TO ENTER SELECTED DATA FROM A RANDOM ACCESS FILE8j4 USING A LIST OF OBSERVATION NUMBERS IN AN IDAB j DATA COLUMNLj5EOBS TO ENTER SELECTED DATA FROM A SERIAL DATA FILEVj4 USING A LIST OF OBSERVATION NUMBERS IN AN IDA` j DATA COLUMNjj4INDX TO CREATE AN INDEX VECTOR (SUCH AS 1,2,...,N)t j7 IN A COLUMN OF THE DATA MATRIX. USEFUL FOR KEEP-~j1 TRACK OF ORIGINAL ORDER IF 'MSOR' IS USED. j8RAND TO GENERATE RANDOM DATA FROM SOME MODEL AND ENTERj* IT IN ONE COLUMN OF THE DATA MATRIXj2STAR TO DEFINE AN INITIAL DATA MATRIX OF ZEROES.#<!j:SAVF TO SAVE DATA MATRIX ON FILE TO BE USED LATER (NOTE:j* FILE MUST HAVE BEEN OPENED ALREADY) j8SAVR TO SAVE THE RESIDUALS FROM THE CURRENT REGRESSIONj% IN A COLUMN OF THE DATA MATRIX& jDATA EDITING :j j8APPB TO APPEND A BLOCK OF ROWS TO THE DATA MATRIX FROMj0 A DATA FILE OR DIRECTLY FROM THE TERMINALj2APPO TO APPEND AN OBSERVATION VECTOR TO THE DATAj4 MATRIX. YOU MAY USE THIS TO ADD A ROW TO THEj4 EXISTING DATA MATRIX OR TO CHANGE A ROW IN IT j8APPS TO APPEND A SUBMATRIX TO OR CHANGE A SUBMATRIX IN "j< THE DATA MATRIX OR THE SCRATCH PAD, DIRECTLY FROM THEj% TERMINAL OR USING A DATA FILE.j4APPV TO APPEND A VARIABLE (COLUMN) TO OR REPLACE Aj COLUMN IN THE DATA MATRIX j3CHGO TO CHANGE THE VALUE OF A SINGLE ENTRY IN THE* j DATA MATRIX,#<4j1DELB TO DELETE A BLOCK OF OBSERVATIONS FROM THE>j6 DATA MATRIX. YOU CAN RECOVER THE DELETED BLOCKHj& BY THE COMMAND 'RETB' OR 'RECO'Rj4DELO TO DELETE AN OBSERVATION VECTOR FROM THE DATATj2 MATRIX. DELETED VECTOR CAN BE RETRIEVED BYVj 'RETO' OR 'RECO'\ j7DELV TO DELETE A VARIABLE (COL.) VECTOR FROM THE DATA^ j8 MATRIX. DELETED VECTOR CANNOT BE RETRIEVED. (USE`j5 'SAVF' OR 'MOVE' IF YOU WISH TO USE IT LATER.)fj5SELR TO DELETE ROWS FOR WHICH VALUES IN A SPECIFIEDhj5 COL.J ARE OUTSIDE A SPECIFIED RANGE OF VALUES.jjpj-RECO TO RECOUP ALL THE DELETED OBSERVATIONSzj2RETB TO RETRIEVE A BLOCK OF DELETED OBSERVATIONSj0RETO TO RETRIEVE A DELETED ROW OF OBSERVATIONS#<j4NOTE: YOU CANNOT RETRIEVE A ROW MADE INACTIVE BY THEj5USE OF 'DIFF' OR 'LAGG' UNLESS YOU REPLACE THE COLUMNj+WITH ANOTHER VARIABLE WITH NO DIFF. OR LAG.#<$j@MOVE TO MOVE A DATA COL. TO THE SCRATCH PAD OR A SCRATCH COL.j TO THE DATA MATRIXj5MSOR SORTS ONE VARIABLE (COLUMN) IN ASCENDING ORDERj2 AND ALL OTHER COLUMNS ACCOMPANY IT. RESULTSj PLACED IN SAME COLUMNSj/PSOR PAIRED SORT OF ONE VARIABLE (COLUMN) ANDj. ACCOMPANYING VARIABLE (COLUMN) INTO TWOj OTHER COLUMNSj5SORT SORTS THE VALUES OF ONE VARIABLE (COLUMN) INTOj4 ASCENDING ORDER AND PLACES RESULTS IN ANOTHER j COLUMN &#(j* WANT MORE DETAILS ? #2#P#<W@7@P##F j* MORE ?#P0#Zj#nW##x jPLEASE RESPOND:#j#NO, FOLLOWED BY A CARRIAGE RETURN, #j&IF YOU DON'T WANT ANY MORE EXPLANATION#!j9WITH A CARRIAGE RETURN ONLY, IF YOU WANT MORE EXPLANATION##F#V00##V0@@0Y##V0@@0N'#V0r@@0?#x# jINVALID RESPONSE.##x#j#^& r$IDAE39}' r$IDAK'`rIDAE41˗]  KgҔRaN JД<H(J- J^2 R:29APR74: >HELPUp!H `jDATA DISPLAY (PRINT) :jj4FILE TO PRINTOUT ONE OR MORE ROWS OF A DATA MATRIXj3 STORED IN A FILE. THIS ALLOWS YOU TO TAKE Aj6 LOOK AT THE DATA BEFORE DECIDING WHETHER THAT'Sj# THE MATRIX YOU WANT TO ENTER$ j7FPRF FORMATTED PRINT OF FITTED VALUES (IN REGRESSION).j1FPRO FORMATTED PRINT OF AN OBSERVATION (VECTOR)8j3FPRR FORMATTED PRINT OF RESIDUALS (IN REGRESSION)Bj%FPRS FORMATTED PRINT OF A SUBMATRIXLj-FPRV FORMATTED PRINT OF A VARIABLE (COLUMN)Vj3 IN THE ABOVE FIVE COMMANDS, THE USER WILL BE`j. ASKED TO SUPPLY THE FORMAT FOR PRINTINGjj1NAME TO LIST THE NAMES OF THE VARIABLES (IF THEtj0 USER SUPPLIED THEM). TO BE USED WHEN YOU~j1 HAVE FORGOTTEN WHICH VARIABLE IS IN WHICH j1 COLUMN OF THE DATA MATRIX. IF NO NAME HASj4 BEEN GIVEN TO THE VARIABLES, THE COMMAND WILLj4 CAUSE THE FIRST ACTIVE ROW OF THE DATA MATRIXj TO BE PRINTEDjPRTF PRINT FITTED VALUESjPRTO PRINT OBSERVATIONjPRTR PRINT RESIDUALSjPRTS PRINT SUBMATRIXjPRTV PRINT VARIABLEjj4THE COMMANDS BEGINNING WITH 'PRT' WILL AUTOMATICALLYj0GIVE VALUES IN THE FORM DDDDD.DDDDD, UP TO FIVEj/VALUES PER LINE. IF ANY OF YOUR DATA VALUES IS j4GREATER THAN 99999, YOU SHOULD USE THE CORRESPONDINGj0'FPR' COMMANDS, SUPPLYING THE FORMAT YOU CHOOSE.j0BECAUSE OF FLOATING POINT CONVERSION OF NUMBERS,(j/YOU MAY GET GARBAGE FOR CERTAIN TRAILING DIGITS2j/WHEN 'PRT' COMMANDS ARE USED. FOR EXAMPLE, THE<j2NUMBER 12345 IS PRINTED AS 12344.99989 BECAUSE THEF j8MACHINE DOES NOT CARRY AN EXACT REPRESENTATION OF 12345.PjZj6WHEN YOU GIVE A FORMAT FOR PRINT, THE SAME FORMAT MUSTdj4BE APPLIED TO ALL OF THE VARIABLES; THAT IS, YOU DOnj3NOT HAVE THE OPTION OF SPECIFYING DIFFERENT FORMATSxj4FOR DIFFERENT VARIABLES AS CAN BE DONE IN 'FORTRAN'.j)FOR EXAMPLE, IF A ROW OF DATA CONSISTS OF j1.2, 2.3456, 3500j5THE 'FPR' COMMANDS WILL NOT ENABLE YOU TO PRINT IT ASj 1.2 2.3456 3500.j2IF YOU USE THE FORMAT #,4D.4D,2X YOU WILL GET:j 1.2000 2.3456 3500.0000j5WHICH IS NOT MUCH DIFFERENT FROM THE FORMAT YOU WOULDj6HAVE OBTAINED BY 'PRT'. THE 'FPR' COMMANDS ARE USEFULj0WHEN ALL THE VARIABLES ARE ROUGHLY COMPARABLE INj4MAGNITUDE, OR WHEN ALL THE DATA VALUES ARE INTEGERS.&jDATA DISPLAY (PLOT) :jj$FREQ TABLE OF RELATIVE FREQUENCIESj(HIST HISTOGRAM OF ABSOLUTE FREQUENCIESjNORM NORMAL PROBABILITY PLOTj%PLTS TO PLOT A VARIABLE IN SEQUENCE j4RVSF A TINY PLOT OF RESIDUALS VERSUS FITTED VALUESj* FOR A QUICK LOOK. FOR DETAILS, USE j5SCAT TO SCATTER PLOT ANY VARIABLE VERSUS ANY OTHER.*j1 VARIABLES 'FITTED' AND 'RESIDU' ARE ALWAYS4j# AVAILABLE AFTER A REGRESSION& r$IDAE39}' r$IDAK'`IDAE42˗] +t KgҔRaN JД<H(J- J^2R:6MAY744R:>HELPdN0 Up!H P  jTRANSFORMATIONS :jjABSO ABSOLUTE VALUEj!ADDC ADD A CONSTANT TO A COLUMNj%ADDV ADD TWO COLUMNS OF DATA MATRIXj- NOTE THE DIFFERENCE OF TWO COLUMNS CAN$j0 BE OBTAINED BY FIRST MULTIPLYING A COLUMN.j. BY -1 AND THEN ADDING TO ANOTHER COLUMN0$j?CATE CREATE CATEGORICAL VALUE FROM VALUES IN SPECIFIED COLUMN2#<8j"DIFF DIFFERENCING TRANSFORMATIONBj3 LET J BE THE COLUMN TO PLACE THE TRANSFORMEDLj5 VARIABLE, I BE THE VARIABLE TO BE TRANSFORMED,Vj/ AND K BE THE GAP FOR DIFFERENCING. THEN`j, X(L,J) = X(L,I) - X(L-K,I), L=K+1,...b j8 THE FIRST K ROWS OF THE ACTIVE DATA MATRIX BECOMEcj6 INACTIVE IN THE PROCESS AND CANNOT BE RETRIEVEDd$j@ FOR FURTHER ANALYSES UNLESS COL.J IS REPLACED OR DELETED.f#<hj(DIVI DIVIDE TWO COLUMNS OF DATA MATRIXjj$DOTP DIRECT PRODUCT OF TWO COLUMNStj!EXPO EXPONENTIAL TRANSFORMATION~j6LAGG LAG TRANSFORMATION X(L,J) = X(L-K,I), L=K+1,... j8 THE FIRST K ROWS OF THE ACTIVE DATA MATRIX BECOMEj6 INACTIVE IN THE PROCESS AND CANNOT BE RETRIEVED$j@ FOR FURTHER ANALYSES UNLESS COL.J IS REPLACED OR DELETED.#<j&LOGE NATURAL LOG (LN) TRANSFORMATIONj*LOG1 COMMON LOG (BASE 10) TRANSFORMATIONj5MULC MULTIPLY A COLUMN OF DATA MATRIX BY A CONSTANTj*MULV MULTIPLY TWO COLUMNS OF DATA MATRIXj3POWE POWER TRANSFORMATION. NOTE VALUE OF POWER =j) -1 FOR RECIPROCAL TRANSFORMATIONj0 .5 FOR SQUARE ROOT TRANSFORMATION, ETC.#j=RANK ASSIGNS RANKS TO THE OBSERVATIONS (ROWS) OF A VARIABLEj6 (COLUMN) AND PLACES THE RANKS IN ANOTHER COLUMNj4STAN STANDARDIZATION TRANSFORMATION--SUBTRACT MEANj5 FROM EACH OBSERVATION, DIVIDE THE DEVIATION BYj THE STANDARD DEVIATION&jSUMMARY STATISTICS :jj&CORR CORRELATION MATRIX OF VARIABLESj%COVA COVARIANCE MATRIX OF VARIABLESj1MEAN MEANS AND STANDARD DEVIATIONS OF VARIABLESj/PARC PARTIAL CORRELATION MATRIX OF ONE SET OF j/ VARIABLES GIVEN ANOTHER SET OF VARIABLES & jONE SAMPLE STATISTICS : j j.AUTO AUTOCORRELATION (BOX-JENKINS ESTIMATES) j3DURB DURBIN-WATSON STATISTIC (FOR RESIDUALS ONLY) j1RUNS EXPECTED AND OBSERVED NUMBER OF RUNS ABOVE j0 AND BELOW THE MEAN. NORMAL APPROXIMATION j-SERC SERIAL CORRELATION (MAXIMUM LIKELIHOOD j# ESTIMATE OF AUTOCORRELATION) &#(j* WANT MORE DETAILS ? #2#P#<W@7@P##F j* MORE ?#P0#Zj#nW##x jPLEASE RESPOND:#j#NO, FOLLOWED BY A CARRIAGE RETURN, #j&IF YOU DON'T WANT ANY MORE EXPLANATION#!j9WITH A CARRIAGE RETURN ONLY, IF YOU WANT MORE EXPLANATION##F#V00##V0@@0Y##V0@@0N'#V0@@0?#x# jINVALID RESPONSE.##x#j#^& r$IDAE39}' r$IDAK'`IDAE43˗] Qg KgҔRaN JД<H(J- J^2R:14JUN744R: PART OF >HELP OR >INFOdN0 Up!H @ j#REGRESSION OR TIME-SERIES ANALYSIS f0jV0@@0RV0@@0Tj#INVALID RESPONSE! PLEASE RE-INPUT,j.'R' FOR 'REGRESSION' OR 'T' FOR 'TIME-SERIES' jREGRESSION ANALYSIS :jj!1. SIMPLE OR MULTIPLE REGRESSIONj REGR ORDINARY REGRESSIONj WLSR WEIGHTED LEAST SQUARESj'2. FOR SELECTING INDEPENDENT VARIABLES$j2 BACK BACKWARD SELECTION PROCEDURE (AUTOMATIC).j1 FORW FORWARD SELECTION PROCEDURE (AUTOMATIC)8j4 STEP STEPWISE PROCEDURE (USER TO SPECIFY STEPS)Bj5 SWEE SWEEP OPERATION. USED TO DELETE A VARIABLELj3 FROM OR REPLACE A VARIABLE WHICH HAS BEENV!j9 PREVIOUSLY REMOVED FROM THE REGRESSION EQUATION`j3 ALLS TO PERFORM REGRESSIONS USING ALL POSSIBLEjj3 SUBSETS OF A SET OF INDEPENDENT VARIABLEStj2 SUBS TO REGRESS THE DEPENDENT VARIABLE ON ALL~j2 POSSIBLE COMBINATIONS OF A GIVEN SIZE OFj( A SET OF INDEPENDENT VARIABLES#<j%3. FOR PRINTING REGRESSION RESULTS :j$ ANOV ANALYSIS OF VARIANCE TABLE j7 BCOR CORRELATION MATRIX OF REGRESSION COEFFICIENTSj6 BCOV COVARIANCE MATRIX OF REGRESSION COEFFICIENTSj5 COEF REGRESSION COEFFICIENTS, STANDARD ERRORS, Tj4 SUMM SUMMARY STATISTICS -- MULTIPLE R, STANDARDj" ERROR OF RESIDUALS, ETC.#<j"4. FOR EXAMINATION OF RESIDUALS :j1 AUTO TO COMPUTE AUTOCORRELATION COEFFICIENTSj! (BOX-JENKINS ESTIMATES)j! DURB DURBIN-WATSON STATISTIC j8 NORM TO OBTAIN NORMAL PROBABILITY PLOT OF RESIDUALSj2 PLTC TO PLOT CONFIDENCE BAND OF FITTED VALUES j' PLTS TO PLOT SEQUENCE OF RESIDUALSj4 RVSF MINIPLOT OF RESIDUALS VERSUS FITTED VALUESj! RUNS RUNS TEST FOR RESIDUALS( j7 SAMP TO PERFORM REGRESSION USING RANDOM SUBSAMPLES2j& OF DATA. FOR ERROR ANALYSIS4j0 SCAT PLOT OF RESIDUALS VERSUS FITTED VALUES< j8 SEPR TO COMPUTE STANDARD ERRORS OF PREDICTED VALUES&jTIME SERIES ANALYSIS :jj.AUTO TO COMPUTE AUTOCORRELATION COEFFICIENTSj (BOX-JENKINS ESTIMATES)j5BOXJ BOX-JENKINS ESTIMATION OF ARIMA MODELS BY NON-j2 LINEAR LEAST-SQUARES WITH BACK FORECASTING.j. ALSO POINT FORECASTS TO FUTURE PERIODS.j4CROS CROSS CORRELATION FUNCTION BETWEEN TWO SERIESj0PACF PARTIAL AUTOCORRELATION FUNCTION ESTIMATEj*MPLS PLOT SEQUENCE OF 1 TO 3 TIME SERIES jSPEC SPECTRAL ANALYSISj5STAR TO DEFINE A DATA MATRIX OF ZEROES IN THE FIRSTj! N ROWS AND FIRST K COLUMNS*& jMISCELLANEOUS COMMANDS : j j-CALC A CALCULATOR FOR ARITHMETIC OPERATIONS j5CRFI TO CREATE OR MODIFY A LARGE RANDOM ACCESS FILE j/CRTS TO DECLARE USE OF A CATHODE RAY TERMINAL j%CHGP TO CHANGE THE LEVEL OF PROMPTS jCTAB CROSS TABULATION jMTAB 2-WAY TABLE OF MEANS j*EXPL TO EXPLAIN INDIVIDUAL COMMAND WORDS j7GAUS TO COMPUTE PROBABILITES OR DENSITIES OF A NORMAL j VARIABLE "j;INFO TO OBTAIN GROUPS OF COMMANDS IN DIFFERENT CATEGORIES j3HELP '' '' '' '' '' '' '' '' j3COMM TO OBTAIN A CLASSIFIED LIST OF COMMAND WORDS j3LIST TO OBTAIN THE COMPLETE LIST OF COMMAND WORDS j6MISS TO DECLARE A NUMBER REPRESENTING MISSING VALUES j#NEWC TO DEFINE A NEW COMMAND NAME jNEWS TO PRINT NEWS ABOUT $IDA j4PAUS TO PAUSE AT THE COMMAND LEVEL. OTHERWISE IDA j5 WILL ASK YOU IF YOU NEED HELP IF NO COMMAND IS j ISSUED WITHIN ONE MINUTE &j6PSAM TO SELECT A PROBABILITY SAMPLE: SIMPLE RANDOM, 0j 2 STRATIFIED OR SYSTEMATIC :j,QUIT TO EXIT FROM IDA TO HP SYSTEM CONTROL Dj3RDIM TO RE-DIMENSION MAX. SIZE OF DATA MATRIX AND Fj1 SET ASIDE SOME OR NONE OF THE COLUMNS IN A H j SCRATCH PAD J j8SPAD TO SET ASIDE UNUSED DATA COLUMNS IN A SCRATCH PAD N&#(j* WANT MORE DETAILS ? #2#P#<W@7@P##F j* MORE ?#P0#Zj#nW##x jPLEASE RESPOND:#j#NO, FOLLOWED BY A CARRIAGE RETURN, #j&IF YOU DON'T WANT ANY MORE EXPLANATION#!j9WITH A CARRIAGE RETURN ONLY, IF YOU WANT MORE EXPLANATION##F#V00##V0@@0Y##V0@@0N'#V0@@0?#x# jINVALID RESPONSE.##x#j#^& r$IDAE39}' r$IDAK'`2IDAE47Η] U KgҔRaN JД<H(J- J^.JP2R:12JUN744R:EXPLANATIONS FOR APPO,APPS,APPV,APPBdN0  W`^ jWANT FULL EXPLANATION wf0V00Nw@j j THE COMMANDS,$j@'APPO', 'APPS', 'APPV', AND 'APPB' CAN BE USED TO ADD NEW VALUES$j@OR REPLACE OLD VALUES IN THE DATA MATRIX FROM A FILE OR DIRECTLY jFROM A TERMINAL.#j='APPS' IS THE MOST GENERAL COMMAND AND CAN BE USED INSTEAD OFj*'APPO', 'APPB', OR 'APPV', OR EVEN 'CHGO'.#j='APPS' CAN ALSO BE USED TO ENTER VALUES IN THE SCRATCH PAD IFj-SCRATCH COLUMNS HAVE BEEN DECLARED IN 'RDIM'.j#j=FOR EXAMPLE, IF THERE IS DATA IN 50 OF 100 POSSIBLE DATA ROWS"j;AND 5 OF 19 POSSIBLE DATA COLUMNS, BUT 3 ROWS ARE UNDEFINEDj0BECAUSE OF THE PREVIOUS USE OF 'DIFF' OR 'LAGG',jTHE FOLLOWING LIMITS APPLY:#<W@Uj0APPO ADD 1 ROW I OF 5 VALUES, WHERE 4<=I<=51.W "j;APPB ADD ROWS I1 TO I2, WHERE 4<=I1<=I2<=100 AND I1<=51.W "j5 , THEN ROWS I1 AND I2 MUST BE 1 AND 50.j+ J1=1 AND J2=5, THEN 1<=I1<=I2<=100.j" J2<=5, THEN 1<=I1<=I2<=50.%jA THAT IS, YOU CANNOT CREATE A NON-RECTANGULAR DATA MATRIX.#j> THE NUMBER OF UNDEFINED ROWS, Q4-1, WILL BE CHANGED IFj4 J IS AN OLD COLUMN WITH SOME UNDEFINED ROWS. j#j=USE OF 'APPO' OR 'APPB' CANNOT CHANGE THE NUMBER OF UNDEFINEDjROWS.j'#<W@7@P##F j* MORE ?#P0#Zj#nW##x jPLEASE RESPOND:#j#NO, FOLLOWED BY A CARRIAGE RETURVN, #j&IF YOU DON'T WANT ANY MORE EXPLANATION#!j9WITH A CARRIAGE RETURN ONLY, IF YOU WANT MORE EXPLANATION##F#V00##V0@@0Y##V0@@0N'#V0@@0?#x# jINVALID RESPONSE.##x#j#^'jTO USE 'P ', REISSUE 'P'.' r$IDAK'`VIDAE48˗] + KgҔRaN JД<H(J- J^2R:28APR744R:EXPLANATION OF 'CALC'dN0 !j9 THE CALCULATOR WILL FIRST ASK HOW MANY DIGITS YOU WANT j8TO WORK WITH TO THE LEFT AND RIGHT OF THE DECIMAL POINT. j8 ALTHOUGH THE PRACTICAL LIMIT OF THIS ROUTINE IS ROUGHLY j7150 DIGITS, YOU SHOULD LIMIT THE TOTAL NUMBER OF DIGITSj5TO 25 IF YOU WANT ANSWERS PRINTED ON ONE OUTPUT LINE.j6 OPERATIONS ARE PERFORMED ON AN IMAGINARY ACCUMULATOR,j5THE CONTENTS OF WHICH ARE PRINTED (WITH DECIMAL POINTj5ALIGNED) AFTER EACH OPERATION. IF THE RESULT EXCEEDSj5THE FIELD WIDTH YOU HAVE SPECIFIED, THE DECIMAL POINTj4WILL BE PUSHED TO THE RIGHT ENOUGH PLACES TO FIT THEjNUMBER ONTO THE PRINTOUT. #<"j; IN RESPONSE TO THE QUESTION MARK PRINTED BY THE CALCULATORj3YOU SHOULD TYPE AN OPERATOR FOLLOWED BY AN OPERAND."j$ THE LEGAL ARITHMETIC OPERATORS ARE:,j OPERATION OPERATOR6j ADDITION 'ADD','A','+'@j# SUBTRACTION 'SUBTRACT','S','-'Jj# MULTIPLICATION 'MULTIPLY','M','*'Tj! DIVISION 'DIVIDE','D','/'^"j; THE FOLLOWING SPECIAL OPERATORS DO NOT REQUIRE AN OPERAND:hj OPERATION OPERATORrj& CLEAR ACCUMULATOR 'CLEAR','C'|j& RESET FIELD 'RESET','R' WIDTH~jj RETURN TO IDA 'QUIT','Q'#<"j; MORE THAN ONE OPERATION MAY BE ENTERED WITH A SINGLE INPUT!j9LINE BY SPACING BETWEEN AN OPERAND AND THE NEXT OPERATOR."jBLANKS, COMMAS OR REMARKS ARE IGNORED, AND A MINUS SIGN PLACED%jABEFORE, AFTER OR IMBEDDED IN AN OPERAND WILL NEGATE THAT OPERAND.jjTO USE 'CALC', REISSUE 'CALC'.'#(j* WANT MORE DETAILS ? #2#P#<W@7@P##F j* MORE ?#P0#Zj#nW##x jPLEASE RESPOND:#j#NO, FOLLOWED BY A CARRIAGE RETURN, #j&IF YOU DON'T WANT ANY MORE EXPLANATION#!j9WITH A CARRIAGE RETURN ONLY, IF YOU WANT MORE EXPLANATION##F#V00##V0@@0Y##V0@@0N'#V0@@0?#x# jINVALID RESPONSE.##x#j#^' r$IDAK'`|IDAFIL] QN0  j12 JUN 74 VERSIONjj(WANT LIST OF DATA FILES TO USE WITH IDA (f0-V0@@0N#(2jd j$ACKERM$AT&Tj$BLOLES$BLUME$BROWNL$BOXJNA$BELOIL,j$COTTON$CRSPP$CRSPR$CRSPSj$DJj$ECDAT1Xj$HALSEY j$IBM$ISAACS j$LMICH$LONGLYj$M&MIND$MCDERM$MICH$MICH1$MICH3j$MILAGE$MOBILE$M1j$NFL69 j$ROCKY$ROCKY2Lj$SALES1j$TJT66j$VELMON#(j#2j0TO GET LIST OF IDA PROGRAM NAMES, GET '$IDAPRO'.'`|IDALOG] .2 j12 JUN 74 VERSION< R:BY JUNE ROBERTSdjnj+A LOG OF IDA PROGRAMS CHANGED SINCE 10JUN73xjjPUT ONjSYSTEM PROGRAM VERSIONj******** ******* *******j"`j13JUN74 IDAE08 13JUN74"bj '' IDA08 13JUN74"dj '' IDA49 13JUN74"fj '' IDA09C 13JUN74"hj '' IDA09C 13JUN74"jj '' IDA09A 13JUN74"kj# '' IDA27 13JUN74 >MISS"lj# '' IDA54 13JUN74 >BOXJ"n%jA IDA53,IDA53A,IDA53B,IDA53C,IDA53D,IDA53E,IDA53F,IDA53G"pj( IDA53H TO TAKE ALL OF BOXJEN"j12JUN74 IDA35 12JUN74"j IDA 12JUN74"j '' IDA34 12JUN74"j '' IDA30 12JUN74"j '' IDA08D 12JUN74"j '' IDA08 12JUN74"j) '' IDAE08 12JUN74 NEW PROGRAM"j '' IDA23 12JUN74"j '' IDA47 12JUN74"j '' IDA09 12JUN74"j10JUN74 IDAE47 10JUN74"j '' IDA 10JUN74"j, '' IDA08 10JUN74 >ENRA AND EOBR"j '' IDA08A 10JUN74"j '' IDA08B 10JUN74"j '' IDA08C 10JUN74"j '' IDA08D 10JUN74"j '' IDA95 10JUN74"j '' IDA47 10JUN74"j '' IDA23 10JUN74"j* 4JUN74 IDA18 4JUN74 WW CORR. SPEC#j-31MAY74 IDA912 31MAY74 CORR.BUG IN A000#j( '' IDA40 CREATED FROM IDA912#j '' IDA41 '' # j%30MAY74 IDA47 30MAY74 IN A000# j '' IDA 30MAY74# j '' IDA912 29MAY74# j '' IDA17 29MAY74#j '' IDA25 29MAY74#j '' IDA26 29MAY74#j '' IDA27 29MAY74#j '' IDA49 29MAY74#j$29MAY74 IDA95 29MAY74 IN A000#j5 '' IDA22 29MAY74 >CROS IN A000 FROM $CRS#j/ '' IDA08 29MAY74 SKEL.ENRA IN A000#j% '' IDA912 29MAY74 IN A000#j% '' IDA23 29MAY74 IN A000#j28MAY74 IDA 27MAY74# j# '' IDA09 28MAY74 >CRFI#"j" '' IDA09A 28MAY74 ''#$j! '' IDA09B 26MAY74 ''#&j" '' IDA09C 28MAY74 ''#(j+20MAY74 IDA903 KILLED, NO LONGER USED#2j$21MAY74 IDA48 21MAY74 IN A000#<j$18MAY74 IDA912 18MAY74 IN A000#Fj16MAY74 IDA25 15MAY74#Pj16MAY74 IDA 16MAY74#R#j=IDA39 NOW HOOKED TO IDA02,IDA03,IDA04,IDA05,IDA06,IDA11,IDA32#Tj16MAY74 IDA03 12MAY74#Vj '' IDA04 12MAY74#Wj '' IDA05 12MAY74#Xj '' IDA06 12MAY74#Yj '' IDA11 12MAY74#Zj '' IDA32 12MAY74#dj$14MAY74 IDA23 14MAY74 IN A000#fj '' IDAE47 14MAY74 ''#gj '' IDA 14MAY74#hj '' IDA02 14MAY74#ij '' IDA15 12MAY74#jj '' IDA16 12MAY74#kj '' IDA39 13MAY74#lj '' IDA38 13MAY74#nj13MAY74 IDA13B 11MAY74#oj '' IDA13C 12MAY74#pj '' IDA26 12MAY74#qj '' IDA27 12MAY74#rj$ '' IDA20 13MAY74 IN A000#sj '' IDA47 13MAY74 ''#tj '' IDAE25 13MAY74 ''#uj '' IDAE47 13MAY74 ''#xj$12MAY74 IDAE15 12MAY74 IN A000#zj '' IDAE17 12MAY74 ''#|j '' IDA17 12MAY74 ''#j$11MAY74 IDAE25 11MAY74 IN A000#j10MAY74 IDA912 9MAY74#j# 9MAY74 IDA47 9MAY74 IN A000#j 8MAY74 IDA 7MAY74 #j! '' IDA21 7MAY74 >PACF#j# '' IDAVAR 8MAY74 IN A000#j! '' IDA912 8MAY74 ''#j 7MAY74 IDA45A 7MAY74 ''#j '' IDA912 7MAY74 ''#j! '' IDA95 7MAY74 ''#j 6MAY74 IDAE42 6MAY74 ''#j '' IDAE40 6MAY74 ''#j 3MAY74 IDAE40 3MAY74 ''#j$ 2MAY74 IDA45 2MAY74 IN A000#j '' IDA17 2MAY74 ((#j '' IDA17A 2MAY74 ''#j%30APR74 IDA45 30APR74 IN A000#j! '' IDAE40 30APR74 ''#j! '' IDA20 30APR74 ''#j" '' IDAE01 30APR74 ''#j629APR74 KILLED IDA21,IDA22,IDA22A,IDA49,IDA12E,IDA15E#j/ IDA25E, IDA39,IDA40,IDA41,IDA42,IDA43.#j29APR74 IDA04 28APR74#j '' IDAE25 29APR74#j '' IDA25 29APR74#j '' IDA15 29APR74#j '' IDA16 29APR74#j '' IDAE15 29APR74#j '' IDA47 29APR74#j '' IDA 29APR74$j '' IDAE21 29APR74$j '' IDAE22 29APR74$j '' IDAE23 29APR74$j '' IDAE39 29APR74$j '' IDAE40 29APR74$ j '' IDAE41 29APR74$ j '' IDAE42 29APR74$j '' IDAE43 29APR74$j28APR74 IDAE48 28APR74$j '' IDA48 28APR74$j '' IDAE12 28APR74$j '' IDA12 28APR74$j '' IDA17 28APR74$j '' IDA17A 28APR74$j-27APR74 IDA20 27APR74 >MPLS, FROM $PLO$j. '' IDA20A 27APR74 >MPLS, FROM $PLO2$T!j:23APR74 IDA25 23APR74 CHANGED L.155 ,ADDED 3675 IN$Vj" A000$Xj23APR74 IDA 22APR74$^j-22APR74 IDA07 22APR74 CHANGED IN A000$`j22APR74 IDA 21APR74$bj. IDA23 22APR74 NEW COMMAND >STAR$hj18APR74 IDA07 17APR74$rj-12APR74 IDA01E 12APR74 CHANGED IN A000$|"j;11APR74 IDA912 11APR74 CORR.BUG IN IDA912.ADDED L.889$~j( DELETED 891$!j911APR74 IDA19 11APR74 UPDATED 'SAVF' EXPL. IN A000$j11APR74 IDA29 10APR74$j '' IDA31 10APR74$j '' IDA38 10APR74$j310APR74 IDA25 10APR74 CHANGED L.3676 IN A000$!j9 3APR74  IDA25A 3APR74 CHANGED LL.1070,2110 IN A000$j 2APR74 IDA25 2APR74$j '' IDA46 2APR74$j2 1APR74 IDA19 1APR74 CHANGED L.50 IN A000$j 1APR74 IDA 1APR74$j '' IDA23 26MAR74$j '' IDA912 31MAR74$j '' IDA25A 1APR74$j '' IDA25E 29MAR74$j '' IDA26 1APR74$j '' IDA47 31MAR74$j '' IDA15E 29MAR74$j '' IDA25 1APR74$!j: 5MAR74 IDA18 5MAR74 ADDED L.1550 IN IDA18 IN A000$j 4MAR74 IDA 4MAR74$!j: '' IDA01E 3MAR74 NEW FIRST EXPLANATION OF IDA$j5 '' IDA19 4MAR74 COMPLETELY REVISED SAVF$j2 '' IDA27 4MAR74 '' '' FILE$j5 '' IDA95 3MAR74 ADDED 'CRTS' AND 'COMM'$j4 '' IDA23 4MAR74 CHANGED L.251 IN IDA23$j% 3MAR74 IDA21 3MAR74 IN A000$j$ 3MAR74 IDA22 3MAR74 IN A000%j27FEB74 IDA45A 27FEB74% j21FEB74 IDA 21FEB74% j, '' IDA18 21FEB74 NEW COMM.>SPEC%j '' IDA95 20FEB74%j220FEB74 KILLED IDA12B IN A000, NO LONGER NEEDED%!j917FEB74 IDA45 17FEB74 CHANGED LL.5000,6010 IN A000%j1 '' IDA45A 17FEB74 ADDED L.5020 IN A000%j,14FEB74 IDA24 12FEB74 NEW COMM.>DIVI%j '' IDA45 13FEB74% j '' IDA45A 13FEB74%"j '' IDA912 13FEB74%&j12FEB74 IDA01 12FEB74%(j '' IDA12 11FEB74%0j11FEB74 IDA12 9FEB74%2j '' IDA12A 9FEB74%4j '' IDA12E 9FEB74%6j3 '' IDA912 10FEB74 NEW PROG. FOR UPDATING%8j2 MEANS AND STD.DEV.(S)%:j329JAN74 IDA07 29JAN74 CHANGED L. 412 IN A000%;j1 '' IDA 29JAN74 ADDED L. 236 IN A000%<j '' IDA12 29JAN74%=j '' IDA12A 27JAN74%>j '' IDA12B 28JAN74%?j '' IDA12E 29JAN74%D"j<26JAN74 IDA25 26JAN74 USED A000 TO CHANGE L.3504,3610%Nj22JAN74 IDA29 21JAN74%X"j;17JAN74 IDA47 17JAN74 USED A000 TO CHANGE LL.50,150,%Yj& 1286-1292%`#j=16JAN74 IDA95 16JAN74 USED A000 TO PUT WARNING IN NEWC%bj/15JAN74 IDA 15JAN74 IDA COMMON CHANGED%dj3 '' ALL IDA PROGRAMS COMMON CHANGED BUT DATE%fj+ L.50 NOT CHANGED EXCEPT IN IDA%lj- 6JAN74 IDA32 6JAN74 REVISION IN A000%vj0 6JAN74 IDA903 6JAN74 CORR.L.9938 IN A000%j+ 4JAN74 IDA98 4JAN74 >NEWS IN A000%j+ '' IDA21 4JAN74 >EXPL IN A000%j) '' IDA16 4JAN74 CORR., A000%j# '' IDA16 31DEC73 >MTAB%j '' IDA 4JAN74%j4 '' IDA15E 4JAN74 EXPL. FOR MTAB AND CTAB%j# '' IDA15 31DEC73 >CTAB%j '' IDA22 3JAN74%j '' IDA903 3JAN74%j* 3JAN74 IDA95 4JAN74 >NEWC IN A000%"j< 3DEC73 IDA35 4DEC73 CORR.L.790 ,IDA35,>SUBS IN A000%j 3DEC73 IDA29 3DEC73%j26NOV73 IDA29 26NOV73%j '' IDA25 24NOV73%j '' IDA25E 23NOV73%!j:23NOV73 IDA25 23NOV73 ADDED L.5175 TO IDA24 IN A000%j, CORR.BUG>DIFF AND>LAGG&$j?21NOV73 IDA07 21NOV73 CORR.BUG IN L.380 IN >ENTS IN A000& j#13NOV73 IDA27 13NOV73 >FILES& j713NOV73 GAVE DUMP TAPE OF 12NOV73 IDA TO W.BOE OF IOWA& j '' IDA25 13NOV73&j '' IDA25E 13NOV73&j312NOV73 IDA01 12NOV73 PUT IN CREDITS FOR IDA&!j: '' IDA25 11NOV73 CORRECTED BUGS,ETC. IN PRINTS&j2 '' IDA25E 11NOV73 NEW EXPLAIN OF PRINTS&j '' IDA29 12NOV73& j 8NOV73 IDA12 8NOV73&"!j: '' IDA12E 8NOV73 NEW EXPLAIN AND CHECK IN CRSP&$ j8 '' IDA05 8NOV73 CORRECTED SCALE BUG IN HIST&(j 2NOV73 IDA46 2NOV73&*j2 2NOV73 IDA50 2NOV73 CORRECTED BUG IN L.50&,j! '' IDA51 2NOV73 '' &.j! '' IDA52 2NOV73 '' &/j '' IDA98 2NOV73&0j31OCT73 IDA23 30OCT73&2j '' IDA24 31OCT73&4$j?30OCT73 IDA 30OCT73 NEW COMMAND >INFO; CHANGE IN >NAME&6j4 '' IDA11 29OCT73 BUGS IN >MSOR CORRECTED&7j '' IDA903 29OCT73&8j( '' IDA21 29OCT73 UNPROTECTED&:j# '' IDA22 29OCT73 '' &<j# '' IDA43 29OCT73 '' &>j# '' IDA95 30OCT73 '' &@j#29OCT73 IDA39 28OCT73 '' &Bj# '' IDA40 28OCT73 '' &Dj# '' IDA41 11OCT73 '' &Fj" '' IDA42 11OCT73 '' &Hj" '' IDA99 3JUL73 '' &Jj" '' IDAVAR 22AUG73 '' &Lj25OCT73 IDA23 24OCT73&Nj '' IDA24 25OCT73&Pj '' IDA45 24OCT73&Rj '' IDA98 25OCT73&Tj23OCT73 IDA05 17OCT73&Vj '' IDA06 18OCT73&Xj22OCT73 IDA-TS 19OCT73&Z#j=19OCT73 IDA903 17OCT73 BUG DISCOVERED AT 10, CORRECTED&\j '' IDA02 17OCT73&^j '' IDA03 17OCT73&`j '' IDA04 17OCT73&bj17OCT73 IDA31 16OCT73&dj '' IDA32 16OCT73&fj '' IDA33 16OCT73&hj '' IDA38 17OCT73&jj12OCT73 IDA39 11OCT73&lj '' IDA40 11OCT73&nj '' IDA41 11OCT73&pj '' IDA42 11OCT73&rj '' IDA43 21MAY73 ??&tj11OCT73 IDA23 11OCT73&vj 9OCT73 IDA 8OCT73&xj '' IDA903 8OCT73&zj 3OCT73 IDA28 2OCT73&|j '' IDA98 2OCT73&~j22SEP73 IDA 21SEP73&j '' IDA98 21SEP73&&jD '' IDA01 21SEP73 NEW, FOR CLEARING COMMON WHEN GET-$IDA&j/ '' IDA14 21SEP73 NEW COMMAND, >GAUS&j% '' IDAARC 21SEP73 OLD NEWS&j19SEP73 IDA95 18SEP73&j '' IDA98 17SEP73&j '' IDA21 18SEP73&j '' IDA22 18SEP73&j18SEP73 IDA46 15SEP73&j '' IDA37 17SEP73&j12SEP73 IDA31 11SEP73&j111SEP73 IDA903 8SEP73 REPLACED OLD IDA03A&j '' IDA02 8SEP73&j '' IDA03 8SEP73&j '' IDA04 8SEP73&j '' IDA05 8SEP73&j '' IDA06 8SEP73&j '' IDA38 4SEP73&j '' IDA31 4SEP73&j '' IDA32 5SEP73&j '' IDA12 11SEP73&j30AUG73 IDA 30AUG73&j '' IDA95 25AUG73&j '' IDA22 25AUG73&j0 '' IDA13 27AUG73 NEW COMMAND, >PSAM&j '' IDA13A 29AUG73&j '' IDA13B 29AUG73&j424AUG73 IDA04 24AUG73 CORRECTED BUG IN L.415&j23AUG73 IDA04 22AUG73&j '' IDA98 22AUG73&j '' IDAVAR 22AUG73&j20AUG73 IDA98 16AUG73&j016AUG73 IDA12 15AUG73 NEW COMMAND, >CRSP&j '' IDA12A 15AUG73&j '' IDA 15AUG73&j '' IDAVAR 15AUG73&j '' IDA95 16AUG73& j8? AUG73 SELECTIVE SYSTEM DUMP ON TAPE, KEPT TAPE, COPIES&j(SENT TO H-P, STANFORD, IOWA, AND INSEAD.&j6? AUG73 DISCOVERED IDA08 MISSING FROM SYSTEM. LOADED.&$j? 7AUG73 IDA 5AUG73 ] LING CORRECTED BUG IN DELO,DELB,&$j? '' IDA25 5AUG73 ] DIFF,LAGG SEQUENCE AND CORRECTED&j '' IDA26 5AUG73 ] &j '' IDA98 5AUG73&!j:?AUG73 DISCOVERED IDA21 MISSING FROM SYSTEM SINCE JUNE&j12JUN73 ? IDA03 12JUN73&j '' IDA03A 12JUN73&j '' IDA98 12JUN73&j11JUN73 IDA03 11JUN73 ?&j '' IDA04 11JUN73 ?&j '' IDA46 11JUN73 ?'`|IDAPRO] +NN0  j12 JUN 74 VERSIONjjWANT LIST OF IDA PROGRAM NAMES (f0-V0@@0NdjIDAnjIDA01IDA02IDA03IDA04IDA05xjIDA06IDA07IDA08IDA09IDA10zjIDA08AIDA08BIDA08CIDA08D}jIDA09AIDA09BIDA09CjIDA11IDA12IDA13IDA14IDA15jIDA12AIDA13AIDA13BIDA13CjIDA16IDA17IDA18IDA19IDA20 jIDA17AIDA20AjIDA21IDA22IDA23IDA24IDA25jIDA25AjIDA26IDA27IDA28IDA29IDA30jIDA31IDA32IDA33IDA34IDA35jIDA36IDA37IDA38IDA39IDA40jIDA41   IDA45jIDA45AjIDA46IDA47IDA48IDA49IDA50jIDA51IDA52IDA53IDA54jIDA53AIDA53BIDA53CIDA53DIDA53EjIDA53FIDA53GIDA53HjIDA95IDA98IDA99jIDA912jjIDAE01jIDAE08IDAE12IDAE15IDAE17jIDAE21IDAE22IDAE23IDAE25&jIDAE39IDAE40IDAE41IDAE42IDAE43: jIDAE47IDAE48jjIDACOMIDAVARIDAPROIDAFILjIDA-TS jIDALOGIDAARCj!j9TO GET LIST OF DATA FILES TO USE WITH IDA, GET '$IDAFIL'.'`|IDATS ] Q R: FOR FINDING IDA SUBPROGRAMS IMPLEMENTING EACH IDA COMMAND R:BY JUNE ROBERTSR: Q1 IS THE CODE NUMBER OF COMMAND IN IDA SUBPROGRAM R: $IDAVAR EXPLAINS THE COMMON VARIABLES2j214 JUN 74 VERSION OF $IDA-TS--TROUBLE SHOOTING IDA4jd N0Pef$j?AFTER ' > ' TYPE THE IDA COMMAND NAME YOU ARE TROUBLE-SHOOTING.hj+WHEN YOU ARE DONE, TYPE 'DONE' AFTER ' > '.jwoW@4pj> P$0W$jWANT LIST OF IDA COMMANDS f0V0@@0Np@jV0@@0?V0@@0DONE'l X@uiP V0@@1PZ/@COMMAND INVALIDwjH' #,"Q1 = ",2D,". EXECUTION BEGINS IN "Tr!@Tr!@P  U***@4XXXT@&6<<.42T@ 2..**8 (T` *06,,,,T@ ,&P&~**TP *0**&$&BT`  &*,,,,,Tp T.4..&8T@Dx*&<&*6TH@4>  VZ\TP^`bdf&jlTXnP&&*vZZ T`XVVVttttTh( z   |hTpf0  j-PROGRAM TO EXECUTE COMMAND NOT DEVELOPED YET."o$jIDA98%o&jIDA39'o(jIDA23)o*jIDA24+o,jIDA25-o.jIDA26/o0jIDA271o2jIDA283o4jIDA295o6jIDA307o8jIDA319o<jIDA33=o>jIDA34?o@jIDA35AoBjIDA36CoDjIDA37EoPjIDAE39QoTjIDA45UoVjIDA46WoXjIDA47YoZjIDA95[o\jIDA48]o^jIDA50_o`jIDA51aobjIDA52codjIDA07eofjIDA08gohjIDA09iojjIDA12koljIDA13monjIDA14ootjIDA17uovjIDA18woxjIDA19yozjIDA20{o|jIDA21}o~jIDA49ojIDA22ojIDA54oR:QUITR;EXPLAINR;LISTjIDAojWANT LIST OF ALL IDA COMMANDS f0V0@@0Nfw@ljj% Q2 NAME Q1 EXECUTION BEGINS IN:j%*** **** ** ******************** X@u iPw j*P%* H #,3D2X,4A4X,2D2X4Z'@/@COMMAND NAMES :/@ElJ X@u^h0h jF#,4A2X0rVPP|wj|Zjo#)dABSO@ADDC@#+dADDV`ALLS@#-dANOV`APPO@#/dAPPS@APPV`#1dAUTOpBACK`#3dBCORPBCOV`#5dCHGO@CHGP`#7dCOEF@CORR@#9dCOVA@DELB`#;dDELOPDIFF@#=dDOTPPDURB@ #?dENLI@ENTE@#AdEXPL@EXPO`#CdFILEPFORW@#EdFPRF`FPRO@#GdFPRRpFPRSH#IdFPRVPFREQ`#KdINFO@HISTP#MdINDX@LAGGp#OdLIST@LOGE@#QdLOG1HMEAN@#SdMULCPMULVX#UdNAME@NEWS@#WdNORM`PARC@#YdPLTC@PLTS@#[dPOWE`PRTF@#]dPRTO`PRTR@#_dPRTS@PRTVP#adQUIT@RAND@#cdRECO@REGR@#edRETB`RETO@#gdRUNSHRVSFL #idSAMP@SAVF@#kdSAVRxSCAT@#mdSEPR@SERC@#odSTANhSTEP@#qdSUBS@SUMM@#sdSWEE@TRAN@#udWLSR@RDIM@#wdNEWC@CALC@#ydSORT@JPSOR@#{dRANK@ENTS@#}dENRA@MSORX#dCRSP@PSAM@#dGAUS@HELP@#dCTABxMTAB@ #dDIVIpSPEC@#dCRTS@COMM`#dAPPB@ZERS@#dZERC`ZERR@#dCATE@SELR@#dMOVE`DELV@#dSTAR@SPADP#dMPLS@COMP@#dDUMP@SUBV@#dPACF@CRFI@#dCROS@EOBR@#dMISS`EOBS@# dBOXJ@'o'`JIDAVAR] a2j10JUNE74<j"IDA COMMON VARIABLES AS OF 15JAN74>jF jX DATA MATRIXPj6 MEANS IN ROW N9+1. X(N9+1,J) IS MEAN OF COL.J.Z$j@ STD.DEV(S). IN ROW N9+2. X(N9+2,J) IS STD.DEV. OF COL.J.d j8 X(N9+3,I) IS THE NUMBER OF UNDEFINED OBSERVATIONSnj4 AT THE BEGINNING OF COLUMN I (CAUSED BY xj2 LAGGING OR DIFFERENCING OF VARIABLES). j8 COLUMN K9 : FITTED VALUES FROM CURRENT REGRESSIONj6 COLUMN K9+1: RESIDUALS FROM CURRENT REGRESSION j7 COLUMN K9+2: X(I,K9+2)=1 IF ITH ROW IS 'ACTIVE'j3 =0 IF ITH ROW DELETEDj. X(N9+1,K9+2), X(N9+2,K9+2) NOT USED NOWj0N, K NUMBER OF ROWS AND COLUMNS IN DATA MATRIXj1N9,K9 MAXIMUM DIMENSION ALLOWED FOR DATA MATRIX.j5 NORMALLY, N9=100, K9-1=19.THESE CAN BE CHANGEDj BY THE COMMAND 'RDIM'.j(Q4 INDEX OF FIRST ACTIVE OBSERVATIONj0 Q4 = MAX( X(N9+3,J) +1 ) OVER J=1,2,...,Kj4U CORRELATION MATRIX OF VARIABLES IN REGRESSIONj3N8,K8 NUMBER OF ROWS AND COLUMNS FOR THE MATRIX OFj/ INDEPENDENT VARIABLES USED IN REGRESSION!j9M CORRELATION MATRIX OF ALL VARIABLES FOR ALL ACTIVEj OBSERVATIONSj)P INDICATOR VECTOR OF OPTIONS CHOSEN"!j9 P(41) TO P(60),INCLUSIVE MAY BE USED FOR TEMPORARY,j1 MEMORY FOR CHAINING BY 'NEWC' PROGRAMMERS.-j4 P(1) TO P(40) AND P(61) TO P(78) RESERVED FOR.j2 POSSIBLE IDA PARAMETERS. CURRENTLY:/j2 P(61)=P(62)=0 IF NO MISSING VALUES DECLARED0!j: P(61)=1 IF MISSING VALUE DECLARED IN 'MISS','ENRA',1j OR 'EOBR'2!j9 P(62)= NUMBER ASSIGNED TO REPRESENT MISSING VALUES3"j; P(63)=THE NUMBER OF COLUMNS CONSIGNED TO THE SCRATCH4 j7 PAD WITH THE COMMAND 'RDIM'. 0 OTHERWISE.5 j8 P(64)=1,2,...,10 TO INDICATE WHICH KIND OF CRT IS6 j7 BEING USED. IT IS >ASSIGNED IN THE COMMAND@j" 'CRTS'. 0 OTHERWISE.J"j; P(65)=S, THE VALUE OF THE STARTING CRSP- INDEX MONTHT!j: IF CRSP- DATA HAS BEEN ENTERED. 0 OTHERWISE.j Q INDICATOR VECTOR OF TASKSj3 Q(1)=1 IF DATA HAS BEEN ENTERED. 0 OTHERWISE j7 Q(2)=1 IF REGRESSION EQUATION HAS BEEN SPECIFIED!j9 Q(3)=1 IF CORR. MATRIX NEEDS UPDATING. 0 OTHERWISE j7 Q(4)=1 IF REGRESSION NEEDS UPDATING. 0 OTHERWISEj4 Q(5)=0 TO UPDATE BOTH CORR AND REGR IN $IDA38j) =1 TO UPDATE CORR. MATRIX ONLYj5 Q(6)= ID OF PROGRAM MODULE. USED IN $IDA38 TOj4 DETERMINE THE PROGRAM TO CHAIN BACK TO.#j> E.G., IF PRESENT PROGRAM IS $IDA32, THEN Q(6)=32.j2 Q(7)= LINE NUMBER TO CHAIN BACK FROM $IDA38j4 Q(8) TO Q(19) : TEMPORARY MEMORY FOR CHAINING j7 Q(20)= NO. OF INDEP. VARS. IN CURRENT REGRESSIONjV VARIABLES IN REGRESSIONj2 V(K8+1) = COL. NUMBER OF DEPENDENT VARIABLE&j6 V(1), ..., V(K8) = COL. NUMBERS OF INDEP. VARS.'j V(20) NOT USED NOW.0j3M$ NAMES OF 1ST 10 VARIABLES, 6 SPACES PER NAME:j#N$ NAMES OF REMAINING VARIABLES;#j= N$(67,72) BEING CONSIDERED TO CARRY DATA FILE NAME FOR<j1 NEW COMMAND WHICH REQUIRES SCRATCH FILE.D j8Q3 =1 IF USER GAVE NAMES TO VARIABLES. 0 OTHERWISENj,Q1 CODE NUMBER FOR COMMAND IN SUBPROGRAMXj%Q2 SERIAL NUMBER FOR COMMAND WORDbjQ5 NOT USED NOWljQ7 INITIALIZATION PARAMETERvj-Q9 =1,2, OR 3. CODE FOR LEVEL OF PROMPT.jI3,I4 TEMPORARY PARAMETERSj3U9 NUMBER OF USER-DEFINED COMMAND NAMES. U9<=5!j9X$ NAMES OF USER-DEFINED COMMANDS, 4 SPACES PER NAME.'`>IDCHEK +l R*** BAEDP TIMESHARE BILLING.R*** THIS PROGRAM ALLOWS REPORT DATA FOR A GIVEN I.D./SYS.R*** TO BE DUMPED TO A TTY PROVIDING THAT DAILY FILES ARE(R*** INTACT FOR THE PERIOD REQUESTED.2R***<p*FNH  `P v 0123456789Zv ABCDEFGHIJKLMNOPQRSTUVWXYZd j I.D./SYS.nfxWjINVALID I.D./SYS. TRY AGAIN.d v`@@Fv`@@PPjBEGINNING DAY (JULIAN)fEjENDING DAY (JULIAN)fFVE@4E[4F@4F[jDAYS >=1 AND <=366, PLEASE.j(****************************************jDAYTIMESPACEj(****************************************XGE|FR*** GOSUB FOR JULIAN DAY AND CREATION OF FILE NAME F$.b" R*** PRINT OUTPUT,WNz(J6 jGNO FILE THIS DAY@rJWNl(hTjGNO I.D. OR ZERO TIME AND SPACE^rhjGNNrZG|/@dR*** GOSUB TO CONVERT A$(1,4) TO I.D. A9w PVPP,1VPP@9R*** BAD I.D./SYS. IN A$.w@^ X@h V@@0 Zv} X@@ X@P& V0D0Z:Dv @P(@"NZX^bR*** THIS GOSUB CONVERTS JULIAN DAY D2 TO F$(3,5)lR*** AND ACCESSES DAILY FILE F$ IF IT EXISTS.vR*** TIME(T9) AND SPACE(D9) ARE RETURNED.R***R***w@Gdw@G#@dPw`G#@d#@P X@` v@v`@@ZR*** F$ NOW CONTAINS DAILY FILE NAME.D`@-W-`R*** TIME AND DISC = 999999 IF FILE NON-EXISTANT.wNNz( ^n V`@>* h@@4nh@>R*** SEARCH BACK FOR I.D. A9H X}@~@R V@(f\Zf X@~@p V@*z V@,R*** I.D. IS FOUND. SET TIME AND DISC SPACE. wN@ vN`^ZR*** FILE F$ EXISTS, BUT I.D. A9 ISN'T IN IT.R*** SET TIME AND DISC SPACE = 888888.wNNl(^`(INDEX  Q R* ALLOWS GENERALIZED ENQUIRY BY EVERBODY, UPON XREF INDEX.R* PROTECTED PROGRAM, IN A000 LIBRARY.R*AUTHOR: MR. W. DODDS, APRIL/74, VSB.( R* VERSION # 0.2 R********************< R DOCUMENTATION.F R********************P"R* FIXED SIZE RECORD LAYOUTS (NOT PROTECTED. IN A000 LIBRARY.).ZR* DESCRIPT/CAT: INDEXF- F$,D,C(1)...C(X)./ INDEXC- C$,D.d R*** VARIABLES.n"R* C-CODES,D-DATE,S-SERVICE,V-VALID CODES,E-ERROR FLAG(1=YES).xR* T-THRESHOLD DATE,F-FOUND FLAG(1=YES,M-MAX CATEGORIES. R* X-MAX CATEGORY CODES PER INDEX ENTRY,K-LOOP ETC COUNTER."R* N$-NAME,D$-DESCRIPT,F$-N$+D$,C$-CATEGORY,R$REPLY,R-SEARCH. R******************* R*** INTIALIZE. R*******************p*,*D$INDEXF@DESCRPD$INDEXC@CATGRYOa1 ! MPLԞ_N`F@@ (0MjDO YOU WANT INSTRUCTIONSg W @@0YW @@.NM@W|$j@FROM CATEGORY CODES, RELEVANT PROGRAMS IN $LIBRARY CAN BE FOUND.j%jAMOST PROGRAMS SELF EXPLAIN WHEN RUN OR ELSE LISTED. IF NOT, THENj5REFERENCES(ON HOW TO USE EACH OF THE PROGRAMS) CAN BE"j5SEEN BY VISITING THE COMPUTER CENTRE; OR ONE COPY PER,j.TEACHER WILL BE SENT TO SCHOOL, ON REQUEST, IF6!j9POSSIBLE. PHONE 327-7300 FOR DETAILS, RESERVATIONS, ETC.@jJj#THE INDEX IS ALWAYS BEING IMPROVED.T%jAIF YOU WISH TO PROPOSE CHANGES/NEW DESCRIPTIONS,CODES,CATEGORIES,^!j9OR PROGRAMS; THEN GET-$FORMDX, RUN,& FILL IT IN, SEND TO,h$j?COMPUTER CENTRE, ROOM 219, JOHN OLIVER SEC. SCHOOL. PLEASE USEr%jASTANDARD FORMAT, SUBMITTED PROGRAMS: GET-$FORMAL & RUN (EXAMPLE).|(/@=PAUSES OF ONE MINUTE MAY OCCUR WHILE INDEX IS BEING SEARCHED.L V`@h@`Dnh@3V`@@0 L@j,TOTAL NUMBER OF PROGRAMS IN THE INDEX IS NOW/@W0 j SERVICES:j, 1 - LIST WHOLE SET OF CATEGORIES AND CODES.j- 2 - DO PARTIAL LIST OF CATEGORIES AND CODES.$j@ 3 - LIST XREF INDEX (PARTIAL). EXAMPLE: WHAT IS UNDER 'MATH' ?&jC 4 - SEARCH INDEX FOR SPECIFIC CODES. EG: WHAT IS UNDER 'ALGEBRA' ?"j< 5 - GET DESCRIPTION AND CODES FOR A SPECIFIED PROGRAM NAME. j8 6 - LIST ALL PROGRAMS CHANGED/NEW AS OF DATE SPECIFIED.&j 7 - END INDEX PROGRAM.0oc:L@D V`@Nh@0DXV0@@0 bV0@@0*lMa@vMaL@NWj2FOR SERVICES 1 TO 4, YOU WILL BE ASKED IF YOU WANTj5TO OBTAIN ONLY CHANGED/NEW ITEMS, SPECIFY OLDEST DATE!j9DESIRED. USE YYDDD FORMAT. THUS: 74158 (DAY 158, 1974)."R**************************************************************R *** M A I N L O G I C ."R**************************************************************/@%WHAT SERVICE NUMBER(1TO7) DO YOU WANTg4W4@74p744  ]4RFr  jINVALID. "R***************************************************************R *** R O U T I N E S .4"R**************************************************************>RH R*******************RR *** LIST CATEGORIES & CODES.\ R*******************fL5@pL>z /`#j CATEGORIES JULIAN DATE:@`v/@jCODES CLASSIFICATIONSj======= ===============/@L4 h@@Ld V`@h@0DL44@V4,564*>VD-D$V0@@0 .V0@@.*8/@BR "690 PRINT C;" IF CONTROL PERSON NEEDS TO KNOW CODE.Lj**V X@P ` V0. tjj t j0 ~Zj***jV0@@0-jj j4 0Ld@Vd jNO CHANGES/NEW SINCE DATE:D( /`j5CATEGORIES WITHOUT LEFT HYPHEN ARE FOR MISCELLANEOUS.!j:THEY DO NOT CAUSE THOSE BELOW, WITH HYPHENS, TO BE LISTED.(/`2^< R******************F R*** LIST XREF INDEX.P R******************Zd n+/`PLIST OF XREF'D INDEX, FROM CODE5TO> AFTER DATEDx dX@}M!Z V`@^ h@@ X@|5@h@0DZX45|>h@0DV0@@0 TV0@@0*T/@!*********************************H #,DDDXXj** j4" j0| **,j!*********************************6j@M!@4J TZ4^^h R******************rR*** DO SPECIAL SEARCH.| R******************  /@%SEARCH OF INDEX, FOR SPECIFIED CODES:X@} W!k!Z j AFTER DATED dj ^ R******************R*** LIST DESCRIPT/CODES, SPECIFIED PROGRAM NAME. R******************jWHAT IS NAME OF PROGRAM&g 0W @@0*:W @@.$ND M  @ N  `XL b L@  l V`@v h@@h@`Dnh@3 V`@`./@DESCRIPTION & CODES  d  j INVALID. jNAME NOT FOUND IN INDEX.j^ R******************R ***LIST ALL PROGRAMS CHANGED/NEW AS OF DATE SPECIFIED. R******************  /`*j +LIST OF ALL PROGRAMS CHANGED/NEW AS OF DATED4 d>jH V`@R h@@\h@`Dfnh@3pVD-D\z \^b"R**************************************************************R*** S U B R O U T I N E S ."R**************************************************************R R******************R*** GET START, END CODES. R****************** jWHAT START CODEf5L45  VT $  $ j WHAT END CODE .f> 8V>>5 V B j INVALID.  L $ VL4> ` jVT ~ t $ ~^ R****************** R*** CHECK VALIDITY OF CODE C. R****************** Y@| V415a@ [ j INVALID.  LT@  LT ^ R****************** R*** ASK IF CUTOFF DATE DESIRED. R****************** R j2WHAT IS OLDEST DATE DESIRED (REPLY 0 IF ALL DATES) (gD 2%VDH_"5D,`}@5DD7D P <jINVALID. F  P^ Z R****************** dR***PRINT TITLES, FOR INDEX LISTS. n R****************** xP UP TO DATE OF:@`v /@ $ NAME DESCRIPTION OF PROGRAM j  j CATEGORY CODES THAT APPLY j ====== ====================== j  j ========================= ^ R****************** R*** LIST INDEX ENTRIES THAT MATCH R(K), K=1 TO X; IF D>=T R****************** Ld V`@ h@@ h@`D nh@3 VD-D  "L ,X@} 6 W! @L@ JX@} T V1 ^ V1/! | hL@ r |Z Z V0    Ld@   Vd !/@0NO PROGRAMS EXIST FOR CODES/DATES YOU REQUESTED. /@ ^ R****************** R*** PRINT PROGRAM NAME, DESCRIPT, CODES. R****************** j`@` `pL  H #,XDDD  X@P & V1 N 0j 1 :Z DVP X Nj XV`N F0  l bj `N F lj v^ R****************** R*** GET CODES FOR SPECIAL SEARCH. R******************  j7WHICH COMBINATION OF UP TO TEN CATEGORY CODE NUMBERS DO j7YOU WANT, ALL OF WHICH MUST BE MATCHED, FOR SELECTIVELY j6LISTING AN INDEX ITEM. SPECIFY 0 TO INDICATE NO MORE. jJUST ONE CODE AT A TIME. o# j X@} V@ jNEXT  jCODE g! W!4@ *  > VT@ Z *^ 4 R****************** >R*** VALIDITY CHECK ALL X CODES SPECIFIED, R(K). H R****************** RV@5! \ W!! fW!7!* pL zX@} W!/! L@ Z V@ L4!  VT j INVALID.  LT@ ^ `INDEXU  "R* ALLOWS A000 ID TO UPDATE FILES FOR XREF INDEX PROGRAM USAGE.R* PROTECTED PROGRAM, IN A000 LIBRARY.R*AUTHOR: MR. W. DODDS, APRIL/74, VSB.( R* VERSION # 0.2 R********************< R DOCUMENTATION.F R********************PRZ"R* DISCFILE "ADDS" USE SPACE MADE BY "DELETES" AND IF NONE, THENdR* ADD OCCURS ONTO END OF USED UP SPACE IN FILE.nRx"R* FIXED SIZE RECORD LAYOUTS (NOT PROTECTED. IN A000 LIBRARY.).R* DISC FILES ARE SEQUENTIALLY AND DIRECTLY READ/WRITTEN.R!R* RECORD LAYOUTS: INDEXF- F$,D,C(1)...C(X), 4 RECORDS/BLOCK.R* INDEXC- C$,D, 19 RECORDS/BLOCK.$R* INDEXW- WORKFILE FOR UPDATING INDEXF OR INDEXC.R!R* IF FIRST COLUMN OF INDEXC TITLE IS * THEN TREATED AS TITLE,$R* INSTEAD OF AS CATEGORY, AND DOUBLE SPACED AUTOMATICALLY, ACROSS.R!R*REM* AT SYSTEM INITIATION TIME; DO THE FOLLOWING, ONCE ONLY: R* OPEN-INDEXW,1%R* OPEN-INDEXC,20 ...IF 380 CATEGORIES; ELSE MORE OR LESS BLOCKS.$R* OPEN-INDEXF,200 ...IF 800 PROGRAMS; ELSE MORE OR LESS BLOCKS.R* TYPE: 535 GO TO 9000&R* NOTE: MAX 999 CATEGORIES; BUT UNLIMITED NUMBER OF PROGRAMS, IF SPACE.R" R*** VARIABLES.,"R* C-CODES,D-DATE,S-SERVICE,V-VALID CODES,E-ERROR FLAG(1=YES).6R* T-THRESHOLD DATE,F-FOUND FLAG(1=YES,M-MAX CATEGORIES.@ R* X-MAX CATEGORY CODES PER INDEX ENTRY,K-LOOP ETC COUNTER.J"R* N$-NAME,D$-DESCRIPT,F$-N$+D$,C$-CATEGORY,R$REPLY,R-SEARCH.T%R* U$-UPDATE TO F$, B$-70 BLANKS, A$-ANSWER, B-BLOCK, Z-LOOP COUNT.^R* J-JULIAN DATE FOR UPDATING.h R*******************r R*** INTIALIZE.| R*******************p*,*,*DINDEXF@DESCRPDINDEXC@CATGRYDINDEXW`WORKFLOa1 ! MPLԞ_L@`}OPF FN`F@@ H0!j:NEVER CANCEL INDEXU PROGRAM BY USE OF BREAK NOR CONTROL C.%jBOTHERWISE DISC FILES MAY REMAIN NOT UPDATED, IN UNPREDICTABLE WAY.#j=PLEASE WAIT DURING 1 MINUTE PAUSES (CAUSED BY DISC SEARCHES)."j;USE SINGLE LETTER REPLIES TO QUESTIONS OF PURPOSE (FASTER).!j9USE * CARRIAGE RETURN AS REPLY IF NO LINE #2 DESCRIPTION.#j=FOR DESCRIPTIONS FILE, CHANGES ARE DONE BY DELETING & ADDING.j L @P ( L R F oc&L@0 V`@:h@0DDV0@@0 NV0@@0*lXMa@bl Ma@vMaL@:"R**************************************************************R *** M A I N L O G I C ."R**************************************************************/@ CATEGORIES, DESCRIPTIONS, OR ENDfV0CV0D4V0E' j INVALID. "R************************************************************** R *** R O U T I N E S ."R************************************************************** R*R*********************************4R *** UPDATE PROGRAM DESCRIPTION AND CODES.>R*********************************HjADD, REMOVE, OR ENDRf\V0AfV0RpV0E'z j INVALID. HR*********** R *** ADD. ***R*********** R* GET NAME, BLOCK. VdjPROGRAM NAME ALREADY EXISTS.  X jUPDATE IGNORED.V%$#j;INDEXF FILE IS FULL. CAN NOT ADD INTO IT UNTIL COPIED INTO j LARGER FILE.$ R* GET DESCRIPTION..jDESCRIPTION, LINE#18g B  @ `LjTOO LONG (32 COLUMNS EXCEEDED).V.` L@ @@j L@@  tj LINE#2~g   @ jTOO LONG (32 COLUMNS EXCEEDED).tW @@0*L@B  @   R* GET CODES.  R* UPDATE DISC. MP@` MPpF@ L @`L$%8 R*********** R *** REMOVE. ***(R***********2 R* GET NAME, BLOCK.< FVd@dPj-NO SUCH PROGRAM NAME EXISTS. UPDATE IGNORED.Zd R* BLANK OUT.nMP xo# R* UPDATE DISC:L$.8R********************************R *** UPDATE CATEGORY CODES AND TITLES.R********************************jADD, MODIFY, REMOVE, OR ENDfV0A"V0MV0R&V0E' j INVALID. R***********"R ***ADD.***,R***********6 R* GET NEW CODE:@ JVd@T R* GET CATEGORY TITLE.^rhr jCATEGORY TITLE|g   P jTOO LONG (20 COLUMNS EXCEEDED).r L0 @P  L0@  V0@@0*Ma4@ Ma4@^ R* UPDATE DISK:MP0L4>R***********& R *** REMOVE.***0R***********: R* GET OLD CODE.D PNVdXMa4b R* UPDATE DISC:lL45v MP @P  R* FIX INDEXF: V`@L$@M$5L4|L$$@R*********** R *** MODIFY.***R*********** R* GET OLD, NEW CODES. P Vd  R* GET TITLE, THEN UPDATE V(C).*r.V50>40Ma54 MP @P >L45HM 0R\L0 fMP0pL4>zV50> V`@L$@M$5L4>|L$$@b R**********************************************************R*** S U B R O U T I N E S . R**********************************************************R  R****************** #R *** GET PROGRAM NAME & BLOCK, CHECK IF ALREADY EXISTS IN INDEX.  R****************** $jWHAT IS NAME OF PROGRAM .g 8W @@0*  BW @@.$ V L M  @  V  `  `L j L@  t V`@ 2 ~ h@@ L%. L$@ X@@ h@`D nh@3 V% V`@`.  L%$ V`@`. L.$ Ld@  < Z L$$@   j INVALID.  ( $ 2Ld <^ F R****************** PR*** GET OLD, NEW CODES. Z R****************** d j WHAT OLD CODE nf5 xV5@45@455 j INVALID.   d L45  @ Vd@ j)NO SUCH OLD CODE EXISTS. UPDATE IGNORED. ^ R************** j WHAT NEW CODE f> V>@4>@4>>  j INVALID.   L4>  @ Vd , "jNEW CODE ALREADY EXISTS. ,^ 6 R************** @X@| JV404a@7a0@ r TZ ^Ld h | rLd@ |^ R****************** R*** CHECK VALIDITY OF CODE C, FOR INDEXF UPDATE. R****************** Y@| V415a@ [ LT@  LT ^ R****************** R***PRINT TITLES, FOR INDEX LISTS. R****************** /@ $ NAME DESCRIPTION OF PROGRAM j  j CATEGORY CODES THAT APPLY &j ====== ====================== 0j  :j ========================= D^ N R****************** XR*** PRINT PROGRAM NAME, DESCRIPT, CODES. b R****************** lj`@` `pL  vH #,XDDD X@P V1 j v1 Z VP j V`N F0 N F j `N F j ^ R****************** R*** GET CODES FOR ADDING TO INDEXF. R****************** $j@MAX 10 CODES, 1 AT A TIME. SPECIFY 0 TO INDICATE NO MORE CODES. o# X@} V@ 4 *jNEXT  4jCODE >g! HW!4@ p R \VT@ 4 fZ p^ z R****************** R*** VALIDITY CHECK ALL X CODES SPECIFIED, R(K). R****************** V@5! W!! W!7!* L X@} W!/! L@ Z V@ L4!  VT$ j INVALID. LT@$^. R*******************8R*** UPDATE 1 BLOCK OF INDEXF.B R*******************Lh@$V h`@`Ldj X@@th@`D~nh@3Vd@ V`@`.Ld@L`PV`@`0 LDLDn3#j``Dnj`3Z ^ R*******************R*** COPY BACK FROM INDEXW TO INDEXF.( R*******************2h@$< h`@F X@@Ph``DZnh`3dj@`Dnnj@3xZ^ R*******************R *** UPDATE 1 BLOCK OF INDEXC. R*******************L$4@L @h@$ h`@ X@L h@0DV4.$@L WP@@0 LDLD L0P@P j`0D"Z,h@$6 h`@@ X@L Jh`0DTj@0D^Zh^r R*******************|R*** MODIFY CODES IN INDEXF WHEN UPDATING INDEXC. R*******************h@$ h`@ X@@h@`Dnh@3Y@}V1/$L14LD[j``Dnj`3ZR* COPY BACK FROM INDEXW.&0^#(#R****************************************************************#2%R*** INITIALIZE FILES, ONCE ONLY, AT SYSTEM SETUP; OR FILE ENLARGING.#<#R****************************************************************#FLD#PL` #Zn3#d L0 @P #n V`@##x V`@##j@`D#nj@3###j@0D###j5BOTH FILES NOW INTIALIZED. PREVIOUS CONTENTS ERASED!'`INPUT ] +R CHEM1, HP 36878A, 6/74 "R**INPUT**C.A.I.**INPUT ROUTINE FOR CHEM1 & CHEM2**MAY 19, 1972!j:THIS PROGRAM WRITES THE FILES FOR USE WITH CHEM1 AND CHEM2!j:MAKE SURE A FILE HAS BEEN OPENED AND DECLARED IN STATEMENT(jFIVE OF THIS PROGRAM.2 h@@< NH HF jIS THERE ORDERPfZ V0YESxd j@NONEnx j@ORDERjWHAT IS THE FIRST ITEMf jAND THE SECONDf j@ jHOW MANY LEVELS ARE THEREf֯044Xj+MUST BE INTEGER BETWEEN 1 AND 10 INCLUSIVE.j@w4X@|jHOW MANY QUESTIONS IN LEVELf V԰4Ԫ,",w44 6j@4@vJZTX@|^ jINPUT TO LEVELh X@|r j FIRST ITEM|fj@ j # ANSWERSfj@X@|j#fj@ZZZjINPUT TO THE FILE IS COMPLETE`INV1  Q R*** BAEDP TIMESHARE BILLING.R*** THIS PROGRAM PRODUCES INVOICES FROM FILE LOCSRT.R***(R***2pLOCSRT<NBereFnCPnsZNH ДH@Hd v 0123456789njINVOICE NO. TO BEGIN PRINTINGxf& j MONTH YEARfjMESSAGEj?.@W. V`@R*** IMAGESH 55X,"INVOICE NO. ",4DH 24X,"BAEDP TIMESHARE SERVICE"H 5X,20AH 5X,"DIV. ",2A," LOC. ",4A H 5X,"BLDG. ",14AH 5X,"BILLING CODE ",3AH 26X,"I.D. ",4A," SYSTEM ",A!H< 10X,"TERMINAL TIME:",4D.D," HOURS AT $2.70/HOUR ",2X,6D.2D" H: 10X,"DISC STORAGE:",6D.D," BLOCKS AT $.07/BLOCK",2X,6D.2D,H! 10X,"SPECIAL CHARGES:",28X,6D.2D6 H 54X,"*********"@H 51X,"***NO CHARGE***"JH 5X,67ATH' 10X,"TOTAL CHARGES:",26X,"$ ",2X,6D.2D^ R*** PRINT INVOICEShvrj | h@FF v֤֞d@v֦d vמפd@vצd v؞ؤd@vئdVְ4װ4ذ|v@V,&R*** GOSUB TO PRINT INVOICEV\ \ 0RV\ \ .G|R*** GOSUB FOR DIVISION INDEX. vh l (vB@B@!F&vB@B@ F0vB`B` :vB@B@ DvBPBP NV\ \ .G|XR*** GOSUB FOR GROUP INDEXb v^ ` l(vvr@r@!Fvr@r@ Fvr`r` vr@r@ vrPrP |R*** GROUP MASTER INVOICES. h@@ V`@R h@FFV\ \ .M v^ ` (R*** PRINT GROUP MASTER INVOICE wFr@ vFr@ vr` vr@* vrP4v@>HRR*** PRINT DIVISION TOTALS\ X@df X@PpvBeBe BzZZ X@e1VB@4B@4B`4B@4BPZ`R*** THIS ROUTINE PRINTS AN INVOICE.jjjjj x /@ j`d jh l p | $ j@ Z . j\ ` 8jBj@@PPL/@V jFx `jjj"Ftj~j,j6jT j6jV\ \ 0RV\ \ 0Gj@j/@jJ@V@@/` j ^(R*** ROUTINE TO CONVERT J$ TO SUBSCRIPT J1.2 X@P<V@@0nFZP jINVALID SUBSCRIPTZjdbn v@Px X@PV@@0ZPv ^R*** ROUTINE TO PRINT DIVISION TOTALS FOR DIV. I-1.j H 24X,"TOTALS FOR DIVISION ",2DH 24X,"TOTALS FOR ALL DIVISIONS"/@Vej j@/@ wFB@" vFB@, vB`6 vB@@ vBPJ jFx Tj^j"Fhjrj,|j6jT j6Ve/@j DIVISIONAL ACCOUNTANTS:#j> PLEASE DISTRIBUTE INDIVIDUAL INVOICES TO TIMESHARE USERS.^`IRV1 J] ,J`&'TD4p ! RR FINDIT: FILE INFORMATION DIALOGUE TECHNIQUER IRV1: PART 8 OF 8 R 36250C, 6/74R j)PLEASE GET AND RUN YOUR ORIGINAL PROGRAM.bp*,*,*(*NH H0H@HP@@HH2)wHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA<)wHXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXFN&&&!&&PvDZ D$CHARS`dV`nh`x#v< !#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\%v@abcdefghijklmnopqrstuvwxyzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzD`@UDp@ V`@(w6@w7 w8@%D!4@v w9vnonßo#nv"Y$&}', W9J6 w9@jJvTh@$^phv@rV|W6U8W-W15-$W+W15-$V@,V@*W-$V@*V@,W-$V0D&v@0w77@:NDNUDXlXvblXvvv V@v@$V@v@v@ WvUDV,V*f U4fV԰64 V,*V*f4 h@>pHV, RV* f\U4ff VpvzUDvwv$ W!v!UDw!wv$[$V.w77@UtVC6t$!/@ FILENAME: ` RECORDS&THROUGH'./@8 TBVjttB jITEM/@LtV jRECORD/@`tjj RECORD ITEM/@t V@~v@v@ WvU4d Vv@v W!v!  W<(jNO ROOM LEFT IN FILE p. OUTPUT NOT COMPLETED.2b<vFvPW!0Zd W!nv!xd@v Vvd WT W71'#&@,w6UDww h@pv@w", W@6@@6j@`@/`SORT COMPLETED.JbTv^vhV0rv@ WvU4, W!v! W w! V wr"^, VJ6v@,J W^T v!^ W!rh w!rw!|^p@`.zXV@|T@h@wF@h@wF@jTHERE ARE ONLYV@ELEMENTS IN RECORD$.bZVWD1FVjELEMENT NUMBERT OF RECORD$ IS NOT A UDjNUMBER.bjSTRING.$b.VV8v@BW6VLw77@V^X vP@@blV֮vvԞ^v vP@@V֮vԞ^vԤ} ^v@v@ Xמ@@ v֞ @V֪@  v* v֢@֢@*VP,H4VP*\>^HvRf\vfZpv֞z^@UP @!D`T|   JUP @!DX !4!\!!!!!! T h@^phkr^| h@pj^j^ h@pj^ h@pj^ j  jRECORD  h@ &@ 0 N l 0h@ :k D & Nh@ Xj b & ljE O F v^ jE O R ^ X@| h@ vT p v0#, V@6!@@ v00@@!@@ V0! v00@@!@"!@ v00@X ! !v00@@! jF0!Z! j!*^!4 h@!>p!Hj@!R^!\ h@!fp!pj@!z^! j@!^! h@!p! j@!^! h@!p! j@!^! h@!v@!j@"@""."L"V"h@"j@"$"".h@"8j@"B""Lj@`"V^'`ISACS] +T @^GAC{BJBDEGABBBCGBHBMBLE^ACSEf~DSJTGXGFEODJE$@ Z   V (  v1  & X.@|@ 0 V .( :VZ 4 .( DZ. N v#`1 X'v#p@"@ $#p @ $#p@ 1 b+v#@@&@ $/ 1@$0$@&@ @ lv#ITEM  QR ** HP CONTRIBUTED LIBRARY 2/75 ** R******AUTOMATIC ITEM ANALYSIS PROGRAM*********************!R*****WORKS FROM RAW RESPONSE LETTERS. RESPONSE ALTERNATIVESR ARE A,B,C,D,E. OMITTED RESPONSES SHOULD BE CODED'O'.( R DATA IS ENTERED VIA 'DATA' STATEMENTS AT END OF PROGRAM.2RPROGRAM WILL COPE WITH MAX. OF 50 ITEMS< RPRE-REQUIRED DATA ARE 1)STRING OF CORRECT RESPONSESFR 2)NUMBER OF STUDENTS(48MAX)P#R*********************:J.R.T. OCT.1973***************************:ZN2 22q20dpSTDTnj)ENTER NUMBER OF STUDENTS INVOLVED IN TESTxfj HOW MANY ITEMS IN THE TESTfj0STDT.NO. RIGHT/WRONG/OMIT SCOREhX4@|h Mt$X@| V 0O V 0wtt@w@w$$@Zw4$"j4$t$&, j@4 46w44@wq44JZ4TLT^ X4@|@h W4A4@rvTT@|wD4 w44@ w4@DwDq4 wq4q4@ wq4@DZ4VTT v4EVE"4@v44@v64j jLOWER GROUP OF4WITH NUMBER OF ITEMS CORRECTvdX@|4&vDq0kq