home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 66 / 066.d81 / inv.main (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  30.9 KB  |  966 lines
  1. 0 gosub60000:goto60100: ** program by ** maurice randall, submitted to loadstar
  2. 1 xt=0:forl=0tolg
  3. 2 if(peek(fs+l)and31)=0then10
  4. 3 if(peek(fs+l)<48)or(peek(fs+l)>57)then10
  5. 4 nextl
  6. 5 forl=lgto0step-1:xt=xt+(peek(fs+l)-48)*10^(lg-l):next
  7. 6 ifxt=0thenxt$="0":goto8
  8. 7 xt$=mid$(str$(xt),2)
  9. 8 iflen(xt$)=lg+1thenreturn
  10. 9 forl=len(xt$)tolg:xt$="0"+xt$:nextl:return
  11. 10 gosub3850
  12. 11 forl=0tolg:pokefs+l,32:next:goto102
  13. 12 ifcc=1thencc=0:return
  14. 13 syswi,11,0,24,27,.,2,0,0:return
  15. 14 gosub3850:forl=1to5:gosub34:co=1:gosub51:next:goto108
  16. 15 gosub3850:forlk=1to10:syswi,13,29,17,39,.,4,1,0:fordl=1to10:next
  17. 16 syswi,13,29,17,39,.,4,9,0:fordl=1to10:next:next:return
  18. 17 gosub3850:forlk=1to10:syswi,19,29,23,39,.,4,1,0:fordl=1to10:next
  19. 18 syswi,19,29,23,39,.,4,9,0:fordl=1to10:next:next:return
  20. 19 gosub3850:forlk=1to10:gosub56:print"                          "
  21. 20 gosub290:next:return
  22. 21 gosub3850:forlk=1to7:syswi,7,29,11,39,.,4,1,0:syswi,13,29,17,39,.,4,1,0
  23. 22 fordl=1to10:next:syswi,7,29,11,39,.,4,9,0:syswi,13,29,17,39,.,4,9,0
  24. 23 next:return
  25. 24 syswi,5,1,9,26,.,16,0,0,1:syswi,12,7,16,26,.,16,0,0,15
  26. 25 syswi,19,7,23,26,.,16,0,0,1:return
  27. 26 poke214,18:print:printspc(7);:return
  28. 27 poke646,1:gosub26:printq$:printspc(7)p$:printspc(7)d$
  29. 28 printspc(7)pr$:printspc(7)x$:return
  30. 34 syswi,fr,fc,tr,tc,.,4,9,0:wait203,64:return:::::::::::::::
  31. 37 poke253,160:poke254,170:return
  32. 38 syswi,4,0,24,27,.,2,0,0:syswi,4,0,10,27,.,4,2,0:syswi,5,1,9,26,.,16,0,0,1
  33. 39 return
  34. 40 print"[157]";:ll=11-le:forl=1toll+1:print" ";:nextl
  35. 41 forl=1toll+1:print"[157]";:nextl:return
  36. 42 q=45      :n=45.34   :ifq=0orn=0thenex=0:ex$=" 0.00":goto44
  37. 43 ex=q*n* 1:ex=ex+.005:ex$=str$(ex):ifex<=0thenex=ex-.01:ex$=str$(ex)
  38. 44 xx=n:gosub60:n$=xx$
  39. 45 forf=1to8:ifmid$(ex$,f,1)="."thenex$=left$(ex$,f+2):ex(g)=val(ex$)
  40. 46 nextf:onpeek(1003)goto48,49
  41. 47 onpeek(1671)and1goto49
  42. 48 nt=nt+ex(g):poke214,255:print:printspc(28)n$:printspc(228)ex$:return
  43. 49 tx=tx+ex(g):poke214,255:print:printspc(28)n$:printspc(228)ex$:return
  44. 50 aa=peek(631)-132:fr=(aa-1)*6+1:fc=29:tr=fr+4:tc=39:fu=4:co=1:ad=.:rv=1
  45. 51 syswi,fr,fc,tr,tc,ad,fu,co,rv:wait203,64:return:::
  46. 52 tx= 1       :nt= 0       :
  47. 53 poke253,182:poke254,148
  48. 54 forl=1topeek(38048):sys53037:ex(l)=     1.00:nextl:return
  49. 55 poke214,0:print:return
  50. 56 poke214,14:print:return
  51. 57 poke198,0:wait198,1:poke995,0:ifpeek(631)<133orpeek(631)>136thenpoke995,1
  52. 58 return
  53. 59 r1=11:r2=11:c1=18:c2=20:gosub65:return
  54. 60 xx$=str$(abs(xx)+.0005):xx$=str$(val(xx$)*(1-((xx<0)*-2)))
  55. 61 forl=1to10:ifmid$(xx$,l,1)="."thenxx$=left$(xx$,l+2)
  56. 62 nextl:ifxx=0thenxx$=" .00"
  57. 63 return
  58. 64 poke251,200:poke252,4:return:
  59. 65 poke1013,rt:poke1014,r1:poke1015,r2:poke1016,c1:poke1017,c2:return
  60. 66 poke253,64:poke254,181:return
  61. 67 syswi,fr,fc,tr,tc,ad,fu,co,rv:return
  62. 68 poke253,0:poke254,160:return
  63. 75 ifpeek(sa)=32thened=0:return
  64. 76 forl=satoea:ifint((peek(l)-48)/10)<>0then79
  65. 77 ifl=sa+2orl=sa+5thened=1:return
  66. 78 nextl:goto82
  67. 79 ifl=sa+2andpeek(l)=47thennextl
  68. 80 ifl=sa+5andpeek(l)=47thennextl
  69. 81 ed=1:return
  70. 82 mh=(val(chr$(peek(sa))))*10+(val(chr$(peek(sa+1))))
  71. 83 ifmh>12ormh<1thened=2:return
  72. 84 dt=(val(chr$(peek(sa+3))))*10+(val(chr$(peek(sa+4))))
  73. 85 yr=(val(chr$(peek(sa+6))))*10+(val(chr$(peek(sa+7))))
  74. 86 ifmh=2andyr/4-(int(yr/4))=0thenmd=29:goto90
  75. 87 ifmh=2thenmd=28:goto90
  76. 88 md=(int((mh+2)/10)+1+mh)/2:ifmd-int(md)=0thenmd=31:goto90
  77. 89 md=30
  78. 90 ifdt>mdordt<1thened=3:return
  79. 91 da$=right$(str$(mh),2)+"/"+right$(str$(dt),2)+"/"+right$(str$(yr),2)
  80. 99 ed=4:return
  81. 102 ifei=1thenei=0:sys52261:gosub27:ifpeek(1006)=1then592
  82. 107 poke646,1:poke214,r1-1:print:printspc(c1);:poke649,1
  83. 108 sys50224
  84. 120 onpeek(1018)goto130,108,126,150
  85. 125 goto108
  86. 126 ifme=1andpeek(631)=169then5000
  87. 127 goto108
  88. 130 onrtgoto60150,537,570,5600,822,13065,14265,15586,16050,15780,570
  89. 150 ifcc=1then14
  90. 152 onrtgoto108,159,159,108,108,108,108,108,16500,108,108
  91. 159 gosub50:wait203,64:me=0
  92. 160 onaagoto562,4300,22000,900
  93. 180 syswi,11,0,24,27,37120,1,0,0
  94. 182 syswi,11,0,24,27,37120,2,0,0:return
  95. 184 syswi,11,0,24,27,37120,8,0,0:return
  96. 200 print"[147]"
  97. 201 fc=29:tc=39:co=9:rv=0
  98. 202 fr=-5:tr=-1:forl=1to4
  99. 203 fr=fr+6:tr=tr+6:fu=4:gosub67:nextl
  100. 204 fc=0:fr=0:tr=3:tc=27:fu=4:co=3:gosub67:return
  101. 210 fk$(1)="  sales  ":fk$(2)="[201][206][214][207][201][195][201][206][199]":fk$(3)="         "
  102. 211 fk$(4)="ck/change":fk$(5)=" default ":fk$(6)="settings "
  103. 212 fk$(7)=" change  ":fk$(8)=" today's ":fk$(9)=" -[196][193][212][197]-  "
  104. 213 fk$(10)=" update  ":fk$(11)="[201][206][214][207][201][195][197] #":fk$(12)="-or quit-":goto260
  105. 214 fk$(1)="         ":fk$(2)=" -[195][200][193][206][199][197]-":fk$(3)=" setting "
  106. 215 fk$(4)=" restore ":fk$(5)=" default ":fk$(6)=" setting "
  107. 216 fk$(7)="         ":fk$(8)=" previous":fk$(9)="   menu  "
  108. 217 fk$(10)="make this":fk$(11)=" setting ":fk$(12)="permanent":goto260
  109. 218 fk$(1)="  start  ":fk$(2)="  -[206][197][215]-  ":fk$(3)=" invoice "
  110. 219 fk$(4)="-[210][197][195][193][204][204]- ":fk$(5)="  saved  ":fk$(6)=" invoice "
  111. 220 fk$(7)="         ":fk$(8)=" -[205][193][201][206]-  ":fk$(9)="  [205][197][206][213]   "
  112. 221 fk$(10)="  print  ":fk$(11)=" -[194][204][193][206][203]- ":fk$(12)=" invoices":goto260
  113. 222 fk$(1)=" company ":fk$(2)="name and ":fk$(3)=" address "
  114. 223 fk$(4)=" items & ":fk$(5)=" tax rate":fk$(6)=" defaults"
  115. 224 fk$(7)="         ":fk$(8)=" -[205][193][201][206]-  ":fk$(9)="  [205][197][206][213]   "
  116. 225 fk$(10)="         ":fk$(11)=" printer ":fk$(12)=" settings":goto260
  117. 226 fk$(1)=" -[208][210][201][206][212]- ":fk$(2)="  this   ":fk$(3)=" invoice "
  118. 227 fk$(4)=" -[211][193][214][197]-  ":fk$(5)=" invoice ":fk$(6)=" to disk "
  119. 228 fk$(7)="         ":fk$(8)=" previous":fk$(9)="   menu  "
  120. 229 fk$(10)="-[195][200][193][206][199][197]- ":fk$(11)="   or    ":fk$(12)=" -[210][197][214][201][197][215]-":goto260
  121. 230 fk$(1)=" toggle  ":fk$(2)="device # ":fk$(3)=" & copies"
  122. 231 fk$(4)=" toggle  ":fk$(5)=" printer ":fk$(6)="selection"
  123. 232 fk$(7)="         ":fk$(8)=" previous":fk$(9)="   menu  "
  124. 233 fk$(10)="customize":fk$(11)=" printer ":fk$(12)=" setting ":goto260
  125. 234 fk$(1)=" -[208][210][201][206][212]- ":fk$(2)="  this   ":fk$(3)=" invoice "
  126. 235 fk$(4)=" -[197][196][201][212]-  ":fk$(5)="  this   ":fk$(6)=" invoice "
  127. 236 fk$(7)=" previous":fk$(8)="  menu   ":fk$(9)="         "
  128. 237 fk$(10)="  print  ":fk$(11)="  -[193][204][204]-  ":fk$(12)=" invoices":goto260
  129. 238 fk$(1)=" -[209][213][201][212]-  ":fk$(2)="   to    ":fk$(3)="  basic  "
  130. 239 fk$(4)=" -[209][213][201][212]-  ":fk$(5)="   to    ":fk$(6)="[204]oad[211][212][193][210] "
  131. 240 fk$(7)=" [210][197][212][213][210][206]  ":fk$(8)="   to    ":fk$(9)=" [208][210][207][199][210][193][205] "
  132. 241 fk$(10)=" update  ":fk$(11)=" invoice ":fk$(12)="   no.   ":goto260
  133. 242 fk$(1)=" -[211][195][210][207][204][204]-":fk$(2)="  items  ":fk$(3)="[194][193][195][203][215][193][210][196] "
  134. 243 fk$(4)=" -[211][195][210][207][204][204]-":fk$(5)="  items  ":fk$(6)=" [198][207][210][215][193][210][196] "
  135. 244 fk$(7)="-[196][197][204][197][212][197]- ":fk$(8)="  this   ":fk$(9)="  item   "
  136. 245 fk$(10)="         ":fk$(11)=" -[205][207][210][197]-  ":fk$(12)="functions":goto260
  137. 250 fk$(1)="  [212][207][212][193][204]  ":fk$(2)=" equals  ":fk$(3)="         "
  138. 251 fk$(4)="-[195][200][193][206][199][197]- ":fk$(5)="customer ":fk$(6)="  info   "
  139. 252 fk$(7)=" -[197][196][201][212]-  ":fk$(8)="  this   ":fk$(9)="  item   "
  140. 253 fk$(10)="-[210][197][212][213][210][206]- ":fk$(11)="   to    ":fk$(12)=" -[197][196][201][212]-  ":goto260
  141. 260 poke646,9:poke214,1:print:printspc(30)fk$(1):printspc(30)fk$(2)
  142. 261 printspc(30)fk$(3)
  143. 262 poke214,7:print:printspc(30)fk$(4):printspc(30)fk$(5)
  144. 263 printspc(30)fk$(6)
  145. 264 poke214,13:print:printspc(30)fk$(7):printspc(30)fk$(8)
  146. 265 printspc(30)fk$(9)
  147. 266 poke214,19:print:printspc(30)fk$(10):printspc(30)fk$(11)
  148. 267 printspc(30)fk$(12):return
  149. 270 gosub55:print"[159][205][193][201][206][160][205][197][206][213]-[155] press desired
  150. 271 [153]"  function key":[142]
  151. 272 [141]55:[153]"openright$(NULL)(NULL)(NULL)right$lenvalclose(NULL)val(NULL)(NULL)-":[142]
  152. 274 [141]55:[153]"open(NULL)vallenatn(NULL)(NULL)close(NULL)atn(NULL)valstr$closeright$(NULL)(NULL)(NULL)right$lenval-":[142]
  153. 276 [141]55:[153]"openright$(NULL)(NULL)(NULL)right$lenright$(NULL)chr$-  sys"mc"cmd waitcont in memory
  154. 277 print"[158]shift \ [146][155]toggles invoices":return
  155. 278 gosub55:print"[159][195][207][205][208][193][206][217][160][206][193][205][197]/[193][196][196][210][197][211][211]-
  156. 279 [153]" sys (NULL) waitlist for sample printout":[142]
  157. 280 [151]214,11:[153]
  158. 282 [153]"  qty:":[153]"part#:":[153]"descr:"
  159. 283 [153]"price:":[153]"txble:":[142]
  160. 284 [141]55:[153]"openstr$valascatn(NULL)(NULL)(NULL)close(NULL)val(NULL)(NULL)right$(NULL)chr$(NULL)-":[142]
  161. 286 [141]55:[153]"openright$(NULL)val(NULL)(NULL)/(NULL)atn(NULL)close(NULL)atn(NULL)valclosestr$valascatn(NULL)(NULL)(NULL)(NULL)-":[142]
  162. 288 [141]55:[153]"open(NULL)(NULL)right$(NULL)(NULL)val(NULL)close(NULL)val(NULL)(NULL)right$(NULL)chr$(NULL)-":[142]
  163. 290 [141]56:[153]"open  -select a function key- ":[142]
  164. 291 [141]56:[153]"                          ":[142]
  165. 292 [141]55:[153]"openlenleft$atn(NULL)chr$val (NULL)(NULL)right$(NULL)(NULL)val(NULL)close(NULL)val(NULL)(NULL)right$(NULL)chr$(NULL)-":[142]
  166. 294 [141]55:[153]"open(NULL)(NULL)right$(NULL)closeorclose(NULL)val(NULL)(NULL)(NULL)(NULL)-":[142]
  167. 300 [139]ft[178]1[167]315
  168. 301 ft[178]1:[141]9500
  169. 302 [159]15,8,15
  170. 303 [159]2,8,2,"0:last inv#,s,r"
  171. 304 [132]15,en:[139]en[177]0[167][160]2:[160]15:[141]810:[137]308
  172. 305 [132]2,in$:in[178][197](in$)[170]1:[160]2:[160]15:[139]in[178]100000[167]in[178]0
  173. 306 lg[178]4:xt[178]in:[141]7:in$[178]xt$:[137]315
  174. 308 in$[178]xt$:xt$[178][196](in[171]1):[139]in[178]0[167]xt$[178]"99999"
  175. 310 [141]850:[139][194](1002)[178]1[167][159]2,8,2,"last inv#,s,w":[152]2,xt$:[160]2
  176. 315 [141]200:[141]270:[141]210
  177. 320 [151]214,20:[153]:[151]646,7:[153][166]5)dd$
  178. 360 [141]57:[139][194](995)[167][141]19:[137]360
  179. 362 [141]50:[145]aa[137]400,12400,380,61000
  180. 380 f$[178]"":[137]60100
  181. 400 [141]200:[141]272:[141]218
  182. 410 [141]57:[139][194](995)[167][141]19:[137]410
  183. 412 [141]50:[145]aa[137]500,600,300,5500
  184. 500 [141]200:[141]276:[141]226
  185. 501 g[178]1:rp[178]1:[141]2400
  186. 502 [129]l[178]1[164]30:ex(l)[178]0:[130]l:tx[178]0:nt[178]0
  187. 503 [158]51632:[151]38048,0:[151]38049,1
  188. 504 [151]178,22:[151]179,151:[151]1006,0:[151]180,191:[151]181,148
  189. 525 [158]wi,4,0,10,27,.,4,2,0:r1[178]5:r2[178]9:c1[178]1:c2[178]26:rt[178]2:[141]65
  190. 526 [151]214,3:[153]:[153][166]2)"    sold to    ":[141]24:i[178]1:[141]20000
  191. 535 me[178]1:[139]xp[178]1[167]xp[178]0:[137]5000
  192. 536 [137]102
  193. 537 [141]12:[158]51889:[139][194](1005)[178]1[167]547
  194. 540 [151]214,4:[153]:[153][166]1)"lenatn(NULL)left$ (NULL)atn(NULL)val"
  195. 547 [139]rp[178]3[167]980
  196. 549 tr[178]10:me[178]1
  197. 550 fr[178]tr[170]1:fc[178]0:tr[178]fr[170]6:tc[178]27:co[178]7:[141]67:[151]214,10:[153]
  198. 551 [153][166]2)"sys previous item#     ":r1[178]12:r2[178]16:c1[178]7:c2[178]26:[141]65
  199. 552 fr[178]tr[170]1:tr[178]fr[170]6:co[178]7:[141]67:[151]214,17:[153]
  200. 553 [153][166]2)"sys  current item# 01 "
  201. 554 r1[178]19:r2[178]23:c1[178]7:c2[178]26:[141]65
  202. 555 [141]280
  203. 556 [158]53220:[158]wi,19,1,23,6,.,16,0,0,7:[141]24
  204. 560 rt[178]3:[137]102
  205. 562 [139][194](38048)[178]0[167][141]34:[141]3850:[137]596
  206. 563 [141]180:[141]3900:[139]po[178]1[167]i[178]2:[141]20000:[145][194](40934)[170]1[137]1000,565
  207. 564 [141]34:[141]184:[137]578
  208. 565 di[178]1:[137]1000
  209. 570 [139][194](1007)[175]15[177]0[167][141]3850:[137]580
  210. 571 [151]646,0:[141]42:[151]1003,0:[151]646,1:[158]51520:[139]rt[178]11[167]4220
  211. 574 g[178][194](38049)
  212. 575 [139][194](1006)[178]1[167]593
  213. 576 [151]646,1:[158]53220:[141]24
  214. 578 [141]26:me[178]1:[137]108
  215. 580 [139][194](1007)[175]1[167]l[178]18:[137]585
  216. 581 [139][194](1007)[175]2[167]l[178]19:[137]585
  217. 583 [139][194](1007)[175]8[167]l[178]21:[137]585
  218. 585 [151]646,1:[151]214,l:[153]:[153][166]7);:[137]108
  219. 592 [158]wi,19,7,23,26,.,2,0,0
  220. 593 [151]214,18:[153]:[153][166]10)"(NULL)aximum no. of":[153][166]13)"30 items
  221. 594 printspc(9)"has been reached":printspc(10)"[208][210][197][211][211] [160][196][197][211][201][210][197][196]
  222. 595 [153][166]11)"asc(NULL)(NULL)len(NULL)right$(NULL)(NULL)close(NULL)val(NULL)":[137]800
  223. 596 cp[178][194](214):[141]180:[141]20161:[141]20124:i2[178]4:i3[178]14:i4[178]4:[141]20010
  224. 597 [141]57:[141]184:[151]646,1
  225. 598 [139]cp[179]18[167][151]214,4:[153]:[153][166]1):[137]108
  226. 599 [141]26:[141]24:me[178]1:[137]108
  227. 600 [141]200:[141]274:[141]234:[141]850:[139][194](1002)[178]1[167]604
  228. 601 [141]3845:i[178]3:[141]20000:[153][166]6)"list-left$right$(NULL) atn(NULL)(NULL) (NULL)val(NULL)-on
  229. 602 gosub57:goto400
  230. 604 m=0:sp=1225
  231. 605 syswi,4,0,19,27,.,18,0,0,7
  232. 610 open15,8,15
  233. 612 forli=1to15
  234. 613 poke214,22:print:print" [204]ooking for saved invoices[145]"
  235. 614 open5,8,5,"0:inv.save"+str$(li)+",s,r"
  236. 616 input#15,en:ifen>0thenclose5:gosub632:next:goto640
  237. 618 ifen=0thengosub636:m=m+1
  238. 622 gosub632:close5:next:goto640
  239. 632 poke214,22:print:print"                           [145]":return
  240. 636 poke252,int(sp/256):poke251,sp-peek(252)*256:sys52856:sp=sp+40
  241. 637 poke828+m,li:return
  242. 640 close15:sys65511:ifm=0then676
  243. 642 poke214,22:print:print" [213]se 'cursor keys' to":print"   select invoice [145]"
  244. 643 syswi,5,1,19,26,37120,1,0,0
  245. 644 sp=1224:li=0:poke251,200:poke252,4:sys52828:goto650
  246. 645 poke252,int(sp/256):poke251,sp-(peek(252)*256):sys52828:goto650
  247. 646 ifsp<1224then644
  248. 647 ifsp>1224+(m-1)*40thensp=sp-40:li=li-1:goto645
  249. 648 poke252,int(sp/256):poke251,sp-(peek(252)*256):sys52828
  250. 650 gosub57
  251. 652 ifpeek(631)=17thensys52842:sp=sp+40:li=li+1:goto647
  252. 653 ifpeek(631)=145thensys52842:sp=sp-40:li=li-1:goto646
  253. 654 ifpeek(995)thengosub3850:goto650
  254. 656 gosub50:onaagoto4700,4750,400,4800
  255. 676 gosub3845
  256. 678 gosub182:i=2:gosub20020
  257. 684 gosub57:ifpeek(995)thengosub15:goto684
  258. 686 gosub50:onaagoto3804,3804,400,3804
  259. 795 gosub180:gosub3900:ifpo=1theni=2:gosub20000:goto1000
  260. 796 gosub34:gosub184
  261. 800 gosub3840:rp=2:gosub57:ifpeek(631)=169then5000
  262. 802 ifpeek(995)then800
  263. 804 gosub50:onaagoto795,4300,22000,900
  264. 810 print"[147]":poke214,7:print:poke646,15
  265. 812 printspc(6)"[212]he starting invoice number
  266. 813 [153][166]6)"is not listed on this disk.
  267. 814 printspc(8)"[208]lease enter the desired
  268. 815 [153][166]8)"number in the box below.
  269. 816 print:printspc(6)"([206]umerical characters only)
  270. 817 [153]:[153][166]11)"00000 thru 99999"
  271. 818 [158]wi,16,16,18,22,.,4,3,0:[158]wi,17,17,17,21,.,16,0,0,1
  272. 820 rt[178]5:r1[178]17:r2[178]17:c1[178]17:c2[178]21:[141]65:[151]646,1:[137]102
  273. 822 fs[178]1721:lg[178]4:[141]1:in$[178]xt$:in[178]xt
  274. 824 [141]850:[139][194](1002)[178]1[167][159]15,8,15,"s0:last inv#":[160]15
  275. 825 [142]
  276. 850 [159]15,8,15:[159]5,8,5,"#"
  277. 855 [152]15,"u1";5;0;18;0:[152]15,"b-p";5;144
  278. 860 nm$[178]"":[129]l[178]1[164]8:[161]#5,hn$:[139]hn$[178]""[167]hn$[178][199](0)
  279. 865 nm$[178]nm$[170]hn$:[130]:[151]1002,0:[139]nm$[179][177]"loadstar"[167][151]1002,1
  280. 870 [160]5:[160]15:[158]65511:[142]
  281. 900 [139][194](214)[179]18[167][141]3850:[141]34:[137]108
  282. 901 [141]34:[141]242
  283. 910 [158]wi,19,7,23,26,37120,1,0,0
  284. 918 [158]52005:[158]52063:[141]24
  285. 920 [141]57:[139][194](995)[167][141]17:[137]920
  286. 922 [141]50:[145]aa[137]4100,4100,4170,950
  287. 950 [141]34:[141]250
  288. 970 [141]57:[139][194](995)[167][141]17:[137]970
  289. 972 [141]50:[145]aa[137]4000,975,4200,980
  290. 973 [137]970
  291. 975 cc[178]1:r1[178]5:r2[178]9:c1[178]1:c2[178]26:rt[178]2:[141]65:rp[178]3:[137]102
  292. 980 [141]34:[141]201:[141]226
  293. 985 [158]52261
  294. 987 rt[178]3:r1[178]19:r2[178]23:c1[178]7:c2[178]26:[141]65:[139]rp[178]4[167]576
  295. 988 [158]wi,19,7,23,26,37120,8,0,0
  296. 989 [139][194](38048)[178]30[167]rp[178]2
  297. 990 [151]646,1:[145]rp[137]578,800,578
  298. 1000 [141]3650:[141]3670:g[178]1
  299. 1003 [159]nf,dn,se
  300. 1004 [152]nf,pg$;
  301. 1010 [139]bi[178]1[167][141]5700
  302. 1020 [158]51805
  303. 1022 [152]nf,l$;:[157]nf
  304. 1025 [151]251,201:[151]252,4
  305. 1027 [139]bi[178]0[167]1040
  306. 1030 [153]" sold to:                                    ";
  307. 1031 [153]"date:           invoice:"
  308. 1032 [129]l[178]1[164]4:[153][199](10);:[130]l:[137]1110
  309. 1040 [153]"sold to:  ";:[158]51488:[153]"       date:"da$"  invoice:"in$
  310. 1042 [153]"          ";:[151]251,241:[158]51488:[153]
  311. 1043 [153]"          ";:[151]251,25:[151]252,5:[158]51488:[153]
  312. 1044 [153]"          ";:[151]251,65:[158]51488:[153]
  313. 1045 [153]"          ";:[151]251,105:[158]51488:[153]
  314. 1110 [153]"-qty-----part no.-----------description-------";
  315. 1120 [153]"------------net-------------ext---"
  316. 1130 [139]bi[178]1[167]1210
  317. 1140 b[178]b[170]1:b4[178](b[171]1)[172]180[170]38079:b3[178](b[171]1)[172]590[170]38678
  318. 1150 [151]252,[181](b3[173]256):[151]251,b3[171][194](252)[172]256
  319. 1160 [151]254,[181](b4[173]256):[151]253,b4[171][194](254)[172]256
  320. 1165 [145]cn[137]1170,1175,1180
  321. 1170 [151]996,ni:sc[178]ni:[137]1200
  322. 1175 [145]b[137]1177,1178
  323. 1177 [151]996,10:sc[178]10:[137]1200
  324. 1178 [151]996,ni[171]10:sc[178]ni[171]10:[137]1200
  325. 1180 [145]b[137]1182,1182,1183
  326. 1182 [151]996,10:sc[178]10:[137]1200
  327. 1183 [151]996,ni[171]20:sc[178]ni[171]20:[137]1200
  328. 1200 [158]51665
  329. 1210 [129]l[178]1[164]14[171]sc:[153][199](10);:[130]l
  330. 1250 [139]bi[178]0[167]2010
  331. 1260 [153]"taxable               *non-taxable               ";
  332. 1261 [153]"tax           total":[137]2050
  333. 2010 [153]"  taxable ";:xx[178]tx(g):[141]60:[153]xx$;
  334. 2014 [153]"  *non-taxable ";:xx[178]nt(g):[141]60:[153]xx$;
  335. 2016 [139]xr[178]0[167]xx[178]0:[137]2022
  336. 2018 [139]tx(g)[178]0[167]xx[178]0:[137]2022
  337. 2019 xx[178]tx(g)[172]xr[170]((1[171]((tx(g)[179]0)[172][171]2))[172].005):xx$[178][196](xx):[129]l[178]1[164]5
  338. 2020 [139][202](xx$,l,1)[178]"."[167]xx$[178][200](xx$,l[170]2):xx[178][197](xx$)
  339. 2021 [130]l
  340. 2022 [141]60:[153]"  tax ";:[153]xx$;
  341. 2026 xx[178]tx(g)[170]nt(g)[170]xx:[153]"  total $ ";:[141]60:[153]xx$
  342. 2040 [139]ff[178]1[167]2060
  343. 2050 [129]l[178]1[164]9:[152]nf,[199](10);:[130]l:[152]nf
  344. 2055 [145]ff[170]1[137]2100,2100,2070
  345. 2060 [152]nf,ff$;:[139]rp[178]6[167]2100
  346. 2061 [139]di[167]2100
  347. 2062 [139]b[179]cn[167]2100
  348. 2063 [152]nf,oo$:[137]2100
  349. 2070 [139]bi[178]1[167]2100
  350. 2072 [139]rp[178]6[167]2100
  351. 2073 [139]b[179]cn[167]2100
  352. 2074 [139]di[167]2100
  353. 2075 [129]l[178]1[164][194](40956)[171]1:[152]nf,[199](10);:[130]l:[152]nf
  354. 2080 [160]nf
  355. 2100 [139][194](197)[178]60[167][160]nf:[159]nf,dn,se:[152]nf:[160]nf:bi[178]0:di[178]0:[137]18100
  356. 2101 [160]nf:[139]bi[178]1[167]2105
  357. 2102 [139]di[177]0[167]2360
  358. 2103 [160]nf:[139]b[179]cn[167]in[178]in[170]1:[139]in[178]100000[167]in[178]0
  359. 2104 [139]b[179]cn[167]g[178]g[170]1:lg[178]4:xt[178]in:[141]7:in$[178]xt$:[137]1003
  360. 2105 [139]bi[178]1[167]nc[178]nc[171]1:[139]nc[177]0[167]1003
  361. 2120 [139]bi[178]1[167]2260
  362. 2130 [141]3600
  363. 2260 a[178]1:ta[178]0:tt[178]0
  364. 2262 [129]l[178]1[164]3:tx(l)[178]0:nt(l)[178]0:[130]l
  365. 2265 [139][194](40933)[167]2270
  366. 2266 [137]2285
  367. 2270 [151]198,0:[141]3000
  368. 2285 [139]bi[178]1[167]bi[178]0:[137]400
  369. 2340 [139]rp[178]6[167]4835
  370. 2345 [139]rp[178]7[167]400
  371. 2350 [151]198,0:[137]500
  372. 2360 [139]di[178]1[167]di[178]2:b[178]b[171]1:[137]1003
  373. 2362 di[178]1:[139]b[178]cn[167]di[178]0
  374. 2364 [137]2103
  375. 2400 [129]l[178]1[164]3:tx(l)[178]0:nt(l)[178]0:ta(l)[178]0:tt(l)[178]0:[130]l:[142]
  376. 3000 [139]bi[178]1[167][142]
  377. 3001 [139]rp[178]6[167][142]
  378. 3005 [153]"load":[151]214,10:[153]:[153][166]10)"(NULL)ear off invoice..."
  379. 3006 [153]:[153][166]10)"...then, hit any key"
  380. 3010 [146]198,1
  381. 3015 [139]rf$[178]""[167]3100
  382. 3020 [159]nf,dn,se:[152]nf,rf$;:[160]nf:[142]
  383. 3100 [159]nf,dn,se:[129]l[178]1[164][194](40956):[152]nf,rl$;:[130]:[160]nf:[142]
  384. 3600 [141]850:[139][194](1002)[178]1[167]3605
  385. 3601 in[178]in[170]1:[139]in[178]100000[167]in[178]0
  386. 3602 lg[178]4:xt[178]in:[141]7:in$[178]xt$:[142]
  387. 3605 [159]15,8,15,"s0:last inv#":[160]15:[159]5,8,5,"0:last inv#,s,w"
  388. 3610 [152]5,in$:[160]5:in[178]in[170]1:[139]in[178]100000[167]in[178]0
  389. 3611 lg[178]4:xt[178]in:[141]7:in$[178]xt$:[142]
  390. 3650 ni[178][194](38048):b[178]0
  391. 3655 [139]ni[179]11[167]cn[178]1:[142]
  392. 3660 [139]ni[179]21[167]cn[178]2:[142]
  393. 3665 [139]ni[179]31[167]cn[178]3:[142]
  394. 3670 [129]l[178]1[164]3:[129]m[178]1[164]10:tm[178][194]((38619[170]59[172]((l[171]1)[172]10[170]m))[170]56)[175]1:[139]tm[178]1[167]3685
  395. 3680 nt(l)[178]nt(l)[170]ex(((l[171]1)[172]10)[170]m):[137]3690
  396. 3685 tx(l)[178]tx(l)[170]ex(((l[171]1)[172]10)[170]m)
  397. 3690 [130]:[130]:[142]
  398. 3804 [141]34:[141]15:[137]684
  399. 3840 [129]l[178]1[164]2:[141]3850:[130]:[142]
  400. 3845 [129]l[178]1[164]3:[141]3850:[130]:[142]
  401. 3850 s[178]54272
  402. 3855 [151]s,0:[151]s[170]1,16:[151]s[170]5,24:[151]s[170]22,104:[151]s[170]23,2:[151]s[170]24,31
  403. 3860 [151]s[170]4,32[170]1
  404. 3865 [129]l1[178]1[164]50:[130]
  405. 3875 [151]s[170]4,0:[151]s[170]24,0
  406. 3880 [142]
  407. 3900 po[178]0:lb[178][194](768):hb[178][194](769)
  408. 3915 [151]768,[194](812):[151]769,[194](813):[141]182
  409. 3920 [151]144,0:[151]214,15:[153]:[153]"open lenleft$vallen(NULL)close(NULL)(NULL)right$(NULL)lenleft$close(NULL)(NULL)close(NULL)(NULL)right$(NULL)(NULL)val(NULL)"
  410. 3925 [160]nf:[159]nf,dn,se:[152]nf,"";
  411. 3930 [151]214,15:[153]:[153]"                        "
  412. 3935 [139][194](144)[175]128[178]128[167]3945
  413. 3940 [151]768,lb:[151]769,hb:[160]nf:po[178]1:[141]182:[142]
  414. 3945 [151]768,lb:[151]769,hb
  415. 3950 [129]l[178]1[164]3:[141]3850:[130]
  416. 3951 [151]198,0:[151]214,13:[153]:[153]"open  lenleft$vallen(NULL)closeright$ascclose(NULL)(NULL)right$(NULL)(NULL)val(NULL)
  417. 3952 print"   is[160][213][206][200][207][207][203][197][196] or
  418. 3953 [153]"   (NULL)(NULL)right$(NULL)lenleft$valstr$close(NULL)ascasc...
  419. 3955 print:print"  [212]hen hit [158]   space bar   [146]":print"[159]   to continue----
  420. 3960 [153]:[153]"  left$it any other key"[199](13)"   to abort function
  421. 3970 gosub57:ifpeek(197)=60then3915
  422. 3974 poke768,lb:poke769,hb:gosub182:return
  423. 4000 gosub34
  424. 4001 xx=tx+nt:ifxx=0thenxx$="  .00    ":goto4006
  425. 4002 xx=nt+tx*(1+xr)
  426. 4004 xx=xx+.005:ifxx<=0thenxx=xx-.01
  427. 4005 gosub60:xx$=xx$+mid$("        ",len(xx$))
  428. 4006 poke214,1:print:printspc(30)"[159]  [212][207][212][193][204]  ":printspc(30)" equals  "
  429. 4010 printspc(30)"";xx$
  430. 4012 goto970
  431. 4100 onaagoto4120,4150
  432. 4120 ifpeek(38049)=1thengosub3850:goto4130
  433. 4122 sys51781
  434. 4124 poke38049,peek(38049)-1
  435. 4130 gosub34:goto920
  436. 4150 ifpeek(38049)=peek(38048)+1thengosub3850:goto4130
  437. 4155 poke38049,peek(38049)+1
  438. 4160 sys51794:ifpeek(38049)=peek(38048)+2thensys52022
  439. 4164 gosub34:goto920
  440. 4170 ifpeek(38049)>peek(38048)thengosub34:gosub3850:goto920
  441. 4180 sys52375:gosub34
  442. 4185 ifpeek(1006)=1thenrp=4:poke1006,0
  443. 4187 g=peek(38049)
  444. 4190 poke646,0:gosub42:poke1003,0:poke3302,32
  445. 4191 forl=gtopeek(38048)+1:ex(l)=ex(l+1):nextl:g=peek(38048)+1
  446. 4192 goto920
  447. 4200 ifpeek(38049)>peek(38048)thengosub3850:goto4240
  448. 4210 gosub26:rt=11:poke646,1:n1=peek(38049)-1:gosub18200
  449. 4212 g=n1+1:onpeek(1951)and1goto4214
  450. 4213 nt=nt-ex(g):ex(g)=0:goto108
  451. 4214 tx=tx-ex(g):ex(g)=0:goto108
  452. 4220 poke38048,peek(38048)-1:n1=peek(38048):gosub18200
  453. 4240 gosub34:goto980
  454. 4300 gosub180
  455. 4301 ifpeek(214)<18thengosub3850:goto4320
  456. 4302 ifpeek(1005)=0thengosub3850:goto4330
  457. 4303 goto4340
  458. 4320 gosub56:print"[158]  [217]ou must hit  [210][197][212][213][210][206] [146]
  459. 4321 [153]" on the fifth line, first."
  460. 4322 [153]:[153]"list  left$it any key to continue":[151]646,1
  461. 4323 [141]57:[141]184:[141]34:[151]214,4:[153]:[153][166]1):[137]108
  462. 4330 [141]56:[153]"sys    atnn invoice without":[153]"     a customer name
  463. 4331 print"     cannot be saved.":print"[155]  [200]it any key to continue
  464. 4333 [141]57:[141]184:[141]34:[141]24:[151]646,1
  465. 4334 [139][194](38048)[178]30[167]800
  466. 4335 [141]26:me[178]1:[137]108
  467. 4340 [151]214,255:[153]:[153][166]28)"         ":[153][166]228)"         "
  468. 4343 [151]646,0:[151]214,255:[153]:[153][166]28)[196](tx):[153][166]228)[196](nt)
  469. 4344 [139]mq[167][142]
  470. 4346 [141]850:[139][194](1002)[178]1[167]4352
  471. 4347 [141]182:[141]3845:i[178]3:[141]20000:[141]34
  472. 4348 [153][166]6)"list-left$right$(NULL) atn(NULL)(NULL) (NULL)val(NULL)-on
  473. 4349 poke646,1:goto4333
  474. 4352 open15,8,15
  475. 4354 forl=1to15
  476. 4358 open5,8,5,"0:inv.save"+str$(l)+",s,r"
  477. 4362 input#15,en:ifen=0thenclose5:nextl:close15:goto4375
  478. 4366 ifen=62thenclose5:close15:goto4470
  479. 4370 close5:nextl:close15
  480. 4375 syswi,7,29,11,39,.,4,9,0:i=4:gosub3845:gosub20000:goto4333
  481. 4470 gosub56:print"[158]   saving invoice...":open5,8,5,"0:inv.save"+str$(l)+",s,w"
  482. 4478 sys52672:close5:sys65511:goto500
  483. 4500 forpo=2to5:poke2080+po-1,asc(mid$(nn$,po,1)):nextpo:return
  484. 4600 nn$="0000"
  485. 4610 forpo=1to4:poke2080+po,asc(mid$(nn$,po,1)):nextpo:return
  486. 4700 ifm=0then3804
  487. 4710 gosub38
  488. 4718 gosub20090
  489. 4720 open5,8,5,"0:inv.save"+str$(peek(828+li))+",s,r"
  490. 4724 sys51632:sys52875:close5:sys65511
  491. 4726 ifpeek(38048)=0then4735
  492. 4727 gosub180:gosub3900:ifpo=0then400
  493. 4728 open15,8,15,"s0:inv.save"+str$(peek(828+li)):close15
  494. 4729 gosub52
  495. 4730 i=2:gosub20000:rp=7:ifpeek(40934)=1thendi=1
  496. 4731 goto1000
  497. 4735 syswi,1,29,5,39,.,4,9,0
  498. 4736 gosub3845:i=5:gosub20000:i=6:gosub20000
  499. 4743 gosub57:ifpeek(631)=134then4750
  500. 4744 ifpeek(631)=135then4746
  501. 4745 gosub21:goto4743
  502. 4746 syswi,4,0,24,27,.,18,0,0,7
  503. 4747 syswi,5,1,19,26,37120,8,0,0:goto642
  504. 4750 ifm=0then3804
  505. 4752 syswi,4,0,24,27,.,2,0,0:syswi,4,0,10,27,.,4,2,0:gosub24:gosub20090
  506. 4760 open5,8,5,"0:inv.save"+str$(peek(828+li))+",s,r"
  507. 4762 sys51632:sys52875:close5:sys65511
  508. 4764 open15,8,15,"s0:inv.save"+str$(peek(828+li)):close15
  509. 4765 ifpeek(38048)>0thengosub52
  510. 4766 g=1:rp=1:gosub2400:poke1006,0:ifpeek(38048)=30thenpoke1006,1
  511. 4767 poke38049,peek(38048)+1:gosub276:gosub226
  512. 4770 n1=peek(38048):gosub18200
  513. 4775 syswi,7,29,11,39,.,4,9,0
  514. 4776 gosub182:gosub24
  515. 4780 fu=4:ei=1:poke1005,1:poke214,3:print:printspc(2)"    sold to    ":goto549
  516. 4800 ifm=0then3804
  517. 4801 ph=m:pl=0:rp=6
  518. 4810 gosub38
  519. 4820 open5,8,5,"0:inv.save"+str$(peek(828+pl))+",s,r"
  520. 4824 sys51632:sys52875:close5:sys65511
  521. 4826 ifpeek(38048)=0then4835
  522. 4827 gosub180:gosub3900:ifpo=0then400
  523. 4830 open15,8,15,"s0:inv.save"+str$(peek(828+pl)):close15
  524. 4831 gosub52
  525. 4832 i=2:gosub20000:i=1:gosub20020:ifpeek(40934)=1thendi=1
  526. 4833 goto1000
  527. 4835 pl=pl+1:ifpl=phthen400
  528. 4840 goto4820
  529. 5000 sys51889:ifpeek(1005)=0thenac=0:goto5200
  530. 5155 ifj1=0thengosub68:j1=1:ao=1:goto5160
  531. 5156 ifj2=0thengosub37:j2=1:ao=2:goto5160
  532. 5157 ifj3=0thengosub66:j3=1:ao=0:goto5160
  533. 5158 gosub3840:goto108
  534. 5160 mc=mc+1:gosub5300
  535. 5180 mq=1:gosub4340:mq=0:sys51618:gosub64:sys53128
  536. 5182 sys51889:sys51935:gosub182:goto501
  537. 5200 ac=ac+1:ifac=4then5158
  538. 5215 onaogoto5230,5240
  539. 5220 ao=1:ifj1=1thengosub68:j1=0:goto5260
  540. 5225 goto5200
  541. 5230 ao=2:ifj2=1thengosub37:j2=0:goto5260
  542. 5235 goto5200
  543. 5240 ao=0:ifj3=1thengosub66:j3=0:goto5260
  544. 5245 goto5200
  545. 5260 mc=mc-1:gosub5300
  546. 5280 gosub64:sys53169:sys51970:goto4765
  547. 5300 poke214,0:print:printspc(13)"[158]"mc:return
  548. 5500 gosub291
  549. 5505 poke646,15:poke214,3:print:print"  [197]nter number of blank":bn=0
  550. 5510 print" invoices desired..."
  551. 5520 print"   ...from 01-99"
  552. 5525 print"  [197]nter 00 to abort"
  553. 5530 syswi,8,7,10,10,.,4,3,0:syswi,9,8,9,9,.,16,0,0,1
  554. 5540 rt=4:r1=9:r2=9:c1=8:c2=9:gosub65:goto102
  555. 5600 fs=1392:lg=1:gosub1:nc=xt:ifxt=0then400
  556. 5635 poke214,8:print:printspc(11)"[159][208][210][201][206][212][201][206][199] #"
  557. 5637 gosub3900:ifpo=0then400
  558. 5640 i=1:gosub20020
  559. 5650 sc=1:bi=1:rp=5:goto1003
  560. 5700 bn=bn+1:poke214,8:print:printspc(23)"      "
  561. 5710 poke214,8:print:printspc(23)""bn
  562. 5720 return
  563. 9500 gosub10000:ifen<>63thengosub11000:goto9520
  564. 9515 d(0)=1
  565. 9520 gosub10020:ifen<>63thengosub11010:goto9540
  566. 9530 d(1)=1
  567. 9540 gosub10050:ifen<>63thengosub11200:goto9570
  568. 9550 d(2)=1
  569. 9570 ifd(0)=1thensys49906
  570. 9580 ifd(1)=1thensys49986:fs=40906:lg=3:gosub1:xr=xt/10000
  571. 9590 ifd(2)=1thensys50030:onpeek(40929)+1gosub11200,11100,11300
  572. 9700 return
  573. 10000 d(0)=0:open15,8,15,"r0:inv.name=inv.name":input#15,en:close15:return
  574. 10020 d(1)=0:open15,8,15,"r0:inv.item=inv.item":input#15,en:close15:return
  575. 10050 d(2)=0:open15,8,15,"r0:inv.prnt=inv.prnt":input#15,en:close15:return
  576. 11000 poke214,6:print:poke646,0
  577. 11001 restore:forh=0to6:readhl$(h):next
  578. 11002 syswi,5,0,13,27,.,18,0,0,0
  579. 11003 print" "hl$(0):print" "hl$(4):print" "hl$(1)qo$hl$(2):print" "hl$(5)
  580. 11004 print" "hl$(3)qo$:print" "hl$(6)
  581. 11008 sys51349:return
  582. 11010 xr=val(xr$)
  583. 11020 poke214,6:print:syswi,5,0,13,27,.,18,0,0,0:poke646,0:gosub282
  584. 11021 poke214,6:print
  585. 11022 printspc(7)q$:printspc(7)p$:printspc(7)d$:printspc(7)pr$:printspc(7)x$
  586. 11024 printspc(7)xr$
  587. 11040 sys53184:return
  588. 11050 data"   [204]oad[211][212][193][210] - - [211]oftdisk,
  589. 11051 [131]"right$nc.           ","(NULL)he (NULL)onthl
  590. 11052 data"y [211]oftware [195]ollection
  591. 11053 [131]"     (NULL).(NULL). peekox 30008
  592. 11054 data"[211]hreveport, [204][193] 71130-0008
  593. 11055 [131]"      (318) 221-8718
  594. 11100 e$=chr$(27):pt=1:poke40929,pt:poke40933,1:pg$=e$+chr$(67)+chr$(33)
  595. 11125 ff=1:ff$=chr$(12):nf=4:se=7
  596. 11127 poke40931,0:poke40932,nf:rf$=e$+chr$(12):dn=peek(40928)
  597. 11130 oo$=e$+chr$(74)+chr$(peek(40930)):return
  598. 11200 e$="":pt=0:poke40929,pt:dn=peek(40928):nf=4:poke40932,nf:se=7
  599. 11210 pg$="":ff=0:ff$="":oo$="":rl$="":poke40931,0:poke40933,0:return
  600. 11300 e$="":pt=2:poke40929,pt:dn=peek(40928)
  601. 11302 nf=peek(40952):poke40932,nf
  602. 11304 pg$="":rf$="":rl$=""
  603. 11310 ff=0:ff$="":oo$="":poke40931,peek(40954)
  604. 11312 poke40933,0:if(peek(40935)and4)=4thenpoke40933,1:ff=2
  605. 11314 ifpeek(40933)=0then11340
  606. 11320 if(peek(40935)and8)=0then11330
  607. 11322 forl=40937to40937+peek(40936)-1:pg$=pg$+chr$(peek(l)):next
  608. 11324 if(peek(40935)and1)=0then11330
  609. 11326 forl=40943to40943+peek(40942)-1:rf$=rf$+chr$(peek(l)):next:goto11340
  610. 11330 forl=40947to40947+peek(40946)-1:rl$=rl$+chr$(peek(l)):next
  611. 11340 se=peek(40953)
  612. 11350 return
  613. 12400 gosub200:gosub284:gosub222
  614. 12410 gosub57:ifpeek(995)thengosub19:goto12410
  615. 12420 gosub50:onaagoto12500,14000,300,15000
  616. 12500 gosub200:gosub278:gosub214
  617. 12510 sys51367:syswi,6,0,13,27,.,20,15,0,15
  618. 12600 gosub57:ifpeek(631)=80then12620
  619. 12602 ifpeek(995)thengosub19:goto12600
  620. 12610 gosub50:onaagoto13000,12700,12400,12800
  621. 12620 syswi,6,0,13,27,.,2,0,0:gosub3900:ifpo=0then12500
  622. 12624 opennf,dn,se:sys51805:print#nf,l$:forl=1to11:print#nf,chr$(10);:next
  623. 12626 print#nf:closenf:goto12500
  624. 12700 gosub10000:ifen=63thensys49906:goto12500
  625. 12710 gosub11000:goto12500
  626. 12800 gosub850:ifpeek(1002)=1then12810
  627. 12802 gosub3845:i=3:gosub20000:gosub34:goto12600
  628. 12810 open15,8,15,"s0:inv.name":close15:sys49922:goto12500
  629. 13000 poke998,1:print"[147][154]  [204]isted below are the current defaults
  630. 13002 [153]" that are to be printed at the top of":[153]" each invoice.
  631. 13006 print"  [217]ou may make any desired changes and
  632. 13008 [153]" arrange in any order that you choose.":[141]18700
  633. 13020 [153]"print#line1-left":[153]"line2-left":[153]"line1-center
  634. 13023 print"line2-center":print"line1-right":print"line2-right
  635. 13030 [158]wi,11,13,16,38,.,16,7,0,1:[158]wi,10,12,17,39,.,4,7,0
  636. 13040 r1[178]11:r2[178]16:c1[178]13:c2[178]38:rt[178]6:[141]65
  637. 13045 [153]"cont   left$it  (NULL)val(NULL)(NULL)(NULL)(NULL) wait on the bottom line "
  638. 13046 [153]"     when finished."
  639. 13050 [158]51373
  640. 13060 [137]102
  641. 13065 [158]51355
  642. 13090 [151]998,0:[137]12500
  643. 14000 [141]200:[141]286:[141]214
  644. 14020 [158]53202:[151]214,11:[153]:[153][166]1)"tx/rt:":[158]wi,6,0,13,27,.,16,0,0,15
  645. 14050 [158]wi,6,0,13,27,.,4,15,0
  646. 14100 [141]57:[139][194](995)[167][141]19:[137]14100
  647. 14110 [141]50:[145]aa[137]14200,14300,12400,14400
  648. 14200 [153]"loadcont  (NULL)isted below are the current defaults
  649. 14202 print" that are automatically entered for you
  650. 14204 [153]" at the start of each item entry along
  651. 14205 print" with your state sales tax rate.
  652. 14206 [153]"  (NULL)ou may change these to suit your
  653. 14208 print" particular application.":gosub18700:sys53208
  654. 14220 print"[152]   8 char's":print"  20 char's":print"  20 char's
  655. 14223 [153]"   8 char's":[153]"   1 char.":[153]"   5 char's sys tx/rt:
  656. 14226 syswi,11,13,16,18,.,16,0,0,7:syswi,11,19,16,38,.,16,0,0,1
  657. 14235 syswi,10,12,17,39,.,4,7,0
  658. 14240 r1=11:r2=16:c1=19:c2=38:rt=7:gosub65
  659. 14242 print"[155][197]xample: [201]f your sales tax rate (tx/rt)
  660. 14243 [153]"  is 4.5 percent, then enter .0450
  661. 14244 print" ([217]ou must enter 4 decimal places)
  662. 14245 [153]"cont   left$it  (NULL)val(NULL)(NULL)(NULL)(NULL) wait on the bottom line":[153]"     when finished.
  663. 14260 goto102
  664. 14265 fs=1684:lg=3:r1=16:c1=20:gosub1:xr=xt/10000:sys53190:goto14000
  665. 14300 gosub10020:ifen=63thensys49986:goto14000
  666. 14310 gosub11010:goto14000
  667. 14400 gosub850:ifpeek(1002)=1then14410
  668. 14402 gosub3845:i=3:gosub20000:gosub34:goto14100
  669. 14410 open15,8,15,"s0:inv.item":close15:sys50002:goto14000
  670. 15000 gosub200:gosub288:gosub214:gosub15350:gosub15450
  671. 15100 gosub57:ifpeek(995)thengosub19:goto15100
  672. 15110 gosub50:onaagoto15200,15600,12400,15120
  673. 15120 gosub850:ifpeek(1002)=1then15130
  674. 15122 gosub3845:i=3:gosub20000:gosub34:goto15100
  675. 15130 open15,8,15,"s0:inv.prnt":close15:sys50046:goto15000
  676. 15200 gosub200:gosub292:gosub230:gosub15350:gosub15450
  677. 15250 gosub57:ifpeek(995)thengosub19:goto15250
  678. 15260 gosub50:gosub34:onaagoto15300,15400,15000,15500.
  679. 15300 iftg=1thentg=0:goto15330
  680. 15310 ifdn=4thendn=5:tg=1:gosub15350:goto15250
  681. 15320 ifdn=5thendn=4:tg=1:gosub15350:goto15250
  682. 15330 ifpeek(40934)=0thenpoke40934,1:gosub15350:goto15250
  683. 15340 ifpeek(40934)=1thenpoke40934,0:gosub15350:goto15250
  684. 15350 poke214,6:print:print"[155]device#:[158]"dn"[155] copies:[158]"peek(40934)+1
  685. 15352 poke40928,dn:return
  686. 15400 ifpt=0thengosub11100:gosub15450:goto15250
  687. 15410 ifpt=1thengosub11300:gosub15450:goto15250
  688. 15420 ifpt=2thengosub11200:gosub15450:goto15250
  689. 15450 poke214,8:print:print"[155]printer:":print"[158]   "pt$(pt):poke40929,pt:return
  690. 15500 ifpt=0thengosub3850:goto15590
  691. 15510 ifpt=2then15700
  692. 15550 print"[147][154]  [193]fter printing an invoice, does the
  693. 15552 [153]" paper advance so that the perforations
  694. 15554 print" line up exactly at the tear-off point?
  695. 15555 [153]"  right$f not, then change the setting below
  696. 15556 print" to advance it more or less.":gosub18700
  697. 15561 lg=2:xt=peek(40930):gosub7
  698. 15562 print"[155]   [208]aper advances "xt$ " [155]/216th's inch
  699. 15574 rt[178]8:[141]59
  700. 15578 [153]"list   *valnter number between 000 and 255
  701. 15580 print"[154]     [200]it  [210][197][212][213][210][206] [146] when finished
  702. 15584 [158]wi,10,17,12,21,.,4,7,0:[137]102
  703. 15586 fs[178]1482:lg[178]2:[141]1:[139]xt[177]255[167]10
  704. 15587 [151]40930,xt:[141]11130:[137]15200
  705. 15590 [141]180:[141]56:[153]"open   (NULL)his printer selection
  706. 15591 print"    may not be altered.":printspc(6)"-[200]it any key-
  707. 15594 [141]57:[141]184:[141]34:[137]15250
  708. 15600 ot[178][194](40930)
  709. 15601 [141]10050:[139]en[178]63[167][158]50030:pt[178][194](40929):[139]pt[167]15650
  710. 15605 [151]40930,ot:[139]en[179][177]63[167][151]40928,4
  711. 15610 [141]11200:[137]15000
  712. 15650 [139]pt[178]1[167][141]11100:[137]15000
  713. 15660 [137]15000
  714. 15700 [151]40935,0:tp[178]0
  715. 15701 [153]"loadcont":[151]214,4:[153]:[153][166]5)"(NULL)oad your printer with standard
  716. 15702 printspc(5)"8.5 x 11 computer paper and line
  717. 15704 [153][166]4)"up the perforations on the bottom
  718. 15705 printspc(6)"of the sheet at approximately
  719. 15706 [153][166]2)"7/8ths to 1 inch above the print head.":[141]18500
  720. 15710 [139]tp[178]1[167]15800
  721. 15720 tp[178]1:[151]214,4:[153]:[153][166]5)"contascrom this point, do you have to
  722. 15722 printspc(6)"advance the paper in order to
  723. 15724 [153][166]11)"tear off the sheet?":[141]18520
  724. 15725 [139][194](631)[179][177]89[167]15750
  725. 15726 cs$(0)[178]"(NULL)etting the page length to":cs$(1)[178]"33 lines (or 5.5 inches)"
  726. 15727 [151]40935,4:[141]18600:[153][166]7)cs$(0)"":[153][166]7)cs$(1)"?"
  727. 15728 [141]18520:[139][194](631)[179][177]89[167]15734
  728. 15729 [151]40935,12
  729. 15730 cs$(2)[178]"(NULL)everse scrolling to top of":cs$(3)[178]"current page"
  730. 15731 [141]18600:[153][166]6)cs$(2):[153][166]13)cs$(3)"?"
  731. 15732 [141]18520:[139][194](631)[179][177]89[167]15734
  732. 15733 [151]40935,13:[137]15740
  733. 15734 cs$(4)[178]"(NULL)everse linefeeds"
  734. 15735 [141]18600:[153][166]6)cs$(4)"?":[141]18520
  735. 15736 [139][194](631)[179][177]89[167][151]40935,0:[137]15750
  736. 15738 [151]40935,[194](40935)[176]2
  737. 15740 [139]([194](40935)[175]8)[178]0[167]15748
  738. 15742 y1[178]0:y2[178]1:ml[178]40936:mn[178]4:[141]16000
  739. 15744 [139]([194](40935)[175]1)[178]0[167]15748
  740. 15746 y1[178]2:y2[178]3:ml[178]40942:mn[178]3:[141]16000:[137]15750
  741. 15748 y1[178]4:y2[178]5:ml[178]40946:mn[178]3:[141]16000
  742. 15750 [141]18600:[153][166]7)"atnutomatic linefeeds after
  743. 15752 printspc(11)"carriage returns?":gosub18520
  744. 15754 ifpeek(631)=89thennf=4:goto15758
  745. 15756 nf=132
  746. 15758 poke40952,nf
  747. 15760 gosub18600:printspc(5)"[195]ommodore mode or [193][211][195][201][201] mode?
  748. 15762 [153][166]15)"sys len wait or  atn wait ?
  749. 15764 gosub18550:ifpeek(631)=65thenpoke40954,1:goto15768
  750. 15766 poke40954,0
  751. 15768 poke214,4:print:printspc(4)"[154][197]nter the secondary address that
  752. 15770 [153][166]5)"should be sent to your printer
  753. 15772 printspc(13)"(normally 007)
  754. 15774 rt[178]10:[141]59
  755. 15776 [153]:[153]"list   *valnter number between 000 and 255"
  756. 15778 [158]wi,10,17,12,21,.,4,7,0:[137]102
  757. 15780 fs[178]1482:lg[178]2:[141]1:[139]xt[177]255[167]10
  758. 15782 se[178]xt:[151]40953,se
  759. 15790 [139]([194](40935)[175]4)[178]0[167]15850
  760. 15792 [137]15701
  761. 15800 [141]3900:[139]po[178]0[167][151]40935,0:[141]11200:[137]15200
  762. 15805 [153]"load":[151]214,8:[153]:[153][166]4)"listleft$it sys f1 waitlist until the perforations
  763. 15810 print"line up with the desired tear-off point
  764. 15812 [153][166]7)"and then hit any other key
  765. 15815 opennf,dn,se:l=0
  766. 15820 gosub57:ifpeek(631)=133thenprint#nf," ":l=l+1:goto15820
  767. 15830 closenf:poke40956,l
  768. 15850 gosub11300:goto15200
  769. 16000 print"[147][154]  [197]nter the command string from your
  770. 16002 [153]" printer manual for the feature that
  771. 16004 print" allows: [158]"cs$(y1)
  772. 16005 printspc(((44-len(cs$(y2)))/2))""cs$(y2)
  773. 16006 print"[154]  [198]or commands that are 'letters',
  774. 16008 [153]" use the atn(NULL)lenright$right$ equivalents.":[141]18700
  775. 16020 [153]"open";:[129]l[178]1[164]mn:[153]"chr$(   );";:[130]
  776. 16030 rt[178]9:[141]59
  777. 16032 [153]:[153]"list   *valnter number between 000 and 255"
  778. 16034 [153]"    (NULL)val(NULL)(NULL)(NULL)(NULL) wait to enter the number...
  779. 16035 print"      f1 [146] to end the string...
  780. 16040 [158]wi,10,17,12,21,.,4,7,0:ct[178]1:[137]102
  781. 16050 fs[178]1482:lg[178]2:[141]1:[139]xt[177]255[167]10
  782. 16055 [139][194](631)[178]133[167][142]
  783. 16060 [151]214,8:[153]:[153][166]ct[172]5[170](ct[171]1)[172]5)"sys"xt$
  784. 16070 [151]ml,ct:[151]ml[170]ct,xt:[139]ct[178]mn[167][142]
  785. 16080 ct[178]ct[170]1:[137]11
  786. 16500 [139][194](631)[178]133[167][142]
  787. 16510 [137]108
  788. 18000 ft[178]0:[137]300
  789. 18100 [153]"load":[141]56:[153][166]10)"openrelease sys  space bar  wait"
  790. 18110 [146]203,64:[141]56:[153]"  ((NULL)ou may have to realign your paper)"
  791. 18120 [153][166]7)"sys-hit any key to continue-":[141]57:[137]400
  792. 18200 [151]179,[181]((38678[170]n1[172]59)[173]256)
  793. 18210 [151]178,(38678[170]n1[172]59)[171][194](179)[172]256
  794. 18220 [151]181,[181]((38079[170]n1[172]18)[173]256)
  795. 18230 [151]180,(38079[170]n1[172]18)[171][194](181)[172]256:[142]
  796. 18500 [153][166]7)"list- left$it any key when ready -":[137]18550
  797. 18520 [153][166]14)"sys (NULL) waites /  (NULL) waito":[137]18550
  798. 18550 [141]57:[153]"load":[151]198,0:[142]
  799. 18600 [153]"load":[151]214,6:[153]:[153]"contstr$oes your printer support:list":[142]
  800. 18700 [153]"poketotototototototototototototototototototototototototototototototototototototototo":[142]
  801. 20000 [145]i[141]20100,20240,20130,20140,20160,20170,20180,20200,20210,20220,20230
  802. 20010 [151]214,i3:[153]:[129]i1[178]0[164]i2:[153][166]i4)i$(i1):[130]:[142]
  803. 20020 [145]i[141]20250,20260
  804. 20030 [137]20010
  805. 20090 [141]56:[153]"list   (NULL)oading invoice...":[142]
  806. 20100 i2[178]5:i3[178]11:i4[178]2
  807. 20101 i$(0)[178]"sys-valnter customer name on
  808. 20102 i$(1)="  first line
  809. 20105 i$(2)[178]"-ascor 'lenash (NULL)ale', leave
  810. 20106 i$(3)="  window empty
  811. 20109 i$(4)[178]"-left$it  (NULL)val(NULL)(NULL)(NULL)(NULL) wait  on fifth
  812. 20110 i$(5)="  line when finished":return
  813. 20124 i$(3)=""
  814. 20125 i$(4)="[155]   -[200]it any key-":return
  815. 20130 i2=4:i3=16:i4=2
  816. 20131 i$(0)="[158]  [213]nable to perform
  817. 20132 i$(1)[178]" this operation with
  818. 20133 i$(2)=" the [204]oad[211][212][193][210] [196]isk!!!
  819. 20135 i$(3)[178]"open (NULL)lease refer to the
  820. 20136 i$(4)="supplied documentation":return
  821. 20140 i2=4:i3=13:i4=2
  822. 20141 i$(0)="[158]    [213][206][193][194][204][197][160][212][207][160][211][193][214][197]"
  823. 20142 i$(1)=" [212]his program allows a
  824. 20143 i$(2)[178]"maximum of 15 invoices
  825. 20144 i$(3)="   saved per disk.
  826. 20150 i$(4)[178]"list     -left$right$(NULL) atn(NULL)(NULL) (NULL)val(NULL)-on":[142]
  827. 20160 i2[178]2:i3[178]14:i4[178]3
  828. 20161 i$(0)[178]"sys(NULL)nable to print an
  829. 20162 i$(1)="invoice without any
  830. 20163 i$(2)[178]"items listed on it":[142]
  831. 20170 i2[178]3:i3[178]18:i4[178]3
  832. 20171 i$(0)[178]"list (NULL)ress 'f3' to edit
  833. 20172 i$(1)="the invoice or press
  834. 20173 i$(2)[178]" 'f5' to select a
  835. 20174 i$(3)=" different invoice":return
  836. 20180 i2=5:i3=12:i4=2
  837. 20181 i$(0)="[158]      [215][193][210][206][201][206][199][160]!!!
  838. 20182 i$(1)[178]" (NULL)his will erase the
  839. 20183 i$(2)="  displayed invoice...
  840. 20187 i$(3)[178]"cont  -left$it 'f5' again-
  841. 20188 i$(4)="[155]  [193]ny other key to
  842. 20189 i$(5)[178]"  'return to edit'":[142]
  843. 20200 i2[178]5:i3[178]4:i4[178]1
  844. 20201 i$(0)[178]"sys((NULL)ote: (NULL)ressing 'f1' does
  845. 20202 i$(1)="  not erase the program)
  846. 20203 i$(2)[178]""
  847. 20204 i$(3)[178]"  (NULL)ress 'f7' if the main
  848. 20205 i$(4)="   program disk has not
  849. 20206 i$(5)[178]"  remained in the drive.":[142]
  850. 20210 i2[178]2:i3[178]18:i4[178]1
  851. 20211 i$(0)[178]"cont  (NULL)ress  _ wait to log-in a
  852. 20212 i$(1)="new disk. [208]lease refer to
  853. 20213 i$(2)[178]"the supplied documentation":[142]
  854. 20220 i2[178]1:i3[178]18:i4[178]2
  855. 20221 i$(0)[178]"open(NULL)he (NULL)oad(NULL)(NULL)atn(NULL) str$isk must be
  856. 20222 i$(1)="  in the drive...":return
  857. 20230 i2=1:i3=18:i4=2
  858. 20231 i$(0)="[159][213]nable to return to this
  859. 20232 i$(1)[178]"   (NULL)oad(NULL)(NULL)atn(NULL) str$isk...":[142]
  860. 20240 i2[178]2:i3[178]14:i4[178]3
  861. 20241 i$(0)[178]"sys -(NULL)lease (NULL)ait-
  862. 20243 i$(1)="[155][208]rinting [201]nvoice
  863. 20247 i$(2)[178]" & updating right$nv#":[142]
  864. 20250 i2[178]0:i3[178]23:i4[178]0
  865. 20251 i$(0)[178]"hold sys space bar wait to aborton":[142]
  866. 20260 i2[178]4:i3[178]12:i4[178]2
  867. 20261 i$(0)[178]"sys  (NULL)here are no ivoices
  868. 20262 i$(1)=" stored on this disk...
  869. 20264 i$(2)[178]"list  (NULL)o try another disk,
  870. 20265 i$(3)="press 'f5' and then 'f3'
  871. 20266 i$(4)[178]"to reenter this routine":[142]
  872. 22000 [139][194](214)[179]18[167]400
  873. 22010 [141]3845:[141]180:i[178]7:[141]20000
  874. 22020 [141]57:[139][194](631)[178]135[167]400
  875. 22030 [141]34:[141]184:[139][194](38048)[178]30[167]800
  876. 22035 [141]26:[141]24:[151]646,1:me[178]1:[137]108
  877. 60000 [153]"load":[151]53280,0:[151]53281,0:[151]646,1:[153][199](14):[151]657,128
  878. 60010 [151]51,0:[151]52,145:[151]53,234:[151]54,144:[151]55,0:[151]56,145
  879. 60050 pt$(0)[178]"lenomm. 1525 & compatibles":pt$(1)[178]"(NULL)(NULL)atn(NULL)close(NULL)(NULL)1000len/compatibles
  880. 60052 pt$(2)="[207][212][200][197][210] [208][210][201][206][212][197][210][211]          "
  881. 60055 dn=4:poke40928,dn:pt=0:poke40930,134:poke40934,0:poke40935,0:poke40952,7
  882. 60060 q$="1":p$="":d$="":pr$="":x$="[217]":xr$=".0400":forl=1to20:l$=l$+"----":next
  883. 60085 poke1003,0:poke998,0:dimex(32):dimfk$(12)
  884. 60086 wi=49152:cs$(5)="":qo$=chr$(34):ifpeek(1019)<>1then62000
  885. 60099 poke1019,0:return
  886. 60100 print"[147]"spc(85)"[155][197]nter today's date in the following"
  887. 60110 print"format-        mo/da/yr"
  888. 60120 re=1:syswi,6,14,8,23,.,4,15,0:
  889. 60130 poke214,6:print:printspc(4)"[155]example-- [221]01/01/89"
  890. 60135 poke214,18:print:printspc(8)"[158]"er$
  891. 60136 poke214,18:print:printspc(8)"[158]"f$
  892. 60140 syswi,10,14,12,23,.,4,3,0:syswi,11,15,11,22,.,16,0,0,1
  893. 60142 r1=11:r2=11:c1=15:c2=22:rt=1:gosub65:goto102
  894. 60150 sa=1479:ea=1486:gosub75
  895. 60151 er$="[158]                         "
  896. 60152 onedgoto60161,60162,60163,60170
  897. 60160 f$="[158]    [206][207][160][211][208][193][195][197][211][160][193][204][204][207][215][197][196]    ":gosub3850:goto60100
  898. 60161 f$="[158]    [201][206][195][207][210][210][197][195][212][160][198][207][210][205][193][212]     ":gosub3850:goto60100
  899. 60162 f$="[158]01 thru 12 for the month":gosub3850:goto60100
  900. 60163 f$="[158]01 thru"+str$(md)+" for the day  ":gosub3850:goto60100
  901. 60170 poke214,18:printspc(8)er$
  902. 60172 print"[158][145]       [214]alid [197]ntry--[195]orrect? y/n":poke646,1
  903. 60174 gosub57:ifpeek(631)=89then60200
  904. 60175 f$="":goto60100
  905. 60200 onmhgoto60211,60212,60213,60214,60215,60216
  906. 60201 mh=mh-6
  907. 60202 onmhgoto60217,60218,60219,60220,60221,60222
  908. 60211 f$="[202]anuary":goto60225
  909. 60212 f$="[198]ebruary":goto60225
  910. 60213 f$="[205]arch":goto60225
  911. 60214 f$="[193]pril":goto60225
  912. 60215 f$="[205]ay":goto60225
  913. 60216 f$="[202]une":goto60225
  914. 60217 f$="[202]uly":goto60225
  915. 60218 f$="[193]ugust":goto60225
  916. 60219 f$="[211]eptember":goto60225
  917. 60220 f$="[207]ctober":goto60225
  918. 60221 f$="[206]ovember":goto60225
  919. 60222 f$="[196]ecember":goto60225
  920. 60225 yr$=mid$(str$(yr),2,2):iflen(yr$)<2thenyr$="0"+yr$
  921. 60230 dd$=f$+str$(dt)+",'"+yr$
  922. 60235 print"[147]"
  923. 60240 poke214,19:print:print"[158]       [215]ait one moment please... ":poke646,1
  924. 60250 goto300
  925. 60500 gosub3840:print"[147]":gosub56:print"[159]   [217]ou still have invoices in memory[155]
  926. 60510 [153]"left$it sys shift \ waitlist to edit...":[153][166]8)"-any other key to quit-
  927. 60520 gosub57:return
  928. 60600 xp=1:print"[147]":gosub56:printspc(11)"[153][197][216][208][210][197][211][211][160][210][207][213][212][197] !!!":forl=1to300:next
  929. 60610 goto500
  930. 61000 gosub200:gosub294:gosub238:i=8:gosub20000:i=9:gosub20000
  931. 61008 gosub57:ifpeek(631)=95then18000
  932. 61009 ifpeek(995)thengosub19:goto61008
  933. 61015 gosub50:onaagoto61020,62300,300,61100
  934. 61020 ifmc=0then61024
  935. 61021 gosub60500:ifpeek(631)=169then60600
  936. 61024 gosub61025:end
  937. 61025 print"[144][147]":poke53280,1:poke53281,1
  938. 61030 forl=1to30:next:poke53281,0:poke53280,0:printspc(210);spc(249);".
  939. 61050 [129]l[178]1[164]400:[130]:[151]56,160:[153]"load":[151]808,237:[151]657,0:[151]198,0
  940. 61080 [151]649,10:[158]52643:[151]55496,1:[151]55536,1:[142]
  941. 61100 [153]"load":[141]850:[139][194](1002)[178]1[167]61120
  942. 61104 [141]3845:i2[178]4:i3[178]7:i4[178]8:[141]20131:[141]20010
  943. 61106 [153][166]12)"list-left$right$(NULL) atn(NULL)(NULL)close(NULL)val(NULL)-":[141]57:[137]61000
  944. 61120 [151]214,12:[153]:[153][166]7)"sysupdating invoice number..."
  945. 61125 [159]15,8,15,"s0:last inv#":[160]15:[159]5,8,5,"0:last inv#,s,w"
  946. 61126 [139]in[178]0[167][152]5,"99999":[160]5:[137]61140
  947. 61130 [152]5,[196](in[171]1):[160]5
  948. 61140 [151]214,12:[153]
  949. 61150 [153][166]3)"open-right$nvoice number update completed-":[137]61106
  950. 62000 [153]"load":[141]3845:[153][166]82)"def(NULL)(NULL)valatn(NULL)valclose(NULL)(NULL)(NULL)val---
  951. 62010 print"    [198]or this program to work properly,
  952. 62015 [153]"    enter- load"qo$"0:inv.boot"qo$",8   ":[153]"    and then (NULL)(NULL)(NULL)
  953. 62025 print"[152]  [215]ait a few moments- this program will":print" do it for you...
  954. 62035 [129]l[178]1[164]600:[130]:[151]214,12:[153]
  955. 62050 [153][166]10)"printatn(NULL)(NULL)(NULL)(NULL)atn(NULL)right$len (NULL)(NULL)atnstr$ & (NULL)(NULL)(NULL)":[129]l[178]1[164]200:[130]
  956. 62070 [153]"sys  (NULL)lease (NULL)ait--  (NULL)oading peekoot (NULL)rogram":[147]"0:inv.boot",8,1:[128]
  957. 62300 [141]850:[139][194](1002)[178]0[167]62302
  958. 62301 [141]182:[141]3840:i[178]10:[141]20000:[141]34:[137]61008
  959. 62302 [139]mc[178]0[167]62305
  960. 62303 [141]60500:[139][194](631)[178]169[167]60600
  961. 62305 [159]15,8,15,"r0:hello connect=hello connect":[132]15,en:[160]15
  962. 62308 [139]en[178]63[167]62320
  963. 62310 [141]182:[141]3840:i[178]11:[141]20000:[141]34:[137]61008
  964. 62320 [141]61025:[153]"load":[153]"stopload"qo$"hello connect"qo$",8"
  965. 62340 [153]"run":[151]631,13:[151]632,13:[151]206,12:[151]647,0:[151]198,2:[128]
  966.