Category : Databases and related files
Archive   : WILLWRIT.ZIP
Filename : MAIN.BAS

ÿ£
’ ,@:AMLç@:É Ý:• § ‰ ¬&: MAIN 10/22/85ÙCH1$çÿ–():CH2$çÿ–():CH3$çÿ–():CH4$çÿ–():Ê ,,‚ Iç Ì 
:É I,"":ƒ:É ,CH1$:É ,CH2$:É ,CH3$:É ,CH4$rCO1ç:CO2ç:CO3ç:COHç:COBç:SHIFTç:SC2$çÿ–(Þ):SC1$çÿ–(²): COLORS, SHIFT OF SCREEN–À:‘"W":— SEGç ¸:N1çÿ—():— SEGºÀ:‘"Q":— SEGç ¸:N2çÿ—():— SEGÞICRTç:‹ N1çW î N2çQ Í ICRTç

‹ ICRTæ Í CO1ç:CO2ç:CO3ç:COBç:COHç7  :‹ ICRT æ Í   (:HENç(:SHIFTçbSHIçSHIFT:‹ ICRT è  Í   P:HENç(éSHIr \:‰ '… #,I$: ENTRYPOINT 30!¢‹ ÿ’(I$)è Í Ž÷ AA1çÚ(I$):AD1çÿ—(AA1é)é
ëÿ—(AA1é):ANUMçAD1éÿ—(AA1)ê: :˜ ‚À,LB:˜ ƒÀ,HB"³ STRIP3$Lçÿ—( „À)é
ëÿ—( …À)êAD1é:‹ Lè Í I$çX$:ŽE&I$çÿ(I$,L):Žu(FJ%çFI%:‹ FI%æ Í E%ç: ˜!:‹ FI%æD5 Í P‹* ‹ FI% ç D5 Í <Á2I1% ç TH% é :I2% ç NT% ê :IT ç I1% é FI%:  Ò<E%ç:FI%çD5:FJ%çFI%:V$()çX$:ISçNT%ê:SçISêTH%:B%ç: ˆ: ˜!=>‹ T$çH$ ï T$çQA$ ï T$çCH3$ ï T$çCH4$ Í  ¸:‰ <aF‹ I$çQ$ ï T$çCH2$ Í  ` :‰ <sG‹ I$çX$ Í PœHIçÿ”(I$):‹ Iè ï IæNC% Í  Ö:‰ <ÌIGC%ç:‹ Iç ï Iç ï Iç ï Iç ï Iç Í GC%çJI1%çTH%éE1%(I):I2%çTH%éE2%(I):FR%ç: È:‹ GC%æ Í FI%çITêTH%ê:FR% ç:‰ 2(L‰ <nPISçNT%:SçISêTH%:B%ç:FJ%çD6: ˆ: ˜!:‹ I$çP$ Í  ˜:Š "PRINT"ˆZ‹ I$çQ$ Í  ` :‰ P¢d‹ I$çE$ Í  ¤:‰ P¸n ‹ I$ ç "R" Í <Êx  Ö: ‰ P×ÈIT ç I1%ÒIT% ç IT ê TH%:FI% ç IT% ê : ‹ FI% æ FJ% Í FJ% ç FI%)Ü ‹ K(IT%) è  Í 
=æ ‹ B% è  Í ^
dðIT ç IT ê : ‹ IT è I1% Í IT ç I1%oú ‰ ÒÝ
IS ç IT:S ç IT%:B% ç :  ˆ:  ˜!: ‹ B% è  î (S è æ C7 î S è æ A7 î S è æ B2 î S è æ B9) Í E% ç ñ
‹ B% è  Í ^
"
‹ S ç B7 ï S ç B9 Í E% ç M6
IT ç IT ê : ‹ IT è I1% î FJ% æ ç D5 Í IT ç I1%:  Ö–@
‹ ITèçTH% Í ITçTH%é: .:‹ I$çB$ ï I$çCH1$ Í FI%ç: ˜:Š "INTRO"¡T
‰ ÒÚ^
‹ (S ç C7 ï S ç A7 ï S ç B2) î F4 æ  Í IT ç IT ê h
‹ (S ç A6 î CH% æ ) ï (S ç B0 î G æ ) Í E% ç 5r
‹ S ç B9 î F4 æ  Í IT ç IT ê `|
IT ç IT é : ‹ FR% æ  î GC% æ  Í Ž y~
‹ IT è ç I2% Í ҁ†
Ž ©è‹ SçA2 î Nç Í VçR1:Hç:F7ç:‰ ¹÷‹ Nç Í Öü‹ SçD5 Í Vç:Hç:‰ VçV1:Hç:‹ (SçA7 ï SçB2 ï SçB9) î Nç Í  À: Ì:‰ +‹ SçC7 î Nç Í FVç:Hç:‹ Næ Í Vç\‹ Nç Í Vç:HçHC”I%çÿ…(Nì$): À:‹ I%è Í ‚ Iç Ì N:‘ UU$;:ƒ:‰ $Ý‚ Iç Ì I%:Hç: Ô:‘ UV$UV$UV$UV$:ƒ:‹ NæØ Í  Ô:‘ UV$UV$"____";û$ À: :HHçH:  ::ŽL :˜ AML,LB:˜ AMLé,HB[V POKE AML+2,0:POKE AML+3,&HB0:IF ICRT>0 THEN POKE AML+3,&HB8x` POKE AML+4,AMID:RETURNHBçÿ…(ANUMì
):LBçANUMêHBë
:Ž»x þ:‹ F8æ î Næ Í C%çÒ‚T$çÞ:‹ T$çX$ Í ‚ýŒAçÿ•(T$):‹ Aç
ï T$çQA$ ï T$çH$ Í Ô3Ž‹ T$çÿ–() ï T$çÿ–() ï T$çÿ–() ï T$çÿ–() Í ÔM–Lçÿ’(I$):‹ Aè Í ´i˜‹ Aç" Í Aç':T$çÿ–(')y ‹ LèN Í ª¢‹ Nç Í I$çT$: Ú:‘ T$;:‰ ‚³¤ Ö: þ:‰ ‚èªI$çI$éT$:‹ $ëÿ…(Lì$)çL î Læ Í VçÛé:Hç: Àø²‘ T$;:‰ ‚ ´‹ Aèæ Í ¼5¶AAçÿ•(ÿƒ(T$,,)):‹ AAçK ï AAçS Í AçU¼‹ Aèæ ï Lè Í ‚: IGNOREr¾‹ Lè Í I$çX$:LLç:‰ ÒŠÈLLçLê:I$çÿ(I$,LL)Èҍ Ú:‘ UU$;: Ú:‹ $ëÿ…((LL)ì$)çLL Í VçÛê:Hç': ÀÒÓ‰ ‚Ô‹ Nè î ÿ’(I$)ç Í Açÿ•(I$):‹ AæZ Í I$çÿ–(Aê )
ÖŽ3ÚVçÛ:Hçÿ‘()ê:Ê V,H:Ž: BACKSPACEK܍ è: x: :Ž\@‹ F2æ Í JvA þ:VçR2:Hç: ÀBI$çÞ:‹ I$çX$ Í B±D‹ I$çCR$ ï I$çES$ ï I$çY$ Í ÌÁF Ö:‰ BòJTN%çN:Nç:I$çX$:VçR2:HçHC:‹ F2ç Í VçR3:HçL‹ F2ç Í VçR2/N‹ (SçA7 ï SçB2 ï SçB9) î M%æ Í Hç"wP Ü:NçTN%:‹ ÿ’(I$)ç î (T$çCR$ ï T$çH$ ï T$çQA$ ï T$çES$) Í I$çT$¸R‹ ÿ’(I$)ç î (T$çCH1$ ï T$çCH2$ ï T$çCH3$ ï T$çCH4$) Í I$çT$ñTV%çÿ”(I$):‹ ÿ’(I$)æ Í Açÿ•(I$):‹ AæZ Í I$çÿ–(Aê ) V‹ F2ç Í ÌF ^‹ F2ç î (I$çY$ ï I$çN$ ï I$çH$ ï I$çQA$ ï I$çB$ ï I$çQ$) Í ÌŠ `‹ (F2ç ï F2ç) î (I$çCH1$ ï I$çCH2$ ï I$çCH3$ ï I$çCH4$) Í ÌØ |‹ F2ç î (I$çSP$ ï I$çCR$ ï I$çH$ ï I$çQA$ ï I$çQ$ ï I$çY$ ï I$çB$) Í Ì!‹ F2ç î (I$ç"R" ï I$çDD$ ï I$çY$ ï (I$ç"A" î M%èçMM%)) Í ÌN!®‹ F2ç î (I$çY$ ï I$çN$ ï I$çH$ ï I$çQA$) Í Ìu!°‹ F2ç î (I$çCH3$ ï I$çCH4$) Í Ì˜!¸‹ F2ç î (I$çY$ ï I$çC$) Í Ì»!º‹ F2ç
î (I$çM$ ï Aç
) Í Ìß!¼‹ F2ç î (I$çY$ ï I$çN$) Í Ìï! Ö:‰ @"ÌÄ ¸
,:Ä ¸
,:Ž"ÖÄ ¸
,:ŽP"àÄ ¸
,:Ä ¸
,:‹ WFLç Í ‚ IWç Ì :ƒ IW:Ž: TICK/DELAYV"⎔"êÄ ¸
,:Ä ¸
,:‹ WFLç Í ‚ IWç Ì :ƒ IW:Ž: TICK/DELAYš"쎽"þ— SEG ç:˜ ,ÿ—():— SEG:ŽC#Ѝ \:º "WD" ‚ … AS #:… #, FI%:… #,CH%:… #,D:… #,G: :SN$çI$:… #,FF:… #,CP: :AG$çI$: :AN$çI$:‹ SN$èæX$ Í F7 ç W#Ú‹ FI%è Í FI%ç—#ä‹ FI%æ Í Vç:Hç: À:‘ "RESUMING WHERE YOU LEFT OFF..."¾#î‚ Iç Ì NV: :V$(I)çI$:ƒ:» #:ŽÖ#˜‹ FJ%æçD5 Í FI%çFJ%d$¢ \:º "WD" ‚ OUTPUT AS #:‘ #,FI%:‘ #,CH%:‘ #,D:‘ #,G:‘ #,SN$:‘ #,FF:‘ #,CP:‘ #,AG$:‘ #,AN$:‚ Iç Ì NV:‘ #,DQ$V$(I)DQ$:ƒ:» #†$¶‹ SçB2 î Dæ Í Fç:M%çD: <
Œ$ÀŽ«$ü \:º "ST" AS # ÿ’ ç dí$ þ‚ #,  AS TSN$, AS TNO$,  AS TCP$,  AS TAG$, H AS FAN$
% þ‰ #,ÿ”(V$())O% I$çTSN$: :SN$çI$:NO$çTNO$:CP$çTCP$:AG$çTAG$:I$çFAN$: :AN$çI$:» #l% CPç:‹ CP$ç" 1 " Í CPç‰% FFç:‹ NO$ç" 1 " Í FFç°%
‹ SN$ç"TENNESEE" Í SN$ç"TENNESSEE"¸% À:ŽÓ%` ‹ SçC7 ï SçA7 Í CH%çM%å%j ‹ SçB2 Í DçM%†&t F1ç:  : ˜:Vç
:Hç: À:‘ "TYPE "DQ$Y$DQ$" IF YOU REALLY WANT TO QUIT":V ç  : À:‘ " TYPE ";DQ$C$DQ$TC$"THE PROGRAM":F2ç: 0: @:‹ I$çC$ Í Ž½&ˆ À:Vç
:Hç
: À:‘ "SO LONG... ";: :‘ ÿ–():×&Ä ‹ M%è ï FC%(F)æ Í Ž,'Î F$ç"F."éÿƒ(ÿ“(F),,):LF%ç&: \:º F$ AS # ÿ’çLF%:þ‚ #,LF% AS TI$:‚ Iç Ì M%g'ì þ‰ #,I:I$çTI$: :TV$(I)çI$:ƒ:‚ Iç Ì :GI%(I)ç:ƒ›'2
» #:FC%()ç:FC%()ç:FC%()ç:C%ç:FC%(F)ç:Ž±'<
‹ M%è ï C%æ Í Ž(F
F$ç"F."éÿƒ(ÿ“(F),,):LF%ç&: \:º F$ AS # ÿ’çLF%:þ‚ #,LF% AS TI$:‚ I ç  Ì M%*(Z
þ… TI$çTV$(I):þˆ #,I:ƒ:‰ 2
L(d
‹ IGè ï IGæG ï GI%(IG)ç Í Žó(Œ
F$ç"F.0": \:IG%çëIGê:º F$ AS # ÿ’çð:þ‚ #,ð AS TI$:þ‰ #,IG%:I$çTI$: :V$() çI$:þ‰ #,IG%é:I$çTI$: :V$()çI$:þ‰ #,IG%é:I$çTI$: :V$()çI$#) 
» #:C%ç:‚ Iç Ì :GI%(I)ç:ƒ:GI%(IG)ç:Ž9)ð
‹ IGè ï IGæG Í ŽY)ú
I$çV$():‹ I$çX$ Í T1$çNU$ƒ)‹ ÿ’(I$)æ Í I$çÿ(I$,)é"+ ":FL%ç´)T1$çÿ(I$éBL$,):I$çV$():‹ I$çX$ Í I$çNU$Þ)‹ ÿ’(I$)æ Í I$çÿ(I$,)é"+ ":FL%ç*T1$çÿ(I$éBL$,)éT1$:TV$(IG)çT1$:‹ C%æ Í ŽN*TF$ç"F.0": \:IG%çëIGê:º F$ AS # ÿ’çð:þ‚ #,ð AS TI$À*\þ… TI$çV$():þˆ #,IG%:þ… TI$çV$():þˆ #,IG%é:þ… TI$çV$():þˆ #,IG%é::FC%()ç:FC%()ç:FC%()ç:‰  
é*¸‹ ICRTè î F0%è Í SHIç: y: @+ÂF0%ç:WHFç:‹ T$èæQA$ î T$èæCH4$ Í ô>+ÌWHFç:GH%çH1:NN%çH1:PPçA0éëGH%:‰ D H+ô <W+ F1ç:  x+ ‹ H%ç î ICRTè Í V%ç:‰ : ·+ F2ç: @:F0%ç:‹ I$çCR$ ï I$çES$ Í F0%ç:SHIçSHIFT:‰ F Ó+& ‹ I$çQA$ Í T$çQA$:‰ ¸ñ+( ‹ I$çCH4$ Í T$çCH4$:‰ ¸,0 ‹ V%è ï V%æH% Í  Ö:‰  .,: NN%çNS%(V%):PPçA0éëNN%s,D ALOçPP: F:HPçANUM: N :F2ç: @:‹ I$çES$ Í F0%ç:SHIçSHIFT›,E ‹ WHFæ Í F0%ç: ESCAPE FROM WHERE©,F À:WHFç:ŽÌ,N ANUMçHPééëÿ—(HP): L: 0uâ,O ‹ ICRTè Í SHIç'õ,P ³ DECOMP: y.-R F1ç:  :Vç:Hç:‹ NN%è Í  À:‘ "HELP:";:‰ X C-T ‹ NN% ç H1 Í X }-V Vç:Hç: À:‘ "DEFINITION:";:Vç:Hç: À:‘ "...";›-X ‹ T$èæQA$ î T$èæCH4$ Í Ž½-v IE%çFJ%é:‹ IE%æNE% Í IE%çNE%.€  :K1%çK(B8):K2%çK(B7):K3%çK(B9):‹ V$()çY$ î Gæ Í K(B8)ç:K(B7)ç:K(B9)ç[.Š ‹ K()è Í VçVE():HçHE%(): À: :‘ "->";: Ì:‹ IE%èç  Í Ð ¦.” ‚ Iç Ì IE%:‹ Iæ î K(Iê)è Í  :VçVE(Iê):HçHE%(Iê): À:‘" *";à.ž ‹ K(I)è Í VçVE(I):HçHE%(I): À: :‘ "->";: Ìæ.¨ ƒø.² ‹ SçFI% Í Ð 2/¼ IçIE%:‹ K(I)è Í VçVE(I):HçHE%(I): À: :‘ " *";z/Æ IçS:‹ IèNE%é î K(I)è Í VçVE(I):HçHE%(I): À: ü:‘ "->";: ̪/Ð  :K(B8)çK4%:K(B7)çK5%:K(B9)çK6%: :Žç/APçA0éëIS:AHçÿ—(AP)é
ëÿ—(APé):H%çÿ—(AH):‹ H%è Í $N0‚ Iç Ì H%:ABçAHéëIê:XT(I)çÿ—(AB):YT(I)çÿ—(ABé):XB(I)çÿ—(ABé):YB(I)çÿ—(ABé):NS%(I)çÿ—(ABé):ƒÀ0$Nçÿ—(AHé):IV%çÿ—(AHé):ASçAHééëH%:‹ SçC4 ï SçC2 Í APçA0éë(B9éTH%):AHçÿ—(AP)é
ëÿ—(APé):ASçAHééëÿ—(AH)È08 Ž 1<‚ Iç Ì H%:VTçYT(I):HTçXT(I):VBçYB(I):HBçXB(I):‹ Hèç Í HçZ1> ü:‚ JJçVT Ì VB:‚ IIçHT Ì HB:VçJJ:HçII: À:‘ ÿ–(È(JJ,IIéSHI));:ƒ II:ƒ JJn1AVçVT:HçHT: À‰1B :‹ ICRTè Í  üž1C‘ ÿƒ(ÿ“(I),,);®1Eƒ I: :ŽÏ1FANUMçÿ—(ALO)é
ëÿ—(ALOé):Žý1  :Hç:VçR2: À:‘ L$;L$;L$;L$;: B2ª‹ F1èæ Í ÒX2´‹ Nè ï SçD5 Í Hç: À:‘ "PRESS "RT$" TO GO TO NEXT SCREEN";:‰ ú˜2¾‹ Næ Í Hç: À:‘ "TYPE REQUESTED INFO.& THEN "RT$;:‰ úÒ2ÈHç: À:‘ "PLEASE ANSWER THE ABOVE QUESTION";:‰ úä2Ò‹ F1èæ Í Üö2Ó‹ WHFæ Í ,3ÔHç:‹ H%æ Í HçK3֍ À:‘ J$RT$;:‹ H%æ Í ‘ " IF YOU WANT MORE DEF'S";:‰ ú\3Ø‘ TC$;:‰ ú¤3Ü‹ F1ç Í Hç: À:‘ " USE LEFT ARROW KEY TO ERASE ERRORS ";:‰ úç3æ‹ F1ç Í Hç: À:‘ Ò)J$DQ$Y$DQ$" OR "DQ$N$DQ$" AND "RT$Ò);%4ð‹ F1ç Í Hç: À:‘ " TYPE NO. YOU WANT...THEN "RT$Ò);n4úVçR4:Hç:‹ SçD5 Í Hç: À:‘ "";: ‰ ,Á4 À:‹ (F1ç ï F1ç) î F8è Í ‘"(F1=BACK F2=QUIT F3=DEF F4=WHERE?)";:‰ ,5‹ F1ç ï F1 ç  Í ‘ " (F3=DEF F4=WHERE?) ";:‰ ,<5‹ F1ç Í ‘ "F3=DEF F4=WHERE? "RT$" WHEN DONE";q5"‹ F1ç Í ‘ "("RT$" WHEN DONE WITH DEFINITION) ";ª5$‹ F1ç î H%æ Í ‘ Ò )DQ$"ESC"DQ$" IF YOU DON'T";Æ5,SPçSé:‹ Sæ Í SPçSPê÷5-TS$çÿ“(SP):‹ ÿ(TS$,)ç" " Í TS$çÿƒ(TS$,,)6.Hç&:‹ F0%æ Í TS$ç"D"éTS$:HçHê;60‹ Sç Í TS$çTS$é"A":HçHê]62Vç: À: 
:‘ TS$;: c64Ž€6h‘ ÒHENêêÿ‘());: À:Ž´6ÌV0çÛ:‹ V0æ î SERè Í Ž: ERASE REST OF SCREENß6ÎHTçÿ‘():LSPçHENêHT:‹ LSPæ Í ‘ ÒLSP);ø6Ћ V0æç î SERè Í Ž7ÒVENDç:‹ SERæ Í VENDçH7Ö‚ VTçV0é Ì VEND:Ê VT,:‹ ICRTè Í Ê VT,éSHIi7à‘ Ò&);:ƒ VT:Ê V0,HT:SERç:Žu70SF$çF2$”72‹ F0%æ Í SF$çF1$é"15"éBL$ä7:‚ Iç Ì R2:VçI:Hç: À: ü:‘ ÿƒ (SF$,I,);:Hç(: Ô: :‘ SC2$;:ƒ:Ž
8”Hç: Ô:‹ I$çY$ î Nç Í ‘ "YES":Ž,8ž‹ I$çN$ î Nç Í ‘ " NO": ŽU8øHHçÿ…(($êÿ’(I$))ì)é:‹ HHè Í HHçm8‹ HH æ  Í HH ç ¤8 HçHH: Ô:‹ ÿ’(I$)è% Í ‘ I$;:Ž: ENTRY LEFT JUSTú8Hç: Ô:I%çéÿ…((ÿ’(I$)ê)ì$):‚ Iç Ì I%:‘ ÿƒ(I$,$ëIê#,$);:‹ IèI% Í ‘: Ô9 ƒ I:‹ NEWF è  Í  Ô9RŽl9\ $:Vç
:Hç
: À: :‘">";: :‘ "PLEASE WAIT";: :‘"<";: :Ž”9À‹ ICRT è Í Ê V,HéSHI:Ž: VTAB,HTAB 9ÂÊ V,H:Ž·9ÊÊ V,ÿ‘():Ž: VTABà9ÔVTçÛ:‹ ICRT è Í Ê VT,HéSHI:Ž: HTABí9ÖÊ VT,H:Žÿ9ÞVçVé: À:Ž":÷ ü:‹ ICRTæ Í ¿ COH,CO2,CO3(:øŽB:ü¿ CO2,COB,CO3:Ž: INVe:
 ü:‹ ICRTæ Í ¿ COB,CO2,CO3k:Ž†:¿ CO1,CO2,CO3:Ž: NORM°: ü:‹ ICRTæ Í ¿ COH,COB,CO3: BOX#¶: ŽÕ:¿ CO1é,CO2,CO3:Ž: FLASH
;¿ COH,CO2,CO3:‹ ICRTæ î HFLæ Í ¿ COH,,CO3: HILI;Ž&;‹ ICRTæ Í ,; Ž4;$À:Ž™;.À:Vç:Hç: À:‘ "NOTE: F1 HERE TAKES YOU BACK TO":VçVé: À:‘ "THE BEGINNING OF WILLWRITER."4<0VçVé: À:‘ "PRESS F1 AGAIN IF YOU REALLY":VçVé: À:‘ "WISH TO DO THIS. OTHERWISE JUST":VçVé: À:‘ "PRESS "RT$" TO RESUME.":F2ç: 0: @:ŽO =’F9ç:‹ E%æ î (SçB8 ï SçB7) Í F9ç:SçB9:ISçTH%éS:ITçIS%=œANUMçAS: L: 0u8=¢³ DECOMP: ym=¤ @:‹ E%æ î (SçC7 ï SçA7 ï SçB2 ï SçB9) Í ‹=°‹ SçB2 î F4è î Dæ Í ´=²‹ (SçC7 ï SçA7) î F4è î CH%æ Í Õ=º‹ F0%æ î H%æ Í  ¸:‰ ˆæ=Ä‹ F3è Í Î>ÆF1ç:  :I$çV$(IV%):F3ç:‹ Nç Í VçR2:HçHC:I$çX$2>ÈF3ç: Ü:‰ (P>΋ V$(IV%)çU$ Í V$(IV%)çX$n>Ћ Næ î V$(IV%)èæX$ Í à~>Ø‹ Næ Í ìž>âF1ç:  :F2ç: @:‰ 2µ>ìF1ç:‹ SçD6 Í F1çÑ>ò  :‹ Nç Í VçR2:HçHCô>ô‹ Nè Í I$çX$: Ü:‹ SçD6 Í Ž?ö‹ Nè Í (?
I$çX$:C%ç: Ü(?(‹ SçD5 Í Žo?*‹ T$çH$ ï T$çCH3$ ï T$çQA$ ï T$çCH4$ Í F3ç:V$(IV%)çI$: ¸:‰ ˆ¬?2‹ I$çH$ ï T$çCH3$ ï I$çQA$ ï T$çCH4$ Í T$çI$: ¸:‰ ˆÄ?<‹ F8æ Í B%ç:‰ Zì?F‹ I$çQ$ ï I$çQQ$ Í  ` :F3ç:‰ ˆ@H‹ T$çCH2$ Í V$(IV%)çI$: ` :F3ç:‰ ˆ@@PB%ç:‹ I$çB$ ï I$çBB$ Í B%ç:E%ç:Žg@Q‹ T$çCH1$ Í B%ç:E%ç:V$(IV%)çI$:Ž”@R‹ SçA1 î ÿ’(I$)è Í  Ö:‰ ˆ: NONAME¾@T‹ Nç î I$èæY$ î I$èæN$ Í  Ö:‰ ˆÌ@Z‹ Nè Í ŽAd‹ Nè Í V%çÿ”(I$):‹ SçA2 Í ‹ V%è ï V%æST% Í  Ö:I$çX$:‰ ì:An \:V$(IV%)çI$:‹ I$çX$ Í V$(IV%)çNU$jAàF1ç:  :Vç: IF S=C3 OR S=C1 THEN V=13™AêI$çV$(IV%):Hç: À:‹ SèæA2 Í  Ì:‰ ¶Aô‹ F7æ Í Vç: À: ÌÚAþ‹ F7è Í F7ç: ü: 0:  ðA À:I$çSN$:VçB‹ SèæC1 î SèæC2 î SèæC3 î SèæC4 Í 0:B‹ I$çC$ î V$()çY$ Í I$çCH$\B&‹ I$çS$ î V$()çY$ Í I$çV$()–B0Hç
:Vç : À:Lçÿ’ (I$):‘ Z$"ANSWER IS:":‹ LèÔ Í ‘¹B: : ”: :‘:‹ Lè¬ Í ‘CDI$ç"IS THIS OK?--USE "éDQ$éN$éDQ$é" TO CHANGE": ø:F2ç:‹ F8æ Í F2ç"CX @:‹ T$çCH1$ Í B%ç:Ž>CZ‹ T$çCH2$ Í  ` :‰ ˆdC\‹ T$çCH3$ ï T$çCH4$ Í  ¸:‰ ˆwCb‹ I$èæN$ Í pCd‹ FR%æ î GC%æ î SèæA7 Í   :Ž­Cl‹ Næ Í ŠÌCvV$(IV%)çX$:‹ SçA2 Í SN$çX$ÖC€‰ ˆDŠI$çV$(IV%):Vç :Hç: À: Ì:‹ I$çNU$ Í I$çX$XD” À:‘ " YOU MAY MAKE CHANGES IN THIS ENTRY":F1ç:  :Vç:Hç: À©D¨NEWFç: Ü:NEWFç:‹ T$çH$ ï T$çQA$ ï I$çQ$ ï I$çQQ$ ï I$çB$ ï I$çBB$ Í (ÛDª‹ T$çCH1$ ï T$çCH2$ ï T$çCH3$ ï T$çCH4$ Í (E² \:V$(IV%)çI$:‹ SèæC7 î SèæB2 î SèæA7 Í ˆ>EÆTV$(J% é ) ç I$: ‹ I$ ç X$ Í  : ‰ MEÐF4ç:‰ ˆF Å:Vç:Hç: À: Ì:‘" >CHANGES HERE AFFECT LATER SCREENS,": Þ:‘ " SO YOU WOULD HAVE TO REVIEW THESE": Þ:‘" ANSWERS AND PERHAPS ANSWER SOME": Þ:‘" NEW QUESTIONS.":‘€F> Þ:‘" TYPE "DQ$Y$DQ$" TO MAKE THIS CHANGE":HçHé: Ô:‘ DQ$N$DQ$TC$"THE REVIEW";:F2ç: @:‹ I$çY$ Í GC%ç:FJ%çFI%†FRŽ›F\‹ I$çCC$ Í I$çC$°F^‹ I$çSS$ Í I$çS$¶F`ŽÉFp‹ I$èæY$ Í 2ÜFz‹ SçA2 Í  Ð îF„‹ SèæB8 Í ¢
GŽ‹ V$()çX$ î Gè Í  •HE% ç :  $:F1 ç :   °H ‹ M% è  Í B% ç : Ž IS1$ ç "CHILD":I$ ç S1$ é "REN":S2$ ç "NAMED": ‹ S ç B2 Í S1$ ç "GRANDCHILD":I$ ç S1$ é "REN"?I. ‹ S ç B9 Í S1$ ç "BEQUEST":I$ ç S1$ é S$ŽI8Vç:Hç: : À:‘ Ò#);: À:‘ "THE ";I$;" YOU HAVE ";S2$;":": :‘¹IBEC%ç:‚ Iç Ì M%:FE%ç:Hç:‹ Iæ Í HçãIL Ô:I$çTV$(I):‹ ÿ (I$,)èæU$ Í ^'JNEC%ç:‹ SçB9 Í I$çHY$éDQ$éR$éDQ$é" WILL LET YOU USE THIS SPACE"IJP‹ SçC7 Í FE%ç:I$çÿƒ(I$,,)rJ^‹ ÿ’(I$)æ Í I$çÿ(I$,)éAS$:FL%ç©J`‘ ÿƒ(ÿ“(I),,)"."I$;:‹ FE%æ Í  ü:‘ "X";: ÅJb‘:ƒ:V1çÛé:‹ M%èMM% Í ‘×Jd‹ SèæC7 Í „KhHç: Ô:‘ SP$J$"NUMBER ";:‹ EC%è Í ‘ "OF CHILD TO EXCLUDE":‰ liKj‘ "TO EXCLUDE ADDITIONAL": Ô:‘ " CHILD OR RESTORE EXCLUDED CHILD."æKl Ô:‘" -->TYPE "DQ$Y$DQ$" WHEN LIST IS OK":‹ EC% æ  Í  Ô:‘ Ò)"(";: ü:‘"X";: :‘" MEANS CHILD IS EXCLUDED)"; LtV1çV1é:Nç:I$çX$: 0: Ü:CIçÿ”(I$):‹ I$çY$ Í º:Lx‹ CIè ï CIæCH% Í xL|C%ç:I$çTV$(CI):‹ ÿ(I$,)çU$ Í TV$(CI)çÿƒ(I$,,N):‰ L€TV$(CI)çU$éI$:‰ AM„Hç: Ô:‘ J$DQ$"A"DQ$"-TO ADD ANOTHER "S1$:Hç: Ô:‘ DQ$"R"DQ$"-TO REVIEW OR CHANGE ONE": Ô:‘ DQ$DD$DQ$"-TO DELETE ONE": Ô:‘ DQ$Y$DQ$"-IF LIST IS OK AS IS";: 0‹M”‹ M%æMM% Í Vç:Hç: À: h:‘ "*NO MORE CAN BE NAMED*": Ô:‘ J$ NœVçR3:Hç: À:‘ J$"APPROPRIATE LETTER & ";RT$;:‹ FL%æ Í VçR4:Hç: À: :‘ AS$;: :‘ ":TRUNCATED FOR DISPLAY ONLY";MN¦F2ç: @:TT$çI$:VçR2:Hç: À:SERç: Ì:‹ TT$èæY$ Í ØrNº‹ SçC7 ï SçA7 Í CH%çM%:Fç: <
ŽNÄ‹ SçB2 Í DçM%:Fç: <
¯NÉ‹ SçB9 Í C%ç:GçM%:Fç: <
ÄNÎF4ç:M%ç:J%ç:ŽOØ‹ FR%æ î GC%æ î ((TT$ç"A" î M%è) ï (TT$çDD$ î M%ç)) Í   :F4ç:Ž^OÜ‹ TT$ç"A" Í V$()çX$:V$()çX$:V$()çX$:V$()çX$:V$()çX$:F4ç:J%çM%:Ž†OâHç:VçM%é: À: Ì:‹ M%æ Í È¢Oö‹ TT$èæDD$ Í CIç:‰ "ÕOøV$(IV%)çX$:‹ SçB9 Í  ô:B%ç:Gç:M%ç:J%ç:ŽæO :B%ç:ŽPÈVç:S1$ç"DELETE":‹ I$ç"R" Í S1$ç"REVIEW OR CHANGE"uPÜ‘:Hç: Ô:‘ "TYPE NO. OF ITEM TO "S1$SP$;:Nç:I$çX$: Ü:CIçÿ”(I$):‹ CIç Í –Pæ‹ CIè ï CIæM% Í  Ö:‰ âËPðJ%çCIê:VçéCI:Hç: À:‘ ">";:‹ TT$èæDD$ Í "ðPúL%çÿ’(TV$(CI))é:‹ L%æ# Í L%ç##Q‚ Iç Ì L%: ê:‘ UL$;:ƒ:‹ SçB9 Í  ô:‰ ü9Q :F4ç:E%ç:ŽaQ"‹ SçB9 Í IGçCI:J%çCIê: d
:F4ç:ŽxQ,‹ I$çDD$ Í  &:Ž¨Q6N ç $:V$(IV%) ç TV$(CI):J% ç CI ê : ‰ Š×QôJ% ç J% é : ‹ J% ç M% Í G ç J% ê :M% ç GRþC% ç :TV$(J%) ç X$:V$() ç U$:V$() ç U$:V$() ç U$: Ž _RIX ç J% é : ‹ IX è M% Í ‚ I ç IX Ì M% ê :TV$(I) ç TV$(I é ): ƒ ¢R ‹ (S ç C7 ï S ç A7) î CH% æ  Í CH% ç CH% ê :M% ç CH%: ‰ :ÒR ‹ S ç B2 î D æ  Í D ç D ê :M% ç D: ‰ :S& ‹ S ç B9 î G æ  Í G ç G ê :M% ç G: ‰ :
S0M% ç $S:J% ç M%:C% ç : Ž ·S@ • S ‰ B,B,B,¸$,B,¸$,Â$,¸$,¸$,¸$,X%,Ì$,Ö$,à$,¸$,B,È#,Ò#,Ü#,æ#,ð#,æ#,$,:%,¸$,Â$,ô$,6$,ô$,6$,ô$,6$,b%,B¿SB Ž nT¤Vç:Hç: À: :‘ "WARNING:": :‘ "ALL INFORMATION WILL BE ERASED!":‘ J$DQ$Y$DQ$" TO ERASE EVERYTHING":‘ J$DQ$N$DQ$" TO NOT ERASE":F2ç: @:‹ I$çY$ Í Š "UTIL"vT¸ Ž ðTÐ Vç:Hç: À: h: B: $:F1ç:  :Vç: Ê:I$ç"TO WRITE A LEGAL WILL IN": ø:VçVé: À:I$çSN$é",": ødUä VçVé: Ê:I$ç" YOU MUST BE "éAG$é" YEARS OLD,": ø:VçVé: Ê:I$ç"AND OF SOUND MIND.": ø:‹ AN$çX$ Í !ÆUî VçVé: Ê:I$ç"SPECIAL NOTE:": ø:Hç:VçVé: À:‘ ÿ(AN$,#):VçVé: À:‘ ÿƒ(AN$,$,#)ÝU!F2ç: 0: @:ŽDV˜!FL%ç:‚ Iç Ì NS%:K(I)ç:ƒ:‹ V$()èæY$ Í CH%ç:K(A7)ç:K(C6)ç:K(A8)ç:V$()çX$:V$()çX$:V$()çX$ƒVÀ! ‹ V$() è æ Y$ Í K(C8) ç :K(C9) ç :K(D1) ç :K(D2) ç ±VÂ! ‹ V$() è æ Y$ Í K(B1) ç :V$() ç X$ÓVÄ! ‹ V$() è æ Y$ Í K(B2) ç õVÆ! ‹ V$() è æ Y$ Í K(C7) ç #WÊ! ‹ V$() ç X$ ï V$() ç NU$ Í K(C9) ç QWÞ! ‹ V$() ç X$ ï V$() ç NU$ Í K(D2) ç vWè!‹ V$()çX$ ï V$()çNU$ Í K(C4)çWê!‹ V$(
)çX$ ï V$(
)çNU$ Í K(C2)çËWò! ‹ V$() ç X$ ï V$() ç NU$ Í K(D4) ç X$"K(B3) ç : ‹ CP æ  Í K(B3) ç :K(B4) ç :K(C5) ç MX)" ‹ V$() è æ Y$ Í K(A5) ç :K(B3) ç :K(B4) ç :K(C5) ç :V$() ç X$ÄX."K(B7) ç :K(B8) ç :K(B9) ç : ‹ (S ç B0 î V$() ç Y$) ï S ç B7 ï S ç B8 ï S ç B9 Í K(B8) ç :K(B7) ç :K(B9) ç æX0" ‹ V$() è æ Y$ Í K(B0) ç 2Y8" ‹ B% æ  Í K(B8) ç :K(B7) ç :K(B9) ç :K(C7) ç :K(A7) ç :K(B2) ç šYB" ‹ CH% è  ï (V$() è æ C$ î V$() è æ C$ î V$() è æ C$ î V$(
) è æ C$) Í K(C6) ç :K(C7) ç ÐYL"CH$ ç "YOUR CHILD": ‹ CH% æ  Í CH$ ç CH$ é "REN"ØYV" Ž êYÈ#  ê$: ‰ ô$üYÒ#  ê$: ‰ þ$ZÜ#  ê$: ‹ F9 æ  Í Ž 0ZÞ#  þ$:  ô$: ‰ %BZæ#  %: ‰ ô$[Zð#  &%:  %: ‰ %tZ$  0%:  %: ‰ %’Z6$ : ô$:  %: ‰ D%öZ¸$Vç:Hç: À:‘"IF YES TYPE "DQ$Y$DQ$" AND "RT$:Vç
: À:‘"IF NO TYPE "DQ$N$DQ$" AND "RT$:Ž
[Â$‹ CH%è Í FC%()ç0[Ä$M%çCH%:‹ CH%æ î E%æ Í J%çCH%r[Æ$Vç
:Hç#:‹ CH%æ î FC%()è Í J%çCH%:Fç: Ä :V$()çTV$(J%)‘[È$ À:‘ ÿƒ(ÿ“(J%é),,):Ž®[Ì$Vç: Ê:I$çSN$: ”:ŽÍ[Ö$Vç:Hç: À:‘ SN$;",":Žö[à$Vç:Hç: À:‹ V$()èæY$ Í  h:ŽN\â$Hç: À:‹ CPæ Í ‘ Z$"SURVIVING SPOUSE'S SHARE": Þ:‘ "OF COMMUNITY PROPERTY":Žu\ä$‘ "PROPERTY OWNED BY "Z$"SPOUSE":Ž˜\ê$ :‹ Gæ î E%æ Í M%çG:J%çGÜ\ì$VçR1:Hç:‹ Gæ î FC%()è Í M%çG:J%çG:Fç: Ä :V$()çTV$(J%)ü\î$‹ SçB7 î SX%èçJ% Í SX%çJ%é]ð$‹ SçB9 Í Vç:Hç!]ñ$‹ F9æ Í Ž?]ò$ À:‘ "BEQUEST #"SX%;:Ža]ô$Vç:Hç:‹ SçC4 ï SçC2 Í Vç þ]ö$ À:‘ "IF YOU USE AN ADDRESS, SEPARATE THE":VçVé: À:‘ "NAME, STREET, AND CITY & STATE WITH":VçVé: À:‘ "SEMICOLONS";:‹ SèæC4 î SèC2 Í ‘ " (;)";
^ø$‘ ".":Ž^þ$Vç:‹ SçB9 Í Vçq^ÿ$I$çV$():Lçÿ’(I$):‹ LæH ï (SçB9 î LæE) Í I$ç"THIS PERSON (OR INSTITUTION)"‹^%‹ Lè% î SçB8 Í VçVé¤^
%‹ SçB9 Í I$ç"IF "éI$Á^% Ê: ø:‹ S ç B8 Í Žï^%I$çV$():‹ ÿ’(I$)æl Í I$ç"THIS BEQUEST"_%Vç:Lçÿ’(I$):‹ LèI Í VçVé!_% À: ø:Žu_%Vç:Hç: À:‘ SP$J$RT$" IF YOU DON'T WANT TO": Þ:‘ "NAME AN ALTERNATE";:Ž™_%Vç:Hç: À:‹ V$()èæY$ Í %Æ_%‹ CH%è Í ‘ "USE "DQ$C$DQ$" TO NAME "CH$`%‹ CH%æ Í ‘ "USE "DQ$C$DQ$" TO NAME YOUR CHLDRN EQUALLY"`%VçVé: À:‘ "OR ";h`%‹ V$()çY$ Í ‘ "USE "DQ$S$DQ$" TO NAME "Z$"SPOUSE":VçVé: À:‘ "OR ";È`%‘ "NAME PERSON(S) OR CHARITY(S)": Ô:‘"TO RECEIVE THIS PROPERTY IN EQUAL": Ô:‘"SHARES"Î`%Žî`%T$çV$(
):‹ SçC4 Í T$çV$()>a%Vç :Hç: À:‹ V$()çY$ î T$èæS$ Í ‘ "USE "DQ$S$DQ$" TO NAME YOUR SPOUSE"‡a % Ô:‹ V$()çY$ î T$èæC$ Í ‘ "USE "DQ$C$DQ$" TO NAME YOUR CHILDREN"ºa"% Ô:‘"USE SEMICOLONS TO SEPARATE ELEMENTS":Žýa&%I$çV$(
): €%:I$ç"YOUR REAL ESTATE": Š%:I$çÿ‚(I$,):‰ ”%Nb0%I$çV$(): €%:I$ç"THE REST OF YOUR PROPERTY": Š%:I$ç"REST OF PROP.":‰ ”%mb:%Vç:Hç: À:‘ SN$;",":Ž„bD%‹ SçC9 Í I$çV$()›bF%‹ SçD2 Í I$çV$()²bH%‹ SçD4 Í I$çV$()ÊbJ%‹ I$çC$ Í I$çZ$éCH$ïbL%‹ I$çS$ Í I$çZ$é"SPOUSE, "éV$() cN%Vç:‹ ÿ’(I$)æl Í VçcP% À: ø:Ž0cX%‹ Dè Í FC%()çMcZ%M%çD:‹ Dæ î E%æ Í J%çD‹c\%Vç
:Hç:‹ Dæ î FC%()è Í J%çD:Fç: Ä :V$()çTV$(J%)•c^%‰ È$öcb%IIç:‹ (V$()çC$ ï V$()çC$ ï V$()çC$ ï V$(
)çC$) î CH%æ Í IIç:‹ V$()çY$ î V$()çY$ Í Žndf%Vç:Hç : À:I$ç" ERASING ITEMS NOT NEEDED ": ü:‚ Iç Ì :‘ ÿƒ(I$,I,);: ê:ƒ: :‹ V$()èæY$ Í Vç: v%†dj%‹ IIç Í Vç
: v%¯dl%‹ V$()èæY$ Í Vç: v%:VçVé: v%Îdn%Vç: v%:SPEEDçÿ:WFLç:Žôdv% À:‚ Iç Ì : à:‘ SP$;:ƒ:Žze€% :Hç:‹ I$çC$ Í I$çCH$:Vç: À:‘"(SEE MANUAL SECTION 7C FOR DETAILS)":‹ CH%æ Í I$ç"ALL THE CHILDREN":Hç:Vç: À:‘ " "¡e‚%‹ I$çS$ Í I$ç"YOUR SPOUSE, "éV$()Ôe„%I$ç"IF "éI$:Lçÿ’(I$):‹ LæH Í I$çÿ(I$,G)éAS$êe†%Vç: À: ø:ŽfŠ%Vç: À: ø:Žf”%Vç:Hç: À:‘ I$:Ž ):DQ$çÿ–("):PD$ç".":ES$çÿ–():U$çÿ–():R$ç"R"k.'TC$ç" TO CONTINUE ":J$ç"TYPE ":ST%ç2:DD$ç"D":UL$ç".":G$ç"G":SS$ç"s":CC$ç"c":BB$ç"b":QQ$ç"q":GG$ç"g":NU$ç"-NOT USED-":RT$çDQ$é"RETURN"éDQ$ÓkB'H1ç:A1ç:A2ç:A3ç:A4ç:A5ç:A6ç:A7ç:A8ç:A9ç:B1ç
:B2ç:B3ç :B4ç
:B5ç:B6ç:B0ç:B7ç:B8ç:B9ç:C1ç:C2ç:C3ç:C4ç:C5ç:C6ç:C7ç:C8ç:C9ç:D1ç:D2ç:D3ç:D4ç :D5ç!:D6ç"`lV'NE%ç!:† VE(NE%),HE%(NE%):„ 2,3,4,5,6,8,9,10,11,12,13,15,15,16,18,19,19,20,21,2,3,5,6,8,10,11,13,14,15,16,18,19,21:‚ Iç Ì NE%:‡ VE(I):ƒ¬l`'F2$ç" LEGISOFT/NOLO PRESS ":‚ Iç Ì NE%:HE%(I)ç:‹ Iæ Í HE%(I)çHCkmj'ƒ:F1$ç" SEE MANUAL PART":NC%ç
:† E1%(NC%),E2%(NC%):E1%()çA1:E1%()çA2:E1%()çA3:E1%()çA4:E1%()çA5:E1%()çA6:E1%()çB6:E1%()çC1:E1%()çC3:E1%(
)çC6:E1%()çC8:E1%( )çD1:E1%(
)çD3ûml'E2%()çA1:E2%()çA2:E2%()çA3:E2%()çA4:E2%()çA5:E2%()çB2:E2%()çB9:E2%()çC2:E2%()çC4:E2%(
)çC7:E2%()çC9:E2%( )çD2:E2%(
)çD4:‰ (CnV+T$çX$:‚ Iç Ì ð:T$çT$éY$:ƒ:ST1$çT$:ST2$çT$:ST3$çT$:ST4$çT$:‰ (OKwn0uAD1çÚ(ST1$):AD2çÚ(ST2$):AD3çÚ(ST3$):AD4çÚ(ST4$)›n:u˜ ‚À,ÿ—(AD1é):˜ ƒÀ,ÿ—(AD1é)¿nDu˜ „À,ÿ—(AD2é):˜ …À,ÿ—(AD2é)ãnNu˜ †À,ÿ—(AD3é):˜ ‡À,ÿ—(AD3é) oXu˜ ˆÀ,ÿ—(AD4é):˜ ‰À,ÿ—(AD4é):Ž0oyHç:Vç: À:M$çF1$éÿ“(F%(S))éBL$Poy‹ F0%æ Í M$çF1$éÿ“()éBL$loy‹ WHFæ Í M$çÖ(,SC1$)…o y‹ F0%è ï ICRTæ Í À»o"yIIç:TT$çST1$: Jy:TT$çST2$: Jy:TT$çST3$: JyÕo,yJFç:TT$çST4$: Jy:ŽpJy‚ Iç Ì : :z:‘ ÿƒ(TT$,(ëIê&,&);: Dz
pLyƒ:Ž3p:zIIçIIé: Ô: PRINT LEFT BORDERfp