IMD 1.15: 16/05/2007 8:11:58 FUTURE SYSTEMS DSDD .DOC FILES DSDD DOCP FIX COM$CHECKS DBF4CPM3 SS CPU CMDDBASEAPPOVRDBASEBROOVR DBASEJOIOVRDBASEMAIOVR7DBASEMODOVRDBASEMSCOVRDBASEMSGCOM> !"#DBASERPGOVR$%DBASESRTOVR &DBASETTLOVR'DBASEUPDOVR(DO COM)*+,-./01ENTER CMD23EXECST COM45FS FRM6INSTALL COMP789:;LEDGER DBF<=PERCENT CMD >PRINT CMDDIR B: ....... B: ....... B: ....... B: ....... B: ....... B: ....... T avoi thi proble, remember: diskette tha hav bee formatte double-side a an time mus b reformatte singl- side o double-side system befor the ar copie t o single-side system. Th othe fac tha yo ma notic abou th forma i tha th file wil no occup minimum o 2 o dat spac, eve i th fil i onl tw line i length Th reaso fo thi chang was to conform to the Vixen format constraints. Thi upgrad ha bee thoroughl teste b man competen persons includin thos a Osborn Computers an a yet w ar no awar o an problemnsfe th ne BIO t you formatte diskett usin th COPYSY progra a describe o pag 64 volum 1 unde th headin COPYSYS Onc yo hav saved the operating system onto the diskette, return to CPM. 4) A th A typ PI an pres return Thi wil invok th progra use t transfe dat betwee drives on fil a time Usin PI i describe o pag 63 volum o th Executiv Guide Remov you syste dis fro Driv afte th asteris (* appear an plac i Driv disk ett tha yo wis t cop file from Typ afte th B:=A:*.*[V an RETURN Thi wil cop ever fil fro Driv t Driv B regardles o nam o extension I wil als verif th transferre data. 5) Whe th transfe i complete th wil reappear Remov you doubl side cop fro Driv an labe appropriately Fo wit th upgrad whe workin wit program tha wer originall supplie wit you system However i an problem d com up w woul b mos please t hea o the s tha w ca mak whateve adjustment ma b required Note Ther i progra fo th Driv C produc calle Archiv an Retreiv tha doe no wor wit thi upgrade Howeve th Tranto har dis versio o Archiv an Retreiv work fine a well as the public domain programs for the same function. Ther ar som program tha wil no wor wit th upgrad becaus the ar intende t writ t th syste track fo on reaso o another thes ar setu typ programs Tw tha w hav teste an ar sur abou ar MakeKey an Autosetup Thi ha t d wit th fac tha ther ar no onl on syste trac and not three as before.  EXECUTIVE DOUBLE SIDED UPGRADE SOFTWARE ADDENDUM (JAN. 1985)   mor copie follo thes 5 step again.  SYSTEM NOTES  FORMAT: Ther i on consideratio o whic anyon wh wishe t us doubl side system an singl side syste shoul b full awar Transferrin file betwee th tw system wil requir tha yo us tw differen formats Thi i quit acceptabl bu i doe hav on limitation I diskett i formatte doubl sided the place i singl side syste an formatte singl side an the copie to th diskett wil b unreadabl b th doubl side system Howeve i wil b readabl b th singl side system Ther i progra provide t correc thi proble fo yo shoul i occur i i calle Fix.Co an i explaine a the end of this documentation. Th reaso fo thi readin proble i th diskett format Th doubl side syste wil tr t rea th syste track o th diskette suc a th directory fro th bac sid o th disk  Thi documentatio i t b use a supplemen t th orig ina user documentatio provide wit th doubl side upgrade Th progra covere belo i know a FIX.CO an wa create specificall fo us wit th doubl side upgrade an wil therefor no wor wit an othe o th Osborn products FIX.CO ha bee create t eliminat proble tha ha prove itsel bi mor tha nuisance Thi i th proble o format tin diskett doubl side an the movin th sam diskett ove t singl side syste an formattin i again A explain e i th syste note o you origina documentation diskett o thi natur wil yield ba director outpu whe onc agai loade i doubl side unit. Whe yo ge director listin tha look lik th on i figur 1 the follo thes fe simpl steps. A> ........ A> ....... A> ........ A> ....... A> ........ FIGURE 1 Plac disispla th messag FIXIN COMPLETE SUCCESSFULL٠ wit lin o star unde th trac numbers. No th diskett ha bee fixed an a thi poin yo mus pres RETUR t retur t th mai menu Onc bac a th mai menu yo ca eithe us th arro key t mov dow an exi t CP/M o plac anothe diskett t b fixe int driv an red th previou steps. Well that' i folks I i simpl progra wit simpl application an w a Futur System hop yo enjo it WARRANTY: Thi upgrad i warrante fro th dat o shipmen fo th perio o nin months Thi warrant include parts labor an retur shipping bu doe no cove th cos o shippin th uni t Futur Systems Shoul th upgrad owner t sav tim o avoi shippin hi system choos t tak th syste t th neares Futur System authorize deale fo warrant repai work th upgrad owne mus pa labo charge a se b tha deakett int driv tha contain cop o th progra FIX.COM an plac th diskett t b fixe int driv B No typ afte th A FI Thi wil star th progra an displa th start-u menu se figur 2. SINGLE SIDED SINGLE DENSITY DISK FIXUP PROGRAM FOR THE EXECUTIVE COMPUTER V 1.0 FIX DISK IN DRIVE A FIX DISK IN DRIVE B RETURN TO CP/M USE THE ARROW KEYS TO POSITION THE CURSOR NEXT TO THE DESIRED CHOICE OR INSERT A DISKETTE IN SELECTED DRIVE AND PRESS RETURN TO START FIXING WARNING D NO ATTEMP T FI TRUL DOUBL SIDE DISK I WIL BE DESTROYED! FIGURE 2 Th flashin warnin messag i t aler yo t th dange o fixin an diskette tha yo hav doubl side informatio o an wis t keepler. Parts would still be fully covered by Future Systems and supplied at no charge. Al owne registratio wil b use a mean t contac th buye o thi upgrade i th even o an softwar and/o hardwar upgrad o change tha ma com about Onl thos person wh fil ou th registratio pag an retur i t Futur System wil b notified. SOFTWARE: Ther ha bee Softwar Bu Repor For enclose wit thi documentatio t mak i a eas a possibl fo yo t recor you finding an sen the t us Yo migh wan t mak Xero cop o th for befor yo fil i ou s tha yo wil alway hav blan oe on hand Pleas fil ou th entir repor an explai a clearl a yo ca ho w ma recreat th proble i ou lab Th mor yo tel us th mor w kno an th mor w know th soone w ca resolv th problem. I i ou desir no onl t provid fin qualit product bu als t pr I i warnin tha shoul b heede i tha th wa fi work i t forma th sid o you diskett no use b singl side system Therefore i yo hav doubl side forma file o th diskette the wil b destroye b thi procedure. Th defaul settin fo th FI progra i t FI DISˠ I DRIVŠ B Becaus a th beginning o thi documentatio w pre- arrang thi situatio t mee thi setting al w nee d no i typ RETURN No ne scree wil b displaye tha look lik tha o figur 3. PRESS AND HOLD Q TO QUIT FIXING TRACK FIXED: 0 1 2 3 0123456789012345678901234567890123456789 **************************************** FIXING COMPLETED SUCCESSFULLY PRESS RETURN TO CONTINUE FIGURE 3 Whe th fixing forma i complet an ther ar n errors i wil dovid leve o suppor wel abov th nor fo thi field .HE .FO  SOFTWARE BUG REPORT FORM  Thi for i provide a ke trouble-shootin lin betwee yo an Futur System wit regar t th softwar provide wit th doubl side upgrade I i importan tha problem wit th relate softwar b brough t th attentio o Futur System a soo a possible W appreciat you efforts Name ________________________________________________________ Address _____________________________________________________ City,State,Zip ______________________________________________ Unit S/N ___________________ Upgrade date ___________________ Program and version BUG appears in __________________________ Description of problem ______________________________________ _____________________________________________________________ __ha i ca d fo you yo ma contac FO a (415 755-200 o write: FOG P.O. Box 3474 Daly City, Ca. 94015-0474 Th progra MAGE3 i intende t b use i thos time whe yo hav type multi-pag documen int Wordsta an fo som unknow o unfortunat reaso yo ge th infamou BDO erro an ar quickl shunte ou t th prompt MAGE3 wil allo yo t g int memor an recove mos i no al o you work tha ma have otherwise been lost. Th progra TEL i use t tel yo wher al th primar function o th BIOS BDOS an hardwar instruction ar locate b address Thi i ver usefu whe yo ge progra tha require yo t identif lo o thes addres fo th setup configuration on the new software. Th progra UNERA i use t recove file o program tha yo ma inadvertentl eras fro th dis directory B usin unerax yo ca cal bac an fil o progra tha yo ma hav erased providin yo hav no writt___________________________________________________________ _____________________________________________________________ How may we recreate the problem _____________________________ _____________________________________________________________ _____________________________________________________________ _____________________________________________________________ OWNER REGISTRATION Thi documen i t b file wit Futur System fo th pur- pos o maintainin curren an correc for o informatio fo eac upgrad user Thi help bot u a Futur System an yo b providin a avenu o communicatio s tha w wil b abl t kee trac o wha versio o th softwar an documentatio yo currentl hav o hand Thi i don s tha i th even ne softwar o additiona documentatio i created i ma b sen t you Thos wh d no registe wit Futur System wil no b notifie o e t th dis sinc you erasing the files. Th progra SWEE i ver powerfu utilit progra an ca b a indespensibl frien onc yo hav learne t ge aroun i i and comprehend the vastness of its power and flexibility. Th progra FINDBA i progra use t searc ou an loc ou ba sector o diskette ru thi progra o eac diskett tha forma becaus Findba wil locat dis error that the format will over look. S ther yo hav fiv additiona program tha w hop yo wil fin usefu an informative Giv the al tr an se i you don't find yourself amazed with the out come. NOTE Thes fiv program ar considere Publi Domai Softwar an therefor ma b freel distributed howeve non o th othe program o you ne CP dis ma b give t an othe person without the express written permission of Future Systems. receiv ne version o update o th softwar and o documentatio shoul the becom available Pleas fil ou thi for completel an legibly NAME: ___________________________________________________________ ADDRESS: ________________________________________________________ TELEPHONE: ________________________ PLACE OF PURCHASE: ______________________________________________ DATE OF PURCHASE: _______________________________________________ SYSTEM SERIAL NUMBER: ___________________________________________ SOFTWARE NOTES Yo ma hav notice tha ther ar fe program o you ne CP diskett tha wer no mentione previouly. Thes program ar fro th publi domai librar fro th loca Firs Osborn Grou office FO fo short Thes program ar fre o charg an ma b distribute freel t anyon yo ma wis t shar the with Fo mor informatio o FO an wg\ Copyright gG 1984 Future Systems, 828 Nob Hill Avenue, Pinole CA 94564 V1.0!cs01 |z}0҃!-!o![*7?RS : ͈! // YY S!!$z1$4+pz24 7pz3- 3pz5* 0pz6- 0ps0fz4&4/p! : (! ~ (=w;: ͈! : (! : G~(  : G~(2 > 2 : ( >2 (~#_! : (! : o&[^#V*/7?R.S/2  !: o&[^#V2  !: o&[^#Vp[*7?R1s52*2, *^#V_^#V6j!'6k2*2, *^#V_^#V!' s0e$!"!""!i">2 >!2 ɱ t (1>AF:>BF:!As32 2M A2P:Pͫu! =g!% ͓N>D 6 Q! (! ( ! ͓͓ͧ͞G2Px<2<ɯ<>!͓s2Ͱ_YNͷS> 2Qss RETURN to continue.s2 Error while fixing. Press ESC to continue.s2 FIXING ABORTED. Press RETURN to continue.NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN>2Q x22:Q "5x5!! ~>2M  ! ͓22N2<2:Q2Qͥ:O!@"K2J%„>*É>E2qi:N<(Q: @*K>2 :=G*K! 4:Q~wv@B"@!@[:G[:Nw#q+:g.ZW`Z]>2c!5*flixe# Tͺ_Q_ >ͷ~ͷ#Ͱ žͰ§ͺ(_u ????????????FIXSSDD requires CP/M 3.X or greater. Copyright gG 1984 Future Systems, 828 Nob Hill Avenue, Pinole CA 94564 s0= Single Sided Single Density Disk Fixup Program Osborne EXECUTIVE Computer System V1.0s2 gG 1984 Future Systems, 828 Nob Hill Avenue, Pinole CA 94564s1= k Fix Disk in Drive A k k Fix Disk in Drive B k k RETURN TO CP/M k $ss5 Use the ARROW keys to position the cursor next to the desired choice ors6 Press RETURN to Return to CP/M$s6 Insert a Diskette in selected drive and Press RETURN to start fixing ^WARNING: jDo not attempt to fix a truly double sided disk! It will be DESTROYED!kq$s1= s2= s2s1$s3 s5 Press and Hold Q to Quit Fixings3 Track Fixed: 0 1 2 3 0123456789012345678901234567890123456789 $s2 Diskette in Drive X contains information. Is it OK to overwrite it (y/n)? s2 Diskette in Drive X MAY contain information. Is it OK to overwrite it (y/n)? s2 Fixing completed successfully. Pre͂:A2=/::0! dگ61#d ڸïp#:w#6 !6:6 *#!)6.#)͂ O(BDOS > wM  2*7w#6?#7 .,:;[]=<>|!?]45#Ra{i_p# l s s l ls:¬MA ' get mtester @ 8,7 SAY 'Inspector > ' gY ' Ue RETURN to sk TO SCREEN SET TALK OFF store 'N' to select do while select = 'n' .or. select = 'N' store 'MM/DD/YY' to mdate @ 5,4 SAY 'EXECUTIVE CPU TEST RESULTS' @ 8,6 SAY 'Please enter the date ' GET mdate PICTURE 'XX/XX/XX' READ erase @ 5,8 say 'Is this the correct date? (Y/N)' @ 6,20 SAY MDATE SET CONSOLE OFF wait to select SET CONSOLE ON enddo do while -1 @ 5,8 SAY 'EXECUTIVE CPU TEST RESULTS' @ 6,20 say mdate @ 8,8 SAY 'Select number of function you want' @ 10,6 SAY '1. Enter inf RELEASE NUMBER,ANSWER RETURN ELSE GO VAL(NUMBER) DELETE @ 8,10 SAY 'Record number '+number+' marked for deletion' ACCEPT ' Do you want to mark another record (Y or N) ?' TO REPLY IF !(REPLY)='Y' USE RELEASE REPLY LOOP *ELSE ENDIF ERASE @ 3,15 SAY 'YOU HAVE RECORDS MARKED FOR DELETION' @ 4,10 SAY 'ARE YOU SURE YOU WANT TO DELETE THESE RECORDS' @ 6,35 SAY '( Y or N )' @ 8,20 SAY 'CAUTION! DELETIONS ARE PERMANATE!' ? WAIT TO TRIP ERASE IF !(TRIP)='Y' SET TALK ON PACK SET TALK OFF ÒDHHKMÍN(2xS2uS2vS͐%8D͜%ډR8D0S%7D9"S͕'G>2xSâD@S%7D9>2uSâDS%7‰R9>2uS2vSâDͿ+|Eͅ'+E:xSeF!"S!d"S :uSʃF*S9>͕'͂+G'2rS>'u-:vSF!9:rS'm%ھGͮ"S*S~ %F ~NE#F#}68'‘EÖE"¡EO8EèE,E,ʻE8%F¨EE8%FE,»EE#F#}6N8dD2928,Ey,E8%F,E8%F*S"SkEͧ#:rS'm%ھG>'X'EEH.$*S#"S*S+"S|EE:6DEE*SͿ55>:!d"SEE QtF$hFͦ&Ϳ+ͅ'+ÑR͂+G'2rS ,:G!0%!"S!"S~ NG"nSM(AG"pS ~NF*S6(#*nSx6*pSx660"SAG*nS ~N G*S6&#*nSx66#6,#*pSx660"SAG*S6&#*nSx66,#*pSx660"SAG*S"SõFu- *DM:rS',ھG: TG>'ͧ6 ! X'TGH.$*S#"S*S+"S|TG:6DTG*SͿ55>:!d"STG$:6DG*SͿ55>:>'ͦ&Ϳ+ͅ'+ÑR>$:>2)DÑR>:>2)DÑR(͐%2wS8ʗH͜%ډR8ʗH*S%74H>S:>2)DÑR>2wS9!"Sx68͓*^H>:>2)DÑR8M(uH>N:>2)DÑR*Sx6"S!͌6!QS5!5ʠP>2S>P:SP:SGʾPw#¯PP6 #¾PP*SͿ55>:͈5/6*S:S_~͈5#P7>ɯ> :>Pͮ"S:DQu-: ʎQ2Sͮ"S.,#*SQ>QGO:S2Sx|QxjQͮ*Se6|Q"S&Q*fS~ |Q*fS"S&Q:SҊQH.7Ϳ5!8S5.,#5Ϳ5*SͿ5 ͨ+>:͈5/6 9O8QQxQQ*S͙OڣQ*S"S~ ¦QH.7"fS͊!DS55!"{S*fS N! :T_ l6#Ry2S*{SO:U![S > ͎6*fS[S~TR#IR[S*{SDM!fSh*{S:Sg"{S*fS"fS~ R:>2)DÑR>2)DÑR!RD;MAI[!W&5)"/DX'R*RҤR:6DʀD>2:ÀD:6DʀD>3:ÀD:6DʀD>]:.,5ÀD!9͐%͜%ڝ[*/D9)BEFOREBLANKCHANGE? DELIMITEDTO: FIELDFROMONRECORD SDFRECORD # TOTO dSͿ5gS8*_uڝ[`i"_6-#͇6x–SyNKCHANGE? DELIMITEDTO: FIELDFROMONRECORD SDFRECORD # TOTO dSͿ5gS8*_uڝ[`i"_6-#5,8 SAY 'EXECUTIVE CPU TEST RESULTS' @ 6,20 say mdate @ 8,8 SAY 'Select number of function you want' @ 10,6 SAY '1. Enter infx698, H8HH:wS«H>D:>2)DÑR!W&X'HͧHͿ5>]:.,5Ϳ5!"S*S}6"SzHOHHͲH.*HұHÑR$'#'8I>[: 9ʑR͕'%گK͂+2rS8=I0S%7‰RpJ>:> :ͮ͌6!"SͿ5/6`i+))))ͮy!2J5#6 982Jbk͌68͓*~,‡K8>,ʹ6ʇK ҇K9! 8_CINILK>J88s7ڗK{ʗKz—K{<ʗK=98J,ŸK8s7ڟK98ŸK{*S`6e6ڧK"SYI> !+t.ͦ&$>!:Ͷ7ʑR͂+#-ͦ&m,u-Q^Jͦ&t.$ÑR98͕'K͂+K#-ͮ7ͮ"S ͌6!"S*S+aKͧ~ ¤J#98͓* 8 J8 J8_CJNJLK>>K8jS79!jSs7K{ʟKzŸK{8jS79!jSs7K{*S`6e6K"S*S"SäJ$*S6 !+:rS'-t.ͦ&#-m,ÑR>:ZI>:ZI>:ZI>:ZI>u:ZI>:Ͷ7ʑR%I>:ÁR>:ÁR>:ÁR>:ÁR>u:ÁR>$:ÁR>:Ͷ7ʑR%I(.,"Sͮ"}S>2yS8LL2yS: %L>*::yS‘R: ;L>V:@L>y: 9LL͍ÑR8 ڑRs7Ϳ+e6M98|qL*S"Sͅ'*S͊: ͐%!W&.,"I"I2I͊:D2I2D2I2I2I2I2I͊!"I*Iͅ'H"I2I>2I*I~ D͆GD!I4*I"ID:IG:I2IE*I:Ig."I!I4*D!"IH"I2I*I~ JE@HJE!I4*I"I*E:IO:IG!y=aEOxgUE"I*IIHI!Ih*Iͅ'͊H"I2I*I~ ʬEGڬE!I4*I"IÌE:I!IڻE~=2I:IG>2Ix2I͍2IH"I2I*I~ E͆GE!I4*I"IE:IFI2I:I9FͲH.E$9F!2I9F.,"I"I͊2I:I:G:IF!I6#:I/2I:I2IîDm,.,"I*I"I2IêD!I6#:IwE$ G͌!-G"I:I-G:IG:IO:I2I-GdE*-G*I#"I:IG:IO:I2I-GdE*I"I2IêD:I0ʃGXG:I=vG2I!I4vGH~ vG:I<2I:I=vG2I*I"I2IêDI ~PҙG:IPڿG:IʢG7~/2I7 H?~2I*IDMI!Ih*I:I-!I͎62J7~2IÉH?~2IO/Mͮ"S*S*SQ>%LGҧL%Mx%LxLxLE$L!%LqL*S+"S|%LqLE$M͌!%LqLxMͮ*Se6ҹL"SÊL*fS~ L*fS"SÊL+%L*S#"SqLͲH.!8ʺM,%L8,ʕM:{M0ڕMs79%Lz%L{!%L+))))ͮ~%L %L"}SÕM8͓*%L8M("}S%L98ʺM8ͧ6l6M8*}S͙O%LM*}SOڑR%LͲH.%L>:ÑR(2tS2sS8NS%7M>2sS9MS%7‰R>2tS9M.,:sSN#"S"S͡+=)DM,ڂN*S͡+:tSGNu-H.JNQͧ7,*S#"S͡+H.JNͿ+#+ͦ&m,*Sͅ'ÑR>1:m,ÑR8ʉR2zS2wS8O5S%7N98"SuډR8~N+"S#~O#F>2wSÚNNS%7‰R#98>͕'N>$:ÁR>2zSÚN:wS>P~R:zS>D~R%͂+'L#*S*S'>'!ͅ'ږO !"S!d"S$*S#"S*S+"S|{O:6D{O*SͿ55>t:!d"S+JO:6DʖO*SͿ55>t:ÑR ~NO#y=ON#s6T]> ͎67D2#F#}6N2>:7"S V#~2S#s6"SzCPP!!S5 9PO8*S͙OOP!͌62S:SG7!"SP!S5!5ʠP:PʀP!QS5!5!8P>2S>P>-!I͎6I~ʛH#ÐH!I:I`66*IDMI!Ih*I:I2)DI͊:I2D!$ID;MAIGF#:7ªF#*7*76 ª:7G*7"7:6ă"7 :7m#:6ĩ:8ȯ28 ʤ#3>G27<2RECORD # :00000;MAIGF#:7ªF#*7*76 ª:7G*7"7:6ă"7 :7m#:6ĩ:8ȯ28 ʤ7‰R>2tS9M.,:sSN#"S"S͡+=)DM,ڂN*S͡+:tSGNu-H.JNQͧ7,*S#"S͡+H.JNͿ+#+ͦ&m,*Sͅ'ÑR>1:m,ÑR8ʉR2zS2wS8O5S%7N98"SuډR8~N+"S#~O#F>2wSÚNNS%7‰R#98>͕'N>$:ÁR>2zSÚN:wS>P~R:zS>D~R%͂+'L#*S*S'>'!ͅ'ږO !"S!d"S$*S#"S*S+"S|{O:6D{O*SͿ55>t:!d"S+JO:6DʖO*SͿ55>t:ÑR ~NO#y=ON#s6T]> ͎67D2#F#}6N2>:7"S V#~2S#s6"SzCPP!!S5 9PO8*S͙OOP!͌62S:SG7!"SP!S5!5ʠP:PʀP!QS5!5!8P>2S>P1:)D•[2_:DE͢9ʢD:*DGK:4DD:DD:2_>::2_:>`:Ͷ7:DD:_::_:GKE:D͵.:D>9ڕV8E#~E/wDͿ5>.͈5/6 998ʀDʀD*ʀD:-DʍE8AE_^%7HE!_4ÀD8YE:^%7gE:_€D2-DÀD8xE^%7€D:_†E2-DÀD=2_ÀD:_EE^%7E9!"_DM͋-ڝ[8[ʀD2_ÀD^%7E2_ÀD^%7€D2_ÀD:(DF:DF:2_>::2_:r9:DF:_::_::\G8ʗF2F#~%F!͌6!͌6#͓*~.UF 7!)‘F ~C?G##s6N#798IGF8F98F<\ͥ-¯F9~P6:G(BQ8W6sQPDOPKPKYGSCVV8WHNGG)KGKKKKKLL4MRPPP0QPQQQR]RiRuRPSSSiTTTTUVUV\WXYZZZZ6[>Ï[>"Ï[>Ï[>4Ï[Ϳ58C6yG8~ʝ[#^G9l6DM ͨ+8^%7>R#98Q*>:͈5 98GK阯ʹ6¬G> >O!6'#x66*#x660A)ڀD! ÀD(81^%7G!GD;APPͿ+|Gͅ'+Gu-H.ͦ& $Ϳ+ͅ'+ÀD͙H:5DʇH:2_>::2_:*_DM͸:/2G×D:GDG%7D98ubG`i"G>2G×D:GbGG%7bG9>2G8bG"G8͓*OG98,—D8E:G7G:G?G%͂+'2G>'-:GFͮ"G!"G!G"G*G~ ʩE*G7*G6(#*Gx6*Gx660"G*G "G*G "GfE>-ͮ"G*G~ yF&F*G*G7*G6(#*Gx6*Gx660"G*G "Ge6yF*G "GôE!"G!G"G*G98͓*"G8M(OG"G*G7*G6(#*Gx6*Gx660"G*G"G*G98,yF8 F*G6 !0%> 2:G' 9.>'>-m,-m,!"-*G! F*G!G :G'*DM9.>'*#"|-*FóFm,-*GóF:G'ͦ&-> 9.$>'mG>$:WG>D:WG>h:WG>i:WG>:bG>'>2)DmG>'>2)DmG!vGD;MAI :8Ī Ī*8:8 ʣ!y Ī:8O*7"7*8{!z̘zB"|G|!|"!"|/G}/O!FIELDSFORTOmG!vGD;MAI :8 H:IPH:IH7>2I7 H?~2I*IDMI!Ih*I:I-!I͎62J7~2IÉH?~2IO_:ÀD*_DM*_!_hÀD2_2_:5D¯H: ¯H!"_!"_O+ڝ[}2_8,K8O+ڝ[}2_22!"_8^%7I9>2_8uڝ[`i"__6,#Ns#Frx/I2_y2_>N2_MI2_yCIA2_>C2_MI2_>L2_!x`668^%7I98C6[8xʹ6ʝ[#9!`662>2_8V^%7I98K͓*K͗"_ʽI>NÏ[98Iv^%7K98C6[8xuʹ6ʝ[9!u"_`662t:_*_! :_!:_NJ~(J.(J#J"_!~ #wDJDJ DJʘJwCJ6 DJ*_*_~KJ#J~K#J9¯JwîJ~K#J9J#J60#J!~KXJKw#J#J6 #J!"_>RÏ[: ʀD(!&KD;BRO8:>'ÀD>2_ÀD(!GD;8K$'#-$'#-: D'ͦ&$(2k2 Dͯ5-ÀDV^%7KZ^%7[͍ÀD(!ZD;(͐%2_͜%ڝ[89L^%7[98ʝ[**"_>2_89L +LKͿ+|]L!W&X'TL]L*]LJL:6DnL>:`i5:_ʀD`iͼ3*_ }6͉4ÀD!GD;͐%8?^%7L9͕'&L>':6DʀD>.:ÀD:>'ÀD(>*2_L:6DʀD>':ÀD͜%ڝ[8[!W&:_WͿ+|&MX'M&MͧMrͲH.*&MM`i:6DͿ55!"_!"_^8%7N(>c:>'T'5>n:Ϳ+5>s:ͮ+++++5>/͈55>/͈55-ʞM>l:ãM>m:>b:ͮ Ϳ5y5#6 ͨ+)6 ~͈5&6#~5&6###F~)6xM5)6~ ­MͿ5>\:#6#6)6=)5ÀD9h^%7ʰOD^%7ʹO(2_2_͐%!"_!"_8ʻN͜%ڝ[8ʻNo^%7jN>2_9DN*_DM*_uڝ[>2_`i"_6-#͇6xŸNyšN6àN6áNp4#6#60"_8ʻN,DN8DN:2D-O:_-Oͮ"_*_~ -O*_6f-# ~#N###FNOCO6#6#6O6#p#6Op#q#q4#6#60"_*_"_N*_W&.,|ʀDX'ʤOڀD*_+"_|cO!"_>a:9ʀDͿ5:_|O.,5/6͈ͧ5:_šO:2DʚO=)DMͧ #ͨ+äO*_! *ʀD;OÀD!ZD;9!ZD;8^%7ʍP^%7 P8>͕'P8[͂+P:DP!D`6'w2D!D4ͫ.>'ÀD>%P>&:GK:DʅP9͋-ڝ[P2_:D>98NP7^%7dP98^%77P!_47P8uP^%77P!_57PÀD2 D98s7{2 D98s7{2 DÀDXO+ڝ[}2`ÀDX#8ʀDZÀD8^%7[988s^%7Xo^%7[>(8-Y8 Y+ Y88ʣYO+ڝ[|ʀDyfYE$QY.,"_!HY"_z0Y*_ͅ'øY͙"ͅ'øY.,l6`Yͅ'øYm,øYE$ʙY.,"_͌!ڊY"_zrY*_ͅ'øYͳ&"ͅ'ͺ&øY.,ͅ'øYE$ʵY͌!ڊYͅ'øY+:6DʀD>]:.,5ÀD!YD;SRT!"_DMuڝ["_`i"_8^%7|Z9*_#N#F8***_6*#x6"_"_8͓*98LZ,[*_*_6"_8 Z:6DcZ*_*_6+#x6"_*_60*_:6DĿ5! ÀD>DÏ[!ZD;MSC!ZD;TTL!ZD;UPD$'#8ʀD͕''[͂+"['#-m,8ʀDb^%7[98ZÀD>͕''[͂+,['L#8,[8 Z>pÏ[]#w" 1[>'m,>Ï[>$Ï[>MÏ[>{Ï[>a:9GK8ʋ[^%7[98ʝ[)f[1*** s66# [> w͈5> ͈5ÀDÀD:[:)D[>I:Ϳ589l6M [/6ñ[>?͈52)Dr9:]GK>W:Ͷ7GKʀD>X:!5ʀD>Y:!598[r9>Z:Ͷ7GK[19E6S6y6Ϳ6_~6{„6{STOREY?GSELSEPENDDOPENDIFD*DDOONOTEDLOOPPRELEASECV.ÀD>%:ÀD>2_ÀD(!GD;>2-D2_ÀD2_ÀD2_:DʀD.ÀD:G:5DP>:͛::ÀD͊ÀD(E$+Q88C6QQ8xʹ68A ͅ'|€D:6DʀD> :ÀD>oÏ[(͐%͜%BQ&ÀDO+ڝ[|iQͿ+e6DGT]ͅ'͊|nQÀD>/Ï[>zÏ[!"_DM͋-ڝ[€D>2-D2_ÀD(!GD;Ϳ58C6Q8~ʝ[#¬Q9l6DM ͨ+88^%7>R988Q*>:͈5 98GK!"_DMuFR`i"_6*#͇6++x6A)CR:6D1R6+#x660Ϳ5*_! ÀD>DÏ[ÀD>0:Ϳ5Q(!GD;!fRD;JOI!"_"_@M(8~ʉR#~R!9͐%͜%ڝ[8[!W&5)"/DX'R*RҤR:6DʀD>2:ÀD:6DʀD>3:ÀD:6DʀD>]:.,5ÀD!9͐%͜%ڝ[*/D9)ðRD! S;MOD!ZD;O+ڝ["_8,[8O+ڝ[}*_w#"_8,*SÀD!"_!"_8ʿS?dSͿ5gS8*_DM*_uڝ[`i"_6-#͇6x–Sy‘S6×S6ØSp4#6#60"_8ʲS,[8gS*_! ÀDͿ5ÀD$#-$#>(:: D'ͦ&$8&!ZD;: ʀD:,DAT'-͊:,D>9>T8T*T@8͙H>*_DM*_!_hT>'>DҀD'ʀD.,|ʀDͲH.!ÀD(͐%> 2_L:6DʀD>7RETURNVSELECT8W@HACCEPTNGAPPENDGBROWSEKCALL)KCANCELGKCHANGEKCLEARKCOPYKCOUNTKCREATELDELETELDISPLAY4MCONTINUEREDITPEJECTPERASEPGOTO0QGO0QIFsQFINDPINDEXQINPUTQINSERTQRJOIN]RLISTiRLOCATEuRMODIFYSPACKSPOKESQUITSREADSRECALLiTREMARKTRENAMETREPLACETREPORTURESETVRESTOREUSAVEVSET\WSKIPXSORTYSUMZTOTALZUPDATEZUSEZWAIT6[CASEKENDCASEPOTHERWISEKALLANDBLANKDOELSEFILEFILESFROMSCREENGETGETSIFINDEXMEMORYOFFONPICTUREPRIMARYPRINTSAYSECONDARYSTRUCTURETOUSINGWHILEWITHENDDOENDIFCASEENDCASEOTHERWISEBELLDCARRYDCOLONDCONFIRMDDEBUGDECHO(DEJECT3DESCAPE*DEXACT+DINTENSITY.DLINKAGE1DRAW2DSTEP4DSCREEN TALK6DALTERNATEWCALLXCONSOLEWDATEyXDEFAULTeXFORMATXHEADINGWINDEXXMARGINXPRINTW.EDBASE DBASEXCONSOLEWDATEyXDEFAo(w&CJCͭCJCͭCDCCJC͠CC>(˧˟˟)´C*C":ÀD85ÀD8ʝ[͕'6,8ʝ[^%7[98͕'G,ÀD(.,|U͐%!"_!"_8ʐU͜%ڝ[8ʐU8͓*T>Ï[8M(U"_^8y`698%7U98*_DM*_uڝ[`i"_N##~JUC+~JUL*_ ~\U>OÏ[*_6,#x660"_>2_8ʐU,U8T-^%7T9T:_U!W&X'UUͧU*_! ͳ&ͲH.!ͺ&*UҠU:6DʀD`iͿ55>::ÀD>=Ï[>>Ï[D!U;RPG8ʝ[J^%7[9>͕'͂+!V>TÏ[ͣM*#DM,͟&*DM,$>'ÀD8)^%7UV(ÀD8ʀD͓*fV>Ï[8)sV1*98ʀD,[8UV'm,-ÀD:DʀD'$>'.:DV=VV2D=!D`6~2D2-DÀD2D2D2-DÀD>):ÀD8.W^%7.W9>͕'3W%͂+.W'2_ͣM*#DM9.͟&*DM9.ͦ&$>'ÀD>DÏ[>$Ï[8~^%7KW-ÀD^%7[>-ÀD8^ͥ-tW9XwÀDX_ͥ-[9X:ÀD8^%7W9>͕': DʯW'ͦ&$%͂+'2 D>'ÀDXW: Dͯ5ÀDX:ÀD8^%7W9<!k͌68kʹ62ÀDXO+ڝ["DÀD:,D%X'$2,D>'X^%7]XO^%7VX>͕'͂+JX>UÏ['2,D>'ÀD25DÀD>25DÀDX8ʝ[~_@2DÀDXs7{M*M"M*M"M*M"M*M> ͧ6#"M!qM5Ͷ7ʤJ9J>a:9*E&odL LL/}o|gL z!LD;MAI>2)DL2 7 2 7 2 7 >2 7 >2 7 2 7 >2 7 >26 26 >26%26zt:7 {=tt NEW FILEBUFFER FULL, TYPE Y TO SAVE, OR N TO ABORTNAME TYP LEN DECCOMMANDSTRUCTURE$$$BAK+F'͑Gö=2 7*#7~#"#7!{ (t FIELD 01 COFIELD 02 CPFIELD 03 C,PFIELD 04 CEPFIELD 05 C^PFIELD 06 CwPFIELD 07 CPFIELD 08 CPFIELD 09 CPFIELD 10 CPFIELD 11 CPFIELD 12 C QFIELD 13 C&QFIELD 14 C?QFIELD 15 CXQFIELD 16 CqQFIELD 17 CQFIELD 18 CQFIELD 19 CQFIELD 20 CQFIELD 21 CQFIELD 22 CRFIELD 23 C RFIELD 24 C9RFIELD 25 CRRFIELD 26 CkRFIELD 27 CRFIELD 28 CRFIELD 29 CRFIELD 30 CRFIELD 31 CRFIELD 32 CS +ELD 28[r9>Z:Ͷ7GK[19E6S6y6Ϳ6_~6{„6{STOREY?GSELSEPENDDOPENDIFD*DDOONOTEDLOOPPRELEASECV8M%7ʛDM%7L9öG>q:Ͷ7LL(!O > ͎6!P w Dͮ7!"M!M"M!"M*M~ *E*M s6 ~E#D~L###~L*M"M*M"MD!M"M͊!"M M!Mh*M"M!"M*MDM*M"M!Mh*M"M~ ʀE*M$"M|QE:MGx2MGELCF:M_:M!OʵE=°E"M!Sl6|EDMS!S~+ xE*M> ͎6+60ExʇF2Mx"F*M"MMe6F!M"M2M0E:M2M0E*M"MyOe68FÇF:M2M0E:M_:M!OZF=UF"M!Sl6|vFDM*M!7!S> ͎6+60E!͌6!"M!"M!M"M*M~ gG s698ZG*M8͓*~8> ʹ6ʎG ҎG9! 8_CFNFL–G>:G88s7ڦG{ʦGz¦G{98:Gs7ڞG98žG{*M`6e6ڮG"M*M"M*M"MâF*M6 ͮ!7!+t.ͦ&#-m,L>:õL>:õL>:õL>:õL>u:õL8G>[: 9L>͕'J͂+G!cM5>2MG'2MMK%͂+'2M:D2M2D:TPH> 2M!N6O#x6! N6 #6 #"M"M"M"M#"M2M*M!`l6DM*M>͎6K͊!"M!"M*M"M*MJښH##"M&o62!Mh:M ҔHxjH͍!M"M*MJ"M:MGM!MhGG8IʤJI7KRK*M*Ml6DM*M+T]8#"M*M6 #6 5LRH*M##*Ml6DM*M*M##7 "M*M~RH6 #6 #6#"MRHx6JxʰI7KRK*M*Me6ҚHJ"M!M5:M jI5~H2M*M"M*M*Me6ҧIJ"M:M<2MG:M ҡIx2Mx yI*M"MRHxI7KRK*MJ##"M~I6 #6 #6#"M5L!M4:M I4~ښH2M*M"MRHRK:M > J>2M*MJ##~)J"M:M=2MJ*M"M2MRHRK:MLJ*M"MK9J*M*Ml6DM:M'9.ͦ&$:MJ'$MK&MK6,MKG,MK6,MKG,ýJ:MJ'$:M'$&>':M2D͊L++~ J#T' >.ͧ6#"MM7O> !͎66"M*M+e6K*M~.K 1K 'K> # K7y!"M:MG!Mh*M> ͢8G!P +~ bKy2M2MK*M*Ml6"MҪKy*M`6*MDM*M7:M_*M"MK*M+`6*MDM*M+8#"M*M:MO75L*M7:M"L*M^e6K?LKT] "M:M',xL L*M+6 #6 #6#"M*M_e6*M*Ml6e6ҦL*M:M'9.*MT] *Ml6DM7*M"ÒDÅIKLANN͐%2rQ2pQ2qQ2mQ2nQ2oQͮ7!"Q8E͜%ڥO8EP%7D"tQ9͕'sI>2rQúD|P%7[E>2pQ9!6 "Q8͓*E>zI8M(!E>NzI*Q7!6 "Q*Q6(#x6x660"Q98,ºD8EP%7ƒE>2qQ98sP%7ºD>2oQ9úDP%7—E>2mQ9úDKP%7¥O>2mQ2nQ98P%7ºD98ʥO2#Q8úD:rQxI*tQ9:mQEE>͕'%͂+'2"Q:mQ)F!6#w#w#ͮ+++++7:oQ°H 9.:qQ3I>'!0%!W&!"Q!d"Q.,|IX'ʤHIͧʤH*Q#"Q*Q+"Q|ŒF:6DʌF*QͿ55>#:!d"Q:pQʍG:nQ³F*DM!> ͎6! ÑG!"Q!"Q*Q~0sG#}6##"Q ~N%G#F#}6*QyF6,#:#Q,Fw#7x`6:#Q,Gw#"QoG+~ G+G#"QoG#F#}6*Qy6G6,#:#Q,MG7x`6"QoG~# [GhGMGMG"QoG60#"Q F*Q6 #6 #l6DM:"Q̈́%äHͧ:mQ¬G*DM:"Q'9.>'äH:nQG*6 #6 :"Q*DM̈́%äH!"Qͮ"Q*Q~ ʍH ~N5H#F#}6*QyG6,#:#Q, Hw#7x`6:#Q,"Hw#"QH+~ .H+#H#"QH#F#}6*QyFH6,#:#Q,]H7x`6"QH~# kHxH]H]H"QH60#"Q*DSA:::::::::ALIKECOMMAND FILESDATABASE FILES # RCDS LAST UPDATE NoneONSDFSTRUCTURETO ????????DBFWITH$$$ SUB'&S),#0FIELD:NAMEC FIELD:TYPEC FIELD:LENN FIELD:DECN ????????DBFWITHe6ҧIJ"M:M<2MG:M ҡIx2Mx yI*M"MRHxI7KRK*MJ##"M~I6 #6 #6#"M5L!M4:M I4~ښH2M*M"MRHRK:M > J>2M*MJ##~)J"M:M=2MJ*M"M2MRHRK:MLJ*M"MK9J*M*Ml6DM:M'9.ͦ&$:MJ'$MK&MK6,MKG,MK6,MKG,ýJ:MJ'$:M'$&>':M2D͊L++~ J#T' >.ͧ6#"MM7O> !͎66"M*M+e6K*M~.K 1K 'K> # K7y!"M:MG!Mh*M> ͢8G!P +~ bKy2M2MK*M*Ml6"MҪKy*M`6*MDM*M7:M_*M"MK*M+`6*MDM*M+8#"M*M:MO75L*M7:M"L*M^e6K?LKT] "M:M',xL L*M+6 #6 #6#"M*M_e6*M*Ml6e6ҦL*M:M'9.*MT] *Ml6DM7*M"Q"Q G*Q6 #6 #l6DM:"Q̈́%*IOFI!+QA7 9.ͮ"wQ!"Q*wQ~ I>  ~H> #H#~#~ͼO###~ͼO*wQ"wQ9.*Q#"QH:6D3I*QͿ55>#::"Q'ͦ&:oQQI:qQjI:mQjI-*Q!6#x69.$>'ðO>$zI>D>'>2)DðO(͐%!"|Q!"Q>A2P2Q2Q2sQ!Q"Q8͜%ڥO8ʓJP%7BJ:Q<2QK*|QDM*QuڥO>2sQ`i"|Q"Q#͇6xJ!P4**! s6͌6*Q6f#6*#x660"Q*Q6+#x660"Q8ʓJ,¬I8ìI9>2Q!Q"Q8ʓJ)_J1**Q~ʰO#}6"Qbk ͌68͓*8798,¬I8VJ:sQJ!W&X'ʹJJͧʹJ*|Q! *JҠJ:6DJ!QͿ5 >A2P:Q°O!Q~0ʰO#}61*J>FzI>GzI>HzI8P%7¥O98C6¥Ox68ʥO%K88FK,¥O88K"Q!"Q*Q++"Qe6dK҅K}6C6*Q~{K#pK#"QPK*Q6!͓K& |ʪK02QQQ~K #Ky2Q#~KQ |LO 6:D2\2lQ8LP%7KL98ʥO_@2\8:L8LP%7¥O98ʥO!P>  ͎6P8*ʐLL L.ʡdBASE IICOPYRIGHT (C) 1980 BY SOFTWARE CONSULTATION, DESIGN, AND PRODUCTION (SCDP) 6542 GREELEY ST, TUJUNGA, CA 910427 *** dBASE II Ver 2. FILE DOES NOT EXIST UNASSIGNED FILE NUMBER FILE IS CURRENTLY OPEN END OF FILE FOUND UNEXPECTEDLY" RECORD OUT OF RANGE TOO MANY FILES ARE OPEN DISK IS FULL DIRECTORY IS FULL FILE ALREADY EXISTS NO FIND TOO MANY MEMORY VARIABLES OUT OF MEMORY FOR MEMORY VARIABLESLaڈL_8sL>?͎68.L8P*LL LaڼL_8ìL>?8>2lQLͿ5:lQL!P5!P] 7MͿ5ðO!P] 7MͿ5ðO!Q"Q6 \N0M!P5*Q7 "Q6 N0M!Q"QͿ5*Q~ ]7"Q2h!]ͨ+/6ͨ+#62|\\Mog5#65>/͈55>/͈55Ϳ5O>:Ϳ5O\NM!P5Ϳ5ͨ+>.͈5ͨ+N#6)6 NͿ5NMͿ5"N\1N7(͈5 ~͈5>)͈5,6~NʙN#~2(Q2vQ2)QêN#~2)Q###~2(Q>2vQ!$Q :vQ*zQ`6"zQ~ NNͿ5>\:#6:yQ5!UP5*zQ5!gP5ðO(!"~Q"QͿ+|}O!d"QͿ+*~Qe6qOͅ'͊*~Q#"~QͧkO*Q͡+H.*Q0#*Q#"Q:6D O*Q+"Q| OͿ5*Q+5>6:!d"Q O͸ O*Q͡+ͦ&m,:6DʉO>5:*Q+"Q+:6DʰO5>6:ðO>'>2)DðO!OD;MAI&odO OO/}o|gO z\QMs6"SzCPP!!S5 9PO8*S͙OOP!͌62S:SG7!"SP!S5!DELIMITED VARIABLES USED BYTES USEDEXTENDEDFIEL ILLEGAL VARIABLE NAME TOO MANY CHARACTERS NO DATABASE FILE IN USE, ENTER FILENAME: NOT A dBASE II DATABASE RECORDS ADDED DO CANCELLED BAD NAME FIELD BAD TYPE FIELD BAD DECIMAL WIDTH FIELD BAD WIDTH FIELD DESTROY EXISTING FILE? (Y/N) *** UNKNOWN COMMAND COUNT = ENTER RECORD STRUCTURE AS FOLLOWS:: SUBTOTALS IN REPORT? (Y/N) PAGE HEADING? (Y/N) > ENTER PAGE HEADING:  SORT COMPLETE "TO" PHRASE NOT FOUND** SUBTOTAL ** NO EXPRESSION TO SUM: NON-NUMERIC EXPRESSION> MORE THAN 5 FIELDS TO SUM *** SYNTAX ERROR *** ARE TOTALS REQUIRED? (Y/N) NONEXISTENT FILE2 SUMMARY REPORT ONLY? (Y/N) INDEX FILE CANNOT BE OPENED VARIABLE CANNOT BE FOUND SOURCE AND DESTINATION DATA TYPES ARE DIFFERENT FIELD NAME,TYPE,WIDTH,DECIMAL PLACES INPUT DATA NOW? & MACRO IS NOT A CHARACTER STRING RECORDS COPIED BAD FILE NAME COMMAND FILE CANNOT BE FOUND7 NESTING LIMIT VIOLATION EXCEEDED DELETION(S)t *** END RUN dBASE II *** TO MANY RETURNS ENCOUNTERED ENTER RECORD #,FIELD (# OR NAME),NEW VALUE+ ILLEGAL DATA TYPE SORTER INTERNAL ERROR, NOTIFY SCDP CORRECT AND RETRY? FILE HAS BEEN DELETED ILLEGAL GOTO VALUE2 "ON" PHRASE NOT FOUND FORMAT FILE HAS NOT BEEN SET SYNTAX ERROR IN FORMAT SPECIFICATION "FIELD" PHRASE NOT FOUND3 CANNOT OPEN FILE FORMAT FILE CANNOT BE OPENEDQ COORD: CORRECT AND RETRY (Y/N)? CHANGE FROM : CHANGE TO : MORE CORRECTIONS (Y/N)? O ENTER FILENAME: ** TOTAL ** RECORD: NO FINDPAGE NO.  SYNTAX ERROR, RE-ENTER CANNOT INSERT - THERE ARE NO RECORDS IN DATABASE FILE END OF FILE ENCOUNTERED END OF LOCATE SCOPE MACRO NOT FOUND PACK COMPLETE, RECORDS COPIED RECALL(S)~ COL WIDTH,CONTENTS DOUBLE SPACE REPORT? (Y/N) REPLACEMENT(S) ENTER REPORT FORM NAME: ENTER HEADING: DATA ITEM NOT FOUND "WITH" PHRASE NOT FOUND ENTER SUBTOTALS FIELD:  SINGLE STEP Y:=STEP, N:=KEYBOARD CMD, ESC:=CANCEL WAITING 7 FLD NAME TYPE WIDTH DECE STRUCTURE FOR FILE: ENTER OPTIONS, M=LEFT MARGIN, L=LINES/PAGE, W=PAGE WIDTH ENTER SUBTOTAL HEADING: 0 ENTER SUBTOTAL FOOTING: EJECT PAGE AFTER SUBTOTALS? (Y/N) NO "FOR" PHRASE JOIN ATTEMPTED TO GENERATE MORE THAN 65,534 RECORDS NO "FROM" PHRASEG KEYS ARE NOT THE SAME LENGTH PRIMARY USE DATABASEY SECONDARY USE DATABASE NUMBER OF RECORDS: DATABASE IN USE IS NOT INDEXED6 M:P‘H><:L ʝH®H*Q> 2P>H*Q#8HH8>H8>@2Pʹ6ʅHO M*P6'#x66-#q#:Pw#:Pw#:Pw#60"P*Qqy`6#"QxBJ:QBJ:P'I>J:L M8_YBJ*P6*#x6:P_I6f-#͂6:Pw#:Pw#6*M"P!"M! p!q6f#6*#x6:PI*P6*M"P!"M! p!q6f#6*#x660"P*P*Q6f-#͂6:P_:Pw#6#60"Q:P(J*P*P6f-#͂6:PG:Pw#6#6#6*#x660"P2P:P<2P:P_:P<2PH:P_:P<2P:P<2P:P<2PH:PqJ:P'ͦ&:P'$>':P:!"P!W&:PK!iQR~0ʨJ#ÜJ#N#F!M4**"P6*#x6606&#*Px66xJ6#60!R6+#*Px660ͧJX'KfL*fLfLJ*P!iQ Ͱ::3D)KͿ5͛:)KͿ5͛:2P:PxKͿ5,M>_:*P#"P5#6!k5,M: DxK5>/͈5: D5>/͈5: D5Ϳ5,M:PʋK!TT Ϳ5,M*P!U ,M:PK,M>*͈5/6*P!Y *P!R ͧL:P#K͸:O:P#KX'LfL:P,M*P! :PL,M*fLfLͧLX'L:PK*P!R KL:PK͸:O:P#KͿ5,M>*͈5/6*P!Y *P!R KL:QʥL:Q0ʥL,M>\: MORE THAN 7 INDEX FILES SELECTED MODIFY ERASES ALL DATA RECORDS ... PROCEED? (Y/N) & ENTER TODAYS DATE AS MM/DD/YY OR RETURN FOR NONE : DATE OF LAST UPDATE: RECORDS INDEXED RECORD LENGTH EXCEEDS MAXIMUM SIZE (OF 1000) *** ZERO DIVIDE *** BEYOND STRING *** OVERLAY CANNOT BE OPENED ENTER RECORD # : RECORD NOT IN INDEX INDEX DOES NOT MATCH DATABASEʉO>5:*Q+"Q+:6DʰO5>6:ðO>'>2)DðO!OD;MAI&odO OO/}o|gO z\QMs6"SzCPP!!S5 9PO8*S͙OOP!͌62S:SG7!"SP!S5!DELIMITED VARIABLES USED BYTES USEDEXTENDEDFIEL,M*P!Q !M)™L1*!M5~AҐL6AͿ5:P:=M:PIM>0:H:P:R0L,M>E:,M*P!R *P!iQ :PL>2PͿ5:PM 98:P'$=M:P>9:P:Py9Ϳ5:POy/6 3M!FMD;MAI>2)D=M:>'T'5>n:Ϳ+5>s:ͮ+++++5>/͈55>/͈55-ʞM>l:ãM>m:>b:ͮ Ϳ5yA::::::::AFORMPLAINPRINTTOM5&6###FYxM5)6"Y~ ­MͿ5>\(Y6#6)6=).Y9h^%7ʰ4Y%7ʹO(2:Y%!"_!@Y8ʻN͜%ڝ[FYo^%7jN>LY9DN*_DM*RYڝ[>2_`iXY-#͇6xŸNy^YàN6áNp4dY0"_8ʻNjY8DN:2D-pY-Oͮ"_*vY-O*_6&#x|Y ~#N###FYOCO6#6YO6#p#6OY4#6#60"_*Y"_N*_Y|ʀDX'ʤOY_+"_|cO!Y>a:9Y:_|O.,Y͈ͧ5:_YʚO=)DMͧY+äO*_!Y*ʀD;OÀD!Y;9!ZY8^%7ʍPY7 P8>͕Y8[͂+PYP!D`6Y!D4ͫ.>'YP>&:GK:YP9͋-ڝ[Y_:D>98Z7^%7dP9Z^%77P!_4 Z8uP^%Z_57PÀD(2P2P2P2P2P!Y ͌6>2P2P>92P>P2P:2P2P͐%8E͜%IM8EM%7D9>͕'>2PúDM%7 E98IMM%7IM9>2PúDM%7IM9>2PúD:P;E>;: 98=M>͕'>2P͂+PE%͂+2P'2P2P:PfE>d:L M8E E_M™E8=IM8s7{2P2P9EL¶E8=IM8s7{2P9EWE8=IM8s7{2P9E8,E8lE:PE>A:L M8_YgF>2P:PF>B:L!T#8<'F>/F4F8>4F8>@2Pʹ6F2TO M!T6'#x66-#q#:Pw#:PG:Pw#p#602P:PwF>9:L8_Y‰F>2P M2Q:PœF>J:L8_Y¾F>2Q!M**"P2P M:QG:PF>@:L8_YF>2P M:PG:PF>?:L MQiQuڱL:PG>L:L8_Y,G>2P M2P:P?G>g:L8YOG>2P M:P^G>e:L jGvGX> >âGX8<ʋG>ʓGØG8>ØG8>@2Pʹ6RGO2X M!Y6'#x66-#q#:Pw#q#:Pw#60:PG>8:!"P!"P60!Q"Q60!U"Q60!U"P60!R"P60>2P:PHͿ5:P5#6L8aJs7{2P9~,±L8*PDM*PuڱL8±L`i"P:PzH6-#N#FxgHw#:Pw#:Pw#60"PÁH"P#͇Z%:ÀD>2Z(!GD;$Z2_ÀD2_*Z_:DʀD0Z:G:5DP6Z%77P!_4 Z8uP^%Z_57PÀD FLD NAME TYPE WIDTH DECE STRUCTURE FOR FILE: ENTER OPTIONS, M=LEFT MARGIN, L=LINES/PAGE, W=PAGE WIDTH ENTER SUBTOTAL HEADING: 0 ENTER SUBTOTAL FOOTING: EJECT PAGE AFTER SUBTOTALS? (Y/N) NO "FOR" PHRASE JOIN ATTEMPTED TO GENERATE MORE THAN 65,534 RECORDS NO "FROM" PHRASEG KEYS ARE NOT THE SAME LENGTH PRIMARY USE DATABASEY SECONDARY USE DATABASE NUMBER OF RECORDS: DATABASE IN USE IS NOT INDEXED(͐%2uH2vH2tH87E͜%G87E:vHDpH%7D9͕'ڸG>2vHÐD:tHDfH%7D>2tH9"wH8͓*G98,D8D:uHGmH%7G>2uH98G"~H͓*G2{H8M(G"|H9ÐD:vHG͂+VE'2sH ,uE%͂+'2sHͮ 79.>'!0%!"H60:tHE*wH98͓*"wH8M(G! ~NE*H6"H8&G*H6f#6,#x660"H*wH98,IF8ÖE!"H*H~ IF ~N ͎6m,ͧ~*GX' G*uGFuG*HH !"HcG:uH3G*yHH ?G!H cG:sH'*DM9.>'*H#"H*HH *uGuGX'cGG*H":sH'*DM9.:sH'ͦ&- 9.$>'*HͿ55>#:G>$:G>N:G>:G>D:G>N:G>'>2)DG>'>2)DG!GD;MAIg}oɯO_yW{!z,"|,"|ͪ!">OFGÿ|"6 X"|"6 ?X"|"6 W_ |"q"FIELDSONTO6G!GD;M(> 2I2I> 2I!"I2I8E~I%7D98͓*HM(H"I9ÚDI%7DD9ÚDI%7DD9> 2I2I>2IÚDI%7H9͕'H>2IÚD*I|H:IH*+l6=)|;EGE xPERE>2I*I ~LH2I2I2ICƒE:I2I2I:I2I#~2I2I2I#}6~2I2I2Iͧl6"I:IG:IO!sI**"I"Im,&'2I%͂+'2It.!"I>2I2I%F2I:I'ͦ&&*I+t.#-͂+'2I>2I:I_*Il6"I|G:IG2I:IKF*I&:Iol6KF{2I2I2I=)DM!"I:I'_,:I'_,:IʏF,F yF*I#"IÕF,H*I*Ix6"I`i!I4:IrFH*"I!I"I*I"I:IF:I_*Il6|HʱG"I"IF:I2IHñG:I':IG+ڱGͧG*I#"I#G+H:I2I!I HG:I'H.*I͕HÞG:I'*I*l6=)DM9.*I͕Hͧ7*!:I=O7y!`6x6:IOH*"I*I"I:IF*I+"I|F:I'=)DM!"I:I*I}6"I*Il69.=G:IE%F:I'$:I'$>'*I1*:6DI>C:I:IOH H:I2I:IGyH==H!I"I!I"I!`6}6s6"I"I!I |H*Ix6*Ix6ÇH:IʇHÐHʐH=AHx:I"I:IʶH!I ʶH>2I!I >2I>,:WD>+:H>:H>N:H>D:H>$:H>2)DI>2)DI! ID;MAI~("x ʶ27xGF#:7ªF#*7*76 ª:7G*7"7:6ă"7 :7m#:6ĩ:8A::::::::AONASCENDINGDESCENDINGTO3>28G27*7J##3&& 07COPYRIGHT 771978 SCDP ^#V*C.W.RATLIFF27&&I 0&I*0$:AON\(Y6#6)6=).Y9h^%7ʰ4Y%7ʹO(2:Y%!"_!@Y8ʻN͜%ڝ[FYo^%7jN>LY9DN*_DM*RYڝ[>2_`iXY-#͇6xŸNy^YàN6áNp4dY0"_8ʻNjY8DN:2D-pY-Oͮ"_*vY-O*_6&#x|Y ~#N###FYOCO6#6YO6#p#6OY4#6#60"_*Y"_N*_Y|ʀDX'ʤOY_+"_|cO!Y>a:9Y:_|O.,Y͈ͧ5:_YʚO=)DMͧY+äO*_!Y*ʀD;OÀD!Y;9!ZY8^%7ʍPY7 P8>͕Y8[͂+PYP!D`6Y!D4ͫ.>'YP>&:GK:YP9͋-ڝ[Y_:D>98Z7^%7dP9Z^%77P!_4 Z8uP^%Z_57PÀD (2H2H2H2 H8^E:H»DG%7»D98͕'2HÐD:HDG%7D98"H͓*DG2 H9>2HÐD:H#EG%7#E98wG"H8͓*DG9>2H8,D8E: HwGG%7wG98wG" H8͓*DG9>2 H8,D8?E:HLG:HTG͂+'2H ,!0%*HM(\G F#s6"H*H: HO&\G N#s6" HxdG2 H!"H"H:HGF*H"H*H98"HM(\G"H*H͓*"H*H&\G*H6f&#*Hx66#6,#*Hx6"H*H98~,>F8"HE*H60#"H: HʰF*H"H* H98" HM(\G"H* H͓*"H* H&\G*H6(#x6*Hx6"H*H98~,«F8" HTF*H60>'!W&:H'*DM,*H* H: HO6!GF G:HF*H : HG*H >'ͲH.:H'*DM,-GF>'*-GF:H'$>'G>$:lG>:wG>j:lG>P:lG>N:wG>k:lG>'>2)DG>2)DG!GD;MAI:8 ʣ!y Ī:8O*7"7*8{!z̘zB"|G|!|"!"|/G}/O!>! !7>{ADDFROMONREPLACED;MAI:8 ʣ!y Ī:8O*7"7*8{!z̘zB"|G|!|"!"|/G}/O!>! !7>{ADDFROMONREPLA * Ny!* qͻ* 6 : 2 * " n u>2 : O* 6 # D͕n u͕: J͕: J: : * * e6: J: N³* * e6ʳ: ³* 6͕: 2 u>@J>J͕: J͕: u: 0J͕: u: J!<g͍: G: f: 2 }6" s6" `i" ͭ> ͍͔!" !" 2 2 2 * ," :T=$." ͭ* #" * |: <2 `6~͐ 2 * +" * |: =2 `6~͐ 2 : ! Ϳ8O: 9L#LA3LB!8X7y56y56?_Oy! Ϳ87y! Ϳ8yP6G*  N##s6yʮʉ~€FÂT9͖ͤ4* |ʚnâ* N!2!ï#* |N͆ #ͤ¹* " 7* w#" 9#A ! Xw&~P6&#O~56y!~&_w&~&> wO͆ #ͤ* 6#" ͍* " ͭ^" ͭu~O͆ #ͤ^~#.q~ #{: o&)))}6: N* : OD2: *  s6͉4* |n: G: O* 2* " ͭ* N͆ #: * ~_Y T 662 ́~A : Y  ~. > O͆ #ͤ' \ * |\  ͆ ͤ: I ^* |:Dq :9ͤu* * x6" *  ~Y* - :To%* x6* x6* x6" ́:D :9ͤ! 4ɯ2 ̈́" " 2 }6" }6" s6" *  ~O2 #~ <2 #}6yN M N ͖4* |5 nx2 y2 > : G2 O!" " 2X #" 2 " ͭ* |g ~j ͐ 2 : 2 * " * " >2 9: N >9L>XTFYNtfyn.+- #9AXL!DELETED INSERT ""!j"!j"*~#"1Ҙ W6RftDMVbktH 1j ^9    *+": g~*~#~#"" }6" F#N#s6xC L x D2*͉4 *7N *x #y7 N x ~*w1 ~*_T/ Y/ 61 6N OG"gxq ~@X J2 2 ! A uß99ʑ ¶9!W9!Xr#ʟ#I#ʳuW6uI7WIruImuubrp8$uuuuu>J: |* * " ͭ* ~#" O9ͤ: =2 22 99* " " ͭu͕: =c: f: J2 uß2 * * e6I-:T=o%" ͭur* * e6ͤͻͭuß:D:Dʳ9ó* " ͭ:Du9>2 uy :D9u>2 : $* wO9ß* : `6* " N: 2 ͻ* e6XyX* ~qO<: 2 * " wO9n ß: 2 ʁ! Ä! !Au* +* e6uʮͻu* -" :T=o%" ͭ>2 : O* * y`6+" : 2 * " * * e6!ͻ: /6 A2 O2~;] #  :3 yj y`6~ E >2W +~ W + F yj yj >2 y/<2ɯ22*6!j"Ϳ5N#~2#^#V#~#F#"x2:/<.Qx2 :ͽ :_:<2*~ /6=T}6}6"! N#}6> `6~#s6҄O7 }6" ~CʴL##s6g7 #NgFxH)WDp#q#s6x6+N͌6x#s6q#7 ##s6g~ }6" ~CKLf#F#}6N~@2 ͎6#7 ##}6g~6T 6F 4M4E*p#2H N 4M4E|JgxJy1=4~O#x`6*q#7 N >w:Ø *w# XN g~w] Ͷ͓1ڃ >v:Ø Ͷ@1 Ͷ61 ͶZ0 DIIDIIDDIDIDDI*N#7y`6)I,#s7"~)"{$>2x~)#:O>/#>>/ > x> ~(#~)#>! *>'x66#x6Ny6C6L#" >">> >#7~(>#͚>~)>#7͍xtD2*>'x6͉4*>`6"7~C6¯x#*ʹ6ʮO>'x6y`6#"#7~TYFN7>*w6'#x6#"#o ~N#F###N>&x6*7oB ~CA#N6*7ol ~Lk6*7͓*ʊ"͗Š722~+ʤ-¦#~0ڰ:.2:¤ä >2ä:O:Hyx<ɯ~  #.F..T.CDEFILPSTV#@$!*INT#VALLEN@TESTPEEK4STRK$!ZCHRmDATETYPETRIM*EOFFILEM()!d!`*/~**/*/"/͉,*/#"/2/2/l6DM*/> `67 6x2q/y2n/2o/_!F#7y*w*wN DIIDIIDDIDIDDI*wN *wN g~ʮï/w] Ͱ4 .,ͼ3 gN#D2 gn&ͼ3 *NͧDI*N.,DIN#F#x'DI͇6"xʘ†yʒi&Û!ͼ3;2Þ!Û!ͼ3 4n&ͼ3 gͣ4g͖4gg*͉4NͶ61*]͉4#"+~:+D.N#~N#6*]#"+x7F#N#6*]#"+6 6 *]i&"*x6"*+V+^"`i"8͚ژ960#q#p#60*DM7xxʺ7>áѷ.OR. x x7>ѷ.AND|x2p/!"j/#"l/J$2/!ͯ#>$/R=F1:/Fw" Pկ2z/.,"={ͅ$a#2/!";{"{*/"/*j/"x/}#:/»*t/!={:n/O7*t/:n/`66#6*/#6#6>2/2~/#ͬ#>2~/*t/>2}/!?{:n/O͠$t$++}6z#"x/}#û#*/"{/#"r/:~/O:/0<͐$DM:/<$+:/$+8*r/!={:n/O7*r/:n/`6*{x6!/4:p/mͬ#:/J$*{/"/~2/<g:z/}%|2/*x/";{ͯ#:/g:z/ʖ$|2z/2/$={:n/7:/2/O:/2/͐$DM:/<$++*t/++7*l/"{ͯ#:/O:~/2~/*l/"x/##*l/#"l/>2/*/*/e6q*/#!;{:o/O7*t/:n/`6*{x6>2/*l/ͯ#*l/"j/#"l/J$*/*{/l6DM*{/+T]8#"/*j/*/x66#z#$>$͙"á>$ ͅ$!?{:d/7B |ʵe6ʵ͌!ҡ!>$a##> z#:~/O:/O͐$DM$++:~/<$++7!/5#ͬ#!~/5!/5ͬ#:/$={:n/O7#> z#$!={:n/O7ͬ#:~/O:/ ɷO2}/"r/a#*/"/*j/"x/}#:/ >2~/*/*r/͠$ʞ ڄ t$r ++}6z #"x/}#e ++}6zʸ #"x/}#e #s62/*/"/!>$*/ 9u!`i"v/#}6z>C+++6.%7%7-%7'3x+>37.NOT.ڈxW͊2xʈ:ɱ͊m~$>i#2xˆʈ:7~=•>#Ÿ><¿#~=ʺ>µ>> > >#~=>> #ɯ͠.xF~+#͠-x-1>-#͠-x-1>7xG|;GyBMxGɱM~+s#͠ڜxœʜyO> M-˜#͠ڜxœʜyO>M7x¯~*#xyxGOxG>ï/#xx=|GGy Mxï7A~+<-@#IG>#IGevEͲ ~!Ϳ8s7#ͥ- xG>> > A>~(#͚~,#͚~)#>~( %66$#͂6 x>%~(#x~,#s7چ~)ʂ,†{È>2x~)ʾ,#x~)>#:O>.~(#͚~,#x~ , !>N6*2c/{2d/#X/x6>$/P!6!?!*!:/?!w".,}N!O ͅ$a##}!#z#$?{:n/O>2}/͠$!͸P>a##!z#t$!#!z#:~/O:/ڠ!:~/<2~/$++}6#"x/>2~/#z#*/#}6z!!#$s6!>2/7ɷa##j"z#:~/=2~/^"#j"z#:~/"=2~/*/#4"$}6#"x/}#:/2~/#:/<$++}6z:"a"#$s6s">2/7ɷ2/ͅ;Å-:/*/nͅ;Å->2~/*/"/a#*j/"x/}##:/"*/#s6|ª"*/###s6!*/"/a#*j/"x/}#:/<2~/#:/#<$++s6|":/$7D!>$/+#ͅ;Å-#2/>$a###z#$x6ͬ#O!/~Z##Q#q:/*/h/ 7*/###"t/*x/"/://ͅ; Å-:/*/ͅ;Å-*/~2/*x/"/://ͅ; Å-*/:/w:/ͅ;Å-*x/*/x6:~/w#"/*/*/e6$7+~2~/+V+^"x/"/ѷ:~/*t/=O:o/W yO:$x5$G)$ E$33:/:/ͅ;Å-*/!h/ 7*/:/ͅ;Å-:o/`6!~/4:/*v/! O:o/_! š$##:q/$ͣ4:}/ھ$D2$͖461͉47:+D$6A:n/O6:/O:/ %:/ %~w# -~w+ -:/ͅ;Å--:/ */ͅ;Å-*/DM*/~j-#s6"/*/0%*/++s6"/$'>ͅ-*/DM*/> ͎6:WD!wvuڢ-PY!v %7-#¯-##~<§-=~0-:-A-í--s6:/ͅ; -ɯ2/:/://<2/:/*/#"/"/- */6#*/x6: Dw#: Dw#: Dw:/ͅ;Å-*/6#"//ͅ; Å-!z"/*/:/w#:/w#:/w#:/w#"/*/+~."/G*/ze6/+~</"/xͅ; Å-ALL%NEXT%RECORD%FOR%TOP &BOTTOM&WHILE%KEY C?{.DBF.CMD.FRM.MEM.TXT.NDX.FMTz0-0~|{Njl~|{Njl~|upr!j~w0!j~/1A4,1G.~,1ʿ00/< ڜ0~,1jf0~ڪ0WXî0P_i,l4z®0i~怲w.Fj0.'w- 0,1.>m4.4,1.7>'w- t.2/2/:/ͅ;2//ͅ;(% ą-7! "/~ [% ~#*/x6`6"/#;%*/}o|gx6ͅ;{%ą-7ͅ; Å-!P/͌68ʼ%/ͥ-»%9!%ҝ%ü%K&>2P/K&>2S/%K&>2T/8s7zWD9"/>2W/%>2R/!wvu`i"/>2V/>2Q/:T/'&͉,+:V/2&m,:Q/E$D&*/ͅ'"ͅ':U/£&=2U/"/:P/d&Ù&:S/q&*/ß&:T/ʄ&͉,+!ß&:R/™&:W/œ&*/|0)1.ƙw- 1.7~'w- 1.~w4.6,1!j~wZ0!jjA4.J4 .l4l1GZ0e1.4 V1.~GO.~WIwx1~w4!j~2j.~722j.6@.6> 2jZ0.~1 1õ161.~=wy.R4:j=°12y 1.R4:j=22j.R41> .R4:j=22j1:jG.N@._y怳wjA447:j2j!j J4 ]2 2O2.6?+n2-t26 20ʯ22:2.6G.~4ڜ2ƶoxwâ2ƶo~w.~n2.4n2.~2.4.~n2.4n2.~n2.5n2.2.~26n2.~2.wy2x=G!j~.60 36-@T3/<.w> #33.~yʹ3>..F>0C3 63ù3.R40 C3ù3<.q/  x3d3.~3Ä3.~-ʂ3> .R40„3.~ʹ3O>..R40  3ù3>*±3!j J4'33d3 33>I2j4}o|g3 z!jR4!j~,,,,,<4!j~O,~44 <4.R4. 4.~怱w.w~#A4ɯw,K4_~Wwz+U4ɯ_~Wwz,t4!jA4jA4jA4!j~@5 4 /:WD*/"/*/> `6xv)yl)6A##}6z§)+pí)6#6})6#6 #}6zʭ)ҧ))ھ)p#N͌6x6ú)##ú))ڿ)p#x6q)6>:WD͓*)x))## `&ɯ:WD*/)ʐ*!`~ʇ* t*>:WD*/7~56*_w #~.* #P¶**S**M** +*~56*_w*P6*:*# *yͳ5*/+"/}E$++:1DL+-+?+-<͌!G+ͅ':1DL+-͌!?+ͅ'-<"-7"7ɯ<!wvu~+##~~+++6#6#60PY!v 47/!ͅ;Ø+2/ą-7"/͉,x~³+> ͈5# y¬+*/"/>2/*/*/DM:/ͅ;+*/#"/2/<,ą->2/7:m,7:/ͅ;%,,,ą-7*/:/!/7/ͅ; Y,ͅ-!"/͉,E$~,͙"ͅ'2/ɯ2/!ͅ'!/͌6*/|,+*/e6,"/"/*/"/! "/!/ -,/!/,!/,*/|º,/:/ͅ; Å->Å-w# , 5!jR4 4!jJ49 z5Y5Y5f5f5u5ʄ5S5 5͈5 w# 5>#͈5Ϳ55y 5>͈5+ 5w͈56y29ͳ5:9::9ʬ59ͅ;v29͢9:*DWD> ͈5> ͈5Ϳ5~͈5#55&o6&o5'66d6 66/}o|g6 z͈5/6/6/6/6> ͈5A[?a{?G'"[]0:?`6s6o$z{}o|g~#fos#r#^#V#q#p#N#F#>Wxʜ6r# Ñ6> #á6žʲ6# ¨6 G~66# ¹6y6# 6x66x296y29H66"7x"7 7:9O~ 7# 7"7xO~a07_q7m7S7O~AI7_g7#87~0m7;o7Am7o7xo7DM! ƒ7y7 0گ7:ү70e6ڬ7zT])))o҃7$ƒ77 `i9_7͈5> ͈5N Y7ɷ7Ϳ5>?͈5ö7H77y8~# 7x8~+ 8x8t8͢8t8W`i͢8c8O8G͢8c8OT]x`6Ͳ8c8/*HC!l6|*JC#"JC!"HC!͊@#}6s6"OCALB:9CG!C~ȸTA6JA*6C######6uB*OC:ECAA͌B*MC:EC$B"GBBB*MC!}6++x65BBBGBA:LC@2LC> uB> uB*FC!HC7LB*B###*BDM*B*B:B2B*BeB:DCBʗBx~# ÌB~ £B# x~­B>uBx~ B BB# íB#>28Cx~ # BB>28CDBASEMSGCOMDBASE OVRCʒ6Z~Ɠ2Vz”s6#!~/5#>ü>2D2-D>'>26D!pDD;MAI19*e6nEnE!D5INSUFFICIENT MEMORY IN SYSTEM, dBASE REQUIRES AT LEAST 41984 BYTES (0A400 HEX) OF MEMORY IN IN ADDITION TO TH"9!"99*95O*9=`6~;796 #"9Ϳ5 99y9g|ͅ;e9;E98j9o9œ927!5!ͧ66 #6 ͅ; Ü9:WD:9ʷ9ʵ9ɷ9 2EC:^92EC*"9"9"9<2D9999::?C2?C9 *:> 1::B:1:G::CM:xI:a>_d:O9 Z:!B4d: d:!B6O:?CyY }:!B4 !B6!B4:` =Ì::?Cʰ:  2B2B:B:B2:C::C9:?C2?C2Bͼ>:B2CB!:B;!5ͼ>B:_/;:C /;CC7! C6!C7ͼ>C<};";C!D"=CCy;*=CZ;*;C>x:WD29C"B"B`i"B!9"B~#W6;;Y<<<<=:=<>ͼ>͵>;> uB͵>\B> uB>!QC"MC~;B@;< y <*MC;ͼ>͵><>uB:j2j;@<2B*MC!\$7YBy<2B!"HC"JC2LC*MC6#"FCYB>!QC"MC~suBͼ>͵><>uB͵>\B͇@>2DC*B"@CD>YB͇@2DC*B"@CD>YB͇@>2DC*B"@CD>YB͇@>2DC*B#"@CD>YB͇@z=X@E SIZE OF THE OPERATING SYSTEM dBASE WILL OPERATE ON MOST 48K CP/M (tm) SYSTEMS THAT HAVE A STANDARD BIOS (2k:E!9`66>͕'͂+E:D!D`6'w2D!D4ͫ.;¯F!E5;F!E5MESSAGE FILE (DBASEMSG.COM) CANNOT BE OPENED2 D>r: 98ʯFs7{EE E2 D98s7zF{F: DqFqF qF qFzF{ FÀF{FÀF{F2 D98gGs7zE{2 DʯF: D¯F: DFͿ5Ϳ5!FFTTT@@Ȅ@@@@@@@d\~F:#F!G5:D[DWDͿ5!F5EThirty days hath September April, June and November All the rest have thirty one Except February ... ERROR!xG!GERRORG~@@ʑG:#~G##~#fo5ERROR3C 22 FEB 82GD;MAI:8 ʣ!y Ī:8O*7"7*8{!z̘zB"|G|!|"!"|/G}/O!>! !7>{ADDFROMONREPLACED;MAI:8 ʣ!y Ī:8O*7"7*8{!z̘zB"|G|!|"!"|/G}/O!>! !7>{ADDFROMONREPLA?YB!"JC"HCYB͇@2DC!"@C*B!5C"BD>*HC+"HC"BYB͇@2DCX@@A?*FC+6YB͇@*HC}|*JC}|\B͇@*BxN#F#^#Vʈ="JC`i"HCYBixg"HCz{gxo"JCYBͼ> _!QC"MC2B*MC~=^#V=*MC6:B<=2B*MC"MC=:9C͊@\B*B>!\7*BMD͵><(>> uB!\7<\B>uB28C:8C*@C| A*@Ce6a>DM*JCͤ?*HC*OC*B:DCҔ>B"B*OCl6"HCè>B"B*OCl6"HCXA*@Cl6"@CH>\!\6# > ͎6͌6:D2\!]w#:>+~@2\. ??w#>!e?w# ?:LC@'?:_ͼ>*MC:LC@2LC)):ECQ?*MC! x6}G)L*MC yʖ??qͼ>*MC<•?:DCڟ?*MC uB*MC p>uB!C"6C~ʿ??:9C? ë?#s6e6¿?###}6"OC6*BC "BC~?!C"BC#####~?5?#~@6LB*BC~)A:9C͊@*BC###s6"OC*JCdA*JC*BC"6C:9Cw#x6##6#6^#V!\ #N@:9CG!C~ȸ€@#####6#~@6x)A_@:9Cշ@ҹ@=!QCʥ@= @~ʹ@#"FCHC7>uB!QC~@@!QC~@@> uB6#"FCHC7!"HC"J ERASE GOTO BOTTOM STORE 0 TO RECALL STORE " " TO SELECT @ 2,10 SAY 'EXECUTIVE CPU TEST RESULTS' @ 3,20 SAY MDATE STORE " " to SELECT DO WHILE -1 IF SELECT <> 'X' .AND. SELECT <> 'R' STORE ' ' to MSERNUM STORE ' ' TO MREJCODE STORE ' ' TO MCOMMENTS STORE ' ' TO MSHIPSTAT ENDIF IF SELECT = 'R' STORE SERNUM to MSERNUM STORE REJCODE TO MREJCODE STORE COMMENTS TO MCOMMENTS STORE SHIPSTAT TO MSHIPSTAT STORE 1 TO RECALL ENDIF @ 5,7 SAY 'Serial Number > ' GET Msernum @ 6,7 SAY 'Reject Code > ' get mrejcode @ 7,7 SAY 'Comments > ' get mcomments @ 14,4 SAY 'Did this board pass (Y/N) ' get mshipstat read IF MSHIPSTAT <> "N" .and. mshipstat <> "n" STORE "S" TO MSHIP @ 14,4 SAY ' CPU went to assembly ' ELSE STORE "R" TO MSHIP @ 14,4 SAY ' CPU Rejected or "Q return endif ENDIF @ 13,4 @ 18,5 SAY ' Use arrow keys to move cursor ' @ 19,5 SAY ' Use RETURN to skip a line ' @ 22,5 ' ' ENDDO hile -1 @ 5,8 SAY 'OSBORNE COMPUTER ASSEMBLY TEST SWING 1' @ 6,20 say mdate @ 8,8 SAY 'Select number of function you want' @DBASE OVRCʒ6Z~Ɠ2Vz”s6#!~/5#>ü>2D2-D>'>26D!pDD;MAI19*e6nEnE!D5INSUFFICIENT MEMORY IN SYSTEM, dBASE REQUIRES AT LEAST 41984 BYTES (0A400 HEX) OF MEMORY IN IN ADDITION TO TH ' ENDIF @ 18,5 SAY 'Type RETURN to record above information' @ 19,5 SAY 'Type X to change above information ' @ 20,5 SAY 'Type Q to quit without recording' @ 21,5 SAY 'Type R to recall last entry ' set console off WAIT TO SELECT set console on @ 20,5 @ 21,5 IF SELECT = 'Q' ERASE RETURN ENDIF IF SELECT = ' ' IF RECALL = 0 APPEND BLANK ENDIF STORE 0 TO RECALL REPLACE DATE WITH MDATE REPLACE SERNUM WITH MSERNUM REPLACE REJCODE WITH MREJCODE REPLACE COMMENTS WITH MCOMMENTS REPLACE SHIPSTAT WITH MSHIP @ 18,5 SAY 'Type RETURN to continue adding information' @ 19,5 SAY 'Type Q to Quit ' @ 21,5 SAY ' ' @ 21,30 say # @ 21,20 SAY "RECORDED" set console off wait to select set console on if shEXECST V1.1copyright gG 1984Future Systems 828 Nob Hill Ave.Pinole, CA 94564$1I>=w usOIq1.~w2p@!CCCCCCCCCCCCCCCCCCCCC:p!U~3N!V/P =6 $DO :͘= elect = "Q" .or. select = "q" return endif ENDIF @ 13,4 @ 18,5 SAY ' Use arrow keys to move cursor ' @ 19,5 SAY ' Use RETURN to skip a line ' @ 22,5 ' ' ENDDO hile -1 @ 5,8 SAY 'OSBORNE COMPUTER ASSEMBLY TEST SWING 1' @ 6,20 say mdate @ 8,8 SAY 'Select number of function you want' @ ENDIF @ 13,4 @ 18,5 SAY ' Use arrow keys to move curs  M=2,L=55,W=66 Y FUTURE SYSTEMS CASH FLOW REPORT Y N 7,CKS CHECKS 11,DATE DATE 20,TRANS TRANSACTION 8,DEBIT DEBIT 8,DEPOSIT DEPOSIT 9,BALANCE BALANCE    ڏ"=ʡͲ=ʡYPͲ1**!O~4#~#F#x~#s#r#w>͐ « f f  . ᯕo>g. ENDIF @ 13,4 @ 18,5 SAY ' Use arrow keys to move curs 1)!< ! $ OdBASE II INSTALLATION PROGRAM VER 2.7$( ] $Z k $h àARE FULL SCREEN OPERATIONS WANTED (Y/N)? $v _Yʻ2>2 $ SELECT TERMINAL TYPE$  $ (A -HAZELTINE 1500 B -SOROC, TELEVIDEO $ ]C -HEATH 89 D -PERKIN ELMER 1100 $3 ÇE -ADM-3A F -ADM-31 $h ôG -VDP-80 H -INTECOLOR $ I -GNAT-SYSTEM 10 J -TRS-80 II (P&T) $ K -APPLE L -VECTOR GRAPHICS $ HM -SUPERBRAIN N -VISUAL 100 $% {O -OSBORNE P -HP 2621, HP-125 $S ëQ -CROMEMCO 3102 R -TRS-80 (FMG) $ S -ADDS VIEWPOINT T -XEROX 820 $ U -NEC $  $ - Y - MODIFY PREVIOUS INSTALLATION $ c Z - USER SUPPLIED TERMINAL COMMANDS $8 q $n _YʵZʼ Aڲ !!_~#foéx~# ÞR͞>2! $ MODIFY EXISTING SPECS ROUTINE $  $  D TYPE "D" FOR DECIMAL OR "H" FOR HEXADECIMAL $  _Db H >2!t $e  ï COMMANDS ARE ENTERED AS A SEQUENCE OF NUMBERS $   TYPE A CARRIAGE RETURN TO END A SEQUENCE $   ͙͐͜=NOW ENTER THE CODES FOR CHARACTER DELETION $ :![!A  ÑTHIS IS THE SEQUENCE "BACKSPACE,SPACE,BACKSPACE" $^ ON MOST TERMINALS IF THIS IS TRUE FOR YOUR $ TERMINAL, THEN TYPE "Y" $  $ _Y!s# . $ _ENTER THE CHARACTER DELETE SEQUENCE $9 y(3 BYTE MAX) $j >!] Eâ $ --- DIRECT CURSOR POSITIONING --- $  THE CURSOR CONTROL SEQUENCE IS USUALLY A 3 $ BTO 4 BYTE SEQUENCE. THE FIRST ONE OR TWO $ yBYTES ARE USUALLY FIXED AND THE REMAINING $M ðBYTES CONTAIN THE LINE AND COLUMN NUMBERS $ þ $ FIRST, ENTER THE POSITION IN THE SEQUENCE $ 0FOR THIS METHOD, YOU WILL NEED THE HEX OR $ fDECIMAL CODES THAT CAN BE SENT FROM YOUR $; àCOMPUTER TO THE VIDEO TERMINAL TO CONTROL IT $q î $ TYPE "Y" IF YOU WISH TO CONTINUE $ _Y²  $  $ LWILL YOU BE ENTERING COMMANDS AS HEX OR DECIMAL?$ Z $W ÕTYPE "D" FOR DECIMAL OR "H" FOR HEXADECIMAL $e _DʳHT>2! $ COMMANDS ARE ENTERED AS A SEQUENCE OF NUMBERS $ 8TYPE A CARRIAGE RETURN TO END A SEQUENCE $  F $C r1 - DELETE A CHAR SEQUENCE $Q ê2 - DIRECT CURSOR POSITIONING SEQUENCE $} 3 - CLEAR AND HOME SCREEN COMMAND $  4 - BRIGHT/STD VIDEO COMMANDS $ <5 - DIM/REVERSE VIDEO COMMANDS $ i6 - INITIALIZATION SEQUENCE $G Ì7 - EXIT SEQUENCE $t þ8 - RESET TO STANDARD VIDEO MODE $ 9 - ALTER SCREEN SIZE $  $  STHAT HOLDS THE COLUMN NUMBER $ :!_BCURRENT VALUE = $1 :<̓ W $T 1=2l $i âNEXT, ENTER THE POSITION IN THE SEQUENCE $w THAT HOLDS THE LINE NUMBER $ :! CURRENT VALUE = $ :<̓  $ 1=2 $ ) $" `MANY TERMINALS ADD A CONSTANT TO THE LINE $4 ÙAND COLUMN NUMBERS. ENTER THE CONSTANT BIAS $k øFOR YOUR TERMINAL $ :!CURRENT VALUE = $ :̓  $ 12 $ ANOW ENTER THE SKELETON FOR THE DIRECT CURSOR $ xCOMMAND. ENTER A ZERO IN THE PLACES WHERE $L àCOLUMN AND LINE NUMBERS GO $ û(11 BYTE MAX) $ :!!F#A  > !]:!2  $ .---- DIM/BRIGHT VIDEO/REVERSE VIDEO ---- $ @ $9 sENTER THE COMMAND THAT WILL SWITCH TO $K ßHIGH INTENSITY OR NORMAL VIDEO $~ ù(5 BYTE MAX) $ :!!F#A  >!]:!2  $ &ENELECT ITEM TO CHANGE $ R ANY CHAR OTHER THAN 1 - 9 TERMINATES SESSION $"  ` $]  1:1__!  @͐@͜@@@@͙@@@ $   USER SUPPLIED SPECS ROUTINE $  0 FOR THIS METHOD, YOU WILL NEED THE HEX OR $  f DECIMAL CODES THAT CAN BE SENT FROM YOUR $;  à COMPUTER TO THE VIDEO TERMINAL TO CONTROL IT $q  î $   THE CODES (OR SEQUENCES) THAT YOU WILL NEED ARE:$   $   $  / DELETE A CHAR SEQUENCE $  d DIRECT CURSOR POSITIONING SEQUENCE $:  Ë CLEAR SCREEN COMMAND $o  ñ HOME CURSOR COMMAND $   (CLEAR AND HOME CAN BE COMBINED) $   OPTIONAL: BRIGHT/DIM COMMANDS OR $  O VIDEO/REVERSE COMMANDS $'  ] $Z  Ë TYPE "Y" IF YOU WISH TO CONTINUE $h  _Y² å $  ÿ $   WILL YOU BE ENTERING COMMANDS AS HEX OR DECIMAL?$   TER THE COMMAND THAT WILL SWITCH TO $ RLOW INTENSITY OR REVERSE VIDEO $1 l(5 BYTE MAX) $] :!ʇ!F#A  >!]:!2 æ $ ---- CLEAR AND HOME COMMAND(S) ---- $  $ ENTER THE COMMAND(S) THAT WILL CLEAR THE $ USCREEN AND PLACE THE CURSOR IN THE UPPER $* ~LEFT CORNER OF THE TERMINAL $` Ù(11 BYTE MAX) $ :!ʴ!F#A  > !]:!2 œ $ ENTER THE COMMANDS TO BE ISSUED WHEN $ 8ENTERING THE FULL-SCREEN EDITING MODE $ N(IF ANY) $C i(11 BYTE MAX) $Y :!ʄ!F#A  > !]:!2 ã $ ENTER THE COMMANDS TO BE ISSUED WHEN $ LEAVING THE FULL-SCREEN EDITING MODE $  $ LSUGGESTION: USE DIRECT CURSOR POSITIONING $  ÈTO PUT CURSOR ON THE BOTTOM LINE OF THE SCREEN $W ã(11 BYTE MAX) $ :!ʾ!F#A  > !]:!2 ™ $ ENTER THE COMMAND THAT WIVE $  DBASE COM _Y[ CURRENT SEQUENCE : $F  x~̓ t $q  #e :!ʪ æ ͘ Ɛ'@'_͏ o&ͤ I!5"""+#}##!$s$$%i%% &_&&'U'''K( ~~~~~~~PP   =()(*(=7 PPHLKJ  XYKHX7Y PP   YpqqEqY7 PP  ==7 PP   =()((=7 PP   ==7 PP   .P0P   ="!""=7 PP   Y Y7 ILL SWITCH TO $ @STANDARD INTENSITY OR NORMAL VIDEO $ ~TO RESET THE SCREEN AFTER FULL SCREEN OPERATIONS $K Ø(5 BYTE MAX) $ :!ʳ!F#A  >!]:!2  $ ENTER THE SCREEN WIDTH $ :!1CURRENT VALUE = $ :̓ ) $& 12= $: xNEXT, ENTER THE NUMBER OF LINES ON THE SCREEN $H :!ʷÛCURRENT VALUE = $ :̓ ï $ 12 $ >&2>222 $  $ ENTER A CHARACTER TO BE USED FOR $ NINDICATING MACROS OR A RETURN FOR $* ~DEFAULT CHARACTER OF AMPERSAND (&) :$Y  ʕ2Û $ é $ TYPE A RETURN IF THE ERROR CORRECTION $  DIALOGUE IS TO BE USED OR ANY OTHER $ 8KEY IF NO DIALOGUE IS WANTED :$  P2V $S d $a r $o ÔENTER OPERATING SYSTEM$} â $  A - CP/M 1.4 OR CP/M 2.2 $  B - CDOS SYSTEM $   C - CROPP   =())=7 (P PP   Y Y7 PP     PP   =()((=7 P P &a000y000C&dB&d@&d@ HJH &a23y1CPP   YEY7 PP  ((?PP   Y0A Y7 PPHLKJ  ==7 PP   =C0 C4 C0 *C0 =7 PP MIX SYSTEM $ 0 D - MP/M II SYSTEM $ > $; L $I _AʊBrCzDʅP>2Ê>22Ê>2Ö $ TYPE "Y" TO SAVE, ANY OTHER KEY TO ABORT INSTALL $ _Y5 SAVING INSTALLATION PARAMETERS $ :!2!21!!!R ABORTING INSTALLATION $8 "!2!2!m $j ÒENTER CONTROL CODE BYTE $x :!:4! :5!Y:!ʜÊ!Gm_0{ O)))) c5!`}|<}ú0 ?))) O ã!5!͟}|<} $ ERROR IN INPUT, RE-ENTER $ 1!7 $  / IS THIS CORRECT (Y/N) $  _Y[ CURRENT SEQUENCE : $F  x~̓ t $q  #e :!ʪ æ ͘ Ɛ'@'_͏ o&ͤ ILLEGAL PARAMETER$  ! DBASE.COM FILE IS NOT ON THE DEFAULT DR WVDATEClNAMEClAMOUNTNlFORClACCOUNTCmINTERESTNmPAIDCmSUPPLIERCmPAYDATECm 01/02/86YOSHI SYSTEM SERVICES 360.00FRANK B. HALL-PROPOSAL 100 0.00YN01/01/86 01/02/86PINOLE POINT, INC. 450.00PROPERTY CLEANUP 100 0.00YN01/02/86 12/10/85 21.255 boxes of trash bags 700 12/10/85 2.231 box of trash bags 700 12/16/85 7.00fee for trash dump 700 12/17/85 5.002 trash dump fees 700  12/23/85 2.501 trash dump fee 700 12/16/85Longs Drugs 2.69office supplies 300 12/00/85Future Systems 25.0025 diskettes 300 12/11/85Three Brothers Hdwr 14.5850ft rope/bailing hook 700 09/30/85Super Auto 39.38Tools for auto repair 600 09/30/85Super Auto 26.61auto repair parts 600 09/28/85S.P. Automotive 51.10auto repair/maintenence 600 09/24/85Maxwell Office Products 4.30rubber business stamp 300 09/21/85Travel Equip Sales 11.12misc 600 09/23/85Longs Drugs 24.83office supplies 300 09/24/85Maxwell Office Supplies 15.38office supplies 300 10/26/85Super Auto 43.43auto repair parts STORE 100*mcount/ttest TO test STORE 100*mcount/treject TO rej @ L,31 SAY str(mcount,3) @ L,45 SAY str(rej,4,1) @ L,49 SAY '%' @ L,60 SAY str(test,4,1) @ L,64 SAY '%' store L + 1 to L store mcount + mtot to mtot return 8/03/821 154452T R 08/03/821 152072R R 08/03/821 147662P R 08/03/821 168492P R 08/03/821 178352P R 08/03/821 156002A R 08/03/821 157682B R 08/03/821 156332G R 08/03/821 600 11/14/85Unique Printing 2.66C-thru ruler 300 11/18/85Handyman no 371 21.29file cabinet 300 11/12/85Hilltop Ford 94.41fuel tank 600 11/22/85Best 119 19.11file folders 300 11/22/85Best 119 19.11file folders 300  EXPENSES FOR A SPECIFIED ACCOUNT #' @ 15,10 SAY '0. RE '+STR(SEVEN,7,2) @ 14,40 SAY '----------' @ 16,22 SAY 'Total expenses = $'+str(mtotal,9,2) DELETE FILE B:TEMP IF PRINT='P' EJECT SET FORMAT TO SCREEN ENDIF IF PRINT<>'P' @ 16,10 SAY 'When through viewing, hit any key to return'; +' to Menu' ? wait ERASE ENDIF RETURN  NT 5D R 08/03/821 150605L R 08/03/821 134476A R 08/03/821 121187A R 08/03/821 184167A R 08/03/821 184358D R 08/03/821 155375D R 08/03/821 157927F R 08/03/821 1589611I R 08/03/821 168415D R 08/03/821 1479711? R 08/03/821 134136A R 08/03/821 184497A R 08/03/821 142516A R 08/03/821 178486A R 08/03/821 173596A R 08/03/821 158027A 09/28/85S.P. Automotive 51.10auto repair/maintenence 600 09/24/85Maxwell Office Products 4.30rubber business stamp 300 09/21/85Travel Equip Sales 11.12misc 600 09/23/85Longs Drugs 24.83office supplies 300 09/24/85Maxwell Office Supplies 15.38office supplies 300 10/26/85Super Auto 43.43auto repair parts  store L + 1 to L count for rejcode = "E12" to mcount @ L,3 SAY 'No Logo' do percent store L + 1 to L count for rejcode = "J17" to mcount @ L,3 SAY 'No Pot Adj.' do percent store L + 1 to L count for rejcode = "J01" to mcount @ L,3 SAY 'Main Ram Errors' do percent store L + 1 to L count for rejcode = "J02" to mcount @ L,3 SAY 'Video Ram Errors' do percent store L + 1 to L count for rejcode = "J03" to mcount @ L,3 SAY 'Attribute Ram Errors' do percent store L + 1 to L count for rejcode = "J04" to mcount @ L,3 SAY 'Roms Ram Errors' do percent store L + 1 to L count for rejcode = "J05" to mcount @ L,3 SAY 'Rom Errors' do percent store L + 1 to L count for rejcode = "J06" to mcount @ L,3 SAY 'Bank Unique.Errors' do percent store L + 1 to L count for rejcode = "J07" to mcount @ L,3 SAY 'SIO Loop Errors' do percent store L + 1 to L count for rejcode = "J08" to mcount @ L,3 SAY 'IEEE Errors' do percent store L + 1 to L count for rejcode = "J10" to mcoun ERASE store 'MM/DD/YY' to bdate store 'MM/DD/YY' to edate store 0 to tgood @ 5,3 SAY 'Enter date to begin report ' get bdate PICTURE '##/##/##' @ 7,3 SAY 'Enter date to end report ' get edate PICTURE '##/##/##' read use B:cpu copy to b:work1 for date >= bdate .and. date <= edate use b:work1 count to tgood for shipstat = "S" .or. shipstat = "s" erase SET FORMAT TO PRINT set print off set talk on set echo on @ 1,24 say ' EXECUTIVE CPU TEST RESULTS ' if bdate = edate @ 2,30 SAY bdate else @ 2,20 say 'FROM:' @ 2,27 say bdate @ 2,36 say 'to' @ 2,39 say edate endif count to treject for shipstat = "R" store treject + tgood to ttest @ 4,45 SAY 'Percent of Percent of' @ 5,29 SAY 'Quantity Rejects Units Tested' @ 7,0 SAY 'CPU ASSEMBLIES GOOD' @ 7,24 SAY tgood store 100*tgood/ttest to pgood @ 7,60 SAY str(pgood,4,1) @ 7,64 SAY '%' @ 8,0 SAY 'CPU ASSEMBLIES Rt @ L,3 SAY 'Crashes' do percent store L + 1 to L count for rejcode = "J09" .or. rejcode = "J14" to mcount @ L,3 SAY 'Froze During Cycles' do percent store L + 1 to L store LBTOT - MTOT to mcount @ L,3 SAY 'Misc. Rejects' do percent store L + 1 to L eject eject set echo off set format to screen return count for rejcode1 >= "2T" .and. rejcode1 < "2Y" to mcount MTOT - MTOT to mcount @ L,3 SAY 'Misc. Rejects' do percent eject eject set format to screen return de1 = "6B" to mcount @ L,3 SAY "Won't Boot" do percent count for rejcode1 = "6M" to mcount @ L,3 SAY 'Speed Reject' do percent count for rejcode1 = "6N" to mcount @ L,3 SAY 'Crashes on Boot' do percent STORE DRATOT - MTOT to mcount @ L,3 SAY"2T" .and. rejcode1 < "2Y" to mcount MTOT - MTOT to mcount @ L,3 SAY 'Misc. Rejects' do percent eject eject setEJECTED' @ 8,24 SAY TREJECT store 100*treject/ttest to preject @ 8,60 SAY str(preject,4,1) @ 8,64 SAY '%' @ 9,0 SAY 'CPU ASSEMBLIES TESTED' @ 9,24 SAY ttest store 12 to L use b:work1 copy to b:work2 for rejcode >= "C" .AND. REJCODE <= "K" use b:work2 count to mcount @ L,0 say 'CPU ASSEMBLY REJECTS' STORE 0 TO MTOT do percent STORE MCOUNT TO LBTOT STORE 0 to MTOT store L + 1 to L count for rejcode = "J20" to mcount @ L,3 SAY 'Bad Modification' do percent store L + 1 to L count for rejcode = "F05" to mcount @ L,3 SAY "Won't boot A" do percent store L + 1 to L count for rejcode = "G05" to mcount @ L,3 SAY "Won't boot B" do percent store L + 1 to L count for rejcode = "H05" to mcount @ L,3 SAY 'Neither Will Boot' do percent store L + 1 to L count for rejcode = "D05" .or. rejcode = "D06" .or. rejcode = "J18" to mcount @ L,3 SAY 'Cosmetic Reject' do percent store L + 1 to L count for rejcode = "J12" to mcount @ L,3 SAY 'No Beep' do percent format to screen return de1 = "6B" to mcount @ L,3 SAY "Won't Boot" do percent count for rejcode1 = "6M" to mcount @ L,3 SAY 'Speed Reject' do percent count for rejcode1 = "6N" to mcount @ L,3 SAY 'Crashes on Boot' do percent STORE DRATOT - MTOT to mcount @ L,3 SAY#' @ 7,3 SAY 'Enter date to end report ' get edate PICTURE '##/##/##' read use B:cpu copy to b:work1 for date >= bdate .and. date <= edate use b:work1 count to tgood for shipstat = "S" .or. shipstat = "s" erase SET FORMAT TO PRINT set print off set talk on set echo on @ 1,24 say ' EXECUTIVE CPU TES "6N" to mcount @ L,3 SAY 'Crashes on Boot' do percent STORE DRATOT - MTOT to mcount @ L,3 SAY#' @ 7,3 SAY 'Enter date to end report ' get edate PICTURE '##/##/##' read use B:cpu copy to b:work1 for date >= bdate .and. datfor rejcode = "J04" to mcount @ L,3 SAY 'Roms Ram Errors' do percent store L + 1 to L count fo to mcount @ L,3 SAY 'Froze During Cycles' do percent store L + 1 to L store LBTOT - MTOT to mcount @ L,3 SAY 'Misc. Rejects' do percent store L + 1 to L eject eject set echo off set format to screen return count for rejcode1 >= "2T" .and. rejcode1 < "2Y" to mcount MTOT - MTOT to mcount @ L,3 SAY 'Misc. Rejects' do percent eject eject sete <= edate use b:work1 count to tgood for shipstat = "S" .or. shipstat = "s" erase SET FORMAT TO PRINT set print off set talk on set echo on @ 1,24 say ' EXECUTIVE CPU TESr(preject,4,1) @ 8,64 SAY '%' @ 9,0 SAY 'CPU ASSEMBLIES TESTED' @ 9,24 SAY ttest store 12 to L use b:work1 copy to b:work2 for val(rejcode1) = 11 use b:work2 count to mcount @ L,0 say 'CPU ASSEMBLY REJECTS' STORE 0 TO MTOT do percent STORE MCOUNT TO LBTOT STORE 0 to MTOT store L + 1 to L count for rejcode = "J20" to mcount @ L,3 SAY 'Bad Modification' do percent store L + 1 to L cou set print off set talk on set echo on @ 1,24 say ' EXECUTIVE CPU TESr(preject,4,1) @ 8,64 SAY '%' @ 9,0 SAY 'CPU ASSEMBLIES TESTED' @ 9,24 SAY ttest store 12 to L use b:work1 copy to b:work2 for val(rejcode1) = 11 use b:work2 count to mcount @ L,0 say 'CPU ASSEMBLY REJECTS' STORE 0 TO MTOT do percent STORE MCOUNT TO LBTOT STORE 0 to MTOT storeERASE @ 5,5 say " This part of the program will transfer the " @ 6,5 say " information from the daily input file to a " @ 7,5 say " a weekly cumulative file and then erase the" @ 8,21 say " daily file." @ 10,5 say " Do not continue until the Daily Reports on " @ 11,5 say " the Print Options have been run for the most" @ 12,15 say " recent daily file" @ 15,5 say "Do you wish to continue ? (Y/N)" set console off wait to select set console on if select <> "n" .and. select <> "N" erase set talk on USE B:WEEK APPEND FROM B:INSPECT ? "TRANSFER COMPLETE" DELETE FILE B:INSPECT COPY STRUCTURE TO B:INSPECT SET TALK OFF endif return  L + 1 to L count for rejcode = "J20" to mcount @ L,3 SAY 'Bad Modification' do percent store L + 1 to L couor rejcode = "J17" to mcount @ L,3 SAY 'No Pot Adj.' do percent store L + 1 to L count for rejcode = "J01" to mcount @ L,3 SAY 'Main Ram Errors' do percent store L + 1 to L count for rejcode = "J02" to mcount @ L,3 SAY 'Video Ram Errors' do percent store L + 1 to L count for rejcode = "J03" to mcount @ L,3 SAY 'Attribute Ram Errors' do percent store L + 1 to L count for rejcode = "J04" to mcount @ L,3 SAY 'Roms Ram Errors' do percent store L + 1 to L count fo + 1 to L couor rejcode = "J17" to mcount @ L,3 SAY 'No Pot Adj.' do percent store L + 1 to L count for rejcode = "J01" to mcount @ L,3 SAY 'Main Ram Errors' do percent store L + 1 to L count for rejcode = "J02" to mcount @ L,3 SAY 'Video Ram Errors' do percent store L + 1 to L count for rejcode = "J03" to mcount @ L,3 SAY 'Attribute Ram Errors' do percent store L + 1 to L count :WEEK APPEND FROM B:INSPECT DELETE FILE B:INSPECT COPY STRUCTURE TO B:INSPECT SET TALK OFF endif return et console off WAIT TO SELECT set console on @ 20,5 IF SELECT = 'Q' ERASE RETURN ENDIF IF SELECT = ' ' APPEND BLANK REPLACE DATE WITH MDATE REPLACE VOLTAGE WITH MVOLTAGE !kͧ>:%cog | !%c4} 2%c:$cog |8 !$c4} :&cog:'cogY} Ry ʹGI*$k:&cog#PmX>PWFͣ^!*c4, !zk6!bb>P=X:zk !zk6*k;b,W :$cog | !$c4 :&cog:'cogY *k/b,W !$c !$c5 !*c !*c5  *kSb,Wb !%c9 !%c5_ >O2%c!$cM !$c5_ !&c_ !*c5 _ *kGb,W :%cog | !%c4ÿ 2%c:$cog | !$c4ÿ :&cog:'cogY ÿ !bn&:+cogY ͕>!bṔW!zk6Õ !b6 !*c4>O2b*$k:&cog#PmX:bog!cxSW:b/: !b~w RK ʹG>Iͣ^2b:bog>ogͶ>}2yl:ylog:bogY *$k:&cog#PmX:bog"zl!zlͧ>!b4e :bN¹ !|lͧ> :bog | :%c2)c:$c2(c>O2%c>2$c{ !~lͧ>:(c2$c:)c2%c2bx :%c2)c:$c2(cR! ʹG*kWFͣ^:"kU >2b:bog |U 3!b4- 2$c2%c{ :*c2b:*c2l:log:bogYg *$k:bogPmX>PW!c>Wk?+}2%c:%c\ { >O2b:%c<2l:bog:logY/*$k:bogPmX:bog!cxSW/TBMEQSVH@#.-DI5NPAK_FL=  A B CD COPYRIGHT 1982, PAWLUK CORPORATION5455 Wilshire BoulevardLos Angeles, CA 90036(213) 937-0551^#VN#F!}~#z'_!a>]F!4c>*W!ikͷW!kLX!kC͕>!bX!b^c>NX!zk6!&a>]!k^c>L(=X!kC!&aͽFRʹG*kkWFͣ^RʹG*kWFͣ^>2b:bog |3!b4áy>!&a>]!`>]G!(lc>L=X!&lC͕>!bX!b>W!c>W!c>W ?!c=W6:'cog |2$c2%c{ 2b:,c2ul:ulog:bogYRʹGI*$k:bogPmX>PWFͣ^!b4N>2b:bog |RʹG>I*$k>PWFͣ^!b4ÚRʹG*kkWFͣ^RʹG*kWFͣ^>2b:bog |03!b4y>F!bc>NX!}Y"k!{k!Y"$k2b:bog |*$k:bogPmXc>PNX!b4c*k{~_U!bPX!bWW͗U|2!k!bWW͗U|2"k!bWW͗U|2#k!b6>2'c*k !xk>G !b~w :%c2b:b2l:log:bogY\ *$k:bogPmX:bog"l!lͧ>!b4 !$c4!b4m :)c2%c:(c2$c2bþ:!k>2l*k#nb}2l:log:logY*k#:l_WG!d>SW :$cog*kw^#V>_V!bPX2*k#:l_WG!d>SW-:%cog*kw^#V>_V!bPX2!b6!bn&!b!bW!c>Wk?WG!b>P=X>2l!bn&}2l:log:logY!b:l_WG!l>NX!lͧ>!l4r*k#:l_WG!l>NX!lͧ>!l4Ô ý>2l*k#nb}2l:log:logY*k#:l_WG!d>SW6:$cog*kw^#V"lt*k#:l_WG!d>SWn:%cog*kw^#V"lt!"l!l#*l}3>!lGX!lͧ>ö*k#:l_WG!l>NX!lͧ>!l4G:#k*$k:&cogPmX:%cogc>GNX*$k:&cogPmX:%cog"l!lͧ>!%c#!%c5F>O2%c!$c7!$c5F!&cF!*c5 z:$cog |a!$c4y:&cog:'cogYy @:%c2b:bog |*$k:&cogPmX:bog#*$k:&cogPmX:bog>GNX*$k:&cogPmX:bog"l!lͧ>!b4NX*k !wk>GNX*k !tk>GNX*k !uk>GNX*k>WU2yk*k/nb*k;nbͶ>}2+c:+cog*kGnbͶ>}2+c:+cog*kSnbͶ>}2+c*kSKWW*kGKWW*k;KWW*k/KWG͹WWW!-cX!&kc>CGNXR ʹG*k_WFͣ^R%ʹG*kWFͣ^:"kY>2b:bog |Y3!b412$c2%c{ RʹG>I!bE!c>Wͬ?!c>,Wͬ?!+d> Wͬ?ͣ^ /RʹG>I!Kd>,WFͣ^͕>!bX!bwd>NXRʹG*kWFͣ^:"k>2b:bog |3!b42$c2%c{ ͸*:3c :$c!*c2&c:,cog:&cogͶ>}2,c:$c2(c:%c2)c>2$c2%c{ RʹGI! bE!wd>Wͬ?:&cog>_Vͬ?!zd>Wͬ?:)cog>_Vͬ?!c>Wͬ?ͣ^:(c2$c:)c2%c{ ͕>!bX!b>W!-c>Wk?|̓ } !bn& |}} !bn& |!bn& |3!bn& |”:%cog:ykogPYY:%cog:ykogX}GNXÃ*$kO:&cogmXc>GNX*$kO:&cogmX"l!lͧ>^#V"l:$c2(c:%c2)c>2$c2%c{ !c*lL>͛W*ln&}2%c>2b:%c2l:log:bogY*l:b_WG!l>NX!lͧ>!b4Æ>3>!lGX!lͧ>RʹGIͣ^2b:bog |!lͧ>!b4:(c2$c:)c2%c{ ñ#:$c2(c:%c2)c>2$c2%c{ RVʹG!bE!d>W*k͹Wͬ?ͣ^>3>!lGX!lͧ>:(c2$c:)c2%c{ ͕>!bX!dbxSW?!bdxSW?!b>_w*kbxSW!`>2[ð#*kbxSWʹ#ð#*kbxSW'ð#*kbxSWy*$k:&cogPmX!b>PG=X*$k:&cogPmXc>PNXRtʹGI*$k:&cogPmX>PWFͣ^:,cog:'cogY!,c4:&c<2b:'c2l:log:bogYq:bog:'cogY*$k:bogPmX*$k>PGNX*$kc>PNX*$k:bogPmXb>PJX:*cog :bogYYRYʹGI*$k:bogPmX>PWFͣ^*$k!b>PG=X!b4Ú!b6ð#*kbxSW:,cog:&cogY/!,c5:&c2b:,c2l:log:bogYG*$k:bog#PmX*$k:bogPmX>PGNX:*cogNX2b*kyw#wR/ʹG>I!e>WFͣ^!bn& |:bog+++|͕>!bX!bebxSW?!bdexSW?!b!bP>͛W!lͧ>!b4/!bWU*kys#r*ky#~*kyw#w*ky^#V |*ky6#6!zk6b!be>NX:(c2$c:)c2%c ð#*kbxSWN!le>L=X!lC͕>!bX!b>W!c>W!c>W ?!c=W;RʹG*kWFͣ^:"k>2b:bog |3!b4Ð2b:bog |*$k:bogPmXc>PNX!b4ü2(c2)c2*c2,c2&c!be<NX!b6!be>NX!be>NX2$c2%c{ ͸*K!be>NXð#*kbxSW°#!e>$W!ikW!e͹WW!mLX!mC͕>!bX!dbxSW?!bdxSW?!b>_w!2c6!ebxSW!ebxSW#!ebxSWI !cme>L%=X!amC͕>!bX!b>W!c>W!c>W ?!c=WC !2c6I !f>*W!ikW! f͹WW!mLX!mC͕>!bX!b>W!c>W!c>W ?!c=W¼ !b;f>P=X͸*!b6ÿ !Pf>W!ikW!W!ikͷWG3!R! :bogY@R=ʹGI*$k:bogPmX>PWFͣ^@!b4õ*$k:,cog#PmXc>PNX:*cog :,cog#YRʹGI*$k:,cog#PmX>PWFͣ^ïð#*kbxSW:*cog :'cogY:*cog, :'cogY!*c~w :'c2*c ð#*kbxSW!*cT:*cog |J!*c~wN2*c ð#*kbxSW!*c|2*c ð#*kbxSW:*cog :'cogY:'c2*c ð#*k bxSW}ð#*kbxSW*$k:&cogPmX:%cog!b>GNX*$k:&cogPmX:%cogc>GNX*$k:&cogPmX:%cog"l!lͧ>:%c<2b:bog |:bog |*$k:&cogPmX:bog!b>GNXö!bd>NX*$k:&cogPmX:bogb>GNX!lͧ>!bb>GNX!b4_ð#*k#bxSW2$cð#*k##bxSW(>2$cð#*k###bxSWB>(2%cð#*kbxSW:$c2(c:%c2)c!zk6:zkRʹG*kWFͣ^:"k>2b:bog |3!b4Î2$c2%c{ RʹG>I!bE!d>W!ikW!d͹WWͬ?ͣ^ /RʹG!&aͤJ!&aR_!͹G!!bE2b:,c2Nn:Nnog:bogY\!*$k:bogPmX>PWͬ?!b4%!ͣ^!&aͽF!kf>W!ikW!Tf͹WW!QnLX!OnC!kf>W!ikͷWG3!R!.P!&aͤJ!&aR!͹G!&bE!d>W!ikW!of ͹WWͬ?ͣ^!&aR!͹G>Iͣ^!&aRP"͹G!+bE2b:,c2n:nog:bogYM"*$k:bogPmX>PWͬ?!b4"ͣ^!&aRd"͹G>Iͣ^!&aͽF!ebxSW"!zf>W!ikͷWG3!R!.d!&aͤJ!zf>W!ikW!~f͹WW!nLX!nC)#!ebxSW)#!f>W!ikͷWG3!R!.d!&aͤJ!f>W!ikW!~f͹WW!nLX!nCͧ3!&aͽF:1c#2*c:&cog |^#!&c~w!*c~w=#:'cog :*cogY#:*c!'c!&c2&c:'c2*c:&c2$c !1c6ã#!bf>NX'*$k:&cogPmX:%cog!ukxSW#!vkc>GNXÝ$*$k:&cogPmX:%cog!fxSW‘$*$k:&cogPmX:%cog#!ukxSW*$k:&cogPmX:%cog#!fxSW$!vkc>GNXÎ$!vkuk>GNXÝ$!vkuk>GNX:%c2b:bog |'*$k:&cogPmX:bog!tkxSW*$k:&cogPmX:bog!f>I!d>WF!d>"WFͣ^͕>!bX!b>W!d>W!d>W ?!d=WRmʹG>I!d>WFͣ^!ukd>GNX!dukxSW!dukxSW͕>!ukX!dukxSW!dukxSW!lͧ>RʹG>I!d>WFͣ^y!b>W!e>W!e>W ?!e=W¿R8ʹG>I!e>WFͣ^!tkd>GNX!dtkxSW!dtkxSW͕>!tkX!dtkxSW!dtkxSW!lͧ>RʹG>I!/e>WFͣ^D!b>W!Ke>W!Le>W ?!Ke=WNRʹG>I!Me>WFͣ^!bbe>GNX!cebxSW!bdexSW=͕>!bX!b>WU2yk!b>W!ee>W!fe>W ?!ee=W!b6!bge>NX2b2'cRʹG>I!ge>WFͣ^!bn& |:bog++|͕>!bX!bebxSW?!bdexSW?!b!bP>͛W!lͧ>!b4ë!bWU}2'c!'c5:'cog |<>2'cQ:'cog |Q>W2'c:'c<2b:bog |*$k:bogPmXc>PNX!b4X:'cog :*cogY:'c2*c:'cog:,cogY:'c2,c!b>W!e>W!e>W ?!e=W!b6!be>xSW&!ukvkxSWE%*$k:&cogPmX:bogf>GNXð&:bu%*$k:&cogPmX:bogtk>GNXð&*$k:&cogPmX:bog+!cxSW*$k:&cogPmX:bog+!tkxSW%*$k:&cogPmX:bogtk>GNXð&!$c&*$k:&cog+PmX:bog!cxSW*$k:&cog#PmX:bog!cxSW&*$k:&cogPmX:bogvk>GNXí&*$k:&cogPmX:bogf>GNXð&&*$k:&cogPmX:bogvk>GNX*$k:&cogPmX:bog!b>P=X!?ob>JX!=oͧ>!b4ã$õ**$k:&cogPmX:%cog!tkxSWV'!vkc>GNX(*$k:&cogPmX:%cog!fxSW'*$k:&cog#PmX:%cog!tkxSW*$k:&cog#PmX:%cog!fxSW'!vkc>GNX'!vktk>GNX(!vktk>GNX:&c2b:'c2@o:@oog:bogYT**$k:bogPmX:%cog!ukxSW*$k:bogPmX:%cog!fxSW'*!tkvkxSW¹(*$k:bogPmX:%cogf>GNX$*:b(*$k:bogPmX:%coguk>GNX$**$k:bog+PmX:%cg>W*k >W*k͹WWͬ?!g>W*k>W*k͹WWͬ?ͣ^R1ʹG>I!bbE!g>W*k>W*k͹WWͬ?!h>W*k>W*k͹WWͬ?ͣ^R2ʹG>I!ibE!,h>W*k>W*k͹WWͬ?!Hh>W*k>W*k͹WWͬ?ͣ^R^2ʹG>I!pbE!fh>W*k>W*k͹WWͬ?!{h>%W*k>W*k͹WWͬ?ͣ^R2ʹG>I!wbE!h>W*k>W*k͹WWͬ?!h>W*k>W*k͹WWͬ?ͣ^R2ʹG>I!~bE!h>Wͬ?ͣ^R"3ʹG>I!bE!h>W!tk>W!c͹WWͬ?!h>W!uk͹Wͬ?ͣ^Rn3ʹG>I!bE:ykog>_Vͬ?!i>Wͬ?:'cog#>_Vͬ?!&i>Wͬ?ͣ^R3ʹG>I!bE*ky^#V> _Vͬ?!?i> Wͬ?ͣ^p>!xk>W!wk͹W!DqX!Fq_i>?GNX2p!1c6!fik<>}2p!p4!ik:pog#WG!b>P=X4!bik>P9X!ebxSW4!&aRR4͹GI!zf>W!bW!i͹WWFͣ^:2c4!&aRx4͹G>I!i>WFͣ^!&aR4͹G>I!bE!i>Wͬ?*ky^#V> _Vͬ?ͣ^4!&aR4͹G>I!i>WFͣ^5!ebxSW5!&aR5͹GI!f>W!bog!cxSW*$k:bog+PmX:%cog!ukxSWn)*$k:bogPmX:%coguk>GNX$*!(c$**$k:bogPmX:%cog+!cxSW*$k:bogPmX:%cog#!cxSW)*$k:bogPmX:%cogvk>GNX!**$k:bogPmX:%cogf>GNX$*M**$k:bogPmX:%cogvk>GNX!b4(:$c2(c:(c2$c:$cog |*{ *$k:$c_W:*cogPmX:%cog"Ao!Aoͧ>!$c4`*:(c2$c:'c2,c/!zk6:zk/!zk6!;fb>4W*!bf>GNXÚ+!Eof>L =X!CoC>2'c!bf>NX!b>W!f>W!f>W ?!f=W!b>W!f>W!f>W ?!f=W!b>W!f>W!f>W ?!f=W+͕>!bX +!b>W!f>W!f>W ?!f=W+!`>2[!zk6/!of>L=X!oC!ik62b͕>!bX!bn& |:bog |,!bn& |i,!bf,!%c5{ !oͧ>{ !ik!ikn&+MWG!ik> =X!b5f,,!b>W!&k>CWk?|,!dbxSW?!bdxSW?,!b>_w!b!ik >͛W!oͧ>!b4!%c4,>3>!oGX!oͧ>͕>!bX+!bf>NX!fik>W!i͹WWFͣ^!b62p:,c2q:qog:pogY/:1c/|6!p6!p6!p6>2p*$k:pogPmX>PW!c>Wk?}2p!pu6>P2p*$k:pogPmX:pog+!cxSW:pog:pogY5!p5É5*$k:pogPmX:pO>PWG!p>P=X:p2p:p2q:qog:pogY/:1c/u6!p:p_WW!Dq>Wk?|[6:p=2p~7:1cX6E9n6:p!pn6:p2p~7!p46!p4#5:1c6!&aR6͹G>I!i>WFͣ^{7!ebxSW{7:2c57!&aR6͹G>I!i>WFͣ^!p27!qi>L+=X!qC!&aR7͹G>I!j>WFͣ^͕>!bX!b#j>NX27\7!p\7!&aR\7͹G>I!#j>WFͣ^!&aR{7͹G>I!'j>WFͣ^B9!p:p_WW!c>Wk?:pog+}2p!p:p_WG!c>SW:pog:pogY7!p5æ7:pog:pogYA9!p:p_WG!d>SW©8!p:p_WG!d>SWg8!&aRd8͹G>I!p:pog#:p_W:pogY+MWWFͣ^æ8!q-j>L=X!qC!1c6:p2&c:p2%c͕>!bX!bIj>NXA9!Oj>W!p:po:p_W:pogY#MWW!Ij͹WW!pYX!&aRA9͹G>I!bE>|!ikn& |//-!ikWG!ik> =X!ikKWG!f>SW!ikn&|!ikWG!f>SW!ikn&++|!fik>>+++|/-!zk6!f>W!f>W!ikW!f͹WWW!oLX!oC͕>!bX!bg>NX/!b>W!f>W!f>W ?!f=W/!Pf>W!ikͷWG3!N!!!aͤJ:zk/!Pf>W!ikW!g ͹WW!9pLX!7pC!a>]}.!3c6!a.͹G!0bE2b:bog |:3c/.͞C*$k:bogPmXPX!b4Ó.ͣ^:b=2,c:,cog>ogͶ>}2'c!3c6!aͽF2$c2%c2*c *$kc>PNXý*Yä3R}/ʹG>I!5bE!g>W*k >W!c͹WWͬ?!3g>W*k >W!c͹WWͬ?ͣ^R/ʹG>I!#Wͬ?ͣ^R/ʹG>I!AbE!fg>W*k#>W*k͹WWͬ?!vg>W*k##>W*k͹WWͬ?ͣ^R00ʹG>I!HbE!g>W*k###>W*k͹WWͬ?ͣ^R0ʹG>I!MbE!g>W*k>W*k͹WWͬ?!g>W*k>W*k͹WWͬ?ͣ^R0ʹG>I!TbE!g>W*k>W*k͹WWͬ?!g>W*k>W*k͹WWͬ?ͣ^RG1ʹG>I![bE!!Pj>Wͬ?:pog>_Vͬ?!Rj>Wͬ?:pog+>_Vͬ?!pWͬ?ͣ^o>!p62p:p<2p!p:p_WW!Dq>Wk?|:pog:pogY/9:p2p1>!p:p_WG!d>SW:pog:pogY1>:pog:pogY/!p:p_WW!Fq>?Wk?|:pog |1:!p:p_W!p ͛W!p4!p49!bc>GNX!pn&|l:!'rSj>L!=X!%rC͕>!bXP;!pKWG!f>SW!p:p_WG!f>SW:!vrtj>L#=X!trC͕>!bXP;!p:p_WG!wk>SW:2cP;!rj>L#=X!rC͕>!bX!b>W!c>W!c>W ?!c=WP;RM;ʹG!bE!j>Wͬ?ͣ^P;!b>W!c>W!c>W ?!c=Wʀ;!1c61>!p:p_WG!wk>SW¸=:2cI!bE!i>Wͬ?!j>Wͬ?!pW!j>W!pW!j ͹WWWͬ?!#j>Wͬ?!i>Wͬ?ͣ^>2põ=!&aRu<͹G>I!bE!Pj>Wͬ?:pog>_Vͬ?!Rj>Wͬ?:pog+>_Vͬ?!pW!j͹Wͬ?ͣ^!p4:p@µ=!&aR<͹G>I!#j>WFͣ^2p!&aR<͹G>I!j>WFͣ^:pog>_V!bPX!b!bn&+++WG!b>P=X!k>W!DYK0w# Ex$EbE DJEGZ:E+w/ExbE?ExbEYJEo>g9##xEY bE bE YLŒE!tB[> F ¥EʐELÙE ·Ex±E>EÐE EÐEEx!haEEE:yaEE:haLE>2t!t(I!tB[fFͧF^ͲF^#V?FFfFF#F8F#N8F#^#r+s#^#V++r+s~F5FͧF5^ͲFq#pFOͧF4~ ҄F_ͲFs#r#s#r#q!FB[FFaFF Format Overflow*a-&a!7t"t!tF^#V"t*t"t!tRF GO:ayG!9GG~#'FFy GO:aGcG͖G#G{+G*ya|TGj& *ya*haY#Y> ܞG> ܞG͖G> G{=>'ĞG!9ʅG=~#'~G{>'̞G͞GiG{=>'ĞG{>b̞G*ha++|2t!tIɯûG>ûG>2t"t"t`i"t!9"t!tG?u ~# G*?u~KH*?u~ H!9u>WG3!!!`ͤJ!`"Mu!KuhLHH!9u>WG3!R.!!aͤJ!a"Qu!OuhL]H*Au"Su!SuhL!UuJ*Eu^#V!qas#r*Gu^#V!sas#r*Cu^#VV|*aV|GʢH!YuI*Cu^#V}*a}GH![uI:aH*Cu^#V}*a}GH!]uI:aI*Cu^#V}I!_bW!j͹WW!sLX!sC͕>!bX!bk>NX!b6!ebxSWx=!zf>W!ikW!~f͹WW!csLX!asCò=!ebxSW²=!f>W!ikW!~f͹WW!sLX!sCò=õ=1>!p:p_WG!xk>SW1>!&aR1>͹G>I!bE!Pj>Wͬ?:pog>_Vͬ?!Rj>Wͬ?:pog+>_Vͬ?!pW!k͹Wͬ?ͣ^:1cH>:p2&c:p=2%cn>:p!p2p:pog:pogYn>:p<2pp`^#V^Æ>Ï>3>s>!>*3>s>K* E|>|{zͶ>F>>O>># ?>>>gl ^?#~w&?!9_#F#O >ʤ?~ ʚ?ʓ?#Ç?#|?H o&ͱB"Ia?¿?BZ!9??~#qC?> qC?&9@x2\ay ?2]a"s@EqC:ba+g@-/G@!9~#qCñ@*s@E2Ka2`a2ca<2[a!9ͤA @+@ͤAA-A>2`aͤuI^#V"au!a"gu*au"ku!cuB[2ou!mu(I^#V"tu:a7I:acI*tu`I*tu5!vu6:vu ]I͐IOI>IÏI!wuI*tuI*tu5!pa6!yuI:paʌI*tu6iIL2vu:vu½I!a"u!"u!{uB[!ha6#6!vu6 :aI!uI^#V"u!da"u*u"u!uͮQJ!a"u!"u!uB[IãJ:aJ*u~ J*ha#"haãJ*u~ 0J!ha6#6ãJ:aJ*u~ RJ*la#"la!ja6#6ãJ*u~ £J*ja#"ja!ja#tJ!ja6#6*ja*{a#Y|£J!a"u!"u!uB[J;I!pa6"u!9"u!uJ! 9^u~# J*u^#V|J*u*u W*u nbK*u !u>JX,K!u>W*uͷW!uX*u~#XK*u^#V)))|XK*u6P#6*u~#’K*u^#V))|K*u6#6ÒK*u6<#6*u6#6*u6#6*u6#6*u 6*u^#V}~U}2u*u^#V}K!u44*u^#V}K>2u*u^#V}*L*u~#*L*u6#6*u"u*u"u*u"u!u͋P*u^#V|gL*u"u!"u!uB[^#V^#V^:aڅL!LB[2aO!a”L6ÙL +~#w!a s#r!a4ͯ^ɲLLaLL I/O Stack Overflow:paL!da"u!u͛QL!u6L:pa2u!pa6:u M*haAͮAAA A ͷAͤAA.1AͤAͮA1AͷAͤA"Ae;AE~AͤA+KAͤATA-TAͤAͮAYGͤAͮArAxGGGͤAzAGyOʍA YͤA~A:[aҟAͷAÐAy2_aʫA~#z0 0!ca_w![a~A4_!KasYY2^aG:_a<2[a=Y:KaY:BB:KaB!_a5!ba4Y:]aG:\a B!`aA>2aa]BqC!\a5,B:]a!_a<_!Ka>w w>+OB!^a~5>.͕BG:aax0|B:^a> !`a~ʏB5!^a4![a5-2aax![a^4{BҮB!Ka~0>0F Bx=BG9CñB B:{aBB!jaxʱBBhCñB;IñB CʱB> qCB CxC>hCñB "C9CñBx,C>ʱB=;I,CfCx!haNCfC9C:yaYCfC:ha> qCNC>2t!t(I:yaʍC!haҍC> ͕C> ͕C͕C2t!tI͐E²Cy<>¹C= ùCGDOEoWE####W?EC60#DEC>ew#.CeCxDbE CJEGZ+y=+Dx=#D0 +D60$-Dw 7D+6.$y= Dx= D²Dx<D!9xE xE wD wDw# Y_DH !9 ʊD+wDxOo>g9x xEY ʝD ʝDw#ÚDE=D<E<_EKE DoWWE##?E$EK0Y D0_Y #"ha:u M!ha6#6:u"S"S*S^#V#"S^#V"M.M"S.M"S|3M|~"M.MyacMA =.:;<>[]y *SUM MËMUM$MUM1ڭM o&))))\xH  M#w MMͅM*S#MAMGMUM:M 6Np4M+͗M(N#UM4N#* N6?$NwMNUM;NM(N#6 4N.tNM ͗MhNUMtN#*`N6?dNwMONUM{NMhN#6 tN%#6}N*S##^ ~?”N# NxCON CON RDR PUN LST M!N ~ͅM$,OMUM1N\Nl,O$,O!~ ,OM!NUMO !OM#Ox=GNM>ɯ*S+.O^#V6O#{#z.O6#66O r+s!uF#~ڍO!u6P  _ _!u^r+s6 #6 !u4^N*S|½O}=ªO]OùO͵NʵOO>~OO> PN*S|OY͵N=OyO _O>~P=P> Pq2S*S/"S=ObP{GO6O*S*S#:SOKP6O#s#rTPPO=O$PGO P6Or+s{sP!S4*S+>|ʂP+}oM"M~2S"M"S3M:SґQ;NPG:SґQ*Sp¾P4#6rSNM:SP|P*S++"SP}+P͂P}|2|S"zSNM|P"S1= Y)Xɯo>g{ozg!"YB[*Y+Y,Y.Y0Y Conversion2NY!EYB[MYNYOYQY*v|ʁY^#V"v###^#V#N#Fx}Y #~pŸ́Z*v|ʫY^#V#N#F!9yxҫY"v̈́ZÄY:aY!9!sa{z#Yͣ^ëY!Y!9:aO!a {#z!a5Y#}OD*v~0Z##~#foY! ZB[ZZZZZ Free Space Exhausted##^#V#{_zWZ{_zWY4zVZ{Z##^#V# ##s#rs#r#s#r+++~sw#r####}*v}|Z*{zZ+F+N+V+5^{Z{zZ}|Z{ZZi`~sw#r##q#p i`N#F#^#V~Zq4#p+i`##s#rZË`[Ë` FREE Request Out-of-Range$ Free Space Overwrite$GKZ[MbkZ[']F&]N&]N#F&]^#V"by2axm[i&g^ʤ[x[x„[>ڧ[!a{#z*qa*saͣ^xyx[ \_!C]^#Vb\\>(\y>\>)\|[[\|[[b\t\p`>,\\> _ _ _ _0:\\\\\|#\}#\ N\dP\ P\[\R\x\N #~\d\!5]b\*v!9{_z•\{ڕ\ ک\ͧ\\>#\*v>=^#V#/\é\\>: \>?\!-]b\b\>=\^#V|\}\.))]b\#Y|ʑQ##"S6*Ss#rMR{ R*S:Sw/Q6RQ*S"}SrS*Sw#wrSM3MrS͗O"MqrSM3MrS"MNOrS*S~" 4#4#4M3MrS~Q%RͮTrSGO>4RrSM3MrS~GO>4RrS*S~R>rS%RͳTrS*S!*~!/2S*S|IR(^#VNMNM{z\RzR2SzʋR:SR͗OqÆRNO#fR*S|R*~R=!SڽR:S PʺR¶RwÝRQ>M3MrS|}rS~> rSrS"N#F#~"Mq#p#w>rSMEMrS>rS*~NM!aS=SS>!*S" s#r#w=rS*S }!?v6 4>2>v*;v!4#4#4~#N#F#y#x#:>v*;v!!:=vSSҪS:?v~G~#~O?*T#~*T! p! y! q<.T<ͪSɯ~#N#F#w#q#p͡S͑S~XT#!!0T! 6?<ʓT= _!xڇTTFNfTwxG>O>G!$q#p#6õT"8v";v2:vx2=v͑S2>v͡S!:v~5YUST=&U:=v&U*;vAĻ\> #]~ >.\~ \= ]^#V# File: Traceback:S]Z]j]t]]]]] ERROR FIXED OVERFLOW OVERFLOW UNDERFLOW ZERO DIVIDE END OF FILE UNDEFINED FILE KEYNULCONCONRDRPUNLSTBADG!a~]]Ë` Condition Stack Overflow$4Ox!Bv w#s#r#s#r!9!a s#r!aN!Bv +++++/^#{H^#zM^++~/^++!a5!~# \^X^!aN!Bv +++++w^#~#ʛ^+{–^#zʛ^++~w^#^#V=!a~^5:a_!a^#V"ada.~# ^*a)))))a )| ^*da|}*b"ha:a*adaw# _*b{ _ "_!#"bT_Copyright (c) 1980 Digital Research, v1.3 !"v"v"v2a2a*v ړ_"vq#p##}o"v*}o|ҙ_`Ë`+w+w+r+s4w#w#s#r<2v++*vs#r"v*v#"v*vDM!vx~f`#~+f`+F+Nq#p*v+"v_d`=`!+~O~#~G!/x?`y\` >O6# 6` &`=ɯ ~#fo++_!v~#ʈ`*v_p``Ë``  Insufficient Memory$ Invalid I/O List End of Execution$`b bb S:=vO*;v:?vUy O2U:=vĪS*8vw# ,UͱS:>vLU*;v!SLU0T*8v"8vT:>v/g.xqU}03|g}o eUxg.>Gx|g}oÅU YYG!9!yUU)0ʾU1Y# çUyU) UxDMox&9`iG!9!x8V 3V+V$%Yg3V-U0Y:Y0T])Y)YY)Yo|gYU{HV$%Y}IV|Yz- Yo&9}/G!V ¨V>0V ­V>-3ùVT]))V寕iO>`G>0 V ȇV)Vyw# W~#W~#W #wW!9Oo>gy͛W~#o>gxGҰWGNXwF#"@vxWW*@v!9G_>WObk++W~+Wy~#/)X YYSININOUTSYSPRINT   PPP ( ( ( ( ( ( ( ( (  ) ( '  W .ZIP does not exist (any key to continue).NO MORE DISK SPACE--saving partial file.QUIT to system (Yes or No)?Yy $:@#/0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz ZIPThe dBASE II screen and printout Form Writer Copyright 1982 Hal Pawluk Press any key to continue.Row, Col az*** WORK FILE: ***Enter of value tochange, any other key to continue.HhNew horizontal marker: []RESEmmcmmnQnnn?oEoocboo9pRVED--Enter new symbol: VvNew vertical marker: RESERVED: Enter new symbol: TtNew tab value (1-9): 019PpNew page length (23 - 88): MmNew page margin (0 - 127): Erase everything (Yes or No)?SAVE as CMD or FMT file (C, F or stop)? CFIs this form to be printed (Y or N)? File : do you want to change its name (Y or N)?*Writing screen file .ZIPWriting printable file .ZPR***** File .CMDWriting command file .FMT+N or file (Q to Quit)?nOoQqFILE NAME (drive optional)::** ** is not a valid file name (any key to continue).Loading file : DISPLAY variable. : GET variable.[] : RESERVED for EMBEDDED COMMANDS : Top of screen : Bottom of screen : Middle of line : Previous screen. : Next screen. : First screen. : Last screen. : Delete character. : Insert space. : Kill cursor line. : Line insert at cursor. : Draw/Erase vertical line. : Draw/Erase horizontal line. : ERASE screen data. : SAVE screen, write .CMD/.FMT file. : QUIT to system. : Display this screen.CHANGEABLE DYNAMIC VALUES: : ertical marker. : orqq'rvrrscssttttatttta t"t Invalid Format Itemttttttt Stream/Recizontal marker. : ab spacing (1-9). :

age length (23-88). : argin for printer (0-127).0123456789:ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz* SET FORMAT TO PRINTSET MARGIN TO ERASEINCOMPLETE FILESET FORMAT TO SCREENGETs in PRINTER file (any key to continue).@ 23,79 SAY " "READRETURNCOMMAND ERROR -- please fix. SAY ""@ ,NO VARIABLE: continue (Y or N)? HANGING COLON: continue (Y or N)? "GET" in PRINTOUT: Okay (Y or N)? Yes @ 23, 0 SAY "" GET GET ** 64th GET **Writing READ for 64 GET's, row (Any key to continue.) SAY kk k bk  + 1 +ik\>H  )$%' , %l(lxlcclllllllclbluktkbblord Sequen/Direct Input/Output Keyed Access P< $conMuQuda-utuuu=u>ukuou puqurusuu uuuuuuuu.datuuuuuuuuuv:WEEK APPEND FROM B:INSPECT DELETE FILE B:INSPECT COPY STRUCTURE TO B:INSPECT SET TALK OFF endif return et console off WAIT TO SELECT set console on @ 20,5 IF SELECT = 'Q' ERASE RETURN ENDIF IF SELECT = ' ' APPEND BLANK REPLACE DATE WITH MDATE REPLACE VOLTAGE WITH MVOLTAGE | !PT>4G!SPxQF!PSxQF!Pn& |R ͮ0!PF !Pn& |} !W0!P! P >́F!P4 >2P! PFD*sNys#r*sNy^#V | *sNy6#6 *sNy#~ *sNyw#w | !PSxQF!SPxQF ! PP> #GR* ͺ6>%8!O%5!T>+F-17L!PT>G4G!P P>2Fu !!UPxQF!PSxQFr ͮ0!PFD !PTxQF?!Pn& |/ ͮ0!PF!"UPxQF!#UPxQF !W0R ͺ6>%8!O%5!$U>"F-17L!PT>G4Gu !TPxQF?!PTxQF?$ !P>_w>2P>2W:Wog:Pog[G| *sN+:Pog!PxQFu *sN+:PogP>G4G!P4. 2P2P! P6!PFU<4G!PFU>4G~R ͺ6>%8!O%5!FU>"F-17LR ͺ6>%8!O%5!hU>F*sN >F!T͟FͱF-1!|U>F*sN ͟F-17LR: ͺ6>%8!O%5!U>#F-17LR ͺ6>%8!O%5!U>F*sN>F!T͟FͱF-1!U>F*sN>F*sN͟FͱF-17LR ͺ6>%8!O%5!U>F*sN###>F*sN͟FͱF-17LR ͺ6>%8!O%5!U>F*sN#>F*sN͟FͱF-1!V>ÝZIP COMCOPYRIGHT 1982, PAWLUK CORPORATION5455 Wilshire BoulevardLos Angeles, CA 90036(213) 937-0551^#VN#F<%0  ZIP.COM NOT PRESENT ON DEFAULT DISK $:22!}~#z~!} w#z’ͻL!}͂G"sN!Wu*sNyw#w*sNPG4G*sN##P>G4G*sN###P>G4G*sNP>G4G*sNP>G4G*sNP>G4G*sNP>G4G*sNP>G4G*sN P>G4G*sN P>G4G*sN  P>G4G*sN !P>G4G*sN "P>G4G*sN#P>G4G*sN$P>G4G*sN%P>G4G*sN&P>G4G*sN'P>G4G*sN(P>G4G*sN)P>G4G*sN*P>G4G*sN+P>G4G!W6:WS!W6RXͺ6>%8!WO%5!,P>0F-17LRVͺ6>%8!\O%5!\P>%F-1!P>F-1!P>,F-1!P>F-1!P>JF-1!P>/F-1!&Q>1F-1!WQ>@F-1!Q>=F-1!Q>CF-1!R>>F-1!UR>;F-1!R>6F-1!R>5F*sN##>F*sN͟FͱF-17LR} ͺ6>%8!O%5!V>F*sN>F*sN͟FͱF-1!-V>F*sN>F*sN͟FͱF-17LR ͺ6>%8!O%5!F*sN>F*sN͟FͱF-1!LV>F*sN>F*sN͟FͱF-17LR7ͺ6>%8!O%5![V>F*sN >F*sN͟FͱF-1!oV>F*sN>F*sN͟FͱF-17LRͺ6>%8!O%5!V>F*sN>F*sN͟FͱF-1!V>F*sN>F*sN͟FͱF-17LRͺ6>%8!O%5!V>F*sN>F*sN͟FͱF-1!V>F*sN>F*sN͟FͱF-17LRNͺ6>%8!O%5!V>F*sN>F*sN͟FͱF-1!V>&F*sN>F*sN͟FͱF-17LRͺ6>%8!O%5!W>F*sN>F*sN͟FͱF-1!0W>F*sN>F*sN͟FͱF-17LRͺ6>%8!O%5!GW>(F-1!oW>F-17LR%ͺ6>%8!O%5!W>F*sN >F!T͟FͱF-1!W>F*sN ͟F-17LR}ͺ6>%8!O%5!W>F*sN>F!T͟FͱF-1*sNy^#V> eE-1!W>$F-17LNRͺ6>%8!X%5!X>=F-1!X>F-1!X>AF-1!Y>BF-1!]Y>>F-1!Y>F-1!Y>IF-1!Y>IF-1!-Z>KF-1!xZ>GFF-1!R>F-1!S>F-1!S>CF-1!RS>F-1!RS>;F-1!S>-F-1!S>=F-17L2P! P6:Pog+++|!PS>4G!SPxQF!PSxQF!Pn& |ͮ0!PF{!Pn& |>2P!W0!P! P >́F!P4_! PFD}2uN:uNog |/:uNog+|<R9ͺ6>%8!cO%5!S>%F-17L<RMͺ6>%87L͢*:uN~!uN:uNog |x\{́~!PT>4G!P>F!*P>F!T>F0!*P;FqRͺ6!hO%5*sNF-17L>2P:Pog |3%8!mO%5!T>)F-17LR5ͺ6>%87Lͮ0!PF!P>F!HT>F!IT>F0!HT;Fn,nË!W͉XRͺ6!rO%5*sNF-17L͒0)Rͺ6>%8!wO%5!JT>3F-17Lͮ0!PFRͺ6%8!|O%5!}T>F-1!}T>F-17L!P>F!HT>F!IT>F0!HT;F(!W6â RNͺ6>%8!O%5!T>.F-17L! P6!PT>G4G!PTxQF?!Pn& |/ͮ0!PF_!TPxQF?!PTxQF?!P>_w!W0!TPxQF ! P62PRͺ6>%8!O%5!T>*F-17L:Pog+++-1!Z>5F-1!Z>IF-1!=[>GF-1![>IF-1![>HF-1!\>:F-1!O\>JF-1!\>JF-1!\>IF-1!,]>9F-1!e]>F-1!e]>:F-17Lͮ0!XF!X]>4GRͺ6>%8!X%5!]>DF-1!]>2F-17L*sN"'e!'e^+Rͺ6!X%5*sNF-17L>2X:Xog |+3%8!X%5!^>F-1!4^>F-17Lͮ0!XF!X>F!N^>F!O^>F0!N^;F…!&e6:&e !&e6Rͺ6!X%5*sNF-17L>2X:Xog |3%8!X%5!P^>KF-1!^>F-1!^>+F-1!^>F-1!^>IF-1!_>HF-1!W_>=F-1!_>F-1!_>DF-1!_>8F-1!`>F-17Lͮ0!XF*sN{~eD!X G!X>F!N^>F!O^>F0!N^;F!/e0!XF`4G!1e0!XF`4G!XF͝D|*sN{wÐRdͺ6>%8!&X%5!`>KF-1!^`>JF-1!`>KF-1!`>)F-1!a>F-1!a>F-17L*sN#"3e!3e^+!vN!&e6:&e!&e6Rͺ6>%87L2X!X6Rͺ6>%8!-X%5!2a>"F-17L:Xog++|W!XTa>4G!`XxQF!XTaxQFFR-ͺ6%8!X%5!e>F-1!e>F-17L!X>F!$e>F!%e>F0!$e;FZ!&e6:uN=l!"iô:uN}!U"iô:uNŽ!"iô:uNŸ! "iô:uN°!h""iô:uN!""iô:uN!#"iô:uN!1$"iô:uN !$"iô:uN !m%"iô:uN !&"iô:uN '!&"iô:uN :uN:uNQ!.'"iô:uNb!'"iô:uNs!k("iô:uN„!)"iô:uN•!)"iô:uN¦!5*"iô:uN´!*"i!*iR*sN^e> #G*sN#_e> #G*sN/ce> #G*sN;de> #G*sNGee> #G*sNSfe> #G*sN_6*sNk6*sNw6 #6> ̈́D}*sN{w>3>!ge͟F*sN G*sN#ie> #G*sN/me> #G*sN;de> #G*sNG^e> #G*sNSne> #G*sN_6*sNk6*sNw6 #6̈́D}*sN{wÍ >3>!ceG͟F*sN G*sN#ie> #G*sN/me> #G*sN;de> #G*sNG^e> #G*sNSne> #G*sN_6*sNk6*sNw6 #6̈́D}*sN{we">3>!oe͟F*sN G*sN#ie> #G*sN/qe> #G*sN;se> #G*sNGue> #G*sNSwe> #G*!Xn& |$ͮ0!XF!Xn& |;>2XT!5e0!X!X >́F!X4!XFD}2X:Xog+|y>2XÑ:Xog |> 2XÑ2X!X6Rͺ6>%8!2X%5!Ua>%F-17L:Xog++|J!Xza>4G!`XxQF!XTaxQF!Xn& |ͮ0!XF!Xn& |.>2XG!7e0!X!X >́F!X4ü!XFD}2vN:vNog+|l>2vNÄ:vNog |> 2vNÄÁ*sN#:X_Fza4G*sN#:vN_F{a4G2X2vN2X!X6Rͺ6!7X%5*sNF-17L>2X:Xog |3%8!EF-1*sNw^#V>eE-1!a>#F-17Lͮ0!XF!&e6!X>F!N^>F!O^>F0!N^;F©:&e!&e6!X62XRͺ6>%8!FX%5!a>(F-17L:Xog+++|S!X b>4G!`XxQF!XTaxQF!Xn& | ͮ0!XF!Xn& |K!́F!X4P>2X!XFD*sNws#r*sNw^#V8 |*sNw6#6ã*sNw#~*sNww#wÍ!&e62X2vN!X b<4G!X6Rͺ6!KX%5*sNF-17L>2X:Xog |3%8!We%5!ye>IF-1!e>F-1!e>0F-1!e>F-1!e>-F-1!f>-F-1!Lf>-F-1!yf>-F-1!f>F-1!f>JF-1!f>IF-1!9g>+F-1!dg>GF-1!g>IF-1!g>F-1! h>FF-1!Ph>IF-1!h>BF-1!h>LF-1!'i>FF-1!mi>F-1!mi>.F-17Lͮ0!iF!ii>4G"*sNi> #G*sN#_e> #G*sN/ue> #G*sN;we> #G*sNGse> #G*sNSqe> #G*sN_6*sNk6*sNw6 #6> ̈́D}*sN{wÐ#*sNi> #G*sN#i> #G*sN/ge> #G*sN;i> #G*sNGi> #G*sNSi> #G*sN_6*sNk6*sNw6 #6̈́D}*sN{w.$>3>!oe͟F*sN G*sN#ie> #G*sN/i> #G*sN;i> #G*sNGi> #G*sNSi> #G*sN_6*sNk6*sNw6 #6̈́D}*sN{w$*sNi> #G*sN#i> #G*sN/ue> #G*sN;we> #G*sNGse> #G*sNSqe> #G*sN_i> #G*sNki> #G*sNww#w>̈́D}*sN{wj%*sNi> #G*sN#i> #G*sN/eGF!>e0!X4R4ͺ6>%8!PX%5! b>F-17L*sN/"Ae!Ae^+Rfͺ6>%8!UX%5!&b>F-17L*sN;"Ce!Ce^+Rͺ6>%8!ZX%5!Bb>F-17L*sNG"Ee!Ee^+Rͺ6>%8!_X%5!_b>F-17L*sNS"Ge!Ge^+Rͺ6!dX%5*sNF-17L>2X:Xog |&3%8!iX%5!{b>-F-1!b>,F-1!b>*F-1!b>#F-1!X>F-1!!c>*F-1!Kc>*F-1!uc>F-1!X>F-1!c>&F-17Lͮ0!XF*sN{~eD!X G!X>F!N^>F!O^>F0!N^;F!Le0!XF`4G7!Ne0!XF`4G!XF͝D|*sN{w+Rnͺ6!pX%5*sNF-17L>2X:Xog |3%8!uX%5!c>'F-1!c>!F-1!d>,F-1!.d>F-17Lͮ0!XF*sN{~eD!X G!X>F!N^>F!O^>F0!N^;FR!Se0!XF`4Gj!Ue0!XF`4G!XF͝D|*sN{wàRͺ6>%8!|X%5!Ld>*F-1!vd>.F-1!d>0F-17LRͺ6>%87L͒0[Rͺ6>%8!X%5!d>3F-17Lͮ0!Xi> #G*sN;i> #G*sNGi> #G*sNSi> #G*sN_6*sNk6*sNww#w>`̈́D}*sN{w&*sNi> #G*sN#_e> #G*sN/ue> #G*sN;we> #G*sNGse> #G*sNSqe> #G*sN_6*sNk6*sNw6 #6> ̈́D}*sN{wÖ&*sNi> #G*sN#_e> #G*sN/ue> #G*sN;we> #G*sNGse> #G*sNSqe> #G*sN_6*sNk6*sNw6 #6> ̈́D}*sN{w+'*sNi> #G*sN#_e> #G*sN/ce> #G*sN;de> #G*sNGee> #G*sNSne> #G*sN_6*sNk6*sNw6 #6̈́D}*sN{w'>3>!oe͟F*sN G*sN#ie> #G*sN/me> #G*sN;de> #G*sNG^e> #G*sNSne> #G*sN_6*sNk6*sNw6 #6̈́D}*sN{wh(>3>!ceG͟F*sN G*sN#ie> #G>3>*sN/ G*sN;i> #G*sNGi> #G*sNSi> #G*sN_6*sNk6*sNw6 #6> ̈́D}*sN{w(*sN^e> #G*sN#_e> #G>3>*sN/ G*sN;i> #G*sNGi> #G*sNSi> #G*sN_6*sNk6*sNw6 #6> ̈́D}*sN{wN # 11#1#{> 1#~w024"wNg1@1BZ!9_1V1~#4F1> 4V1&9‰1x2Ny v12N"dkM2E4:N+1-/2N%3/3қ2‘2 ʕ2 83%3Â2.²2%3/3Ҳ283%3ã2eʼ2E2%3+2%32-2%3/3bGG%3/32xGGG%32GyO3 bG%32:N 3833y2N,3~#z0 0!N_w!N~U34_!yNsbGbG2NG:N<2N=bG:yNbGͻ3“3:yNʓ3!N5!N4bG:NG:Nʡ3!N\3>2N34!N5­3:N!N<_!yN>w w>+3!N~5>.4G:Nx03:N> !N~45!N4!N5-2Nx!N^4{/4/4!yN~0>0)5 K4x=E4Gͺ424 r4:N[4l4!Nx24l4424824 †424> 4x4 ˜4x’4>424 £4ͺ424x­4>24=8í44x!N44ú4:N44:N> 44>2kk!ik.8:N5!N)>3>!oe͟F*sN G*sN#ie> #G*sN/me> #G*sN;i> #G*sNG^e> #G*sNSne> #G*sN_6*sNk6*sNw6 #6̈́D}*sN{w2**sNi> #G*sN#i> #G*sN/fe> #G*sN;i> #G*sNGce> #G*sNSi> #G*sN_6*sNk6*sNww#w> ̈́D}*sN{w**sNi> #G*sN#i> #G*sN/i> #G*sN;i> #G*sNGi> #G*sNSi> #G*sN_6*sNk6*sNww#w>̈́D}*sN{w]+*sNce> #G*sN#ie> #G*sN/i> #G*sN;i> #G*sNGi> #G*sNSi> #G*sN_6*sNk6*sNw6 #6> ̈́D}*sN{w^#V"Lk!OkJj>4G>2Nk*Lkn&}2]k:]kog:Nkog[G,*Lk:Nk_FG!Ok>4G!JjOkxQF҅,!KjOkxQF+R+ͺ6!i%5!Lj>F-17LÂ,!PjOkxQF,R,ͺ6!i%5!Qj>F-17LÂ,!WjOkxQFH,RE,ͺ6!j%5!Xj> F-17LÂ,R,ͺ6! j%5!Jj>F!Okn&@ }3>>^3>ͱFͱF-17Lê,R,ͺ6!j%5!Jj>F!Ok͟F-17L!Nk4Á+!Qkaj> #G>2Nk:Nkog |,!Qk:Nk_FG!`k>4G!^k0!Nk4,!Qk6!Okd5> 5> 552hk!fk8!lkHÍ55^5^#Vf5D5͍5)5#F_5#N_5#^#r+s#^#V++r+s~)55)555^5q#p)5O54~ ҫ5_5s#r#s#r#q!5H55N55 Format Overflow*N-&N!k6O:Ny6!9G 6~#'55y6O:N 6i6͜6)6{16*N|Z6j& *N*N[G#[G> ܤ6> ܤ6͜6> 6{=>'Ĥ6!9ʋ6=~#'„6{>'̤6ͤ6o6{=>'Ĥ6{>b̤6*N++|2/l!-l8ɯ6>6>2:l";l"=l`i"?l!9"Al!0l6l ~# 6*l~Q7*l~&7!l>FG3!!!Nͪ9!N"l!ln;N7!l>FG3!R.!! Oͪ9! O"l!ln;c7*l"l!ln;!l9*l^#V!Ns#r*l^#V!Ns#r*l^#VF|*NF|Gʨ7!l 8*l^#V}*N}G7!l 8:N7*l^#V}*N}G7!l 8:N 8*l^#V} 8!l 8^#V"l!N"l*l"l!lH2l!l.8^#V"l:N=8:Ni8*lf8*l5!l6:l c8͖8U8D8Õ8!l8*l8*l5!N6!l8:Nʒ8*l6o8;2l:l8!N"l!"l!lH!N6#6!l6 :N8!l8^#V"l!N"l*l"l!lʹ@9!N"l!"l!lj>4GR*-ͺ6>%8!j%5!dj>!F-17L!Pk6:Pk0!Pk6!Okj>4G2Nk!Qk6Rs-ͺ6>%8!j%5!j>1F-17L!Okn& |:Nkog++|-ͮ0!OkF!jOkxQF?!OkjxQF?-!Ok!Qk >́F!ak0!Nk4s-!QkFD}2vN!Qk6!vN/:vNog |F.> 2vNRF.ͺ6>%8!j%5!j>F-1:vNog>eE-1!j> F-17L*Lk6>2Nk:vN2ck:ckog:Nkog[G/R.ͺ6>%8!"j%5!j> F-1:Nkog>eE-1!j>F-17Lͮ0!OkF!Okn& |.R.ͺ6!,j%5!j>F-17L!Nk5/!JjOkxQFT/!Okn& |#/R /ͺ6!1j%5!j>F-17LQ/RQ/ͺ6!6j%5!Okn&@ }3>>^3>ͱF-17L/*sN{~eD!Qk G!jOkxQF?!OkjxQF?!QkFG!j>QF/!Ok>_wï/!Qk6R/ͺ6!;j%5!Ok>F-17L!Ok*Lk >́F!Nk4V.0/R/ͺ6>%87L/-Ë0R&0ͺ6>%8!@j%5!j>3F-17Lͮ0!OkFR]0ͺ6%8!Ej%5!-k>F-1!-k>F-17L!Ok>F!Jk>F!Kk>F0!Jk;FŠ0!Pk6^#V^ß0è03>͌0!0*3>͌0K* 5!9DM_###^#6~4#+(1##o0$~`i#H9é9:N9*l~ "9*N#"Né9*l~ 69!N6#6é9:N9*l~ X9*N#"N!N6#6é9*l~ ©9*N#"N!N#z9!N6#6*N*N#[G|©9!N"l!"l!lH98!N6"l!9"l!l9! 9^m~# 9*m^#V|9*m*m F*m nb:*m !m>0G2:!l>F*m͝F!mF*m~#^:*m^#V)))|^:*m6P#6*m~#˜:*m^#V))|:*m6#6Ø:*m6<#6*m6#6*m6#6*m6#6*m 6*m^#V}̈́D}2m*m^#V}:!m44*m^#V};>2m*m^#V}0;*m~#0;*m6#6*m"m*m"m*m"m!m͑?*m^#V|m;*m"'m!")m!mH^#V^#V͋L:Nڋ;!;H2NO!Nš;6ß; +~#w!N s#r!N4CLɸ;;N;; I/O Stack Overflow:N;!N"0m!,m͡@;!+m6;:N2+m!N6:+m <*N#"N:+m []y *B[< ͅ<Ñ<[<$ͅ<[<1ڳ< o&))))\xH  <#w <ͅ<͋<*B#G!E ®E>0E ³E>-3ÿET]))E寕iO>`G>0 E ȇE)Fyw# F~# F~#W #uF~#o>gxGҖFG4GwF#"mxFͱF*m!9G_>WObk++F~+Fy~#/g{ozg!hGHpGqGrGtGvG Conversion#}OD*m~G##~#fo‹G!GHGGGGG Free Space Exhausted##^#V#{_zWڍH{_zWڐG4zG{H##^#V# ##s#rs#r#s#r+++~sw#r####}*m}|҇H*{z҇H+F+N+V+5^{ڍH{zҍH}|ҍH{gHgHi`~sw#r##q#p i`N#F#^#V~ҍHq4#p+i`##s#rHNHN FREE Request Out-of-Range$ Free Space Overwrite$GKHMbkHͻJFͺJNͺJN#FͺJ^#V"2Oy21OxIi& =p4ͅ<+͝<.=#[<:=#*&=6?*=wͅ<=[ͅ<[<1=\=l2>$2>!~ 2>ͅ '>ͅ<#>x=G>ͅ<>ɯ*B+4>^#V<>#{#z4>6#6<> r+s!2mF#~ړ>!2m6P  ͡L ͡L!3m^r+s6 #6 !3m4^N*B|>}=°>c>ÿ>ͻ=ʻ>O>~>>>?N*B|>Yͻ==>y>͡L>>~?=?>?q2B*B/"BC>h?{M><>*B*B#:BOQ?<>#s#rZ?V>C>*?M>?<>r+s{y?!B4*B+>|ʈ?+}o<(<~2B(<"B9<:Bҗ@=?G:Bҗ@*Bp?4#6xBT<:B?͂?*B++"B?}+?͈?}|2B"BT<͂?"B1͂G|ʗ@##"B6*Bs#r<B{ B*B:Bw5@6X@*B"BxB*Bw#wxB<9(xB*B~" 4#4#4<9>:AxB<K8I IxI>;I!N{#z*N*N7LxyxGI͟I_!J^#VI͙I>(͛IyI>)͛I||I͎IcJ|ʈI͎IIJN>,͛I͙I> _áL ͡L áL0:ڛIÛIͩIéI͙I|ͷI}÷I IdI IIIxͩIN #~͛II!JI*m!9{_z)J{)J =J;J͙I>#͛I*m>=^#V#I=JTJ>: ^J>?͛I!JII>=͛I^#V|“J}ڊJ.))BKI#F>AOJ> #®J~ >.TJ~ TJ=ßJ^#V# File: Traceback:JJJKK K-K=K ERROR FIXED OVERFLOW OVERFLOW UNDERFLOW ZERO DIVIDE END OF FILE UNDEFINED FILE KEYNULCONCONRDRPUNLSTBADG!4O~ڊKoKN Condition Stack Overflow$4Ox!m w#s#r#s#r!9!5O s#r!4ON!m +++++K#{K#zK++~K++!4O5!~# KK!4ON!m +++++ L#~#/L+{*L#z/L++~ L#^#V=!N~͋L5:N_!N^#V"NN.~# ]L*N)))))N )| rL*N|}*UO"N:N*NNw# ˜L*UO{ ҲL ¶L!#"UOLCopyright (c) 1980 Digital Research, v1.3 !"m"m"m24O2N*m 9>:AxB*B~"A>xB+A͹CxB*B!*~!/2B*B|OA(^#VTqÌAN>#lA*B|A*~A=!BA:B?A¼AwãA@><9 xBxB"N#F#~(xBxB*~T!*B" s#r#w=xB*B }!m6 4>2m*m!4#4#4~#N#F#y#x#:m*m!!:mBBҰB:m~G~#~O?0C#~0C! p! y! q<4C<ͰBɯ~#N#F#w#q#pͧB͗B~^C#!!6C! 6?<ʙC= _!xڍC“CFNlCwxG>O>G!$q#p#6ûC"m"m2mx2m͗B2mͧB!m~5_DBD=,D:m,D*m<DͰB,D*m:mO*m:mDy O8D:mİB*mw# 2DͷB:mRD*m!BRD6C*m"mC:m/g.xwD}03|g}o kDxg.>Gx|g}oËD bGbGG!9!yDD)0D1bG# íDyD) DxDMox&9`iG!9!x>E 9E+ E'M"mq#p##}o"m*}o|-M'NN+w+w+r+s4w#w#s#r<2m++*ms#r"m*m#"m*mDM!mx~M#~+M+F+Nq#p*m+"mʑMM=«M!+~O~#~G!/xMyM >O6# M ʺM=ɯ ~#fo++iM!m~#N*m`MN=NNON  Insufficient Memory$ Invalid I/O List End of Execution$dNb bb SYSINSYSPRINT  ( (  ( ( ( ( ( ( ( ( ) ' /TBMEQSVH@#.-DI5NPAK_FL dBASE II ZIP: copyright 1982 Hal Pawluk. TERMINAL INSTALLATION 0. To install an unlisted terminal. 1. ADDS Viewpoint,Regent 12. INTERTEC SuperBrain, CompuStar ually 2 or more characters) * DIRECT CURSOR POSITIONING (often 4, 6 or more characters) * CURSOR ARROWS (usually 1 or 2 characters)You may enter up to 11 characters for each sequence, using any characters(printing or non-printing) except RETURN. ZIP will accept the charactersonly, not the ASCII codes or names for the characters. Use the translationchart in the ZIP manual to find the keys to press if your sequences aregiven as decimal or hexadecimal codes or ASCII names. To enter a control function, hold the control key down and press thecharacter key shown in the chart in the ZIP manual. To enter control-L,hold down the control key and press "L". To enter ESCAPE, type control-[or simply press the ESC key. If your arrow keys send single characters,enter a length of "1" and press the appropriate arrow key. On some terminals a single key (such as CLEAR or the ARROWS) may senda sequence of two or more characters. These must be entered one characterat a time rather than by pres2. ADM-31, Ampex Dialog 80 13. NEC 3. ADM-3, -5 14. SOROC 4. Apple (24 x 80) 15. TRS-80 II (Lifeboat) 5. Cromemco 3102 16. TRS-80 II (P & T) 6. HDS 108 17. Televideo 910, -12, -20 7. HP 80 Series 18. Televideo 925, -50 8. HP 2621, 125 19. Vector Graphics 9. Hazeltine 1500 20. Visual 100 10. Heath 89 21. Xerox 820 11. IBM 3101 22. SKIP to ZIP commands for previously installed terminal.If your terminal is listed, enter the number then .Enter 22 to change ZIP command defaults only.Enter 0 for the first installation of an unlisted terminal. 09Will install user-supplied sequences.fEnter C to CHANGE symbols, F if FINISHED.CcType C to CHANGE entry, any other key to continue. Type the symbol or number you want to change: az?Enter new value (0 - 127), then : Now type tsing the single key. First enter the lengthof the sequence, then enter the characters one at a time. Press any key to install the control sequences. (Use the carriage after entering the length of a sequence.)First, CLEAR SCREEN & HOME CURSOR, current value (Type "Y" if the screen cleared.Otherwise, press any key: YyNow the sequence to POSITION THE CURSOR, often like this on ASCII terminals Most terminals send the ROW and COLUMN values as single numbers, but some(e.g., HP125, VT100) send the digits individually. The value for ROW 20for example, would be sent as "2" then "0", rather than "20".Does this terminal send individual digits for positioning (Y or N)? Most terminals do NOT, so if you're not certain try "N".1N0For both types of addressing, enter a "0" at the positions in the sequenceswhere the and values go. For the sample at the top of thisscreen, the length would first be entered as "4", then "0" would be enteredwhen ZIP askshe replacement symbol or number: 1[]RESERVED--Enter alternate choice: ZIP: copyright 1982 Hal Pawluk : DISPLAY variable. : GET variable.[] : RESERVED for EMBEDDED COMMANDS : Command lead-in marker. : HELP during ZIP session. : Middle of line : Top of screen. : Bottom of screen. : Previous screen. : Next screen. : First screen. : Last screen. : Delete character. : Insert space. : Kill cursor line. : Add line at cursor. : Draw/Erase vertical line. : Draw/Erase horizontal line. : ERASE screen data. : SAVE screen, write .CMD/.FMT files. : QUIT to system. : Display this screen.The following values can also be changed dynamically while running ZIP: : Vertical marker. : Horizontal marker. : Tab spacing (1-9). : Margin sNPWsNPPP          We'll need the following control sequences for your terminal: * CLEAR SCREEN & HOME CURSOR (us you for characters 3 and 4.The current value is (ROW position is character number: 9COLUMN position is character number:  The current value of the OFFSET for the cursor positioning codes is: Do you want to change it (Y or N)? Enter new value (0-199), then : CURSOR UP, current value (CURSOR DOWN, current value (CURSOR RIGHT, current value (CURSOR LEFT, current value (Some terminals, like the Hazeltine 1500, needa short delay after the screen is cleared orthe first few dozen characters will not bedisplayed at the top of the screen.Most terminals do NOT need this delay, andZIP will run faster if the delay (about 45milliseconds) is not installed.Do you want to install the delay now? Does your keyboard have a BACKSPACE keythat erases characters (Y or N)? (Enter any key except "Y" if you do not wantyour backspace key to erase.) Please check the manual for your terminal.Your terminal may require a lead-in character that you over-looked when entering the sequence.Type C to CHANGE entry, any other key to conmmmll'm)m0m+mm'rvrrscssttttatttta t"t Invalid Format Itemttttttt Stream/Rectinue. Cc+e.eX`XX;eX@eKeX`ReX` Y  ;= *DCABYour terminal has been installed with the standard APPLE cursor controls: INSTALLED: YOU MAY PREFER: CURSOR RIGHT = ESC A control-D CURSOR LEFT = ESC B control-S CURSOR DOWN = ESC C control-X CURSOR UP = ESC D control-E"Cursor lock" does not work with ZIP, but you can speed up cursor movementby installing the control functions shown on the right. You'll find thatthe "diamond" arrangement is easier to use. The simplest way to install these is to type "F" at the end of thenext screen, then go through ZIPIN again, but this time choose the custominstallation sequence. ZIP will have installed the CLEAR SCREEN & HOME CURSOR and DIRECTCURSOR POSITIONING sequences, and you can skip by them using the carriagereturn. Install the control codes as described in the ZIP manual. Answer "NO" to the other questio'M"mq#p##}o"m*}o|-M'NN+w+w+r+s4w#w#s#r<2m++*ms#r"m*m#"m*mDM!mx~M#~+M+F+Nq#p*m+"mʑMM=«M!+~O~#~G!/xMyM >O6# M ʺM=ɯ ~#fo++iM!m~#N*m`MN=NNON  Insufficient Memory$ Invalid I/O List End of Execution$dNb bb SYSINSYSPRINT  ( (  ( ( ( ( ( ( ( ( ) ' /TBMEQSVH@#.-DI5NPAK_FL dBASE II ZIP: copyright 1982 Hal Pawluk. TERMINAL INSTALLATION 0. To install an unlisted terminal. 1. ADDS Viewpoint,Regent 12. INTERTEC SuperBrain, CompuStar ns about CURSOR POSITIONING, BACKSPACE,terminal DELAY, and terminal INITIALIZATION and TERMINATION sequences. Press any key to continue. E ?a <=>HJH&ay C&s1a&s0a~~ EHL  [; H  ESC  ). to leave it unchanged orEnter the sequence length (1-11), then : 09Okay, it is then.Character: RESERVED CHARACTER--try again.ESCaz1Type C to CHANGE entry, any other key to continue. Cc `k Ok hk kk tkukNvkxk Invalid Format Item 1}W1=e 0s'0W.0V500֟/l:l;l=l?lAl Stream/Record Sequen/Direct Input/Output Keyed Access P< $conllN{lClQl_lmlllll lllll llllllll.dat2. ADM-31, Ampex Dialog 80 13. NEC 3. ADM-3, -5 14. SOROC 4. Apple (24 x 80) 15. TRS-80 II (Lifeboat) 5. Cromemco 3102 16. TRS-80 II (P & T) 6. HDS 108 17. Televideo 910, -12, -20 7. HP 80 Series 18. Televideo 925, -50 8. HP 2621, 125 19. Vector Graphics 9. Hazeltine 1500 20. Visual 100 10. Heath 89 21. Xerox 820 11. IBM 3101 22. SKIP to ZIP commands for previously installed terminal.If your terminal is listed, enter the number then .Enter 22 to change ZIP command defaults only.Enter 0 for the first installation of an unlisted terminal. 09Will install user-supplied sequences.fEnter C to CHANGE symbols, F if FINISHED.CcType C to CHANGE entry, any other key to continue. Type the symbol or number you want to change: az?Enter new value (0 - 127), then : Now type t***** File SCREEN *** ******************************************************************************** * INVOICE NO. 000001 * * * * TO: FROM: * * NAME @NAME ASHTON-TATE * * ADDRESS @ADDRESS 9929 W. JEFFERSON BLVD. * * CITY @CITY CULVER CITY, CA 90230 * * STATE @STATE * * ZIPCODE @ZIPCODE * * * *==============================================================================* * QTY. |  ********************************************************************************* INVOICE NO. 000001 ** ** TO: FROM: ** NAME @NAME ASHTON-TATE ** ADDRESS @ADDRESS 9929 W. JEFFERSON BLVD. ** CITY @CITY CULVER CITY, CA 90230 ** STATE @STATE ** ZIPCODE @ZIPCODE ** **==============================================================================** QTY. | DESCRIPTION | DESCRIPTION | PRICE * *-------+------------------------------------------------------+---------------* * 1 | ZIP | $$$$$.00 * *-------+------------------------------------------------------+---------------* * | THE GREAT NEW SCREEN BUILDER FROM ASHTON-TATE | * *-------+------------------------------------------------------+---------------* * | TAX | $$.00 * *-------+------------------------------------------------------+---------------* * | TOTAL | $$,$$$.00 * ******************************************************************************** YOU ASKED FOR IT, YOU GOT IT. ===============================================================** QTY. | DESCRIPTION | PRICE **-------+------------------------------------------------------+---------------** 1 | ZIP | $$$$$.00 **-------+------------------------------------------------------+---------------** | THE GREAT NEW SCREEN BUILDER FROM ASHTON-TATE | **-------+------------------------------------------------------+---------------** | TAX | $$.00 **-------+------------------------------------------------------+---------------** | TOTAL | $$,$$$.00 ********************************************************************************* YOU ASKED FOR IT, YOU GOT IT.  Type the symbol or number you want to change: az?Enter new value (0 - 127), then : Now type the replacement symbol or number: 1[]RESERVED--Enter alternate choice: ZIP: copyright 1982 Hal Pawluk : DISPLAY variable. : GET variable.[] : RESERVED for EMBEDDED COMMANDS : Command lead-in marker. : HELP during ZIP session. : Middle of line : Top of screen. : Bottom of screen. : Previous screen. : Next screen. : First screen. : Last screen. : Delete character. : Insert space. : Kill cursor line. : Add line at cursor. : Draw/Erase vertical line. : Draw/Erase horizontal line. : ERASE screen data. : SAVE screen, write .CMD/.FMT files. : QUIT to system. : Display this screen.The following values can also be changed dynamically while running ZIP: : Vertical marker. : Horizontal marker. : Tab spacing (1-9). : Margin sNPWsNPPP          We'll need the following control sequences for your terminal: * CLEAR SCREEN & HOME CURSOR (usually 2 or more characters) * DIRECT CURSOR POSITIONING (often 4, 6 or more characters) * CURSOR ARROWS (usually 1 or 2 characters)You may enter up to 11 characters for each sequence, using any characters(printing or non-printing) except RETURN. ZIP will accept the charactersonly, not the ASCII codes or names for the characters. Use the translationchart in the ZIP manual to find the keys to press if your sequences aregiven as decimal or hexadecimal codes or ASCII names. To enter a control function, hold the control key down and press thecharacter key shown in the chart in the ZIP manual. To enter control-L,hold down the control key and press "L". To enter ESCAPE, type control-[or simply press the ESC key. If your arrow keys send single characters,enter a length of "1" and press the appropriate arrow key. On some terminals a single key (such as CLEAR or the ARROWS) may senda sequence of two or more characters. These must be entered one characterat a time rather than by presERASE @ 3,15 SAY 'You chose to list expenses by account #' @ 4,10 say '===============================================' @ 6,10 say 'For what time period?' STORE ' ' TO STARTMO STORE ' ' TO ENDMO STORE ' ' TO STARTYR STORE ' ' TO ENDYR STORE ' ' TO GOAHEAD STORE ' ' TO MACCOUNT @ 8,15 SAY 'Starting month ' GET STARTMO PICTURE '99' @ 9,15 SAY 'Ending month ' GET ENDMO PICTURE '99' @ 10,15 SAY 'Starting year ' GET STARTYR PICTURE '99' @ 11,15 SAY 'Ending year ' GET ENDYR PICTURE '99' @ 13,15 SAY 'Enter account number ' GET MACCOUNT PICTURE '999' @ 15,10 SAY 'When entries are confirmed, move cursor here' @ 16,10 say 'and hit any key to continue ' GET GOAHEAD READ @ 15,0 @ 16,0 USE B:LEDGER IF '&STARTYR'<'&ENDYR' COPY TO B:TEMP FOR $(DATE,7,2)>='&STARTYR' .AND.; $(DATE,7,2)<='&ENDYR' .AND. ($(DATE,1,2)>=; '&STARTMO' .sing the single key. First enter the lengthof the sequence, then enter the characters one at a time. Press any key to install the control sequences. (Use the carriage after entering the length of a sequence.)First, CLEAR SCREEN & HOME CURSOR, current value (Type "Y" if the screen cleared.Otherwise, press any key: YyNow the sequence to POSITION THE CURSOR, often like this on ASCII terminals Most terminals send the ROW and COLUMN values as single nu* * ADDRESS @ADDRESS 9929 W. JEFFERSON BLVD. * * CITY @CITY CULVER CITY, CA 90230 * * STATE @STATE * * ZIPCODE @ZIPCODE * * * *==============================================================================* * QTY. | AND. $(DATE,7,2)='&STARTYR') .OR.; ($(DATE,1,2)<='&ENDMO' .AND. $(DATE,7,2)='&ENDYR); .AND. ACCOUNT='&MACCOUNT' ELSE COPY TO B:TEMP FOR $(DATE,7,2)='&STARTYR' .AND.; $(DATE,1,2)>='&STARTMO' .AND. $(DATE,1,2)<='&ENDMO'; .AND. ACCOUNT='&MACCOUNT' ENDIF ERASE USE B:TEMP GOTO TOP STORE 6 TO L DO WHILE .NOT. EOF @ L,10 SAY DATE @ L,25 SAY NAME @ L+1,10 SAY AMOUNT @ L+1,25 SAY FOR STORE L+3 TO L SKIP ENDDO USE @ 23,10 SAY 'When through viewing, hit any key to continue.' WAIT ERASE STORE ' ' TO PRINT @ 10,10 SAY 'Enter "P" if you want to print the results.' @ 11,10 SAY 'Any other key will give you a screen display'; GET PRINT PICTURE '!' READ ERASE IF PRINT='P' @ 10,10 SAY 'When printer is ready, hit any key to continue' WAIT SET MARGI***************************************** *ACCOUNTS.CMD-MAIN MENU & DATA ENTRY FILE ***************************************** * * ERASE SET BELL OFF SET TALK OFF SET COLON OFF DO WHILE T @ 2,20 SAY 'ACTIONS YOU CAN TAKE' @ 3,10 SAY '============================================' @ 5,10 SAY '1. ENTER DATA INTO JOURNAL' @ 6,10 SAY '2. TOTAL EXPENSES FOR A SPECIFIED PERIOD' @ 7,10 SAY '3. TOTAL RECEIPTS FOR A SPECIFIED PERIOD' @ 8,10 SAY '4. TOTAL EXPENSES FOR A SPECIFIED ACCOUNT #' @ 9,10 SAY '0. RETURN TO DBASE DOT PROMPT' @ 10,10 SAY '5. EXIT TO CP/M OPERATING SYSTEM' @ 11,10 SAY '6. EDIT DATA IN THE FILE' @ 12,10 SAY '7. ACCOUNTS RECEIVABLE' @ 13,10 SAY '8. ACCOUNTS PAYABLE' @ 14,10 SAY '9. DELETE RECORD(S) IN THE FILE' @ 21,10 SAY 'ENTER CHOICE' ? WAIT TO CHOICE READ ERASE DO CASE CASE CHOICE='5' QUIT CASE CHOICE='1' STORE 'T' TO EXPENSE USE B:LEDGER DO WHILEN TO 5 ERASE SET FORMAT TO PRINT ENDIF @ 3,15 SAY 'Expenses for period'+'&startmo'+'/'+'&startyr'+; ' thru '+'&endmo'+'/'+'&endyr' @ 4,15 say 'For account #'+'&maccount' @ 5,10 say '===============================================' USE B:TEMP GOTO TOP STORE 6 TO L DO WHILE .NOT. EOF @ L,10 SAY DATE @ L,25 SAY NAME @ L+1,10 SAY AMOUNT @ L+1,25 SAY FOR STORE L+3 TO L SKIP ENDDO USE DELETE FILE B:TEMP IF PRINT='P' EJECT SET FORMAT TO SCREEN ENDIF IF PRINT<>'P' @ 23,10 SAY 'When through viewing, hit any key to return'; +' to Menu' ? WAIT ERASE ENDIF RETURNY!D4ͫ.>'YP>&:GK:YP9͋-ڝ[Y_:D>98Z7^%7dP9Z^%77P!_4 Z8uP^%Z_57PÀD EXPENSE='T' APPEND BLANK STORE ' ' TO GOAHEAD @ 2,15 SAY 'ENTER EXPENSE DATA' @ 3,10 SAY '=============================' @ 5,10 SAY 'DATE ' GET DATE PICTURE '99/99/99' @ 6,10 SAY 'NAME ' GET NAME @ 7,10 SAY 'AMOUNT ' GET AMOUNT PICTURE '9999.99' @ 8,10 SAY 'FOR ' GET FOR @ 9,10 SAY 'ACCOUNT # ' GET ACCOUNT PICTURE '999' @ 10,10 SAY 'INTEREST ' GET INTEREST PICTURE '9999.99' @ 11,10 SAY 'PAID ' GET PAID @ 12,10 SAY 'SUPPLIER ' GET SUPPLIER @ 13,10 SAY 'PAYDATE ' GET PAYDATE PICTURE '99/99/99' @ 15,10 SAY 'When all entries are confirmed, move cursor here' @ 16,10 say 'and hit any key to continue' GET GOAHEAD READ ERASE STORE ' ' TO ANS @ 10,10 SAY 'If you have other entries to make, enter "Y"' @ 11,10 say 'Any other key will return you to the menu.'; GET ANS PICTURE '!' READ ERASE IF ANS='Y' LOOP ENDIF STORE 'F' TO EXPENSE ENDDO USE CASE CHOICE='2' DO EXPTOT CASE CHOICE='3' DO RCPTTOT CASE CHOICE='4' DO ACCEXP CASE CHOICE='6' DO EDIT CASE CHOICE='7' DO ACCTRCVL CASE CHOICE='8' DO ACCTPYBL CASE CHOICE='9' DO DELETE CASE CHOICE='0' RETURN ENDCASE ENDDO ntinue.' WAIT ERASE STORE ' ' TO PRINT @ 10,10 SAY 'Enter "P" if you want to print the results.' @ 11,10 SAY 'Any other key will give you a screen display'; GET PRINT PICTURE '!' READ ERASE IF PRINT='P' @ 10,10 SAY 'When printer is ready, hit any key to continue' WAIT SET MARGIORMAT TO PRINT ENDIF @ 3,20 SAY 'Accounts Payable' @ 5,10 say '=============================================' USE B:TEMP GOTO TOP STORE 6 TO L DO WHILE .NOT. EOF @ L,10 SAY PAYDATE @ L,25 SAY NAME @ L+1,10 SAY AMOUNT @ L+1,25 SAY FOR STORE L+3 TO L SKIP ENDDO USE DELETE FILE B:TEMP IF PRINT='P' EJECT SET FORMAT TO SCREEN ENDIF IF PRINT<>'P' @ 23,10 SAY 'When through viewing, hit any key to return'; +' to Menu' ? WAIT ERASE ENDIF RETURNSAY 'When all entries are confirmed, move cursor here' @ 16,10 say 'and hit any key to continue' GET GOAHEAD READ ERASE STORE ' ' TO ANS @ 10,10 SAY 'If you have other entries to make, enter ERASE @ 3,15 SAY 'You chose to list accounts receivable' @ 4,10 SAY '=================================================' @ 6,10 SAY 'Hit any key to continue' WAIT ERASE USE B:LEDGER COPY TO B:TEMP FOR SUPPLIER='N' .AND. PAID='N' USE B:TEMP GOTO TOP STORE 6 TO L DO WHILE .NOT. EOF .AND. .NOT. * @ L,10 SAY PAYDATE @ L,25 SAY NAME @ L+1,10 SAY AMOUNT @ L+1,25 SAY FOR STORE L+3 TO L SKIP ENDDO USE @ 23,10 SAY 'When through viewing, hit any key to continue.' WAIT ERASE STORE ' ' TO PRINT @ 10,10 SAY 'Enter "P" if you want to print the results.' @ 11,10 SAY 'Any other key will give you a screen display'; GET PRINT PICTURE '!' READ ERASE IF PRINT='P' @ 10,10 SAY 'When printer is ready, hit any key to continue' WAIT SET MARGIN TO 5 ERASE ERASE @ 3,15 SAY 'You chose to list accounts payable' @ 4,10 SAY '===========================================' @ 6,10 SAY 'Hit any key to continue' WAIT ERASE USE B:LEDGER COPY TO B:TEMP FOR SUPPLIER='Y' .AND. PAID='N' USE B:TEMP GOTO TOP STORE 6 TO L DO WHILE .NOT. EOF .AND. .NOT. * @ L,10 SAY PAYDATE @ L,25 SAY NAME @ L+1,10 SAY AMOUNT @ L+1,25 SAY FOR STORE L+3 TO L SKIP ENDDO USE @ 23,10 SAY 'When through viewing, hit any key to continue.' WAIT ERASE STORE ' ' TO PRINT @ 10,10 SAY 'Enter "P" if you want to print the results.' @ 11,10 SAY 'Any other key will give you a screen display'; GET PRINT PICTURE '!' READ ERASE IF PRINT='P' @ 10,10 SAY 'When printer is ready, hit any key to continue' WAIT SET MARGIN TO 5 ERASE SET F SET FORMAT TO PRINT ENDIF @ 3,20 SAY 'Accounts Receivable' @ 5,10 say '=============================================' USE B:TEMP GOTO TOP STORE 6 TO L DO WHILE .NOT. EOF @ L,10 SAY PAYDATE @ L,25 SAY NAME @ L+1,10 SAY AMOUNT @ L+1,25 SAY FOR STORE L+3 TO L ENDDO USE DELETE FILE B:TEMP IF PRINT='P' EJECT SET FORMAT TO SCREEN ENDIF IF PRINT<>'P' @ 23,10 SAY 'When through viewing, hit any key to return'; +' to Menu' ? WAIT ERASE ENDIF RETURNve you a screen display'; GET PRINT PICTURE '!' READ ERASE IF PRINT='P' @ 10,10 SAY 'When printer is ready, hit any key to continue' WAIT SET MARGIN TO 5 ERASE SET F ARE PERMANATE!' ? WAIT TO TRIP ERASE IF !(TRIP)='Y' SET TALK ON PACK SET TALK OFF USE RELEASE STARTMO,ENDMO,STARTYR,ENDYR,TRIP LOOP ELSE RECALL USE RELEASE STARTMO,ENDMO,STARTYR,ENDYR,TRIP RETURN ENDIF ENDCASE ENDDO RETURN G:Ҏ>xʝʝw>ɯw̩z:»!>wɯ:=zxzz::G:=/ͽx:Āy!4 šn!6@G:x: P:<: P n6 t6! ^6 t6u:)<͠^!Ó*"r*r"ÿ<:g:!͐*f}D! ~6t!rͷַO(^ƷƷƷ  :Function = File = !,!"h!9"f! ͉:2t™:!=Hgo:O*;* USE RELEASE ANSWER,REPLY,TRIP LOOP ELSE RECALL USE RELEASE ANSWER,REPLY,TRIP RETURN ENDIF ENDIF ENDDO CASE OPTION='2' ERASE @ 3,15 SAY 'You chose to DELETE all records for a specified'; ' period' @ 4,10 say '================================================'; '==========' @ 6,10 SAY 'For what time period?' STORE ' ' TO STARTMO STORE ' ' TO ENDMO STORE ' ' TO STARTYR STORE ' ' TO ENDYR STORE ' ' TO GOAHEAD @ 8,15 SAY 'Starting month ' GET STARTMO PICTURE '99' @ 9,15 SAY 'Ending month ' GET ENDMO PICTURE '99' @ 10,15 SAY 'Starting year ' GET STARTYR PICTURE '99' @ 11,15 SAY 'Ending year ' GET ENDYR PICTURE '99' @ 15,10 SAY 'When entries are confirmed, move cursor here' @ 16,10 say 'and hit any key to continue ' GET GOAHEAD READ @ 15,0 @ 16,0 USE B:LEDGER IF '&STARTYR'<'&ENDYR' DELET FOR $(DATE,7,2)>='&STARTYR' .AND.; $(DATE,7,2)<='&ENDYR' .AND. ($(DATE,1,2)>=; '&STARTMO' .AND. $(DATE,7,2)='&STARTYR') .OR.; ($(DATE,1,2)<='&ENDMO' .AND. $(DATE,7,2)='&ENDYR) ELSE DELETE FOR $(DATE,7,2)='&STARTYR' .AND.; $(DATE,1,2)>='&STARTMO' .AND. $(DATE,1,2)<='&ENDMO' ENDIF ERASE @ 3,15 SAY 'YOU NOW HAVE RECORDS MARKED FOR DELETION' @ 4,10 SAY 'ARE YOU SURE YOU WANT TO DELETE THESE RECORDS' @ 6,35 SAY '( Y or N )' @ 8,20 SAY 'CAUTION! DELETIONSUSE B:LEDGER ERASE @ 3,15 SAY 'You chose to EDIT a record' @ 4,10 SAY '==================================================' @ 6,10 SAY 'You may exit the EDIT mode in three ways' @ 8,10 SAY '1. Hit RETURN when asked to enter record number.' @ 10,10 SAY '2. Use CONTROL Q to quit without saving changes.' @ 12,10 SAY '3. Use CONTROL W to save changes and quit.' @ 14,10 SAY 'Now, hit any key to begin.' @ 21, 0 WAIT EDIT ERASE USE RETURN DELETE FOR $(DATE,7,2)='&STARTYR' .AND.; $(DATE,1,2)>='&STARTMO' .AND. $(DATE,1,2)<='&ENDMO' ENDIF ERASE @ 3,15 SAY 'YOU NOW HAVE RECORDS MARKED FOR DELETION' @ 4,10 SAY 'ARE YOU SURE YOU WANT TO DELETE THESE RECORDS' @ 6,35 SAY '( Y or N )' @ 8,20 SAY 'CAUTION! DELETIONS FIELDS AMOUNT,ACCOUNT ELSE COPY TO B:TEMP FOR $(DATE,7,2)='&STARTYR' .AND.; $(DATE,1,2)>='&STARTMO' .AND. $(DATE,1,2)<='&ENDMO'; FIELDS AMOUNT,ACCOUNT ENDIF ERASE USE B:TEMP SUM AMOUNT TO TWO FOR ACCOUNT='200' SUM AMOUNT TO THREE FOR ACCOUNT='300' SUM AMOUNT TO FOUR FOR ACCOUNT='400' SUM AMOUNT TO FIVE FOR ACCOUNT='500' SUM AMOUNT TO SIX FOR ACCOUNT='600' SUM AMOUNT TO SEVEN FOR ACCOUNT='700' STORE TWO+THREE+FOUR+FIVE+SIX+SEVEN TO MTOTAL USE STORE ' ' TO PRINT @ 10,10 SAY 'Enter "P" if you want to print the results.' @ 11,10 SAY 'Any other key will give you a screen display'; GET PRINT PICTURE '!' READ ERASE IF PRINT='P' @ 10,10 SAY 'When printer is ready, hit any key to continue' WAIT SET MARGIN TO 5 ERASE SET FORMAT TO PRINT ENDIF @ 3,15 SAY 'Expenses for period'+'&startmo'+'/'+'&startyr'+; ' thru '+'&endmo'+'/'+'&endyr' @ 5,10 say '===============================================' @ 6,10 say ' Account # Amount $' @ 8,22 say '200 '+STR(TWO,7,2) @ 9,22 say '300 '+STR(THREE,7,2) @ 10,22 SAY '400 '+STR(FOUR,7,2) @ 11,22 SAY '500 '+STR(FIVE,7,2) @ 12,22 SAY '600 '+STR(SIX,7,2) @ 13,22 SAY '700 '+STR(SEVEN,7,2) @ 14,40 SAY '----------' @ 16,22 SAY 'Total expenses = $'+str(mtotal,9,2) DELETE FILE B:TEMP IF PRINT='P' EJECT SET FORMAT TO SCREEN ENDIF IF PRINT<>'P' @ 16,10 SAY 'When through viewing, hit any key to return'; +' to Menu' ? wait ERASE ENDIF RETURN ERASE @ 3,15 SAY 'You chose to list expences by account' @ 4,10 say '===============================================' @ 6,10 say 'For what time period?' STORE ' ' TO STARTMO STORE ' ' TO ENDMO STORE ' ' TO STARTYR STORE ' ' TO ENDYR STORE ' ' TO GOAHEAD @ 8,15 SAY 'Starting month ' GET STARTMO PICTURE '99' @ 9,15 SAY 'Ending month ' GET ENDMO PICTURE '99' @ 10,15 SAY 'Starting year ' GET STARTYR PICTURE '99' @ 11,15 SAY 'Ending year ' GET ENDYR PICTURE '99' @ 13,10 SAY 'When entries are confirmed, move cursor here' @ 14,10 say 'and hit any key to continue ' GET GOAHEAD READ @ 13,0 @ 14,0 USE B:LEDGER IF '&STARTYR'<'&ENDYR' COPY TO B:TEMP FOR $(DATE,7,2)>='&STARTYR' .AND.; $(DATE,7,2)<='&ENDYR' .AND. ($(DATE,1,2)>=; '&STARTMO' .AND. $(DATE,7,2)='&STARTYR') .OR.; ($(DATE,1,2)<='&ENDMO' .AND. $(DATE,7,2)='&ENDYR); a to the file." @ 7,20 SAY "(2) Edit data in the file." @ 8,20 SAY "(3) Display specified records." @ 9,20 SAY "(4) List all records." @ 10,20 SAY "(5) Search the database." @ 11,20 SAY "(6) Use another database." @ 12,20 SAY "(7) Run programs on drive &default:dr"+"." @ 13,20 SAY "(8) Change default drive." ? ACCEPT ' Enter your choice' TO CHOICE ERASE DO CASE CASE CHOICE='0' STORE ' ' TO CHOICE DO WHILE .NOT. CHOICE$('DO') STORE ' ' TO CHOICE @ 10,20 SAY 'Quit to (D)BASE or (O)perating System? '; GET CHOICE PICTURE '!' READ ENDDO STORE F TO MORE STORE F TO EVER IF CHOICE='D' CANCEL ELSE QUIT ENDIF CASE CHOICE=***************************************************************************** * *MAINTAIN.CMD * * This utility program allows maintenance on dBASE II files without * having to use dBASE II commands. * ***************************************************************************** * *01/23/86---B.D.Peralsky * SET TALK OFF STORE T TO START DO WHILE START STORE DATE() TO BEGIN STORE ' ' TO DEFAULT:DR ERASE @ 8,26 SAY "Enter today's date " GET BEGIN PICTURE "99/99/99" READ @ 20,0 IF $(BEGIN,1,2)<'01' .OR. $(BEGIN,1,2)>'12' .OR. $(BEGIN,4,2)<'01'; .OR. $(BEGIN,4,2)>'31' @ 20,15 SAY "month must be >=1 and <=12, Day>=1 and <=31 WAIT ELSE SET DATE TO &BEGIN STORE F TO START ENDIF ENDDO START *** Store list of drives on system to string variable 'drive:list' STORE "ABCD" TO DRIVE:LIST DO WHILE .NOT. DEFAULT:DR$(DR'1' SET ESCAPE OFF STORE T TO ENTERING DO WHILE ENTERING ERASE STORE ' ' TO MODE DO WHILE .NOT. MODE$('AIQ') STORE ' ' TO MODE @ 8,10 SAY '(A)ppend records (I)nsert resords'; +' (Q)uit to main menu ' GET MODE PICTURE '!' READ ENDDO .NOT. MODE$('AIQ') STORE (MODE<>'Q') TO ENTERING IF ENTERING @ 14,10 SAY 'To quit APPENDing records, hit RETURN for the first field.' @ 16,10 SAY 'You may also quit from APPEND or INSERT with CTRL Q.' @ 18,25 SAY 'Hit any key to begin...' @ 22,0 WAIT ENDIF ENTERING IF MODE='A' APPEND ELSE IF MODE='I' STORE 0 TO RNUMBER IVE:LIST) STORE 'B' TO DEFAULT:DR @ 10,19 SAY 'Identify the drive containing your files '; GET DEFAULT:DR PICTURE '!' READ ENDDO SET DEFAULT TO &DEFAULT:DR STORE T TO EVER DO WHILE EVER ERASE RESET ? " The following .DBF files are on this disk:" LIST FILES LIKE *.DBF ? ACCEPT 'Enter file name or hit ESCAPE to go to dot prompt ' TO USEFILE ? STORE TRIM(!(USEFILE)) TO USEFILE * If the user doesn't supply an extension, add .DBF. IF @('.',USEFILE)=0 STORE USEFILE+'.DBF' TO USEFILE ENDIF IF FILE('&USEFILE') USE &USEFILE STORE T TO MORE DO WHILE MORE GOTO BOTTOM STORE STR(#,5) TO LASTREC * Strip leading blanks DO WHILE $(LASTREC,1,1)=' ' STORE $(LASTREC,2,5) TO LASTREC ENDDO ERASE @ 3,8 SAY 'The databsae &usefile has &lastrec records. You may:' @ 5,20 SAY "(0) Quit." @ 6,20 SAY "(1) Add new dat @ 23,0 @ 22,10 SAY 'Insert new record after record'; +' number ' GET RNUMBER PICTURE '99999' READ IF RNUMBER>VAL(LASTREC) @ 22,0 @ 22,0 SAY 'Record out of range--hit any key...' WAIT ELSE STORE STR(RNUMBER,5,0) TO THERE GOTO &THERE INSERT ENDIF RNUMBER>VAL(LASTREC) ENDIF MODE='I' ENDIF MODE='A' GOTO BOTTOM STORE STR(#,5) TO LASTREC ENDDO ENTERING SET ESCAPE ON CASE CHOICE='2' ERASE @ 4,15 SAY 'You may exit the EDIT mode in three ways:' @ 6,15 SAY '1. Hit RETURN when prompted to enter '; re using is &usefile"+"." ? ? "The programs available on this drive are:" LIST FILES LIKE *.CMD ? ACCEPT "What program do you want to run " TO PROGRAM STORE !(PROGRAM) TO PROGRAM *** see if user supplied a file extension IF @('.',PROGRAM)=0 STORE PROGRAM+'.CMD' TO PROGRAM ENDIF IF FILE('&PROGRAM') DO &PROGRAM ELSE ? ? "Program not found." WAIT ENDIF FILE('&PROGRAM') ELSE ? "There are no programs available on this drive." WAIT ENDIF FILE('*.CMD') CASE CHOICE='8' STORE ' ' TO DEFAULT:DR DO WHILE .NOT. DEFAULT:DR$(DRIVE:LIST) STORE 'B' TO DEF +'record number' @ 8,15 SAY '2. Use CTRL Q to quit without saving changes.' @ 10,15 SAY '3. Use CTRL W to save changes and quit.' @ 13,22 SAY 'Now hit any key to begin...' @ 21,0 WAIT EDIT CASE CHOICE='3' ACCEPT "Do you want hard copy (Y)es (N)o " TO YESPRINT IF !(YESPRINT)='Y' SET PRINT ON ENDIF RELEASE YESPRINT ACCEPT 'At what record do you want to start the display '; TO DISREC STORE &DISREC TO DISREC GOTO DISREC STORE T TO RECDIS ? DO WHILE RECDIS DISPLAY NEXT 15 ? IF .NOT. EOF ACCEPT 'Display more? (Y)es (N)o ' TO YESSIR ? STORE !(YESSIR)='Y' TO RECDIS AULT:DR @ 10,19 SAY 'Identify the drive containing your files '; GET DEFAULT:DR PICTURE '!' READ ENDDO STORE F TO MORE SET DEFAULT TO &DEFAULT:DR CASE CHOICE='5' STORE T TO MOREFIND DO WHILE MOREFIND ERASE DISPLAY STRUCTURE ACCEPT "Enter field to be searched " TO FIELDCHS IF TYPE(&FIELDCHS)='N' INPUT "Enter lower limit of search " TO LOWLIMIT INPUT "Enter upper limit of search " TO UPRLIMIT STORE " &FIELDCHS>=LOWLIMIT .AND. +&FIELDCHS<=UPRLIMIT" TO FIELDCHS ELSE IF TYPE(&FIELDCHS)='C' ACCEPT "Enter lower limit of search " TO LOWLIMIT ACCEPT "Enter upper limit of search " TO UPRLIMIT STORE " !(&FI SKIP ELSE STORE F TO RECDIS ENDIF .NOT. EOF ENDDO RECDIS WAIT SET PRINT OFF RELEASE RECDIS RELEASE DISREC CASE CHOICE='4' ? ACCEPT "Do you want hard copy (Y)es (N)o " TO YESPRINT ? IF !(YESPRINT)='Y' SET PRINT ON ? CHR(15) ENDIF RELEASE YESPRINT LIST WAIT SET PRINT OFF CASE CHOICE='6' * This choice temporarily cancels the Main Menu loop * while you specify another database file. STORE F TO MORE CASE CHOICE='7' * MS-DOS users must substitute .PRG for .CMD throughout * this CASE. IF FILE('*.CMD') ERASE ? "The file you aELDCHS)>=!(LOWLIMIT) .AND. !(&FIELDCHS)<=!(UPRLIMIT)" TO FIELDCLS ELSE STORE ' ' TO UPRLIMIT ACCEPT "Is the value to be (T)rue or (F)alse " TO LOWLIMIT IF !(LOWLIMIT)='T' STORE " &FIELDCHS" TO FIELDCLS ELSE STORE " .NOT. &FIELDCHS " TO FIELDCLS ENDIF !(LOWLIMIT)='T' ENDIF TYPE(&FIELDCHS)='C' ENDIF TYPE(&FIELDCHS)='N' ACCEPT "Enter qualifier field (RETURN to skip) " TO QULFIELD IF QULFIELD>' ' IF TYPE(&QULFIELD)='N' INPUT "Enter lower limit of qualifier " TO LOWQUAL INPUT "Enter upper limit of qualifier " TO UPRQUAL STORE " .AND. &QULFIELD>=LOWQUAL .AND. &QULFIELD<=UPRQUAL" TO QUALCLS ELSE IF TYPE(&QULFIELD)='C' ",UPRLIMIT," Low = ",LOWLIMIT ? IF QULFIELD<>' ' ? "Qualifier = ",!(qulfield) ? "High = ",uprqual," Low = ",lowqual ? ENDIF IF TOTFIELD<>' ' ? "Field Totaled = ",!(totfield) ? " Total = ",fldtaly ? ENDIF IF !(TYPECHS)="L" ? "Listing for above qualifications:" ? LIST FOR &FIELDCLS &QUALCLS ? ELSE COUNT FOR &FIELDCLS &QUALCLS TO TALLY ? "Count = ",TALLY ? ENDIF !(TYPECHS)='L' SET PRINT OFF ? ACCEPT "More ? (Y/N) " TO GOFIND IF !(GOFIND)<>'Y' STORE F TO MOREFIND  ACCEPT "Enter lower limit of qualifier " TO LOWQUAL ACCEPT "Enter upper limit of qualifier " TO UPRQUAL STORE " .AND. !(&QULFIELD)>=!(LOWQUAL) .AND. !(&QULFIELD)<=!(UPRQUAL)" TO QUALCLS ELSE STORE ' ' TO UPRQUAL ACCEPT "Is the value to be (T)rue or (F)alse " TO LOWQUAL IF !(LOWQUAL)='T' STORE " .AND. &QULFIELD" TO QUALCLS ELSE STORE " .AND. .NOT. &QULFIELD" TO QUALCLS ENDIF !(LOWQUAL)='T' ENDIF TYPE(&QULFIELD)='C' ENDIF TYPE(&QULFIELD)='N' ELSE STORE ' ' TO QUALCLS STORE ' ' TO LOWQUAL STORE ' ' TO UPRQUAL ENDIF QULFIELD>' ' ACCEPT "Do you want to (L)ist or (C)ount " TO TYPECHS ACCEPT "Enter field to be to ENDIF !(GOFIND)<>'Y' RELEASE TALLY,GOFIND,FIELDCLS,QUALCLS,LOWLIMIT,; UPRLIMIT,LOWQUAL,UPRQUAL,FLDTALY,TOTFIELD,; FIELDCHS,QULFIELD,TYPECHS ENDDO MOREFIND RELEASE MOREFIND ENDCASE ENDDO MORE ELSE STORE T TO EVER ENDIF FILE('&USEFILE') ENDDO EVER RELEASE EVER,MORE  09/28/85S.P. Automotive 51.10auto repair/maintenence 600 09/24/85Maxwell Office Products 4.30rubber business stamp 300 09/21/85Travel Equip Sales 11.12misc 600 09/23/85Longs Drugs 24.83office supplies 300 09/24/85Maxwell Office Supplies 15.38office supplies 300 10/26/85Super Auto 43.43auto repair parts taled (RETURN to skip) " TO TOTFIELD IF TOTFIELD>' ' ? "Please wait---field is now being totaled" IF TYPE(&TOTFIELD)='N' SUM &TOTFIELD FOR &FIELDCLS &QUALCLS TO FLDTALY ELSE SUM VAL(&TOTFIELD) FOR &FIELDCLS &QUALCLS TO FLDTALY ENDIF TYPE(&TOTFIELD)='N' ELSE STORE ' ' TO FLDTALY ENDIF TOTFIELD>' ' ACCEPT "Do you want hard copy (Y)es (N)o " TO YESPRINT IF !(YESPRINT)='Y' ? "Set up printer (hit RETURN when ready)" WAIT SET PRINT ON ? CHR(15) ENDIF !(YESPRINT)='Y' ERASE @ 1,0 SAY "Request is now being processed, please wait..." ? ? "Field = ",!(FIELDCHS) ? "High = ERASE @ 3,15 SAY 'You chose to list receipts' @ 4,10 say '===============================================' @ 6,10 say 'For what time period?' STORE ' ' TO STARTMO STORE ' ' TO ENDMO STORE ' ' TO STARTYR STORE ' ' TO ENDYR STORE ' ' TO GOAHEAD @ 8,15 SAY 'Starting month ' GET STARTMO PICTURE '99' @ 9,15 SAY 'Ending month ' GET ENDMO PICTURE '99' @ 10,15 SAY 'Starting year ' GET STARTYR PICTURE '99' @ 11,15 SAY 'Ending year ' GET ENDYR PICTURE '99' @ 13,10 SAY 'When entries are confirmed, move cursor here' @ 14,10 say 'and hit any key to continue ' GET GOAHEAD READ @ 13,0 @ 14,0 USE B:LEDGER IF '&STARTYR'<'&ENDYR' COPY TO B:TEMP FOR $(DATE,7,2)>='&STARTYR' .AND.; $(DATE,7,2)<='&ENDYR' .AND. ($(DATE,1,2)>=; '&STARTMO' .AND. $(DATE,7,2)='&STARTYR') .OR.; ($(DATE,1,2)<='&ENDMO' .AND. $(DATE,7,2)='&ENDYR); FIELDS AMOUNT,ACCOUNT ELSE COPY TO B:TEMP FOR $(DATE,7,2)='&STARTYR' .AND.; $(DATE,1,2)>='&STARTMO' .AND. $(DATE,1,2)<='&ENDMO'; FIELDS AMOUNT,ACCOUNT ENDIF ERASE USE B:TEMP SUM AMOUNT TO ONE FOR ACCOUNT='100' USE STORE ' ' TO PRINT @ 10,10 SAY 'Enter "P" if you want to print the results.' @ 11,10 SAY 'Any other key will give you a screen display'; GET PRINT PICTURE '!' READ ERASE IF PRINT='P' @ 10,10 SAY 'When printer is ready, hit any key to continue' WAIT SET MARGIN TO 5 ERASE SET FORMAT TO PRINT ENDIF @ 3,15 SAY 'Receipts for period'+'&startmo'+'/'+'&startyr'+; ' thru '+'&endmo'+'/'+'&endyr' @ 5,10 say '===============================================' @ 6,10 say ' Account # Amount $' @ 8,22 say '100 '+STR(ONE,7,2) @ 9,40 SAY '----------' DELETE FILE B:TEMP IF PRINT='P' EJECT SET FORMAT TO SCREEN ENDIF IF PRINT<>'P' @ 16,10 SAY 'When through viewing, hit any key to return'; +' to Menu' ? wait ERASE ENDIF LOOPtaly ? ENDIF IF !(TYPECHS)="L" ? "Listing for above qualifications:" ? LIST FOR &FIELDCLS &QUALCLS ? ELSE COUNT FOR &FIELDCLS &QUALCLS TO TALLY ? "Count = ",TALLY ? ENDIF !(TYPECHS)='L' SET PRINT OFF ? ACCEPT "More ? (Y/N) " TO GOFIND IF !(GOFIND)<>'Y' STORE F TO MOREFIND   !!""##$$%%&&''