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

 
Output of file : MAIN.BAS contained in archive : WILLWRIT.ZIP
ÿ£’ ,@: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% ç M6IT ç 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*T F$ç"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

  3 Responses to “Category : Databases and related files
Archive   : WILLWRIT.ZIP
Filename : MAIN.BAS

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/