home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 164 / 164.d81 / beagle (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1998-01-01  |  8.9 KB  |  254 lines
  1. 100 poke56,136:clr:dv=peek(186):ifdv<8thendv=8
  2. 110 sys57812"tail ii 9000",dv,0:poke780,0:poke781,0:poke782,144:sys65493
  3. 115 sys57812"input 8800",dv,0:poke780,0:poke781,0:poke782,136:sys65493
  4. 120 sys57812"mr.mouse c000",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  5. 130 sys57812"instr 828",dv,0:poke780,0:poke781,60:poke782,3:sys65493
  6. 140 sys57812"tilebox 9a00",dv,0:poke780,0:poke781,0:poke782,154:sys65493
  7. 160 dimw$(200):dv=peek(186):ifdv<8thendv=8
  8. 170 ml=49152:ta=36864:mouse=ml:v=ml+111:wiz=ta+6:wrap=ta+15:pa=ta+2560:at=ml+12
  9. 175 bo=ml+30:syspa+9,2048,0,95:syspa+9,2048,1,105:n=200:in=136*256:
  10. 176 dimm$(12):fori=1to12:readm$(i):next
  11. 180 dimf$(7),en$(53),r$(9),fe$(n),n(n),d(n),d$(n):fori=1to7:readf$(i):next
  12. 182 fori=1to67:readfe$(i),n(i),d(i),d$(i):next
  13. 184 v(1)=1:v(2)=2+n(1):v(3)=1+n(v(2))+v(2)
  14. 185 v(4)=1+v(3)+n(v(3)):v(5)=1+v(4)+n(v(4))
  15. 186 v(6)=1+v(5)+n(v(5)):v(7)=1+v(6)+n(v(6))
  16. 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
  17. 240 sysml+54,"font",dv,2048
  18. 245 syspa+9,2048,0,95:syspa+9,2048,5,105
  19. 250 poke53281,0:poke53280,0:poke53272,19:pokev,143
  20. 260 sysbo,0,39,1,24,105,3+32
  21. 270 sysml:sysml+6
  22. 280 gosub2710
  23. 290 syswiz,1,38,5,17,160,15,1," [204] [197] [199] [193] [204]   [194] [197] [193] [199] [204] [197] "
  24. 300 syswrap,"    [212]his program will generate legal forms from templates on disk.
  25. 310 [158]wrap," atnll you have to do is answer a few simple questions and then get
  26. 320 syswrap," your printer ready. "
  27. 330 sysat,7,15,"[152] [204][207][193][196][211][212][193][210]  [195][207][206][212][201][206][213][197] "
  28. 340 sysml+18,7,30,15,15:sysml+21,30,15:systail+3,15,7,16,21,30,1,12,1,0
  29. 350 ifi%=1then40000
  30. 360 ifi%=0then280
  31. 370 gosub2710
  32. 380 syswiz,2,37,2,22,160,15,1," [198] [207] [210] [205]   [212] [217] [208] [197] "
  33. 390 syswrap,"[160][160][160][160][212]here are six types of forms available on this disk.
  34. 400 [158]wrap," (NULL)lease select the type of form you would like to fill out from "
  35. 410 [158]wrap,"the list below: "
  36. 420 y[178][194](214)[170]2
  37. 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)
  38. 430 [158]at,07,y,a$
  39. 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
  40. 450 [139]i%[178]1[167]280
  41. 460 f[178]i%[171]1:[141]5000
  42. 470 [139]f[178]2[167]d$(sp[170]12)[178]m$([197](d$(sp[170]12)))
  43. 480 [139]f[178]3[167]d$(sp[170]6)[178]m$([197](d$(sp[170]6)))
  44. 790 [141]2710:[158]wiz,1,38,2,23,160,15,1," (NULL) atn chr$ right$ (NULL) chr$ "
  45. 800 [158]wrap,"    (NULL)hat type of printer are you using? (NULL)egal peekeagle needs this "
  46. 810 [158]wrap,"information in order to page properly. "
  47. 820 y[178][194](214)[170]2
  48. 830 [158]at,08,y,"chr$o peekacklet(NULL)ractor asceedletatnuto (NULL)heet asceederlet(NULL)ait ascor valach (NULL)age"
  49. 840 [158]at,08,y[170]4,"(NULL)rint (NULL)o ascile"
  50. 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
  51. 860 [139]i%[178]1[167]370
  52. 870 pt[178]i%
  53. 880 [139]pt[179][177]5[167]920
  54. 890 [158]bo,3,36,20,20,32,0:[158]ml[170]12,3,20,"waitascilename: open":[158]ml[170]51,3,1,20
  55. 900 [139]w$[178]""[167]790
  56. 910 f$[178]w$
  57. 920 [141]2710:[158]wiz,1,38,2,16,160,15,1," (NULL) val atn str$ (NULL)   (NULL) (NULL)   (NULL) (NULL) right$ (NULL) (NULL) "
  58. 930 [158]wrap,"     (NULL)et top of first page and click on (NULL)(NULL)right$(NULL)(NULL) to proceed. "
  59. 940 [158]at,9,12," chr$(NULL) peekatnlen(NULL)  (NULL)(NULL)right$(NULL)(NULL) "
  60. 950 [158]ml[170]18,9,30,12,12:[158]ml[170]21,24,12
  61. 960 [158]tail[170]3,12,9,17,24,30,1,15,1,0
  62. 970 [139]i%[178]1[167]790
  63. 980 [139]i%[178]0[167]960
  64. 990 [141]2710:[158]wiz,1,38,2,8,160,15,1," (NULL)oading (NULL)egal form... "
  65. 1000 [158]wrap,"     (NULL)lease wait... ":[151]53248[170]21,0
  66. 1010 [160]2:[159]2,dv,2,fe$(sp):[161]#2,a$,a$:eof[178]1
  67. 1020 [132]2,w$(eof):eof[178]eof[170]1:[139]st[178]0[167]1020
  68. 1030 [160]2:eof[178]eof[171]1:[151]53248[170]21,1
  69. 1040 [141]2710:[158]wiz,1,38,2,8,160,15,1," (NULL)arsing ascorm... "
  70. 1050 [158]wrap,"     (NULL)eplacing fields with your input. ":[153]"cmd";
  71. 1060 [129]j[178]1[164]6:[153]".";:[129]i[178]1[164]eof
  72. 1080 a$[178]w$(i):[158]828,"\",a$
  73. 1090 x[178][194](251):[139]x[178]0[167]1110
  74. 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)
  75. 1110 [130]i,j
  76. 1120 [141]2710:[158]wiz,1,38,2,8,160,15,1," (NULL)aginating... "
  77. 1130 [158]wrap,"     ascormatting output... ":[141]2620
  78. 1140 [141]2710:[158]wiz,1,38,2,8,160,15,1," (NULL)rinting... "
  79. 1150 [160]2:[159]2,4,7:[160]2:[139]st[167][144]
  80. 1160 [139]pt[179][177]5[167][151]53248[170]21,0:[159]4,4,7:[152]4,
  81. 1170 [139]pt[179][177]5[167][129]i[178]1[164]4:[152]4,:[130]
  82. 1180 [139]pt[178]5[167][151]53248[170]21,0:[159]4,dv,7,f$[170]",s,w"
  83. 1190 l[178]4:[129]i[178]1[164]eo
  84. 1200 [139]pt[178]5[167][152]4,w$(i)" ";:[139]w$(i[170]1)[178]""[167][152]4,[199](13)
  85. 1210 [139]pt[179][177]5[167][152]4,"     "w$(i):l[178]l[170]1
  86. 1220 [139]l[177]56[167][141]1240:l[178]0
  87. 1230 [130]:[160]4:[151]53248[170]21,1:[137]790
  88. 1240 [139]pt[178]2[167][129]j[178]1[164]10:[152]4,:[130]:[142]
  89. 1250 [139]pt[178]3[167][152]4,[199](12);:[142]
  90. 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 "
  91. 1270 [158]wrap,"   (NULL)ress any key... "
  92. 1280 [161]a$:[139]a$[178]""[167]1280
  93. 1290 [158]wiz,1,38,2,8,160,15,1," (NULL)rinting... "
  94. 1300 [129]j[178]1[164]5:[152]4,:[130]:[142]
  95. 1990 [139][200](en$(8),1)[178]"$"[167]en$(8)[178][202](en$(8),2)
  96. 2000 [139][200](en$(9),1)[178]"$"[167]en$(9)[178][202](en$(9),2)
  97. 2010 a[178][197](en$(8))[170][197](en$(9)):[141]2740:en$(10)[178][202](a$,2):[142]
  98. 2015 [131]"mid$anuary","ascebruary","(NULL)arch","atnpril","(NULL)ay","mid$une","mid$uly","atnugust"
  99. 2016 [131]"(NULL)eptember","(NULL)ctober","(NULL)ovember","str$ecember"
  100. 2020 [131]"atnffidavit","(NULL)oan atngreement","(NULL)romissory (NULL)ote"
  101. 2030 [131]"(NULL)ower (NULL)f atnttorney (left$ealth)","(NULL)imited (NULL)ower (NULL)f atnttorney"
  102. 2040 [131]"(NULL)evoke (NULL)ower (NULL)f atnttorney","(NULL)esidential (NULL)ease
  103. 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
  104. 2620 i=1
  105. 2630 iflen(w$(i))<66then2660
  106. 2640 gosub2680:ifw$(i+1)=""thenfork=eo+1toi+2step-1:w$(k)=w$(k-1):next:eo=eo+1
  107. 2650 a$=mid$(w$(i),x+1):w$(i)=left$(w$(i),x-1):w$(i+1)=a$+" "+w$(i+1)
  108. 2660 i=i+1:ifi<eofthen2630
  109. 2670 return
  110. 2680 x=0:j=65
  111. 2690 ifmid$(w$(i),j,1)=" "thenx=j:return
  112. 2700 j=j-1:goto2690
  113. 2710 syspa,0,39,1,24,105,95,14,1
  114. 2720 sysbo,0,39,0,0,160,7:print"[158] [204]egal [194]eagle":return
  115. 2730 sysbo,0,39,1,24,105,3+32:return
  116. 2740 a=int(a*100+.5)/100:a$=str$(a)
  117. 2750 l=len(a$):ifa=int(a)thena$=a$+".00":return
  118. 2760 ifmid$(a$,l-1,1)="."thena$=a$+"0":return
  119. 2770 ifmid$(a$,l-1,1)="."thena$=a$+"0"
  120. 2780 return
  121. 2999 remfield,min,max,default
  122. 3000 data "affidavit.txt",10,0,""
  123. 3010 data"[211]tate/[195]ommonwealth (all caps)",0,0,""
  124. 3020 data"[195]ounty/[194]orough/[208]arish (all caps)",0,0,""
  125. 3021 data"[193]ffiant ([208]erson [211]wearing)",0,0,""
  126. 3022 data"[211]worn fact line #1",0,0,""
  127. 3023 data"[211]worn fact line #2",0,0,""
  128. 3024 data"[211]worn fact line #3",0,0,""
  129. 3025 data"[211]worn fact line #4",0,0,""
  130. 3040 data"[196]ay of month",1,31,"1st"
  131. 3050 data"[205]onth",1,12,"1"
  132. 3060 data"[217]ear",1998,9999,"1998"
  133. 4000 data"secnote.txt",16,0,""
  134. 4010 data"[194]orrower",0,0,""
  135. 4020 data"[204]ender",0,0,""
  136. 4022 data"[204]ender [193]ddress [204]ine 1",0,0,""
  137. 4023 data"[204]ender [193]ddress [204]ine 2",0,0,""
  138. 4024 data"[204]ender [193]ddress [204]ine 3",0,0,""
  139. 4025 data"[204]ender [193]ddress [204]ine 4",0,0,""
  140. 4030 data"[208]rincipal",.01,9999999,""
  141. 4032 data"[193]nnual percentage rate ([193][208][210])",.01,100,""
  142. 4033 data"[206]umber [207]f [205]onthly [201]nstallments",1,360,""
  143. 4036 data"[205]onthly [208]ayment",-1,-1,""
  144. 4040 data"[198]irst [208]ayment [196]ate",1,31,"1st"
  145. 4050 data"[205]onth (enter number)",1,12,"1"
  146. 4060 data"[217]ear",1998,9999,"1998"
  147. 4070 data"[204]ast [208]ayment [196]ay of month",-1,-1,""
  148. 4080 data"[204]ast [208]ayment [205]onth",-1,-1,"1"
  149. 4090 data"[204]ast [208]ayment [217]ear",-1,-1,""
  150. 4100 data"promissory.txt",8,0,""
  151. 4110 data"[193]mount [198]inanced",.01,9999999,""
  152. 4120 data"[198]inance [195]harge ([212]otal of interest)",0,9999999,""
  153. 4122 data"[212]otal [207]f [208]ayments",0,99999999,""
  154. 4123 data"[193]nnual [208]ercentage [210]ate",0,100,""
  155. 4124 data"[196]ay",1,31,""
  156. 4125 data"[205]onth (enter number)",1,12,""
  157. 4130 data"[217]ear",1998,9999,"1998"
  158. 4132 data"[194]orrower's [206]ame",0,0,""
  159. 4200 data"poa health.txt",10,0,""
  160. 4210 data"[199]rantor's name",0,0,""
  161. 4212 data"[195]ity/[195]ounty/[194]orough/[208]arish",0,0,""
  162. 4213 data"[211]tate/[195]ommonwealth",0,0,""
  163. 4220 data"[193]ppointee ([193]ttorney-in-fact)",0,0,""
  164. 4230 data"[193]ppointee's [195]ity/[194]orough/[208]arish",0,0,""
  165. 4235 data"[193]ppointee's [211]tate/[195]ommonwealth",0,0,""
  166. 4240 data"[193]lternate [193]ppointee",0,0,""
  167. 4245 data"[193]lternate's [195]ity/[194]orough/[208]arish",0,0,""
  168. 4250 data"[193]lternate's [211]tate/[195]ommonwealth",0,0,""
  169. 4255 data"[211]tate of notary",-1,-1,"[164][164][164][164][164][164][164][164][164][164][164][164]"
  170. 4300 data"poa spec.txt",12,0,""
  171. 4310 data"[199]rantor's [206]ame",0,0,""
  172. 4312 data"[193]ddress [204]ine 1",0,0,""
  173. 4313 data"[193]ddress [204]ine 2",0,0,""
  174. 4314 data"[193]ddress [204]ine 3",0,0,""
  175. 4320 data"[193]ppointee ([193]ttorney-in-fact)",0,0,""
  176. 4321 data"[193]ddress [204]ine 1",0,0,""
  177. 4322 data"[193]ddress [204]ine 2",0,0,""
  178. 4323 data"[193]ddress [204]ine 3",0,0,""
  179. 4330 data"[193]ppointee's [208]ower #1",0,0,""
  180. 4331 data"[193]ppointee's [208]ower #2 (optional)",0,0,""
  181. 4332 data"[193]ppointee's [208]ower #3 (optional)",0,0,""
  182. 4333 data"[193]ppointee's [208]ower #4 (optional)",0,0,""
  183. 4400 data"poa revoke.txt",5,0,""
  184. 4410 data"[199]rantor's [206]ame",0,0,""
  185. 4412 data"[193]ddress [204]ine 1",0,0,""
  186. 4413 data"[193]ddress [204]ine 2",0,0,""
  187. 4414 data"[193]ddress [204]ine 3",0,0,""
  188. 4420 data"[193]ppointee ([193]ttorney-in-fact)",0,0,""
  189. 5000 gosub2710
  190. 5010 syswiz,1,38,2,22,160,15,1," [196]ata [197]ntry ":sysml+21,2,4
  191. 5020 syswrap,"    [197]nter for respective fields in '"+f$(f)+"' form. [208]ress [210][197][212][213][210][206]
  192. 5030 [158]wrap," to advance or len(NULL)(NULL)(NULL) up/down to change review/edit changes. "
  193. 5035 [158]wrap," (NULL)ress asc1 (NULL)o valxit this screen. "
  194. 5040 y[178][194](214)[170]2:nf[178]n(v(f)):cf[178]1:sp[178]v(f)
  195. 5050 mi[178]n(sp[170]cf):max[178]d(sp[170]cf)
  196. 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)
  197. 5070 [158]box,2,37,y[170]3,y[170]3,32,0
  198. 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
  199. 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
  200. 5085 [141]5200:[139]f%[178]0[167][142]
  201. 5090 d$(sp[170]cf)[178]w$
  202. 5100 [139]f%[178]2[167][141]6000:[137]5050
  203. 5110 [139]f%[178]1[167][141]6100:[137]5050
  204. 5200 [145]f[141]7100,7200,7300,7400,7500,7600,7700:[142]
  205. 6000 cf[178]cf[170]1:[139]cf[177]nf[167]cf[178]1
  206. 6010 [139]n(sp[170]cf)[178][171]1[167]6000
  207. 6020 [142]
  208. 6100 cf[178]cf[171]1:[139]cf[179]1[167]cf[178]nf
  209. 6110 [139]n(sp[170]cf)[178][171]1[167]6100
  210. 6120 [142]
  211. 7100 [139]cf[179]8[167][142]
  212. 7105 [139]cf[178]9[167][139][197](w$)[178]0[167][141]7800
  213. 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]
  214. 7120 [139]cf[178]9[167]w$[178]m$([197](w$))
  215. 7130 [142]
  216. 7200 [139]cf[179]7[167][142]
  217. 7205 [139]cf[178]12[167][139][197](w$)[178]0[167][141]7800
  218. 7207 d$(14[170]sp)[178]d$(11[170]sp)
  219. 7225 [158]box,2,37,y[170]4,21,160,15
  220. 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]
  221. 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$
  222. 7240 [158]at,2,y[170]6,"list(NULL)onthly (NULL)ayment: "[170]d$(sp[170]10)
  223. 7245 a[178][197](d$(sp[170]10))[172]yr:[141]2740:[158]at,2,y[170]7,"(NULL)otal (NULL)ayments:  "[170]a$
  224. 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$
  225. 7252 a[178][197](d$(13[170]sp))
  226. 7270 x[178][197](d$(sp[170]12)):[129]i[178]1[164]yr[171]1
  227. 7272 x[178]x[170]1:[139]x[177]12[167]x[178]1:a[178]a[170]1
  228. 7273 [130]:d$(15[170]sp)[178]m$(x)
  229. 7280 d$(16[170]sp)[178][202]([196](a),2)
  230. 7299 [142]
  231. 7300 [142]
  232. 7400 [142]
  233. 7500 [142]
  234. 7600 [142]
  235. 7700 [142]
  236. 7800 [129]i[178]0[164]12:[139]w$[178]m$(i)[167]w$[178][196](i):a[178]i
  237. 7810 [130]:[139][197](w$)[178]0[167]w$[178]"1"
  238. 7820 [142]
  239. 9997 [144]
  240. 9998 ir[178]i[173]100[173]12:yr[178]yr[172]12:
  241. 9999 mp[178]pv[172]ir[173](1[171]((1[170]ir)[174][171]yr))
  242. 40000 [151]53248[170]21,0:[158]ml[170]3:[129]i[178]0[164]21:[151]828[170]i,8[170]i:[130]
  243. 40010 [139]dv[179]8[176]dv[177]29[176]dv[178]8[167]40030
  244. 40020 a[178][194](828):b[178][194](828[170]dv[171]8):[151]828,b:[151]828[170]dv[171]8,a
  245. 40030 a$[178]"presenter":[141]40040:a$[178]"hello connect"
  246. 40040 [129]j[178]8[164]29:i[178][194](828[170]j[171]8):[139]i[178]14[167][130]
  247. 40050 [160]2:[159]2,i,2:[160]2:[139]st[167]40070
  248. 40060 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40090
  249. 40070 [130]:[139]a$[178]"presenter"[167][142]
  250. 40080 [153]"load":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
  251. 40090 a$[178]"hello connect":q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  252. 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
  253. 40110 [153]"p(NULL)53272,23:run:":[151]631,13:[151]632,13:[151]198,2:[128]
  254.