@R Ѝ  SLhDE B HI VHED VTUED    SՍDE BIH V  SxL}L BHILV䛛 ** Please wait **Serial # @L|}6CD l0C)HCC WhL/h `CmCDiD`  R@P1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD`BNDOS SYSB@AUTORUN SYSB4CBAS  D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L ! }D L(( LL()  L| L( S LH 0p n   } CY?  q  L L  ` ) } `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH)}  hyhyB q L> Lm JJ  Ln*` dB%'}8  H H` 1 { LL   !L     Hh SY?  q  1L}  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q%} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF &} G) *Gȩ GȽG GȌd q q G`  8   0G  `D'}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y(}`piH n0)բY? 08`0 )}  0$L GGȽG L `8L`L*}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiLE`+}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE,} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR-}1LJ舩9GIH`LJJ`HGHh l`.} S gL   8 rii `дCDCG W  /}C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}0}1 |||DDOS DOSDOS SYS }1}}1}4SS jj!2}CDOS SYS3} 0`BDELV !B 4}`LVUQ   ]   TU J ]L!T  #      TU 5} L ? .  t`GBJ V~DEHI B V0dV6}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh7}DEL8HI   0 HI,0 0  9 .G VLO8},0 L4*IJ`llD1:A*.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI9} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI:} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO ;}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -<}LLu DEHILV 9 .l 9 .l  `` s$B VBH=}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL>}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e?}1i1232435ޥ<<8}EiͩkΩ͙kCoppj`j0 {j`Hi͝Νh`A}L31,248EKOP:0,2.SOP:"NUR:0.RG:1,9224EKOP:501,6224EKOP:21,248EKOP"?:?:?:"SAB:D";)43($RHC;"DAOL"?:?:?:0,955EKOP:0.RGB}31,248EKOP:0,2.SOP:"NUR:0.RG:1,9224EKOP:501,6224EKOP:21,248EKOP"?:?:?:"SAB:D";)43($RHC;"DAOL"?:?:?:0,955EKOP:0.RG"#9FSTARPOADSTARDXR D} 1 A!-AA-1 E} A0SAVE "D:GONOSEC.BAS ! +@ A!#@06-F:A,&@@aa0,0,0,0,0,0,0,0,0,1,7,3F}1,127,135,3,1,1,1,1,1,3,3,3,6,6,12,12,8,24,16,16,32,32,64,64,128,128(6-@u7 +@ A8AG}<BByF6-AV$%A$PAY@bZB2w@d-%A'n x }H}A#@A@AA6B2H-%%@6%"  I}WW0,0,0,0,1,7,31,127,135,3,1,1,1,1,1,3,3,3,6,6,12,12,8,24,16,16,32,32,64,64,128,1286-AV$%A6-%%J}@1%"  JJ0,0,0,0,0,1,7,30,126,252,252,248,248,240,240,224,224,192,192,128,1286-AV$%K}A-%%@ % "  9A@'AA69AA6@@1,7,30,126L},252,252,248,248,240,240,224,224,192,192,128,1286-AV$%A"-%%@%$"' ) ,KM}B2H@e'B2I@s9B2P@dKB2Q@r1AA6@6jj55,49,50,51,52,53,5N}4,55,56,57,61,62,69,70,72,73,74,80,81,82,88,89,95,96,97,98,99,100,101,102,103,104;ee106,107,108,109,110,111,112,113,114,11O}5,117,118,119,120,121,122,123,124,125,126,128,129,136,137@gg54,50,51,52,53,54,55,56,57,58,62,63,68,69,73,74,75,80,81,88,89P},95,96,97,98,99,100,101,102,103,104Eee106,107,108,109,110,111,112,113,114,115,117,118,119,120,121,122,123,124,125,126,128,Q}129,136,137Jii29,50,51,57,58,63,64,67,68,73,74,75,80,81,87,88,89,90,95,99,100,104,106,107,117,118,128,129,136,137Obb27,R}50,51,57,58,64,65,66,67,73,74,76,80,81,87,88,89,90,99,100,106,107,117,118,128,129,136,137Tbb27,50,51,57,58,65,66,73,74,76,S}80,81,86,87,88,89,90,91,99,100,106,107,117,118,128,129,136,137Yll34,50,51,57,58,65,66,73,74,77,80,81,86,87,90,91,99,100,10T}6,107,108,109,110,117,118,128,129,130,131,132Z133,134,135,136,137^ll38,50,51,57,58,65,66,73,74,77,80,81,85,86,87,88,8U}9,90,91,92,99,100,106,107,108,109,110,117,118,128,129_%%130,131,132,133,134,135,136,137chh29,50,51,57,58,65,66,73,74,78V},80,81,85,86,87,88,89,90,91,92,99,100,106,107,117,118,128,129,136,137h\\25,50,51,57,58,65,66,73,74,78,80,81,85,86,91,92,99W},100,106,107,117,118,128,129,136,137m\\25,50,51,57,58,65,66,73,74,79,80,81,85,86,91,92,99,100,106,107,117,118,128,129,136,X}137rgg46,50,51,52,53,54,55,56,57,58,65,66,73,74,79,80,81,85,86,91,92,99,100,106,107,108,109,110,111,112sII113,114,115,1Y}17,118,119,120,121,122,123,124,125,126,128,129,136,137wkk51,49,50,51,52,53,54,55,56,57,65,66,73,74,80,81,84,85,86,87,90,91Z},92,93,98,99,100,101,106,107,108,109xUU110,111,112,113,114,115,117,118,119,120,121,122,123,124,125,126,128,129,136,137[}-@#@4"-@",  A%%6-F:A`,%AV$F:Aa,\}E%@@e.%@F:A`,E%@F:Aa,%@C@ %@U@0MM867,884]},45,105,99,114,111,115,111,102,116,119,97,114,101,0,41,110,99,142..1129,1136,48,114,101,115,101,110,116,115:-@^}@? "D -"% N P)6-F:@ ,)6-F:@,%@S A X77F:@,$A_}V%F:@ , $AV%A]A'A9AKA]B2w`} +@ A'6-A26-@R'6-A9A!A-A 9Aa}-@@ @ &-@@&(@oR(-@@((@tAib}-@@E-@@@+-@A @>:@F,E E-@@@+-c}@A(@>:AB,E E-@@@+-@A(@>:@,E -@@+(d}@>:@,=-@@S(@>:AB,e-@@{(@>:@F,-@@(@e}>:@,{-@@+(@>:@,=-@@S(@>:@F,e-@@{(@f}>:AB,+-@@+(@>:@,E-@@@+-@A @>:AB,E g} E-@@@+-@A(@>:@F,E E-@@@+-@A(@>:h}@,E AR@4 }4(%COPYRIGHT (C) 1982, BY CORTECHS CORP.$$  ALL RIGHTS RESERVED1i}(1 % INDEX 831212 -@@%'AA'A * A/'j}AA'A 0 A2'AA'A 3 A4 > A"6k}-F:@ ,&@F:@ ,A$L6-F:@ ,%@0Q!AU6-&AVVF:@ ,l}A[$6-%@ #A 0%-A6A"!% WW162,16,32,173,6,134,207,104,104,157,69m},3,104,157,68,3,169,4,157,74,3,169,3,157,66RR3,32,86,228,16,3,76,166,6,169,203,157,68,3,169,0,157,69,3,169,2,157,72,3,169n}XX0,157,73,3,169,7,157,66,3,32,86,228,16,6,192,136,240,92,208,96,169,255,197,203,208 XX4,197,204,240,210,169,205,157,6o}8,3,169,0,157,69,3,32,86,228,16,2,48,69,165,207,240\\14,165,203,141,224,2,165,204,141,225,2,169,0,133,207,165,203,157,68,p}3,165,204,157,69,3 XX165,205,56,229,203,157,72,3,165,206,229,204,157,73,3,254,72,3,208,3,254,73,3,32,86*[[228,16,137,19q}2,3,240,133,76,166,6,32,173,6,108,224,2,152,133,212,169,0,133,213,169,124157,66,3,32,86,228,96>$K +@ Ar}10@K0@--@@- @ WELCOME TO,-@@, s}@ HOME FILE)-@@ ) @WRITER!;@,!6. D:MENU.EXE6-?:A6DTD}jDDDD,D1D6D@DJETE^3Eh7EmMErYE^E^EvE{EE E EEF&F+&F0FF5LF:XF?cFXgF]gFb}FgFlFqFvF{GG9G=G=GAGhGlGGGGGGGH HH5HEH\HlHwH{HHHH}HHHHH2IRIrIIIII$J8JaJJJJJJK"K;KOKSKWKiKKKKKK}LMLLLLLLM'M3MYMZMkM|MMMMMMMMMMNNN NN&N0N7N}BN \N`NLnNVxN`NjNtN~NNNNNOO3O8OLO`OlO|OOOOO PPP #P'P3P(}?P2LP<mPFPPPZPdPnPxPQ(Q6QKQ[Q_QsQwQQQQQQQQR@ RE-RJ;RT]R^aRhlRr}}RwR|RRRRRRR,S:SLSXS\SjSxSSSSS4S>SCSHSMSR TpTu-Tz=TMT]T^T}^TsTTTTTTUU"U JU \U hU$ ~U& U. U8 U= UB UD UG UL VQ .VV =V[ TV` lVe }Vj Vl Vo Vq Vt} Vy W~ W 8W RW W W W W W W W X X BX NX hX X X X( X2 X< YF 0YP JYZ NY UY jY Y Y Y }Y Y Y Y Z &Z *Z LZ PZ" ^ZT bZY bZ^ }Zb Zc Zh Zr Zw Zx [| [ [ [ *[ +[ +[ U[ [ [ [ \ 4\ c}\ \ \ \ ] ] +] 3] 3] D] ] ] ] ] ] ] ] ] ^ &^ 8^ R^ X^ a^& m^' v^( ^) ^0 ^: ^D ^ ^} ^ ^ _ _ _ _ !_ !_ +_ 8_ B_ T_U_U_f_w_____ ``#`#`'`9`H`Q`]```}``"`h`r`|````aaaaa'aQayaaaaaaaaaabb(bBbXb}^bpbbbbbbbbbbccc)c:cRc`cxccccccccdd5dLdfPdgP}dhTdkZdlldmwdndodpdzdddee4e+mH+5mR+Gm\+`mf+pmp+mz+m+m+m+m+}n+ n+Vn+hn+n+n+n+n,n,n,n,n,n,o,o.o.o.2o.Eo/\o/qo&/o0o0o0o2o2o2,p2Lp2p2p27q}2Uq2{q2q20r2>r2gr2r2,s2rs3s 3Ft3t3t3t3u3Vu"3u'3u,3 v132v63v;3v@3ZwB3wE3w6w6w6x6x6x6y}6qy6y6y6z:z:zhBzrBz|BzB%zB8zBUzBmzBzBzBzBzBz0uz:uzDuzNu{Xu {bu{lu0{vu>{uN{u_{u{u{u{u}{u{u{u|y|y/|?|}'**A} R 3 33""Your choices are as follows:"Ed}it Screen ...............E"Change Screen .............C "Load Screen ...............L "Save Sc}reen ...............S"Exit to Main Menu..........X" Enter your choice/press A#A,*}AEAe TDACAc jDALAl D *dASAs DAXAx D4}K:7Ay*A6ADAA AAAZEhAaAzEhAA3Er6A}A"A-AA64+ 333R"____________________" CODEWRITER"}SCREEN EDITOR"____________________+" PRESS START "TO"CONTINUE "____}________________y*AAcF+5 333"____________________"NO SCREE}N IN MEMORY "____________________" PRESS START "TO "CONTINUE "___________}_________0AAB*"BD*B B GAAA2GBA B( }BBGB.5GB*BGBB.5GAB( B*B/5HB#5B}$5 5HB.5EHAB( BAB( AB( B AB(*BHBH*A}B( B AB(AB(*BBNUMERICAB$5HBBDOLLAR$AAB( BAB( AB(} 2IBAB( BBA B("BAaI%B BB UI$"B%B(B%BBE5-BUI%+BB B} .B""BD"FIELD#A, LEN=AB(, TYPE: BD"%[K] KEYED, [P] PROG CAL, [G] GR. TOT.%B}%B8J%B"y*B6BBaJBB Bk5BK5 J%BBp5BP5 J%}B Bg5BG5 J%BB%B J%BJAB(B%B KAB(B%B"KA}B(B+BB B .B"(BB BF**%B BAB( *BK%B%B%BK(B} B%B BF../../..9KBAB( BAB(AB(*"BDBL"Error - no }input fieldBML"Error - no label for fieldBL"Error - incorrect date formatBL}"Error - numeric field too longBL"#Error - over fifty fields in record*+* B B+B+B}+B('M+B.B.B.B3MP+*(B BB-BBYM(B B B++B'kMB++B.B"B61BB}1BM1BB +B.B"1B++B.B* B(B BB-B+"BD"A fields accepted}+2*K:7E:73ABN(B A(BpB(B(BDBL"(BDRS'4B7B}`?y*A6ANAA A A N`A}NA7BT:B4B4BU}7BO7B7BO7B4B'3O4B&:B ""7B "4B 4B7B"`}A4B7B"(ROW: COL: "7B "4B " H}it for options4B7B"`=BA"BD"Press for Next"}Press to begin"=BP =BP=BP A}PAAQxAA(QA6QAKQ=B=B=B[Q=BF=BLL}L..*B Q@AA4B+B7B.B4B&Q4B&"Hit to continue.y*B6BQ}"BD"44d@B!RBAR$B;RTBB(BB(]R@BR%@BlR}rA44d"You have defined no K.E. fieldsA.BARX*d6* 33}3"(BD"( Cursor Pos. ROW:1 COL:1 for menuCBT * *4K:7y*A6p*A}jS4AxSHAS4ASHASAS | *CBCB CBSCBAAT *} *| *CBCBCBA TCBAT * *A--TAA==TAA+MTAA*]TA}+"BAFB4B7B"BCB B( ( ([B(BBEACB B(CBB(R$IB[BBB E5IBIBIBTIB}IB FBFB"BFBIB-BIB-R%(BCB B(CBB(BDC"7B "4B 4B7B"}"BDy*A6AA ~U +B4B.B7B%B Bp*AA UB AA Uj AA}U.B.B %B%B( AV.B.B%B%B(.B.B .V *@B=VB 4B7B"BFB}F4B+B7B.B B%B4B7B""BDAAV%B%B B%BAV%B%BB%BFB %B}7B(%BFB(7B V (BBE5 W  *@B W A8W%B@B B(FB ARW%B@B}B(%B7B(%BFB(7B Wy +B4B%B B V @BAR$BCBW %BB}B(B B(%BFB W@BBR%+AXZ "B%F"%Do you want to reorder your fields? y}*A6AY5Ay5 hX AN5An5 X4d XLBAX$OBLBB(BLBB(.B}LB B(+BLBB(RBLBRBRB RB YRB B(.B Y *2 RBRBRBB(+BRB B(.BRBB(OBR}BB(BX%4dRBB(RBB(RBB(RBB(RBB(RBB(RB B(RB B(A+FB R}$IB"BBE5IBIBIBYIBIB (B BB BB IB-C4BB 7B"IB-R%CB B( BC}BB( BFB T *A^Z  BCB B(7B B ( 4B B7B(  " " "7B}"4BIB(B BE5IBIBIBZIBIB 4B7B"IB-+IB(B BE54B7B"IB-+BAC}BB(U[BLABELAUB CBB([BDATEAUBCBB( CBB([BNUMERICAUBCBB( CB}B([BDOLLARAUBCBB( CBB(\BPROG CALAUBCBB( CBB(4\BPROG CALAUBCBB}( CBB(c\B GRAND TOTAUBCBB( CBB(\B GRAND TOTAUBCBB( BACBB(\B}ALPHAAUBCBB( "XBD" #CB =BD =UB+ THIS IS AN ILLEGAL CO}PYy*  3 3"(堠@"Enter screen file name} +B.BOB0u*[BD=]+[BD=] hB*@B]  *sBB(]*^BaBDAf*dB^*[BA+sB}B(4^BD7(B A(BpB(B(BDBAAHIAX$gBHIjBHImBHIpBHILB B(gB}LBB(jBLBB(mBLBB(pBX%(B A(BpB(B(BDBAX$"BGAI(BLB B(LBB("BDCX%4}A+aBD : AaBsBWCaB[BDBaBaBD/.SCRB+Af_X*d 33"(}堠@"Enter screen file name +B.BOB0u*[BD=_d[BD= `hB*@B}` **?4aBD7@?sBB(AAX$gBLB B(jBLBB(mBLBB(pBLBB(}gBjBmBpBX%`CBA`$"B(BCB B(CBB(FA"BD`%4Ad*}SAA 'a 33"HAVE YOU" SAVED YOUR" SCREEN? Y/N4K:7}y*A6AYAy aANAn ad'   33"PLACE" CODEWRITER "}IN "DRIVE #yB "PRESS " WHEN READYy*pby*b+ }  33"REMOVE" CODEWRITER"FROM "DRIVE #yB "PRESS "} WHEN READY 3  3"PLACE" PROGRAM DISK "IN "DRIVE #sB "}PRESS " WHEN READY   33" SCREEN FILE [BD/ "[BD" NOT FOUN}D ON "DRIVE #sB "PRESS " TO CONTINUEl?dB4^BD7@?dBTdB}dB4+(|B@'B@'XB@OB@vB@aB@(B@|B(Row: Col: AB Press f}or OPTIONSAB.AB(BBBDBB ABOBBBDBXBBDAB&B(B(sBB(yBB( +)"B@(}B@([B@r(B@^B@2 B&2B&2B&2B&(B@)B@ B@: e k  e g }e yBsBf+*p* 3 3 3""You} have the following options:" S.........Create a screen layout" A..........Create an application "} F............Format a blank disk"CTo create a screen format [] you must have a formatted disk ready"}LTo create an application [] you must already have created a screen format"with selection ." Enter y}our choice/press A!B(*IB%hIBIB IB`IB{BhIBIB IBA\hBB:*IBS}yhBB4 IBFh(F(4K:7y*A6IBAAB"A-A6AhIBA}(4+ B33& TO RESTART FOR MENU! TO BEGIN FORMATTI}NG"____________________" DISK FORMAT"UTILITY"____________________yBsBiJ)}"REMOVE CODEWRITER"DISK FROM DRIVE yB "PLACE DISK TO BE "FORMATTED IN DRIVE sB}y*AABj)Aj'Aj(Ajr)r)^BD :A^BsBWC0? "}FORMATTING DISK^BD7B "FINISHED FORMATTINGh) *}[BD=9k'4K:7}3 3R"(BD"(________________________________________"Is this your screen file?y*}A6AYAy k*ANAn l:**aBD/lBaBD/l$BaBBE5l%yBB(}Sl*^B D :MARKER.EXEA^ByBWCyBB(f*dBl*yBB( B(B(.*^B D:CODEGEN}.EXEA%B^BD.J DISK ERROR %BS' 333"____________________"SYSTE }M" CONFIGURATION"MENU"____________________ " NUMBER OF " DRIVES = - } "____________________" DEFAULT IS"1 DRIVE; HIT NUMBER FOR DRIVES (1/2) OR  } TO CONTINUEy*hn+yBsByB4K:7yByBBAA }n+Bn,*++BB n+ B sBy*B6 "B -+  3 3 3" }LOADING " APPLICATION  " GENERATOR! Please Wait+ "ERROR #} ^)R}T This option allows you to create or edit field types. Use the arrows to move the }cursor around the screen._Use the backspace key to move the cursor backwards on the same line, the key to move to} Dthe next line, and the tab key to move quickly across the screen., Prompts must be in the the following f}orm :  address ..........F You may leave any number of spaces bet}ween the prompt and the dots.cFor computed fields, the number of dots specifies the maximum value that may be enter}ed in the field."Press to continue. :*}S When you are finished, press the key. }You then press to read the screen.Z You are asked whether each numeric and dollar field is entered from the k}eyboard , ? calculated by the program , or summed as a grand total .a A label is a word or phrase not } connected with data. You may specify a label by typing it cin reverse video.This can be achieved by pressing the A}tari Logo key before typing in the label._ Remember to press the Atari Logo key again before entering a prompt} to deactivate the  reverse mode. ӠӠ"Press to continue. :*}A } If you wish you may make a field one of three special types.= To indicate a number field, insert a '#' for th}e last dot. For example: QUANTITY ....#= To indicate a dollar field, insert a '$' for the last dot.} For example: PRICE .....$S The '#' and '$' are included in the length count for keyboard entered fiel}ds.b Program calculated fields and grand total fields must be defined using numeric or dollar data types.}K To indicate a date field, enter '../../..' instead of the usual dots. For example: DATE ../../.."}Press to continue. :*R+R}X This option will allow you move the fields around the scree}n to customize your layout.d To move from field to field, use the arrow keys. When you have reached the field to be } moved, "press to select that field.S Now you may use the arrow keys to move the selected field aro!}und the screen.\ Fields are not allowed to overlap, so when you are moving the field it automatically ski"}ps over the other fields.9 At any point you may press to return to the menu."Press to cont#}inue. :*R+y*z:+[BD=%z+@B[BD/X$B[BLBE5B0Uz@BB9BAmz@BBZ$}Baz@BBzz@BB`B{zBB [BLBLBB-CX%[BD5A[BD5Z z@B+[BAF%}BOB {lu+B.B"BOBF+B.B"K:7vu?y*B6B_{[BABB&} {4@?+B~FB{uB Bz OBFB {vuFBFB[BFBB-BB-vu[BFBB'}FBFB .vuB B/|+BB+&6B_{[BABB\& D=7UJ&&K&L&ʩ * d5I&&&© 1 -L*I&˜ ' 4&0& 1&& *L )}*& & 1 -& & 1 - - *`RUNTIME ERROR AT LINE &&Lr*+ +L&` ' *}& &L&PROGRAM STOPPED&&Ńł ȱ`iL'HH 1*L/ r* . 1 + '. . . +}1 . ' 1 + . 'hhL.ʥ`HHhh`8L'u ,}`Huh` Lr*L' Lr*L' ) . ( . ' r* .Lo* ) -} . ' , ( . ' + ' r* ' + 1 , . o*Lr* ) ' ' , ( . ' + ' r* ' + .}1 , . (( . o*Lo* ' 1* '.L/` ) r* .L. ) . . + ' . ' ,L' ) ' , /} ' . + 'L'J&K&L& ) 1 1,L&eJ&iK&`L&8LM& . '. 0}L&`ʔȱȱȱ 1*Șe惠 惨6,*6-* L*HHhh`` 1}`Lo*ʱ` ** &JL&J *HHl JLw TO BOOT FOR DOS 2} TO RERUNp B V8+` +ȱLr*&&8558凅刐SJj)ee`ф 3}фiiL#+8L#+ LM&uuuLr*8` +Lr*iLr*豂Hȱ 4}h`p +Lr*+H+ BHI+ 4 -h`8` ,L, ,#` ,0 ,0L, ,0 5}` ,0L,L,`޵` `Ȕ`ʔ惥u` 6}+ BHI DEH 4 -HyhLo* + -`+JJJJ`d-+e- +- c-0 c-Lr* J-Lr* 7}` f-H J-h 0 c-`L+8 0ƅ`66&Ln-HH` B VhH)Kh)0 IJD-EB 4hLr*S:+Lr* 8}TUVLo* -`++L+ -8ɰɅ +`ʱȱȱ`ȵȵLr*Lr* '. . .ʥ 9} . . '. .L3 '. . . . 1*uȱuȱu W* 1* .0 @,L3 ȱLr* T,L.ʵ :}`eeLM&HHhh`ؐHH 1*L/ r*HH . .6 +i i ;} .i i .hh . . 'hh .`HH 1*% r*HH 1L'/ 1* '. LM& .6 + <}. +` 1* '.ޠ . 1 +L/  o*Lr*H+ B Vh` ҵ  o*Lo*H+BHI 4+h+L1 g =}0+KJBD0EH 4h o*Lr* r* '.0Ɔ򩛙0` -H`B 4h`00 >}L1Lr*Lr* +`H o*hL11HH eHHƆeiH '.lꦆ 1Օ`0  ?}L,`8`|1rd-1e- (- 10|1L1|10|1`1 r* '.1 1`+6-1L180 @}1LM& + 1 . 1 1 ++ 1 +Ɔʭ1 +`ʕ`66`HHH66666u A}uuhhhLr* +愵 ' + 'I 1 280/66&&&` B}uuu` 2 2Ј 2 o* +`@32@2 .22222 LM&ȥ2i C}223`L*32 3`LM&2@82ƅ3 ȱ222` w3L?33L?3H3 2h` D}1+ %  88L3 o* o*` o* o*`  o* o*` 3$' 3"0 E}30 !4L, 4L, 4L,L1L14 1 '. .4444`H+? ++HI4D44E4B 4H F}4h` VLM&4` D44 14α44 1L4 D44LM&44, α44ﭯ4 148e44α4 G}11L1  'Lr*hh iLr* (5L2 (5L*42&&ȱ0 5Lw5 555& H}& L5&&`i`J&&K&L&` +ȱ&&%8e慱HȱhױL& I}iJ&iK&Lr*+ BH Vh 1LW*+&BH 4hN 1 W*L 1MLW*+%BNLMH 4hLo*)}*1*N J}*W*v*11+,J2+,a,s,@,/,T,9,H,),**++++,,-------6.c./x///2:3}10000)///0090.444(4!4440&D'@( K}f(()))V)4440T5\5A1+1d5355&(6@6j6S1 D D DDD#D(:D-hD2lD7D<DZDdDiDkDnDoDpDrDtE L}E EETEWEWEEEEEEE F%F>FNF pFFF&FNFSFXF]FbFg4Gl@GXGGGG M}GG HH*H3HFHfHjHnHnHHHHHHHHHHHHH I@IVIvIyIIII N}IJ-J `JJJ J%J*J/J4J9K>8KCwKHKMKRKWFL\\LaLfLkMp4MuMzMM NNpNNN3O O}OOOPAPlPPPEQQQQ.RjR~RRRRRRS S S@SeSSS$S)S.S3T8 P}%T=CTBiTDTFTLTVTT*UTUfUfUfUUUUUUUV-VVV~VVVVV+W/W/WZC*[W; R}[\S[fp[w[z[[[[[ [ [ \$ <\. M\ N\ N\ S\ \ \ \@ ]J A]K]K]p]]]]]]] ^ S}^4^N^i^^^^_._D_o______ __`R`l`"`'`,`1`6+a;/a@3ah7ar7a|Ia T}Ma\a`ahavaaaaaaaaab#b0.b5.b:3bDcbNbXb]bbbg#ciPcjrclcncocpcqcv U}cc d"d&d@dWdddde+eVeeeef-fXffffff (g,g Cg*}g4g>g\gf V}gpgzggh+h=hGhQh[h$eh.h8hBhLhiiii i$i$iTiTi`ifiyiiii ii W}j j#Oj(uj-j2j<jAjF'kP=kZYkdgkizkj~knkkkll7lglllllll mmKmZm X}nmmmmmnn,nkn znnnnnn"n,n@%oJ4oT>o^Ioh_ormowo|ooop)pD8pN8pX Y}Rp]hpbwplpvpppp ppppzpdqnqx&q?qXqqqyqqqqqqqr,rErsrrr Z}r#s"Ms,UsX`s`sjsssss%tDt OtOt*St4ct>tHtRt\uf7uzUu{uuuuuuuvv [}(v=vMv^vivtvtvtvv$v.v8v=vBvLvVv`we wjwt?w~rwww x8x~xxxx@xJxT \}y^ yhyrFy||yyyyyyz7z;zJz\ztz|z z z z: zD zN z4! {>! {H!*{R!e{\!{f!{p!!|z!Q|! ]}|!|!|!|! }! }!J}!b}!u}!}!}!}!}! ~" ~(#T~2#T~<#b~F#z~Z#~d#~n#x#9#o######E#{# ^}###O###$$$G"$,$6$Â;$@$7$x%x&%''$'.'8'B'ÃL'σ`'j't'*~':'T'x* _}+ +*+>>>΄>>>> >?>W>o>>>>>?υ ?????# ?+*?74?[>?H?R?͆\?f `}?p?z?????+?X?o?hBjBmBwBH|BBB3BaB}B͉BB8BBBPFRFUFZF`_FʋdF,fF a}MiFnF܌pF sF9xFE}FcFFF獑FFC(CCD/   520 POSITION }} C,5:PRINT=CDCCD=CD525 POSITION 10,7:PRINT=CDYour selections are:=CDC CC POSIT ~}ION 2,C:PRINT=CD$File preparation.(first time only).F=CDCCCCC POSITION 2,C:PR }INT=CD$Enter new records..................E=CDCCCCC POSITION 2,C:PRINT=CD$Lookup } records.....................L=CDCCCCC POSITION 2,C:PRINT=CD$Search records......... }............S=CDCCCCC POSITION 2,C:PRINT=CD$Update records.....................U=C }DCCCCC POSITION 2,C:PRINT=CD$Delete records.....................D=CDCCC }CCNC POSITION 2,C:PRINT=CD$Verify global totals...............V=CDCCCC }C POSITION 2,C:PRINT=CD$Exit program.......................X=CDCPOSITION 2,19 :PRI }NT=CD$Enter function by pressing the key =CDC POSITION 2,21 :PRINT=CD" To return to this menu press }=CDCDCDCIC=37:IR=19:DF=27:GOSUB 30900CCCIF R$=XCD OR R$=CHR$(27) THEN C }CCCIF R$==CDF=CD THEN 1000:REM FILE PREPC IF NR=0 THEN 600CCC }IF R$==CDE=CD THEN 2000:REM ENTER DATACCCIF R$==CDL=CD THEN 11000:REM LOOKUP DATA }CCCIF R$==CDS=CD THEN 12000:REM SEARCH DATACCCIF R$==CDU=CD THEN 130 }00:REM UPDATE DATACCCIF R$==CDD=CD THEN 14000:REM DELETE DATACCCQC }IF R$==CDV=CD THEN 15000:REM VERIFY DATACC 600 IF R$==CDX=CD THEN 700:REM EXIT PROGRAM }605 GOTOC 700 GR. 0:END}- ";Will data be on the same disk as the program ?d*: }CR4C:CS4C*}- "You have room for a maximum of %C "records in your data file }. "$Please enter total number of records "you want in the file ? CC C0u*CCD0;CCD:: S }CCD,CCD,%C S%CCCD,1 REM MAX RECORDS=%C2 REM FILE LENGTH=1C3 REM FILE NAME=FC }FCD/ F4 CLR :REM SET UP DIM ARRAYS6 ML=2:GOSUB 31000:POKE 752,18 PRINT CHR$(125);=CD Running... } 10 GOSUB 904CT'220 GOSUB 21100:REM CHANGE DISK MESSAGE#230 GOSUB 21500:IF NOT ERR THEN 220 } 40 GOTO 500C{UC+CoU$CsC(UCoU% C& sF$C1,gCC(CsF%U#31,28,31, }30,31,30,31,31,30,31,30,31C U}-"Do you wish to enter dates in "merican format : mm/dd/yy } or "uropean format : dd/mm/yy ?CC C 0u*Hq*CCDA9CCDE9VCCCD5+85 DATA 31,28,31 },30,31,30,31,31,30,31,30,31990 DIM MT(12):RES. 85:FOR I=1 TO 12:READ X:MT(I)=X:NEXT I90 REM}-  " }Please wait working ...100 REM DIM STATEMENTS95 NF=+C:MX=%C:NG=C:RL=C-105 DIM I }NDEX$(MX*8+3),KEYWORD$(40),LINE$(20)110 BUF=99:DIM LABEL$(|C),SP(+C),TYPE(+C),LRG$(40),SML$(40) }115 DIM INFILE$(C ),OUTFILE$(C),PO(+C),PC(+C),PR(+C),PRT$(40),R$(40)/118 D }IM DOT$(40),BLANK$(40),TI$(BUF),GLOBAL(NG)C<FCAC+CoU$CsC(CsC( 4YCCoU%16 }000 REM GLOBAL ADJUSTMENTS16900 RETURN:REM END GLOBALSCY33 3)} }󠠠+CoU$CsC(CsC( YzICCCvC(CvC( FA)} }䠠"# Enter the field to accumulate in"ICD." Please enter 1 to +C }or 'l' to"list fields. F..CCCCCA0u*CCDL=CCDl= >*CCD/*[*?CC }CD,@?CC+C S[CsC(p[C * CsC([C * CC*CC*oU%FCD/ }[FCDC@? **FCD/CW/'[FCDFCACC FCD9\FCFCD/,BFCD=<\FCCWAFCF }CD/ DATA BFCFCD/CWB+ "C \& C\$You must enter a num }eric value. C\"Error - non numeric field entered.C]!Error - grand total field entered " }Hit to continue.:C*+18000 REM PC CALCS AND GLOBALS18001 TRAP 1825218252 REM CALC P.C.'S }18800 GOSUB 16000:RETURNC+CoU$CsC(CsC( ]CCoU%C ^hB*+CC&+C }sF$gCC(sF%R333]^C+CQ^$CsC(CsC(^')} }䠠"Enter the formula for program"calculated field C."CCvC( }CvC( F"FC="[L] and [RETURN] to list fieldsC#CC0u*CCD=CCD= _ }Hq*CCD?=_hB*CCDL=CCDl= _C>*Ch*C_CJGCC FC=CC }CCD/ FC IC=FC:IL=C.C(:GOSUB CsC(l`22400CsC(`22300 :INFILE }$(CyC(,CyC( )=PRT$Q^%+CsF$gCC( `6PFgC FgC =VAL(INFILE$(gCyC( },gCyC( ))sF%@?CCC0*CCCCD/-B*Cha+CvaCaCC }CC aC0*+*Ca+CaCC aC0*+CaCC CC }bC0*+C#b+C0*+ "Ccb +Cb Syntax ErrorC }bMismatched ParenthesesCbBad character or functionCbNon numeric field in formulaC }#cError - Global FieldCPcError - Undefined P.C. Field "Hit to continue.@ ( }C\:C*@ (C "  " @?+C }CgCCCCgCgCF ="d?CCgCgCF-=@dC+CCgCgCFF=Wd\CCgCgCF+=CCgCgCF-=  }dC+CCgCgCF*=CCgCgCF/= CCgCgCF^= dC+CCgCgCF0:CCgCgCF98CCgCgCF.= d }CCgCgCF)=eC+CCgCgCF(=+eC+CCgCgCFINT(=VeCCC+CCgCgCFSQR(=eC }CC+CCgCgCFABS(=eCCC+CCgCgCFEXP(=eCCC+CCgCgCFLOG(=f }CCC+CCgCgCFSIN(=-fCCC+CCgCgCFCOS(=XfCCC+CCgCgCFATN(= }fCCC+CCgCgCFSGN(=fCCC+CCgCgCFCLOG(=fCCC+C0gCgC }CCgCgCF0:CCgCgCF98CCgCgCF.= (g>?CCgCgCFE9Cg4gCgCCCgCgCF+=CCgCgC }F-= }ggCgC$*Cag>@?CgC C+C0gCgC$*C+CgCsC(gC }sC(gCsC(CChCsC(+hCC(CgC C+C0C0C0C }0CCgCgCF0;CCgCgCF9< hCc+CCCgCgCF505 gCgCCCgCgCF0;CCgCgCF9< h+CC }CCgCgCF505 gCgC+PF*C 333R)}󠠠+C }Q^$CCsC(yi CsC(iOCAlphaACsC(iOCDateACsC(iOCNumericACsC(iO }CDollar$ACsC(i C@(CCCCj)}󠠠" }[?] and [RETURN] for help."[RETURN] for next option."Field #C" Field Type: OCD" }Field Length: C.C(" Field Name: CCvC(CvC( F" Reject If: CC C }CCA0u*CCD=gkCCD?=zkPF*Hq*CCD/kCCCCD/UCDBCCBCCsC(CkCCCFLENGT }H=CCFVALUE= kCCFNUMERIC=lCC F NOT NUMERIC=lCCFCONTAINS=7lCCFINTEGER= }CC F NOT INTEGER= gl CCFNO ENTRY=l,JClCVCCFLEN=lFCIF LENAgCCCFV }AL=lFC TRAP ????:IF VALAFC CWCgCp*C mVCmCVCFCD(R$)CCCETHEN  }CCCDCnmCVCCFNUM=mC GOSUB 22800:CCFNOT=mC GOSUB 22150: } IF NOT ERR THEN CCCDCnCVgC X*CnVC,nCVC SML$= }CCCE:GOSUB 22900:IF ERR THEN CCCDCnCVC IF INT(IC)CCFNOT=n= }CCFINT=n<>IC THEN CCCDC IF R$<>XCD THEN CCCDgC }p*CIoVCC_oCVCmoCoC IF R$CoC IF ICCCD THEN  }CCCDC SML$=CCCE:LRG$=R$:GOSUB 22700:IF ICCCCCF0 THEN CCC }D "Error Message?CC C%0u*CCD=wpXCCCD=pPOS. 2,22:PRINT =CDCCD= }CD: ERR=1:RETURNCCC ERR=0:RETURNQ^%@CCgCgCF =qgCgCzCCCCgC }gCF<=?qCCCgCgCF==XqCCCgCgCF>=qqCCyq+CCgCgCF<>=qCCCgCgCF<= }=qCCCgCgCF>==qCCqCCD/gCqXCCCCD/ BCCD/gC "D$CC(C(CCC(C (C } FC"D%CCgCgC CCCgCgCF< =srCCgCgC>=C"CCgCgCF= =rCCgCgC<>C"C }CgCgCF> =rCCgCgC<=C"CCgCgCF<>=rCCgCgC= CCCgCgCF<==#sCCgCgC }> CCCgCgCF>==MsCCgCgC< CCgCgCgCC?CCgCgCF =sgCgCCgCCCgCg }CF0:CCgCgCF98CsCCgCgCF0:CCgCgCF98sCCgCgCF.=CCgCgCF+= CCgCgCF }-= %tCCgCgCF'=CDt.C@?+?C"D$CCCCgCCgCCF/9t4CC }CCgC"D%?CAtCCCCC F,CCCgCC F,CEuCCCgCC F,CCCCC F, } DgCgCC$*CCgC DCC C UuCCCC {uCcuC  }uCCC(uCAuCCCCCCCCgCCdWBCCgCCdWBCCgCCdWBCCgC  }=CDBCCgCgC/CCCgCgC/CCCgCgC=CDCC@?C+C @?+C@?+@?C+C +B? }CCgCgC=CDCCgCgCgC CCgCgCF=v8CgCCCgCgCF'9v8@?CCC=CDBC+@?C  }w+ "C?wSyntax Error - Nonexistent testCrw"Test is only valid on alpha fieldsCw$Test } is only valid on numeric fieldsCw$Test uses a comparison with a numberC xTest requires a string }valueC8xMismatched types on comparisonC~xBad Date - correct format is CA~xmm/dd/yy }CCExdd/mm/yyC xBad value in comparison test "Hit to continue.:C* } C@}-33"#You must now choose your key field."Enter a number (1-+C, or 'L' to lis }t"fields FCCC 0u*CCDL=CCDl= yC>*TCCD=yCCF0;CCF9< y }CCCD,CC+C z CsC(CsC( 7z: **C ( , )ACCyC(WCCCyC( W }CCC4!"Field number out of rangeD "%You must use a keyboard entered field"Hit to } continue.:C*T2260 KEYWORD$=INFILE$CD13120 IF OUTFILE$CD=INFILE$CD THEN 13160131 }40 KEYWORD$=INFILE$CD :GOSUB 20850CCpC(CmC( !{C&+CmC(+CpC( 19020 POSITION C } ,5:PRINT =CDCCvC(CvC( F=CD;19030 IR=5:IC=CCvC(CvC( CsC(|:I }L=C.C( :GOSUB 30000CsC(|:DIN=1:GOSUB 30000 19035 IF R$=XCD OR R$=CHR$(27) THEN RETURN }CsC(|!19040 GOSUB 22500:CsC( }!#19040 GOSUB 22000:IF ERR THEN 1903019050 GOSUB 22600: }CsC(u}!#19040 GOSUB 22100:IF ERR THEN 1903019050 GOSUB 22400:CsC(}!#19040 GOSUB 221 }00:IF ERR THEN 1903019050 GOSUB 22300: KEYWORD$=PRT$19090 IF KEYWORD$<>INFILE$CD THEN 19140C }b~#CAz~CCmm/dd/yyACE~CCdd/mm/yyA2110 IF TYPE(N)=2 THEN PRINT =CDCCD=CD(12270 PRT$=DOT }$(1,IL):IF TY=2 THEN PRT$==CDCCD=CDCA9%22010 F2=VAL(R$(1,2)):F1=VAL(R$(4,5))CEo%22010 F1=VAL( }R$(1,2)):F2=VAL(R$(4,5))30530 IF DIN THEN PRT$==CDCCD=CD:IL=8FCRCRCD/ FAFCD1C127 OPEN #1 },4,0,=CDFCD.SCR=CD9400 TRAP 440:RESTORE 15500:TRAP 410:CLOSE #3:OPEN #3,4,0,=CDFCD.GLB=CD450 C }LOSE #3:OPEN #3,4,0,=CDFCD.IDX=CD20030 OPEN #2,8,0,=CDFCD.DAT=CD20510 CLOSE#2:OPEN #2,4,0,= }CDFCD.DAT=CD20610 CLOSE#2:OPEN #2,12,0,=CDFCD.DAT=CD21530 CLOSE#1:OPEN#1,4,0,=CDFCD.PRG }=CD26010 CLOSE#3:OPEN#3,8,0,=CDFCD.IDX=CD26505 CLOSE#3:OPEN#3,8,0,=CDFCD.GLB=CDC+C }sF$gCsC(gCsC(CCsF%13350 POS. 2,22:PRINT =CDEnter 1-C to change field, '?' to= }CD+13410IC=0:GOSUB 22150:IF ERR OR IC<1 OR IC>C THEN 13600+CsF$gCsC(gCsC(CC }sF% 12065 PRINT =CDWHICH FIELD TO SELECT ON (1-C,=CD:PRINT =CDOR '?' TO LIST)? =CD;'1 }2100 TRAP 12140:X=VAL(R$):IF X<1 OR X>C THEN 12140 GOTO 320004^CdC( P*N*jCP*$'  }222"LOADING PROGRAM " PLEASE WAITRUN =CDD:CONVERT.BAS C }J  DISK ERROR CPROGRAM STOPPED AT LINE 10120CJ}-  "Please wait working ... }+}CCC7CCICKeyboard entered fieldsACC>*C+C >ICProgram calc }ulated fieldsACC>*CW+ICGrand total fieldsACC>*C+C>" to exit }:C*+Cυp?*Cυ+Cp?*C+C?p?*C+ ?C"ICDp?*C #p?*C++ }+CsF$gCsC(CgCsC(C [\?CgCvC(gCvC( 'p?*CP+CC"FgCC }C"CgCvC(gCvC( FCU  sF%+CCCC+?*C+C}CC }+"! to continue, to exit:C*7Co?C7CC+R} }E Now you must enter the formulas for your program calculated fields.S You may refer to a keyboard-entered field } with 'F' followed by the field number.\ You may also refer to a previously defined program-calculated field as } 'F' followed by _the field number. For example, calculated field #16 may be made to depend on calculated field # }15by referring to 'F15'."Press to continue. :C*}I You may use the op }erators +,-,*,/ for the four arithmetic operations,:as well as any numeric function listedin the Basic Manual.$ } You may use parentheses as needed.R All referenced fields must be numeric or dollar. A typical expression might be:  } F9=(F1+F2)*F3/F4"Press to continue. :C*R+R}a The question }'reject if' will allow you to specify various kinds of tests to be made on enteredc data before it is accepted into the } data file. You may use up to seven tests on each field.X For each test, you have the option to enter an er }ror message to be shown if the data you enter is not accepted.cBelow are some examples of tests you may use. Ref }er to the manual and user notes for full details. NUMERIC TEST$Ԡ Must be whol }e number"Press to continue. :C*} ALPHABETIC TESTS"Ⱦ Length } must be under 7%ȼ Length must be at least 5$Ƚ Length must not equal 10#ž Val }ue must be 6 or less$ż Value must be at least 8"à Entry must be alpha$Ԡà } Entry must be numeric:Ӡâ Entry must not contain 'ABC' GENERAL TESTS }"Ϡ Something must be entered" Entry must not equal zeroG THE SIGNS <,>,<=,>=,= AND <> CA }N BE USED INTERCHANGEABLY IN THE TESTS"Press to continue. :C*R+FC D :MARKER.EXEAFC^CWC }jOFCRCDAFCFCD/ .SCRBO?jC4FCD7jCTjCjC4@?+ 3  3"PLACE }"CODEWRITER DISK "IN "DRIVE #^C "PRESS " WHEN READY:C  }3  3"PLACE" PROGRAM DISK" IN DRIVE #aC "PRESS " WHEN READ }Y:CICD/~+ICD/"D$IC(CE5IC(C(CIC(CE5 -C"D%+CCD=Ñ+CCD/sF$CCgCgCFa:CC }gCgCFz8CCgCgCCCgCgCF5 -CsF%+CCADC 4luCC"[CCFCC" }K:7vu?y*D6DCCADD 4+D~DђuD }DD D Dz D" CD vuDDCCDD-BD-vuCCDBDD . }vuD D|+DD+&CCDD-BD-vuCCDBDD .9hYYRPPCWDERERDISSNPOSPFFFFTYPEPRPCPRTLABELGLBCIDXCBLANKOUTFILERNIITIINDEXBUNMD}OTMDIMLENABLEINFILEGLBFFILTDIFOUNLRGSMLNOPCOLCOLSMEXSMLREXLRKEYLOGLOBALLKEYWORDMTLPAGFKESC}REELINMSCREEX@ @ } @@@} !"#$%&'()*+,}-./0123456789:;}@<=>?@A@BCDEFGHIJK}LSAVE "D:CONVERT.BAS.;@@,6-F:Ai,.6-F:Ap,$;@,$6. D :MARKER.EXE67}@<@,.=:,-@F:AS,67,.>:F:AS%,, 67B:,&@,..PRG " @0} @#  @0 @  A +'0@@A0@@@ B-}B ( =-@@= # CODEWRITER is now generating thef-@@}f Lprogram you designed. It will take about five minutes. The program will=-@@= #be stored automa}tically on the data.-@@. disk under the name:/"-@!u&B:,'@@ / 7@,<-@}@< " Your program will begin listing9-@@9 on the screen in a few minutes.MERGE GENER }ATED CODE&DATA DISK CHECK @'"6-"DISK CHECK ERROR+@+@@!}@6-!@@ B$ 'INSERT DATA DISK' MESSAGEA +@'0@@"}@A0@@@ (-@@( @PLACE!/-@@/ @ PROGRAM DISK"/#}-@@/ @ IN DRIVE ##0-@@0 @ PRESS $--@@- @ $}WHEN READY%6-@ B&$x B(A'} B A :@%68@,-@%}:68@,-@-@@@@@ 68,-68&}%@,-8,%%%68%@,-8,%@%&&68,-P:'@@,!!68,-&@&@@$8, -'}@@$$678,<8%@,&@,. @h6-6-|* 6. 67@@(},.*67@,.$ 6. 67,.$67@,."A@I #BU A"@I@)}@ D:EXP.GLB-@" A3@6-8%@,&8,""8,&@B*}$B#$$678,<8%@,&@,. A5''678,<8%@,&@,.0X  A6-+}@5@5@@ D:EXP.IDX@67,. 6-% A`56- ,}A56-A:7$@%@,, B* 6..67@@,.*67@,.$@ B`-} Be5 +6-@+AR@5 BMENU GOES HEREFILE PREPERATION RO.}UTINEm +'0@@A0@@[0@@@mAR@9-@/}@9 This option will erase all your5-@@5 previously entered records.=-@@= #0}To begin file preparation press =-@@= #To exit file preparation press ?-@@? %Ple1}ase enter choice/press RETURN ۠ 16-@26-@7'6-@1 B 4CA4XA 2} A5FINISHED ASKING NOW DOL22LINE TO DISK SUBROUINES FOR FILE PREPERATIONV? >:A%,"-@@? 3}This will take some time` BoEND OF ROUTINEt ANEW RECORD ENTRY##@@4}E:A `a (}-@@2 Your file is full.D-@@a Hit to continue.#6-5} B# A# 6- B }&-@&BEGIN DISPLAY LOOP 8,!@A!0*6}/-8,8,/ 78,<8%@,&@,48,"A!0>((IF TYPE(N)=2 THEN PRINT "mm/dd/yy"H>8,@7}*8,> 7@<8%@,&8,,R \6-aH-@@"H &@# records on file 8} f-@p''8, @)8,!@A!u4-@@#4 Hit to return to menu9}z A4A#$$678,<8%@,&@,. 6-@ BPC CALCSN-@:}@"+ Is this correct? 76-@"C6-@N6-@:Y, B4A#!6-@4N! B3;}(A#KEYWORD$=INFILE$(1,8)! BP B! B6-%@ A E@ A<}@""INPUT KEYBOARD ENTERED FIELDB% 6-8," @)!@%$D= 6-8,'6-8,%8%@,&8,=6-8%=}@,&8,F'6-6-"@' BH 4$I BJ3!@3&@B B!B>}!LAN!@* A%R A%@@$TAV''B%B&B$B#X?}$YM OR L OPTION\ 6- -@B:,^?6-@:7,,9"@v)"@w)"A)"A ?6-` @} ($b97<,4m66-A:78,<8%@,&@,,%9$d,)6-A:78,<8%@,&@,,&,$*LOOKUP RECA}ORD+9#@@E:/6-9 B + B(A+=-@@#= "Hit toB} print, to exit +-6-@ B-"@B@*+"@B@4+ BpPRINT SCREEN>+ C}B B0.@ A.RECORD SCAN SUBR..##@@E:.6-@ BD}. @B%. 6.6.6-. }-@@.-- $SCAN ALL OR SELECTED RECORDS (S/A)?E} .16-@6-@8'6-@21 B .4B%/4AB#p/4SB `/ B /F} }-@@!/>' WHICH FIELD TO SELECT ON (1-13,> OR '?' TO LIST)? &/16-@6-@'6-@G}1 B0/4>:@',B%:/+ 4?6-! B0+ B `D/4 B!@6-A:,4 @)!@BH}!@N/6--@X/56-%@58, @)8,!@B! b/  B!Pl/2-@@#I}(  Ġ2 B v/"6-8%@,&8,"6-8,/!@6-@/4-@@4 78,<8%J}@,&@,/ @B"p/,   ,  SMALLEST VALUE TO SELECT?/   7@<,/  INCLUK}SIVE(Y/N)? /(  (  LARGEST VALUE TO SELECT?/   7@<,/  INCLUSIVE(Y/N)? /'6-@6-@L}'6-@ / B#0/22PRT$=DOT$(1,IL):IF TY=2 THEN PRT$="mm/dd/yy"//   /  SMALLEST VALUE TO SELECT? M}0$$  INCLUSIVE(Y/N)?  0,  ,  LARGEST VALUE TO SELECT? 0$$  INCLUSIVE(Y/N)?  0!6N}-@ 6-@0!6-*0 B'GET SMALL/04B%40 6-6.6->0+6-%@!@ +6-O}%@@0 B'GET LARGEC04B%H0 6-6.6-R0-@&@W0 >:A%,\06-@P}$6-&@f0 B Bp0"B%0u0"@B$qz0"@B$0$$6.78Q},<8%@,&@,04B$@02)*4B%p04B%003)*4B%p0 B%00$$6R}.78,<8%@,&@,04B$u0 6.6. B'6.0## )*"B%p04S}B%00 6.6. B'6.0## )*"B%p0 B%00''6-A:78,<8%@,&@,,T}04B%0 )*"B%p04B%00!)*"B%p0 BPPRINT RECORD0c-@U}@"= # to print, to continue,O-@@#c  to exit16-@ B1-"@V} Bp# B- B%@1"@6-1 $1@ A1! 6-6-"@! B1-6-W}4)4*6-%@-$1+!@+&@B B!1B'1"@6-A:,1X}B%B&B%1-6-%@6-#6-@2- B1 6-4N1 6.1$2UPDATE RECORD ROUTINE2Y}##@@E:2 BGET RECORD2(B1p2 B3EDIT RECORD2B12 6.Z} BP3j-@@"> $Hit to return to menu, or P-@@#j to continue editing.3)6-[} B)4B1p"3 B,3 B0@63 6-6-%@@3..IF OUTFILE$(1,8)=INFILE$(1,8) THEN 131\}60J3 B `T3''KEYWORD$=INFILE$(1,8):GOSUB 20850h3 B Br3@ A3HANDY DANDY RECORD]} EDITOR3 6.6-4 BCALCULATE PC'S4 }4a0@@70@@Q0^}@@@aSET UP SCREEN!4 BPPRINT INFILE$&400PRINT "Enter 1-?? to change field, '?' to"04++ " _} list, 'p'rint record or 's'ave. :416-@#6-@4'6-@1 B?4 BD4 4S)4s6-@`} $I4/4P)4p Bp% B/ B3PN4 46-$X4+ 4?6-@! B0+ B3@b444a}GOSUB 22150:IF ERR OR IC<0 OR IC>?? THEN 13600l46--@v456-%@58, @)8,!@B4b}04 46-@4 A4 46-$4$$678,<8%@,&@,.4 B3  5*5R-c}@@"< !ĠĠ - Hit H6-R B45 B3P6DELETE RECORD6##@@d}E:6 BTO GET RECORD6(B@6a-@@#4 Sure you want to delete? @6-@#e}L6-@3W6-@:Y,a B64N)4B@66-&@ B `66-6@6 B`ADJUSTf} GLOBALS7 6. 7@ A:VERIFY GLOBAL TOTALS:-@:68,-: : +@g}@@:!!-@@$@:"@BQP:6-&@6-&@:1-@@1h} @READING RECORD:E-@@E @+&@,'@ OF &@: #BU: B i}B;-@; ";//68,-8,%A:78,<8%@,&@,,$; .; 8;/ +/ FIELD OLD Tj}OTAL NEW TOTALB; #BUL;-@V; "!@ BR0`;-@%@j; -@%@k}t;@% A:78,<8%@,&@,,9-@"%@@ 8,~;" 6-8,"6-8%@,&8,;""8,&@B$l}B#;$$678,<8%@,&@,.; ;E-@@"/ Hit to continue;6-@E B;6m}-@ A>GLOBAL ADJUSTMENTS> ( $> #BU>-@> ">1 B`p16-A:78,<8%@n},&@,,>556-&A:78,<8%@,&@,,>556-%A:78,<8%@,&@,,>o}86-8%@,&8,88,&@B$B#>$$678,<8%@,&@,.> > B6-@$p}B$END GLOBALShBDUMP SCREEN TO PRINTERrB9 Bq B)-@@"9  Printing...|B+-@!q}+-@8B8 1-*@*!A'86-&A(B67%@,.>:,B   3B B r}B BB$B BB[-@@", Printer not ready.>-@@#[ Hit to continues}.B+-@@"!6-+ BB B$8JRECORD SEARCH UTILITYBJ6- BDJ6-t}GJ+-@@!+ Please enter key.oJ+-@@!+  qJ 6. BGET KEYtJ(u}B`~J! 6-6-%@! BJ BJ$$IF R$<>INFILE$(1,8) THEN 19140J BPPRINT INFILE$J'v}-@@#'  Is this it? J06-@6-@#&6-@:N,0 BJ BJ 4Y$J" 6. Bw}"GET NEXT RECJ B`JC }-@@C #No Record Found. Hit for menuJ F:B2y,@Bx}pJ$ NFILE PREP ROUTINE*N# 6. 67,.#67@,.4N 6.6.9N@>NOPEN #2,8,0,"D:EXP.y}DAT"CN-@HN@RNBUILD INDEX\N6-P:'@',fN6-&$@'zN6-%@dN6-%@dz}N6-%@2N!@6-%@dN6.zzzzzN67B:,%@,.>:,N67B:,%@,.>:,N67{}B:,%@,.>:,N67B:,%@,.N-@N''8,")8,!@BN$$6.78,<8%@,&|}@,N @N N1 }RECORD NUMBER=1 LEN OF INDEX$=B:,O  TRACK/BYTE: /O 6-@}}O@ B`O. 6.067,.$67@,.. BeO% B$%FILE PREP FINISHEDO B6~}.$O.F:A,"Ab. }DISK FULL ERROR.)O5F:A,Ab5  }DISK ERROR #F:A,.OR!  Hit t}o continue.-6-96-E6-O BR$LO!!SEARCH FOR RECORD IN INDEX$VO$ 6-B:,!@$6-@}`O/67%@,.!6-@/6-&@jO* @6-@'6-*$tOK6-$@&@.37}<%&@,:6-H6-%@K$~O"BO.6-P:+%,'@,.6-$@&@O/7<%&@},6-O&37<%&@,&6-%@O BPO6-$@&@O6-+47<%&@,,O6.7}<%@,$OEND OF ROUTINEPINPUT FILEP&&CLOSE #2:OPEN #2,4,0,"D:EXP.DAT"#P# 6. 67,.#67@,.}(P@FROM INDEX2P-@:,^ ^ @6.^ ^@$aPRINT OUT}FILE$a }a-@a/-8,8,/ 78,<8%@,&@,a18,!1 78,<8%@,&@},a   $eDUMP INDEX$ TO DISKe&&CLOSE #3:OPEN #3,8,0,"D:EXP.IDX"e67$@%@,.=:,e-@B:},e 6.7, @e }WRITING INDEX FILEe! @6-!$g ( $g&&CLOSE #3:OPEN #3,8,0},"D:EXP.GLB"g #BU-@g1 "1 @78,<8%@,&@,g }WRITING GLOBAL FILEg! }@6-!$0uFOOLPROOF INPUT ROUTINE:u4AR@6.(6-@46-Du!!"*"}B`Nu -Xu6.7@<,Bw"6.mm/dd/yy"6-@Lw ARVw$-%@$}*@@0`w##@@K:jw)@ow'"AU** @'6-tw"@'6}.~wL"AU)"@'+AR@2 =@I6-L$w"A&*Bpw%% @2)!}A")"Bpw'!67%@,.7%@<,'6-w67,.>:, >:,w"Bpw&6-%@&7<,0}/Bpw.6-%@$*@@1. Bpw) 6-6-&@)AR@w -% 7<,w"}7<,4/"6-&@wD67%@,.'AR:*@@0D BpwCONSOL CONTROLSw!!CON}SOLE KEY START ,CN = 1,6w!!CONSOLE KEY SELECT,CN = 2,5w!!CONSOLE KEY OPTION,CN = 3,3x!!CONSOLE KEY OPTION,CN = 4,?}x LOOP x6-F:B2y,x"@*"@$x"@*"@$x"@*"@$x"@}*"@$#x"@*"@$(x"@*"@$-x B%Px B Zx0Y*0N*0B}dx$x.@.@@K:xAR@x -x)!@1* @) >:%A(,}x' @2)!@' >:A`,x)@x"AUB x"@'6.$x!@1* @}6-y'!@* A#'6-&@2y B y -6.>:, $y]@)0@@}C0@@]0@@@"y$|y--@@"- 7@<@5,y$}"}A" >:@(, }"AB" >:@(,}'BB '@}}W W L In order} to run your program, you must place the data disk, now your(}88 0 program disk, in drive one, and enter:-}I2 } RUN >:@4,D:7@,I6-F:@ ,%@`2}= = 2 We wish you much luck with your progr}am.<} D:CONVERT.BASISSNPOSPFFFFTYPEPRPCPRTLABELGLBCIDXCBLANKOUTFILERNIITIINDEXBUNMD Ax@]Ay@`$'<A@'@A9B7tA<$ D:BAS m Copyright (c) 1983 DYNATECH microsoftware inc.S S