' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ӡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`:" ";7HT:VT:"$";:HTHT1:600:HTHT1VT(P$):(T)99999991714}TI(IT)(PL0)T(PL0)T(PL0)TT100:130:TT100HT:VT:" "A(LN)A(LN)I(IT)(PL0)T:I(IT)THT:3:TA(LN):156:A$HT:VT:TI(IT):"PLUS":17149NI0PL1:3950:19:23:"MINUS":1714C1760qHT8:VTSL8:HT:VT:P$I$(IT):NCLR:600I$(IT)P$A(LN)A(LN)I(IT):TA(LN):156:28:3:A$:NC10:P$((I(IT))BL$,NC):1715NC10:P$(BL$,NC)HT28:VTSL8:HT:VT1:ITIT1:3:SL7:" ":3:SL8:">"+6:@IFORWARD PJNIIP(IG1)1640pTIGIG1:ITIP(IG):SL1:400vhrIREVERSE |IG11690IGIG1:ITIP(IG):SL1:400I EDITNI0PL0:3950:1710 NI0PL1:3950:19:23:N)T:1450-PL3T0A(LN)A(LN)T:1450XA(LN)A(LN)(PL0)T(PL0)T(PL0)g5000:300q3900wIUP ITIP(IG)1540SLSL1:ITIT1:3:SL9:" ":3:SL8:">"IDOWN ITNIITIP(IG1)11590%"SLSLD"A$"A"B$"$"#A$"P"B$"%"DA$"N"A$"Y"A$"T"B$"#"HT28:VT2SL1:HT:VT:868:HTHT1:HT:VT:B$;:NC10:P$(BL$,NC):HTHT1:600HTHT1:HT:VT:868P$(BL$,NC)ī1450T(P$):(T)99999991440 PL2A(LN)A(L:I:xENTER +yPL0:L$"ENTER":1408EzPL1:L$" PLUS":1408`{PL1:L$"MINUS":1408z|PL2:L$"TIMES":1408}PL3:L$"DIVIDED BY"A$PS$(LN):A$"L"A$"C"A$"D"PF$(LN)"L"IT$(LN)"I"14603950:18:23:L$:A$PF$(LN)A$"PGNP1240-PGPG1:LNPP(PG):SL1:2003;DFKCRNI1280]CRCR1:6600cjRyPG11340(PGPG1:LNPP(PG):SL1:200<FDRPCR11380ZCRCR1:6600dvI1NF:X0HL1:Y0DYI:(BL$,39X0HL1)0'A$"Y"P$"ENTER YEAR E.G. 1980"B(42(P$))2:23:P$;HOUcLNPP(PG)1040SLSL1:LNLN1:1:2SL3:" ":1:2SL1:">"LDVLNPP(PG1)11140`SLSL1:LNLN1:1:2SL1:" ":1:2SL1:">"tF 40K900:HTHLX02:VTY0IDY1:NCLF(I):P$II$(I,CR):600:II$(I,CR)P$RIn4100:3700:6260:6600tPROMPT3950:A$DB$(I)A$"T"P$"ENTER DESCRIPTION":950A$"N"P$"ENTER NUMBER":950A$"A"P$"ENTER $$$$$":95fQ8J0JJ1:618-hQ21JNCJJ14jKBlT0ī626jmDS1J0P$((A$,J)UN$,NC):626nJ0P$((A$,J)BL$,NC):626oDS1P$(UN$,NC):626pP$(BL$,NC)rHT:VT:P$" ";tDBASE INPUTI1NF:DB$(I)"C"7LL1:L3:SL8:">"; ?&LXIP(IG1)1:LXNILXNIE0MXK cZT0:J0:A$P$" "\K010:HT:VT:A$;:HTJ:VT::(A$,J1,1);:^100:Q(6)`Q13K1:618bT1:Q32JNCQ94Q34614dJJ1:Q$(Q):SI,A$,Q$,J:618LLLL2 JL T% PRINT IT$,I8 LL1:190:550I LIP(IG)LXj 4:LL8:(" "(L)".",3);y 8:I$(L); 28:TI(L):156:A$:LLLL1 L:3:SL8:">";  PRINT I LL1:550:LIP(IG)LX28:LL8:TI(L):156:A$:LL(PG)PP(PG1)1$ 2:LL1:SD$(L)K IT$(L)" "Ė27:LL1::IT$(L):v PF$(L)"L"Ė28:LL1:TA(L):140:A$ LLLL2 L 1:2SL1:">"; " ,PRINT $ 6LL2:LPP(PG)PP(PG1)1 @PF$(L)"L"Ė28:LL1:TA(L):140:A$ E,2),11) "-----------"6 T(T)((T).5)L A$(BL$(T),11)R e "RRRRRRRRRRR" A$(BL$TX$(T1),11) 34,9:35,18:1:9:958:34,0:35,24: PRINT LINES LL2 34,3:35,19:1:3:958:34,0:35,24 LPPA$(A$,2,3)","(A$,7) 2 "----,---.--"_ TT(100T):A$(((T))):T0A$"-"A$ Q(((A$)(T0)1)3):A$(BL$A$,11) Q0A$(A$,2,7)","(A$,3) Q1A$(A$,2,3)","(A$,7) TT(TT)((TT).5):A$(A$"."("00"(TT) nGY: ROUND* T(T)((T).5)0 < FORMATw Q$"APYDNT":SF,Q$,PF$(L),Q:Q156,156,156,146,170,178} "---,---,---" T(T)((T).5):A$(T):Q(((A$)(T0)1)3):A$(BL$A$,11) Q0A$(A$,2,7)","(A$,3) Q1((T)BL$,LF(I)):4150,(1T0:(7):41423(6I[(J4200:4300:TI(MF):146:29:3:A$a(To(h CR MATH(rOP4220,4290(|II(6)0İ4600:4230(II(7)II(6):II(8)II(6)(I7NF:II$(I,CR)((II(I))BL$,LF(I)):I)II(6)0II$(5,CR)(Y:FC$(FC) 'LN1:7600:7850+'MS0::'CR TO #'SN'I1NF:II(I)0~'A$DB$(I):A$"D"A$"T"A$"C"A$"Y"4150''I5İ4700:4150',T(II$(I,CR))'-A$"N"4144'.T(T)((T1000).5)1000:(T)99999994145(0II(I)T:II$(I,CR)"U-UP D-DOWN F-FORWARD R-REVERSE"d&P"+ - * / H-HELP ";:FM3ĺ"Q-QUIT ";j&Zz&nERASE CMD &x34,22:35,24:1:22:958:34,0:35,24:CM0:&SCHEDULES &7600:5100:7300&FM(PS$(LN)):BB3,FM 'FM6FC64PD-DELETE"8%"U-UP D-DOWN F-FORWARD R-REVERSE"h%"+ - ";n%{%<COMMAND%A1:21:DA$:CM1%DFM3ĺ"E-ENTER I-ITEMIZE L-LINE S-SEARCH ":3915%F"E-ENTER I-ITEMIZE L-LINE Q-QUIT ")&KNI0IT$(LN)""%$`5000:2900:2000$jIS0:?$tDBASE CMDT$y1:21:DA$:CM1$~"A-ADD E-EDIT Q-QUIT ^D-DELETE"$"S-SEARCH N-NEXT F-FORWARD R-REVERSE"$$ITEM CMD $1:21:DA$:CM1 %"A-ADD E-EDIT Q-QUIT ^#IS1:NI0İ1800:36204#3800:IT1:2950:400=#$100#8CF$"A"(4)"UDFRQE+-":SF,CF$,Q$,J:J0ĴJ1800,2000,1500,1550,1600,1650,3660,1700,1705,1707#BIS13620#G#L3950:7100:4800:3900#QFM6LN18A(LN1)A(LN)$VIT$(LN)"I":Q$"C"İ3900:36550" Q$"D"İ5100:6000:3655B" Q$"I"ī3540R" 4000:3655f" IS1:NI0:LR18v" 7000:4800" 4:3:SD$(LN)" 28:3:TA(LN):156:A$:8:6:"ITEM";:33:"AMOUNT""8:7:"------------------ ---------"" 1:21:DA$13190 ! ! QUIT ! 3950H! FM3İ7300:ST$"":RT0:7850:3350]! 7300:5200:RT1|! 7850:7700:BB3,FM:7600! MS0:! DK1:7400! :15:6:"LOADING MENU":22:D$;"RUN MENU,D1"! ITEMIZE ! 3950:Q$PS$(LN)" Q$"L"Q$"E")1:L4 L & PROCESS FORM/ MS1? 2900:4800T & 3900:5000:200] v 100 CF$"UD*/":SF,CF$,Q$,J:J0ĴJ1000,1100,1404,1405:3210 CF$"EILQFRH+-S":SF,CF$,Q$,J:J0ĴJ1400,3500,2600,3300,1200,1300,1900,1402,1403,2700! MS S 3950:16:23:"NOT FOUND":9:24:"PRESS RETURN TO CONTINUE";:1:1:" "h 100:Q132810n ~T FIND PAGE ^ L2NP1h LNPP(L)PGL1:SLLNPP(L1)1:LNP1r L|  FIND IG  L24 ITIP(L)IGL1:SLITIP(L1:VT:"ENTER SEARCH PHRASE? ":NC10:P$(BL$,NC):HTHT21:600:P$(BL$,NC)2790| Q0:LNC11:(P$,L,1)" "QL:L1 L:Q02790 S$(P$,Q):TPP(NP1)1:L1T:SF,SD$(L),S$,Q:Q0LNL:LT L:Q0İ2900:200:2790 2800 39002640;H UP78QQ96QQ123Q$(QQ32):SI,P$,Q$,Q:2640pJ UP89QQ64QQ91Q$(QQ32):SI,P$,Q$,Q:2640P T0:L1AXi P$(SD$(L),Q)TL:LAXn Ls T0ī2690x LNT:2900:200 3900  SEARCH 3950Q HT1:VT23:HTT1:SLIT:400:2080*SL0İ1650:208034009 C( LINEM2 3950< HT11:VT23:HT:VT:"ENTER LINE NUMBER? ";:NC3:P$(BL$,NC):HTHT19:600:P$(BL$,NC)ī2690A 1:VT:868:16:VT:"SEARCHING";F Q(P$):QQ((P$,1)):QQ47QQ58İ3900:IDELETE $NI02080[NINI1:NI0I$(1)(BL$,LR):I(1)0:A(LN)0:2065hLITNII$(L)I$(L1):I(L)I(L1)L A(LN)0:L1NI:A(LN)A(LN)I(L):L28:3:TA(LN):156:A$:3:SL7:" ":ITIT1:SLSL1SL0IG1I(DL$)0Ė6:22:"NO INFORMATION FOR THIS LINE":1950UvS3(DL$):S11:S30ī1950pS2S136:S2S3S2S3S2S3ī1940((DL$,S2,1))" "S2S21:19302:22S4:(DL$,S1,S2S11);:S4S41:S43ī1950S2S3S1S21:1920100:156:A$3800% IADD 5NI301860y3:SL8:" ":TIG:NINI1:ITNI:I$(IT)(BL$,LR):I(IT)0:2950&TIGİ190:SL1NINI1:400:NINI1:3:SL8:">";(" "(IT)".",3):1700DlHELPq39506tS40:DL$LD$(LN):400:8810@8FL$"FORM"(FM)FC$"."(LN)::FD$FL$",D"(DR)b822:DO$;FD$:22:22:DW$;FL$8IAA(LN):NI:IA:J1NI:I(J):J:J1NI:QT$;I$(J);QT$:J822:DC$;FL$88 READ TEXT8"DK1:7400:88208$72149&FL$"FORM"(FM)".DK2:7400:88007\7014R7^FL$"FORM"(FM)FC$"."(LN):FD$FL$",D"(DR)p7`22:DO$;FD$:22:DR$;FL$7bNI:IA:J1NI:I(J):J:J1NI:I$(J):J:A(LN)IA7d70167fSE7h89007j22:DC$;FL$7lGZ7n7WRITE ITEM 8DK2:763700:6NEXT.6N1CR1:N1NIİ690046>6FINDP6(S$)069506JSN1NI:IS1NF:SF,II$(IS,JS),S$,KS:KS0N1JS:CRN1:ISNF:JSNI6IS:JS6KS0İ6600:69906&28006:3950:37006N6XREAD ITEM6YA(LN)0:NI07Z56UP("N")ČSU,NF$(1),NF'57OOOP-5895SEARCHC539505HT1:VT23:HT:VT:"ENTER SEARCH PHRASE? ":NC18:P$(BL$,NC):HTHT21:DS0:600:DS1:P$(BL$,NC)68405Q0:LNC11:(P$,L,1)" "QL:L15L:Q0S$(P$,Q):N11:6900 :VT4NF$(I);:HTHL:":"C4HTHTHL1:HT:VT:II$(I,CR)" "J4IP4`4,READ DBASEp4-OOOP67124.NF,MF,HL,NX,X0,Y0,DY40I1NF:NF$(I),LF(I),DB$(I)41IB$(I)(BL$,LF(I)):IU$(I)(UN$,LF(I)):DB$(I)"C"IU$(I)IB$(I)42I54GY0ī641834500B3NI1CR0:I1NF:II$(I,CR)IB$(I):I:6414s3JCRNI1:I1NF:II$(I,J)II$(I,J1):I:J3 CRNICRNI13NINI13660033DISPLAY315:5:" ITEM ";CR;" OF ";NI;" "3I1NF4HTX01:HT:VTY0DYI1R)T$ 2lI2n(2tREMOVE UNDELINES42vI1NFo2zT$II$(I,CR):LLF(I)11:(T$,L,1)(95)L1:62502|Q$(32):SI,T$,Q$,L2~L:II$(I,CR)T$2I22EDIT2CR06318245002624026600:70022DELETE3CRNI99962201;NINI1:CRNIC1<I1NF:II$(I,CR)IU$(I):I:6600L1>700R1Lf1`ADD UNDERLINESr1bI1NF1dDB$(I)"C"II$(I,CR)(BL$,LF(I)):62521fT$II$(I,CR):LLF(I)11:(T$,L,1)" "L1:62501hQ$(95):SI,T$,Q$,L2jL:II$(I,C:A$:1:4:DA$%0NI0İ6200:6030;0NI0CR1:6600D0100U0SF,CS$,Q$,J0J1250,1350,6200,6300,6400,6100,6800,68500DS1602800QUIT CR03950:8600:4800:3900:440005400:5000:200:DS0008NEW 1:NINXND69)A(70)//POLICYB/A(1)(A(1)):A(1)0A(1)6A(1)0h/T0:I5192:TTA(I):I:A(20)Tn/:y/pDBASE/rDS1:I110:I(I)0:I/t8000:6700:8500:4450/v4800:3700/CS$"FRAE"(4)"QSN"04:3:P1$(1):29:3:TI(MF):146FM6P(1)A(20):PY0.0.RTN TO MAIN FORMj."FM3LN62A(65)P(2):A(66)P(3):A(67)P(4):A(63)ND.^A(LN)P(1):P(5)BGIT$(LN)"I":5490.hIT$(LN)"":P(5)0.r.|PROPERTY.LN645520.T0:I161:TTA(I):I:A(62)T /A(71)A(00--CALL SUBFORMT-P(1)0:P(2)0:P(3)0:P(4)0:P1$(1)SD$(LN):P1$(2)TL$i-FM3LN73PY1~- FM3LN74PY2-FM3LN75PY3-FM3LN76PY4-(FM3LN62P(2)A(65):P(3)A(66):P(4)A(67):NDA(63)-F-PEXIT SUBFORM.Z(5)(II$(5,CR))H,pII(5)0II(5)10:II$(5,CR)("10"BL$,LF(5)):(7)N,_,TITLE LINE q,L$"$$$ "TL$,PY0L$L$"-["(64PY)"]",L$L$" $$$",:(42(L$))2:1:L$:,,,PROPERTY-FM5090,5090,5500,5090,5090,56T1:II(5)046305+T1(85YR)II(5):T0.1T0.1B+ T1T1Q+YR04690b+ YR50YR50+%YR85YR85:II(7)(II(4)0.5):II(8)II(7):4690+*II(7)(II(4)310.7IX(YR49)0.5)+4II(8)(TII(4)0.5)+R+\DEPRECIATION,fII(5)0:II2)I(4):P(3)P(3)I(8):P(4)P(4)I(7):NDNDNI;*vIAI(MF)A*O*DEL MATH[*I1NF}*DB$(I)"A"DB$(I)"C"4550*I(I)I(I)(II$(I,CR))*I*TI(MF):146:29:3:A$**CASH & REPLACEMENT COST*YR0:YR(II$(3,CR))1900+"NA"BL$,LF(5)))!)ADD CR-)I1NFO)DB$(I)"A"DB$(I)"C"4350c)I(I)I(I)II(I)j)Ip))0EXIT DBASE):FM3LN62P(1)I(MF):P(2)P(2)I(4):P(3)P(3)I(8):P(4)P(4)I(7):NDNDNI)X)bENTER DBASE.*lFM3LN62P(2)P(HT28:VTSL8:HT:VT:" ";LHT:VT:"$";:HTHT1:600:HTHT1kT(P$):(T)99999991714TI(IT)(PL0)T(PL0)T(PL0)130HT:VT:" "A(LN)A(LN)I(IT)(PL0)T:I(IT)THT:3:TA(LN):146:A$ HT:VT:TIPL1:3950:19:23:"PLUS":1714NNI0PL1:3950:19:23:"MINUS":1714X1760HT8:VTSL8:HT:VT:P$I$(IT):NCLR:600I$(IT)P$A(LN)A(LN)I(IT):TA(LN):146:28:3:A$:NC10:P$((I(IT))BL$,NC):1715NC10:P$(BL$,NC)%1)11590:"SLSL1:ITIT1:3:SL7:" ":3:SL8:">"@6O@IFORWARD eJNIIP(IG1)1640TIGIG1:ITIP(IG):SL1:400hrIREVERSE |IG11690IGIG1:ITIP(IG):SL1:400I EDITNI0PL0:3950:1710!NI0PL2A(LN)A(LN)T:1450<PL3T0A(LN)A(LN)T:1450gA(LN)A(LN)(PL0)T(PL0)T(PL0)|5300:5000:3003900IUP ITIP(IG)1540SLSL1:ITIT1:3:SL9:" ":3:SL8:">"IDOWN ITNIITIP(IG$(LN)A$"D"A$"A"B$"$"2A$"P"B$"%"SA$"N"A$"Y"A$"T"B$"#"HT28:VT2SL1:HT:VT:868:HTHT1:HT:VT:B$;:NC10:P$(BL$,NC):HTHT1:600HTHT1:HT:VT:868P$(BL$,NC)ī1450T(P$):(T)99999991440BL$,39X0HL1):I: xENTER :yPL0:L$"ENTER":1408TzPL1:L$" PLUS":1408o{PL1:L$"MINUS":1408|PL2:L$"TIMES":1408}PL3:L$"DIVIDED BY"A$PS$(LN):A$"L"A$"C"A$"D"PF$(LN)"L"IT$(LN)"I"14603950:18:23:L$:A$PFt FPGNP1240<PGPG1:LNPP(PG):SL1:200BJDFZCRNI1280lCRCR1:6600ryRPG11340(PGPG1:LNPP(PG):SL1:200<FDRPCR11380ZCRCR1:6600dvI1NF:X0HL1:Y0DYI:(NTER $$$$$":9506A$"Y"P$"ENTER YEAR E.G. 1980"Q(42(P$))2:23:P$;W^UrLNPP(PG)1040SLSL1:LNLN1:1:2SL3:" ":1:2SL1:">"LDVLNPP(PG1)11140`SLSL1:LNLN1:1:2SL1:" ":1:2SL1:">"F:DB$(I)"C"740Z900:HTHLX02:VTY0IDY1:NCLF(I):P$II$(I,CR):600:II$(I,CR)P$aI}4100:3700:6260:6600PROMPT3950:A$DB$(I)A$"T"P$"ENTER DESCRIPTION":950A$"N"P$"ENTER NUMBER":950A$"A"P$"ESI,A$,Q$,J:618'fQ8J0JJ1:618<hQ21JNCJJ1CjKQlT0ī626ymDS1J0P$((A$,J)UN$,NC):626nJ0P$((A$,J)BL$,NC):626oDS1P$(UN$,NC):626pP$(BL$,NC)rHT:VT:P$" ";tDBASE INPUTI1NL):146:A$:LLLL1:L)3:SL8:">";/N&LXIP(IG1)1:LXNILXNIT0\XK rZT0:J0:A$P$" "\K010:HT:VT:A$;:HTJ:VT::(A$,J1,1);:^100:Q(6)`Q13K1:618bT1:Q32JNCQ94Q34614dJJ1:Q$(Q):):140:A$ ELLLL2 JL# T4 PRINT IT$,IG LL1:190:550X LIP(IG)LXy 4:LL8:(" "(L)".",3); 8:I$(L); 28:TI(L):146:A$:LLLL1 L:3:SL8:">";  PRINT I LL1:550:LIP(IG)LX28:LL8:TI(35,24 LPP(PG)PP(PG1)13 2:LL1:SD$(L)Z IT$(L)" "Ė27:LL1::IT$(L): PF$(L)"L"Ė28:LL1:TA(L):140:A$ LLLL2 L 1:2SL1:">"; " ,PRINT $ 6LL2:LPP(PG)PP(PG1)1 @PF$(L)"L"Ė28:LL1:TA(L."("00"(TT),2),11) / "-----------"E T(T)((T).5)[ A$(BL$(T),11)a t "RRRRRRRRRRR" A$(BL$TX$(T1),11) 34,9:35,18:1:9:958:34,0:35,24: PRINT LINES LL2 34,3:35,19:1:3:958:34,0:RREAD DATA!:TDK2:7400:8800,:V7264_:XFL$"FORM"(FM)FC$".DAT":FD$FL$",D"(DR)}:Z22:DO$;FD$:22:DR$;FL$:\Q:J1Q:A(J):J:J1Q:IT$(J):J:^7266:`SE:aJ1AX:A(J)0:J:J1AX:IT$(J)"":J:b8900:d22:DC$;FL$STR":FD$FL$",D1"09(22:DO$;FD$:22:DR$;FL$9*TL$:NP:I1NP1:PP(I):I:AX:I1AX:SD$(I):I:I1AX:PS$(I):I:I1AX:PF$(I):I:I1AX:LD$(I):I9+SU,SD$(1),AX:SU,LD$(1),AX9,72169.SE9089009222:DC$;FL$94GZ96 :((DEL MATH(I1NF@(DB$(I)"A"DB$(I)"C"4550[(I(I)I(I)(II$(I,CR))b(I~(TI(MF):146:29:3:A$((TITLE LINE (L$"$$$ "TL$(PY0L$L$"-["(64PY)"]"(L$L$" $$$"(:(42(L$))2:1:L$:(:II$(I,CR)((II(I))BL$,LF(I)):I:4290@'II(13)II(7)II(9)g'II$(13,CR)((II(13))BL$,LF(13))m'y'ADD CR'I1NF'DB$(I)"A"DB$(I)"C"4350'I(I)I(I)II(I)'I''0EXIT DBASE':P(1)I(MF)'X'bENTER DBASE((T)BL$,LF(I)):4150,&1T0:(7):41423&6I[&J4200:4300:TI(MF):146:29:3:A$a&To&h CR MATH&rOP4220,4240,4290&|II(6)18II(2):II(7)1II(6)100:II(7)1.2II(7)1.2&~II(8)II(4)II(3)II(7):II(9)II(8)II(5)II(7))'I6NF,FM %FM8FC64PY:FC$(FC)5%LN1:7600:7850@%MS0:O%CR TO #'Sc%I1NF:II(I)0%A$DB$(I):A$"D"A$"T"A$"C"A$"Y"4150%,T(II$(I,CR))%-A$"N"4144%.T(T)((T1000).5)1000:(T)99999994145&0II(I)T:II$(I,CR)TEMIZE L-LINE Q-QUIT "J$K"U-UP D-DOWN F-FORWARD R-REVERSE"y$P"+ - * / H-HELP ";$Z$nERASE CMD $x34,22:35,24:1:22:958:34,0:35,24:CM0:$SCHEDULES $7600:5100:7300%FM(PS$(LN)):BB3ERSE "###ITEM CMD 8#1:21:DA$:CM1f#"A-ADD E-EDIT Q-QUIT ^D-DELETE"#"U-UP D-DOWN F-FORWARD R-REVERSE"#"+ - ";##<COMMAND#A1:21:DA$:CM1$F"E-ENTER I-I50,3660,1700,1705,1707%"BIS13620+"GG"L3950:7100:4800:3900h"VIT$(LN)"I":NI0IT$(LN)"""`5300:5000:2900:200"jIS0:"tDBASE CMD"y1:21:DA$:CM1"~"A-ADD E-EDIT ^D-DELETE Q-QUIT "#" F-FORWARD R-REV8! 28:3:TA(LN):146:A$:8:6:"ITEM";:33:"AMOUNT"e!8:7:"------------------ ---------"u! 1:21:DA$!IS1:NI0İ1800:3620!3800:IT1:2950:400!$100"8CF$"A"(4)"UDFRQE+-":SF,CF$,Q$,J:J0ĴJ1800,2000,1500,1550,1600,16 DK1:7400? :15:6:"LOADING MENU":22:D$;"RUN MENU,D1"M ITEMIZE b 3950:Q$PS$(LN) Q$"L"Q$"E"Q$"C"İ3900:3655 Q$"D"İ5100:6000:3655 Q$"I"ī3540 4000:3655 IS1:NI0:LR18 7000:4800 4:3:SD$(LN):3210] CF$"EILQFRH+-S":SF,CF$,Q$,J:J0ĴJ1400,3500,2600,3300,1200,1300,1900,1402,1403l MS13190r | QUIT 3950 FM1FM2FM4İ7300:ST$"":RT0:8750:7850:3350 7300:5200:RT1 7850:7700:BB3,FM:7600 MS0: PP(L)PGL1:SLLNPP(L1)1:LNP1*r L0| > FIND IG I L24r ITIP(L)IGL1:SLITIP(L1)1:L4y L  PROCESS FORM MS1 2900:4800& 3900:5000:200v 100 CF$"UD*/":SF,CF$,Q$,J:J0ĴJ1000,1100,1404,14058ī2640=H UP78QQ96QQ123Q$(QQ32):SI,P$,Q$,Q:2640rJ UP89QQ64QQ91Q$(QQ32):SI,P$,Q$,Q:2640P T0:L1AXi P$(SD$(L),Q)TL:LAXn Ls T0ī2690x LNT:2900:200 3900 T FIND PAGE ^ L2NP1#h LNIT1:SLIT:400:2080,SL0İ1650:20805400; E( LINEO2 3950< HT11:VT23:HT:VT:"ENTER LINE NUMBER? ";:NC3:P$(BL$,NC):HTHT19:600:P$(BL$,NC)ī2690A 1:VT:868:16:VT:"SEARCHING";F Q(P$):QQ((P$,1)):QQ47QQ50:3900:IDELETE &NI02080]NINI1:NI0I$(1)(BL$,LR):I(1)0:A(LN)0:2065jLITNII$(L)I$(L1):I(L)I(L1)L A(LN)0:L1NI:A(LN)A(LN)I(L):L28:3:TA(LN):146:A$:3:SL7:" ":ITIT1:SLSL1SL0IG1(LN):(DL$)0Ė8:22:"NO ADDITIONAL INFORMATION":1950WvS3(DL$):S11:S30ī1950rS2S136:S2S3S2S3S2S3ī1940((DL$,S2,1))" "S2S21:19302:22S4:(DL$,S1,S2S11);:S4S41:S43ī1950S2S3S1S21:1920 10(IT):146:A$3800* IADD :NI301860~3:SL8:" ":TIG:NINI1:ITNI:I$(IT)(BL$,LR):I(IT)0:2950&TIGİ190:SL1NINI1:400:NINI1:3:SL8:">";(" "(IT)".",3):1700DlHELPq39508tS40:DL$LD$Q0S$(P$,Q):N11:6900$8NEXT>8N1CR1:N1NXİ6900D8N8FIND`8(S$)069508JSN1NI:IS1NF:SF,II$(IS,JS),S$,KS:KS0N1JS:CRN1:ISNF:JSNI8IS:JS8KS0İ6600:69908&28008:37008N8XREAD ITEM9YA(LN),LF(I)):DB$(I)"C"IU$(I)IB$(I)(72I074GYM76UP("N")ČSU,NF$(1),NFS78_7SEARCHi739507HT1:VT23:HT:VT:"ENTER SEARCH PHRASE? ":NC18:P$(BL$,NC):HTHT21:600:P$(BL$,NC)68407Q0:LNC11:(P$,L,1)" "QL:L18L:EM ";CR;" OF ";NI;" "#6I1NFD6HTX01:HT:VTY0DYI1:VT]6NF$(I);:HTHL:":"6HTHTHL1:HT:VT:II$(I,CR)" "6I66,READ DBASE6.NF,MF,HL,NX,X0,Y0,DY60I1NF:NF$(I),LF(I),DB$(I)!71IB$(I)(BL$,LF(I)):IU$(I)(UN$18 5450056240%56600:700+575DELETEG5CR0ī6418Q545005NI1CR0:I1NF:II$(I,CR)IB$(I):I:64145JCRNI1:I1NF:II$(I,J)II$(I,J1):I:J5 CRNICRNI15NINI15660055DISPLAY615:5:" IT(T$,L,1)" "L1:625014hQ$(95):SI,T$,Q$,LE4jL:II$(I,CR)T$L4lIR4nh4tREMOVE UNDELINESt4vI1NF4zT$II$(I,CR):LLF(I)11:(T$,L,1)(95)L1:62504|Q$(32):SI,T$,Q$,L4~L:II$(I,CR)T$4I44EDIT5CR063:4800:3900:4400,35400:5000:200:DS023;38NEWK3:NINX6220]3;NINI1:CRNI3<I1NF:II$(I,CR)IU$(I):I:66003>7003L3`ADD UNDERLINES3bI1NF3dDB$(I)"C"II$(I,CR)(BL$,LF(I)):62524fT$II$(I,CR):LLF(I)11:4800:3700$2CS$"FRAE"(4)"QSN"Y24:3:P1$(1):29:3:TI(MF):146:A$:1:4:DA$o2NI0İ6200:60302NI0CR1:660021002SF,CS$,Q$,J2J1250,1350,6200,6300,6400,6100,6800,68502DS1602822QUIT CR33950:8600)A(24)))((A(26))1000)I1A(31)A(21)A(32)1000:A(30)A(27)A(29)1001A(35)A(36)A(38)0A(40)100(((A(36)A(37))1.0E3A(39)(A(34)A(36)))(A(35)(A(36)A(38)))1)11pDBASE1rDS1:I110:I(I)0:I1t8000:6700:8500:4450 2vA(10):A(14)A(10)A(12)k0A(13)0A(19)((A(9)A(10)A(15))(1A(16)100)(A(10)A(11)))((A(13))1000)0A(18)A(8)A(19)1000:A(17)A(14)A(16)1000A(26)A(21)A(23):A(27)A(23)A(25)1A(26)0A(32)((A(22)A(23)A(28))(1A(29)100)(A(2317)A(14):A(18)A(16)A(17)X/bA(21)A(20)A(19):A(22)1A(21)100:A(22)1.2A(22)1.2q/lA(23)20A(18)A(22)w//LIFE INSURANCE COMPARISON/A(6)0:A(19)0:A(32)0:A(40)0/A(2)0A(6)(A(3)(1A(5)100)A(4))(A(2)1000)0A(13)A(8)A(13):A(16)A(7):A(17)A(14):A(18)A(16)A(17)].A(21)0:A(20)0A(21)A(18)(A(20)100)c.:s.DSPOUSE RET.NA(2)XA(4):A(3)XA(5):A(4)XA(6):A(5)A(2)A(3)A(4):A(8)A(5)A(6)100A(7)/XA(10)XA(2):A(14)A(10)A(11)A(12)A(13):A(16)A(8):A(49)r-A(52)A(8):A(53)A(17):A(54)A(35):A(55)A(41):A(56)A(52)A(53)A(54)A(55):A(57)A(50):A(58)A(56)A(57)x--DISABILITY-A(2)XA(4):A(3)XA(5):A(4)XA(6):A(5)A(2)A(3)A(4):A(7)A(5)A(6)100:A(9)XA(3)/.A(14)A(9)A(10)A(11)A(12)XA(6):A(23)A(19)A(20)A(21)A(22)C,A(26)A(23)A(24)100A(25),A(28)A(26):A(29)XA(1):A(33)A(28)A(29)A(30)A(31)A(32),A(35)0:A(34)0A(35)A(33)(A(34)100)-A(41)A(37)A(38)A(39)A(40):A(50)A(43)A(44)A(45)A(46)A(47)A(48)A(LN)"I":54908+^A(LN)P(1):P(5)BGIT$(LN)"I":5490N+hIT$(LN)"":P(5)0T+r^+|LIFE+A(60)BG:A(64)BG:A(68)BG:A(72)BG+A(8)A(2)A(3)A(4)A(5)A(6)A(7):A(17)A(10)A(11)A(12)A(13)A(14)A(15)A(16)#,A(19)XA(4):A(20)XA(5):A(21)FM5P(1)A(23)@*dFM8PY0:P(1)A(6):P(2)A(19):P(3)A(32)F*N*XAl*(FM1LN19)XA(4)A(LN)*(FM1LN20)XA(5)A(LN)*(FM1LN21)XA(6)A(LN)**RTN TO MAIN FORM +"FM1LN59A(LN1)P(1):A(LN2)P(2):A(LN3)P(3):IT$())MATH>)FM5500,5600,5020,5020,5700,5020,5020,5800D)V)CALL SUBFORM)P(1)0:P(2)0:P(3)0:P(4)0:P1$(1)SD$(LN):P1$(2)TL$)FM1LN60PY1) FM1LN64PY2)FM1LN68PY3)FM1LN72PY4)F)PEXIT SUBFORM*Z39 NI0L23JQ:20130 NJ(SI) NJ160JJ64:20130 N(J); NI N" ";T NL'!NQ$;"* *"^!NQ$;"**1234567890123456789012345678901234567890**"f!N:!N(13);(4);"PR#0":34,0:33,4024:" ";:(13);(4);"PR#1":(12)HN::RNQ$;"**1234567890123456789012345678901234567890**"% \NQ$;"* *"1 fNL023W pNS102440(L8)128(L8(L8))r uNT(L1)10((L1)10) zNQ$;T;" "; NI0EMO,D1"`":14:6:"LOADING DATA":j":15:6:"SAVING DATA":t":13:6:"LOADING PROGRAM":~"DK1:7400:B'FL$"MENU,D1":23:(13)(4);"SAVE";FL$:23:FL$" SAVED":R NSCREENDUMP`*NQ(2000)u4NQ$" ">N34,23:33,2:1:950:SR2964:SF2990:SI3111D$(4):22:D$;"NOMONCIO"":6:"$$$ GET RICH!: REAL ESTATE $$$":!QUIT !8150)!13:11:"END OF SESSION"8!100:8630F!RUN DEMOU"DK1:7400":10:6:"LOADING DEMONSTRATION":22:D$;"RUN DX:BS:PY:RT:QT$;P1$;QT$:QT$;P2$;QT$:QT$;ST$;QT$22:D$;"CLOSE";FQ$BB3,FS:BB4,FMINITIALIZATION!PC$(6),HD$(15),EX$(7)TDA$"----------------------------------------"BB(103)256(104):GY2048:GZ2058:SK2841:SE2ANJ(SI)ZNJ160JJ64:20130eN(J);lNIwN" ";T~NLNQ$;"* *"NQ$;"**1234567890123456789012345678901234567890**"N:N(13);(4);"PR#0":34,0:33,40$N2000,Q*OFS:E$"PARAMS3":FD$FL$",D"(DR)@B22:DO$;FD$:22:22:DW$;FL$qBQT$;ST$;QT$:J14:P(J):J:P1$(1):P1$(2)B22:DC$;FL$BBINITBI$(30),II$(14,30),P1$(2),P(5),TX$(7)BIT$(78),IP(4),NF$(14),LF(14),IB$(14),IU$(14)DK2FL$"PARAMS3":FD$FL$",D"(DR)_>DK4FL$"INVEN":FD$FL$",D"(DR)o>FY0:7414>22:DO$;FD$:22:DR$;FL$>Q$>7416>FY1:SE>22:DC$;FL$>8900>FY1İ7500:7400>>LDISK DRIVE>N?P:DC$;FL$=fGZ=h'=WRITE DATA<=DK2:7400:8810o=FL$"FORM"(FM)FC$".DAT":FD$FL$",D"(DR)=22:DO$;FD$:22:22:DW$;FL$=AX:J1AX:A(J):J:J1AX:IT$(J):J=22:DC$;FL$==TEST DISK >DK1FL$"FORM1.STR":FDZ<6N34,23:33,2:1:24:" ";:(13);(4);"PR#1":(12)|)HN::)RNQ$;"**1234567890123456789012345678901234567890**")\NQ$;"* *")fNL023*pNS102440(L8)128(L8(L8))7*uNT(L1)10((L1) # ,3,N#H&IMAGEWRITER3#R&EPSON FX/MX/RX80B#\&NEC 8023A]#f&CENTRONICS 700 SERIESk#p&NO SETUP~#z&CONTROL CODES#'FQ$"MAIN,D1":23:(13)(4);"SAVE";FQ$:23:FQ$" SAVED":F:FQ$" SAVED":) NSCREENDUMP%)*NQ(2000):)4NQ$" 8200:8600"!8650"!9"`":14:6:"LOADING DATA":W"j":15:6:"SAVING DATA":g""ERROR CODE""SE:1:23:"ERROR # ";(222);" AT LINE # ";(218)256(219):100:"%6,0,3,1,15,5,2"%#1,3,N"%#2,3,N",3,N" ,3,N#,3,NP - PROPERTY INVENTORY DISK"Q!!6:15:"OR:":7:17:" M - RETURN TO MAIN MENU"!!12:23:"ENTER SELECTION ? ";:30:23::" "::100!!F1$"DPM":SF,F1$,Q$,T:T08650!!30:23:Q$!!Q$"M"8690!!Q$"D"DK3:8200:8600 "!Q$"P"DK4:6900:TR0ī8458- !SL(SL$):SLSL8(SL0)3 !J 4!RESET PARAMETERS >!PC0:P(1)0:P(2)0:P(3)0:P(4)0:PY0:RT0:P$""::ST$"" f! !SELECT DISK !8150 !6:7:"SELECT DISK TO BE INITIALIZED:" !7:10:" D - DATA DISK"!!7:12:" SL$" ":SL0SL8SL$(SL):8464: !SL8SL$"N":8464i !31:9::SL$::100:Q$"0"Q$"8"SL$Q$| !Q$"N"SL$Q$ !(Q13SL$" ")(Q13Q$"1"Q$"2"Q$"3"Q$"4"Q$"5"Q$"6"Q$"7"Q$"N")Ė31:9:" ":8458!31:9:SL$ !(DR):84149 29:9::DQ$::100:Q$"1"Q$"2"DQ$Q$w (Q13DQ$" ")(Q13Q$"1"Q$"2")Ė29:9:" ":8408 29:9:DQ$ 6900:TR0ī8408 DR(DQ$):BB2,DR !PRINTER SLOT!8150!8:9:"PRINTER SLOT (N,1-7) ? ""!Q255! PC$(I)((Q)" ",JT)F T$(I)PC$(I):HT:VT:PC$(I)" "M IU GZk 6900:TR0ī8330 PR$"":I1NF:PR$PR$(" "((PC$(I))),3):I  DISK DRIVE 8150 10:9:"DATA DRIVE (1-2) ? "  DQ$" ":DR1DR2DQ$J1(J0):8332 JJTī8332W Q21(A$,J1,1)"0"(A$,J1,1)"9"JJ1:8332p Q$"0"Q$"9"ī8332z JJ1 J1A$Q$(A$,JT) J1A$(A$,J1)Q$(A$,JTJ1) 8332 T0ī8364 J0Q0 J0Q((A$,J)) Q255Ģ4:"> PRINTER CONTROL CODES <"A~ NW1āI1NF:PC$(I)"0 ":Ic I1NF:T$(I)PC$(I):I:3000s NW0ī8380 I1NF:JT3:T0:J0:A$T$(I)" ":VTY0DYI1 HT:VT:A$::HTJ:VT:(A$,J1,1): 100 Q13ī8356 TT1 Q8Jй34,24:1:24:868:34,0:13:24:"FORMATTING DISK";:1:1:" "V< I(103):J(104)r> 103,(105):104,(106)@ 22:D$;"INIT GR.INS,D";(DR)B 103,I:104,JJ DK3İ7854L DK4İ7884N l PRINTER CODESv 8150:SR,9700:3440{ 8:8150*& 9:5:"PRESS C TO FORMAT DISK":J( 15:"IN DRIVE #";(DR)::k* 13::"$$$ WARNING $$$"::, 10:"EVERYTHING ON THE DISK":. 15:"IN DRIVE #";(DR):0 14:"WILL BE ERASED":2 13:"IF YOU CONTINUE":5 6800:TR08270@9 $,Q,T$:PC$(I)("0"BL$,Q):I:PR$(BL$,3N)KD$(4):22:D$;"NOMONCIO"DO$D$"OPEN":DR$D$"READ":DW$D$"WRITE":DC$D$"CLOSE":DD$D$"DELETE"":7:"$$$ GET RICH!: INSURANCE $$$": FORMAT DISK DR0TR0:8270 7700 ----------------------------":BL$" ":UN$"________________________________________"QT$(34)BB(103)256(104):GY2048:GZ2058:SK2841:SE2950:SR2964:SF2990:SI3111,SR,9700:N,Q,Q,Q,Q,Q,Q:I1N:Q256(219):FO!0uERROR CODE":uSE:22:"ERROR # ";(222);" AT LINE # ";(218)256(219):F,0:33,408"N2000,Q>"ON"0uERROR CODE":uSE:22:"ERROR # ";(222);" AT LINE # ";(218)256(219):F!N2000,Q!O!0uERROR CODE!:uSE:22:"ERROR # ";(222);" AT LINE # ";(218)256(219):FSE:22:"ERROR # ";(222);" AT LINE # ";(218)256(219):F:uSE:22:"ERROR # ";(222);" AT LINE # ";(218)256(219):FAT LINE # ";(218)7100:NI0ī36552SJ1İ6100:TR0ī3655[4800:11:6:"PRINTING ITEMIZATION"p IQ0İ5600:IQ1!NI4LC60NT0:3700"5200$L$" ITEM AMOUNT":500)L$" ------------------ --uSE:22:"ERROR # ";(222);" AT LINE # ";(218)256(219):FI)5NJ160JJ64:201305N(J);5NI5N" ";T5NL/6NQ$;"* *"f6NQ$;"**1234567890123456789012345678901234567890**"n6N:6N(13);(4);"PR#0":34,0:33,406N2000,Q6O60uERROR CODE6:HN::4RNQ$;"**1234567890123456789012345678901234567890**"-5\NQ$;"* *"95fNL023_5pNS102440(L8)128(L8(L8))z5uNT(L1)10((L1)10)5zNQ$;T;" ";5NI0395NI0L23JQ:201305NJ(SEPSON3\&NEC 8023A3f&CENTRONICS 700 SERIES3p&NO SETUP 4z&CONTROL CODESJ4'FL$"MAIN,D1":23:(13)(4);"SAVE";FL$:23:FL$" SAVED":Z4 NSCREENDUMPh4*NQ(2000)}44NQ$" "4>N34,23:33,2:1:24:" ";:(13);(4);"PR#1":(12)4ENT CHILDREN"2S%"LIVE WITH YOU?................:" 3X%"HOW MANY OTHER DEPENDENTS"73]%"DO YOU CLAIM?.................:"J3%1,0,6,1,1,5,2X3%TITLE,30l3%6,0,3,1,13,5,2v3%#1,33%#2,33,33 ,33,33 ,33H&APPLE3R& OF HOUSEHOLD1#QUALIFYING WIDOW(ER)2%"ARE YOU 65 OR OVER?...........:"-2&%"ARE YOU BLIND?................:"T20%"DO YOU CLAIM YOUR SPOUSE?.....:"{2:%"IS YOUR SPOUSE 65 OR OVER?....:"2D%"IS YOUR SPOUSE BLIND?.........:"2N%"HOW MANY DEPEND -N2000,Q-O"-0uERROR CODEc-:uSE:22:"ERROR # ";(222);" AT LINE # ";(218)256(219):F(218)256(219):F1J1B#SOC.SEC.NO.,11]1D#OCCUPATION,24i1#SINGLE1#MARRIED FILING JOINT RETURN1#MARRIED FILING SEPARATE RETURN1#HEAD39,NI0L23JQ:20130),NJ(SI)B,NJ160JJ64:20130M,N(J);T,NI_,N" ";Tf,NL,NQ$;"* *",NQ$;"**1234567890123456789012345678901234567890**",N:-N(13);(4);"PR#0":34,0:33,4024:" ";:(13);(4);"PR#1":(12)-+HN::d+RNQ$;"**1234567890123456789012345678901234567890**"+\NQ$;"* *"+fNL023+pNS102440(L8)128(L8(L8))+uNT(L1)10((L1)10)+zNQ$;T;" ";,NI0,3 *,3* ,3!*H&APPLE,*R&EPSON;*\&NEC 8023AV*f&CENTRONICS 700 SERIESd*p&NO SETUPw*z&CONTROL CODES*'FL$"MAIN,D1":23:(13)(4);"SAVE";FL$:23:FL$" SAVED":* NSCREENDUMP**NQ(2000)*4NQ$" "#+>N34,23:33,2:1:LIND?.........:"3)N%"HOW MANY DEPENDENT CHILDREN"])S%"LIVE WITH YOU?................:" ~)X%"HOW MANY OTHER DEPENDENTS")]%"DO YOU CLAIM?.................:")%1,0,6,1,1,5,2)%TITLE,30)%6,0,3,1,13,5,2)%#1,3)%#2,3),3* RRIED FILING SEPARATE RETURN3(#HEAD OF HOUSEHOLDM(#QUALIFYING WIDOW(ER)t(%"ARE YOU 65 OR OVER?...........:"(&%"ARE YOU BLIND?................:"(0%"DO YOU CLAIM YOUR SPOUSE?.....:"(:%"IS YOUR SPOUSE 65 OR OVER?....:")D%"IS YOUR SPOUSE BNQ$;"* *"j'NQ$;"**1234567890123456789012345678901234567890**"r'N:'N(13);(4);"PR#0":34,0:33,40'N2000,Q'OFC.SEC.NO.,11'D#OCCUPATION,24'#SINGLE'#MARRIED FILING JOINT RETURN(#MA3);(4);"PR#0":34,0:33,40[+N2000,Qa+OFFL023c&pNS102440(L8)128(L8(L8))~&uNT(L1)10((L1)10)&zNQ$;T;" ";&NI039&NI0L23JQ:20130&NJ(SI)&NJ160JJ64:20130&N(J);&NI&N" ";T&NL3'10)F*zNQ$;T;" ";R*NI039k*NI0L23JQ:20130x*NJ(SI)*NJ160JJ64:20130*N(J);*NI*N" ";T*NL*NQ$;"* *"#+NQ$;"**1234567890123456789012345678901234567890**"++N:O+N(1'DISK DRIVE'(/'218:3:"INSERT"::R'<DK1Ė17:" PROGRAM "::7750r'=DK2Ė18:" DATA "::7750'>DK4Ė15:" INVENTORY "::7750'A18:" DATA ":'F:19:"DISK":'P19:"INTO": (Z16:"DRIVE ";::" #";(1((DK1)(DR2))K'&DK1FL$"PARAMS1":FD$FL$",D1"R&DK2FL$"PARAMS3":FD$FL$",D"(DR){&DK4FL$"INVEN":FD$FL$",D"(DR)&FY0:7416&22:DO$;FD$:22:DR$;FL$&Q$&7418&FY1:SE&22:DC$;FL$&8900&FY1İ7700:7400'%j%READ DATA(%DK2:7400:88003%7314f%FL$"FORM"(FM)FC$".DAT":FD$FL$",D"(DR)%22:DO$;FD$:22:DR$;FL$%Q:J1Q:A(J):J:J1Q:IT$(J):J%7316%SE%PR0%8900%22:DC$;FL$%GZ%&TEST DISXT$TDK1:7400:8820"$V7266L$XFL$"FORM"(FM)".STR":FD$FL$",D1"j$Z22:DO$;FD$:22:DR$;FL$$\TL$:NP:I1NP1:PP(I):I:AX:I1AX:SD$(I):I:I1AX:PS$(I):I:I1AX:PF$(I):I$`7268$bSE$d8900$f22:DC$;FL$$hGZREAD ITEM #DK2:7400:8800+#7114a#FL$"FORM"(FM)FC$"."(LN):FD$FL$",D"(DR)#22:DO$;FD$:22:DR$;FL$#NI:IA:J1NI:I(J):J:J1NI:I$(J):J:A(LN)IA#7116#SE#8900#22:DC$;FL$#GZ#$RREAD TE3):7400:8800"\7014O"^FL$"FORM"(FM)FC$"."(LN):FD$FL$",D"(DR)m"`22:DO$;FD$:22:DR$;FL$"bNI:NF:I1NF:I(I):I:J1NI:I1NF:II$(I,J):I:J"d7018"fSE"hIINF:I(I)0:I"j8900"l22:DC$;FL$"nGZ"p #!I1NF:NF$(I),LF(I),DB$(I):I*!GY0!D!PRINT-CONTINUEU!1:23:DA$;!8:24:"P-PRINT C-CONTINUE";:1:1:" "!100:Q67Q80ī6830!1:24:(BL$,39);:1:1:" "!TR(Q80)!!XREAD DBASE"ZNI0:DK22(FMFORM":8:13:"PRESS RETURN TO CONTINUE"> R100:Q13ī5970D \_ SELECTED ITEMIZATIONSi 4800 TA(LN):TBGA$(BL$,11) TBGİ220 ::SD$(LN)(DT$,26(SD$(LN)))" "A$ 6800  READ DATA NF,MF,HL,NX,X0,Y0,DY"500L$"":500&+TEST PRINTER5815013:10:"POSITION PAPER":10:12::" SET PRINTER ON LINE "::9:14:"PRESS RETURN WHEN READY":100:Q13ī5820>NO DATA@SS15980C4800( H5:10:"THERE IS NO DATA FOR THAT ":J5526,5528,5530,55320PF1:PI0:5536DPF0:PI1:5536XPF1:PI1:5536kPF0:PI1:SJ1PP0İ5800:PP1PRINT TITLEL$TL$PY0L$L$"-["(64PY)"]"L$"$$$ "L$" $$$"L$(BL$,(48(L$))2)L$S <"::!12:"F - FORM(S)":?12:"I - ITEMIZATIONS":U12:"B - BOTH":u12:"S - SELECTED ITEM.":Q$" ":12:19:"ENTER SELECTION? ":29:19::Q$::100SF,CI$,Q$,JJ0Q$" "29:19:Q$:J0ī5516SJ0:LL$" 0,2000,2300,2400,2600,2800,8000)5002BPITEMIZATION HEADINGadTA(LN):TBGA$(BL$,11)qnTBGİ220xL$"LINE "SD$(LN)(DT$,25(SD$(LN)))" "(SD$(LN),4)A$:500:L$"":500|PRINT OPTIONS~815012:6:"> PRINT OPTION12:"P - PROPERTY":512:"A - AUTOMOBILE":M12:"H - HEALTH":h12:"M - MAIN MENU":Q$" ":12:23:"ENTER SELECTION? ":29:23::Q$::100SF,CP$,Q$,SSSS0Q$" "29:23:Q$:SS0ī5020SS7İ5500SS190 TITLEL$"$$$ "TL$;PY0L$L$"-["(64PY)"]"LL$L$" $$$"g:(42(L$))2:1:L$m}FORMS MENU8150:13:4:"> PRINT FORMS <"PP0:12:"Z - ALL FORMS":12:"L - LIFE":12:"D - DISABILITY":(X$,Q,1)" "Q1QQ1:3904>BX$(X$,Q):X$" "Q1X$""DDOPLABELxRL$"> "(SD$(LN),(SD$(LN))4)" <"~T*PRINTER STRING/Z1$(4)"PR#"(SL):Z0$(4)"PR#0":ZP$"":Q1183:Q$(PR$,Q,3):ZP$ZP$((Q$)):Q4SCREEN---------":500.I1NI+3TI(I):220^8L$(" "(I),2)". "(I$(I)BL$,30)A$:500i=GY:I}@L$"":500:500BGtTOF~550:LC663710LC0:NT0İ5600NT0:<REMOVE TRAILING BLANKS>Q(X$):Q0ī3908@1:X:FF3:FL$;" SAVED":;@1:1:" ":X(115)256(116)(103)256(104):1:1:X:34:1:" ":X(0):XX65536(X0):34:1:X:FFF":;<@1:1:" ":X(115)256(116)(103)256(104):1:1:X:34:1:" ":X(0):XX65536(X0):34:ATION RATE,2,P\:%APPRAISED VALUE,12,A{:%" replacement cost",12,C:%" app. cash value",12,C:%TEXT$ DATA:%?,FAMILY,SPECIAL,PERSONAL,OTHER;%?,BASIC,BROAD,SPECIAL,RENTERS,COMPREHENS,CONDOE;'FL$"PRINT,D1":23:(13);(4);"SAVE ";FL$:2S,CONDOJ4'FL$"PRINT,D1":23:(13);(4);"SAVE ";FL$:23:FL$;" SAVED":4@1:1:" ":X(115)256(116)(103)256(104):1:1:X:34:1:" ":X(0):XX65536(X0):34:1:X:F1:X:F:1:X:FY':%ORIGINAL COST,12,AB:%DEPRECIYEAR OF PURCHASE,4,Y,3%ORIGINAL COST,12,AG3%DEPRECIATION RATE,2,Pa3%APPRAISED VALUE,12,A3%" replacement cost",12,C3%" app. cash value",12,C3%TEXT$ DATA3%?,FAMILY,SPECIAL,PERSONAL,OTHER4%?,BASIC,BROAD,SPECIAL,RENTERS,COMPREHENERSON INSURED,20,T,2$COMPANY/INSURER,20,TE2$TYPE OF POLICY,20,T]2$POLICY NUMBER,20,Tv2$BENEFIT PERIOD,20,T2$ANNUAL PREMIUM,12,A2$ANNUAL BENEFIT,12,A2%INVENTORY2%8,8,18,40,1,5,12%DESCRIPTION,16,T2%SERIAL NUMBER,12,T3%1^$AGE,12,N(1c$NO. COLLEGE YEARS,12,N>1h$ANNUAL COST,12,AX1m$FUNDS AVAILABLE,12,Aw1r$" years to college",12,C1w$" inflation factor",12,C1|$" total cost",12,C1$" funds needed",12,C1$LONG-TERM DISABILITY1$7,7,16,10,1,5,12$PEN.0#7,7,15,20,1,5,110#PERSON INSURED,18,TK0$COMPANY/INSURER,18,Td0$TYPE OF POLICY,18,T|0$POLICY NUMBER,18,T0"$BENEFIT PERIOD,18,T0,$MONTHLY BENEFIT,12,A06$ANNUAL PREMIUM,12,A0T$COLLEGE FUND0V$9,9,18,10,1,5,10Y$NAME,18,T A/i#" net protection",12,C//#HEALTH INS.D/#7,7,15,20,1,5,1]/#PERSON INSURED,18,Tw/#COMPANY/INSURER,18,T/#TYPE OF POLICY,18,T/#POLICY NUMBER,18,T/#DEDUCTIBLE,12,A/#MAXIMUM LIMIT,12,A/#ANNUAL PREMIUM,12,A0#SHORT TERM B OWNER,18,T!.7#BENEFICIARY,18,T;.<#COMPANY/INSURER,18,TT.A#TYPE OF POLICY,18,Tl.F#POLICY NUMBER,18,T.H#FACE AMOUNT,12,A.K#CASH VALUE,12,A.P#LOAN ON POLICY,12,A.U#CURRENT DIVIDEND,12,A.Z#CASH VAL. INCREASE,12,A/d#ANNUAL PREMIUM,12,0:I15:TX$(I):I-*!8-`":15:6:"LOADING DATA":W-t":15:6:"LOADING TEXT":g-"ERROR CODE-"SE:1:23:"ERROR # ";(222);" AT LINE # ";(218)256(219):100:-(#LIFE INSURANCE-*#13,13,18,10,1,5,1--#PERSON INSURED,18,T .2#POLICY, SELECT DATABASE-, FM1LN38ČSR,9300F, FM1LN43ČSR,9000_, FM2LN10ČSR,9400x, FM3LN62ČSR,9600,& FM4(LN5LN14)ČSR,9200:8290,0 FM4ČSR,9100,b , SELECT TEXT$, FM6ČSR,9720:I17:TX$(I):I- FM7ČSR,971281+DR(BB2)1+D$(4):22:D$;"NOMONCIO"+DO$D$"OPEN":DR$D$"READ":DW$D$"WRITE":DC$D$"CLOSE":DD$D$"DELETE"+"+@MAIN MENU+JDK1:7400+T:15:6:"LOADING MENU":22:D$;"RUN MENU,D1"+:8:"$$$ INSURANCE PLANNING $$$":-":BL$" ":DT$". . . . . . . . . . . . . . . . . . . .":AS$"***************************************"*CP$"ZLDPAHM":CI$"FIBS"+BB(103)256(104):GY2048:GZ2058:SK2841:SE2950:SR2964:SF2990:SI3175:SU3)22:DC$;FL$)BB2,DR$)GZ*)>)INITIALIZATION)PP(15),PC$(3),SD$(78),LD$(78),PS$(78),PF$(78),A(78),IT$(78),I$(30),I(30),II(14),II$(14,30),LF(14),NF$(14),DB$(14))QT$(34))BG1E10*DA$"---------------------------------------);" "::%(d13:"AND PRESS RETURN";(i100:Q13ī7785A(nS(READ PARAMS1h(DK1:7400:8800q(DR0|(7866(FL$"PARAMS1":FD$FL$",D1"(22:DO$;FD$:22:DR$;FL$(DR:SL:PC:PR$:I16:PC$(I):I(7868(SE(8900 MS0:  DK1:7400M :15:6:"LOADING MENU":22:D$;"RUN MENU,D1"[ ITEMIZE p 3950:Q$PS$(LN) Q$"L"Q$"E"Q$"C"İ3900:3655 Q$"D"İ5100:6000:3655 Q$"I"ī3540 4000:3655 IS1:NI0:LR18 7000:4800 ! 0ĴJ1000,1100,1404,1405:3210v CF$"EILQFRH+-S":SF,CF$,Q$,J:J0ĴJ1400,3500,2600,3300,1200,1300,1900,1402,1403 MS13190  QUIT 3950 FM4FM9İ7300:ST$"":RT0:7850:3350 7300:5200:RT1  7850:7700:BB3,FM:7600E ^ L2NP1<h LNPP(L)PGL1:SLLNPP(L1)1:LNP1Cr LI| W FIND IG b L24 ITIP(L)IGL1:SLITIP(L1)1:L4 L  PROCESS FORM MS1 2900:4800& 3900:5000:200v 100 CF$"UD*/":SF,CF$,Q$,J:JQQ((P$,1)):QQ47QQ58ī2640VH UP78QQ96QQ123Q$(QQ32):SI,P$,Q$,Q:2640J UP89QQ64QQ91Q$(QQ32):SI,P$,Q$,Q:2640P T0:L1AXi P$(SD$(L),Q)TL:LAXn Ls T0ī2690x LNT:2900:200 3900 T FIND PAG1:SLSL1/SL0IG1IT1:SLIT:400:2080ESL0İ1650:2080N400T ^( LINEh2 3950< HT11:VT23:HT:VT:"ENTER LINE NUMBER? ";:NC3:P$(BL$,NC):HTHT19:600:P$(BL$,NC)ī2690A 1:VT:868:16:VT:"SEARCHING"; F Q(P$):S3S1S21:1920"100:3900:0IDELETE ?NI02080vNINI1:NI0I$(1)(BL$,LR):I(1)0:A(LN)0:2065LITNII$(L)I$(L1):I(L)I(L1)L A(LN)0:L1NI:A(LN)A(LN)I(L):L 28:3:TA(LN):156:A$:3:SL7:" ":ITITq3950QtS40:DL$LD$(LN):(DL$)0Ė8:22:"NO ADDITIONAL INFORMATION":1950pvS3(DL$):S11:S30ī1950S2S136:S2S3S2S3S2S3ī1940((DL$,S2,1))" "S2S21:19302:22S4:(DL$,S1,S2S11);:S4S41:S43ī1950S2:156:A$&HT:VT:TI(IT):156:A$038006C IADD SNI3018603:SL8:" ":TIG:NINI1:ITNI:I$(IT)(BL$,LR):I(IT)0:2950&TIGİ190:SL1NINI1:400:NINI1:3:SL8:">";(" "(IT)".",3):1700DlHELP,NC).HT28:VTSL8:HT:VT:" ";UHT:VT:"$";:HTHT1:600:HTHT1tT(P$):(T)99999991714TI(IT)(PL0)T(PL0)T(PL0)TT100:130:TT100HT:VT:" "A(LN)A(LN)I(IT)(PL0)T:I(IT)T HT:3:TA(LN)*NI0PL1:3950:19:23:"PLUS":1714WNI0PL1:3950:19:23:"MINUS":1714a1760HT8:VTSL8:HT:VT:P$I$(IT):NCLR:600I$(IT)P$A(LN)A(LN)I(IT):TA(LN):156:28:3:A$:NC10:P$((I(IT))BL$,NC):1715NC10:P$(BL$ITIP(IG1)11590C"SLSL1:ITIT1:3:SL7:" ":3:SL8:">"I6X@IFORWARD nJNIIP(IG1)1640TIGIG1:ITIP(IG):SL1:400hrIREVERSE |IG11690IGIG1:ITIP(IG):SL1:400I EDITNI0PL0:3950:1710999991440(PL2A(LN)A(LN)T:1450KPL3T0A(LN)A(LN)T:1450vA(LN)A(LN)(PL0)T(PL0)T(PL0)5000:3003900IUP ITIP(IG)1540SLSL1:ITIT1:3:SL9:" ":3:SL8:">"IDOWN ITNI8:23:L$:A$PF$(LN).A$"D"A$"A"B$"$"AA$"P"B$"%"bA$"N"A$"Y"A$"T"B$"#"HT28:VT2SL1:HT:VT:868:HTHT1:HT:VT:B$;:NC10:P$(BL$,NC):HTHT1:600HTHT1:HT:VT:868P$(BL$,NC)ī1450 T(P$):(T)991:Y0DYI:(BL$,39X0HL1):I:/xENTER IyPL0:L$"ENTER":1408czPL1:L$" PLUS":1408~{PL1:L$"MINUS":1408|PL2:L$"TIMES":1408}PL3:L$"DIVIDED BY"A$PS$(LN):A$"L"A$"C"A$"D"PF$(LN)"L"IT$(LN)"I"14603950:11:2SL1:">"tF+PGNP1240KPGPG1:LNPP(PG):SL1:200QYDFiCRNI1280{CRCR1:6600RPG11340(PGPG1:LNPP(PG):SL1:200<FDRPCR11380ZCRCR1:6600d#vI1NF:X0HLA$"A"P$"ENTER $$$$$":950EA$"Y"P$"ENTER YEAR E.G. 1980"`(42(P$))2:23:P$;fmULNPP(PG)1040SLSL1:LNLN1:1:2SL3:" ":1:2SL1:">"LDVLNPP(PG1)11140`SLSL1:LNLN1:1:2SL1:" ":,NX,X0,Y0,DY-00I1NF:NF$(I),LF(I),DB$(I)s01IB$(I)(BL$,LF(I)):IU$(I)(UN$,LF(I)):DB$(I)"C"IU$(I)IB$(I)z02I04GY06UP("N")ČSU,NF$(1),NF080SEARCH039501HT1:VT23:HT:VT:"ENTER SEARCH PHRASE? ":NC18:P$(BL$,NC):HI:J/ CRNICRNI1$/NINI1./66004/A/DISPLAYi/15:5:" ITEM ";CR;" OF ";NI;" "u/I1NF/HTX01:HT:VTY0DYI1:VT/NF$(I);:HTHL:":"/HTHTHL1:HT:VT:II$(I,CR)" "/I//,READ DBASE 0.NF,MF,HL0.|Q$(32):SI,T$,Q$,L..~L:II$(I,CR)T$5.I;.E.EDITT.CR06318^.4500h.6240w.6600:700}..DELETE.CR0ī6418.4500.NI1CR0:I1NF:II$(I,CR)IB$(I):I:6414/JCRNI1:I1NF:II$(I,J)II$(I,J1):1NF1-dDB$(I)"C"II$(I,CR)(BL$,LF(I)):6252j-fT$II$(I,CR):LLF(I)11:(T$,L,1)" "L1:6250-hQ$(95):SI,T$,Q$,L-jL:II$(I,CR)T$-lI-n-tREMOVE UNDELINES-vI1NF.zT$II$(I,CR):LLF(I)11:(T$,L,1)(95)L1:62550,6200,6300,6400,6100,6800,6850/,DS160285,B,QUIT CRd,3950:8600:4800:3900:4400~,5400:5000:200:DS0,,8NEW,:NINX6220,;NINI1:CRNI,<I1NF:II$(I,CR)IU$(I):I:6600,>700,L,`ADD UNDERLINES-bI(20) ++pDBASE0+rDS1:I110:I(I)0:IL+t8000:6700:8500:4450\+v4800:3700v+CS$"FRAE"(4)"QSN"+4:3:P1$(1):29:3:TI(MF):156:A$:1:4:DA$+NI0İ6200:6030+NI0CR1:6600+100+SF,CS$,Q$,J ,J1250,13":5490*hIT$(LN)"":P(5)0#*r/*|HEALTHQ*T0:J28:TTA(J):J:A(9)TW*g*AUTOMOBILEm*:*DAUTO POLICIES*NA(1)(A(1)):A(1)0A(1)4A(1)0*XA(21)A(4)A(6)A(8)A(10)A(12)A(14)A(16)A(18)+bA(20)0A(21)A(21)A(19)AFORM>)P(1)0:P(2)0:P(3)0:P(4)0:P1$(1)SD$(LN):P1$(2)TL$R)FM9LN2PY1f) FM9LN3PY2z)FM9LN4PY3)FM9LN5PY4)F)PEXIT SUBFORM)ZFM7P(1)A(21):PY0))RTN TO MAIN FORM*^A(LN)P(1):P(5)BGIT$(LN)"ICR)) (I'(TI(MF):156:29:3:A$-(>(TITLE LINE P(L$"$$$ "TL$s(PY0L$L$"-["(64PY)"]"(L$L$" $$$"(:(42(L$))2:1:L$:(((MATH(FM5090,5090,5090,5500,5090,5090,5700,5090,5600()CALL SUBhCR MATH''ADD CR('I1NFJ'DB$(I)"A"DB$(I)"C"4350^'I(I)I(I)II(I)e'Ik'{'0EXIT DBASE':P(1)I(MF)'D'X'bENTER DBASE''DEL MATH'I1NF'DB$(I)"A"DB$(I)"C"4550(I(I)I(I)(II$(I,/&A$DB$(I):A$"D"A$"T"A$"C"A$"Y"4150B&,T(II$(I,CR))S&-A$"N"4144&.T(T)((T1000).5)1000:(T)99999994145&0II(I)T:II$(I,CR)((T)BL$,LF(I)):4150&1T0:(7):4142&6I&J4200:4300:TI(MF):156:29:3:A$&T ' ";%Z+%nERASE CMD ^%x34,22:35,24:1:22:958:34,0:35,24:CM0:n%SCHEDULES %7600:5100:7300%FM(PS$(LN)):BB3,FM%FM7FC64PY:FC$(FC)%LN1:7600:7850%MS0:%CR TO #'S%I1NF:II(I)0A1:21:DA$:CM1M$DFM4ĺ" I-ITEMIZE L-LINE Q-QUIT ":3915|$F"E-ENTER I-ITEMIZE L-LINE Q-QUIT "$K"U-UP D-DOWN F-FORWARD R-REVERSE"$NFM4ĺ" H-HELP ";:3930%P"+ - * / H-HELP UIT "4#" F-FORWARD R-REVERSE ":#I#ITEM CMD ^#1:21:DA$:CM1#"A-ADD E-EDIT Q-QUIT ^D-DELETE"#"U-UP D-DOWN F-FORWARD R-REVERSE"#"+ - ";##<COMMAND$0,1550,1600,1650,3660,1700,1705,17073"BIS136209"GU"L3950:7100:4800:3900s"QFM7LN17A(LN1)A(LN)"VIT$(LN)"I":NI0IT$(LN)"""`5000:2900:200"jIS0:"tDBASE CMD"y1:21:DA$:CM1#~"A-ADD E-EDIT ^D-DELETE Q-Q4:3:SD$(LN)F! 28:3:TA(LN):156:A$:8:6:"ITEM";:33:"AMOUNT"s!8:7:"------------------ ---------"! 1:21:DA$!IS1:NI0İ1800:3620!3800:IT1:2950:400!$100$"8CF$"A"(4)"UDFRQE+-":SF,CF$,Q$,J:J0ĴJ1800,2000,150箍堵堵堵箍堶堶堶LN14)ČSR,9100:OP2?+?4!READ DBASEE?6!NI0:DK2:7400:8800P?8!8514?:!FL$"FORM"(FM)FC$"."(LN):FD$FL$",D"(DR)?!NI:NF:I1NF:I(I):I:J1NI:I1NF:II$(I,J):I:J?@!8516?B!SE @C!IINF:3)(4):22:D$;"NOMONCIO"h>DO$D$"OPEN":DR$D$"READ":DW$D$"WRITE":DC$D$"CLOSE":DD$D$"DELETE">"IP(1)1:I24:IP(I)IP(I1)10:I>'SR,9500:I15:TX$(I):I>6>@SEL DBASE>JFM4(LN5LN14)ČSR,9000:OP1:8090?TFM4(LN5_______________________________________":DT$". . . . . . . . . . . . . . . . . . . ."d=QT$(34)p=FC$"Z"=BB(103)256(104):UP(BB6):DR(BB2):FM(BB3):FS(BB4):GY2048:GZ2058:SK2841:SE2950:SR2964:SF2990:SI3175:SU3281>D$(12),P(5),TX$(7)@<IT$(78),IP(4),NF$(10),LF(10),IB$(10),IU$(10)<A(78),I(30),SD$(78),PP(12),LD$(78),PS$(78),PF$(78),DB$(10),II(10),IX(40)< BG1E10V=DA$"---------------------------------------":BL$" ":UN$" ;8900;22:DC$;FL$#;GZ);<;WRITE PARAMS3K;DK2:7400p;FL$"PARAMS3":FD$FL$",D"(DR);22:DO$;FD$:22:22:DW$;FL$;QT$;ST$;QT$:J14:P(J):J:P1$(1):P1$(2);22:DC$;FL$;;INIT<I$(30),II$(10,30),P1$(2)):FC$(ST$,Q2,1):FM((ST$,Q4,2))?:(Q5ST$(ST$,Q5)O:2Q5ST$""U:<g:xREAD PARAMS3v:zDK2:7400:|7814:~FL$"PARAMS3":FD$FL$",D"(DR):22:DO$;FD$:22:DR$;FL$:ST$:J14:P(J):J:P1$(1):P1$(2):7816:SE;(1((DK1)(DR2)));" "::99^13:"AND PRESS RETURN"N9`100:Q137520T9bd9PUSH STACK9ST$ST$(" "(FM),2)FC$(" "(LN),2)99PULL STACK9(BB4)("M")ST$(" "(FM),2)"Z 1":RT0:PY0:BB4,0':Q(ST$):LN((ST$,822:DC$;FL$8890008FY1İ7500:740068F8LDISK DRIVEL8Ne8P17:3:"INSERT"::8RDK4Ė16:"INVENTORY"::75128TDK1Ė15:" PROGRAM "::75128V17:" DATA ":8X:18:"DISK":8Z18:"INTO":9\15:"DRIVE ";::" #"1AX:IT$(J):J 722:DC$;FL$&757TEST DISK]7DK1FL$"FORM1.STR":FD$FL$",D1"7DK2FL$"PARAMS3":FD$FL$",D"(DR)7DK4FL$"INVEN":FD$FL$",D"(DR)7FY0:7414722:DO$;FD$:22:DR$;FL$7Q$774167FY1:SEJ 6^72666`SE?6aJ1AX:A(J)0:J:J1AX:IT$(J)"":JJ6b8900[6d22:DC$;FL$c6fGZi6hy6WRITE DATA6DK2:7400:88106FL$"FORM"(FM)FC$".DAT":FD$FL$",D"(DR)622:DO$;FD$:22:22:DW$;FL$7AX:J1AX:A(J):J:J+SU,SD$(1),AX:SU,LD$(1),AX'5,7216/5.SE:508900K5222:DC$;FL$S54GZY56h5RREAD DATA}5TDK2:7400:88005V72645XFL$"FORM"(FM)FC$".DAT":FD$FL$",D"(DR)5Z22:DO$;FD$:22:DR$;FL$6\Q:J1Q:A(J):J:J1Q:IT$(J):422:DC$;FL$4$4 READ TEXT94"DK1:7400:8820D4$7214n4&FL$"FORM"(FM)".STR":FD$FL$",D1"4(22:DO$;FD$:22:DR$;FL$4*TL$:NP:I1NP1:PP(I):I:AX:I1AX:SD$(I):I:I1AX:PS$(I):I:I1AX:PF$(I):I:I1AX:LD$(I):I5)IA3d70163fSE!3h890023j22:DC$;FL$:3lGZ@3nP3WRITE ITEMe3DK2:7400:88103FL$"FORM"(FM)FC$"."(LN)::FD$FL$",D"(DR)322:DO$;FD$:22:22:DW$;FL$3IAA(LN):NI:IA:J1NI:I(J):J:J1NI:QT$;I$(J);QT$:JIS:JS2KS0İ6600:6990(2&280022:370082NG2XREAD ITEMX2YA(LN)0:NI0m2ZDK2:7400:8800x2\70142^FL$"FORM"(FM)FC$"."(LN):FD$FL$",D"(DR)2`22:DO$;FD$:22:DR$;FL$3bNI:IA:J1NI:I(J):J:J1NI:I$(J):J:A(LNTHT21:600:P$(BL$,NC)6840J1Q0:LNC11:(P$,L,1)" "QL:L1l1L:Q0S$(P$,Q):N11:6900v1NEXT1N1CR1:N1NXİ690011FIND1(S$)069501JSN1NI:IS1NF:SF,II$(IS,JS),S$,KS:KS0N1JS:CRN1:ISNF:JSNI2z#?    ͵Ҡ!ͶҠ"ͷҠ ͸Ҡ ͹Ҡà+̠" Ԯ Ų?ӱͱҠͲҠͳҠʹҠӠ٠CŠHՠΠ-Ԡ1Ϡ報堲堠̍ōōōōÍ̍ōōōōōÍÍōōÍÍÍ̍ōōōōōÍÍōōÍÍÍ̍ōōōōōōÍ̍čЍ̍čččččЍčč̍čččččЍčč̍ččЍ卲ȠŠōԠō󍲸􍲹򠤱ŠƠΠŠԍ̠͍Ƞō̠čȠŠōԠҠ危危ȠŠōԠō󍱶􍱷򠤱̠ŠȠԍ̠͍Ƞō̠č΍卲Šō͠Šԍ̠͍̠čԠō򠤱ŠŠŠԍ̠͍Ƞō̠č΍箍䬠㮢󠱰ᮍ箍箍堶堶堶1,0:A,0:A1,0" D$(13)(4)9 22:D$;"NOMONCIO"P 22:D$;"RUN LOGO"V 'FL$"INS":23:(13)(4);"SAVE";FL$:23:FL$" SAVED":UUGET RICH:INSURACE PLANNING, COPYRIGHT (C) 1984 BY HARRY KOONS AND HENRY HILTONuINS, VERSION 84A, 5/10/84d SETS LOMEM TO 3380 AND 3381, AND 3382 TO 0 TO LOAD GARBAGE ZAP AT 2048nxA3381103,A256(A256):104,(A256) A . ."DQT$(34)DFC$"Z"DBB(103)256(104):UP(BB6):DR(BB2):FM(BB3):FS(BB4):GY2048:GZ2058:SK2841:SE2950:SR2964:SF2990:SI3175:SU3281DD$(13)(4):22:D$;"NOMONCIO"EDO$D$"OPEN":DR$D$"READ":DW$D$"WRITE":DC$D$"SD$(78),PP(12),LD$(78),PS$(78),PF$(78),DB$(14),II(14),IX(40)HC BG1E10DDA$"---------------------------------------":BL$" ":UN$"_______________________________________":DT$". . . . . . . . . . . . . . . . . . 109.8,116.3,121.3,125.3,133.1,147.7,161.2,170.5,181.5,195.4,217.4,246.8,272.4,289.1,298.4,310.7H%?,BASIC,BROAD,SPECIAL,RENTERS,COMPREHENS.,CONDOMINIUMH'FL$"PROPERTY,D1":23:(13);(4);"SAVE ";FL$:23:FL$;" SAVED":FAVED":F(4);"SAVE ";FL$NAL COST,12,A$GU# USEFUL YEARS,2,N?GZ# APPRAISED VALUE,12,A^Gd#" REPLACEMENT COST",12,C|Gn#" APP. CASH VALUE",12,CG$CONSUMER PRICE INDEXG$72.1,77.8,79.5, 80.1,80.5,80.2,81.4,84.3,86.6,87.3,88.7,89.6,90.6,91.7,92.9,94.5,97.2,100,104.2`H$G DATA":(Ft":15:6:"LOADING TEXT":8F"ERROR CODEF"SE:1:23:"ERROR # ";(222);" AT LINE # ";(218)256(219):100:F(#INVENTORYF-# 8,8,18,40,1,5,1F2# DESCRIPTION,16,TF<#MODEL/SERIAL NUM.,12,TFF# YEAR OF PURCHASE,4,Y GP# ORIGI"(FM)FC$"."(LN)::FD$FL$",D"(DR)KE!22:DO$;FD$:22:22:DW$;FL$pE!NI0P(5)BG:22:DD$;FL$:8612E!NI:NF:I1NF:I(I):I:J1NI:I1NF:QT$;II$(I,J);QT$:I:JE!22:DC$;FL$E!E`":15:6:"LOADING DATA": Fj":15:6:"SAVINC$"."(LN):FD$FL$",D"(DR)=D!NI:NF:I1NF:I(I):I:J1NI:I1NF:II$(I,J):I:JD@!8516DB!SEDC!IINF:I(I)0:IDD!8900DF!22:DC$;FL$DH!GZDJ!D!WRITE DBASED!DK4:7400:8810)E!FL$"FORMD$"DELETE"3C"IP(1)1:I24:IP(I)IP(I1)10:IRC'SR,9500:I17:TX$(I):I{C,SR,9400:I19501984:IX(I1949):IC6C@SEL DBASECJFM3LN62OP1:SR,9000CC4!READ DBASEC6!NI0:DK4:7400:8800C8!8514D:!FL$"FORM"(FM)FT$(34)BFC$"Z"BBB(103)256(104):UP(BB6):DR(BB2):FM(BB3):FS(BB4):GY2048:GZ2058:SK2841:SE2950:SR2964:SF2990:SI3175:SU3281BD$(13)(4):22:D$;"NOMONCIO" CDO$D$"OPEN":DR$D$"READ":DW$D$"WRITE":DC$D$"CLOSE":DD$(12),LD$(78),PS$(78),PF$(78),DB$(10),II(10),IX(40)>A BG1E10ADA$"---------------------------------------":BL$" ":UN$"_______________________________________":DT$". . . . . . . . . . . . . . . . . . . ."BQ":FD$FL$",D"(DR)6@22:DO$;FD$:22:22:DW$;FL$g@QT$;ST$;QT$:J14:P(J):J:P1$(1):P1$(2)x@22:DC$;FL$~@@INIT@I$(30),II$(10,40),P1$(2),P(5),TX$(7)@IT$(78),IP(4),NF$(10),LF(10),IB$(10),IU$(10)2AA(78),I(30),SD$(78),PPEAD PARAMS3?zDK2:7400%?|7814J?~FL$"PARAMS3":FD$FL$",D"(DR)h?22:DO$;FD$:22:DR$;FL$?ST$:J14:P(J):J:P1$(1):P1$(2)?7816?SE?8900?22:DC$;FL$?GZ??WRITE PARAMS3?DK2:7400@FL$"PARAMS3SH STACK6>ST$ST$(" "(FM),2)FC$(" "(LN),2)<>L>PULL STACK>(BB4)("M")ST$(" "(FM),2)"Z 1":RT0:PY0:BB4,0>Q(ST$):LN((ST$,2)):FC$(ST$,Q2,1):FM((ST$,Q4,2))>(Q5ST$(ST$,Q5)>2Q5ST$"">< ?xRSERT"::,=RDK4Ė16:"INVENTORY"::7512O=TDK1Ė15:" PROGRAM "::7512c=V17:" DATA ":w=X:18:"DISK":=Z18:"INTO":=\15:"DRIVE ";::" #";(1((DK1)(DR2)));" "::=^13:"AND PRESS RETURN"=`100:Q137520=b>PU",<DK2FL$"PARAMS3":FD$FL$",D"(DR)U<DK4FL$"INVEN":FD$FL$",D"(DR)e<FY0:7414<22:DO$;FD$:22:DR$;FL$<Q$<7416<FY1:SE<22:DC$;FL$<8900<FY1İ7500:7400<!NI:NF:I1NF:I(I):I:J1NI:I1NF:II$(I,J):I:JF@!8516FB!SEFC!IINF:I(I)0:IFD!8900FF!22:DC$;FL$FH!GZFJ!G!WRITECLOSE":DD$D$"DELETE"=E"IP(1)1:I24:IP(I)IP(I1)10:I\E'SR,9500:I15:TX$(I):IbE6qE@SEL DBASEEJFM1LN38ČSR,9000:OP1:8090ETFM1LN43ČSR,9100:OP2:8090E^FM2LN10ČSR,9200:OP3EE4!READ DBASEF6!NI0:DK2:740:(12)EHN::|RNQ$;"**1234567890123456789012345678901234567890**"\NQ$;"* *"fNL023pNS102440(L8)128(L8(L8))uNT(L1)10((L1)10)zNQ$;T;" ";NI0394NI0L23JQ:20130ERROR CODES"SE:1:23:"ERROR # ";(222);" AT LINE # ";(218)256(219):100:'FQ$"MENU,D1":23:(13)(4);"SAVE";FQ$:23:FQ$" SAVED":F: NSCREENDUMP*NQ(2000)4NQ$" ";>N34,23:33,2:1:24:" ";:(13);(4);"PR#1"0:SI3111(D$(4):22:D$;"NOMONCIO"."Z:8:1:"$$$ INSURANCE PLANNING $$$":d!QUITn!8150!13:11:"END OF SESSION"!100:8630`":14:6:"LOADING DATA":j":15:6:"SAVING DATA":t":13:6:"LOADING PROGRAM": "DRIVE ";::" #";(1((DK1)(DR2)));" "::Id12:"AND PRESS RETURN"_i100:Q13ī7785enyINITIALIZATIONPC$(6)DA$"----------------------------------------" BB(103)256(104):GY2048:GZ2058:SK2841:SE2950:SR2964:SF299;"READ";FL$Q$7418*FY1:SEB22:D$;"CLOSE";FL$M8900cFY1İ7700:7400iyDISK DRIVE(217:3:"INSERT"::<DK1Ė15:" PROGRAM "::7750A17:" DATA ":F:18:"DISK":P18:"INTO":-Z15:"2:D$;"OPEN";FQ$:22:D$;"READ";FL$JDR:SL:PC:PR$:I16:PC$(I):IT7124\SEg890022:D$;"CLOSE";FL$BB2,DRGZTEST DISKDK1FL$"FORM1.STR":FQ$FL$",D1"FY0:7416 22:D$;"OPEN";FQ$:22:D$DK1:7400:8820)D$;"RUN FMBASE2,D1"/:<D HEALTHKNDR05790jXFM4:BB3,FM:BB4,("M")bDK1:7400:8820lD$;"RUN FMBASE2,D1"READ PARAMS1DK1:7400:8800DR07123FL$"PARAMS1":FQ$FL$",D1"#2" PROP!DR05390@FM3:BB3,FM:BB4,("M")UDK1:7400:8820oD$;"RUN PROPERTY,D1"u| PRINTDR05590DK1:7400:8820D$;"RUN PRINT,D1" AUTODR05690FM9:BB3,FM:BB4,("M")820BB4,SL(D$;"RUN SOCSEC,D1".9 LIFEHDR05190gFM1:BB3,FM:BB4,("M")| DK1:7400:8820D$;"RUN FMBASE,D1"FP DISABZDR05290dFM2:BB3,FM:BB4,("M")nDK1:7400:8820xD$;"RUN FMBASE,D1T4600,4500,5500 F 2500! P 0  HARDWAREA BB4,("H")V DK1:7400:8820l D$;"RUN MAIN,D1"r   INIT DISK DR04690 BB4,("I") DK1:7400:8820 D$;"RUN MAIN,D1" R SOCSEC DR05090DK1:7400:8URATION":' 5:" P - PRINT FORMS":B 5:" M - MAIN MENU":c  DR0XB5:YB9:CH$"H":BK1  12:23:"ENTER SELECTION ? ";:30:23::" "::1000 # F1$"IHPM":SF,F1$,Q$,T:T02590 ( 30:23:Q$ * Q$"M"2640 - DR0Q$"H"2590 2 "SLDPAHUQ":SF,F1$,Q$,T:T021701 30:23:Q$H DR0Q$"U"2170w T5000,5100,5200,5300,5600,5700,2500,8600 2000 UTILITY MENU 8150 15:4:"UTILITY MENU":: 5:" I - INITIALIZE DATA DISK": 5:" H - HARDWARE CONFIGLITY":. 47:" P - PROPERTY AND CASUALTY":J >7:" A - AUTOMOBILE":b C7:" H - HEALTH": H7:" U - UTILITY MENU": \7:" Q - QUIT WORK": fDR0XB7:YB19:CH$"U":BK1 z12:23:"ENTER SELECTION ? ";:30:23::" "::1000! F1$П:" ";CH$;" "::BK0 8100$ Bs 11:22:"ENTER SELECTION ? ";:29:22::" "::1000:Q$"A"Q$"Z"ī1991 29:22:Q$  MENU 8150 16:4:"MAIN MENU":: 7:" S - SOCIAL SECURITY": 7:" L - LIFE": *7:" D - DISABI VGET RICH:INSURANCE PLANNING, COPYRIGHT (C) 1984 BY HARRY KOONS AND HENRY HILTONuMENU VERSION 84E 10/20/848900(7900:710022000<50FdREAD KEYBOARDiSK:Q(6):Q$(Q)nGY:FORCE ENTRY BK1ĖXB:YB:            :I:P$:RT:PY 22:DC$;FL$&7WRITE INVENLDK2:7400:8810oFL$"INVEN":FD$FL$",D"(DR)22:DO$;FD$:22:DW$;FL$"INVEN"22:DC$;FL$INITIALIZATIONTR1:FM0:LN0PC$(6),T$(6){DA$"------------INTO":?Z15:"DRIVE ";::" #";(1((DK1)(DR2)));" "::[d13:"AND PRESS RETURN"qi100:Q13ī7785wnWRITE PARAMS3DK2:7400:8810FL$"PARAMS3":FD$FL$",D"(DR)22:DO$;FD$:22:DW$;FL$QT$;ST$;QT$:I14:P(I)FL$ Q$7418"FY1:SE322:DC$;FL$>8900TFY1İ7700:7400ZjDISK DRIVEp(217:3:"INSERT"::7DK3Ė16:" BLANK "::7750<DK1Ė15:" PROGRAM "::7750A17:" DATA ":F:18:"DISK":P18:"22:DD$;FL$:22:DO$;FL$:22:DW$;FL$\DR:SL:PC:QT$;PR$;QT$:I16:QT$;PC$(I);QT$:Im 22:DC$;FL$sTEST DISKDK1FL$"FORM1.STR":FD$FL$",D1"DK2FL$"PARAMS3":FD$FL$",D"(DR)FY0:741622:DO$;FD$:22:DR$;"PARAMS1":FD$FL$",D1"522:DO$;FD$:22:DR$;FL$\DR:SL:PC:PR$:I16:PC$(I):If7124nSEy890022:DC$;FL$BB2,DRGZWRITE PARAMS1DK1:7400:8810FL$"PARAMS1":FD$FL$",D1"%22:DO$;FD$:4:958TR(Q$"C")0EDIT-CONTINUE>23:DA$;q8:24:"E-EDIT C-CONTINUE";:1:1:" "z100Q$"E"Q$"C"ī69141:23:958TR(Q$"C")READ PARAMS1DK1:7400:8800DR07123FL$"PC3PR$" 27 19 0 0 0 0"EPC4PR$" 27 28 0 0 0 0"hPC5PR$" 0 0 0 0 0 0"xPC6İ8300~MENU-CONTINUE23:DA$;8:24:"M-MENU C-CONTINUE";:1:1:" "100Q$"M"Q$"C"ī68141:2nPC0ī5260,x34,21:1:21:868:34,0o11:21:"ENTER NUMBER ? ";:100:Q$;:PCQ48:PC1PC6ī525011:21:"YOUR PRINTER IS # ";PC:6900:TR15270,5281PC0:5240PC1PR$" 9 56 48 78 0 0"PC2PR$" 18 27 79 0 0 0"$(I):I GY #HARDWARE38400:8450=5200G7150MVTL$oL$"$$$ "TL$" $$$":(42(L$))2:L$PPRINTER SETUPZ8150:12:4:"> PRINTER MENU <"::dSR,9800:L16:X$:6:L;" - ";X$::LiGY,JTJ) 3180 T0ī32185 J0A$(UN$,JT)S J0A$((A$,J)UN$,JT)h T$(I)(A$,JT1) HT:VT:T$(I)" " I GZ 2100  3000:6900:TR0ī3120 p READ DATA z NF,MF,HL,NX,X0,Y0,DY I1NF:NF$(I),LF(I),DB:HTJ:VT:(A$,J1,1):# n 1003 p Q13ī3210= r TT1X t Q8JJ1(J0):3180j v JJT1ī3180 x Q21((A$,J1,1))95JJ1:3180 z Q21Q32:Q$" " | Q32Q95ī3180 ~ JJ1 J1A$Q$(A$,JT1) J1A$(A$,J1)Q$(A$(L)$ HTX01:VTY0DYL1:HT:VTC NF$(L);:HTHTHL:HT:":"b HTHT1:HT:VT:T$(L)" "i Lo    NEW RECORD & NW0ī3350 0 2000:3000 N I1NF:TLF(I) b HTHLXO3:VTY0IDY1 d JTT1:T0:J0:A$T$(I)" " l HT:VT:A$:ī2070# T$(I)(Q$,K)(UN$,LK), I:A 4TRAILING BLANKS^ >I1NF:Q$T$(I):L(Q$) HK0:JL11:(Q$,J,1)"_"KJ:J1 RJ \K0T$(I)(BL$,L):2170 fKLī2170 pT$(I)(Q$,K)(BL$,LK) zI: DISPLAY L1NF:TLF14:6:"LOADING MENU"$ <DK1:7400> F22:D$;"RUN MENU,D1"Q dREAD KEYBOARDh iSK:Q(6):Q$(Q)r nGY: TRAILING UNDERLINES I1NF:Q$T$(I):L(Q$) K0:JL11:(Q$,J,1)" "KJ:J1 J K0T$(I)(UN$,L):2070 KLUGET RICH:INSURANCE PLANNING, COPYRINT (C) 1984 BY HARRY KOONS AND HENRY HILTONMAIN VERSION 84E, 8/25/84YRIGHT (C) 1984 BY HARRY KOONS AND HENRY HILTON 89007900:7100(BB4)("H")OP5:4500((BB4)("I")İ8600 2:                        ---------- ---------- ----------":500H TI(4):220:A1$A$_ TI(8):200:A2$A$v TI(7):200:A3$A$L$" "A1$A2$A3$:500L$"":500:500LL$" "PRINT ITEMSLX64 COST":500 L$"":500) L1NIG T(II$(4,L)):220:A1$A$e T(II$(8,L)):200:A2$A$ T(II$(7,L)):200:A3$A$ L$II$(1,L)" "II$(2,L)" "II$(3,L)" "II$(5,L)A1$A2$A3$:500 GY:L1 L$" Y:I:L$"":500:500H L/M L$"":500:5005R ;\ P PRINT INVENTORY] LL$" " L$" MODEL/SERIAL YEAR USEFUL ORIGINAL CASH REPLACEMENT":500 L$"DESCRIPTION NUMBER PURCH. YEARS COST VALUE :TR0ī34205 4800:11:6:"PRINTING ITEMIZATION"J IQ0İ5600:IQ1e NF4LC60NT0:3700o 5200 FM3İ3500:3410 L1NI L$"ITEM "(L)" OF "(NI):500:L$"":500 I1NF* L$(NF$(I)BL$,HL)": "II$(I,L):5004 G500:L$"":500:32704 TA(LN):TBGA$(BL$,11)D TBGİ400 L$SD$(LN)(DT$,31(SD$(LN)))" "(SD$(LN),4)A$" "IT$(LN):500 GY:LN :NT1:3700  PRINT DB ITEMS LX64 8200:6600:7000:NI0ī3420  SJ1İ6100PS$(LN)"I"İ36004? IT$(LN)"I"PS$(LN)"D"İ3300<D LNKI NT1:3700QN b PRINT FORM x LX56:FM1LX52 FM6FM7İ8400 4800:17:6:"PRINTING" 5600 LN1AX FM4LN10LNAX:3270 PF$(LN)"L"L$"":500:3920:J  PRINT DRIVER= PR1:7300:PR0PY0İ5950:3050Q PR0PY03050[ 7250k PF1İ3200{ PI1İ3100  LN FOR ITEM& FM93150( Q0:LN1AX:QQ(IT$(LN)"I"):LN:QO3150* 4800:IQ00 LN1AX: IT$(LN)"I" FM9:LN1:TL$"AUTOMOBILE INSURANCE":FC90:FC$"Z":3000C< 2700I X AUTO POL. PY14:FC64PY:FC$(FC):FM7:LN1:TL$"AUTO POLICY":3000 PY:PY0:FC90:FC$"Z"  HEALTH FM4:LN1:TL$"HEALTH INSURANCE":FC90:FC$"Z":3000RANCE":FC90:FC$"Z":3000 V .` PROPERTYij FM3:LN1:TL$"PROPERTY INVENTORY":FC90:FC$"Z":3000st 2500y  PROPERTY POL. PY14:FC64PY:FC$(FC):FM6:LN1:TL$"PROPERTY POLICY":3000 PY:PY0:FC90:FC$"Z" ( AUTO92 4LIFE POL.W >PY14:FC64PY:FC$(FC):FM8:LN1:TL$"LIFE INS. POLICY":3000r fPY:PY0:FC90:FC$"Z"x  SPOUSE'S RET. FM5:LN1:TL$"SPOUSE'S RETIREMENT":FC90:FC$"Z":3000  DISABILITY FM2:LN1:TL$"DISABILITY INSU" " 0Z1$ 5" " :Z0$0 ?34,0:33,40< DLCLC1[ I34,16:1:(BL$,39):34,0a Sp lALL FORMS| vJF15 JF2000,2300,2800,2600,2400 JF  LIFE FM1:LN1:TL$"LIFE INSURANCE":FC90:FC$"Z":3000 2200:2100 *20,220,220,200,240,260 , PRINT LINE4 GYQ 34,23:33,1:1:24:" "Z Z1$j ZP$;LL$;L$s Z0$ 34,0:33,40 LCLC1 SU,L$,1 34,16:1:(L$BL$,39):34,0 LCLXİ3700 ! &PRINT BLANK +34,23:33,1:1:24:$(A$,2,3)","(A$,7)P TT(TT)((TT).5):A$(A$"."("00"(TT),2),11)V i "-----------" T(T)((T).5) A$(BL$(T),11) "RRRRRRRRRRR" A$(BL$TX$(T1),11)  FORMAT Q$"APYDNT":SF,Q$,PF$(LN),Q:Q2$)(T0)1)3):A$(BL$A$,11)@ Q0A$(A$,2,7)","(A$,3)b Q1A$(A$,2,3)","(A$,7)h { "----,---.--" TT(100T):A$(((T))):T0A$"-"A$ Q(((A$)(T0)1)3):A$(BL$A$,11) Q0A$(A$,2,7)","(A$,3) Q1A,OGET RICH!: INSURANCE, COPYRIGHT (C) 1984 BY HARRY KOONS AND HENRY HILTONpPRINT VERSION 84E, 9/ 2/8427900:7850:4650:5000<dREAD KEYBOARDiSK:Q(6):Q$(Q)nGY:"---,---,---" T(T)((T).5):A$(T):Q(((A                          GS."* 10:20:"* SSA MAXIMUM EARNINGS"L 13:6:"YEAR";:23:"AMOUNT"o13:7:"--------------------"3800:IT1:2950:400$100.Q$"C"36608F1$"UDFREZM":SF,F1$,Q$,T:T1500,1550,1600,1650,1700,1800,1850B3620Lt QL13:CB(L):L! 22:DC$;FL$' = L1NI:AM(L):LT L0103:CB(L):LZ. b IGm L24 ITIP(L)IGL1:SLITIP(L1)1:L4 L  ITEM 3950:4800 12:3:"ENTER YOUR ACTUAL" 8:4:"SOCIAL SECURITY EARNIN2228SE89006L1NI:AM(L)ME(L):LG22:DC$;FL$OGZUpL1NI:AM(L)ME(L):LvWRITE SOCSEC.DAT DK2:7400 FL$"SOCSEC.DAT":FD$FL$",D"(DR) 22:DO$;FD$:22:22:DW$;FL$ BH:L1NI:AM(L):L:DAM(IT)ME(IT):500:1550!N6READ SOCSEC.DATGNI19841950sSR,10000:L1NI:DT(L),ME(L),IX(L):LDK2:74002224FL$"SOCSEC.DAT":FD$FL$",D"(DR)22:DO$;FD$:22:DR$;FL$BH:L1NI:AM(L):L:L13:CB(L):L:SL1:400 IE#3950E20:SL8:"> "oHT22:VTSL8:NC11:P$(BL$,NC):600T(P$):(T)99999991720AM(IT)T20:SL8:" "500CM0İ3800ZEROAM(IT)0:500:1550:MAX箍箍箍Šō͠ΠԠ٠ݍ٠ݍ٠ݍ٠ݍ̍̍쮍)(4);"SAVE";FL$:23:FL$" SAVED":F21:"VERSION 1.0 COPYRIGHT (C) 1984"W 5:23:"BY HARRY KOONS AND HENRY HILTON"i D$(13)(4) 22:D$;"BLOAD GZRESET.800.525" 22:D$;"RUN MENU"  'FL$"LOGO,D1":23:(13)(4);"SAVE";FL$:23:FL$" SAVED":FOGO,D1":23:(13 ,I117 61:I( @N:J1N:Q$7 JJ2J4ĞB TQ$;:I ^JP hIk m27:4:"ARRAYS,INC./" r27:6:"CONTINENTAL" |27:8:"SOFTWARE'S" 27:11:"GET RICH!" 27:13:"SERIES" 7:19:"$$$ GET RICH!: INSURANCE $$$") 4:"," ______ "," "> 4,"________"," "," ____ "," "i 4,"________"," "," "," " 2,"_________"," " 2,"__________"," " 2,"___________"," " 2,"____________"," "  "________ "," "F 4,"________"," ","____"," "q 4,"________"," ","______"," " 4,"________"," ","________"," " 3,"________"," ","____________" 3,"________"," ","________" 4,"________"," "LOGO, VERSION 84A, 5/10/84pGET RICH!: INSURANCE, COPYRIGHT (C) 1984 BY HARRY KOONS AND HENRY HILTONvdn1,"____________"x2,"___________ "," " 2,"__________ "," "2,"_________ "," "  2,"     8:SL9:" ":8:SL8:">"!-IDOWN KITNIITIP(IG1)11590{"SLSL1:ITIT1:8:SL7:" ":8:SL8:">"6@IFORWARD JNIIP(IG1)1640TIGIG1:ITIP(IG):SL1:400hrIREVERSE |IG11690 IGIG1:ITIP(IG)T1:Q32JNCQ95ī614<dJJ1:Q$(Q):SI,A$,Q$,J:618TfQ8J0JJ1:618ihQ21JNCJJ1pjK~lT0ī626nJ0P$((A$,J)BL$,NC):626pP$(BL$,NC)rHT:VT:P$" ";tIUP ITIP(IG)1540SLSL1:ITIT1:" ":AM(L)ME(L)TME(L):B$"*"; 22:LL8:156:A$;B$Y LLLL1:L:8:SL8:">";_ ~ &LXIP(IG1)1:LXNILXNI 0 XK ZT0:J0:A$P$" " \K010:HT:VT:A$;:HTJ:VT::(A$,J1,1);: ^100:Q(6) `Q13K1:618b1:200 550:LIP(IG)LXA 9:LL8:Q2(L9):Q);L;". ";] DT(L);:LBY1950ĺ"<" TAM(L):B$" ":AM(L)ME(L)TME(L):B$"*" 22:LL8:156:A$;B$ LLLL1:L:8:SL8:">";  PR I$ LL1:550:LIP(IG)LX! TAM(L):B$A$(A$,2,3)","(A$,7)R TT(TT)((TT).5):A$(A$"."("00"(TT),2),11)X k "-----------" T(T)((T).5) A$(BL$(T),11) "RRRRRRRRRRR" A$(BL$TX$(T1),11) L110:1:L8:BL$:L: PR IT LL(A$)(T0)1)3):A$(BL$A$,11)B Q0A$(A$,2,7)","(A$,3)d Q1A$(A$,2,3)","(A$,7)j } "----,---.--" TT(100T):A$(((T))):T0A$"-"A$ Q(((A$)(T0)1)3):A$(BL$A$,11) Q0A$(A$,2,7)","(A$,3) Q1G MENU":D$;"RUN MENU,D1" Z2 dREAD KEYBOARDI iSK:Q(6):Q$(Q)S nGY:^ ROUNDt T(T)((T).5)z FORMAT Q$"APYDNT":SF,Q$,PF$(LN),Q:Q156,156,156,146,170,178 "---,---,---" T(T)((T).5):A$(T):Q((q)SGET RICH: INSURANCE PLANNING, COPYRIGHT 1984 BY HARRY KOONS AND HENRY HILTONlSOCSEC 84E 8/25/84(7900:DR(BB2):8800:7100:2200-6000:6200:6400:840023500:4000:5000<8810:2300:7150FDK0:7400 P:14:6:"LOADIN      a0 {8 F0iiG0`0)GGȱȱEG ї GE&ȄEHљȄH0 ީE ߪ +` {ݥ {ݥ L0Fʆ;8囪1Ŝ0*ȱȱȄĜ` {ݥ L>G"Fȱȱ頩ť蠅Ӡ堦Р Xʽi*iI)` Xi'iȱ  J뤤ԠȡhhߚHH` g R 8}~`FF {ݥ {ݥ EF LEʆE:3H8HɠӠƠ栠B砐Π謠̠ɪق̠𬹠蠌ʠ栠砬Π謠ˠҠ砠𠠠٤٠РͮϠ٭Ҡ笠Р蠠ʠ ֦   ^ _  e^^__`` 8o opp  o )JȽ  opȑ LŠ̠ࠠҠР̠̠٠ӠҠᠤʠȠ%p8n` stopUU^_R ij^_lk 󅔆nmL> ^_^ȱ^ȱ^eȱ^e(ӊ0ȱ^ ie^^__Ŕ ^0ȱ^0L- ȱ^ȱ^oȱ^p͘  hmnТʥݗ            3:SL8:" ":3:SL9:">" 6/@IFORWARD EJNIIP(IG1)1640eTIGIG1:ITIP(IG):SL1:400khzrIREVERSE |IG11690IGIG1:ITIP(IG):SL1:400I EDITNI0PL0:3950:1710NI0PL1:3950:19:23:"PLUS":171PL3T0A(LN)A(LN)T:1450LA(LN)A(LN)(PL0)T(PL0)T(PL0)[5000:300e3900kuIUP ITIP(IG)1540SLSL1:ITIT1:3:SL10:" ":3:SL9:">"IDOWN ITNIITIP(IG1)11590"SLSL1:ITIT1:$"A"B$"$"A$"P"B$"%"@A$"N"A$"Y"A$"T"B$"#"HT29:VT2SL1:HT:VT:868:HT:VT:B$;:NC10:P$(BL$,NC):HTHT1:600HTHT1:HT:VT:868P$(BL$,NC)ī1450T(P$):(T)99999991440PL2A(LN)A(LN)T:1450! xENTER 'yPL0:L$"ENTER":1408AzPL1:L$" PLUS":1408\{PL1:L$"MINUS":1408v|PL2:L$"TIMES":1408}PL3:L$"DIVIDED BY"A$PS$(LN):A$"L"A$"C"A$"D"PF$(LN)"L"IT$(LN)"I"14603950:18:23:L$:A$PF$(LN) A$"D"AGNP1240)PGPG1:LNPP(PG):SL1:200/7DFGCRNI1280YCRCR1:6600_fRuPG11340(PGPG1:LNPP(PG):SL1:200<FDRPCR11380ZCRCR1:6600dvI1NF:X0HL1:Y0DYI:(BL$,39X0HL1):I:A$"Y"P$"ENTER YEAR E.G. 1980">(42(P$))2:23:P$;DKU_LNPP(PG)1040SLSL1:LNLN1:1:2SL3:" ":1:2SL1:">"LDVLNPP(PG1)11140`SLSL1:LNLN1:1:2SL1:" ":1:2SL1:">"tF P900:HTHLX02:VTY0IDY1:NCLF(I):P$II$(I,CR):600:II$(I,CR)P$NIj4100:3700:6260:6600p|PROMPT3950:A$DB$(I)A$"T"P$"ENTER DESCRIPTION":950A$"N"P$"ENTER NUMBER":950A$"A"P$"ENTER $$$$$":950#Q8J0JJ1:618)hQ21JNCJJ10jK>lT0ī626fmDS1J0P$((A$,J)UN$,NC):626nJ0P$((A$,J)BL$,NC):626oDS1P$(UN$,NC):626pP$(BL$,NC)rHT:VT:P$" ";tDBASE INPUTI1NF:DB$(I)"C"740G:L3:SL8:">";;&LXIP(IG1)1:LXNILXNIA0IXK _ZT0:J0:A$P$" "\K010:HT:VT:A$;:HTJ:VT::(A$,J1,1);:^100:Q(6)`Q13K1:618bT1:Q32JNCQ94Q34614dJJ1:Q$(Q):SI,A$,Q$,J:618fL2 JL T! PRINT IT$,I4 LL1:190:550E LIP(IG)LXf 4:LL8:(" "(L)".",3);u 8:I$(L); 28:TI(L):140:A$:LLLL1 L:3:SL9:">";  PRINT I LL1:550:LIP(IG)LX28:LL8:TI(L):140:A$:LLLL13:958:34,0:35,24- LPP(PG)PP(PG1)1B 2:LL1:SD$(L)i IT$(L)" "Ė27:LL1::IT$(L): PF$(L)"L"Ė28:LL1:TA(L):140:A$ LLLL2 L 1:2SL1:">"; " ,PRINT $ 6LL2:LPP(PG)PP(PG1)1 @350 ELLL).5):A$(A$"."("00"(TT),2),11)+ > "-----------"T T(T)((T).5)j A$(BL$(T),11)p "RRRRRRRRRRR" A$(BL$TX$(T1),11) 34,9:35,18:1:9:958:34,0:35,24: PRINT LINES LL2 34,3:35,19:1:(A$,2,7)","(A$,3)7 Q1A$(A$,2,3)","(A$,7)= P "----,---.--"} TT(100T):A$(((T))):T0A$"-"A$ Q(((A$)(T0)1)3):A$(BL$A$,11) Q0A$(A$,2,7)","(A$,3) Q1A$(A$,2,3)","(A$,7)% TT(TT)((TT:23:FL$;" SAVED":FNT STATUS IS #";FS(2)"69003"TR16296,6298E"FS(2)0:6282K"b"DISABILITY STATUSl" 4800"9:3:"> DISABILITY STATUS <":"5:"1 - DISABLED WORKER":" 5:"2 - DISABLED WORKER WITH SPOUSE"""5:" OVER AGE 60":!#$5:"4 - ANNUAL CASH BENEFIT"::CB24!FS(2)06290P!1:19:BL$:1:20:BL$!7:19:" ENTER NUMBER ? ";::" "::100::FS(2)Q48:FS(2)1FS(2)4Ė27:19:" ":6283!FS(2)4FL1!9:19:"YOUR SURVIVING SPOUSE'S""9:20:"RETIREME00( L9:4:"> SURVIVING SPOUSE'S <":P N9:5:"> RETIREMENT STATUS <"::q V5:"1 - WIDOW OR WIDOWER": X5:"2 - WIDOW OR WIDOWER" Z5:" WITH ONE CHILD": \5:"3 - WIDOW OR WIDOWER WITH" ^5:" TWO OR MORE CHILDREN":!!d5:" ENTER NUMBER ? ";::" "::100::FS(1)Q48:FS(1)1FS(1)7Ė27:22:" ":6053gFS(1)6FL17:22:"YOUR SURVIVOR'S STATUS IS # ";FS(1)6900TR16096,6098FS(1)0:60528SURVIVING SPOUSE'S RETIREMENT STATUS B48":'5:"3 - ONE SURVIVING CHILD":N5:"4 - TWO SURVIVING CHILDREN":t5:"5 - THREE OR MORE SURVIVING"5:" CHILDREN":5:"6 - ANNUAL CASH BENEFIT"::CB15:"7 - NO SURVIVOR"FS(1)060901:22:BL$U7:22::"DISABILITY BENEFIT........ ";:TXA(3):156:A$7NpSURVIVOR'S STATUSXz4800~10:3:"> SURVIVOR'S STATUS <":5:"1 - SURVIVING PARENT AND"5:" ONE CHILD":5:"2 - SURVIVING PARENT AND TWO"5:" OR MORE CHILDRENNEFITS"D5:8:"FOR ";(34);"ELIGIBILITY YEAR";(34);" OF 1984."}1:11:"PRIMARY INSURANCE AMOUNT.. ";:TPI:156:A$1:13:"SURVIVOR'S BENEFIT........ ";:TXA(1):156:A$1:15:"SPOUSE'S RETIREMENT....... ";:TXA(2):156:A$11:1734,0:33,40&2000,Q(0PTEST PRINTER:R8150T13:10:"POSITION PAPER":10:12::" SET PRINTER ON LINE "::9:14:"PRESS RETURN WHEN READY":100:Q13ī5204VPRINTPAGE480017:4:"SUMMARY"12:6:"OF ANNUAL BE;"PR#"(SN)::" L022H S102440(L8)128(L8(L8))cT(L1)10((L1)10)lQ$;xI039I0L23JQ:5144J(SI)J160JJ64:5144(J);I" " L"L139::L $(13);(4);"PR#0":L$ SUMMARY 5300H6800:TR0İ5200:5300:5100:5080NYPRINT1:24:BL$;:16:24:" PRINTING ";SCREEN DUMP OF LINES 1 TO 23SCREENDUMPQ(2000)Q$" " 34,23:33,2:1:24:" ";:(13);(4).75(T3)1.5(T4)1.75(T5))CB(1)(T6)lDTFS(2):XA(2)PI(1(T1)1.75(T2)1.75(T3))CB(2)(T4)NTFS(3):XA(3)PI(1(T1)1.5(T2)1.75(T3)1.5(T4)1.75(T5))CB(3)(T6)bTITLEL$"$$$ "TL$" $$$":(42(L$))2:41950:T10:T20:T307JTPTPCY1:SMSMAD(J):JUAYSMCY:AMAY12:T(AM)rT1528T3T1528:T1528T254T2T254:T254T0T1TPI12(0.9T10.32T20.15T3)0 BENEFITS+:TFS(1):XA(1)PI(1.5(T1)1.75(T2)0CALCULATIONS@3950:8:23:" CALCULATING - PLEASE WAIT"\4100:4150:4300:4400dCYBY1955:BH261955BYBH26CY1984BY"IY1982,6ADJUSTED AM@J1(19841950):AD(J)AM(J)IX(J):JJ AMSM0:TP198UIT~7150:2300PDK0:7400::13:6:"LOADING PROGRAM":D$;"RUN MENU,D1"V`ICMDu1:21:DA$:CM11:22:"E-ENTER M-MAX Z-ZERO C-CONTINUE""U-UP D-DOWN F-FORWARD R-REVERSE"nJ2224:1:J:BL$;:J:CM0:@SGET RICH: INSURANCE PLANNING, COPYRIGHT 1984 BY HARRY KOONS AND HENRY HILTONnPROPERTY 84F 11/10/84(7900:DR(BB2)2FM(BB3):720077800:7700:7250<RT1İ5400:RT0F3000:50dREAD KEYBOARDiSK:Q(6):Q$(Q)                    㮢쮍䮍堵堵堵󮍢謠㮢󠤲謠㮢􍍍󍍍󮢍卢嬠墍쬠嬠󮍍欠讍讍讍󍍍䠱宍讍讍宠宍쮍宍ōÍ̍ɍčɍÍ̍čɍōɍɍɍɍÍ̍ÍÍÍÍÍÍÍ̍ÍÍÍÍÍÍÍÍÍÍÍÍ̍ččččččč̍čččččččč̍čččččЍčč̍ččččččЍč̍ččččč̍čččččččč̍ččččččč̍̍̍̍̍⠠٠ݍ퍵卵卶٠ݍ퍶卶卶٠ݍ퍶卶̍ɍɍɍɍɍɍÍ̍ɍɍɍɍɍɍɍÍ̍ɍɍɍɍÍōɍÍ̍ÍÍɍɍɍÍ٠󍴶􍴷䍴󍴹䍵卵󍢠͠ΠԠ٠ݍ퍵卵卵ŠĠݍŧӠŮݍҍ썢ӠŠŠݍЭ͠ӍҧӠˍĠӍŠӍ̠Šٍҍ卢͠䍢ŠĠԮ䍲ΠӍŧӠōҠō䍳ŠƠ΍䍢̠Ӡ٠čӍϠӍˠӍԠӍҍ썢ŠĠԠӠōԠӍԠӍԠǠԍ卲ҠϠ֮ǠԍŠō̠Ӡ̍Ġ̠̍Š؍ŠȠ؍ōҍ썢ԠԠŠōŠӍԠ      $"DELETE"1,"IP(1)1:L26:IP(L)IP(L1)10:LK,'TL$"SOCIAL SECURITY"Q,,z,:9:1:"$$$ SOCIAL SECURITY $$$":, BH, 4800, BH08450, 1:9:BL$:8:9:"YOUR YEAR OF BIRTH IS ";BH:6900:TR18440,8480, 4800F-!8:9:" ENTE--"5+BL$" "+BB(103)256(104):GY2048:GZ2058:SK2841:SE2950:SR2964:SF2990:SI3175:SU3281+SN(BB4)+D$(4):22:D$;"NOMONCIO" ,DO$D$"OPEN":DR$D$"READ":DW$D$"WRITE":DC$D$"CLOSE":DD$D15:"DRIVE ";::" #";(1((DK1)(DR2)));" "::N*d13:"AND PRESS RETURN"c*i100:Q137785i*n}*INITIALIZATION*IP(6),CB(3)*DT(40),AM(40),ME(40),IX(40),AD(40),FS(3),XA(6)* QT$(34)+DA$"--------------------------------------)7418)FY1:SE&)22:DC$;FL$1)8900G)FY1İ7700:7400M)])DISK DRIVEc)(|)217:3:"INSERT"::)7DK3Ė16:" BLANK "::7750)<DK1Ė15:" PROGRAM "::7750)A17:" DATA ":)F:18:"DISK":)P18:"INTO":2*Z"(DR))(22:DO$;FD$:22:22:DW$;FL$O(J13:FS(J):J:J16:XA(J):J`( 22:DC$;FL$f(u(TEST DISK(DK1FL$"FORM1.STR":FD$FL$",D1"(DK2FL$"PARAMS3":FD$FL$",D"(DR)(FY0:7416(22:DO$;FD$:22:DR$;FL$(Q$7400:8800'7123:'FL$"PARAMS4":FD$FL$",D"(DR)X'22:DO$;FD$:22:DR$;FL$~'J13:FS(J):J:J16:XA(J):J'7124'SE'8900'22:DC$;FL$'GZ''WRITE PARAMS4'DK2:7400:8810(FL$"PARAMS4":FD$FL$",D0:Q$"P"Q$"C"6814(&1:23:9588&TR(Q$"C")>&G&E-CU&23:DA$;j&FL1İ6600:FL0&8:24:"E-EDIT C-CONTINUE";:1:1:" "&100:Q$"E"Q$"C"6914&1:23:958&TR(Q$"C")&&READ PARAMS4 'DK2:%1:24:BL$;k%6:24:" ENTER CASH AMOUNT ?";:NC12:P$(BL$,NC):HT27:VT24:600:P$(BL$,NC)6650%T(P$):(T)99999996620%CB(CB)T%1:24:BL$;%"%P-C%23:DA$;%8:24:"P-PRINT C-CONTINUE";:1:1:" "&10(3)06490$R1:22:BL$}$S7:22:" ENTER NUMBER ? ";::" "::100::FS(3)Q48:FS(3)1FS(3)6Ė27:22:" ":6483$UFS(3)6FL1$Z7:22:"YOUR DISABILITY STATUS IS #";FS(3)$\6900$^TR16496,6498$`FS(3)0:6482$b$CASH"3 - DISABLED WORKER WITH SPOUSE"J#%5:" AND ONE OR MORE CHILDREN":m#&5:"4 - DISABLED WORKER WITH"#'5:" ONE CHILD":#(5:"5 - DISABLED WORKER WITH TWO"#*5:" OR MORE CHILDREN":#,5:"6 - ANNUAL CASH BENEFIT"::CB3 $PFS䮍䮍䮍堶報ččččč̍ččč̍Ѝč報報報퍍䮍ōԠōҠō卢٠䍱危䍢۠ݢŠƠ΍̍ÍÍÍÍōÍ̍ÍčɍɍɍÍ̍ÍÍÍ̍ōÍ̍ččččЍč̍č٠ōĠ퍲󍳠󍴠卵ҠϠ䍢Šǭ͠ƮݍŧӠ    鬠î®㮢㮢謠㮢㬠㮢쬠嬠㮢㮢嬠㮢嬠笠㮢堷嬠䬠㮢嬠㮢笠笠㮢㮢㬠㮢ﬠ𮬠㮢嬠㮢묠嬠󬠬㮢㮢嬠笠嬠㮢㮢嬠䬠㮢嬠쬠쬠묠㮢𮬠㮢㮢嬠嬠嬠㮢󮢍㮢㮢嬠嬠嬠쬠㮢嬠鰮報報箍㮢㮢嬠㮢嬠嬠㮢嬠㮢㮢堷堷笠嬠㮢報報ččč̍ččč̍΍č̍㮢쮬㮢嬠笠嬠㮢嬠čččččččččččččččččččččččččččččččččččččččččččččččččččččÍÍ̍ÍÍÍ̍ōōÍ̍ččččččččččččččččččččččččččččččččččččččččččččččččččččččččččč􍶵卶􍢠ǠخѮōԠҠѮԍ􍢠͠ΠԠ٠ݍ٠ݍ٠ݍ٠ݍčččččččĴȍҠ͍ӠӍΠ͍ӍōӠԍϬ֬îŠ͍ӍӍӍč썶󍢠٠٠ōΠӍō̍Ǡ͍Ӎٍ΍ٍٍӍǠ͍ӍӍ̠ӍٍōٍύӍōǬĠǬĠǬĠǬĠǬΧӢǬΧӢӍҍ΍Ǡ͍٠͍čӍ٠ٍԠӍӍӍÍҍԍ͍͠͠͠ҍ͠͠͠͠       (A$,3)( Q1A$(A$,2,3)","(A$,7). A "----,---.--"n TT(100T):A$(((T))):T0A$"-"A$ Q(((A$)(T0)1)3):A$(BL$A$,11) Q0A$(A$,2,7)","(A$,3) Q1A$(A$,2,3)","(A$,7) TT(TT)((TT).5):A$(A$"Q(6):Q$(Q) nGY:# ROUND9 T(T)((T).5)? K FORMAT Q$"APYDNT":SF,Q$,PF$(L),Q:Q156,156,156,146,170,178 "---,---,---" T(T)((T).5):A$(T):Q(((A$)(T0)1)3):A$(BL$A$,11) Q0A$(A$,2,7)","ESGET RICH: INSURANCE PLANNING, COPYRIGHT 1984 BY HARRY KOONS AND HENRY HILTONlFMBASE 84G 11/10/84(7900:DR(BB2)2FM(BB3):72008XA0İ8700:XA1:7800:7700:7250<RT1İ5400:RT0F3000:50dREAD KEYBOARD iSK:                          1984,37800,1.0 1d( 1985,-1,001n( 1986,-1,0@1x( 1987,-1,0P1( 1988,-1,0`1( 1989,-1,0p1( 1990,-1,0FF0,-1,0F0' 1972,9000,2.0)0' 1973,10800,1.9>0' 1974,13200,1.8S0( 1975,14100,1.7h0 ( 1976,15300,1.6}0( 1977,16500,1.50( 1978,17700,1.40(( 1979,22900,1.302( 1980,25900,1.20<( 1981,29700,1.10F( 1982,32400,1.00P( 1983,35700,1.01Z(' 1959,4800,3.8$/j' 1960,4800,3.68/t' 1961,4800,3.6L/~' 1962,4800,3.4`/' 1963,4800,3.3t/' 1964,4800,3.2/' 1965,4800,3.1/' 1966,6600,2.9/' 1967,6600,2.8/' 1968,7800,2.6/' 1969,7800,2.5/' 1970,7800,2.30' 1971,7800,2.2;(218)256(219):100:\.'FD$"SOCSEC,D1":23:(13);(4);"SAVE";FD$:23:FD$;" SAVED":p.' 1951,3600,5.2.' 1952,3600,4.9.$' 1953,3600,4.6..' 1954,3600,4.6.8' 1955,4200,4.4.B' 1956,4200,4.1.L' 1957,4200,4.0.V' 1958,4200,4.0/`R YEAR OF BIRTH ?";:NC4:P$(BL$,4):HT31:VT9:600:P$(BL$,4)8450i- !BH(P$):BH1880BH20008450s-!8430}- !4100-*!-`":15:6:"LOADING DATA":-j":15:6:"SAVING DATA":-"ERROR CODE."SE:1:23:"ERROR # ";(222);" AT LINE # "箍箍箍箍箠宍嬠客箍箍宍ȠōҠ̍Ԡ̮͠ǠōōҠ̍̍čččččččÍ̍ččččččč̍̍̍̍̍̍̍̍̍ȠōԠӠàȍȠōҠ̍Ԡ̮͠ǠōōҠ̍󍢠٠Πàȍ     NPUT I1NF:DB$(I)"C"740i900:HTHLX02:VTY0IDY1:NCLF(I):P$II$(I,CR):600:II$(I,CR)P$pI4100:3700:6260:6600PROMPT3950:A$DB$(I)A$"T"P$"ENTER DESCRIPTION":950A$"N"P$"ENTER NUMBER":950JJ1:Q$(Q):SI,A$,Q$,J:6186fQ8J0JJ1:618KhQ21JNCJJ1RjK`lT0ī626mDS1J0P$((A$,J)UN$,NC):626nJ0P$((A$,J)BL$,NC):626oDS1P$(UN$,NC):626pP$(BL$,NC)rHT:VT:P$" ";tDBASE I28:LL8:TI(L):156:A$:LLLL1:L83:SL8:">";>]&LXIP(IG1)1:LXNILXNIc0kXK ZT0:J0:A$P$" "\K010:HT:VT:A$;:HTJ:VT::(A$,J1,1);:^100:Q(6)`Q13K1:618bT1:Q32JNCQ94Q34614d28:LL1:TA(L):140:A$% ELLLL2, JL2 TC PRINT IT$,IV LL1:190:550g LIP(IG)LX 4:LL8:(" "(L)".",3); 8:I$(L); 28:TI(L):156:A$:LLLL1 L:3:SL8:">";  PRINT I LL1:550:LIP(IG)LX%3:958:34,0:35,24- LPP(PG)PP(PG1)1B 2:LL1:SD$(L)i IT$(L)" "Ė27:LL1::IT$(L): PF$(L)"L"Ė28:LL1:TA(L):140:A$ LLLL2 L 1:2SL1:">"; " ,PRINT $ 6LL2:LPP(PG)PP(PG1)1 @PF$(L)"L").5):A$(A$"."("00"(TT),2),11)+ > "-----------"T T(T)((T).5)j A$(BL$(T),11)p "RRRRRRRRRRR" A$(BL$TX$(T1),11) 34,9:35,18:1:9:958:34,0:35,24: PRINT LINES LL2 34,3:35,19:1:(A$,2,7)","(A$,3)7 Q1A$(A$,2,3)","(A$,7)= P "----,---.--"} TT(100T):A$(((T))):T0A$"-"A$ Q(((A$)(T0)1)3):A$(BL$A$,11) Q0A$(A$,2,7)","(A$,3) Q1A$(A$,2,3)","(A$,7)% TT(TT)((TTYBOARD iSK:Q(6):Q$(Q)' nGY:2 ROUNDH T(T)((T).5)N Z FORMAT Q$"APYDNT":SF,Q$,PF$(L),Q:Q156,156,156,146,170,178 "---,---,---" T(T)((T).5):A$(T):Q(((A$)(T0)1)3):A$(BL$A$,11) Q0A$Ы=SGET RICH: INSURANCE PLANNING, COPYRIGHT 1984 BY HARRY KOONS AND HENRY HILTONmFMBASE2 84G 11/10/84(7900:DR(BB2)2FM(BB3):720077800:7700:FC(FC$):PYFC64:FC90PY0:7250<RT1İ5400:RT0F3000:50 dREAD KE                        堷報廠䠴堵客堶򠶵宍嬠㮢ɍÍ̍ÍÍÍōōÍÍÍ̍ččččЍčč̍ččččč̍ččč΍΍΍č報報報퍍欠ԠōҠō卢٠䍱危䍱ŧӠōĠŮō宍򍲰̍ÍÍÍÍōɍÍ̍ÍɍɍŧӠԍĠ퍲󍳠󍴠䍵ҠϠǠԍ䍢ŠҠӍ  !㮢堧宍堧宍嬠堧宍䠧᧠堧宍堧᧠宍嬠笠宍客堧宍客堧秠宍嬠𮢍堧͍ҍ͍Ӎ󍱹ōō̍ōōōōōōōōōōōōōōɍÍÍԍč̍ččččččč̍㠠䠠젠󠠵堶ٍŠōŠǍ͍ŠӍ͍ǠӍٍ͍͍̠Ӎٍ͍̠!! ! ! ! ! !IT:400:2080$ SL0İ1650:2080- 4003 "堧姠宍 宍宠󮍍堧宍堧宍堧宍嬠堧宍堨堧宍堧宍͍Šԍ͍ҍ󍱸РōҠƠӍō̍ōōōōōōōōōōōōōōɍÍōōÍԍ̍čččččččٍ̍젠젴ōŠŠٍ͍̠Ӎ͍ŠӍ͍ŠӍ͍Ġԍ͍ΠԮ"" " " " "