home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 164 / 164.d81 / beagle (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  9KB  |  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 [2