0 GOSUB60000:GOTO60100: ** PROGRAM BY ** MAURICE RANDALL, SUBMITTED TO LOADSTAR
1 XT=0:FORL=0TOLG
2 IF(PEEK(FS+L)AND31)=0THEN10
3 IF(PEEK(FS+L)<48)OR(PEEK(FS+L)>57)THEN10
4 NEXTL
5 FORL=LGTO0STEP-1:XT=XT+(PEEK(FS+L)-48)*10^(LG-L):NEXT
6 IFXT=0THENXT$="0":GOTO8
7 XT$=MID$(STR$(XT),2)
8 IFLEN(XT$)=LG+1THENRETURN
9 FORL=LEN(XT$)TOLG:XT$="0"+XT$:NEXTL:RETURN
10 GOSUB3850
11 FORL=0TOLG:POKEFS+L,32:NEXT:GOTO102
12 IFCC=1THENCC=0:RETURN
13 SYSWI,11,0,24,27,.,2,0,0:RETURN
14 GOSUB3850:FORL=1TO5:GOSUB34:CO=1:GOSUB51:NEXT:GOTO108
15 GOSUB3850:FORLK=1TO10:SYSWI,13,29,17,39,.,4,1,0:FORDL=1TO10:NEXT
16 SYSWI,13,29,17,39,.,4,9,0:FORDL=1TO10:NEXT:NEXT:RETURN
17 GOSUB3850:FORLK=1TO10:SYSWI,19,29,23,39,.,4,1,0:FORDL=1TO10:NEXT
18 SYSWI,19,29,23,39,.,4,9,0:FORDL=1TO10:NEXT:NEXT:RETURN
19 GOSUB3850:FORLK=1TO10:GOSUB56:PRINT"                          "
20 GOSUB290:NEXT:RETURN
21 GOSUB3850:FORLK=1TO7:SYSWI,7,29,11,39,.,4,1,0:SYSWI,13,29,17,39,.,4,1,0
22 FORDL=1TO10:NEXT:SYSWI,7,29,11,39,.,4,9,0:SYSWI,13,29,17,39,.,4,9,0
23 NEXT:RETURN
24 SYSWI,5,1,9,26,.,16,0,0,1:SYSWI,12,7,16,26,.,16,0,0,15
25 SYSWI,19,7,23,26,.,16,0,0,1:RETURN
26 POKE214,18:PRINT:PRINTSPC(7);:RETURN
27 POKE646,1:GOSUB26:PRINTQ$:PRINTSPC(7)P$:PRINTSPC(7)D$
28 PRINTSPC(7)PR$:PRINTSPC(7)X$:RETURN
34 SYSWI,FR,FC,TR,TC,.,4,9,0:WAIT203,64:RETURN:::::::::::::::
37 POKE253,160:POKE254,170:RETURN
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
39 RETURN
40 PRINT"[157]";:LL=11-LE:FORL=1TOLL+1:PRINT" ";:NEXTL
41 FORL=1TOLL+1:PRINT"[157]";:NEXTL:RETURN
42 Q=45      :N=45.34   :IFQ=0ORN=0THENEX=0:EX$=" 0.00":GOTO44
43 EX=Q*N* 1:EX=EX+.005:EX$=STR$(EX):IFEX<=0THENEX=EX-.01:EX$=STR$(EX)
44 XX=N:GOSUB60:N$=XX$
45 FORF=1TO8:IFMID$(EX$,F,1)="."THENEX$=LEFT$(EX$,F+2):EX(G)=VAL(EX$)
46 NEXTF:ONPEEK(1003)GOTO48,49
47 ONPEEK(1671)AND1GOTO49
48 NT=NT+EX(G):POKE214,255:PRINT:PRINTSPC(28)N$:PRINTSPC(228)EX$:RETURN
49 TX=TX+EX(G):POKE214,255:PRINT:PRINTSPC(28)N$:PRINTSPC(228)EX$:RETURN
50 AA=PEEK(631)-132:FR=(AA-1)*6+1:FC=29:TR=FR+4:TC=39:FU=4:CO=1:AD=.:RV=1
51 SYSWI,FR,FC,TR,TC,AD,FU,CO,RV:WAIT203,64:RETURN:::
52 TX= 1       :NT= 0       :
53 POKE253,182:POKE254,148
54 FORL=1TOPEEK(38048):SYS53037:EX(L)=     1.00:NEXTL:RETURN
55 POKE214,0:PRINT:RETURN
56 POKE214,14:PRINT:RETURN
57 POKE198,0:WAIT198,1:POKE995,0:IFPEEK(631)<133ORPEEK(631)>136THENPOKE995,1
58 RETURN
59 R1=11:R2=11:C1=18:C2=20:GOSUB65:RETURN
60 XX$=STR$(ABS(XX)+.0005):XX$=STR$(VAL(XX$)*(1-((XX<0)*-2)))
61 FORL=1TO10:IFMID$(XX$,L,1)="."THENXX$=LEFT$(XX$,L+2)
62 NEXTL:IFXX=0THENXX$=" .00"
63 RETURN
64 POKE251,200:POKE252,4:RETURN:
65 POKE1013,RT:POKE1014,R1:POKE1015,R2:POKE1016,C1:POKE1017,C2:RETURN
66 POKE253,64:POKE254,181:RETURN
67 SYSWI,FR,FC,TR,TC,AD,FU,CO,RV:RETURN
68 POKE253,0:POKE254,160:RETURN
75 IFPEEK(SA)=32THENED=0:RETURN
76 FORL=SATOEA:IFINT((PEEK(L)-48)/10)<>0THEN79
77 IFL=SA+2ORL=SA+5THENED=1:RETURN
78 NEXTL:GOTO82
79 IFL=SA+2ANDPEEK(L)=47THENNEXTL
80 IFL=SA+5ANDPEEK(L)=47THENNEXTL
81 ED=1:RETURN
82 MH=(VAL(CHR$(PEEK(SA))))*10+(VAL(CHR$(PEEK(SA+1))))
83 IFMH>12ORMH<1THENED=2:RETURN
84 DT=(VAL(CHR$(PEEK(SA+3))))*10+(VAL(CHR$(PEEK(SA+4))))
85 YR=(VAL(CHR$(PEEK(SA+6))))*10+(VAL(CHR$(PEEK(SA+7))))
86 IFMH=2ANDYR/4-(INT(YR/4))=0THENMD=29:GOTO90
87 IFMH=2THENMD=28:GOTO90
88 MD=(INT((MH+2)/10)+1+MH)/2:IFMD-INT(MD)=0THENMD=31:GOTO90
89 MD=30
90 IFDT>MDORDT<1THENED=3:RETURN
91 DA$=RIGHT$(STR$(MH),2)+"/"+RIGHT$(STR$(DT),2)+"/"+RIGHT$(STR$(YR),2)
99 ED=4:RETURN
102 IFEI=1THENEI=0:SYS52261:GOSUB27:IFPEEK(1006)=1THEN592
107 POKE646,1:POKE214,R1-1:PRINT:PRINTSPC(C1);:POKE649,1
108 SYS50224
120 ONPEEK(1018)GOTO130,108,126,150
125 GOTO108
126 IFME=1ANDPEEK(631)=169THEN5000
127 GOTO108
130 ONRTGOTO60150,537,570,5600,822,13065,14265,15586,16050,15780,570
150 IFCC=1THEN14
152 ONRTGOTO108,159,159,108,108,108,108,108,16500,108,108
159 GOSUB50:WAIT203,64:ME=0
160 ONAAGOTO562,4300,22000,900
180 SYSWI,11,0,24,27,37120,1,0,0
182 SYSWI,11,0,24,27,37120,2,0,0:RETURN
184 SYSWI,11,0,24,27,37120,8,0,0:RETURN
200 PRINT"[147]"
201 FC=29:TC=39:CO=9:RV=0
202 FR=-5:TR=-1:FORL=1TO4
203 FR=FR+6:TR=TR+6:FU=4:GOSUB67:NEXTL
204 FC=0:FR=0:TR=3:TC=27:FU=4:CO=3:GOSUB67:RETURN
210 FK$(1)="  SALES  ":FK$(2)="[201][206][214][207][201][195][201][206][199]":FK$(3)="         "
211 FK$(4)="CK/CHANGE":FK$(5)=" DEFAULT ":FK$(6)="SETTINGS "
212 FK$(7)=" CHANGE  ":FK$(8)=" TODAY'S ":FK$(9)=" -[196][193][212][197]-  "
213 FK$(10)=" UPDATE  ":FK$(11)="[201][206][214][207][201][195][197] #":FK$(12)="-OR QUIT-":GOTO260
214 FK$(1)="         ":FK$(2)=" -[195][200][193][206][199][197]-":FK$(3)=" SETTING "
215 FK$(4)=" RESTORE ":FK$(5)=" DEFAULT ":FK$(6)=" SETTING "
216 FK$(7)="         ":FK$(8)=" PREVIOUS":FK$(9)="   MENU  "
217 FK$(10)="MAKE THIS":FK$(11)=" SETTING ":FK$(12)="PERMANENT":GOTO260
218 FK$(1)="  START  ":FK$(2)="  -[206][197][215]-  ":FK$(3)=" INVOICE "
219 FK$(4)="-[210][197][195][193][204][204]- ":FK$(5)="  SAVED  ":FK$(6)=" INVOICE "
220 FK$(7)="         ":FK$(8)=" -[205][193][201][206]-  ":FK$(9)="  [205][197][206][213]   "
221 FK$(10)="  PRINT  ":FK$(11)=" -[194][204][193][206][203]- ":FK$(12)=" INVOICES":GOTO260
222 FK$(1)=" COMPANY ":FK$(2)="NAME AND ":FK$(3)=" ADDRESS "
223 FK$(4)=" ITEMS & ":FK$(5)=" TAX RATE":FK$(6)=" DEFAULTS"
224 FK$(7)="         ":FK$(8)=" -[205][193][201][206]-  ":FK$(9)="  [205][197][206][213]   "
225 FK$(10)="         ":FK$(11)=" PRINTER ":FK$(12)=" SETTINGS":GOTO260
226 FK$(1)=" -[208][210][201][206][212]- ":FK$(2)="  THIS   ":FK$(3)=" INVOICE "
227 FK$(4)=" -[211][193][214][197]-  ":FK$(5)=" INVOICE ":FK$(6)=" TO DISK "
228 FK$(7)="         ":FK$(8)=" PREVIOUS":FK$(9)="   MENU  "
229 FK$(10)="-[195][200][193][206][199][197]- ":FK$(11)="   OR    ":FK$(12)=" -[210][197][214][201][197][215]-":GOTO260
230 FK$(1)=" TOGGLE  ":FK$(2)="DEVICE # ":FK$(3)=" & COPIES"
231 FK$(4)=" TOGGLE  ":FK$(5)=" PRINTER ":FK$(6)="SELECTION"
232 FK$(7)="         ":FK$(8)=" PREVIOUS":FK$(9)="   MENU  "
233 FK$(10)="CUSTOMIZE":FK$(11)=" PRINTER ":FK$(12)=" SETTING ":GOTO260
234 FK$(1)=" -[208][210][201][206][212]- ":FK$(2)="  THIS   ":FK$(3)=" INVOICE "
235 FK$(4)=" -[197][196][201][212]-  ":FK$(5)="  THIS   ":FK$(6)=" INVOICE "
236 FK$(7)=" PREVIOUS":FK$(8)="  MENU   ":FK$(9)="         "
237 FK$(10)="  PRINT  ":FK$(11)="  -[193][204][204]-  ":FK$(12)=" INVOICES":GOTO260
238 FK$(1)=" -[209][213][201][212]-  ":FK$(2)="   TO    ":FK$(3)="  BASIC  "
239 FK$(4)=" -[209][213][201][212]-  ":FK$(5)="   TO    ":FK$(6)="[204]OAD[211][212][193][210] "
240 FK$(7)=" [210][197][212][213][210][206]  ":FK$(8)="   TO    ":FK$(9)=" [208][210][207][199][210][193][205] "
241 FK$(10)=" UPDATE  ":FK$(11)=" INVOICE ":FK$(12)="   NO.   ":GOTO260
242 FK$(1)=" -[211][195][210][207][204][204]-":FK$(2)="  ITEMS  ":FK$(3)="[194][193][195][203][215][193][210][196] "
243 FK$(4)=" -[211][195][210][207][204][204]-":FK$(5)="  ITEMS  ":FK$(6)=" [198][207][210][215][193][210][196] "
244 FK$(7)="-[196][197][204][197][212][197]- ":FK$(8)="  THIS   ":FK$(9)="  ITEM   "
245 FK$(10)="         ":FK$(11)=" -[205][207][210][197]-  ":FK$(12)="FUNCTIONS":GOTO260
250 FK$(1)="  [212][207][212][193][204]  ":FK$(2)=" EQUALS  ":FK$(3)="         "
251 FK$(4)="-[195][200][193][206][199][197]- ":FK$(5)="CUSTOMER ":FK$(6)="  INFO   "
252 FK$(7)=" -[197][196][201][212]-  ":FK$(8)="  THIS   ":FK$(9)="  ITEM   "
253 FK$(10)="-[210][197][212][213][210][206]- ":FK$(11)="   TO    ":FK$(12)=" -[197][196][201][212]-  ":GOTO260
260 POKE646,9:POKE214,1:PRINT:PRINTSPC(30)FK$(1):PRINTSPC(30)FK$(2)
261 PRINTSPC(30)FK$(3)
262 POKE214,7:PRINT:PRINTSPC(30)FK$(4):PRINTSPC(30)FK$(5)
263 PRINTSPC(30)FK$(6)
264 POKE214,13:PRINT:PRINTSPC(30)FK$(7):PRINTSPC(30)FK$(8)
265 PRINTSPC(30)FK$(9)
266 POKE214,19:PRINT:PRINTSPC(30)FK$(10):PRINTSPC(30)FK$(11)
267 PRINTSPC(30)FK$(12):RETURN
270 GOSUB55:PRINT"[159][205][193][201][206][160][205][197][206][213]-[155] PRESS DESIRED
271 [153]"  FUNCTION KEY":[142]
272 [141]55:[153]"OPENRIGHT$(null)(null)(null)RIGHT$LENVALCLOSE(null)VAL(null)(null)-":[142]
274 [141]55:[153]"OPEN(null)VALLENATN(null)(null)CLOSE(null)ATN(null)VALSTR$CLOSERIGHT$(null)(null)(null)RIGHT$LENVAL-":[142]
276 [141]55:[153]"OPENRIGHT$(null)(null)(null)RIGHT$LENRIGHT$(null)CHR$-  SYS"MC"CMD WAITCONT IN MEMORY
277 PRINT"[158]SHIFT \ [146][155]TOGGLES INVOICES":RETURN
278 GOSUB55:PRINT"[159][195][207][205][208][193][206][217][160][206][193][205][197]/[193][196][196][210][197][211][211]-
279 [153]" SYS (null) WAITLIST FOR SAMPLE PRINTOUT":[142]
280 [151]214,11:[153]
282 [153]"  QTY:":[153]"PART#:":[153]"DESCR:"
283 [153]"PRICE:":[153]"TXBLE:":[142]
284 [141]55:[153]"OPENSTR$VALASCATN(null)(null)(null)CLOSE(null)VAL(null)(null)RIGHT$(null)CHR$(null)-":[142]
286 [141]55:[153]"OPENRIGHT$(null)VAL(null)(null)/(null)ATN(null)CLOSE(null)ATN(null)VALCLOSESTR$VALASCATN(null)(null)(null)(null)-":[142]
288 [141]55:[153]"OPEN(null)(null)RIGHT$(null)(null)VAL(null)CLOSE(null)VAL(null)(null)RIGHT$(null)CHR$(null)-":[142]
290 [141]56:[153]"OPEN  -SELECT A FUNCTION KEY- ":[142]
291 [141]56:[153]"                          ":[142]
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]
294 [141]55:[153]"OPEN(null)(null)RIGHT$(null)CLOSEORCLOSE(null)VAL(null)(null)(null)(null)-":[142]
300 [139]FT[178]1[167]315
301 FT[178]1:[141]9500
302 [159]15,8,15
303 [159]2,8,2,"0:LAST INV#,S,R"
304 [132]15,EN:[139]EN[177]0[167][160]2:[160]15:[141]810:[137]308
305 [132]2,IN$:IN[178][197](IN$)[170]1:[160]2:[160]15:[139]IN[178]100000[167]IN[178]0
306 LG[178]4:XT[178]IN:[141]7:IN$[178]XT$:[137]315
308 IN$[178]XT$:XT$[178][196](IN[171]1):[139]IN[178]0[167]XT$[178]"99999"
310 [141]850:[139][194](1002)[178]1[167][159]2,8,2,"LAST INV#,S,W":[152]2,XT$:[160]2
315 [141]200:[141]270:[141]210
320 [151]214,20:[153]:[151]646,7:[153][166]5)DD$
360 [141]57:[139][194](995)[167][141]19:[137]360
362 [141]50:[145]AA[137]400,12400,380,61000
380 F$[178]"":[137]60100
400 [141]200:[141]272:[141]218
410 [141]57:[139][194](995)[167][141]19:[137]410
412 [141]50:[145]AA[137]500,600,300,5500
500 [141]200:[141]276:[141]226
501 G[178]1:RP[178]1:[141]2400
502 [129]L[178]1[164]30:EX(L)[178]0:[130]L:TX[178]0:NT[178]0
503 [158]51632:[151]38048,0:[151]38049,1
504 [151]178,22:[151]179,151:[151]1006,0:[151]180,191:[151]181,148
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
526 [151]214,3:[153]:[153][166]2)"    SOLD TO    ":[141]24:I[178]1:[141]20000
535 ME[178]1:[139]XP[178]1[167]XP[178]0:[137]5000
536 [137]102
537 [141]12:[158]51889:[139][194](1005)[178]1[167]547
540 [151]214,4:[153]:[153][166]1)"LENATN(null)LEFT$ (null)ATN(null)VAL"
547 [139]RP[178]3[167]980
549 TR[178]10:ME[178]1
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]
551 [153][166]2)"SYS PREVIOUS ITEM#     ":R1[178]12:R2[178]16:C1[178]7:C2[178]26:[141]65
552 FR[178]TR[170]1:TR[178]FR[170]6:CO[178]7:[141]67:[151]214,17:[153]
553 [153][166]2)"SYS  CURRENT ITEM# 01 "
554 R1[178]19:R2[178]23:C1[178]7:C2[178]26:[141]65
555 [141]280
556 [158]53220:[158]WI,19,1,23,6,.,16,0,0,7:[141]24
560 RT[178]3:[137]102
562 [139][194](38048)[178]0[167][141]34:[141]3850:[137]596
563 [141]180:[141]3900:[139]PO[178]1[167]I[178]2:[141]20000:[145][194](40934)[170]1[137]1000,565
564 [141]34:[141]184:[137]578
565 DI[178]1:[137]1000
570 [139][194](1007)[175]15[177]0[167][141]3850:[137]580
571 [151]646,0:[141]42:[151]1003,0:[151]646,1:[158]51520:[139]RT[178]11[167]4220
574 G[178][194](38049)
575 [139][194](1006)[178]1[167]593
576 [151]646,1:[158]53220:[141]24
578 [141]26:ME[178]1:[137]108
580 [139][194](1007)[175]1[167]L[178]18:[137]585
581 [139][194](1007)[175]2[167]L[178]19:[137]585
583 [139][194](1007)[175]8[167]L[178]21:[137]585
585 [151]646,1:[151]214,L:[153]:[153][166]7);:[137]108
592 [158]WI,19,7,23,26,.,2,0,0
593 [151]214,18:[153]:[153][166]10)"(null)AXIMUM NO. OF":[153][166]13)"30 ITEMS
594 PRINTSPC(9)"HAS BEEN REACHED":PRINTSPC(10)"[208][210][197][211][211] [160][196][197][211][201][210][197][196]
595 [153][166]11)"ASC(null)(null)LEN(null)RIGHT$(null)(null)CLOSE(null)VAL(null)":[137]800
596 CP[178][194](214):[141]180:[141]20161:[141]20124:I2[178]4:I3[178]14:I4[178]4:[141]20010
597 [141]57:[141]184:[151]646,1
598 [139]CP[179]18[167][151]214,4:[153]:[153][166]1):[137]108
599 [141]26:[141]24:ME[178]1:[137]108
600 [141]200:[141]274:[141]234:[141]850:[139][194](1002)[178]1[167]604
601 [141]3845:I[178]3:[141]20000:[153][166]6)"LIST-LEFT$RIGHT$(null) ATN(null)(null) (null)VAL(null)-ON
602 GOSUB57:GOTO400
604 M=0:SP=1225
605 SYSWI,4,0,19,27,.,18,0,0,7
610 OPEN15,8,15
612 FORLI=1TO15
613 POKE214,22:PRINT:PRINT" [204]OOKING FOR SAVED INVOICES[145]"
614 OPEN5,8,5,"0:INV.SAVE"+STR$(LI)+",S,R"
616 INPUT#15,EN:IFEN>0THENCLOSE5:GOSUB632:NEXT:GOTO640
618 IFEN=0THENGOSUB636:M=M+1
622 GOSUB632:CLOSE5:NEXT:GOTO640
632 POKE214,22:PRINT:PRINT"                           [145]":RETURN
636 POKE252,INT(SP/256):POKE251,SP-PEEK(252)*256:SYS52856:SP=SP+40
637 POKE828+M,LI:RETURN
640 CLOSE15:SYS65511:IFM=0THEN676
642 POKE214,22:PRINT:PRINT" [213]SE 'CURSOR KEYS' TO":PRINT"   SELECT INVOICE [145]"
643 SYSWI,5,1,19,26,37120,1,0,0
644 SP=1224:LI=0:POKE251,200:POKE252,4:SYS52828:GOTO650
645 POKE252,INT(SP/256):POKE251,SP-(PEEK(252)*256):SYS52828:GOTO650
646 IFSP<1224THEN644
647 IFSP>1224+(M-1)*40THENSP=SP-40:LI=LI-1:GOTO645
648 POKE252,INT(SP/256):POKE251,SP-(PEEK(252)*256):SYS52828
650 GOSUB57
652 IFPEEK(631)=17THENSYS52842:SP=SP+40:LI=LI+1:GOTO647
653 IFPEEK(631)=145THENSYS52842:SP=SP-40:LI=LI-1:GOTO646
654 IFPEEK(995)THENGOSUB3850:GOTO650
656 GOSUB50:ONAAGOTO4700,4750,400,4800
676 GOSUB3845
678 GOSUB182:I=2:GOSUB20020
684 GOSUB57:IFPEEK(995)THENGOSUB15:GOTO684
686 GOSUB50:ONAAGOTO3804,3804,400,3804
795 GOSUB180:GOSUB3900:IFPO=1THENI=2:GOSUB20000:GOTO1000
796 GOSUB34:GOSUB184
800 GOSUB3840:RP=2:GOSUB57:IFPEEK(631)=169THEN5000
802 IFPEEK(995)THEN800
804 GOSUB50:ONAAGOTO795,4300,22000,900
810 PRINT"[147]":POKE214,7:PRINT:POKE646,15
812 PRINTSPC(6)"[212]HE STARTING INVOICE NUMBER
813 [153][166]6)"IS NOT LISTED ON THIS DISK.
814 PRINTSPC(8)"[208]LEASE ENTER THE DESIRED
815 [153][166]8)"NUMBER IN THE BOX BELOW.
816 PRINT:PRINTSPC(6)"([206]UMERICAL CHARACTERS ONLY)
817 [153]:[153][166]11)"00000 THRU 99999"
818 [158]WI,16,16,18,22,.,4,3,0:[158]WI,17,17,17,21,.,16,0,0,1
820 RT[178]5:R1[178]17:R2[178]17:C1[178]17:C2[178]21:[141]65:[151]646,1:[137]102
822 FS[178]1721:LG[178]4:[141]1:IN$[178]XT$:IN[178]XT
824 [141]850:[139][194](1002)[178]1[167][159]15,8,15,"S0:LAST INV#":[160]15
825 [142]
850 [159]15,8,15:[159]5,8,5,"#"
855 [152]15,"U1";5;0;18;0:[152]15,"B-P";5;144
860 NM$[178]"":[129]L[178]1[164]8:[161]#5,HN$:[139]HN$[178]""[167]HN$[178][199](0)
865 NM$[178]NM$[170]HN$:[130]:[151]1002,0:[139]NM$[179][177]"LOADSTAR"[167][151]1002,1
870 [160]5:[160]15:[158]65511:[142]
900 [139][194](214)[179]18[167][141]3850:[141]34:[137]108
901 [141]34:[141]242
910 [158]WI,19,7,23,26,37120,1,0,0
918 [158]52005:[158]52063:[141]24
920 [141]57:[139][194](995)[167][141]17:[137]920
922 [141]50:[145]AA[137]4100,4100,4170,950
950 [141]34:[141]250
970 [141]57:[139][194](995)[167][141]17:[137]970
972 [141]50:[145]AA[137]4000,975,4200,980
973 [137]970
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
980 [141]34:[141]201:[141]226
985 [158]52261
987 RT[178]3:R1[178]19:R2[178]23:C1[178]7:C2[178]26:[141]65:[139]RP[178]4[167]576
988 [158]WI,19,7,23,26,37120,8,0,0
989 [139][194](38048)[178]30[167]RP[178]2
990 [151]646,1:[145]RP[137]578,800,578
1000 [141]3650:[141]3670:G[178]1
1003 [159]NF,DN,SE
1004 [152]NF,PG$;
1010 [139]BI[178]1[167][141]5700
1020 [158]51805
1022 [152]NF,L$;:[157]NF
1025 [151]251,201:[151]252,4
1027 [139]BI[178]0[167]1040
1030 [153]" SOLD TO:                                    ";
1031 [153]"DATE:           INVOICE:"
1032 [129]L[178]1[164]4:[153][199](10);:[130]L:[137]1110
1040 [153]"SOLD TO:  ";:[158]51488:[153]"       DATE:"DA$"  INVOICE:"IN$
1042 [153]"          ";:[151]251,241:[158]51488:[153]
1043 [153]"          ";:[151]251,25:[151]252,5:[158]51488:[153]
1044 [153]"          ";:[151]251,65:[158]51488:[153]
1045 [153]"          ";:[151]251,105:[158]51488:[153]
1110 [153]"-QTY-----PART NO.-----------DESCRIPTION-------";
1120 [153]"------------NET-------------EXT---"
1130 [139]BI[178]1[167]1210
1140 B[178]B[170]1:B4[178](B[171]1)[172]180[170]38079:B3[178](B[171]1)[172]590[170]38678
1150 [151]252,[181](B3[173]256):[151]251,B3[171][194](252)[172]256
1160 [151]254,[181](B4[173]256):[151]253,B4[171][194](254)[172]256
1165 [145]CN[137]1170,1175,1180
1170 [151]996,NI:SC[178]NI:[137]1200
1175 [145]B[137]1177,1178
1177 [151]996,10:SC[178]10:[137]1200
1178 [151]996,NI[171]10:SC[178]NI[171]10:[137]1200
1180 [145]B[137]1182,1182,1183
1182 [151]996,10:SC[178]10:[137]1200
1183 [151]996,NI[171]20:SC[178]NI[171]20:[137]1200
1200 [158]51665
1210 [129]L[178]1[164]14[171]SC:[153][199](10);:[130]L
1250 [139]BI[178]0[167]2010
1260 [153]"TAXABLE               *NON-TAXABLE               ";
1261 [153]"TAX           TOTAL":[137]2050
2010 [153]"  TAXABLE ";:XX[178]TX(G):[141]60:[153]XX$;
2014 [153]"  *NON-TAXABLE ";:XX[178]NT(G):[141]60:[153]XX$;
2016 [139]XR[178]0[167]XX[178]0:[137]2022
2018 [139]TX(G)[178]0[167]XX[178]0:[137]2022
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
2020 [139][202](XX$,L,1)[178]"."[167]XX$[178][200](XX$,L[170]2):XX[178][197](XX$)
2021 [130]L
2022 [141]60:[153]"  TAX ";:[153]XX$;
2026 XX[178]TX(G)[170]NT(G)[170]XX:[153]"  TOTAL $ ";:[141]60:[153]XX$
2040 [139]FF[178]1[167]2060
2050 [129]L[178]1[164]9:[152]NF,[199](10);:[130]L:[152]NF
2055 [145]FF[170]1[137]2100,2100,2070
2060 [152]NF,FF$;:[139]RP[178]6[167]2100
2061 [139]DI[167]2100
2062 [139]B[179]CN[167]2100
2063 [152]NF,OO$:[137]2100
2070 [139]BI[178]1[167]2100
2072 [139]RP[178]6[167]2100
2073 [139]B[179]CN[167]2100
2074 [139]DI[167]2100
2075 [129]L[178]1[164][194](40956)[171]1:[152]NF,[199](10);:[130]L:[152]NF
2080 [160]NF
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
2101 [160]NF:[139]BI[178]1[167]2105
2102 [139]DI[177]0[167]2360
2103 [160]NF:[139]B[179]CN[167]IN[178]IN[170]1:[139]IN[178]100000[167]IN[178]0
2104 [139]B[179]CN[167]G[178]G[170]1:LG[178]4:XT[178]IN:[141]7:IN$[178]XT$:[137]1003
2105 [139]BI[178]1[167]NC[178]NC[171]1:[139]NC[177]0[167]1003
2120 [139]BI[178]1[167]2260
2130 [141]3600
2260 A[178]1:TA[178]0:TT[178]0
2262 [129]L[178]1[164]3:TX(L)[178]0:NT(L)[178]0:[130]L
2265 [139][194](40933)[167]2270
2266 [137]2285
2270 [151]198,0:[141]3000
2285 [139]BI[178]1[167]BI[178]0:[137]400
2340 [139]RP[178]6[167]4835
2345 [139]RP[178]7[167]400
2350 [151]198,0:[137]500
2360 [139]DI[178]1[167]DI[178]2:B[178]B[171]1:[137]1003
2362 DI[178]1:[139]B[178]CN[167]DI[178]0
2364 [137]2103
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]
3000 [139]BI[178]1[167][142]
3001 [139]RP[178]6[167][142]
3005 [153]"LOAD":[151]214,10:[153]:[153][166]10)"(null)EAR OFF INVOICE..."
3006 [153]:[153][166]10)"...THEN, HIT ANY KEY"
3010 [146]198,1
3015 [139]RF$[178]""[167]3100
3020 [159]NF,DN,SE:[152]NF,RF$;:[160]NF:[142]
3100 [159]NF,DN,SE:[129]L[178]1[164][194](40956):[152]NF,RL$;:[130]:[160]NF:[142]
3600 [141]850:[139][194](1002)[178]1[167]3605
3601 IN[178]IN[170]1:[139]IN[178]100000[167]IN[178]0
3602 LG[178]4:XT[178]IN:[141]7:IN$[178]XT$:[142]
3605 [159]15,8,15,"S0:LAST INV#":[160]15:[159]5,8,5,"0:LAST INV#,S,W"
3610 [152]5,IN$:[160]5:IN[178]IN[170]1:[139]IN[178]100000[167]IN[178]0
3611 LG[178]4:XT[178]IN:[141]7:IN$[178]XT$:[142]
3650 NI[178][194](38048):B[178]0
3655 [139]NI[179]11[167]CN[178]1:[142]
3660 [139]NI[179]21[167]CN[178]2:[142]
3665 [139]NI[179]31[167]CN[178]3:[142]
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
3680 NT(L)[178]NT(L)[170]EX(((L[171]1)[172]10)[170]M):[137]3690
3685 TX(L)[178]TX(L)[170]EX(((L[171]1)[172]10)[170]M)
3690 [130]:[130]:[142]
3804 [141]34:[141]15:[137]684
3840 [129]L[178]1[164]2:[141]3850:[130]:[142]
3845 [129]L[178]1[164]3:[141]3850:[130]:[142]
3850 S[178]54272
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
3860 [151]S[170]4,32[170]1
3865 [129]L1[178]1[164]50:[130]
3875 [151]S[170]4,0:[151]S[170]24,0
3880 [142]
3900 PO[178]0:LB[178][194](768):HB[178][194](769)
3915 [151]768,[194](812):[151]769,[194](813):[141]182
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)"
3925 [160]NF:[159]NF,DN,SE:[152]NF,"";
3930 [151]214,15:[153]:[153]"                        "
3935 [139][194](144)[175]128[178]128[167]3945
3940 [151]768,LB:[151]769,HB:[160]NF:PO[178]1:[141]182:[142]
3945 [151]768,LB:[151]769,HB
3950 [129]L[178]1[164]3:[141]3850:[130]
3951 [151]198,0:[151]214,13:[153]:[153]"OPEN  LENLEFT$VALLEN(null)CLOSERIGHT$ASCCLOSE(null)(null)RIGHT$(null)(null)VAL(null)
3952 PRINT"   IS[160][213][206][200][207][207][203][197][196] OR
3953 [153]"   (null)(null)RIGHT$(null)LENLEFT$VALSTR$CLOSE(null)ASCASC...
3955 PRINT:PRINT"  [212]HEN HIT [158]   SPACE BAR   [146]":PRINT"[159]   TO CONTINUE----
3960 [153]:[153]"  LEFT$IT ANY OTHER KEY"[199](13)"   TO ABORT FUNCTION
3970 GOSUB57:IFPEEK(197)=60THEN3915
3974 POKE768,LB:POKE769,HB:GOSUB182:RETURN
4000 GOSUB34
4001 XX=TX+NT:IFXX=0THENXX$="  .00    ":GOTO4006
4002 XX=NT+TX*(1+XR)
4004 XX=XX+.005:IFXX<=0THENXX=XX-.01
4005 GOSUB60:XX$=XX$+MID$("        ",LEN(XX$))
4006 POKE214,1:PRINT:PRINTSPC(30)"[159]  [212][207][212][193][204]  ":PRINTSPC(30)" EQUALS  "
4010 PRINTSPC(30)"";XX$
4012 GOTO970
4100 ONAAGOTO4120,4150
4120 IFPEEK(38049)=1THENGOSUB3850:GOTO4130
4122 SYS51781
4124 POKE38049,PEEK(38049)-1
4130 GOSUB34:GOTO920
4150 IFPEEK(38049)=PEEK(38048)+1THENGOSUB3850:GOTO4130
4155 POKE38049,PEEK(38049)+1
4160 SYS51794:IFPEEK(38049)=PEEK(38048)+2THENSYS52022
4164 GOSUB34:GOTO920
4170 IFPEEK(38049)>PEEK(38048)THENGOSUB34:GOSUB3850:GOTO920
4180 SYS52375:GOSUB34
4185 IFPEEK(1006)=1THENRP=4:POKE1006,0
4187 G=PEEK(38049)
4190 POKE646,0:GOSUB42:POKE1003,0:POKE3302,32
4191 FORL=GTOPEEK(38048)+1:EX(L)=EX(L+1):NEXTL:G=PEEK(38048)+1
4192 GOTO920
4200 IFPEEK(38049)>PEEK(38048)THENGOSUB3850:GOTO4240
4210 GOSUB26:RT=11:POKE646,1:N1=PEEK(38049)-1:GOSUB18200
4212 G=N1+1:ONPEEK(1951)AND1GOTO4214
4213 NT=NT-EX(G):EX(G)=0:GOTO108
4214 TX=TX-EX(G):EX(G)=0:GOTO108
4220 POKE38048,PEEK(38048)-1:N1=PEEK(38048):GOSUB18200
4240 GOSUB34:GOTO980
4300 GOSUB180
4301 IFPEEK(214)<18THENGOSUB3850:GOTO4320
4302 IFPEEK(1005)=0THENGOSUB3850:GOTO4330
4303 GOTO4340
4320 GOSUB56:PRINT"[158]  [217]OU MUST HIT  [210][197][212][213][210][206] [146]
4321 [153]" ON THE FIFTH LINE, FIRST."
4322 [153]:[153]"LIST  LEFT$IT ANY KEY TO CONTINUE":[151]646,1
4323 [141]57:[141]184:[141]34:[151]214,4:[153]:[153][166]1):[137]108
4330 [141]56:[153]"SYS    ATNN INVOICE WITHOUT":[153]"     A CUSTOMER NAME
4331 PRINT"     CANNOT BE SAVED.":PRINT"[155]  [200]IT ANY KEY TO CONTINUE
4333 [141]57:[141]184:[141]34:[141]24:[151]646,1
4334 [139][194](38048)[178]30[167]800
4335 [141]26:ME[178]1:[137]108
4340 [151]214,255:[153]:[153][166]28)"         ":[153][166]228)"         "
4343 [151]646,0:[151]214,255:[153]:[153][166]28)[196](TX):[153][166]228)[196](NT)
4344 [139]MQ[167][142]
4346 [141]850:[139][194](1002)[178]1[167]4352
4347 [141]182:[141]3845:I[178]3:[141]20000:[141]34
4348 [153][166]6)"LIST-LEFT$RIGHT$(null) ATN(null)(null) (null)VAL(null)-ON
4349 POKE646,1:GOTO4333
4352 OPEN15,8,15
4354 FORL=1TO15
4358 OPEN5,8,5,"0:INV.SAVE"+STR$(L)+",S,R"
4362 INPUT#15,EN:IFEN=0THENCLOSE5:NEXTL:CLOSE15:GOTO4375
4366 IFEN=62THENCLOSE5:CLOSE15:GOTO4470
4370 CLOSE5:NEXTL:CLOSE15
4375 SYSWI,7,29,11,39,.,4,9,0:I=4:GOSUB3845:GOSUB20000:GOTO4333
4470 GOSUB56:PRINT"[158]   SAVING INVOICE...":OPEN5,8,5,"0:INV.SAVE"+STR$(L)+",S,W"
4478 SYS52672:CLOSE5:SYS65511:GOTO500
4500 FORPO=2TO5:POKE2080+PO-1,ASC(MID$(NN$,PO,1)):NEXTPO:RETURN
4600 NN$="0000"
4610 FORPO=1TO4:POKE2080+PO,ASC(MID$(NN$,PO,1)):NEXTPO:RETURN
4700 IFM=0THEN3804
4710 GOSUB38
4718 GOSUB20090
4720 OPEN5,8,5,"0:INV.SAVE"+STR$(PEEK(828+LI))+",S,R"
4724 SYS51632:SYS52875:CLOSE5:SYS65511
4726 IFPEEK(38048)=0THEN4735
4727 GOSUB180:GOSUB3900:IFPO=0THEN400
4728 OPEN15,8,15,"S0:INV.SAVE"+STR$(PEEK(828+LI)):CLOSE15
4729 GOSUB52
4730 I=2:GOSUB20000:RP=7:IFPEEK(40934)=1THENDI=1
4731 GOTO1000
4735 SYSWI,1,29,5,39,.,4,9,0
4736 GOSUB3845:I=5:GOSUB20000:I=6:GOSUB20000
4743 GOSUB57:IFPEEK(631)=134THEN4750
4744 IFPEEK(631)=135THEN4746
4745 GOSUB21:GOTO4743
4746 SYSWI,4,0,24,27,.,18,0,0,7
4747 SYSWI,5,1,19,26,37120,8,0,0:GOTO642
4750 IFM=0THEN3804
4752 SYSWI,4,0,24,27,.,2,0,0:SYSWI,4,0,10,27,.,4,2,0:GOSUB24:GOSUB20090
4760 OPEN5,8,5,"0:INV.SAVE"+STR$(PEEK(828+LI))+",S,R"
4762 SYS51632:SYS52875:CLOSE5:SYS65511
4764 OPEN15,8,15,"S0:INV.SAVE"+STR$(PEEK(828+LI)):CLOSE15
4765 IFPEEK(38048)>0THENGOSUB52
4766 G=1:RP=1:GOSUB2400:POKE1006,0:IFPEEK(38048)=30THENPOKE1006,1
4767 POKE38049,PEEK(38048)+1:GOSUB276:GOSUB226
4770 N1=PEEK(38048):GOSUB18200
4775 SYSWI,7,29,11,39,.,4,9,0
4776 GOSUB182:GOSUB24
4780 FU=4:EI=1:POKE1005,1:POKE214,3:PRINT:PRINTSPC(2)"    SOLD TO    ":GOTO549
4800 IFM=0THEN3804
4801 PH=M:PL=0:RP=6
4810 GOSUB38
4820 OPEN5,8,5,"0:INV.SAVE"+STR$(PEEK(828+PL))+",S,R"
4824 SYS51632:SYS52875:CLOSE5:SYS65511
4826 IFPEEK(38048)=0THEN4835
4827 GOSUB180:GOSUB3900:IFPO=0THEN400
4830 OPEN15,8,15,"S0:INV.SAVE"+STR$(PEEK(828+PL)):CLOSE15
4831 GOSUB52
4832 I=2:GOSUB20000:I=1:GOSUB20020:IFPEEK(40934)=1THENDI=1
4833 GOTO1000
4835 PL=PL+1:IFPL=PHTHEN400
4840 GOTO4820
5000 SYS51889:IFPEEK(1005)=0THENAC=0:GOTO5200
5155 IFJ1=0THENGOSUB68:J1=1:AO=1:GOTO5160
5156 IFJ2=0THENGOSUB37:J2=1:AO=2:GOTO5160
5157 IFJ3=0THENGOSUB66:J3=1:AO=0:GOTO5160
5158 GOSUB3840:GOTO108
5160 MC=MC+1:GOSUB5300
5180 MQ=1:GOSUB4340:MQ=0:SYS51618:GOSUB64:SYS53128
5182 SYS51889:SYS51935:GOSUB182:GOTO501
5200 AC=AC+1:IFAC=4THEN5158
5215 ONAOGOTO5230,5240
5220 AO=1:IFJ1=1THENGOSUB68:J1=0:GOTO5260
5225 GOTO5200
5230 AO=2:IFJ2=1THENGOSUB37:J2=0:GOTO5260
5235 GOTO5200
5240 AO=0:IFJ3=1THENGOSUB66:J3=0:GOTO5260
5245 GOTO5200
5260 MC=MC-1:GOSUB5300
5280 GOSUB64:SYS53169:SYS51970:GOTO4765
5300 POKE214,0:PRINT:PRINTSPC(13)"[158]"MC:RETURN
5500 GOSUB291
5505 POKE646,15:POKE214,3:PRINT:PRINT"  [197]NTER NUMBER OF BLANK":BN=0
5510 PRINT" INVOICES DESIRED..."
5520 PRINT"   ...FROM 01-99"
5525 PRINT"  [197]NTER 00 TO ABORT"
5530 SYSWI,8,7,10,10,.,4,3,0:SYSWI,9,8,9,9,.,16,0,0,1
5540 RT=4:R1=9:R2=9:C1=8:C2=9:GOSUB65:GOTO102
5600 FS=1392:LG=1:GOSUB1:NC=XT:IFXT=0THEN400
5635 POKE214,8:PRINT:PRINTSPC(11)"[159][208][210][201][206][212][201][206][199] #"
5637 GOSUB3900:IFPO=0THEN400
5640 I=1:GOSUB20020
5650 SC=1:BI=1:RP=5:GOTO1003
5700 BN=BN+1:POKE214,8:PRINT:PRINTSPC(23)"      "
5710 POKE214,8:PRINT:PRINTSPC(23)""BN
5720 RETURN
9500 GOSUB10000:IFEN<>63THENGOSUB11000:GOTO9520
9515 D(0)=1
9520 GOSUB10020:IFEN<>63THENGOSUB11010:GOTO9540
9530 D(1)=1
9540 GOSUB10050:IFEN<>63THENGOSUB11200:GOTO9570
9550 D(2)=1
9570 IFD(0)=1THENSYS49906
9580 IFD(1)=1THENSYS49986:FS=40906:LG=3:GOSUB1:XR=XT/10000
9590 IFD(2)=1THENSYS50030:ONPEEK(40929)+1GOSUB11200,11100,11300
9700 RETURN
10000 D(0)=0:OPEN15,8,15,"R0:INV.NAME=INV.NAME":INPUT#15,EN:CLOSE15:RETURN
10020 D(1)=0:OPEN15,8,15,"R0:INV.ITEM=INV.ITEM":INPUT#15,EN:CLOSE15:RETURN
10050 D(2)=0:OPEN15,8,15,"R0:INV.PRNT=INV.PRNT":INPUT#15,EN:CLOSE15:RETURN
11000 POKE214,6:PRINT:POKE646,0
11001 RESTORE:FORH=0TO6:READHL$(H):NEXT
11002 SYSWI,5,0,13,27,.,18,0,0,0
11003 PRINT" "HL$(0):PRINT" "HL$(4):PRINT" "HL$(1)QO$HL$(2):PRINT" "HL$(5)
11004 PRINT" "HL$(3)QO$:PRINT" "HL$(6)
11008 SYS51349:RETURN
11010 XR=VAL(XR$)
11020 POKE214,6:PRINT:SYSWI,5,0,13,27,.,18,0,0,0:POKE646,0:GOSUB282
11021 POKE214,6:PRINT
11022 PRINTSPC(7)Q$:PRINTSPC(7)P$:PRINTSPC(7)D$:PRINTSPC(7)PR$:PRINTSPC(7)X$
11024 PRINTSPC(7)XR$
11040 SYS53184:RETURN
11050 DATA"   [204]OAD[211][212][193][210] - - [211]OFTDISK,
11051 [131]"RIGHT$NC.           ","(null)HE (null)ONTHL
11052 DATA"Y [211]OFTWARE [195]OLLECTION
11053 [131]"     (null).(null). PEEKOX 30008
11054 DATA"[211]HREVEPORT, [204][193] 71130-0008
11055 [131]"      (318) 221-8718
11100 E$=CHR$(27):PT=1:POKE40929,PT:POKE40933,1:PG$=E$+CHR$(67)+CHR$(33)
11125 FF=1:FF$=CHR$(12):NF=4:SE=7
11127 POKE40931,0:POKE40932,NF:RF$=E$+CHR$(12):DN=PEEK(40928)
11130 OO$=E$+CHR$(74)+CHR$(PEEK(40930)):RETURN
11200 E$="":PT=0:POKE40929,PT:DN=PEEK(40928):NF=4:POKE40932,NF:SE=7
11210 PG$="":FF=0:FF$="":OO$="":RL$="":POKE40931,0:POKE40933,0:RETURN
11300 E$="":PT=2:POKE40929,PT:DN=PEEK(40928)
11302 NF=PEEK(40952):POKE40932,NF
11304 PG$="":RF$="":RL$=""
11310 FF=0:FF$="":OO$="":POKE40931,PEEK(40954)
11312 POKE40933,0:IF(PEEK(40935)AND4)=4THENPOKE40933,1:FF=2
11314 IFPEEK(40933)=0THEN11340
11320 IF(PEEK(40935)AND8)=0THEN11330
11322 FORL=40937TO40937+PEEK(40936)-1:PG$=PG$+CHR$(PEEK(L)):NEXT
11324 IF(PEEK(40935)AND1)=0THEN11330
11326 FORL=40943TO40943+PEEK(40942)-1:RF$=RF$+CHR$(PEEK(L)):NEXT:GOTO11340
11330 FORL=40947TO40947+PEEK(40946)-1:RL$=RL$+CHR$(PEEK(L)):NEXT
11340 SE=PEEK(40953)
11350 RETURN
12400 GOSUB200:GOSUB284:GOSUB222
12410 GOSUB57:IFPEEK(995)THENGOSUB19:GOTO12410
12420 GOSUB50:ONAAGOTO12500,14000,300,15000
12500 GOSUB200:GOSUB278:GOSUB214
12510 SYS51367:SYSWI,6,0,13,27,.,20,15,0,15
12600 GOSUB57:IFPEEK(631)=80THEN12620
12602 IFPEEK(995)THENGOSUB19:GOTO12600
12610 GOSUB50:ONAAGOTO13000,12700,12400,12800
12620 SYSWI,6,0,13,27,.,2,0,0:GOSUB3900:IFPO=0THEN12500
12624 OPENNF,DN,SE:SYS51805:PRINT#NF,L$:FORL=1TO11:PRINT#NF,CHR$(10);:NEXT
12626 PRINT#NF:CLOSENF:GOTO12500
12700 GOSUB10000:IFEN=63THENSYS49906:GOTO12500
12710 GOSUB11000:GOTO12500
12800 GOSUB850:IFPEEK(1002)=1THEN12810
12802 GOSUB3845:I=3:GOSUB20000:GOSUB34:GOTO12600
12810 OPEN15,8,15,"S0:INV.NAME":CLOSE15:SYS49922:GOTO12500
13000 POKE998,1:PRINT"[147][154]  [204]ISTED BELOW ARE THE CURRENT DEFAULTS
13002 [153]" THAT ARE TO BE PRINTED AT THE TOP OF":[153]" EACH INVOICE.
13006 PRINT"  [217]OU MAY MAKE ANY DESIRED CHANGES AND
13008 [153]" ARRANGE IN ANY ORDER THAT YOU CHOOSE.":[141]18700
13020 [153]"PRINT#LINE1-LEFT":[153]"LINE2-LEFT":[153]"LINE1-CENTER
13023 PRINT"LINE2-CENTER":PRINT"LINE1-RIGHT":PRINT"LINE2-RIGHT
13030 [158]WI,11,13,16,38,.,16,7,0,1:[158]WI,10,12,17,39,.,4,7,0
13040 R1[178]11:R2[178]16:C1[178]13:C2[178]38:RT[178]6:[141]65
13045 [153]"CONT   LEFT$IT  (null)VAL(null)(null)(null)(null) WAIT ON THE BOTTOM LINE "
13046 [153]"     WHEN FINISHED."
13050 [158]51373
13060 [137]102
13065 [158]51355
13090 [151]998,0:[137]12500
14000 [141]200:[141]286:[141]214
14020 [158]53202:[151]214,11:[153]:[153][166]1)"TX/RT:":[158]WI,6,0,13,27,.,16,0,0,15
14050 [158]WI,6,0,13,27,.,4,15,0
14100 [141]57:[139][194](995)[167][141]19:[137]14100
14110 [141]50:[145]AA[137]14200,14300,12400,14400
14200 [153]"LOADCONT  (null)ISTED BELOW ARE THE CURRENT DEFAULTS
14202 PRINT" THAT ARE AUTOMATICALLY ENTERED FOR YOU
14204 [153]" AT THE START OF EACH ITEM ENTRY ALONG
14205 PRINT" WITH YOUR STATE SALES TAX RATE.
14206 [153]"  (null)OU MAY CHANGE THESE TO SUIT YOUR
14208 PRINT" PARTICULAR APPLICATION.":GOSUB18700:SYS53208
14220 PRINT"[152]   8 CHAR'S":PRINT"  20 CHAR'S":PRINT"  20 CHAR'S
14223 [153]"   8 CHAR'S":[153]"   1 CHAR.":[153]"   5 CHAR'S SYS TX/RT:
14226 SYSWI,11,13,16,18,.,16,0,0,7:SYSWI,11,19,16,38,.,16,0,0,1
14235 SYSWI,10,12,17,39,.,4,7,0
14240 R1=11:R2=16:C1=19:C2=38:RT=7:GOSUB65
14242 PRINT"[155][197]XAMPLE: [201]F YOUR SALES TAX RATE (TX/RT)
14243 [153]"  IS 4.5 PERCENT, THEN ENTER .0450
14244 PRINT" ([217]OU MUST ENTER 4 DECIMAL PLACES)
14245 [153]"CONT   LEFT$IT  (null)VAL(null)(null)(null)(null) WAIT ON THE BOTTOM LINE":[153]"     WHEN FINISHED.
14260 GOTO102
14265 FS=1684:LG=3:R1=16:C1=20:GOSUB1:XR=XT/10000:SYS53190:GOTO14000
14300 GOSUB10020:IFEN=63THENSYS49986:GOTO14000
14310 GOSUB11010:GOTO14000
14400 GOSUB850:IFPEEK(1002)=1THEN14410
14402 GOSUB3845:I=3:GOSUB20000:GOSUB34:GOTO14100
14410 OPEN15,8,15,"S0:INV.ITEM":CLOSE15:SYS50002:GOTO14000
15000 GOSUB200:GOSUB288:GOSUB214:GOSUB15350:GOSUB15450
15100 GOSUB57:IFPEEK(995)THENGOSUB19:GOTO15100
15110 GOSUB50:ONAAGOTO15200,15600,12400,15120
15120 GOSUB850:IFPEEK(1002)=1THEN15130
15122 GOSUB3845:I=3:GOSUB20000:GOSUB34:GOTO15100
15130 OPEN15,8,15,"S0:INV.PRNT":CLOSE15:SYS50046:GOTO15000
15200 GOSUB200:GOSUB292:GOSUB230:GOSUB15350:GOSUB15450
15250 GOSUB57:IFPEEK(995)THENGOSUB19:GOTO15250
15260 GOSUB50:GOSUB34:ONAAGOTO15300,15400,15000,15500.
15300 IFTG=1THENTG=0:GOTO15330
15310 IFDN=4THENDN=5:TG=1:GOSUB15350:GOTO15250
15320 IFDN=5THENDN=4:TG=1:GOSUB15350:GOTO15250
15330 IFPEEK(40934)=0THENPOKE40934,1:GOSUB15350:GOTO15250
15340 IFPEEK(40934)=1THENPOKE40934,0:GOSUB15350:GOTO15250
15350 POKE214,6:PRINT:PRINT"[155]DEVICE#:[158]"DN"[155] COPIES:[158]"PEEK(40934)+1
15352 POKE40928,DN:RETURN
15400 IFPT=0THENGOSUB11100:GOSUB15450:GOTO15250
15410 IFPT=1THENGOSUB11300:GOSUB15450:GOTO15250
15420 IFPT=2THENGOSUB11200:GOSUB15450:GOTO15250
15450 POKE214,8:PRINT:PRINT"[155]PRINTER:":PRINT"[158]   "PT$(PT):POKE40929,PT:RETURN
15500 IFPT=0THENGOSUB3850:GOTO15590
15510 IFPT=2THEN15700
15550 PRINT"[147][154]  [193]FTER PRINTING AN INVOICE, DOES THE
15552 [153]" PAPER ADVANCE SO THAT THE PERFORATIONS
15554 PRINT" LINE UP EXACTLY AT THE TEAR-OFF POINT?
15555 [153]"  RIGHT$F NOT, THEN CHANGE THE SETTING BELOW
15556 PRINT" TO ADVANCE IT MORE OR LESS.":GOSUB18700
15561 LG=2:XT=PEEK(40930):GOSUB7
15562 PRINT"[155]   [208]APER ADVANCES "XT$ " [155]/216TH'S INCH
15574 RT[178]8:[141]59
15578 [153]"LIST   *VALNTER NUMBER BETWEEN 000 AND 255
15580 PRINT"[154]     [200]IT  [210][197][212][213][210][206] [146] WHEN FINISHED
15584 [158]WI,10,17,12,21,.,4,7,0:[137]102
15586 FS[178]1482:LG[178]2:[141]1:[139]XT[177]255[167]10
15587 [151]40930,XT:[141]11130:[137]15200
15590 [141]180:[141]56:[153]"OPEN   (null)HIS PRINTER SELECTION
15591 PRINT"    MAY NOT BE ALTERED.":PRINTSPC(6)"-[200]IT ANY KEY-
15594 [141]57:[141]184:[141]34:[137]15250
15600 OT[178][194](40930)
15601 [141]10050:[139]EN[178]63[167][158]50030:PT[178][194](40929):[139]PT[167]15650
15605 [151]40930,OT:[139]EN[179][177]63[167][151]40928,4
15610 [141]11200:[137]15000
15650 [139]PT[178]1[167][141]11100:[137]15000
15660 [137]15000
15700 [151]40935,0:TP[178]0
15701 [153]"LOADCONT":[151]214,4:[153]:[153][166]5)"(null)OAD YOUR PRINTER WITH STANDARD
15702 PRINTSPC(5)"8.5 X 11 COMPUTER PAPER AND LINE
15704 [153][166]4)"UP THE PERFORATIONS ON THE BOTTOM
15705 PRINTSPC(6)"OF THE SHEET AT APPROXIMATELY
15706 [153][166]2)"7/8THS TO 1 INCH ABOVE THE PRINT HEAD.":[141]18500
15710 [139]TP[178]1[167]15800
15720 TP[178]1:[151]214,4:[153]:[153][166]5)"CONTASCROM THIS POINT, DO YOU HAVE TO
15722 PRINTSPC(6)"ADVANCE THE PAPER IN ORDER TO
15724 [153][166]11)"TEAR OFF THE SHEET?":[141]18520
15725 [139][194](631)[179][177]89[167]15750
15726 CS$(0)[178]"(null)ETTING THE PAGE LENGTH TO":CS$(1)[178]"33 LINES (OR 5.5 INCHES)"
15727 [151]40935,4:[141]18600:[153][166]7)CS$(0)"":[153][166]7)CS$(1)"?"
15728 [141]18520:[139][194](631)[179][177]89[167]15734
15729 [151]40935,12
15730 CS$(2)[178]"(null)EVERSE SCROLLING TO TOP OF":CS$(3)[178]"CURRENT PAGE"
15731 [141]18600:[153][166]6)CS$(2):[153][166]13)CS$(3)"?"
15732 [141]18520:[139][194](631)[179][177]89[167]15734
15733 [151]40935,13:[137]15740
15734 CS$(4)[178]"(null)EVERSE LINEFEEDS"
15735 [141]18600:[153][166]6)CS$(4)"?":[141]18520
15736 [139][194](631)[179][177]89[167][151]40935,0:[137]15750
15738 [151]40935,[194](40935)[176]2
15740 [139]([194](40935)[175]8)[178]0[167]15748
15742 Y1[178]0:Y2[178]1:ML[178]40936:MN[178]4:[141]16000
15744 [139]([194](40935)[175]1)[178]0[167]15748
15746 Y1[178]2:Y2[178]3:ML[178]40942:MN[178]3:[141]16000:[137]15750
15748 Y1[178]4:Y2[178]5:ML[178]40946:MN[178]3:[141]16000
15750 [141]18600:[153][166]7)"ATNUTOMATIC LINEFEEDS AFTER
15752 PRINTSPC(11)"CARRIAGE RETURNS?":GOSUB18520
15754 IFPEEK(631)=89THENNF=4:GOTO15758
15756 NF=132
15758 POKE40952,NF
15760 GOSUB18600:PRINTSPC(5)"[195]OMMODORE MODE OR [193][211][195][201][201] MODE?
15762 [153][166]15)"SYS LEN WAIT OR  ATN WAIT ?
15764 GOSUB18550:IFPEEK(631)=65THENPOKE40954,1:GOTO15768
15766 POKE40954,0
15768 POKE214,4:PRINT:PRINTSPC(4)"[154][197]NTER THE SECONDARY ADDRESS THAT
15770 [153][166]5)"SHOULD BE SENT TO YOUR PRINTER
15772 PRINTSPC(13)"(NORMALLY 007)
15774 RT[178]10:[141]59
15776 [153]:[153]"LIST   *VALNTER NUMBER BETWEEN 000 AND 255"
15778 [158]WI,10,17,12,21,.,4,7,0:[137]102
15780 FS[178]1482:LG[178]2:[141]1:[139]XT[177]255[167]10
15782 SE[178]XT:[151]40953,SE
15790 [139]([194](40935)[175]4)[178]0[167]15850
15792 [137]15701
15800 [141]3900:[139]PO[178]0[167][151]40935,0:[141]11200:[137]15200
15805 [153]"LOAD":[151]214,8:[153]:[153][166]4)"LISTLEFT$IT SYS F1 WAITLIST UNTIL THE PERFORATIONS
15810 PRINT"LINE UP WITH THE DESIRED TEAR-OFF POINT
15812 [153][166]7)"AND THEN HIT ANY OTHER KEY
15815 OPENNF,DN,SE:L=0
15820 GOSUB57:IFPEEK(631)=133THENPRINT#NF," ":L=L+1:GOTO15820
15830 CLOSENF:POKE40956,L
15850 GOSUB11300:GOTO15200
16000 PRINT"[147][154]  [197]NTER THE COMMAND STRING FROM YOUR
16002 [153]" PRINTER MANUAL FOR THE FEATURE THAT
16004 PRINT" ALLOWS: [158]"CS$(Y1)
16005 PRINTSPC(((44-LEN(CS$(Y2)))/2))""CS$(Y2)
16006 PRINT"[154]  [198]OR COMMANDS THAT ARE 'LETTERS',
16008 [153]" USE THE ATN(null)LENRIGHT$RIGHT$ EQUIVALENTS.":[141]18700
16020 [153]"OPEN";:[129]L[178]1[164]MN:[153]"CHR$(   );";:[130]
16030 RT[178]9:[141]59
16032 [153]:[153]"LIST   *VALNTER NUMBER BETWEEN 000 AND 255"
16034 [153]"    (null)VAL(null)(null)(null)(null) WAIT TO ENTER THE NUMBER...
16035 PRINT"      F1 [146] TO END THE STRING...
16040 [158]WI,10,17,12,21,.,4,7,0:CT[178]1:[137]102
16050 FS[178]1482:LG[178]2:[141]1:[139]XT[177]255[167]10
16055 [139][194](631)[178]133[167][142]
16060 [151]214,8:[153]:[153][166]CT[172]5[170](CT[171]1)[172]5)"SYS"XT$
16070 [151]ML,CT:[151]ML[170]CT,XT:[139]CT[178]MN[167][142]
16080 CT[178]CT[170]1:[137]11
16500 [139][194](631)[178]133[167][142]
16510 [137]108
18000 FT[178]0:[137]300
18100 [153]"LOAD":[141]56:[153][166]10)"OPENRELEASE SYS  SPACE BAR  WAIT"
18110 [146]203,64:[141]56:[153]"  ((null)OU MAY HAVE TO REALIGN YOUR PAPER)"
18120 [153][166]7)"SYS-HIT ANY KEY TO CONTINUE-":[141]57:[137]400
18200 [151]179,[181]((38678[170]N1[172]59)[173]256)
18210 [151]178,(38678[170]N1[172]59)[171][194](179)[172]256
18220 [151]181,[181]((38079[170]N1[172]18)[173]256)
18230 [151]180,(38079[170]N1[172]18)[171][194](181)[172]256:[142]
18500 [153][166]7)"LIST- LEFT$IT ANY KEY WHEN READY -":[137]18550
18520 [153][166]14)"SYS (null) WAITES /  (null) WAITO":[137]18550
18550 [141]57:[153]"LOAD":[151]198,0:[142]
18600 [153]"LOAD":[151]214,6:[153]:[153]"CONTSTR$OES YOUR PRINTER SUPPORT:LIST":[142]
18700 [153]"POKETOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO":[142]
20000 [145]I[141]20100,20240,20130,20140,20160,20170,20180,20200,20210,20220,20230
20010 [151]214,I3:[153]:[129]I1[178]0[164]I2:[153][166]I4)I$(I1):[130]:[142]
20020 [145]I[141]20250,20260
20030 [137]20010
20090 [141]56:[153]"LIST   (null)OADING INVOICE...":[142]
20100 I2[178]5:I3[178]11:I4[178]2
20101 I$(0)[178]"SYS-VALNTER CUSTOMER NAME ON
20102 I$(1)="  FIRST LINE
20105 I$(2)[178]"-ASCOR 'LENASH (null)ALE', LEAVE
20106 I$(3)="  WINDOW EMPTY
20109 I$(4)[178]"-LEFT$IT  (null)VAL(null)(null)(null)(null) WAIT  ON FIFTH
20110 I$(5)="  LINE WHEN FINISHED":RETURN
20124 I$(3)=""
20125 I$(4)="[155]   -[200]IT ANY KEY-":RETURN
20130 I2=4:I3=16:I4=2
20131 I$(0)="[158]  [213]NABLE TO PERFORM
20132 I$(1)[178]" THIS OPERATION WITH
20133 I$(2)=" THE [204]OAD[211][212][193][210] [196]ISK!!!
20135 I$(3)[178]"OPEN (null)LEASE REFER TO THE
20136 I$(4)="SUPPLIED DOCUMENTATION":RETURN
20140 I2=4:I3=13:I4=2
20141 I$(0)="[158]    [213][206][193][194][204][197][160][212][207][160][211][193][214][197]"
20142 I$(1)=" [212]HIS PROGRAM ALLOWS A
20143 I$(2)[178]"MAXIMUM OF 15 INVOICES
20144 I$(3)="   SAVED PER DISK.
20150 I$(4)[178]"LIST     -LEFT$RIGHT$(null) ATN(null)(null) (null)VAL(null)-ON":[142]
20160 I2[178]2:I3[178]14:I4[178]3
20161 I$(0)[178]"SYS(null)NABLE TO PRINT AN
20162 I$(1)="INVOICE WITHOUT ANY
20163 I$(2)[178]"ITEMS LISTED ON IT":[142]
20170 I2[178]3:I3[178]18:I4[178]3
20171 I$(0)[178]"LIST (null)RESS 'F3' TO EDIT
20172 I$(1)="THE INVOICE OR PRESS
20173 I$(2)[178]" 'F5' TO SELECT A
20174 I$(3)=" DIFFERENT INVOICE":RETURN
20180 I2=5:I3=12:I4=2
20181 I$(0)="[158]      [215][193][210][206][201][206][199][160]!!!
20182 I$(1)[178]" (null)HIS WILL ERASE THE
20183 I$(2)="  DISPLAYED INVOICE...
20187 I$(3)[178]"CONT  -LEFT$IT 'F5' AGAIN-
20188 I$(4)="[155]  [193]NY OTHER KEY TO
20189 I$(5)[178]"  'RETURN TO EDIT'":[142]
20200 I2[178]5:I3[178]4:I4[178]1
20201 I$(0)[178]"SYS((null)OTE: (null)RESSING 'F1' DOES
20202 I$(1)="  NOT ERASE THE PROGRAM)
20203 I$(2)[178]""
20204 I$(3)[178]"  (null)RESS 'F7' IF THE MAIN
20205 I$(4)="   PROGRAM DISK HAS NOT
20206 I$(5)[178]"  REMAINED IN THE DRIVE.":[142]
20210 I2[178]2:I3[178]18:I4[178]1
20211 I$(0)[178]"CONT  (null)RESS  _ WAIT TO LOG-IN A
20212 I$(1)="NEW DISK. [208]LEASE REFER TO
20213 I$(2)[178]"THE SUPPLIED DOCUMENTATION":[142]
20220 I2[178]1:I3[178]18:I4[178]2
20221 I$(0)[178]"OPEN(null)HE (null)OAD(null)(null)ATN(null) STR$ISK MUST BE
20222 I$(1)="  IN THE DRIVE...":RETURN
20230 I2=1:I3=18:I4=2
20231 I$(0)="[159][213]NABLE TO RETURN TO THIS
20232 I$(1)[178]"   (null)OAD(null)(null)ATN(null) STR$ISK...":[142]
20240 I2[178]2:I3[178]14:I4[178]3
20241 I$(0)[178]"SYS -(null)LEASE (null)AIT-
20243 I$(1)="[155][208]RINTING [201]NVOICE
20247 I$(2)[178]" & UPDATING RIGHT$NV#":[142]
20250 I2[178]0:I3[178]23:I4[178]0
20251 I$(0)[178]"HOLD SYS SPACE BAR WAIT TO ABORTON":[142]
20260 I2[178]4:I3[178]12:I4[178]2
20261 I$(0)[178]"SYS  (null)HERE ARE NO IVOICES
20262 I$(1)=" STORED ON THIS DISK...
20264 I$(2)[178]"LIST  (null)O TRY ANOTHER DISK,
20265 I$(3)="PRESS 'F5' AND THEN 'F3'
20266 I$(4)[178]"TO REENTER THIS ROUTINE":[142]
22000 [139][194](214)[179]18[167]400
22010 [141]3845:[141]180:I[178]7:[141]20000
22020 [141]57:[139][194](631)[178]135[167]400
22030 [141]34:[141]184:[139][194](38048)[178]30[167]800
22035 [141]26:[141]24:[151]646,1:ME[178]1:[137]108
60000 [153]"LOAD":[151]53280,0:[151]53281,0:[151]646,1:[153][199](14):[151]657,128
60010 [151]51,0:[151]52,145:[151]53,234:[151]54,144:[151]55,0:[151]56,145
60050 PT$(0)[178]"LENOMM. 1525 & COMPATIBLES":PT$(1)[178]"(null)(null)ATN(null)CLOSE(null)(null)1000LEN/COMPATIBLES
60052 PT$(2)="[207][212][200][197][210] [208][210][201][206][212][197][210][211]          "
60055 DN=4:POKE40928,DN:PT=0:POKE40930,134:POKE40934,0:POKE40935,0:POKE40952,7
60060 Q$="1":P$="":D$="":PR$="":X$="[217]":XR$=".0400":FORL=1TO20:L$=L$+"----":NEXT
60085 POKE1003,0:POKE998,0:DIMEX(32):DIMFK$(12)
60086 WI=49152:CS$(5)="":QO$=CHR$(34):IFPEEK(1019)<>1THEN62000
60099 POKE1019,0:RETURN
60100 PRINT"[147]"SPC(85)"[155][197]NTER TODAY'S DATE IN THE FOLLOWING"
60110 PRINT"FORMAT-        MO/DA/YR"
60120 RE=1:SYSWI,6,14,8,23,.,4,15,0:
60130 POKE214,6:PRINT:PRINTSPC(4)"[155]EXAMPLE-- [221]01/01/89"
60135 POKE214,18:PRINT:PRINTSPC(8)"[158]"ER$
60136 POKE214,18:PRINT:PRINTSPC(8)"[158]"F$
60140 SYSWI,10,14,12,23,.,4,3,0:SYSWI,11,15,11,22,.,16,0,0,1
60142 R1=11:R2=11:C1=15:C2=22:RT=1:GOSUB65:GOTO102
60150 SA=1479:EA=1486:GOSUB75
60151 ER$="[158]                         "
60152 ONEDGOTO60161,60162,60163,60170
60160 F$="[158]    [206][207][160][211][208][193][195][197][211][160][193][204][204][207][215][197][196]    ":GOSUB3850:GOTO60100
60161 F$="[158]    [201][206][195][207][210][210][197][195][212][160][198][207][210][205][193][212]     ":GOSUB3850:GOTO60100
60162 F$="[158]01 THRU 12 FOR THE MONTH":GOSUB3850:GOTO60100
60163 F$="[158]01 THRU"+STR$(MD)+" FOR THE DAY  ":GOSUB3850:GOTO60100
60170 POKE214,18:PRINTSPC(8)ER$
60172 PRINT"[158][145]       [214]ALID [197]NTRY--[195]ORRECT? Y/N":POKE646,1
60174 GOSUB57:IFPEEK(631)=89THEN60200
60175 F$="":GOTO60100
60200 ONMHGOTO60211,60212,60213,60214,60215,60216
60201 MH=MH-6
60202 ONMHGOTO60217,60218,60219,60220,60221,60222
60211 F$="[202]ANUARY":GOTO60225
60212 F$="[198]EBRUARY":GOTO60225
60213 F$="[205]ARCH":GOTO60225
60214 F$="[193]PRIL":GOTO60225
60215 F$="[205]AY":GOTO60225
60216 F$="[202]UNE":GOTO60225
60217 F$="[202]ULY":GOTO60225
60218 F$="[193]UGUST":GOTO60225
60219 F$="[211]EPTEMBER":GOTO60225
60220 F$="[207]CTOBER":GOTO60225
60221 F$="[206]OVEMBER":GOTO60225
60222 F$="[196]ECEMBER":GOTO60225
60225 YR$=MID$(STR$(YR),2,2):IFLEN(YR$)<2THENYR$="0"+YR$
60230 DD$=F$+STR$(DT)+",'"+YR$
60235 PRINT"[147]"
60240 POKE214,19:PRINT:PRINT"[158]       [215]AIT ONE MOMENT PLEASE... ":POKE646,1
60250 GOTO300
60500 GOSUB3840:PRINT"[147]":GOSUB56:PRINT"[159]   [217]OU STILL HAVE INVOICES IN MEMORY[155]
60510 [153]"LEFT$IT SYS SHIFT \ WAITLIST TO EDIT...":[153][166]8)"-ANY OTHER KEY TO QUIT-
60520 GOSUB57:RETURN
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
60610 GOTO500
61000 GOSUB200:GOSUB294:GOSUB238:I=8:GOSUB20000:I=9:GOSUB20000
61008 GOSUB57:IFPEEK(631)=95THEN18000
61009 IFPEEK(995)THENGOSUB19:GOTO61008
61015 GOSUB50:ONAAGOTO61020,62300,300,61100
61020 IFMC=0THEN61024
61021 GOSUB60500:IFPEEK(631)=169THEN60600
61024 GOSUB61025:END
61025 PRINT"[144][147]":POKE53280,1:POKE53281,1
61030 FORL=1TO30:NEXT:POKE53281,0:POKE53280,0:PRINTSPC(210);SPC(249);".
61050 [129]L[178]1[164]400:[130]:[151]56,160:[153]"LOAD":[151]808,237:[151]657,0:[151]198,0
61080 [151]649,10:[158]52643:[151]55496,1:[151]55536,1:[142]
61100 [153]"LOAD":[141]850:[139][194](1002)[178]1[167]61120
61104 [141]3845:I2[178]4:I3[178]7:I4[178]8:[141]20131:[141]20010
61106 [153][166]12)"LIST-LEFT$RIGHT$(null) ATN(null)(null)CLOSE(null)VAL(null)-":[141]57:[137]61000
61120 [151]214,12:[153]:[153][166]7)"SYSUPDATING INVOICE NUMBER..."
61125 [159]15,8,15,"S0:LAST INV#":[160]15:[159]5,8,5,"0:LAST INV#,S,W"
61126 [139]IN[178]0[167][152]5,"99999":[160]5:[137]61140
61130 [152]5,[196](IN[171]1):[160]5
61140 [151]214,12:[153]
61150 [153][166]3)"OPEN-RIGHT$NVOICE NUMBER UPDATE COMPLETED-":[137]61106
62000 [153]"LOAD":[141]3845:[153][166]82)"DEF(null)(null)VALATN(null)VALCLOSE(null)(null)(null)VAL---
62010 PRINT"    [198]OR THIS PROGRAM TO WORK PROPERLY,
62015 [153]"    ENTER- LOAD"QO$"0:INV.BOOT"QO$",8   ":[153]"    AND THEN (null)(null)(null)
62025 PRINT"[152]  [215]AIT A FEW MOMENTS- THIS PROGRAM WILL":PRINT" DO IT FOR YOU...
62035 [129]L[178]1[164]600:[130]:[151]214,12:[153]
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]
62070 [153]"SYS  (null)LEASE (null)AIT--  (null)OADING PEEKOOT (null)ROGRAM":[147]"0:INV.BOOT",8,1:[128]
62300 [141]850:[139][194](1002)[178]0[167]62302
62301 [141]182:[141]3840:I[178]10:[141]20000:[141]34:[137]61008
62302 [139]MC[178]0[167]62305
62303 [141]60500:[139][194](631)[178]169[167]60600
62305 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,EN:[160]15
62308 [139]EN[178]63[167]62320
62310 [141]182:[141]3840:I[178]11:[141]20000:[141]34:[137]61008
62320 [141]61025:[153]"LOAD":[153]"STOPLOAD"QO$"HELLO CONNECT"QO$",8"
62340 [153]"RUN":[151]631,13:[151]632,13:[151]206,12:[151]647,0:[151]198,2:[128]