100 POKE56,136:CLR:DV=PEEK(186):IFDV<8THENDV=8
110 SYS57812"TAIL II 9000",DV,0:POKE780,0:POKE781,0:POKE782,144:SYS65493
115 SYS57812"INPUT 8800",DV,0:POKE780,0:POKE781,0:POKE782,136:SYS65493
120 SYS57812"MR.MOUSE C000",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
130 SYS57812"INSTR 828",DV,0:POKE780,0:POKE781,60:POKE782,3:SYS65493
140 SYS57812"TILEBOX 9A00",DV,0:POKE780,0:POKE781,0:POKE782,154:SYS65493
160 DIMW$(200):DV=PEEK(186):IFDV<8THENDV=8
170 ML=49152:TA=36864:MOUSE=ML:V=ML+111:WIZ=TA+6:WRAP=TA+15:PA=TA+2560:AT=ML+12
175 BO=ML+30:SYSPA+9,2048,0,95:SYSPA+9,2048,1,105:N=200:IN=136*256:
176 DIMM$(12):FORI=1TO12:READM$(I):NEXT
180 DIMF$(7),EN$(53),R$(9),FE$(N),N(N),D(N),D$(N):FORI=1TO7:READF$(I):NEXT
182 FORI=1TO67:READFE$(I),N(I),D(I),D$(I):NEXT
184 V(1)=1:V(2)=2+N(1):V(3)=1+N(V(2))+V(2)
185 V(4)=1+V(3)+N(V(3)):V(5)=1+V(4)+N(V(4))
186 V(6)=1+V(5)+N(V(5)):V(7)=1+V(6)+N(V(6))
190 FORI=0TO52:EN$(I)="[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":NEXT
240 SYSML+54,"FONT",DV,2048
245 SYSPA+9,2048,0,95:SYSPA+9,2048,5,105
250 POKE53281,0:POKE53280,0:POKE53272,19:POKEV,143
260 SYSBO,0,39,1,24,105,3+32
270 SYSML:SYSML+6
280 GOSUB2710
290 SYSWIZ,1,38,5,17,160,15,1," [204] [197] [199] [193] [204]   [194] [197] [193] [199] [204] [197] "
300 SYSWRAP,"    [212]HIS PROGRAM WILL GENERATE LEGAL FORMS FROM TEMPLATES ON DISK.
310 [158]WRAP," ATNLL YOU HAVE TO DO IS ANSWER A FEW SIMPLE QUESTIONS AND THEN GET
320 SYSWRAP," YOUR PRINTER READY. "
330 SYSAT,7,15,"[152] [204][207][193][196][211][212][193][210]  [195][207][206][212][201][206][213][197] "
340 SYSML+18,7,30,15,15:SYSML+21,30,15:SYSTAIL+3,15,7,16,21,30,1,12,1,0
350 IFI%=1THEN40000
360 IFI%=0THEN280
370 GOSUB2710
380 SYSWIZ,2,37,2,22,160,15,1," [198] [207] [210] [205]   [212] [217] [208] [197] "
390 SYSWRAP,"[160][160][160][160][212]HERE ARE SIX TYPES OF FORMS AVAILABLE ON THIS DISK.
400 [158]WRAP," (null)LEASE SELECT THE TYPE OF FORM YOU WOULD LIKE TO FILL OUT FROM "
410 [158]WRAP,"THE LIST BELOW: "
420 Y[178][194](214)[170]2
425 A$[178]"CHR$O PEEKACKLET"[170]F$(1)[170]"LET"[170]F$(2)[170]"LET"[170]F$(3)[170]"LET"[170]F$(4)[170]"LET"[170]F$(5)[170]"LET"[170]F$(6)
430 [158]AT,07,Y,A$
440 [158]ML[170]18,6,33,Y,Y[170]6:[158]ML[170]21,33,Y:[158]TAIL,Y,6,33,7,15,1,0:[158]ML[170]18,0,39,0,24
450 [139]I%[178]1[167]280
460 F[178]I%[171]1:[141]5000
470 [139]F[178]2[167]D$(SP[170]12)[178]M$([197](D$(SP[170]12)))
480 [139]F[178]3[167]D$(SP[170]6)[178]M$([197](D$(SP[170]6)))
790 [141]2710:[158]WIZ,1,38,2,23,160,15,1," (null) ATN CHR$ RIGHT$ (null) CHR$ "
800 [158]WRAP,"    (null)HAT TYPE OF PRINTER ARE YOU USING? (null)EGAL PEEKEAGLE NEEDS THIS "
810 [158]WRAP,"INFORMATION IN ORDER TO PAGE PROPERLY. "
820 Y[178][194](214)[170]2
830 [158]AT,08,Y,"CHR$O PEEKACKLET(null)RACTOR ASCEEDLETATNUTO (null)HEET ASCEEDERLET(null)AIT ASCOR VALACH (null)AGE"
840 [158]AT,08,Y[170]4,"(null)RINT (null)O ASCILE"
850 [158]ML[170]18,7,33,Y,Y[170]3:[158]ML[170]21,33,Y:[158]TAIL,Y,7,33,5,15,1,0
860 [139]I%[178]1[167]370
870 PT[178]I%
880 [139]PT[179][177]5[167]920
890 [158]BO,3,36,20,20,32,0:[158]ML[170]12,3,20,"WAITASCILENAME: OPEN":[158]ML[170]51,3,1,20
900 [139]W$[178]""[167]790
910 F$[178]W$
920 [141]2710:[158]WIZ,1,38,2,16,160,15,1," (null) VAL ATN STR$ (null)   (null) (null)   (null) (null) RIGHT$ (null) (null) "
930 [158]WRAP,"     (null)ET TOP OF FIRST PAGE AND CLICK ON (null)(null)RIGHT$(null)(null) TO PROCEED. "
940 [158]AT,9,12," CHR$(null) PEEKATNLEN(null)  (null)(null)RIGHT$(null)(null) "
950 [158]ML[170]18,9,30,12,12:[158]ML[170]21,24,12
960 [158]TAIL[170]3,12,9,17,24,30,1,15,1,0
970 [139]I%[178]1[167]790
980 [139]I%[178]0[167]960
990 [141]2710:[158]WIZ,1,38,2,8,160,15,1," (null)OADING (null)EGAL FORM... "
1000 [158]WRAP,"     (null)LEASE WAIT... ":[151]53248[170]21,0
1010 [160]2:[159]2,DV,2,FE$(SP):[161]#2,A$,A$:EOF[178]1
1020 [132]2,W$(EOF):EOF[178]EOF[170]1:[139]ST[178]0[167]1020
1030 [160]2:EOF[178]EOF[171]1:[151]53248[170]21,1
1040 [141]2710:[158]WIZ,1,38,2,8,160,15,1," (null)ARSING ASCORM... "
1050 [158]WRAP,"     (null)EPLACING FIELDS WITH YOUR INPUT. ":[153]"CMD";
1060 [129]J[178]1[164]6:[153]".";:[129]I[178]1[164]EOF
1080 A$[178]W$(I):[158]828,"\",A$
1090 X[178][194](251):[139]X[178]0[167]1110
1100 W$(I)[178][200](A$,X[171]1)[170]D$([198]([202](A$,X[170]1,1))[171]64[170]SP)[170][202](A$,X[170]2)
1110 [130]I,J
1120 [141]2710:[158]WIZ,1,38,2,8,160,15,1," (null)AGINATING... "
1130 [158]WRAP,"     ASCORMATTING OUTPUT... ":[141]2620
1140 [141]2710:[158]WIZ,1,38,2,8,160,15,1," (null)RINTING... "
1150 [160]2:[159]2,4,7:[160]2:[139]ST[167][144]
1160 [139]PT[179][177]5[167][151]53248[170]21,0:[159]4,4,7:[152]4,
1170 [139]PT[179][177]5[167][129]I[178]1[164]4:[152]4,:[130]
1180 [139]PT[178]5[167][151]53248[170]21,0:[159]4,DV,7,F$[170]",S,W"
1190 L[178]4:[129]I[178]1[164]EO
1200 [139]PT[178]5[167][152]4,W$(I)" ";:[139]W$(I[170]1)[178]""[167][152]4,[199](13)
1210 [139]PT[179][177]5[167][152]4,"     "W$(I):L[178]L[170]1
1220 [139]L[177]56[167][141]1240:L[178]0
1230 [130]:[160]4:[151]53248[170]21,1:[137]790
1240 [139]PT[178]2[167][129]J[178]1[164]10:[152]4,:[130]:[142]
1250 [139]PT[178]3[167][152]4,[199](12);:[142]
1260 [141]2710:[158]WIZ,1,38,2,8,160,15,1," RIGHT$(null)(null)VAL(null)(null) (null)VAL(null)(null) (null)ATNCHR$VAL "
1270 [158]WRAP,"   (null)RESS ANY KEY... "
1280 [161]A$:[139]A$[178]""[167]1280
1290 [158]WIZ,1,38,2,8,160,15,1," (null)RINTING... "
1300 [129]J[178]1[164]5:[152]4,:[130]:[142]
1990 [139][200](EN$(8),1)[178]"$"[167]EN$(8)[178][202](EN$(8),2)
2000 [139][200](EN$(9),1)[178]"$"[167]EN$(9)[178][202](EN$(9),2)
2010 A[178][197](EN$(8))[170][197](EN$(9)):[141]2740:EN$(10)[178][202](A$,2):[142]
2015 [131]"MID$ANUARY","ASCEBRUARY","(null)ARCH","ATNPRIL","(null)AY","MID$UNE","MID$ULY","ATNUGUST"
2016 [131]"(null)EPTEMBER","(null)CTOBER","(null)OVEMBER","STR$ECEMBER"
2020 [131]"ATNFFIDAVIT","(null)OAN ATNGREEMENT","(null)ROMISSORY (null)OTE"
2030 [131]"(null)OWER (null)F ATNTTORNEY (LEFT$EALTH)","(null)IMITED (null)OWER (null)F ATNTTORNEY"
2040 [131]"(null)EVOKE (null)OWER (null)F ATNTTORNEY","(null)ESIDENTIAL (null)EASE
2610 FORI=0TO24:EN$(I)="[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":NEXT:RETURN
2620 I=1
2630 IFLEN(W$(I))<66THEN2660
2640 GOSUB2680:IFW$(I+1)=""THENFORK=EO+1TOI+2STEP-1:W$(K)=W$(K-1):NEXT:EO=EO+1
2650 A$=MID$(W$(I),X+1):W$(I)=LEFT$(W$(I),X-1):W$(I+1)=A$+" "+W$(I+1)
2660 I=I+1:IFI<EOFTHEN2630
2670 RETURN
2680 X=0:J=65
2690 IFMID$(W$(I),J,1)=" "THENX=J:RETURN
2700 J=J-1:GOTO2690
2710 SYSPA,0,39,1,24,105,95,14,1
2720 SYSBO,0,39,0,0,160,7:PRINT"[158] [204]EGAL [194]EAGLE":RETURN
2730 SYSBO,0,39,1,24,105,3+32:RETURN
2740 A=INT(A*100+.5)/100:A$=STR$(A)
2750 L=LEN(A$):IFA=INT(A)THENA$=A$+".00":RETURN
2760 IFMID$(A$,L-1,1)="."THENA$=A$+"0":RETURN
2770 IFMID$(A$,L-1,1)="."THENA$=A$+"0"
2780 RETURN
2999 REMFIELD,MIN,MAX,DEFAULT
3000 DATA "AFFIDAVIT.TXT",10,0,""
3010 DATA"[211]TATE/[195]OMMONWEALTH (ALL CAPS)",0,0,""
3020 DATA"[195]OUNTY/[194]OROUGH/[208]ARISH (ALL CAPS)",0,0,""
3021 DATA"[193]FFIANT ([208]ERSON [211]WEARING)",0,0,""
3022 DATA"[211]WORN FACT LINE #1",0,0,""
3023 DATA"[211]WORN FACT LINE #2",0,0,""
3024 DATA"[211]WORN FACT LINE #3",0,0,""
3025 DATA"[211]WORN FACT LINE #4",0,0,""
3040 DATA"[196]AY OF MONTH",1,31,"1ST"
3050 DATA"[205]ONTH",1,12,"1"
3060 DATA"[217]EAR",1998,9999,"1998"
4000 DATA"SECNOTE.TXT",16,0,""
4010 DATA"[194]ORROWER",0,0,""
4020 DATA"[204]ENDER",0,0,""
4022 DATA"[204]ENDER [193]DDRESS [204]INE 1",0,0,""
4023 DATA"[204]ENDER [193]DDRESS [204]INE 2",0,0,""
4024 DATA"[204]ENDER [193]DDRESS [204]INE 3",0,0,""
4025 DATA"[204]ENDER [193]DDRESS [204]INE 4",0,0,""
4030 DATA"[208]RINCIPAL",.01,9999999,""
4032 DATA"[193]NNUAL PERCENTAGE RATE ([193][208][210])",.01,100,""
4033 DATA"[206]UMBER [207]F [205]ONTHLY [201]NSTALLMENTS",1,360,""
4036 DATA"[205]ONTHLY [208]AYMENT",-1,-1,""
4040 DATA"[198]IRST [208]AYMENT [196]ATE",1,31,"1ST"
4050 DATA"[205]ONTH (ENTER NUMBER)",1,12,"1"
4060 DATA"[217]EAR",1998,9999,"1998"
4070 DATA"[204]AST [208]AYMENT [196]AY OF MONTH",-1,-1,""
4080 DATA"[204]AST [208]AYMENT [205]ONTH",-1,-1,"1"
4090 DATA"[204]AST [208]AYMENT [217]EAR",-1,-1,""
4100 DATA"PROMISSORY.TXT",8,0,""
4110 DATA"[193]MOUNT [198]INANCED",.01,9999999,""
4120 DATA"[198]INANCE [195]HARGE ([212]OTAL OF INTEREST)",0,9999999,""
4122 DATA"[212]OTAL [207]F [208]AYMENTS",0,99999999,""
4123 DATA"[193]NNUAL [208]ERCENTAGE [210]ATE",0,100,""
4124 DATA"[196]AY",1,31,""
4125 DATA"[205]ONTH (ENTER NUMBER)",1,12,""
4130 DATA"[217]EAR",1998,9999,"1998"
4132 DATA"[194]ORROWER'S [206]AME",0,0,""
4200 DATA"POA HEALTH.TXT",10,0,""
4210 DATA"[199]RANTOR'S NAME",0,0,""
4212 DATA"[195]ITY/[195]OUNTY/[194]OROUGH/[208]ARISH",0,0,""
4213 DATA"[211]TATE/[195]OMMONWEALTH",0,0,""
4220 DATA"[193]PPOINTEE ([193]TTORNEY-IN-FACT)",0,0,""
4230 DATA"[193]PPOINTEE'S [195]ITY/[194]OROUGH/[208]ARISH",0,0,""
4235 DATA"[193]PPOINTEE'S [211]TATE/[195]OMMONWEALTH",0,0,""
4240 DATA"[193]LTERNATE [193]PPOINTEE",0,0,""
4245 DATA"[193]LTERNATE'S [195]ITY/[194]OROUGH/[208]ARISH",0,0,""
4250 DATA"[193]LTERNATE'S [211]TATE/[195]OMMONWEALTH",0,0,""
4255 DATA"[211]TATE OF NOTARY",-1,-1,"[164][164][164][164][164][164][164][164][164][164][164][164]"
4300 DATA"POA SPEC.TXT",12,0,""
4310 DATA"[199]RANTOR'S [206]AME",0,0,""
4312 DATA"[193]DDRESS [204]INE 1",0,0,""
4313 DATA"[193]DDRESS [204]INE 2",0,0,""
4314 DATA"[193]DDRESS [204]INE 3",0,0,""
4320 DATA"[193]PPOINTEE ([193]TTORNEY-IN-FACT)",0,0,""
4321 DATA"[193]DDRESS [204]INE 1",0,0,""
4322 DATA"[193]DDRESS [204]INE 2",0,0,""
4323 DATA"[193]DDRESS [204]INE 3",0,0,""
4330 DATA"[193]PPOINTEE'S [208]OWER #1",0,0,""
4331 DATA"[193]PPOINTEE'S [208]OWER #2 (OPTIONAL)",0,0,""
4332 DATA"[193]PPOINTEE'S [208]OWER #3 (OPTIONAL)",0,0,""
4333 DATA"[193]PPOINTEE'S [208]OWER #4 (OPTIONAL)",0,0,""
4400 DATA"POA REVOKE.TXT",5,0,""
4410 DATA"[199]RANTOR'S [206]AME",0,0,""
4412 DATA"[193]DDRESS [204]INE 1",0,0,""
4413 DATA"[193]DDRESS [204]INE 2",0,0,""
4414 DATA"[193]DDRESS [204]INE 3",0,0,""
4420 DATA"[193]PPOINTEE ([193]TTORNEY-IN-FACT)",0,0,""
5000 GOSUB2710
5010 SYSWIZ,1,38,2,22,160,15,1," [196]ATA [197]NTRY ":SYSML+21,2,4
5020 SYSWRAP,"    [197]NTER FOR RESPECTIVE FIELDS IN '"+F$(F)+"' FORM. [208]RESS [210][197][212][213][210][206]
5030 [158]WRAP," TO ADVANCE OR LEN(null)(null)(null) UP/DOWN TO CHANGE REVIEW/EDIT CHANGES. "
5035 [158]WRAP," (null)RESS ASC1 (null)O VALXIT THIS SCREEN. "
5040 Y[178][194](214)[170]2:NF[178]N(V(F)):CF[178]1:SP[178]V(F)
5050 MI[178]N(SP[170]CF):MAX[178]D(SP[170]CF)
5060 [158]BOX,2,37,Y[170]1,Y[170]1,160,15:[153]"LIST";:[158]TA[170]12,Y[170]1,FE$(SP[170]CF)
5070 [158]BOX,2,37,Y[170]3,Y[170]3,32,0
5080 [158]AT,2,Y[170]3,"WAIT":[158]IN,1,4,36,D$(SP[170]CF):[139]MI[178]0[175]MA[178]0[167]5085
5082 [139][197](W$)[179]MI[176][197](W$)[177]MAX[167]W$[178][202]([196](MI),2):D$(SP[170]CF)[178]W$:[137]5080
5085 [141]5200:[139]F%[178]0[167][142]
5090 D$(SP[170]CF)[178]W$
5100 [139]F%[178]2[167][141]6000:[137]5050
5110 [139]F%[178]1[167][141]6100:[137]5050
5200 [145]F[141]7100,7200,7300,7400,7500,7600,7700:[142]
6000 CF[178]CF[170]1:[139]CF[177]NF[167]CF[178]1
6010 [139]N(SP[170]CF)[178][171]1[167]6000
6020 [142]
6100 CF[178]CF[171]1:[139]CF[179]1[167]CF[178]NF
6110 [139]N(SP[170]CF)[178][171]1[167]6100
6120 [142]
7100 [139]CF[179]8[167][142]
7105 [139]CF[178]9[167][139][197](W$)[178]0[167][141]7800
7110 [139][197](W$)[179]MI[176][197](W$)[177]MAX[167]W$[178][202]([196](MI),2):F%[178]2:CF[178]CF[171]1:[142]
7120 [139]CF[178]9[167]W$[178]M$([197](W$))
7130 [142]
7200 [139]CF[179]7[167][142]
7205 [139]CF[178]12[167][139][197](W$)[178]0[167][141]7800
7207 D$(14[170]SP)[178]D$(11[170]SP)
7225 [158]BOX,2,37,Y[170]4,21,160,15
7230 IR[178][197](D$(SP[170]8))[173]100[173]12:YR[178][197](D$(SP[170]9)):[139]IR[178]0[176]YR[178]0[167][142]
7235 A[178][197](D$(SP[170]7))[172]IR[173](1[171]((1[170]IR)[174][171]YR)):[141]2740:D$(SP[170]10)[178]A$
7240 [158]AT,2,Y[170]6,"LIST(null)ONTHLY (null)AYMENT: "[170]D$(SP[170]10)
7245 A[178][197](D$(SP[170]10))[172]YR:[141]2740:[158]AT,2,Y[170]7,"(null)OTAL (null)AYMENTS:  "[170]A$
7250 A[178][197](A$)[171][197](D$(SP[170]7)):[141]2740:[158]AT,2,Y[170]8,"(null)OTAL RIGHT$NTEREST:  "[170]A$
7252 A[178][197](D$(13[170]SP))
7270 X[178][197](D$(SP[170]12)):[129]I[178]1[164]YR[171]1
7272 X[178]X[170]1:[139]X[177]12[167]X[178]1:A[178]A[170]1
7273 [130]:D$(15[170]SP)[178]M$(X)
7280 D$(16[170]SP)[178][202]([196](A),2)
7299 [142]
7300 [142]
7400 [142]
7500 [142]
7600 [142]
7700 [142]
7800 [129]I[178]0[164]12:[139]W$[178]M$(I)[167]W$[178][196](I):A[178]I
7810 [130]:[139][197](W$)[178]0[167]W$[178]"1"
7820 [142]
9997 [144]
9998 IR[178]I[173]100[173]12:YR[178]YR[172]12:
9999 MP[178]PV[172]IR[173](1[171]((1[170]IR)[174][171]YR))
40000 [151]53248[170]21,0:[158]ML[170]3:[129]I[178]0[164]21:[151]828[170]I,8[170]I:[130]
40010 [139]DV[179]8[176]DV[177]29[176]DV[178]8[167]40030
40020 A[178][194](828):B[178][194](828[170]DV[171]8):[151]828,B:[151]828[170]DV[171]8,A
40030 A$[178]"PRESENTER":[141]40040:A$[178]"HELLO CONNECT"
40040 [129]J[178]8[164]29:I[178][194](828[170]J[171]8):[139]I[178]14[167][130]
40050 [160]2:[159]2,I,2:[160]2:[139]ST[167]40070
40060 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40090
40070 [130]:[139]A$[178]"PRESENTER"[167][142]
40080 [153]"LOAD":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
40090 A$[178]"HELLO CONNECT":Q$[178][199](34):[151]646,[194](53281):[153]"LOAD":[151]53272,23
40100 [153]"LOADP(null)2048,0:P(null)44,8:P(null)43,1:P(null)56,160:P(null)55,0:CLR:L(null)"Q$A$Q$","I
40110 [153]"P(null)53272,23:RUN:":[151]631,13:[151]632,13:[151]198,2:[128]