2 REM BANKER64 * ECBERGE * 3/23/95 *
4 DV=PEEK(186):IFDV<8THENDV=8
6 PRINT"":CLOSE15:OPEN15,DV,15:C=646:BC=53280:CR$=CHR$(13):RQ$="[210]ECORD #"
8 M=49152:P=M+3:FR=M+54:CE=M+18:A=M+15:LC=M+24:UC=M+21:BR=M+48:RH=M+27:O=2048
10 BL=M+51:SR=M+9:SS=M+6:SM=M+33:DI=M+45:SYSBL,"GETWORD 800+",DV,O:GOSUB828
12 D=PEEK(C)AND15:E=D:X=PEEK(BC)AND15:IFE=XTHENE=E-(X+1<16)+(X+1>15):D=E
14 POKEC,D:CL=41:GOSUB1286:IFJJ=2THENCL=127
16 DIMB$(40,1),B(40,1),B%(40,12),W$(80,1):DEFFNS(X)=INT(X*100+.05)
18 AR$=" [193]RE YOU SURE? [146]"
20 PRINTCHR$(14)+CHR$(8):HA$="[210]#        [196][197][211][195][210][201][208][212][201][207][206]":V=0:CF$="0:CATEGORIES
22 H$[178]"(null)#   STR$ATN(null)VAL   LENLEFT$#      STR$VAL(null)LEN(null)RIGHT$(null)(null)RIGHT$(null)(null)                     LENATN(null)   ATN(null)(null)(null)(null)(null)CLOSECLOSECLOSE"
24 H$[178]H$[170]"PEEKATN(null)ATN(null)LENVAL (null) SQR":[150][165]R(X)[178][181](X[172]100[170].05)[173]100:CC$[178]"LENURRENT PEEKALANCE=
26 FC$="    [196][193][212][197]   [195][200]# [195][193][212]  [193][205][207][213][206][212]   [194][193][204][193][206][195][197] [212] [186]":QU$=CHR$(34):RV$="R.
28 CN$[178]"LENANCEL ENTRIES SHOWN ON BANK STATEMENT":TP$[178][199](12)
30 B1$[178]"(null)OUR BALANCE ":B2$[178]" THE BANK'S!":DD$[178]"EQUALS":EP$[178][199](0)[170][199](1)
32 DN$[178]"DOESN'T EQUAL":BJ$[178]"             ":PP$[178]" (null)RESS RETURN WAIT"
34 BK$[178]"                                     ":P1$[178]"P"[170][199](98):X$[178][200](BK$,28)
36 SP$[178]"(null)PACE TO CANCEL/LENRSR TO MOVE/VAL TO EXITWAIT":KR$[178][200](BK$,18):[141]1106
38 [151]BC,PG:[151]BC[170]1,PG:[151]C,FC:PS[178]1:[153]"LOAD":[158]P,4,38,2,21,Q2,U1:S8[178]0
40 [158]P,3,37,1,20,Q1,F1:[158]P,4,36,2,19,160,FC:[158]CE,4," PEEKATN(null)(null)VAL(null) 64CLOSE":QN[178]18
42 [158]CE,5,"  BY VALILEEN PEEKERGEWAIT":[158]A,8,7,"ATNCCOUNT (null)ANAGER     (1)
44 SYSA,8,8,"[194]ALANCE [193]CCOUNT     (2)[146]":SYSA,8,9,"[211]EARCH [198]ILES        (3)[146]
46 [158]A,8,10,"PEEKUDGETATNID           (4)WAIT":[158]A,8,11,"ATNDD/STR$ELETE LENATEGORY (5)WAIT
48 SYSA,8,12,"[207]PTIONS             (6)[146]":SYSA,8,13,"[196]IRECTORY           (7)[146]
50 [158]A,8,14,"(null)END STR$ISK LENOMMAND   (8)WAIT":[158]A,8,15,"LEFT$ELP                (LEFT$)
52 SYSA,8,16,"[209]UIT                ([209])[146]":SYSM,7,7,31,10,FC,E,"12345678HQ[209][200]
54 [145]F%[137]70,316,454,544,766,1112,56,1096,1218,1262,1262,1218
56 [153]"LOAD STR$RIGHT$(null)VALLEN(null)(null)(null)(null)CLOSEWAIT"
58 DI$[178]"0":[139]CL[178]41[167]64
60 [153]"(null)ARTITION #? ";:[158]O,E,D,2:DI$[178]W$:[153]:[151]C,D
62 [153]"(null)ATH? ";:[158]O,E,D,22:DI$[178]DI$[170]W$:[153]:L[178]CL[171][195](WC$)[171]2:[151]C,D:[139]S4[167][142]
64 WC$[178]"":[151]C,D:[153]"(null)ILD LENARD? ";:[158]O,E,D,L:[151]C,D:[153]
66 WC$[178]"$"[170]DI$[170]":"[170]W$:[158]DI,WC$,DV:[132]15,ER,EM$:[139]ER[177]19[167][153]ER;EM$
68 [153][199](13):[141]868:[145]PS[137]38,70,544
70 [151]BC,PG:[151]C,FC:PS[178]2:[153]"LOAD":[158]P,5,38,4,22,Q4,U2:[158]P,4,37,3,21,Q3,F2
72 [158]P,5,36,4,20,160,FC
74 [158]CE,7," ATNLENLEN(null)(null)(null)(null)CLOSE(null)ATN(null)ATNCHR$VAL(null) ":[158]A,8,9,"(null)PEN ASCILE           (1)
76 SYSA,8,10,"[193]DD A [210]ECORD        (2)[146]":SYSA,8,11,"[210]EAD/[208]RINT [198]ILE     (3)
78 [158]A,8,12,"ATNLTER (null)ECORD        (4)WAIT":[158]A,8,13,"STR$ELETE (null)ECORD       (5)
80 SYSA,8,14,"[201]NSERT [210]ECORD       (6)[146]"
82 SYSA,8,15,"[196]IRECTORY           (7)[146]":SYSA,8,16,"[200]ELP                ([200])[146]
84 [158]A,8,17,"CHR$OTO (null)AIN (null)ENU      ((null))WAIT":[158]M,9,7,31,9,FC,E,"1234567HX(null)LEFT$
86 ONF%GOTO88,168,178,206,250,290,56,1220,38,38,1220
88 JS=1:DX$="":L$=" [207]PEN [198]ILE ":GOSUB862:T$="[201]":SYSA,0,8,"[197]XISTING [198]ILE       (1)
90 [158]A,0,9,"(null)EXT ASCILE IN (null)ERIES (2)":[158]A,0,10,"(null)O (null)REVIOUS ASCILE    (3)
92 SYSA,0,11,"[197]XIT":PRINTSPC(16)"([216])":SYSM,8,0,23,4,D,E,"123X
94 [145]F%[137]96,108,104,70
96 L$[178]"VALXISTING ASCILEWAIT":[141]860:[141]840:[139]S%[178]1[167]1112
98 [153]"ASCILE STR$ATE ((null)(null)(null)(null))? ";:[158]O,E,D,4:[153]:[151]C,D:[139][195](W$)[179]4[167]98
100 D$[178]W$:DY$[178][200](D$,2):DM$[178][202](D$,3,2):P$[178]P1$[170][199](1)[170]EP$:F$[178]D$[170]TY$
102 [141]990:R1$[178]R$:P$[178]P1$[170][199](2)[170]EP$:[141]990:R2$[178]R$:[137]150
104 L$[178]"(null)EW (null)ERIESWAIT":[141]860:[141]840:[139]S%[178]1[167]1112
106 BA[178]0:OB$[178]"     0.00":OB[178]0:BX[178]0:[137]122
108 L$[178]"(null)EXT ASCILE IN (null)ERIESWAIT":[141]860:[141]840:[139]S%[178]1[167]1112
110 [153]"(null)AST FILE ((null)(null)(null)(null))? ";:[158]O[170]3,E,D,4:[153]:DX$[178]W$:[139][195](DX$)[179]4[167]108
112 F$[178]DX$[170]TY$:P$[178]"P"[170][199](99)[170][199](2)[170]EP$:[141]874:[141]876:[132]3,RO$
114 [141]828:[141]876:[160]3:OB$[178][202](RO$,RL[171]11,9):OB[178][197](OB$)
116 DY[178][197]([202](DX$,1,2)):DM[178][197]([202](DX$,3,2)):DM[178]DM[170]U:[139]DM[177]12[167]DM[178]DM[171]12:DY[178]DY[170]1
118 DY$[178][201]("00"[170][202]([196](DY),2),2)
120 DM$[178][201]("00"[170][202]([196](DM),2),2):D$[178]DY$[170]DM$:F$[178]D$[170]TY$
122 [153]"(null)LD PEEKALANCE = ";OB$
124 [141]1254:[139]W$[178]"Y"[167]BA[178][197](OB$):[137]130
126 [153]"(null)EW PEEKALANCE? ";:[158]O[170]3,E,D,8:[153]:BX[178][197](W$):[141]1254:[139]W$[178]"N"[167]126
128 BA[178]BX
130 [141]878:[139]DX$[178]""[167]134
132 [151]C,D:[153]"(null)EW ASCILE="F$:[141]1254:[139]W$[178]"Y"[167]138
134 [153]:[153]"VALNTER (null)EW ASCILE ((null)(null)(null)(null))? ";:[158]O[170]3,E,D,4:[153]:D$[178]W$:[139][195](D$)[179]4[167]134
136 DY$[178][200](D$,2):DM$[178][201](D$,2):F$[178]D$[170]TY$:[137]132
138 [141]878:AM$[178]"    0.00":V$[178]"(null)":DE$[178][200]("(null)EW PEEKALANCE"[170]BK$,DL):CA$[178]"(null)PEEK"
140 DA$[178]DM$[170]"/01/"[170]DY$:CH$[178]CA$[170]" ":T$[178]"RIGHT$":R1$[178]DA$[170]CH$[170]DE$[170]CA$[170]AM$[170]BA$[170]T$[170]V$
142 CH$[178]"002":CA$[178]"VALPEEK":T$[178]"(null)":DE$[178][200]("VALNDING PEEKALANCE"[170]BK$,DL)
144 R2$[178]DA$[170]CH$[170]DE$[170]CA$[170]AM$[170]BA$[170]T$[170]V$:P$[178]P1$[170][199](6)[170]EP$:R$[178][199](255)
146 [141]978:R$[178]R1$:P$[178]P1$[170][199](1)[170]EP$:[141]978:R$[178]R2$
148 P$[178]P1$[170][199](2)[170]EP$:[141]978
150 L$[178]" (null)PEN ASCILE "[170]F$[170]" ":[151]C,FC:[158]CE,2,L$:[151]C,D:[141]836:DA$[178][202](R1$,1,8)
152 CH$[178][202](R1$,9,3):DE$[178][202](R1$,12,DL):T$[178][202](R1$,RL[171]2,1):V$[178][202](R1$,RL[171]1,1)
154 CA$[178][202](R1$,RL[171]21,2):AM$[178][202](R1$,RL[171]19,8):BA$[178][202](R1$,RL[171]11,9)
156 [158]A,0,7,HA$:[153]:[153]1;DE$:[153]FC$:[153]"  "DA$" "CH$" "CA$" "AM$" "BA$"
158 DA$=MID$(R2$,1,8):CH$=MID$(R2$,9,3):DE$=MID$(R2$,12,DL)
160 CA$=MID$(R2$,RL-21,2):AM$=MID$(R2$,RL-19,8):BA$=MID$(R2$,RL-11,9)
162 T$=MID$(R2$,RL-2,1):V$=MID$(R2$,RL-1,1):BA=VAL(BA$):RC=VAL(CH$)
164 PRINTHA$:PRINT2;DE$:PRINTFC$:PRINT"  "DA$" "CH$" "CA$" "AM$" "BA$" "T$" "V$
166 GOSUB868:GOTO70
168 IFF$=""THEN1088
170 L$=F$+"  "+"[193][196][196] [193] [210][197][195][207][210][196]":JS=2:GOSUB862:ONF%GOTO70,172
172 RC=(RC<2)*-2+(RC=>2)*-RC:GOSUB1216:RC=RC+1:V$="[207]":RC$=RQ$+MID$(STR$(RC),2)
174 CB$=CC$+BA$:GOSUB884:SYSA,0,20,N$:GOSUB838:IFW$="Y"THEN172
176 GOSUB968:GOTO70
178 IFF$=""THEN1088
180 L$=F$+"  "+"[210][197][193][196]/[208][210][201][206][212] [198][201][204][197]":JS=0:GOSUB862:ONF%GOTO70,182
182 PRINT"[208][146]RINT, [196][146]ISPLAY, OR E[216][146]IT":SYSBR,"PDX":ONF%GOTO184,188,70
184 PRINT"[210]EADY PRINTER":GOSUB868:CLOSE4:OPEN4,4,7:L$="[198]ILE "+F$:L=LEN(L$)
186 L=INT((80-L)/2):L$=RIGHT$(BK$+L$,L):PRINT#4,L$:PRINT#4:PRINT#4,H$
188 GOSUB988:R=VAL(MID$(R$,9,3)):PRINTHA$:PRINTFC$
190 FORI=1TOR:P$=P1$+CHR$(I)+EP$:GOSUB990
192 RN$=RIGHT$("00"+MID$(STR$(I),2),2):DA$=MID$(R$,1,8):CH$=MID$(R$,9,3):DE$=MID$(R$,12,DL)
194 CA$=MID$(R$,RL-21,2):AM$=MID$(R$,RL-19,8):BA$=MID$(R$,RL-11,9):T$=MID$(R$,RL-2,1)
196 V$=MID$(R$,RL-1):GOSUB992:GOSUB994:IFF%<>1THEN202
198 PT$=RN$+" "+DA$+" "+CH$+" "+LEFT$(DE$+BK$,38)+CA$+" "+AM$+" "+BA$+" "+T$
200 PT$=PT$+" "+V$:PRINT#4,PT$
202 NEXT:IFF%=1THENPRINT#4,TP$:CLOSE4
204 GOSUB868:GOTO70
206 IFF$=""THEN1088
208 L$=F$+"  "+"[193][204][212][197][210] [210][197][195][207][210][196]":JS=0:GOSUB862:ONF%GOTO70,210
210 GOSUB1216:GOSUB836:SYSA,0,7,RQ$+"? ":SYSO+3,E,D,4:R=VAL(W$):S9=0
212 S3=0:PRINT:POKEC,D:GOSUB1258:IFS3THEN246
214 RC$=RQ$+MID$(STR$(R),2):P$=P1$+CHR$(R)+EP$:GOSUB990
216 D1$=MID$(R$,1,8):D2$=MID$(R$,9,3):D3$=MID$(R$,12,DL):D4$=MID$(R$,RL-21,2)
218 D5$=MID$(R$,RL-19,8):D6$=MID$(R$,RL-11,9):D5=VAL(D5$):D6=VAL(D6$)
220 D7$=MID$(R$,RL-2,1):D8$=RIGHT$(R$,1):GOSUB836
222 SYSA,0,7,RC$:BX=VAL(BA$):SYSA,0,9,"[196]ATE         (A)":SYSA,18,9,D1$
224 SYSA,0,10,"[195]HECK #      (B)":SYSA,18,10,D2$:SYSA,0,11,"[195]ATEGORY     (C)
226 [158]A,18,11,D4$:[158]A,0,12,"ATNMOUNT       (D)":[158]A,19,12,D5$
228 [158]A,0,13,"PEEKALANCE      (E)":[158]A,18,13,D6$:[158]A,0,14,"(null)RANSACTION  (F)
230 SYSA,18,14,D7$:SYSA,0,15,"[214]ERIFICATION (G)":SYSA,18,15,D8$
232 SYSA,0,16,"[196]ESCRIPTION  (H)":SYSA,18,16,D3$:SYSA,0,19,BK$:IFSDTHENRETURN
234 SYSA,0,18,"[207]KAY ([217]/[216])":SYSA,0,20,BK$:SYSM,9,0,15,10,D,E,"ABCDEFGHNY[217]X[216]
236 [145]F%[141]1000,1010,1014,1018,1028,1034,1038,996
238 [145](F%[171]9[177]0)[172][171](F%[171]9)[137]242,242,966,966
240 [139]F%[179]10[167]234
242 R$[178]D1$[170]D2$[170]D3$[170]D4$[170]D5$[170]D6$[170]D7$[170]D8$:P$[178]P1$[170][199](R)[170]EP$:[141]978
244 [139]S9[178]1[175](R[177]2[175]R[179]RC)[167][158]A,0,20,N$:[141]1040
246 S9[178]0:[158]P,0,39,20,24,32,PG:[158]A,0,20,N$:[141]838:[139]W$[178]"Y"[167]208
248 [141]968:[141]868:[137]70
250 [139]F$[178]""[167]1088
252 L$[178]F$[170]"  "[170]"STR$VAL(null)VAL(null)VAL (null)VALLEN(null)(null)STR$":JS[178]0:[141]862:[151]C,D:[145]F%[137]70,254
254 [151]C,D:[153]"(null)ECORD TO DELETE? ";:[158]O[170]3,E,D,4:[153]:R[178][197](W$)
256 S3[178]0:[141]1256:[139]S3[167]266
258 [151]C,D:SD[178]1:[141]214:[158]A,0,20,BK$:[158]A,0,20,N$:[141]1228:[139]W$[179][177]"Y"[167]288
260 [139]D5[178]0[175]D6[178]0[167][141]1090
262 BA[178]D6[170]((D7$[178]"+")[171](D7$[178]"-"))[172]D5:SD[178]0:P$[178]P1$[170][199](R)[170]EP$:[141]878
264 R$[178][199](255):S9[178]1:[141]978:[153]RC$;" DELETED":[139]RC[177]R[167][141]1040
266 S3[178]0:[141]838:[139]W$[178]"Y"[167]252
268 [153]"(null)EORDERING FILE AFTER DELETION(S) ...":[129]I[178]1[164]10:D%(I)[178]0:[130]
270 [141]988:R[178][197]([202](R$,9,3)):DA$[178][202](R$,1,8):N[178]0:[139]SI[178]1[167]R[178]RC
272 [129]I[178]3[164]R:P$[178]P1$[170][199](I)[170]EP$:[141]990:[139][198](R$)[178]255[167]N[178]N[170]1:D%(N)[178]I
274 [130]:[139]N[167]278
276 [153]"ASCOUND NO DELETED RECORDS IN FILE.":[141]868:[137]70
278 [129]I[178]N[164]1[169][171]1:[139]D%(I)[178][177]R[167]284
280 [129]J[178]D%(I)[170]1[164]R:P$[178]P1$[170][199](J)[170]EP$:[141]990
282 P$[178]P1$[170][199](J[171]1)[170]EP$:[141]978:[130]
284 R[178]R[171]1:[130]:RC[178]R:[139]SI[178]1[167]1242
286 [141]968:[141]868
288 [137]70
290 [139]F$[178]""[167]1088
292 L$[178]F$[170]"  "[170]"RIGHT$(null)(null)VAL(null)(null) (null)VALLEN(null)(null)STR$":JS[178]0:[141]862:[145]F%[137]70,294
294 [153]"RIGHT$NSERT AT "[170]RQ$[170]"? ";:[158]O[170]3,E,D,4:[153]:R[178][197](W$)
296 S3[178]0:[141]1256:[139]S3[167]292
298 [141]1228:[139]W$[179][177]"Y"[167]314
300 [141]988:RC[178][197]([202](R$,9,3)):DA$[178][202](R$,1,8):R2$[178]R$:SI[178]1
302 [153]:[153]"(null)OVING RECORDS UP ...":[129]J[178]RC[164]R[169][171]1:P$[178]P1$[170][199](J)[170]EP$:[141]990
304 P$[178]P1$[170][199](J[170]1)[170]EP$:[141]978:[130]:RC[178]RC[170]1:RR[178]R[171]1:RQ[178]RC:[139]R[178]3[167]RR[178]1
306 P$[178]P1$[170][199](RR)[170]EP$:[141]990:BA[178][197]([202](R$,RL[171]11,9)):[141]878:CB$[178]CC$[170]BA$
308 RC$[178]RQ$[170][196](R):RC[178]R:V$[178]"(null)":[141]884:[139]SJ[167]SJ[178]0:[137]314
310 [158]A,0,20,N$:RC[178]RQ:[141]1040:[141]968
312 [141]838:[139]W$[178]"Y"[167]292
314 SI[178]0:[137]70
316 L$[178]" PEEKATN(null)ATN(null)LENVAL(null) ":[151]C,FC:[153]"LOAD":[158]P,1,38,1,6,Q4,U2:JS[178]0
318 [158]P,0,37,0,5,Q3,F2:[158]P,2,36,1,4,160,FC:[141]864:[145]F%[137]38,442
320 [151]C,D:[153]"PEEKANK'S VALNDING PEEKALANCE?CLOSE";:[158]O[170]3,E,D,9:[153]:[151]C,D
322 :BE[178][197](W$):[141]840:[139]S%[178]1[167]1112
324 TW[178]0:W1[178]0:[129]I[178]1[164]80:[129]J[178]0[164]1:W$(I,J)[178]"":[130]:[130]
326 [153]"(null)TARTING (null)ONTH ((null)(null)(null)(null))? ";:[158]O[170]3,E,D,4:D$[178]W$:[153]:F$(1)[178]D$[170]TY$:[151]C,D
328 [153]"# MONTHS TO SEARCH? ";:[158]O[170]3,E,D,3:[153]:GN[178][197](W$):[139]GN[179]2[167]336
330 DY$[178][200](D$,2):DY[178][197](DY$):DM$[178][201](D$,2):DM[178][197](DM$):[129]K[178]1[164]GN[171]1[169]U
332 GM[178]DM[170]K:GY[178]DY:[139]GM[177]12[167]GM[178]GM[171]12:GY[178]GY[170]1
334 F$(K[170]1)[178][201]("0"[170][202]([196](GY[172]100[170]GM),2),4)[170]TY$:[130]
336 [151]C,D:[153]"ASCILES TO SEARCH:":[129]K[178]1[164]GN:[153]F$(K):[130]:[153]:[141]1254:[139]W$[179][177]"Y"[167]326
338 [129]I[178]1[164]GN:[153]"(null)EARCHING ASCILE "F$(I)" ...":F$[178]F$(I)
340 L[178][195](F$):[141]988:RC[178][197]([202](R$,9,3)):[139]I[178]GN[167]EB[178][197]([202](R$,RL[171]11,9))
342 [129]J[178]3[164]RC:J$[178][201]("0"[170][202]([196](J),2),2):P$[178]P1$[170][199](J)[170]EP$:[141]990
344 V$[178][201](R$,1):T$[178][202](R$,RL[171]2,1):CH$[178][202](R$,9,3)
346 AM$[178][202](R$,RL[171]19,8):AM[178][197](AM$):[139]T$[178]"-"[167]AM[178]AM[172][171]1
348 [139]V$[179][177]"(null)"[167]352
350 W[178]W[170]1:W$(W,0)[178]CH$[170]"="[170]AM$[170]T$:W$(W,1)[178]F$[170]J$:TW[178]TW[170]AM
352 [130]:[130]:[153]:
354 L$[178]"CLOSE(null)(null)(null)VAL(null)RIGHT$ASCRIGHT$VALSTR$CLOSEATN(null)(null)(null)(null)(null)(null)CLOSEWAIT":[139]W[177]0[167]358
356 [153]"(null)O ATNMOUNTS (null)NVERIFIED":[137]408
358 B[178]20:Z[178][181](W[173]2):[129]K[178]0[164]40[169]40:[139]K[177]W[167]406
360 [153]"LOAD":[151]C,U1:[158]CE,0,L$:[151]C,E:[158]CE,1,CN$:[158]CE,2,SP$:[158]A,0,3,N$
362 [151]C,D:[129]I[178]1[164]39[169]2:[129]J[178]0[164]1:N[178]K[170]I[170]J:[139]N[177]W[167]I[178]39:J[178]2:[137]366
364 [158]A,J[172]B,[181](I[173]2)[170]4,W$(N,0)[170]"  (null)"
366 [130]:[130]:I[178]1:J[178]0
368 X[178]J[172]B:Y[178][181](I[173]2)[170]4:N[178]K[170]I[170]J:W$[178]""[170]W$(N,0)[170]"WAIT":[158]A,X,Y,W$
370 [158]BR,"ECMDON ":[145]F%[137]406,372,380,388,394,402
372 [158]A,X,Y,W$(N,0):J[178]J[170]1
374 [139]J[177]1[167]J[178]J[171]2:I[178]I[170]2
376 [139]I[177]40[176]N[170]1[177]W[167]I[178]1
378 [137]368
380 [158]A,X,Y,W$(N,0):J[178]J[171]1
382 [139]J[179]0[167]J[178]J[170]2:I[178]I[171]2
384 [139]I[179]1[167]I[178]W[171]K[170](I[173]2[178][181](I[173]2))
386 [137]368
388 [158]A,X,Y,W$(N,0):I[178]I[170]2[172](N[170]2[171]K[178][179]39)[172](N[170]2[178][179]W)
390 [139]N[170]2[177]39[170]K[170]J[176]N[170]2[171]K[177]W[171]K[167]I[178]1
392 [137]368
394 [158]A,X,Y,W$(N,0):I[178]I[170]2[172](N[171]2[178][177]K[170]1)
396 [139]N[171]2[179]K[170]J[170]1[167]I[178]39[172][171]([181]((W[171]K)[173]40)[177]0)[171](W[171][181](W[173]40)[172]40)[172]([181]((W[171]K)[173]40)[178]0)
398 [139]I[177]1[175][181](I[173]2)[178]I[173]2[167]I[178]I[171]1
400 [137]368
402 AM[178][197]([202](W$(N,0),5,8)):[139][202](W$(N,0),13)[178]"-"[167]AM[178]AM[172][171]1
404 TW[178]TW[171]AM:W$(N,0)[178]BJ$:[158]A,X,Y,BJ$:[137]368
406 [130]
408 [153]"LOAD":BF[178]0:EB[178][165]R(EB):BE[178][165]R(BE):TW[178][165]R(TW):BF[178]BE[170]TW:BF[178][165]R(BF)
410 BA[178]EB:[141]878:EB$[178]BA$:BA[178]BE:[141]878:BE$[178]BA$:BA[178]TW:[141]878:TW$[178]BA$
412 BA[178]BF:[141]878:BF$[178]BA$:[139]W[178]0[167]418
414 [129]I[178]1[164]W:[139]W$(I,0)[179][177]BJ$[167]W1[178]W1[170]1
416 [130]:W1$[178][201]("00"[170][202]([196](W1),2),2)
418 [153]"    PEEKANK'S VALNDING PEEKALANCE = ";BE$:[153]W1$;"     (null)NVERIFIED ATNMOUNTS = "TW$
420 [153]"    ATNDJUSTED PEEKANK PEEKALANCE = "BF$:[153]"      (null)OUR VALNDING PEEKALANCE = "EB$
422 [153]:[139]EB[178]BF[167]S[178]1:[153]B1$DD$B2$:[137]426
424 [153]B1$DN$B2$
426 [153]:[141]868:[139]W[178]0 [167] [153]"(null)O ATNMOUNTS UNVERIFIED":[137]452
428 W1[178]0:[129]I[178]1[164]W:[139]W$(I,0)[178]BJ$[167]438
430 W1[178]W1[170]1:X[178]W1[171][181](W1[173]2)[172]2:[139]X[178]0[167]X[178]2
432 [145]X[137]434,436
434 [153]W$(I,0)"   (null)";:[137]438
436 [153][163]19)W$(I,0)"   (null)"
438 [130]:[153]:[153]:[153]W1$" (null)ECORDS (null)TILL (null)NVERIFIED.":[141]868:[139]S[178]1[167]444
440 [153]"LOAD(null)RY AGAIN ((null)/(null))? ";:[141]870:[139]W$[178]"N"[167]452
442 [129]I[178]0[164]80:[129]J[178]0[164]1:W$(I,J)[178]"":[130]:[130]:W[178]0:TW[178]0:W1[178]0:[137]320
444 [151]C,E:[153]"LENHECKING (null)FF ASCILES ...":[129]I[178]1[164]W:[139]W$(I,0)[179][177]BJ$[167]450
446 F$[178][200](W$(I,1),L):R[178][197]([201](W$(I,1),2)):P$[178]P1$[170][199](R)[170]EP$
448 [141]990:R$[178][200](R$,RL[171]2)[170]"SQR":[141]978:[153]"ASCILE "F$,RQ$R:[153]R$
450 [130]:[153]"(null)ERIFIED RECORDS ARE CHECKED OFF":[141]868
452 [137]38
454 JS[178]0:L$[178]" (null)VALATN(null)LENLEFT$CLOSEASCRIGHT$(null)VAL(null) ":[151]C,FC:[153]"LOAD":[158]P,1,38,1,6,Q4,U2
456 [158]P,0,37,0,5,Q3,F2:[158]P,2,36,1,4,160,FC:[141]864:[145]F%[137]38,458
458 [141]840:[139]S%[167]1112
460 [141]836:[158]A,0,7,"(null)EARCH ASCILES FROM ((null)(null)(null)(null))?CLOSE":[158]O[170]3,E,D,4:[153]:D$[178]W$:[151]C,D
462 [153]"# MONTHS TO SEARCH? ";:[158]O[170]3,E,D,2:[153]:[151]C,D
464 DN[178][197](W$):[158]CE,10," (null)ELECT ASCIELD TO (null)EARCH WAIT":[158]A,11,12,"STR$ATE         (1)
466 SYSA,11,13,"[195]HECK #      (2)":SYSA,11,14,"[196]ESCRIPTION  (3)":DY=VAL(LEFT$(D$,2))
468 SYSA,11,15,"[195]ATEGORY     (4)":SYSA,11,16,"[193]MOUNT       (5)":DM=VAL(RIGHT$(D$,2))
470 SYSA,11,17,"[194]ALANCE      (6)":SYSA,11,18,"[212]RANSACTION  (7)"
472 SYSA,11,19,"[214]ERIFICATION (8)":SYSM,12,10,27,8,D,E,"12345678"
474 ONF%GOSUB1060,1062,1064,1066,1068,1070,1072,1074
476 QR=0:POKEC,D:SYSA,0,21,"[208]RINT FOUND RECORDS ([217]/[206])? ":GOSUB870:IFW$="Y"THENQR=1
478 PRINT"[212]OTAL [193]MOUNTS OF [198]OUND [210]ECORDS ([217]/[206])? ";:GOSUB870:AD$=W$
480 PRINT"[211]EARCH [211]TRING? ";:SYSO,E,D,LF:S$=W$:SX=0:Q=0:TT=0:AV=0:POKEC,D:PRINT
482 F=LEN(S$):IFF<1ORF>LFTHENPRINT"[204]ENGTH MUST BE BETWEEN 1 AND"LF:GOTO480
484 IFF%=2ORF%=4ORF%=7ORF%=8THENSYSUC,S$
486 IFF%=2ORF%=4THENS$=LEFT$(S$+BK$,LF)
488 IFF%=5THENAM=VAL(S$):SA=1:GOSUB942:S$=AM$:SA=0
490 IFF%=6THENBA=VAL(S$):GOSUB878:S$=BA$
492 IFF%=1ANDF=8ORF%<>1THEN496
494 PRINT"[210]E-ENTER [196]ATE ([205][205]/[196][196]/[217][217])":GOTO480
496 SE$="[211]EARCHING FOR "+QU$+S$+QU$+" IN FIELD "+QU$+FI$+QU$+" ...
498 [139]QR[167][160]4:[159]4,4,7:[152]4,SE$:[152]4
500 [129]I[178]1[164]DN[169]U:F$[178]D$[170]TY$:[141]988:R[178][197]([202](R$,9,3)):[129]J[178]1[164]R
502 P$[178]P1$[170][199](J)[170]EP$:J$[178]";"[170][202]([196](J),2):[141]990:Q$[178][202](R$,BY,LF):[139]F%[179][177]3[167]510
504 [129]K[178]1[164]LF[171]F[170]1:[139]S$[179][177][202](Q$,K,F)[167]508
506 SX[178]1:K[178]LF[171]F[170]1
508 [130]:[137]512
510 [139]S$[178]Q$[167]SX[178]1
512 [139]SX[178]0[167]520
514 AM[178][197]([202](R$,RL[171]19,8)):T$[178][202](R$,RL[171]2,1):[139]T$[178]"-"[167]AM[178]AM[172][171]1
516 [153]J;R$:SX[178]0:Q[178]Q[170]1:TT[178]TT[170]AM
518 [139]QR[167][152]4,[200](F$[170]J$[170]BK$,12):[152]4,R$
520 [130]:[160]2:[153]"ASCILE "F$" IS CLOSED"
522 DM[178]DM[170]U:[139]DM[177]12[167]DM[178]DM[171]12:DY[178]DY[170]1
524 D$[178][201]("0"[170][202]([196](DY[172]100[170]DM),2),4):[130]
526 [139]QR[167][152]4:[152]4,Q"RECORDS FOUND"
528 [151]C,D:[153]Q"RECORDS FOUND":[139]AD$[178]"N"[167]538
530 [139]Q[178]0[167]TT$[178]"     0.00":AV$[178]"     0.00":[137]536
532 BA[178]TT:[141]878:TT$[178]BA$:AV[178]TT[173]Q:BA[178]AV:[141]878:AV$[178]BA$
534 [153]"(null)OTAL   = ";TT$:[153]"ATNVERAGE = ";AV$
536 [139]QR[167][152]4,"(null)OTAL   = ";TT$:[152]4,"ATNVERAGE = ";AV$
538 [139]QR[167][152]4,TP$:[160]4
540 [151]C,D:[153]"(null)EARCH COMPLETED":[141]838:[139]W$[178]"Y"[167][153]"LOAD";:[137]458
542 [137]38
544 [151]BC,PG:PS[178]3:[153]"LOAD":[151]C,FC:[158]P,5,38,5,20,Q4,U2:[158]P,4,37,4,19,Q3,F2:S8[178]0
546 [158]P,5,36,5,18,160,FC:[158]CE,7," PEEK(null)STR$CHR$VAL(null)ATNRIGHT$STR$ "
548 [158]A,8,9,"LENOLLECT STR$ATA        (1)WAIT
550 SYSA,8,10,"[196]ISPLAY [210]EVIEW [198]ILE (2)[146]":SYSA,8,11,"[211]AVE [210]EVIEW [198]ILE    (3)[146]
552 [158]A,8,12,"(null)OAD (null)EVIEW ASCILE    (4)WAIT":[158]A,8,13,"(null)RINT (null)EVIEW ASCILE   (5)WAIT
554 SYSA,8,14,"[196]IRECTORY           (6)[146]":SYSA,8,15,"[200]ELP                ([200])[146]
556 [158]A,8,16,"(null)ETURN TO (null)AIN (null)ENU ((null))":[158]M,9,7,31,8,FC,E,"123456HX(null)LEFT$
558 ONF%GOTO560,624,690,704,724,56,1224,38,38,1224
560 J=0:L$="[195]OLLECT [196]ATA":GOSUB862:ONF%GOTO544,562
562 POKEC,D:GOSUB840:IFS%=1THEN1112
564 PRINT"[198]OR HOW MANY MONTHS (1-12)? ";:SYSO,E,D,2:PRINT:LE=VAL(W$):IFLE>12THEN564
566 AB$="":A$="[211]TARTING ":AB$="[217]EAR AND [205]ONTH ([217][217][205][205])? ":IFLE>1THENAB$=A$+AB$
568 POKEC,D:PRINTAB$;:SYSO,E,D,4:D$=W$:DY$=LEFT$(D$,2):DM$=RIGHT$(D$,2):PRINT:POKEC,D
570 DY=VAL(DY$):DM=VAL(DM$):IFLE<1THEN564
572 IFLE=1THENG$="":GOTO578
574 GM=DM+LE-1:GY=DY:IFGM>12THENGM=GM-12:GY=GY+1
576 G=GY*100+GM:G$=RIGHT$("0"+MID$(STR$(G),2),4)
578 F$=D$+TY$:PRINTA$+"FILE "F$:IFLE<>1THENPRINT"  [197]NDING FILE "G$+TY$
580 GOSUB1254:IFW$<>"Y"THEN562
582 FR$=RV$+D$:IFLE=1THENFR$=FR$+TY$
584 IFLE>1THENFR$=FR$+"-"+G$+TY$
586 GOSUB1076:PRINT"[195]OLLECTING [196]ATA FOR "FR$" ...":FORI=0TO40:FORJ=0TO1
588 B(I,J)=0:NEXT:FORJ=0TO12:B%(I,J)=0:NEXT:NEXT:B1=0:B2=0:BI=0
590 FORI=1TOLESTEPU:F$=DY$+DM$+TY$:GOSUB988:R=VAL(MID$(R$,9,3))
592 DM=VAL(DM$):IFI=LE THENB2=VAL(MID$(R$,RL-11,9))
594 FORJ=1TOR:T=0:P$=P1$+CHR$(J)+EP$:GOSUB990:IFASC(R$)=255THEN612
596 CA$=MID$(R$,RL-21,2):AM=VAL(MID$(R$,RL-19,8)):BA=VAL(MID$(R$,RL-11))
598 IFJ=1ANDI=1THENB1=BA
600 T$=MID$(R$,RL-2,1):V$=MID$(R$,RL-1,1):IFCA$="[206][194]"ORCA$="[197][194]"THENAM=BA
602 IFT$="-"THENAM=AM*-1
604 FORK=1TOV:IFCA$=B$(K,0)THENT=K:K=V
606 NEXT:IFT=0THENPRINTCA$" CATEGORY NOT FOUND":PRINTRQ$R,"[198]ILE "F$:GOTO610
608 B(T,0)=B(T,0)+AM:B%(T,DM)=B%(T,DM)+1:IFCA$="[201][206]"THENBI=BI+AM
610 B(0,0)=B(0,0)-AM*(T$="+"):B(0,1)=B(0,1)-AM*(T$="-")
612 NEXT:CLOSE2:PRINT"[198]ILE "F$" CLOSED":IFLE=1THEN618
614 DM=DM+U:IFDM>12THENDM=DM-12:DY=DY+1
616 DM$=RIGHT$("0"+MID$(STR$(DM),2),2):DY$=RIGHT$("0"+MID$(STR$(DY),2),2)
618 NEXT:FORJ=1TOV:FORK=1TO12:IFB%(J,K)THENB%(J,0)=B%(J,0)+1
620 NEXT:IFB%(J,0)THENB(J,1)=B(J,0)/B%(J,0)
622 NEXT:GOSUB868:GOTO544
624 JS=0:L$="[196][201][211][208][204][193][217][160][210][214]"+MID$(FR$,3):GOSUB862:ONF%GOTO544,626
626 IFFR$=""THEN1086
628 IFV=0THENGOSUB1076
630 SYSP,0,39,7,24,32,D:SYSA,0,8,"[195]ATEGORY [212]OTALS AND [193]VERAGES (1)
632 [158]A,0,9,"(null)ONTHLY ASCREQUENCY LENHART      (2)
634 SYSA,0,10,"[195]ATEGORIES [196]EFINITIONS       (3)"
636 SYSA,0,11,"[210]ETURN TO [194]UDGETAID [205]ENU     (4)":SYSM,8,0,32,4,D,E,"1234"
638 ONF%GOTO642,672,684,544
640 PRINT"[147]":GOSUB670
642 PRINT"[147]":GOSUB670:SYSA,0,1,"[195]ATEGORY[146]"
644 SYSA,12,1,"[212]OTALS[146]":SYSA,24,1,"[193]VERAGES[146]":SYSA,36,1,"# [205][146]"
646 SYSA,0,3,N$:FORI=1TOV:PRINTB$(I,0);:FORJ=0TO1:BA=B(I,J):GOSUB878
648 PRINTTAB(10+J*13)BA$;:NEXT:PRINTTAB(35)B%(I,0)
650 IFI=20THENGOSUB868:SYSP,0,39,2,24,32,D:SYSA,0,3,N$
652 NEXT:GOSUB868:SYSP,0,39,2,24,32,D:SYSA,0,8,N$:BA=B1:GOSUB878
654 PRINT"[194]EGINNING [194]ALANCE ="BA$:BC$="[212]OTAL [196]EPOSITS    ="
656 IFCR=-1THENBC$="[212]OTAL [195]HARGES     ="
658 BA=B(0,0):GOSUB878:PRINTBC$BA$:BC$="[212]OTAL [215]ITHDRAWALS ="
660 IFCR=-1THENBC$="[212]OTAL [208]AYMENTS    ="
662 BA=B(0,1):GOSUB878:PRINTBC$BA$:IFBI=0THEN666
664 BC$="[212]OTAL [201]NTEREST    =":BA=BI:GOSUB878:PRINTBC$BA$
666 BA=B2:GOSUB878:PRINT"[197]NDING [194]ALANCE    ="BA$
668 GOSUB868:SYSP,0,39,2,24,32,D:SYSA,0,3,N$:GOTO630
670 SYSP,0,39,0,0,160,E:POKEC,E:SYSCE,0,""+L$+"[146]":POKEC,D:SYSP,0,39,1,1,160,D:RETURN
672 PRINT"[147]":GOSUB670:L1$="[205]ONTHLY [198]REQUENCY [195]HART[146]":SYSCE,1,L1$
674 SYSA,0,2,"[195][193][212][160][160][160][212]  1 2 3 4 5 6 7 8 9 [207][160][206][160][196][146]":SYSA,0,3,N$
676 FORI=1TOV:IFI=20THENGOSUB868:SYSP,0,39,2,24,32,D:SYSA,0,3,N$
678 PRINTB$(I,0)"  ";:BB$=RIGHT$(BK$+STR$(B%(I,0)),3)+" ":PRINTBB$;
680 FORJ=1TO12:BB$=RIGHT$(BK$+STR$(B%(I,J)),2):PRINTBB$;:NEXT:PRINT:NEXT
682 GOSUB868:GOTO624
684 PRINT"[147]":GOSUB670
686 SYSA,0,3,N$:L1$="[195]ATEGORY [196]EFINITIONS[146]":SYSCE,1,L1$:SYSA,0,2,N$:FORI=1TOVSTEP2
688 FORJ=0TO1:PRINTTAB(J*20)B$(I+J,1);:NEXT:PRINT:NEXT:GOSUB868:GOTO624
690 JS=0:L$="[211][193][214][197][160][210][197][214][201][197][215][160][198][201][204][197]":GOSUB862:ONF%GOTO544,692
692 IFFR$=""THEN1086
694 SF=0:PRINT"[211]AVING "FR$:CLOSE7:OPEN7,DV,7,PF$+":"+FR$+",S,W":INPUT#15,ER,EM$
696 B$(0,0)="-1":B$(0,1)="0":IFER=63THENGOSUB1238:ON(SF+1)GOTO692,544
698 PRINT#7,V:FORI=0TOV:PRINT#7,B$(I,0);CR$;B$(I,1):FORJ=0TO1
700 PRINT#7,B(I,J):NEXT:NEXT:FORI=0TOV:FORJ=0TO12:PRINT#7,B%(I,J)
702 NEXT:NEXT:PRINT#7,B1:PRINT#7,B2:PRINT#7,BI:CLOSE7:GOSUB868:GOTO544
704 JS=0:L$="[204][207][193][196] [210][197][214][201][197][215][160][198][201][204][197]":GOSUB862:ONF%GOTO544,706
706 DI$="0:":IFCL<42THEN710
708 S4=1:GOSUB58:DI$=DI$+":":S4=0
710 PRINT"[210]EVIEW FILE? ";:SYSO,E,D,16:FR$=W$:PRINT:POKEC,D
712 PRINT"[211]EARCHING FOR "DI$+FR$:CLOSE7:OPEN7,DV,7,DI$+FR$+",S,R"
714 INPUT#15,ER,EM$:IFER=62THENPRINTEM$:GOSUB868:GOTO704
716 PRINT"[204]OADING "DI$+FR$" ...
718 [141]830:[132]7,V:[129]I[178]0[164]V:[132]7,B$(I,0),B$(I,1):[129]J[178]0[164]1
720 [132]7,B(I,J):[130]:[130]:[129]I[178]0[164]V:[129]J[178]0[164]12:[132]7,B%(I,J)
722 [130]:[130]:[132]7,B1:[132]7,B2:[132]7,BI:[160]7:[141]868:[137]544
724 L$[178]"(null)(null)RIGHT$(null)(null)CLOSE(null)"[170][202](FR$,2):[141]862:[145]F%[137]544,726
726 [151]C,D:[139]FR$[178]""[167]1086
728 [139]B$(1,0)[178]""[167][141]1076
730 M$[178]"LENATN        (null)(null)(null)ATN(null)(null) CLOSECLOSEATN(null)VAL(null)ATNCHR$VAL(null) CLOSE(null)(null)CLOSECLOSE01  02  03  04  05  06  07  08  09  10
732 M$=M$+"  11  12":CLOSE4:OPEN4,4,7:L$="[210][197][214][201][197][215] "+MID$(FR$,3):L=LEN(L$)
734 PRINT"[210]EADY PRINTER":GOSUB868:F=INT(80-L)/2:PRINT#4,TAB(F)L$:PRINT#4,CR$;M$
736 PRINT"[198]ORMATTING FOR PRINTOUT ...
738 [129]I[178]1[164]V:BP$[178]B$(I,0)[170]"   ":[129]J[178]0[164]1:BA[178]B(I,J):[141]878:BP$[178]BP$[170]"  "[170]BA$:[130]
740 [129]J[178]0[164]12:J$[178]"  "[170][200]("0"[170][202]([196](B%(I,J)),2),2):BP$[178]BP$[170]J$:
742 [130]:[152]4,BP$:[130]:[152]4:BA[178]B1:[141]878:[152]4,"PEEKEGINNING PEEKALANCE ="BA$
744 BC$[178]"(null)OTAL STR$EPOSITS    =":[139]CR[178][171]1[167]BC$[178]"(null)OTAL LENHARGES     ="
746 BA[178]B(0,0):[141]878:[152]4,BC$BA$:BC$[178]"(null)OTAL (null)ITHDRAWALS ="
748 [139]CR[178][171]1[167]BC$[178]"(null)OTAL (null)AYMENTS    ="
750 BA[178]B(0,1):[141]878:[152]4,BC$BA$:[139]BI[178]0[167]754
752 BC$[178]"(null)OTAL RIGHT$NTEREST    =":BA[178]BI:[141]878:[152]4,BC$BA$
754 BA[178]B2:[141]878:[152]4,"VALNDING PEEKALANCE    ="BA$
756 [152]4:L$[178]"LENATN(null)VALCHR$(null)(null)(null)CLOSESTR$VALASCRIGHT$(null)RIGHT$(null)RIGHT$(null)(null)(null)":L[178][195](L$):F[178][181]((80[171]L)[173]2):B[178]20
758 L$[178][200](BK$,F)[170]L$:[152]4,L$:[152]4
760 [129]I[178]1[164]V[169]4:I$[178]"":[129]J[178]0[164]3:[139]I[170]J[177]V[167]J[178]3:[137]764
762 J$[178][200](B$(I[170]J,1)[170]BK$,20):I$[178]I$[170]J$:[130]:
764 [152]4,I$:[130]:[152]4,TP$:[160]4:[145](S8[170]1)[137]544,38
766 L$[178]" ATNSTR$STR$/STR$VAL(null)VAL(null)VALCLOSELENATN(null)VALCHR$(null)(null)(null) ":[153]"LOAD":[151]C,FC:[158]P,1,38,1,6,Q4,U2
768 [158]P,0,37,0,5,Q3,F2:[158]P,2,36,1,4,160,FC:[141]864:[145]F%[137]38,770
770 [141]1076:B[178]20:[158]P,0,39,10,16,160,D
772 [158]A,2,11,"   ATNDDING OR DELETING CATEGORIES
774 SYSA,2,12,"COULD INVALIDATE PREVIOUS FILES AND
776 [158]A,2,13,"RECORDS. (null)HINK CAREFULLY, AND SEARCH
778 SYSA,2,14,"AND CHANGE ALL PREVIOUS RECORDS THAT"
780 SYSA,2,15,"MIGHT BE AFFECTED.[146]":SYSA,2,18,"[195]ONTINUE ([217]/[206])? ":GOSUB870
782 IFW$="N"THEN544
784 PRINT"[147]";:FORI=1TOV:IFI=20THENGOSUB868:PRINT"[145]"BK$:PRINT"[145]";
786 FORJ=0TO1:PRINTTAB(J*B)B$(I,J);:NEXT:PRINT:NEXT:PRINTV"[195]ATEGORIES"
788 N=0:PRINT"[193][146]DD/[196][146]ELETE/[197][146]XIT":SYSBR,"ADE":ONF%GOTO790,790,822
790 PRINT"[195]ATEGORY ([206][206])? ";:SYSO,E,D,2:PRINT:N1$=W$:SYSUC,N1$:IFN1$=""THEN790
792 N1$=LEFT$(N1$+" ",2):PRINT"[196]EFINITION? ";:SYSO,E,D,15:N2$=W$:PRINT:IFN2$=""THEN792
794 N2$=N1$+"="+N2$:IFF%=2THEN804
796 PRINT" [193]DDING CATEGORY [146]":SZ=0:FORI=1TOV:IFN1$=B$(I,0)THENSZ=1:
798 NEXT:IFSZTHENPRINT"[195]ATEGORY ALREADY EXISTS.":GOTO790
800 V=V+1:B$(V,0)=N1$:B$(V,1)=N2$:B$(V+1,0)="-1
802 B$(V[170]1,1)[178]"0":[153]"LENATEGORY "N2$" ADDED":[153]V;"LENATEGORIES TOTAL":[137]814
804 [153]" STR$ELETING CATEGORY "[170]N2$[170]"WAIT":[129]I[178]1[164]V
806 [139]B$(I,0)[178]N1$[175]B$(I,1)[178]N2$[167]K[178]I:I[178]V
808 [130]:[139]K[178]0[167][153]"LENATEGORY "N2$" NOT FOUND":[137]814
810 V[178]V[171]1:[129]I[178]K[164]V:B$(I,0)[178]B$(I[170]1,0):B$(I,1)[178]B$(I[170]1,1):[130]:B$(I,0)[178]"-1
812 B$(I,1)="0":PRINT"[195]ATEGORY "N2$" DELETED":PRINTV;"[195]ATEGORIES REMAINING
814 [141]838:[139]W$[178]"Y"[167]784
816 [153]"(null)EWRITING LENATEGORY ASCILE ...":[152]15,"S"[170]CF$:[141]828
818 [159]6,DV,6,CF$[170]",S,W":[141]828:[129]I[178]1[164]V[170]1:[129]J[178]0[164]1
820 [152]6,B$(I,J):[130]:[130]:[160]6
822 [153]"(null)RINT LENATEGORIES ((null)/(null))? ";:[141]870:[139]W$[179][177]"Y"[167]826
824 [153]"(null)EADY (null)RINTER":[141]868:S8[178]1:[160]4:[159]4,4,7:[137]756
826 [141]868:[137]38
828 [132]15,ER,EM$,ET,ES:[139]ER[178]50[167]834
830 [139] ER[179]20[167]834
832 [153]ER;EM$;ET,ES:[143]RUN
834 [142]
836 [158]P,0,39,7,24,32,PG:[142]
838 [151]C,E:[153]"(null)ORE ((null)/(null))? ";:[141]870:[142]
840 TY$[178]"":[158]A,0,13,"ASCILE (null)UFFIX? ":[158]O,E,D,4:TY$[178]"."[170]W$:[153]:[151]C,D
842 S%[178]0:[141]1230:[139]S%[178]1[167]856
844 [141]836:[158]A,0,7,"(null)ECORD (null)ENGTH ="[170][196](RL)
846 DL[178]RL[171]33:[158]A,0,8,"STR$ESCRIPTION ASCIELD (null)ENGTH ="[170][196](DL)
848 [158]A,0,9,"ASCILE RIGHT$NTERVAL ="[170][196](U):[158]A,0,10,"ASCILE (null)UFFIX = "[170]QU$[170]TY$[170]QU$
850 Z$[178]"(null)OT A LENREDIT ATNCCOUNT":[139]CR[179]1[167] Z$[178][201](Z$,14)
852 [158]A,0,11,Z$:Z$[178]"LENPEEK(null)":[139]CL[177]41[167]Z$[178]"LEN(null)STR$"
854 Z$[178]Z$[170]" STR$RIVE":[158]A,0,12,Z$:[139]CL[177]41[167]Z$[178]"(null)ARTITION "[170]PF$:[158]A,0,13,Z$
856 [153]:[153]:[141]1254:[139]W$[179][177]"Y"[167]S%[178]1
858 [141]836:[158]A,0,8,N$:[142]
860 [151]C,FC:[158]CE,3,L$:[151]C,D:[142]
862 [153]"LOAD":[151]C,FC:[158]P,1,38,1,6,Q6,U3:[158]P,0,37,0,5,Q5,F3
864 [158]P,2,36,1,4,160,FC:[158]CE,2,L$:[139]JS[178]1[167][158]A,0,7,N$:[151]C,D:[142]
866 [158]CE,3,"(null) TO EXIT/LEN TO CONTWAIT":[158]A,0,7,N$:[151]C,D:[158]BR,"XC":[142]
868 [151]C,E:[153]PP$;
870 [158]O,E,D,1:[158]LC,W$:[153]:[151]C,D:[142]
872 [160]2:[159]2,DV,2,PF$[170]":"[170]F$[170]",L,"[170][199](RL):[141]828:[142]
874 [160]3:[159]3,DV,3,PF$[170]":"[170]F$[170]",L,"[170][199](RL):[141]828:[142]
876 [152]15,P$:[141]828:[142]
878 [139]BA[178]0[167]BA$[178]"     0.00":[137]882
880 BA$[178][196]([165]S(BA)):BA$[178][201](BK$[170]BA$,8):BA$[178][200](BA$,6)[170]"."[170][201](BA$,2)
882 [142]
884 [141]836:[158]A,0,7,RC$:[158]A,13,7,CB$:[158]A,0,9,"STR$ATE         (A)
886 BX=BA:SYSA,0,10,"[195]HECK #      (B)":SYSA,0,11,"[195]ATEGORY     (C)
888 [158]A,0,12,"ATNMOUNT       (D)":[158]A,0,13,"(null)RANSACTION  (F)":TR[178]13:TD[178]14
890 [158]A,0,14,"STR$ESCRIPTION  (H)":[158]A,0,17,BK$:[158]A,0,16,"(null)KAY       (Y/X)
892 SYSA,0,17,BK$:SYSA,0,16,"[207]KAY       (Y/X)
894 [151]C,D:[158]M,9,0,15,8,D,E,"ABCDFHNY(null)X(null)":[145]F%[141]924,932,936,940,950,920
896 [145](F%[171]6[177]0)[172][171](F%[171]6)[137]898,900,900,960,960
898 [139]F%[179]8[167]892
900 BA[178]BA[170]AM[172](T$[178]"-")[171]AM[172](T$[178]"+"):[158]P,0,39,13,24,32,PG:[141]878:TR[178]14:TD[178]16
902 [158]A,0,13,"PEEKALANCE      (E)":[158]A,18,13,[200](BK$,11):[158]A,18,13,BA$
904 [158]A,0,14,"(null)RANSACTION  (F)":[158]A,18,14,T$:[158]A,0,15,"(null)ERIFICATION (G)
906 SYSA,18,15,V$:SYSA,0,16,"[196]ESCRIPTION  (H)":SYSA,18,16,DE$
908 SYSA,0,19,BK$:SYSA,0,18,"0KAY       (Y/X)":POKEC,D
910 SYSM,9,0,15,10,D,E,"ABCDEFGHNY[217]X[216]
912 [145]F%[141]924,932,936,940,954,950,958,920
914 [145](F%[171]8[177]0)[172][171](F%[171]8)[137]908,918,918,960,960
916 [139]F%[179]10[167]908
918 R$[178]DA$[170]CH$[170]DE$[170]CA$[170]AM$[170]BA$[170]T$[170]V$:P$[178]P1$[170][199](RC)[170]EP$:[141]978:[142]
920 AT$[178]BK$[170]"  ":[158]A,18,TD,AT$:[158]A,18,TD,N$:[158]O,E,D,DL:DE$[178]W$
922 DE$[178][200](DE$[170]BK$,DL):[158]A,18,TD,AT$:[158]A,18,TD,DE$:[142]
924 [158]A,18,9,KR$:[158]A,18,9,N$:[158]O,E,D,8:DA$[178]W$
926 [139][195](DA$)[178]2[167]DA$[178]DM$[170]"/"[170]DA$[170]"/"[170]DY$
928 [139][195](DA$)[179][177]8[167]924
930 [158]A,18,9,KR$:[158]A,18,9,DA$:[142]
932 [158]A,18,10,KR$:[158]A,18,10,N$:[158]O,E,D,3:CH$[178]W$
934 CH$[178][200](CH$[170]BK$,3):[158]UC,CH$:[158]A,18,10,KR$:[158]A,18,10,CH$:[142]
936 [158]A,18,11,KR$:[158]A,18,11,N$:[158]O,E,D,2:CA$[178]W$
938 CA$[178][200](CA$[170]BK$,2):[158]UC,CA$:[158]A,18,11,KR$:[158]A,18,11,CA$:[142]
940 [158]A,18,12,KR$:[158]A,18,12,N$:[158]O[170]3,E,D,8:AM[178][197](W$)
942 [139]AM[178]0[167]AM$[178]"    0.00":[137]946
944 AM$[178][196]([165]S(AM)):AM$[178][201](BK$[170]AM$,7):AM$[178][200](AM$,5)[170]"."[170][201](AM$,2)
946 [139]SA[178]1[167][142]
948 [158]A,18,12,KR$:[158]A,19,12,AM$:[142]
950 [158]A,18,TR,KR$:[158]A,18,TR,N$:[158]O,E,D,1:T$[178]W$:[158]UC,T$
952 [158]A,18,TR,KR$:[158]A,18,TR,T$:[142]
954 [158]A,18,13,KR$:[158]A,18,13,N$:[158]O[170]3,E,D,9:BA[178][197](W$)
956 [141]878:[158]A,18,13,KR$:[158]A,18,13,BA$:[142]
958 [158]A,18,15,KR$:[158]A,18,15,N$:[158]O,E,D,1:V$[178]W$:[158]UC,V$:[158]A,18,15,V$:[142]
960 RC[178]RC[171]1:[139]RC[179]2[167]RC[178]2
962 BA[178]BX:[141]878
964 [142]
966 BA[178]BX:[141]878:[137]246
968 [151]C,E:[153]"(null)PDATING ATNCCOUNT ...":[151]C,D:T$[178]"(null)":V$[178]"(null)"
970 CH$[178][202]([196](RC),2):CH$[178][201]("000"[170]CH$,3):AM[178]0:AM$[178]"    0.00"
972 DE$[178][200]("VALNDING PEEKALANCE"[170]BK$,DL):CA$[178]"VALPEEK":[141]878
974 R$[178]DA$[170]CH$[170]DE$[170]CA$[170]AM$[170]BA$[170]T$[170]V$:[139][195](R$)[179][177]RL[171]1[167]980
976 [153]HA$:RN$[178]"002":[141]992:[153]FC$:[141]994:P$[178]P1$[170][199](2)[170]EP$
978 [141]872:[141]876:[152]2,R$:[141]828:[141]876:[160]2:[142]
980 [153]"(null)E-ENTER VALNDING STR$ATE ";:[158]O,E,D,8:DA$[178]W$:[153]
982 [139][195](DA$)[178]2[167]DA$[178]DM$[170]"/"[170]DA$[170]"/"[170]DY$
984 [139][195](DA$)[179][177]8[167]980
986 [137]974
988 P$[178]P1$[170][199](2)[170]EP$
990 [141]872:[141]876:[132]2,R$:[141]828:[141]876:[160]2:[142]
992 [153]RN$" "DE$:[142]
994 [153]"  "DA$" "CH$" "CA$" "AM$" "BA$" "T$" "[170]V$:[142]
996 AT$[178]BK$[170]"  ":[158]A,18,16,AT$:[158]A,18,16,N$:[158]O,E,D,DL:D3$[178]W$
998 D3$[178][200](D3$[170]BK$,DL):[158]A,18,16,AT$:[158]A,18,16,D3$:[142]
1000 [158]A,18,9,KR$:[158]A,18,9,N$:[158]O,E,D,8:D1$[178]W$
1002 [139][195](D1$)[178]2[167]D1$[178]DM$[170]"/"[170]D1$[170]"/"[170]DY$
1004 [139][195](D1$)[179][177]8[167]1000
1006 [139]R[178]2[167]DA$[178]D1$
1008 [158]A,18,9,KR$:[158]A,18,9,D1$:[142]
1010 [158]A,18,10,KR$:[158]A,18,10,N$:[158]O,E,D,3:D2$[178][200](W$[170]BK$,3)
1012 [158]UC,D2$:[158]A,18,10,KR$:[158]A,18,10,D2$:[142]
1014 [158]A,18,11,KR$:[158]A,18,11,N$:[158]O,E,D,2:D4$[178][200](W$[170]BK$,2)
1016 [158]UC,D4$:[158]A,18,11,KR$:[158]A,18,11,D4$:[142]
1018 [158]A,18,12,KR$:[158]A,18,12,N$:[158]O[170]3,E,D,8:DX[178][197](W$)
1020 D6[178]D6[170]([171](D7$[178]"+"))[172](DX[171]D5)[170]((D7$[178]"-"))[172](DX[171]D5):D5[178]DX
1022 [139]D5[178]0[167]D5$[178]"    0.00":[137]1026
1024 D5$[178][196]([165]S(D5)):D5$[178][201](BK$[170]D5$,7):D5$[178][200](D5$,5)[170]"."[170][201](D5$,2)
1026 [158]A,18,12,KR$:[158]A,19,12,D5$:[137]1030
1028 [158]A,18,13,KR$:[158]A,18,13,N$:[158]O[170]3,E,D,9:D6[178][197](W$)
1030 BA[178]D6:[141]878:D6$[178]BA$:[139]SD[167][142]
1032 [158]A,18,13,KR$:[158]A,18,13,D6$:S9[178]1:[142]
1034 [158]A,18,14,KR$:[158]A,18,14,N$:[158]O,E,D,1:D7$[178]W$:[158]UC,D7$
1036 [158]A,18,14,KR$:[158]A,18,14,D7$:[142]
1038 [158]A,18,15,KR$:[158]A,18,15,N$:[158]O,E,D,1:D8$[178]W$:[158]UC,D8$:[158]A,18,15,D8$:[142]
1040 [153]"ATNDJUSTING BALANCE ON FOLLOWING RECORDS":[151]C,D:[153]HA$:[153]"ON"FC$
1042 [129]I[178]R[170]1[164]RC:P$[178]P1$[170][199](I)[170]EP$:[141]990
1044 [139][198](R$)[178]255[167]RD$[178][196](R):[153]RD$[170]" RECORD DELETED":[137]1058
1046 D1$[178][202](R$,1,8):D2$[178][202](R$,9,3):D3$[178][202](R$,12,DL):D4$[178][202](R$,RL[171]21,2)
1048 D5$[178][202](R$,RL[171]19,8):D6$[178][202](R$,RL[171]11,9):D7$[178][202](R$,RL[171]2,1)
1050 D8$[178][201](R$,1):D5[178][197](D5$):D6[178][197](D6$):I$[178][201]("0"[170][202]([196](I),2),2)
1052 D6[178]BA[170]([171](D7$[178]"+"))[172]D5[170]((D7$[178]"-"))[172]D5:BA[178]D6
1054 [141]878:D6$[178]BA$:R$[178]D1$[170]D2$[170]D3$[170]D4$[170]D5$[170]D6$[170]D7$[170]D8$:[141]978
1056 [153]I$" "D3$:[153]"  "D1$" "D2$" "D4$"CLOSE"D5$" "D6$" "D7$" "D8$
1058 [130]:[141]868:[142]
1060 BY[178]1:LF[178]8:FI$[178]"STR$ATE":[142]
1062 BY[178]9:LF[178]3:FI$[178]"LENHECK #":[142]
1064 BY[178]12:LF[178]DL:FI$[178]"STR$ESCRIPTION":[142]
1066 BY[178]RL[171]21:LF[178]2:FI$[178]"LENATEGORY":[142]
1068 BY[178]RL[171]19:LF[178]8:FI$[178]"ATNMOUNT":[142]
1070 BY[178]RL[171]11:LF[178]9:FI$[178]"PEEKALANCE":[142]
1072 BY[178]RL[171]2:LF[178]1:FI$[178]"(null)RANSACTION":[142]
1074 BY[178]RL[171]1:LF[178]1:FI$[178]"(null)ERIFICATION":[142]
1076 [153]"(null)EADING "[202](CF$,3)" FILE ...":[159]6,DV,6,CF$[170]",S,R"
1078 [132]15,ER,EM$:[139]ER[178]62[167][153]EM$:[141]868:[137]1084
1080 [141]828:V[178]0:[129]I[178]1[164]40:[129]J[178]0[164]1:[132]6,B$(I,J):[130]:[139]B$(I,0)[178]"-1"[167]V[178]I[171]1:I[178]40
1082 [130]
1084 [160]6:[142]
1086 [153]"LENOLLECT STR$ATA OR (null)OAD ASCILE FIRST":[141]868:[137]544
1088 [158]CE,23," (null)PEN NEW FILE WAIT":[158]CE,24,PP$:[141]870:[137]88
1090 RR[178]RR[171]1:P$[178]P1$[170][199](RR)[170]EP$:[141]872:[141]876:[132]2,RR$:[141]828:[141]876:[160]2:[142]
1092 C5[178][197]([202](RR$,RL[171]19,8)):C6[178][197]([202](RR$,R1[171]11,9)):[139]C5[178]0[175]C6[178]0[167]1090
1094 D6[178]C6:[142]
1096 [158]A,0,22,N$:[153]"STR$ISK COMMAND?WAIT ";:[158]O,E,D,CL:CQ$[178]W$:[153]:[139]CQ$[178]""[167]38
1098 [152]15,CQ$:[158]A,0,22,BK$[170]"   ":[132]15,ER,EM$,ET,ES
1100 EM$[178][196](ER)[170]" "[170]EM$[170]","[170][196](ET)[170]","[170][196](ES):[158]A,0,22,EM$:[153]:[141]868:[137]38
1102 [158]A,Z,21,L$:[158]A,Z,22,"LENOLOR 1 (0-15)? ":[158]O,E,D,2:D[178][197](W$)
1104 [158]A,Z,23,"LENOLOR 2 (0-15)? ":[158]O[170]3,E,D,2:E[178][197](W$):[142]
1106 [160]10:[159]10,DV,5,"COL.OPT,S,R":[141]828
1108 [132]10,D,E,PG,FC,U1,F1,U2,F2,U3,F3:[141]828
1110 [132]10,Q1,Q2,Q3,Q4,Q5,Q6:[141]828:[160]10:[142]
1112 JS[178]0:[151]C,FC:L$[178]" (null)(null)(null)RIGHT$(null)(null)(null) ":[153]"LOAD";:[158]P,1,38,1,6,Q4,U2:[158]P,0,37,0,5,Q3,F2
1114 [158]P,2,36,1,4,160,FC:[141]864:[145]F%[137]38,1116
1116 [141]1204:[141]1208:[141]1212:[151]C,D:[158]A,18,7,"PEEKACKGROUND LENOLOR   (1)
1118 SYSA,18,8,"[195]URSOR [195]OLOR       (2)":SYSA,18,9,"[205]ENU [194]ACKGROUND    (3)
1120 [158]A,18,10,"(null)AIN (null)ENU ASCRAME    (4)":[158]A,18,11,"(null)AIN (null)ENU (null)HADOW   (5)"
1122 [158]A,18,12,"(null)ECONDARY ASCRAME    (6)":[158]A,18,13,"(null)ECONDARY (null)HADOW   (7)"
1124 [158]A,18,14,"(null)ERTIARY ASCRAME     (8)":[158]A,18,15,"(null)ERTIARY (null)HADOW CLOSECLOSE (9)"
1126 [158]A,18,16,"(null)AVE LENOLOR (null)PTIONS (LEN)":[158]A,18,17,"LENHOOSE ASCILE (null)PTIONS(ASC)
1128 SYSA,18,18,"[199]OTO [205]AIN [205]ENU     ([216])":SYSFR,9,39,20,24,E:Z=10
1130 SYSM,7,18,39,12,D,E,"123456789CFX[195][198][216]"
1132 ONF%GOTO1136,1138,1140,1144,1148,1150,1154,1156,1160,1188,1162,38
1134 ONF%-13GOTO1188,1162,38
1136 L$="[194]ACKGROUND [195]OLOR:":GOSUB1196:PG=I:POKEBC,PG:POKEBC+1,PG:GOTO1200
1138 L$="[195]URSOR [195]OLOR:":GOSUB1102:POKEC,D:SYSFR,9,39,20,24,E:GOTO1200
1140 L$="[205]ENU [194]ACKGROUND:":GOSUB1196:FC=I
1142 POKEC,FC:GOSUB1204:GOSUB1208:GOSUB1212:POKEC,D:GOTO1200
1144 L$="[205]AIN [205]ENU [198]RAME:":GOSUB1196:F1=I:GOSUB1198:Q1=I
1146 GOSUB1204:GOTO1200
1148 L$="[205]AIN [205]ENU [211]HADOW:":GOSUB1196:U1=I:GOSUB1198:Q2=I:GOTO1146
1150 L$="[211]ECONDARY [198]RAME:":GOSUB1196:F2=I:GOSUB1198:Q3=I
1152 GOSUB1208:GOTO1200
1154 L$="[211]ECONDARY [211]HADOW:":GOSUB1196:U2=I:GOSUB1198:Q4=I:GOTO1152
1156 L$="[212]ERTIARY [198]RAME:":GOSUB1196:F3=I:GOSUB1198:Q5=I
1158 GOSUB1212:GOTO1200
1160 L$="[212]ERTIARY [211]HADOW:":GOSUB1196:U3=I:GOSUB1198:Q6=I:GOTO1158
1162 L$="[198]ILE [207]PTIONS":SYSA,Z,21,L$:SYSA,Z,23,"[211]ELECT ([195][194][205]/[195][205][196])":CL=41:PF$="0"
1164 SYSA,Z,22,"[196]ISK [196]RIVE [212]YPE? ":SYSO,E,D,3:SYSUC,W$:PRINT:IFW$<>"[195][205][196]"THEN1170
1166 CL=127:GOSUB1202:SYSA,Z,23,"[210]ANGE (1 TO 31)":SYSA,Z,22,"[208]ARTITION #? "
1168 SYSO+3,E,D,2:PF$=W$:SYSA,Z,23,X$:SYSA,Z,23,"[208]ATH?[160]":SYSO,E,D,22:PF$=PF$+W$
1170 GOSUB1202:SYSA,Z,22,"[198]ILE [211]UFFIX? ":SYSO,E,D,4:TY$="."+W$:GOSUB1202
1172 SYSA,Z,22,"[195]REDIT [193]CCT ([217]/[206])? ":GOSUB870:CR=-(W$<>"Y")+(W$="Y")
1174 GOSUB1202:SYSA,Z,23,"[210]ANGE (45-70)":SYSA,Z,22,"[210]ECORD [204]ENGTH? "
1176 SYSO+3,E,D,2:RL=VAL(W$):IFRL<45ORRL>70THENSYSA,Z,22,X$:GOTO1174
1178 GOSUB1202:SYSA,Z,23,"[210]ANGE (1-12)":SYSA,Z,22,"[198]ILE INTERVAL? "
1180 SYSO+3,E,D,2:U=VAL(W$):PRINT:IFU<1ORU>12THENSYSA,Z,22,X$:GOTO1178
1182 GOSUB1202:SYSA,Z,22,"[211]AVE [207]PTIONS ([217]/[206])? ":GOSUB870:IFW$="Y"THENGOSUB1202:GOTO1244
1184 GOTO1200
1186 SYSP,25,28,19,21,160,FC:RETURN
1188 FO$="0:COL.OPT":PRINT#15,"S"+FO$:SYSA,Z,21,MID$(FO$,3):SYSA,Z,22,"[211]AVING ...
1190 [160]10:[159]10,DV,5,FO$[170]",S,W":[141]828:[152]10,D;CR$;E;CR$;PG;CR$;FC:[141]828
1192 [152]10,U1;CR$;F1;CR$;U2;CR$;F2;CR$;U3;CR$;F3;CR$;Q1;CR$;Q2;CR$;Q3:[141]828
1194 [152]10,Q4;CR$;Q5;CR$;Q6:[141]828:[160]10:[137]38
1196 [158]A,Z,21,L$:[158]A,Z,22,"LENOLOR (0-15)? ":[158]O[170]3,E,D,2:I[178][197](W$):[151]C,D:[142]
1198 [158]A,Z,23,"(null)CREEN LENODE? ":[158]O,E,D,3:I[178][197](W$):[153]:[151]C,D:[142]
1200 [141]1202:[158]A,Z,21,X$:[137]1130
1202 [158]A,Z,22,X$:[158]A,Z,23,X$:[142]
1204 [151]C,FC:[158]P,1,6,9,13,Q2,U1:[158]P,0,5,8,12,Q1,F1:[158]P,1,4,9,11,160,FC
1206 L$[178]"(null)1WAIT":[158]A,2,10,L$:[151]C,D:[142]
1208 [151]C,FC:[158]P,10,16,9,13,Q4,U2:[158]P,9,15,8,12,Q3,F2
1210 [158]P,10,14,9,11,160,FC:L$[178]"(null)2WAIT":[158]A,11,10,L$:[151]C,D:[142]
1212 [151]C,FC:[158]P,1,6,17,21,Q6,U3:[158]P,0,5,16,20,Q5,F3
1214 [158]P,1,4,17,19,160,FC:L$[178]"(null)3WAIT":[158]A,2,18,L$:[151]C,D:[142]
1216 [158]CE,4,"LENURSOR TO MOVE/WAIT(null)VAL(null)(null)(null)(null) TO SELECTWAIT":[151]C,D:[142]
1218 [158]39948,54272,40960,255:[158]RH[170]3,40960,E,U1,"PEEKCLOSEATN (null) (null) VALCLOSE(null) 6 4":[137]38
1220 [158]39948,58624,40960,255
1222 [158]RH[170]3,40960,E,U1,"ATN LEN LENCLOSE(null)CLOSE(null) (null)CLOSE(null) CLOSECLOSE(null) ATN (null) ATNCLOSECHR$ VAL (null)":[137]70
1224 [158]39948,63488,40960,255
1226 [158]RH[170]3,40960,E,U1,"PEEKCLOSE(null) STR$ CHR$ VALCLOSE(null) ATN RIGHT$ STR$":[137]544
1228 [151]C,E:[153]AR$;:[141]870:[151]C,D:[142]
1230 FO$[178]"FOP"[170]TY$:[160]9:[159]9,DV,4,"0:"[170]FO$[170]",S,R"
1232 [132]15,ER,EM$,ET,ES:[139]ER[179][177]62[167][141]830:[137]1236
1234 [153]QU$FO$QU$" "EM$:[141]868:S%[178]1:[142]
1236 [132]9,TY$,CR,RL,U,CL,PF$:[141]828:[160]9:[142]
1238 [153][202](FR$,3)" "EM$:[153]"(null)EPLACE IT ((null)/(null))?CLOSE";:[141]870:[139]W$[178]"N"[167]SF[178]1:[142]
1240 [152]15,"S0:"[170]FR$:[141]828:[142]
1242 BA$[178][202](R2$,RL[171]11,9):BA[178][197](BA$):RC[178]RQ[171]1:DA$[178][202](R2$,1,8):[141]968:[142]
1244 FO$[178]"0:FOP"[170]TY$:Z$[178]"(null)AVING "[170]FO$:[158]A,Z,22,Z$
1246 [160]9:[159]9,DV,4,FO$[170]",S,W":[132]15,ER,EM$,ET,ES:[139]ER[179][177]63[167][141]830:[137]1252
1248 [141]1202:[158]A,Z,22,EM$:[158]A,Z,23,"(null)EPLACE IT ((null)/(null))? ":[141]870:[139]W$[179][177]"Y"[167]1200
1250 [152]15,"S"[170]FO$:[137]1244
1252 [152]9,TY$;CR$;CR;CR$;RL;CR$;U;CR$CL;CR$;PF$:[141]828:[160]9:[137]1200
1254 [153]"(null)(null)CLOSE((null)/(null))? ";:[141]870:[151]C,D:[142]
1256 [139]R[179]3[167][153]"LENAN'T INSERT/DELETE BELOW "RQ$"3":S3[178]1:[141]868
1258 [139]R[178]0[176]R[177]RC[167][153]"(null)ECORD REQUESTED IS BEYOND RANGE OF FILE.":S3[178]1:[141]868
1260 [142]
1262 [158]A,13,QN,AR$:[141]870:[139]W$[179][177]"Y"[167]38
1264 [158]A,13,QN,"               WAIT":[158]CE,QN," VALND ":[129]K[178]2[164]15:[160]K:[130]
1266 [129]I[178]0[164]21:[151]828[170]I,8[170]I:[130]
1268 [139]DV[179]8[176]DV[177]29[176]DV[178]8[167]1272
1270 A[178][194](828):B[178][194](828[170]DV[171]8):[151]828,B:[151]828[170]DV[171]8,A
1272 A$[178]"HELLO CONNECT":[129]J[178]8[164]29:I[178][194](828[170]J[171]8):[139]I[178]14[167][130]
1274 [160]2:[159]2,I,2:[160]2:[139]ST[167]1278
1276 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]1280
1278 [130]:[153]"LOAD":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
1280 Q$[178][199](34):[151]646,[194](53281):[153]"LOAD":[151]53272,23
1282 [153]"LOADP(null)2048,0:P(null)44,8:P(null)43,1:P(null)56,160:P(null)55,0:CLR:L(null)"Q$A$Q$","I
1284 [153]"RUN:":[151]631,13:[151]632,13:[151]198,2:[128]
1286 [160]15:[159]15,DV,15,"CP":[132]15,JJ
1288 [160]2:[159]2,DV,2,"$:":[161]#2,W$:[160]2:[139]W$[178]"D"[167]JJ[178]2
1290 [142]
1292 [151]631,[198]("C"):[151]198,1:[142]