' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   ՠ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d z# u*` ̍ɍ ԍōӍōԱÍîύčōҍō  ˱ΠӍîύбԍ̍ύ  ҮϠîōčԍ ӍӠٍӍō̠ōӍ͍ǮͮîҍӠ͠ԍΠӍԍčÍӠč؍ΠӍԍčΠٍӍΠӍԍΠӍڠЍ čԠŠˍōŠԍ ΠōԠŠˍ Ǡ΍ ōōȍō67 `ɇəL J G ?L J ?I ? ?`,0` X@Af@i(@ @BAC⩍ BiBCiCB@ iLi $%'L `sx`ҠΠĠ΍΍΍ӠōލԠĠӍӍŠōčލҠǠ΍ή̍ȠY--------------":20:756:)~:32210ST$(T$,1)5090)I112:BD%(T,I):IBI112:BA%(T,I):IITXD$"CLOSE"^d}p}32230}D$"RUN CMMENU,D1"}:10:10::"INSERT";::" : PROGRAM DISK"}12:10::"DRIVE";::" : 1"}15:"--------------HIT ANY KE";FF$:::8:"SLOT:";::" "S0%,::"DRIVE:";::" "D0%:15:8:"----- HIT ANY KEY -----":19:756:::3000 *** READ DATA *** D$"OPEN ";FF$".RA";",L180,S";S4%;",D";D4%T1T%D$"READ ";FF$".RA";",R";TBC$(T):BT$(T)B FILE IS ABOUT":"TO BE CREATED ON PROGRAM DISK"::"DO YOU WISH TO CONTINUE ";QS$ QS$"Y"ė:10:"INSERT DATA DISK AND PRESS 'RETURN' ";QS$:3000 D$"OPEN ";FF$;".SQ":D$"WRITE ";FF$;".SQ":0:D$"CLOSE":3000n :10:8:"INSERT FILE DISK :13)5001900. ** CHECK DATA DISK ** ; :3030 D$"OPEN ";FF$;".SQ,S";S0%;",D";D0%:D$"READ ";FF$;".SQ":X$:D$"CLOSE" 216,0:70 (222)53040 3039 D$"VERIFY DEFINITIONS.RA"R :10::"WARNING !!!";::" ";FF$;",I)BA%(T,I)Ġ13:jBT$(T)"I"BD%(T,I)BA%(T,I)1.05Ġ1OtBA%(T,I)01160p~39,39(BA%(T,I)PB)(3I)2wIlZ$vZ$(8)1940TT1:T1T1:"";1000Z$(32)1970TT1:TT%TT%:"";1000Z$"E"Z$(A%(T,I)I(PB(GM35):PB0PB1=GM%GM:GM%;")";II112^BD%(T,I)01070$39,39(BD%(T,I)PB)(3I)3.I8I112B12LBT$(T)"E"BA%(T,I)BD%(T,I)Ġ13VBT$(T)"E"BA%(T,I)BD%(T,I)1.05Ġ1`BT$(T)"I"BD%(T G P T V C";y 24:1:" ";:24:1:"L T ";BC$(T);" (";BT$(T);") (MAX = "; :1:39,350:13:34,300:12:29,250:6:39,252 GM0:I112:BD%(T,I)GMGMBD%(T,I) II112:BA%(T,I)GMGMBCT$BC$(T)1000 0Ti :14:10:"*** UNKNOWN ***":T11000:T:14:10:" ":540 21:1:"A B J F M A M J J A S O N D"; 22:1:"C D A E A P A U U U E C O E"; 23:1:"T G N B R R Y N LAN$:XX$:AI$:"CLOSE"! 5000S ::5:5:"BUDGET/ACTUAL GRAPHICAL ANALYSIS" 10:5:"(C)ONTINUE OR (E)ND: ";:Z$:Z$ Z$"E"32000 Z$""T1:1000 Z$"C"510 12:5:"ENTER CATAGORY: ";CT$ !CT$""T1:1000 &T1T%: PT% UT%0170" ZT1T%. dXS%(T)5 TD D$"CLOSE"o BC$(T%),BT$(T%),BD%(T%,12),BA%(T%,12) T%0ė:10:"NO BUDGET ON FILE !"::32000 S2%F2%10:D2%F2%S2%10:"OPEN ACCOUNT.RA,L90,S";S2%;",D";D2%:"READ ACCOUNT.RA,R1":READ DEFINITIONS.RA,R1":DT$:CN$:A1$:A2$:CC$:PS%:PC$:F1%:F2%:F3%:F4%:F5%:"CLOSE"h D$""w XS%(3000)} 2 7FF$"BUDGET":S4%F4%10:D4%F4%S4%10:S0%S4%:D0%D4% <3000 FD$"OPEN ";FF$;".SQ,S";S4%;",D";D4%:D$" READ ";FF$;".SQ"*  ** CHECQUEMATE-RPT6 **= ** BUDGET GRAPHING **] ** UPDATED 10/12/81 - SRCd6S10:K$(((K100).5)):K(K$):K3KK$"00":K$(KK$,3K)K$:K336,((36)S(K1)):K$(K$,K2):K$;:] "OPEN DEFINITIONS.RA,L200,D1":"     D$"CLOSE"}'}32230>}D$"RUN CMMENU,D1"q}:10:10::"INSERT";::" : PROGRAM DISK"}12:10::"DRIVE";::" : 1"}15:"--------------HIT ANY KEY--------------":20:756:~:32210DILE DISK :";FF$:::8:"SLOT:";::" "S0%,::"DRIVE:";::" "D0%:15:8:"----- HIT ANY KEY -----":19:756:::3000 *** READ DATA *** D$"OPEN ";FF$".RA";",L90,S";S5%;",D";D5%D$"READ ";FF$".RA";",R";XRCD$:CP$:CA$:CC$:CM$" ";FF$;" FILE IS ABOUT":"TO BE CREATED ON PROGRAM DISK"::"DO YOU WISH TO CONTINUE ";QS$ QS$"Y"ė:10:"INSERT DATA DISK AND PRESS 'RETURN' ";QS$:3000 D$"OPEN ";FF$;".SQ":D$"WRITE ";FF$;".SQ":0:D$"CLOSE":3000x :10:8:"INSERT FCT:4:D$"PR#0":10008 ** CHECK DATA DISK ** E :3030 D$"OPEN ";FF$;".SQ,S";S0%;",D";D0%:D$"READ ";FF$;".SQ":X$:D$"CLOSE" 216,0:70 (222)53040 3039 D$"VERIFY DEFINITIONS.RA"\ :10::"WARNING !!!";::PR#";PS%:PC$$500".T1T%:3(16384)160İ900g5(16384)155Ĺ16368,0:D$"PR#0":1000u8XRXS%(T)B5000LCD$;:11:(CP$,18);:27:K(CA$):4:36,40:(CC$,14);:36,55:(CM$,23):CTCT(CA$)VT`" ":"TOTALS";:36,26:K16384)160Z1:904914; *** REPORT START *** F:CT0Y"CHARGE LIST"10:5:"(P)RINT REPORT OR (E)XIT ";:QS$:QS$QS$"E"QS$"*"32000QS$"P"ĺ"";:1020900(16384)155Ĺ16368,0:D$"PR#0":1000 D$" D$"":D$"PR#0":"":34,0:ZZ$(0)"START":ZZ$(1)"STOP"C Z0h 34,16::34,0:18:5:"PRESS :" 20:13:"'SPACE' TO ";::ZZ$(Z): 22:13:"'ESC' TO QUIT" Z1Ĺ16368,0:D$"PR#";PS%:PC$: 16368,0 (16384)155ı(******************************************************"} 0"DATE COMPANY AMOUNT CATEGORY COMMENT" :"*******************************************************************************":" " D  *** START/STOP *** ;  *** PAGE HEADER *** 9 " ":CN$;:36,70:DT$O 36,70:"PAGE :1"f 35:"CHARGE LIST" 36,(40((AN$AI$)2)2):AN$;" ";AI$ " " !(16384)160İ900 #(16384)155Ĺ16368,0:D$"PR#0":10007 &"*************************;".SQ" PT% UT%0170( ZT1T%4 dXS%(T); TJ D$"CLOSE"~ T%0ė:10:"NO CHARGES ON FILE !"::32000 S2%F2%10:D2%F2%S2%10:" OPEN ACCOUNT.RA,L90,S";S2%;",D";D2%:" READ ACCOUNT.RA,R1":AN$:XX$:AI$:" CLOSE" "1000z #   Ԯ Į Ԯ Ů ˮ  Ӯв ԮѠ ĮѠĮѠԮ ŮѠ ͷԱԲ ԳԴԵ Զ"ՠ! ͱ Ͳͳʹ/ ͵Ͷ"1":"READ DEFINITIONS.RA,R1":DT$:CN$:A1$:A2$:CC$:PS%:PC$:F1%:F2%:F3%:F4%:F5%:"CLOSE"n D$""} XS%(3000) 2 7FF$"CHARGE":S5%F5%10:D5%F5%S5%10:S0%S5%:D0%D5% <3000 FD$"OPEN ";FF$;".SQ,S";S5%;",D";D5%:D$" READ ";FF$  ** CHECKMATE-RPT5 **7 ** CHARGE LIST **W ** UPDATED 10/12/81 - SRC^6S10:K$(((K100).5)):K(K$):K3KK$"00":K$(KK$,3K)K$:K336,((36)S(K1)):K$(K$,K2)"."(K$,2):K$;:c "OPEN DEFINITIONS.RA,L200,D     NSERT";::" : PROGRAM DISK"?}12:10::"DRIVE";::" : 1"~}15:"--------------HIT ANY KEY--------------":20:756:~:32210"".RA";",L180,S";S4%;",D";D4%(T1T%GD$"READ ";FF$".RA";",R";T[BC$(T):BT$(T)rBT$(T$,1)5090I112:BD%(T,I):II112:BA%(T,I):ITD$"CLOSE"}}32230}D$"RUN CMMENU,D1"}:10:10::"ID$"OPEN ";FF$;".SQ":D$"WRITE ";FF$;".SQ":0:D$"CLOSE":3000 :10:8:"INSERT FILE DISK :";FF$:::8:"SLOT:";::" "S0%,::"DRIVE:";::" "D0%:15:8:"----- HIT ANY KEY -----":19:756:::3000 *** READ DATA *** D$"OPEN ";FF$222)53040 30396 D$"VERIFY DEFINITIONS.RA" :10::"WARNING !!!";::" ";FF$;" FILE IS ABOUT":"TO BE CREATED ON PROGRAM DISK"::"DO YOU WISH TO CONTINUE ";QS$ QS$"Y"ė:10:"INSERT DATA DISK AND PRESS 'RETURN' ";QS$:3000= T4:T$"INCOME"KT4T3l4(o" "_~" ":TT$"M"T$"INCOME"T$"EXPENSES":541:1070sD$"PR#0":1000 ** CHECK DATA DISK **  :3030 D$"OPEN ";FF$;".SQ,S";S0%;",D";D0%:D$"READ ";FF$;".SQ":X$:D$"CLOSE" 216,0:70  (1BD%(T,I):T2T2BA%(T,I):I#_Tu`18:"---- ---- ----";:TT$"M"ĺ" ---- ---- ----";~a" "j"TOTALS";:15:KT1:4:25:KT2:4:35:KT1T2:T$"INCOME"KT2T1k4:TT$"M"Ĺ36,45:KT3:4:36,55:KT4:4:36,65:KT3Q4WSTT$"M"ĺ" ":T1T1BD%(T,M):T2T2BA%(T,M):T3T3BD%:T4T4BA%:BA%0:BD%0tTTT$"C"BC$(T)CA$1110~U1119VI112:M$(I);:15:KBD%(T,I):4:25:KBA%(T,I):4:35:KBD%(T,I)BA%(T,I):T$"INCOME"KBA%(T,I)BD%(T,I)X4:" ":T1TLTT$"M"1103M1107OBC$(T);:15:KBD%(T,M):4:25:KBA%(T,M):4:35:KBD%(T,M)BA%(T,M):T$"INCOME"KBA%(T,M)BD%(T,M)P4:I1M:BD%BD%BD%(T,I):BA%BA%BA%(T,I):I:36,45:KBD%:4:36,55:KBA%:4:36,65:KBD%BA%:T$"INCOME"KBA%BD%R#0":1000 D$"PR#";PS%:PC$LTT$"C"ĭBT$(T)"E"T$"EXPENSE":1060w!TT$"C"ĭBT$(T)"I"T$"INCOME":1060$500.T10:T20:T30:T40:T1T%3(16384)160İ9005(16384)155Ĺ16368,0:D$"PR#0":1000GBT$(T)(T$,1)1119TT$"M"TT$"C"1040$"":1034pTT$"M"Ģ14:5:"WHICH MONTH (1-12) ";X$:M(X$):M1M12ĺ"";:1040TT$"C"104514:5:"WHICH CATEGORY ";CA$T1T%:CA$BC$(T)1045T:"":1042900 (16384)155Ĺ16368,0:D$"P *** REPORT START *** 5:Z0:T$"INCOME"N"BUDGET COMPARISON"10:5:"(P)RINT REPORT OR (E)XIT ";:QS$:QS$QS$"E"QS$"*"32000QS$"P"ĺ"";:1020 12:5:"BY (M)ONTH OR (C)ATEGORY ";:TT$:TT$ TT$"*"1000,0:ZZ$(0)"START":ZZ$(1)"STOP"'Z0L34,16::34,0:18:5:"PRESS :"t20:13:"'SPACE' TO ";::ZZ$(Z):22:13:"'ESC' TO QUIT"Z1Ĺ16368,0:D$"PR#";PS%:PC$:16368,0(16384)155ı(16384)160Z1:904914UAL NET DIF"a7TT$"C"ĺ"MONTH";:16:"BUDGET ACTUAL NET DIF";:36,50:"--- ";T$;" ---":"*******************************************************************************":" "D *** START/STOP *** D$"":D$"PR#0":"":340. #(16384)155Ĺ16368,0:D$"PR#0":1000 &"*******************************************************************************"5TT$"M"Ė20:"--- ";T$;" ---";:36,54:"YEAR TO DATE":"CATEGORY";:16:"BUDGET ACTUAL NET DIF BUDGET ACT "1000'  *** PAGE HEADER *** B " ":CN$;:36,70:DT$X 36,70:"PAGE :1" (40((AN$AI$)2)2):"BUDGET COMPARISON FOR "; TT$"C"ĺCA$ TT$"M"ĺM$(M) 36,(40((AN$AI$)2)2):AN$;" ";AI$ " " !(16384)160İ90 dXS%(T) T" D$"CLOSE"M BC$(T%),BT$(T%),BD%(T%,12),BA%(T%,12) T%0ė:10:"NO BUDGET ON FILE !"::32000 S2%F2%10:D2%F2%S2%10:"OPEN ACCOUNT.RA,L90,S";S2%;",D";D2%:"READ ACCOUNT.RA,R1":AN$:XX$:AI$:"CLOSE" 5000M$(8)"AUGUST":M$(9)"SEPTEMBER":M$(10)"OCTOBER":M$(11)"NOVEMBER":M$(12)"DECEMBER"[ 2 7FF$"BUDGET":S4%F4%10:D4%F4%S4%10:S0%S4%:D0%D4% <3000 FD$"OPEN ";FF$;".SQ,S";S4%;",D";D4%:D$" READ ";FF$;".SQ" PT% UT%0170 ZT1T%READ DEFINITIONS.RA,R1":DT$:CN$:A1$:A2$:CC$:PS%:PC$:F1%:F2%:F3%:F4%:F5%:"CLOSE"h D$"" D$"BLOAD DUMP2":775 XS%(3000),M$(12)U M$(1)"JANUARY":M$(2)"FEBRUARY":M$(3)"MARCH":M$(4)"APRIL":M$(5)"MAY":M$(6)"JUNE":M$(7)"JULY": ** CHECKMATE-RPT4 **= ** BUDGET COMPARISON **] ** UPDATED 10/12/81 - SRCd6S10:K$(((K100).5)):K(K$):K3KK$"00":K$(KK$,3K)K$:K336,((36)S(K1)):K$(K$,K2):K$;:] "OPEN DEFINITIONS.RA,L200,D1":"     ---HIT ANY KEY--------------":20:756:6~:32210SBC$:BT$#BT$(T$,1)5090?SS$"A"āI112:QQ:IVI112:BD%(I):IeD$"CLOSE"kq}}}32230}D$"RUN CMMENU,D1"}:10:10::"INSERT";::" : PROGRAM DISK"}12:10::"DRIVE";::" : 1")}15:"----------- :10:8:"INSERT FILE DISK :";FF$:::8:"SLOT:";::" "S0%,::"DRIVE:";::" "D0%:15:8:"----- HIT ANY KEY -----":19:756:::3000 *** READ DATA *** D$"OPEN ";FF$".RA";",L180,S";S4%;",D";D4%D$"READ ";FF$".RA";",R";XR 10::"WARNING !!!";::" ";FF$;" FILE IS ABOUT":"TO BE CREATED ON PROGRAM DISK"::"DO YOU WISH TO CONTINUE ";QS$ QS$"Y"ė:10:"INSERT DATA DISK AND PRESS 'RETURN' ";QS$:3000 D$"OPEN ";FF$;".SQ":D$"WRITE ";FF$;".SQ":0:D$"CLOSE":3000"INCOME"T$"EXPENSES":541:10705D$"PR#0":1000R ** CHECK DATA DISK ** _ :3030 D$"OPEN ";FF$;".SQ,S";S0%;",D";D0%:D$"READ ";FF$;".SQ":X$:D$"CLOSE" 216,0:70 (222)53040 3039 D$"VERIFY DEFINITIONS.RA"v :)99991130cI_d"TOTALS";:I112:36,4I5:KBT(I):4:I:36,71:KBT(13):4:" ":1145j"TOTALS";:I1112:36,4I5:KBT(I):4:I:36,71:KBT(13):4:" "tI2122:36,4I5:KBT(I):4:BT(I)0:I:" "yI113:BT(I)0:I!~" ":T$000GBT$(T$,1)1110LBT0:(BC$,11);:I112:36,4I5:KBD%(I):4:BTBTBD%(I):BT(I)BT(I)BD%(I):I:36,71:KBT:4:" "QBT(13)BT(13)BTVT`13:"---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ------" bI112:BT(I:"(B)UDGET OR (A)CTUALS ";:SS$:SS$:SS$"B"SS$"A"1045J"":1042S900(16384)155Ĺ16368,0:D$"PR#0":1000D$"PR#";PS%:PC$$500.T1T%3(16384)160İ9005(16384)155Ĺ16368,0:D$"PR#0":10008XRTB5PC$:16368,0((16384)155ıD(16384)160Z1:904M914l *** REPORT START *** :Z0:T$"INCOME""BUDGET LIST"10:5:"(P)RINT REPORT OR (E)XIT ";:QS$:QS$QS$"E"32000QS$"P"ĺ"";:1020;12:5****":" " D/  *** START/STOP *** l D$"":D$"PR#0":"":34,0:ZZ$(0)"START":ZZ$(1)"STOP"t Z0 34,16::34,0:18:5:"PRESS :" 20:13:"'SPACE' TO ";::ZZ$(Z): 22:13:"'ESC' TO QUIT"Z1Ĺ16368,0:D$"PR#";PS%:1000\ &"*******************************************************************************" 0T$;:14:"JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC TOT" :"***************************************************************************  *** PAGE HEADER *** 8 " ":CN$;:36,70:DT$N 36,70:"PAGE :1"t SS$"A"Ė35:"ACTUALS LIST":540 35:"BUDGET LIST" 36,(40((AN$AI$)2)2):AN$;" ";AI$ " " !(16384)160İ900 #(16384)155Ĺ16368,0:D$"PR#0":FF$;".SQ" PT% UT%0170+ ZT1T%7 dXS%(T)> TM D$"CLOSE" T%0ė:10:"NO BUDGET ON FILE !"::32000 S2%F2%10:D2%F2%S2%10:"OPEN ACCOUNT.RA,L90,S";S2%;",D";D2%:"READ ACCOUNT.RA,R1":AN$:XX$:AI$:"CLOSE" "1000EFINITIONS.RA,R1":DT$:CN$:A1$:A2$:CC$:PS%:PC$:F1%:F2%:F3%:F4%:F5%:"CLOSE"b D$"" XS%(3000),BD%(12),BT(13) 2 7FF$"BUDGET":S4%F4%10:D4%F4%S4%10:S0%S4%:D0%D4% <3000 FD$"OPEN ";FF$;".SQ,S";S4%;",D";D4%:D$" READ ";7 ** CHECKMATE-RPT3 **7 ** BUDGET LIST **W ** UPDATED 10/12/81 - SRC^6S10:K$(((K100).5)):K(K$):K3KK$"00":K$(KK$,3K)K$:K336,((36)S(K1)):K$(K$,K2):K$;:W "OPEN DEFINITIONS.RA,L200,D1":"READ D     :756:~:32210"READ ";FF$".RA";",R";XR5DE$:DP$:DC$:DA$:DN$DD$"CLOSE"JP}\}32230s}D$"RUN CMMENU,D1"}:10:10::"INSERT";::" : PROGRAM DISK"}12:10::"DRIVE";::" : 1"}15:"--------------HIT ANY KEY--------------":20N ";FF$;".SQ":D$"WRITE ";FF$;".SQ":0:D$"CLOSE":3000 :10:8:"INSERT FILE DISK :";FF$:::8:"SLOT:";::" "S0%,::"DRIVE:";::" "D0%:15:8:"----- HIT ANY KEY -----":19:756:::3000D$"OPEN ";FF$".RA";",L90,S";S5%;",D";D5%D$53040 30390 D$"VERIFY DEFINITIONS.RA" :10::"WARNING !!!";::" ";FF$;" FILE IS ABOUT":"TO BE CREATED ON PROGRAM DISK"::"DO YOU WISH TO CONTINUE ";QS$ QS$"Y"ė:10:"INSERT DATA DISK AND PRESS 'RETURN' ";QS$:30007 D$"OPEL2:XR;:36,10:DE$;:36,20:(DP$,19);:36,40:(DC$,13);:36,51:K(DA$):4:36,65:(DN$,14)hVTv`" ":" "jD$"PR#0":1000 :3030 D$"OPEN ";FF$;".SQ,S";S0%;",D";D0%:D$"READ ";FF$;".SQ":X$:D$"CLOSE" 216,0:70 (222)RT OR (E)XIT ";:QS$:QS$4QS$"E"QS$"*"32000NQS$"P"ĺ"";:1020W900(16384)155Ĺ16368,0:D$"PR#0":1000D$"PR#";PS%:PC$$500.T1T%3(16384)160İ9005(16384)155ĺD$"PR#0":10008XRTB5000aESS :". 20:13:"'SPACE' TO ";::ZZ$(Z):K 22:13:"'ESC' TO QUIT"r Z1Ĺ16368,0:D$"PR#";PS%:PC$: 16368,0 (16384)155ı (16384)160Z1:904 914 :PG0:Z0 "STANDARD ENTRY REPORT"10:5:"(P)RINT REPODE PAYEE CATEGORY AMOUNT MEMO" :"*******************************************************************************":" " D D$"":D$"PR#0":"":34,0:ZZ$(0)"START":ZZ$(1)"STOP" Z0 34,16::34,0:18:5:"PR "1000 PGPG1* CN$;:36,70:DT$B 36,70:"PAGE :";PGe 29:"STANDARD ENTRIES REPORT" 36,(40((AN$AI$)2)2):AN$;" ";AI$:" " &"*******************************************************************************": 0"ENT # COF$;".SQ" PT% UT%0170* ZT1T%6 dXS%(T)= TL D$"CLOSE" T%0ė:10:"NO STANDARD ENTRIES ON FILE !"::32000 S2%F2%10:D2%F2%S2%10:"OPEN ACCOUNT.RA,L90,S";S2%;",D";D2%:"READ ACCOUNT.RA,R1":AN$:XX$:AI$:"CLOSE"1":"READ DEFINITIONS.RA,R1":DT$:CN$:A1$:A2$:CC$:PS%:PC$:F1%:F2%:F3%:F4%:F5%:"CLOSE"n D$""} XS%(3000) 2 7FF$"STANDARD":S5%F5%10:D5%F5%S5%10:S0%S5%:D0%D5% <3000 FD$"OPEN ";FF$;".SQ,S";S5%;",D";D5%:D$" READ ";F  ** CHECKMATE-RPT2 **7 ** STNDRD ENTRY **W ** UPDATED 10/12/81 - SRC^6S10:K$(((K100).5)):K(K$):K3KK$"00":K$(KK$,3K)K$:K336,((36)S(K1)):K$(K$,K2)"."(K$,2):K$;:c "OPEN DEFINITIONS.RA,L200,D     :10::"DRIVE";::" : 1"Z!}15:"--------------HIT ANY KEY--------------":20:756:g!~:32210";S3%;",D";D3%' }D$"OPEN ";FF$;".SQ"A }D$"WRITE ";FF$;".SQ"] }T%:LC%:LD%:LA%:LP%l }T1T%T0 }XS%(T)032190 }XS%(T) }T }D$"CLOSE" }32230 }D$"RUN CMMENU,D1" }:10:10::"INSERT";::" : PROGRAM DISK"!}12 (}I%J%-2}L%I%M%:XS%(I%)XS%(L%)32100W<}H%XS%(I%):XS%(I%)XS%(L%):XS%(L%)H%dF}I%I%M%tP}I%132100Z}32050d}J%J%1n}J%K%32020x}32040}T00:T1T%:XS%(T)032138}T0T01:T}T%T%T0 }D$"DELETE ";FF$;".SQ,S;XR*PN$:PD$:PP$:PA$:CP$:PM$:PS$0C}A$"Y"32210|}:10:10:"OK TO DELETE CHECKS? ";A$:A$"Y"32210}:10:12::"**";::" WORKING ";::"**":}T%132130 }M%T%1:T%032130}M%M%2:M%032130}J%1:K%T%M%"" 4010AA$AA$A$4(AA$)8ĺA$;:4140n"(AA$)8ĺA$;(K$,8(AA$));:36,((36)(8(AA$))),(AA$)2(AA$)5Ĺ36,((36)1):AA$AA$"/"64010@D$"OPEN ";FF$".RA";",L90,S";S3%;",D";D3%D$"READ ";FF$".RA";",R"60$A$"0"(A$)1(A$)94010.4110(AA$)0Ĺ36,((36)1):(K$,(AA$),1);:36,((36)1):(AA$)1AA$(AA$,((AA$)1))(AA$)2(AA$)5AA$(AA$,((AA$)1)):36,((36)1):(K$,((AA$)1),1);:36,((36)1):4140(AA$)1AA$";FF$:::8:"SLOT:";::" "S0%,::"DRIVE:";::" "D0%:15:8:"----- HIT ANY KEY -----":19:756:::3000AA$"":16368,0:K$"__/__/__":K$;:36,((36)8)A$(A$)84070(A$)13(AA$)84010(AA$)8(A$)13DA$AA$::41 FILE IS ABOUT":"TO BE CREATED ON PROGRAM DISK"::"DO YOU WISH TO CONTINUE ";QS$ QS$"Y"ė:10:"INSERT DATA DISK AND PRESS 'RETURN' ";QS$:3000 D$"OPEN ";FF$;".SQ":D$"WRITE ";FF$;".SQ":0:D$"CLOSE":3000n :10:8:"INSERT FILE DISK :D$"PR#0":32000. ** CHECK DATA DISK ** ; :3030 D$"OPEN ";FF$;".SQ,S";S0%;",D";D0%:D$"READ ";FF$;".SQ":X$:D$"CLOSE" 216,0:70 (222)53040 3039 D$"VERIFY DEFINITIONS.RA"R :10::"WARNING !!!";::" ";FF$;":" "a10:"OUTSTANDING DEPOSITS ";:30:KOD:4:" ":10:"CLEARED AUTO TELLER";:30:KCT:4:" ":10:"OUTSTANDING AUTO TELLER";:30:KOT:4:" "b10:"BANK CHARGES ";:30:KCB:4:" ":" ":"CHECKBOOK BALANCE AS OF ";DT$;" ";:K(AM$):4:" "1)"A"(PS$,1)"O"OTOT(PA$)CUCN49āJ156CN:" ":J:500UVT:D$"CLOSE"p[CN40āT116:" ":T`" ":"TOTALS :":10:"CLEARED CHECKS ";:30:KCC:4:" ":10:"OUTSTANDING CHECKS";:30:KOC:4:" ":10:"CLEARED DEPOSITS ";:30:KCD:4(PN$,1)"C"(PS$,1)"O"OCOC(PA$)QO(PN$,1)"D"(PS$,1)"O"ODOD(PA$)}P(PN$,1)"C"(PS$,1)"C"CCCC(PA$)Q(PN$,1)"D"(PS$,1)"C"CDCD(PA$)R(PN$,1)"B"CBCB(PA$)S(PN$,1)"A"(PS$,1)"C"CTCT(PA$) T(PN$,";:36,53:KOA:4:" ":" ":OA0:CNCN2LXS%(T);:6:PN$;:14:(PP$,18);:36,29:K(PA$):4:36,40:PD$;:36,49:(CP$,9);:36,60:(PS$,1);:36,63:(PM$,14):CNCN1:(PN$,1)"D"OAOA(PA$)2MOAOA(PA$):A$"Y"(PS$,1)"O"XS%(T)0%N2XX$(XS%(T1))XX$(XS%(T))ĺ" ":CNCN1:OA0<FT31100GXX$(XS%(T1))XX$(XS%(T))XX$(XS%(T1))XX$(XS%(T2))ĺ" ":CNCN1:OA0:1100(IXX$(XS%(T1))XX$(XS%(T))XX$(XS%(T1))XX$(XS%(T2))ĺ"*****";:36,12:(XX$(XS%(T1)),18);" SUB-TOTALXX%1:XX%(XX%)XS%(TT)9,TT,T:T1T%:XS%(T)XX%(T):TR.OA0::5000:T1T%j3(16384)160İ9005(16384)155Ĺ16368,0:D$"PR#0":508XRXS%(T)B5010:XX$(XR)CP$:E$"P"XX$(XR)PP$CPD$BP$PD$BE$1110DE$"R"1100.ET10656'Z%Z%1:XS%(Z%)XR:E$"C"XX$(XR)CP$:1065F(XX$(XR)PP$)T:D$"CLOSE":T%Z%:TT%1:CC$(1)XX$(XS%(1)):T1T%:J1TT%:XX$(XS%(T))CC$(J)1067*J:TT%TT%1:CC$(TT%)XX$(XS%(T))+T:XX%0:T1TT%:TT1T%:XX$(XS%(TT))CC$(T)XX%- OK? ";A$:A$"Y"ė:1044$!900O"(16384)155Ĺ16368,0:D$"PR#0":50e#D$"PR#";PS%:PC$n$500%E$"R"1070&Z%0::D$"PR#0":10:10::"**";::" SORTING ";::"**"::D$"PR#";PS%:PC$:5000:T1T%:XRXS%(T):5010:PD$BP$PD$BE$"END. PERIOD ";:4000:BE$DA$ 15:"SORTED BY :":"(R)EF #, (C)ATEGORY, (P)AYEE ";:E$:E$:E$"R"E$"C"E$"P"ĺ"":103618:2:"DO YOU WANT CLEARED ITEMS DELETED? ";A$A$"Y"105717:5::" WARNING!!! "::" DATA WILL BE ERASED 14! *** REPORT START *** O:PG0:CC0:CD0:OC0:OD0:CB0:OT0:CT0a"CHECK LIST"10:5:"(P)RINT REPORT OR (E)XIT ";:QS$:QS$QS$"E"QS$"*"32000QS$"P"ĺ"";:1020 12:5:"BEG. PERIOD ";:4000:BP$DA$ 13:5:34,0:ZZ$(0)"START":ZZ$(1)"STOP")Z0N34,16::34,0:18:5:"PRESS :"v20:13:"'SPACE' TO ";::ZZ$(Z):22:13:"'ESC' TO QUIT"Z1Ĺ16368,0:D$"PR#";PS%:PC$:16368,0(16384)155ı(16384)160Z1:9049*************************"h 0"REF# CHECK# PAYEE AMOUNT DATE CATEGORY STS COMMENT" :"*******************************************************************************" D  *** START/STOP *** !D$"":D$"PR#0":"":DT$ 36,70:"PAGE :";PG1 35:"CHECK LIST"I 30:BP$;" TO ";BE$u 36,(40((AN$AI$)2)2):AN$;" ";AI$~ " " !(16384)160İ900 #(16384)155Ĺ16368,0:D$"PR#0":1000 &"******************************************************";S2%;",D";D2%:" READ ACCOUNT.RA,R1":AN$:XX$:AI$:" CLOSE"o D$"OPEN ACCOUNT.RA";",L90,S";S2%;",D";D2% D$"READ ACCOUNT.RA,R1" AN$,AB$,AI$,AM$ D$"CLOSE" "1000  *** PAGE HEADER *** CN0:PGPG1 " ":CN$;:36,70:D$"OPEN ";FF$;".SQ,S";S3%;",D";D3%:D$" READ ";FF$;".SQ"A PT%O UT%0170g WXX%:XX%:XX%:XX%s ZT1T% dXS%(T) T D$"CLOSE" T%0ė:10:"NO CHECKS ON FILE !"::32000@ S2%F2%10:D2%F2%S2%10:" OPEN ACCOUNT.RA,L90,S1":"READ DEFINITIONS.RA,R1":DT$:CN$:A1$:A2$:CC$:PS%:PC$:F1%:F2%:F3%:F4%:F5%:"CLOSE"n D$"" XS%(300),XX%(300),CC$(300),XX$(300) 2 7FF$"CHECK":S3%F3%10:D3%F3%S3%10:S0%S3%:D0%D3%:S2%F2%10:D2%F2%S2%10 <30009 Fh ** CHECKMATE-RPT1 **7 ** CHECK LIST **W ** UPDATED 10/23/81 - SRC^6S10:K$(((K100).5)):K(K$):K3KK$"00":K$(KK$,3K)K$:K336,((36)S(K1)):K$(K$,K2)"."(K$,2):K$;:c "OPEN DEFINITIONS.RA,L200,D          -----------":20:756:%~:32210 1:K%T%M%>(}I%J%b2}L%I%M%:XS%(I%)XS%(L%)32100<}H%XS%(I%):XS%(I%)XS%(L%):XS%(L%)H%F}I%I%M%P}I%132100Z}32050d}J%J%1n}J%K%32020x}32040}T00:T1T%:XS%(T)032138 p)zD$"WRITE ";FF$".RA";",R";XRPPN$:PD$:PP$:PA$:PC$:PM$:PS$V`}1000l}32230}D$"RUN CMMENU,D1"}:10:10::"INSERT";::" : PROGRAM DISK"}12:10::"DRIVE";::" : 1"}15:"--------------HIT ANY KEY---$"READ ";FF$".RA";",R";XR@PN$:PD$:PP$:PA$:PC$:PM$:PS$FO700^3:13:XRp32,16:33,23w4PN$:PD$:PP$:K(PA$):20:PC$:PM$:PS$;:PS$"O"ĺ"UTSTANDING"PS$"C"ĺ"LEARED" PS$"V"ĺ"OIDED"32,0:33,40F$;".SQ":D$"WRITE ";FF$;".SQ":0:D$"CLOSE":3000 :10:8:"INSERT FILE DISK :";FF$:::8:"SLOT:";::" "S0%,::"DRIVE:";::" "D0%:15:8:"----- HIT ANY KEY -----":19:756:::3000D$"OPEN ";FF$".RA";",L90,S";S3%;",D";D3%D0  3080+ D$"VERIFY DEFINITIONS.RA" :10::"WARNING !!!";::" ";FF$;" FILE IS ABOUT":"TO BE CREATED ON PROGRAM DISK"::"DO YOU WISH TO CONTINUE ";QS$ QS$"Y"ė:10:"INSERT DATA DISK AND PRESS 'RETURN' ";QS$:30002 D$"OPEN ";FBALANCED ***":HT\5000:T1X:XRCI%(T):5020:PS$"C":6000:T:D$"CLOSE"z` 21:5:"HIT ANY KEY ";:ZZ$:ZZ$ 1000 :3030 D$"OPEN ";FF$;".SQ,S";S0%;",D";D0%:D$"READ ";FF$;".SQ":X$:D$"CLOSE" 216,0:190 (222)530920/5:"LESS OUTST DEPOSITS ";:25:KOD:20Y 5:"LESS BANK BALANCE";:25:KBB:20o*25:"----------"416368,0:5:"OUT OF BALANCE BY ";:25:BLCBOCOAOBODBB:BL(BL100)100:BL0Ğ6KBL:20:9BL02400>:19:10:"*** ,1)"A"OAOA(PA$)50000I:D$"CLOSE"6V5:10::"** RESULTS **":10:5:"CHECKBOOK BALANCE ";:25:KCB:205:"PLUS OUTST CHECKS";:25:KOC:205:"PLUS OUTST A/T ";:25:KOA:205:"PLUS OUTST CHARGES";:25:KOB:$SD$2000+LD$"CLOSE":5070: ** PRINT\V15:5:"HAS THIS ITEM CLEARED ?";:QS$:QS$`QS$"Y"XX1:CI%(X)XR:1190jQS$"N"ĺ"":1110t(PN$,1)"C"OCOC(PA$)~(PN$,1)"D"ODOD(PA$)(PN$,1)"B"OBOB(PA$)(PN$NCE ":16:26:900:17:26:"";BB$:BB(BB$):18:26:"";CB$:CB(CB$)s20:8:"ALL DATA OK ";QS$:QS$"N"1000QS$"Y"ĺ"":1044X05000$I1T%)XS%(I)02000.XRXS%(I)85020: ** READB(PS$,1)"O"2000 GPDA$"/"901/:OC0:OD0:OA0:OB0N"ACCOUNT RECONCILLIATION"~10:5:"(R)ECONCILE OR (E)XIT ";:QS$:QS$QS$"E"32210QS$"R"ĺ"":1020F15:"ENTER :":8:"STATEMENT DATE ":8:"STATEMENT BALANCE ":8:"CHECKBOOK BALA2(AA$)5AA$(AA$,((AA$)1)):36,((36)1):(K$,((AA$)1),1);:36,((36)1):914k (AA$)1AA$""t 901 AA$AA$A$ (AA$)8ĺA$;:914 (AA$)8ĺA$;(K$,8(AA$));:36,((36)(8(AA$)))(AA$)2(AA$)5Ĺ36,((36)1):AA$A:K$;:36,((36)8) A$, (A$)8907H (A$)13(AA$)8901n (AA$)8(A$)13SD$AA$::930 A$"0"(A$)1(A$)9901 911 (AA$)0Ĺ36,((36)1):(K$,(AA$),1);:36,((36)1):(AA$)1AA$(AA$,((AA$)1))V (AA$)IATION" $ :"REFERENCE #":1 T1NE%H T3:" ";T;".":TY 32,5:33,35 :4:"ITEM ":"DATE ":"PAYEE ":"AMOUNT ":"CATEGORY ":"COMMENT ":"STATUS " :32,0:33,40  AA$"":16368,0:K$"__/__/__"S3%F3%10:D3%F3%S3%10:S0%S3%:D0%D3%4 3000r D$"OPEN ";FF$;".SQ,S";S3%;",D";D3%:D$" READ ";FF$;".SQ" T%:LC%:LD%:LA%:LP% T%0250 T1T% XS%(T) T D$"CLOSE" 1000 775:" "::1:1:" CHECKBOOK RECONCIL,2):K$: ("OPEN DEFINITIONS.RA,L200,D1":"READ DEFINITIONS.RA,R1":DT$:CN$:A1$:A2$:CC$:PS%:PC$:F1%:F2%:F3%:F4%:F5%:"CLOSE" <D$"" FXS%(1000),CI%(1000) P(775)141ī100 ZD$"BLOAD DUMP2" d775:" ":NE%7:FF$"CHECK"* & ** CHECKMATE-PGM7 **9 ** RECONCILIATION **Y ** UPDATED 11/19/81 - SRCa 40S3:K$(((K100).5)):K(K$):K3KK$"00":K$(KK$,3K)K$:K3: S=TOTAL # OF DIGITS " ";:36,((36)S(K1)):K$(K$,K2)"."(K$     ---------HIT ANY KEY--------------":20:756:<(~:32210SOPEN ";FF$;".SQ"*'}D$"WRITE ";FF$;".SQ"2'}T%A'}T1T%T0U'}XS%(T)032190a'}XS%(T)h'}Tw'}D$"CLOSE"'}32230'}D$"RUN CMMENU,D1"'}:10:10::"INSERT";::" : PROGRAM DISK"'}12:10::"DRIVE";::" : 1"/(}15:"-----XS%(I%)XS%(L%)32100@&<}H%XS%(I%):XS%(I%)XS%(L%):XS%(L%)H%M&F}I%I%M%]&P}I%132100h&Z}32050t&d}J%J%1&n}J%K%32020&x}32040&}T00:T1T%:XS%(T)032138&}T0T01:T&}T%T%T0&}D$"DELETE ";FF$;".SQ,S";S5%;",D";D5%'}D$"CP$,4)11040%/+JJ1G%4+J;". ";CD$(I);" ";(CP$(I),15);:30:CA$(I)T%9+PB%(J)I_%>+11040e%+%}:10:12::"**";::" WORKING ";::"**":%}T%232139% }M%T%1:T%032130%}M%M%2:M%032130%}J%1:K%T%M%%(}I%J%&2}L%I%M%:KJ116:" ":Ka$'23:" PRESS RETURN TO CONTINUE: ";X$j$'500y$'3:15:XR$'5:17:CD$$'$*12:" CURRENT BILLS FOR '";(CP$,4);"':"$+14$ +I0$+J0$ +II1:IC%11150 %*+(CP$(I),4)(TANDARD ENTRIES"=#$'3:"CODE PAYEE CATEGORY"E#)'I0P#+'5:J0Z#.'JJ1j#3'IS%10150z#5'J1610100#7'II1#8'1:DE$(I)" ";:8:DP$(I)" ";:27:DC$(I)#B'10030#t'23:" PRESS RETURN TO CONTINUE: ";X$:100276$'"(#X%(222)"2#""*"<#X%59040"F#23::"ERROR NUMBER ";X%;" HAS OCCURED ":T13000:T::23:" ":1000"P#23::"RECORD NOT FOUND ":T13000:::23:" ""Z#1000"'#'"CURRENT SOK$)8OK$"<" !bOK$"E"1000"OK$"<"7000F!q7100Q!vXX%XRo!I1T%:XX%XS%(I)7060v!I!IT%7080!"":1000!XRXS%(I)!XR0ī5000:7000!OK$">"II1:IT%7080!OK$"<"II1:I07080"7070 TO ";::"DELETE";::" THIS FILE ";:"";OK$? zOK$"Y"6040R OK$"N"6000\ 1000 CD$"0":CP$"0":CA$"0":CC$"0":CM$"0" 4000 X23:1:" <- LAST, -> NEXT, OR (E)ND : ";:OK$:(OK$)13ĺOK$ ](OK$)32(OK$)21OK$">"!_($:CM$-DE$"0"ĺD$"CLOSE":"":90406KDKED$"CLOSE"N500]3:13:XRo32,16:33,23v5CD$:CP$:K(CA$):4:CC$:CM$32,0:33,40216,0#A$"D"6000%A$"C"2400&A$"R"7000(2410- p23:"OK$)1)&BA%(XX)BA%(XX)((WA$).5)HD$"WRITE BUDGET.RA,R";CT%(I){X$:XX$:T112:BD%(T):T:T112:BA%(T):T D$"CLOSE"D$"OPEN ";FF$".RA";",L90,S";S5%;",D";D5%9000D$"READ ";FF$".RA";",R";XRCD$:CP$:CA$:CCA,R";XR$WD$:WP$:WA$:WC$:WM$0I1T%EWC$CT$(I)4570YI:D$"CLOSE":D$"OPEN BUDGET.RA,L180,S";S4%;",D";D4%D$"READ BUDGET.RA,R";CT%(I)X$:XX$:T112:BD%(T):T:T112:BA%(T):T:XX((WD$,2))XX$"I"WA$((WAXX$"I"CA$((CA$)1)8BA%(XX)BA%(XX)((CA$).5)ZD$"WRITE BUDGET.RA,R";CT%(I)X$:XX$:TT112:BD%(TT):TT:TT112:BA%(TT):TT:D$"CLOSE"1000 ** DEL ACTUAL **D$"OPEN CHARGE.RA,L90,S";S5%;",D";D5%D$"READ CHARGE.R:CM$%AA$"A"T%T%1:XS%(T%)XR4D$"CLOSE"FAA$"D"1000RhI1C%grCC$CT$(I)4230t|I:1000D$"OPEN BUDGET.RA,L180"D$"READ BUDGET.RA,R";CT%(I)X$:XX$:TT112:BD%(TT):TT:TT112:BA%(TT):TT:XX((CD$,2)):"INSERT FILE DISK :";FF$:::8:"SLOT:";::" "S0%,::"DRIVE:";::" "D0%:15:8:"----- HIT ANY KEY -----":19:756:::3000AA$"A"İ4500D$"OPEN "FF$".RA";",L90,S";S5%;",D";D5%D$"WRITE ";FF$".RA";",R";XRCD$:CP$:CA$:CC$RNING !!!";::" ";FF$;" FILE IS ABOUT":"TO BE CREATED ON PROGRAM DISK"::"DO YOU WISH TO CONTINUE ";QS$ QS$"Y"ė:10:"INSERT DATA DISK AND PRESS 'RETURN' ";QS$:3000 D$"OPEN ";FF$;".SQ":D$"WRITE ";FF$;".SQ":0:D$"CLOSE":3000 :10:8$) OK%1OK%NE%2400< OK%2170,2190,2210,2230,2250F 4000S :3030 D$"OPEN ";FF$;".SQ,S";S0%;",D";D0%:D$"READ ";FF$;".SQ":X$:D$"CLOSE" 216,0:70 (222)53040 3039 D$"VERIFY DEFINITIONS.RA"j :10::"WAK$"0"2440e QQ$CD$CP$CA$CC$CM$:(QQ$)90Ģ22:1:"DATA IS ";(QQ$)90;" CHARACTERS TOO LONG !":QQ11000:QQ:22:" ":2400j 22::" OK TO ENTER ON DISK ";OK$t OK$"N"1000~ OK$"Y"4000 OK%(OK ":2240]T1B%:CC$CT$(T)Ģ12:" ":2240T:12:"UNKNOWN CATEGORY - ACCEPTED AS SHOWN !"A$"C"24009:17:"";CM$A$"C"2400 ` A$"C":23:868:23:"# TO CORRECT OR '0' ";OK$:O4:8:17:DC$(IC):9:17:DN$(IC)UCP$DP$(IC):CA$DA$(IC):CC$DC$(IC):CM$DN$(IC)f11000:2400~11000:A$"C"24007:17:"";CA$CA(CA$):7:17:KCA:4A$"C"24008:17:"";CC$CC$""ĺ" :T:23:" "7f1000>p Nz5:17:899_A$"C"2400r6:17:"";CP$CP$"?"219310000:2190(CP$)52200IC1S%:CP$DE$(IC)2196IC:2200!6:17:DP$(IC):7:17:K(DA$(IC)):XS%(T%)1;:15:"";XR$:XR(XR$):XR$""XRXS%(T%)1:3:15:XR:2020Q2020g"";XR$:XR(XR$)xA$"R"7030 XR01010*A$"A"50004T1T%:XRXS%(T)2130>TH2160R:23:"RECORD ALREADY ON FILE":-\T1300036)1):AD$AD$"/"901[(CD$,5)"01/01"(CD$,5)"12/31"CD$"":"";:5:17:899aj500u2:27AA$""A$:A$AA$A$A$"A"A$"C"A$"R"A$"D"2000.A$"E"320008"":10103:15A$"A"2010Gb(AD$)2(AD$)5AD$(AD$,((AD$)1)):36,((36)1):(K$,((AD$)1),1);:36,((36)1):914w(AD$)1AD$""901AD$AD$B$(AD$)8ĺB$;:914(AD$)8ĺB$;(K$,8(AD$));:36,((36)(8(AD$)))(AD$)2(AD$)5Ĺ36,((:K$;:36,((36)8):902'B$8(B$)8907T(B$)13(AA$)8901z(AD$)8(B$)13ĺ:CD$AD$:920B$"0"(B$)1(B$)9901911(AD$)0Ĺ36,((36)1):(K$,(AD$),1);:36,((36)1):(AD$)1AD$(AD$,((AD$)1))ENCE #"::T1NE%/T4:" ";T;".":T@&32,5:33,350:5:"DATE ":"COMPANY ":"AMOUNT ":"CATEGORY ":"COMMENT "::32,0:33,40DAD$"":K$"__/__/__":K$;:36,((36)8):CD$""ĺCD$;:36,((36)8):B$:(B$)13499T1B%CT%(T)"T1D$"CLOSE"ND$"OPEN BUDGET.RA,L180"ZT1B%{D$"READ BUDGET.RA,R";CT%(T)CT$(T)T:D$"CLOSE"1000775:" "::7:FF$;" DATA MAINTENANCE ""ENTER ACTION:(A,C,D,R,E) :" :"REFER:T JD$"CLOSE"@ TD$"OPEN CHARGE.RA";",L90,S";S5%;",D";D5%L ^T1C%p hD$"READ CHARGE.RA";",R";CG%(T) rCD$(T):CP$(T):CA$(T) |T D$"CLOSE" D$"OPEN BUDGET.SQ,S";S4%;",D";D4% D$"READ BUDGET.SQ" B%B%0ĺD$"CLOSE":PEN STANDARD.RA";",L90,S";S1%;",D";D1%2 T1S%X D$"READ STANDARD.RA";",R";ST%(T) DE$(T):DP$(T):DC$(T):DA$(T):DN$(T) T D$"CLOSE" "D$"OPEN CHARGE.SQ,S";S5%;",D";D5%:D$" READ CHARGE.SQ" ,C% 6C%0390 @T1C%:CG%(T)"OPEN ";FF$;".SQ,S";S5%;",D";D5%:D$" READ ";FF$;".SQ"> PT%L UT%0170X ZT1T%d dXS%(T)k Tz D$"CLOSE" D$"OPEN STANDARD.SQ,S";S1%;",D";D1%:D$" READ STANDARD.SQ" S% S%0280 T1S%:ST%(T):T D$"CLOSE"& D$"O,CA$(100),PB%(100),CT%(100),CT$(100),BD%(12),BA%(12)H (775)141ī30] D$"BLOAD DUMP2"~ 775:" ":NE%5:FF$"CHARGE" 2936 7S5%F5%10:D5%F5%S5%10:S0%S5%:D0%D5% 9S1%F1%10:D1%F1%S1%10:S4%F4%10:D4%F4%S4%10 <30006 FD$K$: "OPEN DEFINITIONS.RA,L200,D1":"READ DEFINITIONS.RA,R1":DT$:CN$:A1$:A2$:CC$:PS%:PC$:F1%:F2%:F3%:F4%:F5%:"CLOSE" CD$DT$ D$""4 XS%(500),ST%(100),DE$(100),DP$(100),DC$(100),DA$(100),DN$(100),CG%(100),CD$(100),CP$(100)=  ** CHECKMATE-PGM6 **7 ** CHARGE DATA IN **W ** UPDATED 11/19/81 - SRC^6S3:K$(((K100).5)):K(K$):K3KK$"00":K$(KK$,3K)K$:K3: S=TOTAL # OF DIGITS " ";:36,((36)S(K1)):K$(K$,K2)"."(K$,2):          E";::" : 1"M}15:"--------------HIT ANY KEY--------------":20:756:Z~:322102;".SQ,S";S4%;",D";D4%.}D$"OPEN ";FF$;".SQ"H}D$"WRITE ";FF$;".SQ"P}T%_}T1T%T0s}XS%(T)032190}XS%(T)}T}D$"CLOSE"}32230}D$"RUN CMMENU,D1"}:10:10::"INSERT";::" : PROGRAM DISK"}12:10::"DRIVT%M%(}I%J%42}L%I%M%:XS%(I%)XS%(L%)32100^<}H%XS%(I%):XS%(I%)XS%(L%):XS%(L%)H%kF}I%I%M%{P}I%132100Z}32050d}J%J%1n}J%K%32020x}32040}T00:T1T%:XS%(T)032138}T0T01:T}T%T%T0}D$"DELETE ";FF$:23:" ":1000yP#23::"RECORD NOT FOUND ":T13000:::23:" "Z#1000}:10:12::"**";::" WORKING ";::"**":}T%232139 }M%T%1:T%032130}M%M%2:M%032130}J%1:K%IRIRT%7080'"":10006XRXS%(IR)MXR0ī5000:7000oOK$">"IRIR1:IRT%7080OK$"<"IRIR1:IR070807070(#X%(222)2#""<#X%590403F#23::"ERROR NUMBER ";X%;" HAS OCCURED ":T13000:T:JD$"CLOSE" 1000eX23:1:" <- LAST, -> NEXT, OR (E)ND : ";:OK$:(OK$)13ĺOK$](OK$)32(OK$)21OK$">"_(OK$)8OK$"<"bOK$"E"1000lOK$">"OK$"<"7000q7100vXX%XRIR1T%:XX%XS%(IR)706010<p23:"OK TO ";::"DELETE";::" THIS FILE ";:"";OK$NzOK$"Y"6040aOK$"N"6000k1000D$"OPEN ";FF$".RA";",L180,S";S4%;",D";D4%D$"WRITE ";FF$".RA";",R";XRT1NE%0TJ1T%:XS%(J)XR6110XS%(J)02:BA%(II):II5CT$"0"ĺD$"CLOSE":"":9040>KDKMD$"CLOSE"V500e3:13:XRp32,16w5BC$:BT$I112:BD%(I);:16:BA%(I):I32,0:33,40216,0#A$"D"6000%A$"C"2400&A$"R"7000(24BC$:BT$"I112:BD%(I):I9T112:BA%(T):TYAA$"A"T%T%1:XS%(T%)XRhD$"CLOSE"r1000D$"OPEN ";FF$".RA";",L180,S";S4%;",D";D4%9000D$"READ ";FF$".RA";",R";XRBC$:BT$II112:BD%(II):IIII11RINT:INVERSE:HTAB8:PRINT"SLOT:";:NORMAL:PRINT" "S0%,:INVERSE:PRINT"DRIVE:";:NORMAL:PRINT" "D0%:VTAB15:HTAB8:PRINT"----- HIT ANY KEY -----":HTAB19:CALL-756:PRINT:HOME:GOTO3000D$"OPEN "FF$".RA";",L180,S";S4%;",D";D4%D$"WRITE ";FF$".RA";",R";XR  CREATED ON PROGRAM DISK"::"DO YOU WISH TO CONTINUE ";QS$ QS$"Y"ė:10:"INSERT DATA DISK AND PRESS 'RETURN' ";QS$:3000 D$"OPEN ";FF$;".SQ":D$"WRITE ";FF$;".SQ":0:D$"CLOSE":3000 HOME:VTAB10:HTAB8:PRINT"INSERT FILE DISK :";FF$:P230,2230,2230 4000$ :3030p D$"OPEN ";FF$;".SQ,S";S0%;",D";D0%:D$"READ ";FF$;".SQ":X$:D$"CLOSE" 216,0:70 (222)53040 3039 D$"VERIFY DEFINITIONS.RA"; :10::"WARNING !!!";::" ";FF$;" FILE IS ABOUT":"TO BE!":QQ11000:QQ:22:" ":2400gj 22::" OK TO ENTER ON DISK ";OK$yt OK$"N"1000~ OK$"Y"4000 OK%(OK$) OK%1OK%NE%2400 IOK%2  OK%2170,2190,2230,2230,2230,2230,2230,2230,2230,2230,2230,2BD%(I)(BD$)#A$"C"2400-2220x` 33,27:A$"C":23:868:23:"# TO CORRECT OR '0' ";OK$:OK$"0"2440b 33,40@e QQ$BC$BT$:QQ112:QQ$QQ$(BD%(QQ))(BA%(QQ)):QQ:(QQ$)180Ģ22:1:"DATA IS ";(QQ$)180;" CHARACTERS TOO LONG "E"2200"":2190(A$"C"24000I0:II1JI13ī2400_I6:17:"";BD$BD$""ĢI6:17:BD%(I):BD$(BD%(I))AA$"A"2240I6:33,40:32:"";BE$BE$""ĢI6:32:BA%(I):BE$(BA%(I))33,27BA%(I)(BE$)A"5000#4T1T%:XRXS%(T)2130*>T4H2170`R:23:"RECORD ALREADY ON FILE":\T13000:T:23:" "f1000z33,39:5:17:"";BC$33,27A$"C"24006:17:"";BT$BT$"I"BT$AA$A$. A$"A"A$"C"A$"R"A$"D"2000@ .A$"E"32000O 8"":1010h 3:15:A$"A"2010 XS%(T%)1;:15:"";XR$:XR(XR$):XR$""XRXS%(T%)1:3:15:XR:2020 2020 "";XR$:XR(XR$) A$"R"ī7030 XR01010*A$"AUGUST ":"SEPTEMBER ":"OCTOBER "G 5"NOVEMBER ":"DECEMBER "Z ::32,0:33,40e D32,28 N4::4:"ACTUAL":::"+----------" XT112:"!": b32,0: II112:BD%(II)0:BA%(II)0:II 500 2:27 AA$"" A$:A$ ANCE "( "ENTER ACTION:(A,C,D,R,E) :"A :"REFERENCE #"::N T1NE%e T4:" ";T;".":Tv &32,5:33,35' 0:5:"CATEGORY ":"TYPE (I/E)":"JANUARY ":"FEBRUARY ":"MARCH ":"APRIL ":"MAY ":"JUNE ":"JULY ":"F$"BUDGET" 2936C 7S4%F4%10:D4%F4%S4%10:S0%S4%:D0%D4%M <3000 FD$"OPEN ";FF$;".SQ,S";S4%;",D";D4%:D$" READ ";FF$;".SQ" PT% UT%0170 ZT1T% dXS%(T) T D$"CLOSE" "1000 775:" "::7:FF$;" DATA MAINTEN):K$: "OPEN DEFINITIONS.RA,L200,D1":"READ DEFINITIONS.RA,R1":DT$:CN$:A1$:A2$:CC$:PS%:PC$:F1%:F2%:F3%:F4%:F5%:"CLOSE" D$"" XS%(3000),XD$(3000),BD%(12),BA%(12) (775)141ī30 D$"BLOAD DUMP2" 775:" ":NE%14:F[ ** CHEQUEMATE-PGM5 **9 ** BUDGET DATA IN **Y ** UPDATED 11/19/81 - SRC`6S3:K$(((K100).5)):K(K$):K3KK$"00":K$(KK$,3K)K$:K3: S=TOTAL # OF DIGITS " ";:36,((36)S(K1)):K$(K$,K2)"."(K$,2      M DISK"*5}12:10::"DRIVE";::" : 1"i5}15:"--------------HIT ANY KEY--------------":20:756:v5~:322105}12:10::"DRIVE";::" : 1"5}15:"--------------HIT ANY KEY--------------":20:756:5~:32210TE ";FF$;".SQ,S";S3%;",D";D3%64}D$"OPEN ";FF$;".SQ"P4}D$"WRITE ";FF$;".SQ"l4}T%:LC%:LD%:LA%:LP%{4}T1T%T04}XS%(T)0321904}XS%(T)4}T4}D$"CLOSE"4}322304}D$"RUN CMMENU,D1"5}:10:10::"INSERT";::" : PROGRA}J%1:K%T%M%3(}I%J%<32}L%I%M%:XS%(I%)XS%(L%)32100f3<}H%XS%(I%):XS%(I%)XS%(L%):XS%(L%)H%s3F}I%I%M%3P}I%1321003Z}320503d}J%J%13n}J%K%320203x}320403}T00:T1T%:XS%(T)0321383}T0T01:T3}T%T%T04}D$"DELEJJ1>2H+J;". ";CD$(I);" ";(CP$(I),15);:27:K(CA$(I)):20K2R+PB%(J)IR2\+IX2f+2}:10:12::"**";::" WORKING ";::"**":2}T1T%1:XS%(T)XS%(T1)320052}T:321392}T%2321392 }M%T%1:T%0321302}M%M%2:M%03213037001'3:15:XR,1'4:17:PN$:17:PD$21'n1*12:" CURRENT BILLS FOR '";(PP$,4);"':";" "1+Y17:" ":Y1 +141+1 +J01%+PP$""111101*+I1C%14+(CP$(I),4)(PP$,4)111002>+200V'J16101100`'II1V0j'1:DE$(I);" ";:8:DP$(I);" ";:27:DC$(I)a0t'100500~'23:" PRESS RETURN TO CONTINUE: ";X$::100400'KJ116:" ":K0'23:" PRESS RETURN TO CONTINUE: ";X$1'23:" ":1000x/P#23::"RECORD NOT FOUND ":T13000:::23:" "/Z#1000/'/'"CURRENT STANDARD ENTRIES"/$'3:"CODE PAYEE CATEGORY"/.'I0/8'5:J0/B'JJ10L'IS%101T:"";::.|7:17:PA$((PA$)(CA$(T))):K(PA$):20Y.CA$(T)(((CA$(T))(1)))r.13V:(CA$(T))0Ğ.1:V;:K((CA$(T))):27:20::.(#X%(222).2#"".<#X%590402/F#23::"ERROR NUMBER ";X%;" HAS OCCURED ":T13000:T::I1:7060-IT%7080(-"":10006-XRXS%(I)L-XR05000:7000k-OK$">"II1:IT%7080-OK$"<"II1:I07080-7070-@V((OK$,2))-JV1VJĺ"";:-TVV0:T1C%-^(CP$(T),4)(PP$,4)VVVV1-hVVV8060 .r,J,4000V,X23:1:" <- LAST, -> NEXT, OR (E)ND : ";:OK$:(OK$)13ĺOK$w,](OK$)32(OK$)21OK$">",_(OK$)8OK$"<",bOK$"E"1000,lOK$">"OK$"<"7000,q7100,vXX%XR,I1T%:XX%XS%(I)7060,I -XX%0"6000+2A$"C"2550(+<A$"R"70002+F2580l+p23:"OK TO ";::"DELETE";::" THIS FILE ";:"";OK$~+zOK$"Y"6050+OK$"N"6000+1000+PD$"00/00/00":PP$"0":PA$"0":PC$"0":PM$"0":PS$"0"+J1T%:XS%(J)XR6110,XS%(J)0$:PM$:PS$2*DE$"0"ĺD$"CLOSE":"":9040;*KDKJ*D$"CLOSE"S*700b*3:13:XRt*32,16:33,23{*4*PN$:PD$:PP$:K(PA$):20:PC$:PM$:PS$;:PS$"O"ĺ"UTSTANDING"*PS$"C"ĺ"LEARED"*32,0:33,40*216,0+(A$"D(VM$,1,1)"*"4420P)<VA$(((VM$,2))):YY(VM$)11:(VM$,YY,1)" "4414^)=YY:4420)>VC$(VM$,YY1):VM$"":4370)D)N610)D$"OPEN ";FF$".RA";",L90,S";S3%;",D";D3%)9000)D$"READ ";FF$".RA,R";XR *PN$:PD$:PP$:PA$:PC2:B(II):II:II112:BA(II):IIM(2XX$"I"(VN$,1)"D"VA$((VA$)1)x(4XX$"E"(VN$,1)"D"VA$((VA$)1)(5BA(XX)(BA(XX)((VA$).5))(:D$"WRITE BUDGET.RA,R";CT%(I):X$:XX$:II112:B(II):II:II112:BA(II):II:D$"CLOSE");C$:VM$:D$"CLOSE",' (VM$,1,1)"*"43702'8'a'VA$((((VA$)))(((VM$,2)).5))m'B%0ı'I1B%:VC$CT$(I)4390'I:'&XX((VD$,2))!(0D$"OPEN BUDGET.RA,L180,S";S4%;",D";D4%:D$"READ BUDGET.RA,R";CT%(I):X$:XX$:II11,1,1)"*"4320L&PA$(((PM$,2))):YY(PM$)11:(PM$,YY,1)" "4314Z&YY:4320{&PC$(PM$,YY1):PM$"":4240&4430& ** DELETE ACTUAL **&D$"OPEN CHECK.RA,L90,S";S3%;",D";D3%&D$"READ CHECK.RA,R";XR'VN$:VD$:VP$:VA$:V12:BA(I):I8%XX$"I"(PN$,1)"D"PA$((PA$)1)c%XX$"E"(PN$,1)"D"PA$((PA$)1)%XX((PD$,2)):BA(XX)(BA(XX)((PA$).5))%D$"WRITE BUDGET.RA,R";CT%(T)%CT$(T):XX$:I112:B(I):I:I112:BA(I):I:D$"CLOSE"&(PM$$|C:C%CC($D$"CLOSE":AA$"D"4430V$(PM$,1,1)"*"PA$((PA$)((PM$,2)))e$B%04311$T1B%:CT$(T)PC$4260$T:4311$D$"OPEN BUDGET.RA,L180,S";S4%;",D";D4%$D$"READ BUDGET.RA,R";CT%(T) %X$:XX$:I112:B(I):I:I1(CA$(C))04180t#JD$"OPEN CHARGE.RA,L90,S";S5%;",D"D5%:D$"WRITE CHARGE.RA,R";CG%(C):0:0:0:D$"CLOSE":CCCC1{#TC#hC%CC4230#rD$"DELETE CHARGE.SQ,S";S5%;",D"D5%:D$"OPEN CHARGE.SQ":D$"WRITE CHARGE.SQ":CC:C1C%:(CA$(C))0ĺCG%(C) AN$:AB$:AI$:AM$!"D$"CLOSE"4"AA$"A"4160K"T%T%1:XS%(T%)XR_"LI%((PN$,3))"(PN$,1)"D"ĭLI%LD%LD%LI%""(PN$,1)"C"ĭLI%LC%LC%LI%",(PN$,1)"A"ĭLI%LA%LA%LI%"6(PN$,1)"B"ĭLI%LP%LP%LI%#@CCC%:C1C%:$!(NO$,1)"D"(PN$,1)"D"4046J!AM$((AM$)(OA$)(PA$)):4050x!(NO$,1)"D"AM$((AM$)(OA$)(PA$))!(PN$,1)"D"AM$((AM$)(OA$)(PA$))!PA$P1$:D$"OPEN ACCOUNT.RA";",L90,S";S2%;",D";D2%!D$"WRITE ACCOUNT.RA,R1""AA$"A"NO$PN$:OA$"0":4020= D$"READ ";FF$;".RA,R";XRU NO$:XX$:XX$:OA$s D$"WRITE ";FF$".RA,R";XR PN$:PD$:PP$:PA$:PC$:PM$:PS$ D$"CLOSE" P1$PA$!(NO$,1)"D"(PN$,1)"D"OA$((OA$)(1)):PA$((PA$)(1)):4045D$"WRITE ";FF$;".SQ":0:D$"CLOSE":3000 :10:8:"INSERT FILE DISK :";FF$:::8:"SLOT:";::" "S0%,::"DRIVE:";::" "D0%:15:8:"----- HIT ANY KEY -----":19:756:::3000AA$"A"İ4330D$"OPEN "FF$".RA";",L90,S";S3%;",D";D3% 80! D$"VERIFY DEFINITIONS.RA" :10::"WARNING !!!";::" ";FF$;" FILE IS ABOUT":"TO BE CREATED ON PROGRAM DISK"::"DO YOU WISH TO CONTINUE ";QS$ QS$"Y"ė:10:"INSERT DATA DISK AND PRESS 'RETURN' ";QS$:3000( D$"OPEN ";FF$;".SQ":))1):10002 OK$"Y"4000,< OK%(OK$)DF OK%1OK%NE%2550pP OK%2160,2240,2260,2360,2440,2460,2480zZ 4000 :3030 D$"OPEN ";FF$;".SQ,S";S0%;",D";D0%:D$"READ ";FF$;".SQ":X$:D$"CLOSE" 216,0:190 (222)53090 30)90Ģ22:1:"DATA IS ";(QQ$)90;" CHARACTERS TOO LONG !":QQ11000:QQ:22:" ":2550 (OK$,1)"P"İ8000 OK$"0"2620 22::" OK TO ENTER ON DISK ";OK$ OK$"N"2610 ( OP$(OP$,2)(((OP$,3"O"PS$"C"PS$"V"2510' "":2480P 10:17:PS$;:PS$"O"ĺ"UTSTANDING"g PS$"C"ĺ"LEARED"} PS$"V"ĺ"OIDED" A$"C"2550 A$"C":23:868:23:1:"# TO CORRECT OR '0' ";OK$:OK$"0"2560~ QQ$PN$PD$PP$PA$PC$PM$PS$:(QQ$ 9:17:"";PM$:(PM$)20ĺ"";:2460B (PM$,1,1)"*"2470j T(PM$)11:(PM$,T,1)" "2465| T:"":2460 K((PM$,2)):9:17:20:PM$"*"K$(PM$,T):9:17:PM$ A$"C"2550 OS$"O":10:17:"";PS$:PS$""PS$OS$ PS$0.00"~ A$"C"2550) 8:17:"";PC$j PC$""Ģ11:" ":2450 T1B%:PC$CT$(T)Ģ11:" ":2450 T:11:"UNKNOWN CATEGORY - ACCEPTED AS SHOWN !" A$"C"2550(9:17:DN$(IC)4 7:17:"";X$:X$""DA$(IC)X$P 7:17:K(DA$(IC)):20 PP$DP$(IC):PA$DA$(IC):PC$DC$(IC):PM$DN$(IC)$ 11000:PS$"O":2510. 11000:A$"C"25508 OA$PA$:7:17:"";PA$B PA(PA$):7:17:KPA:20L A$"A"OA$""A"2230PN$NO$2230+A$"C"2550;5:17:800LA$"C"2550_6:17:"";PP$rPP$"?"229010000:2260(PP$)42350IC1S%:PP$DE$(IC)2320 IC:2350 6:17:DP$(IC):7:17:K(DA$(IC)):20:8:17:DC$(IC):17:OP$:4:17:"";PN$:PN$""PN$OP$9z(PN$)22220](PN$,1)"D"PN$"DP"(LD%1)(PN$,1)"C"PN$"CK"(LC%1)(PN$,1)"A"PN$"AT"(LA%1)(PN$,1)"B"PN$"BC"(LP%1)OP$(PN$,2)(((PN$,3))1):4:17:PN$A$19:"";XR$:XR(XR$)33,390A$"R"7030? XR01010Q*A$"A"5000m4T1T%:XRXS%(T)2130t>T~H2160R:23:"RECORD ALREADY ON FILE":\T13000:T:23:" "f1000&pNO$PN$:4:2:27AA$""A$:A$(AA$A$NA$"A"A$"C"A$"R"A$"D"2000`$A$"E"32000o."":10103:15:A$"A"2040A$"A"2040XS%(T%)1;:15:33,19:"";XR$:XR(XR$):XR$""XRXS%(T%)1:3:15:XR:2050205033,(AD$)8ĺB$;:950P(AD$)8ĺB$;(K$,8(AD$));:36,((36)(8(AD$)))(AD$)2(AD$)5Ĺ36,((36)1):AD$AD$"/"820(PD$,5)"01/01"(PD$,5)"12/31"PD$"":"";:5:17:800T1C%:CA$(T)(((CA$(T)))):T:700(B$)9820f920np(AD$)0Ĺ36,((36)1):(K$,(AD$),1);:36,((36)1):(AD$)1AD$(AD$,((AD$)1))z(AD$)2(AD$)5AD$(AD$,((AD$)1)):36,((36)1):(K$,((AD$)1),1);:36,((36)1):950(AD$)1AD$""820AD$AD$B$ :32,0:33,40r AD$"":K$"__/__/__":K$;:36,((36)8):(PD$)8ĺPD$;:36,((36)8):B$:(B$)13ĺ:*K$;:36,((36)8):8304B$>(B$)8880H(B$)13(AD$)8820R(AD$)8(B$)13ĺ:PD$AD$:970 \B$"0"(B$)1TION:(A,C,D,R,E) :"H:"REFERENCE #";:20:"BALANCE:";::(AM$)0ğ]K(AM$):20::jT1NE%T3:" ";T;".":T32,5:33,35:4:"ITEM ":"DATE ":"PAYEE ":"AMOUNT ":"CATEGORY ":"COMMENT ":"STATUS "7T1C%:CG%(T):T'D$"CLOSE"UD$"OPEN CHARGE.RA";",L90,S";S5%;",D";D5%aT1C%D$"READ CHARGE.RA";",R";CG%(T)CD$(T):CP$(T):CA$(T)TD$"CLOSE"1000775:" "::FF$;" DATA MAINTENANCE - ";AN$"ENTER AC2%;",D";D2%55851:D$"READ ACCOUNT.RA,R1"FDAN$,AB$,AI$,AM$OF590I:10:"ENTER YOUR ACCOUNT DATA !!!":32210N216,0:D$"CLOSE"XOP$"CK"(LC%1)bD$"OPEN CHARGE.SQ,S";S5%;",D";D5%:D$" READ CHARGE.SQ"lC%vC%069 D$"CLOSE"L D$"OPEN BUDGET.SQ,S";S4%;",D";D4%:D$"READ BUDGET.SQ":B%Z B%0550| B1B%:CT%(B):B:D$"CLOSE" D$"OPEN BUDGET.RA,L180" B1B%:D$"READ BUDGET.RA,R";CT%(B):CT$(B):B &D$"CLOSE" 0D$"OPEN ACCOUNT.RA";",L90,S";SARD.SQ,S";S1%;",D";D1%:D$" READ STANDARD.SQ"5 6S%C @S%0400Z JT1S%:ST%(T):Ti TD$"CLOSE" ^D$"OPEN STANDARD.RA";",L90,S";S1%;",D";D1% hT1S% rD$"READ STANDARD.RA";",R";ST%(T) |DE$(T):DP$(T):DC$(T):DA$(T):DN$(T) T %S3%:D0%D3%+ S4%F4%10:D4%F4%S4%10I S5%F5%10:D5%F5%S5%10S 3000 D$"OPEN ";FF$;".SQ,S";S3%;",D";D3%:D$" READ ";FF$;".SQ" T% T%0250 LC%:LD%:LA%:LP% T1T% XS%(T) T D$"CLOSE"- ,D$"OPEN STAND0),CA$(100),PB%(100),CT$(100),CT%(100),B(12),BA(12)H P(775)141ī100] ZD$"BLOAD DUMP2"} d775:" ":NE%7:FF$"CHECK" nLC%0:LD%0:LA%0:LP%0 x936 S1%F1%10:D1%F1%S1%10 S2%F2%10:D2%F2%S2%10 S3%F3%10:D3%F3%S3%10:S0):K$: ("OPEN DEFINITIONS.RA,L200,D1":"READ DEFINITIONS.RA,R1":DT$:CN$:A1$:A2$:CC$:PS%:PC$:F1%:F2%:F3%:F4%:F5%:"CLOSE" 2PD$DT$ <D$""3 FXS%(500),ST%(100),DE$(100),DP$(100),DC$(100),DA$(100),DN$(100),CG%(100),CD$(100),CP$(10w- ** CHECKMATE-PGM4 **7 ** CHECK DATA IN **W ** UPDATED 11/19/81 - SRC_ 40S3:K$(((K100).5)):K(K$):K3KK$"00":K$(KK$,3K)K$:K3: S=TOTAL # OF DIGITS " ";:36,((36)S(K1)):K$(K$,K2)"."(K$,2              20:756:~:322100~:32210".SQ" }T%}T1T%T00}XS%(T)032190<}XS%(T)C}TR}D$"CLOSE"^}32230u}D$"RUN CMMENU,D1"}:10:10::"INSERT";::" : PROGRAM DISK"}12:10::"DRIVE";::" : 1" }15:"--------------HIT ANY KEY--------------"::XS%(I%)XS%(L%):XS%(L%)H%(F}I%I%M%8P}I%132100CZ}32050Od}J%J%1`n}J%K%32020kx}32040}T00:T1T%:XS%(T)032138}T0T01:T}T%T%T0}D$"DELETE ";FF$;".SQ,S";S1%;",D";D1%}D$"OPEN ";FF$;".SQ"}D$"WRITE ";FF$;ORD NOT FOUND ":T13000:::23:" "@Z#1000q}:10:12::"**";::" WORKING ";::"**":}T%232139 }M%T%1:T%032130}M%M%2:M%032130}J%1:K%T%M%(}I%J%2}L%I%M%:XS%(I%)XS%(L%)32100<}H%XS%(I%)R0ī5000:7000/OK$">"II1:IT%7080LOK$"<"II1:I07080V7070d(#X%(222)q2#""<#X%59040F#23::"ERROR NUMBER ";X%;" HAS OCCURED ":T13000:T::23:" ":10006P#23::"REC -> NEXT, OR (E)ND : ";:OK$:(OK$)13ĺOK$N](OK$)32(OK$)21OK$">"d_(OK$)8OK$"<"vbOK$"E"1000lOK$">"OK$"<"7000q7100vXX%XRI1T%:XX%XS%(I)7060IIT%7080"":1000XRXS%(I)X#A$"D"6000 %A$"C"24001&A$"R"7000;(2410up23:"OK TO ";::"DELETE";::" THIS FILE ";:"";OK$zOK$"Y"6040OK$"N"60001000J1T%:XS%(J)XRXS%(J)0XS%(J)0J1000-X23:1:" <- LAST, D";D1%90001D$"READ ";FF$".RA";",R";XRNDE$:DP$:DC$:DA$:DN$uDE$"0"ĺD$"CLOSE":"":9040~KDKD$"CLOSE"5003:13:XR32,16:33,235DE$:DP$:DC$:K(DA$):4:DN$32,0:33,40216,015:8:"----- HIT ANY KEY -----":19:756:::3000aD$"OPEN "FF$".RA";",L90,S";S1%;",D";D1%D$"WRITE ";FF$".RA";",R";XRDE$:DP$:DC$:DA$:DN$AA$"A"T%T%1:XS%(T%)XRD$"CLOSE"1000D$"OPEN ";FF$".RA";",L90,S";S1%;",U WISH TO CONTINUE ";QS$^ QS$"Y"ė:10:"INSERT DATA DISK AND PRESS 'RETURN' ";QS$:3000 D$"OPEN ";FF$;".SQ":D$"WRITE ";FF$;".SQ":0:D$"CLOSE":30004 :10:8:"INSERT FILE DISK :";FF$:::8:"SLOT:";::" "S0%,::"DRIVE:";::" "D0%:0M D$"OPEN ";FF$;".SQ,S";S0%;",D";D0%:D$"READ ";FF$;".SQ":X$:D$"CLOSE"\ 216,0:70p (222)53040{ 3039 D$"VERIFY DEFINITIONS.RA" :10::"WARNING !!!";::" ";FF$;" FILE IS ABOUT":"TO BE CREATED ON PROGRAM DISK"::"DO YO1000:QQ:22:" ":2400dj 22::" OK TO ENTER ON DISK ";OK$vt OK$"N"1000~ OK$"Y"4000 OK%(OK$) OK%1OK%NE%2400 OK%2170,2190,2210,2230,2250,2270,2290,2310,2330,2350 4000 :303#DA(DA$):8:17:KDA:4:DA$K$4A$"C"2400G9:17:"";DN$XA$"C"2400` A$"C":23:868:23:"# TO CORRECT OR '0' ";OK$:OK$"0"2440=e QQ$DE$DP$DC$DA$DN$:(QQ$)90Ģ22:1:"DATA IS ";(QQ$)90;" CHARACTERS TOO LONG !":QQ17:17:"";DC$XDC$""C%1Ģ12:" ":2220T1C%:DC$CT$(T)Ģ12:" ":2220T:12:"UNKNOWN CATEGORY - ACCEPTED AS SHOWN !"A$"C"24008:17:"";DA$*A$"A"5000.4T1T%:XRXS%(T)21305>T?H2160kR:23:"RECORD ALREADY ON FILE":\T13000:T:23:" "f1000p z5:17:"";DE$A$"C"24006:17:"";DP$A$"C"2400A$:A$ AA$A$: A$"A"A$"C"A$"R"A$"D"2000L .A$"E"32000[ 8"":1010t 3:15:A$"A"2010 XS%(T%)1;:15:"";XR$:XR(XR$):XR$""XRXS%(T%)1:3:15:XR:2020 2020 "";XR$:XR(XR$) A$"R"7030 XR01010ANCE "( "ENTER ACTION:(A,C,D,R,E) :"A :"REFERENCE #"::N T1NE%e T4:" ";T;".":Tv &32,5:33,35 0:5:"ENTRY CODE":"PAYEE ":"CATEGORY ":"AMOUNT ":"MEMO " ::32,0:33,40 D 500 2:27 AA$"" ,D";D5% D$"READ BUDGET.SQ"' C%5 C%0280A T1C%M CT%(T)T Tc D$"CLOSE" D$"OPEN BUDGET.RA,L180" T1C% D$"READ BUDGET.RA,R";CT%(T) CT$(T) T D$"CLOSE" "1000 775:" "::7:FF$;" DATA MAINTEND" 2936T 7S1%F1%10:D1%F1%S1%10:S0%S1%:D0%D1%:S5%F5%10:D5%F5%S5%10^ <3000 FD$"OPEN ";FF$;".SQ,S";S1%;",D";D1%:D$" READ ";FF$;".SQ" PT% UT%0170 ZT1T% dXS%(T) T D$"CLOSE" D$"OPEN BUDGET.SQ,S";S5%;"K$: "OPEN DEFINITIONS.RA,L200,D1":"READ DEFINITIONS.RA,R1":DT$:CN$:A1$:A2$:CC$:PS%:PC$:F1%:F2%:F3%:F4%:F5%:"CLOSE" D$"" XS%(3000),CT%(300),CT$(300) (775)141ī30 D$"BLOAD DUMP2" 775:" ":NE%5:FF$"STANDAR ** CHECKMATE-PGM3 **7 ** STNDRD DATA IN **W ** UPDATED 11/19/81 - SRC^6S3:K$(((K100).5)):K(K$):K3KK$"00":K$(KK$,3K)K$:K3: S=TOTAL # OF DIGITS " ";:36,((36)S(K1)):K$(K$,K2)"."(K$,2):          2}:32000F20403}T00:T1T%:XS%(T)032138B}T0T01:TO}T%T%T0y}D$"DELETE ";FF$;".SQ,S";S3%;",D";D3%}D$"OPEN ";FF$;".SQ"}D$"WRITE ";FF$;".SQ"}T1T%T0}XS%(T)032190}XS%(T)}T}D$"CLOSE"}D$"RUN CM"RECORD NOT FOUND ":T13000:::23:" "EZ#1000Q}32020h }D$"RUN CMMENU,D1"}:10:10::"INSERT";::" : PROGRAM DISK"}12:10::"DRIVE";::" : 1"(}15:"--------------HIT ANY KEY--------------":20:756: IT%7080"":1000+XRXS%(I);XR05000QII1:IT%7080[7070i(#X%(222)v2#""<#X%59040F#23::"ERROR NUMBER ";X%;" HAS OCCURED ":T13000:T::23:" ":1000;P#23::.RA";",L90,S";S2%;",D";D2%;D$"WRITE ";FF$".RA";",R";XRHT1NE%O0VT`1000X23:1:"(N)EXT RECORD OR (E)ND : ";:OK$:(OK$)13ĺOK$bOK$"E"1000lOK$"N"7000q7100vXX%XRI1T%:XX%XS%(I)7060I3,23 5*AN$:AB$:AI$:K(AM$):4;32,0:33,40F216,0W#A$"D"6000h%A$"C"2400y&A$"R"7000(2410p23:"OK TO ";::"DELETE";::" THIS FILE ";:"";OK$zOK$"Y"6040OK$"N"60001000D$"OPEN ";FF$"%T%1:XS%(T%)XR D$"CLOSE"*1000XD$"OPEN ";FF$".RA";",L90,S";S2%;",D";D2%c9000D$"READ ";FF$".RA";",R";XRAN$:AB$:AI$:AM$CT$"0"ĺD$"CLOSE":"":9040KDKD$"CLOSE"5003:13:XR32,16:310:8:"INSERT FILE DISK :";FF$:::8:"SLOT:";::" "S0%,::"DRIVE:";::" "D0%:15:8:"----- HIT ANY KEY -----":19:756:::3000D$"OPEN "FF$".RA";",L90,S";S2%;",D";D2%D$"WRITE ";FF$".RA";",R";XRAN$:AB$:AI$:AM$AA$"A"TWARNING !!!";::" ";FF$;" FILE IS ABOUT":"TO BE CREATED ON PROGRAM DISK"::"DO YOU WISH TO CONTINUE ";QS$ QS$"Y"ė:10:"INSERT DATA DISK AND PRESS 'RETURN' ";QS$:3000 D$"OPEN ";FF$;".SQ":D$"WRITE ";FF$;".SQ":0:D$"CLOSE":3000 : OK%(OK$)$ OK%1OK%NE%2400A OK%2170,2190,2210,2230K 4000X :3030 D$"OPEN ";FF$;".SQ,S";S0%;",D";D0%:D$"READ ";FF$;".SQ":X$:D$"CLOSE" 216,0:70 (222)53040 3039 D$"VERIFY DEFINITIONS.RA"o :10::" ";OK$:OK$"0"2440 e QQ$AN$AB$AI$AM$:(QQ$)90Ģ22:1:"DATA IS ";(QQ$)90;" CHARACTERS TOO LONG !":QQ11000:QQ:22:" ":2400 j 22::" OK TO ENTER ON DISK ";OK$ t OK$"N"1000 ~ OK$"Y"4000 0 XR01010" *A$"A"5000( 4. >4 H; p N z5:17:"";AN$_ A$"C"2400r 6:17:"";AB$ A$"C"2400 7:17:"";AI$ A$"C"2400 8:17:"";AM$ 8:17:K(AM$):4 ` A$"C":23:868:23:"# TO CORRECT OR '0'ACCOUNT ":"BANK ":"ACCOUNT # ":"CURR. BAL."H ::32,0:33,40N DW 500b 2:27m AA$""y A$:A$ AA$A$ A$"A"A$"C"A$"R"A$"D"2000 .A$"E"32000 8"":1010 3:15 XR$"1":XR(XR$):XR A$"R"7039361 4S2%F2%10:D2%F2%S2%10:S0%S2%:D0%D2%; <3000M FT%1:XS%(1)1W "1000 775:" "::7:FF$;" DATA MAINTENANCE " "ENTER ACTION:(A,C,D,R,E) :" :"REFERENCE #":: T1NE% T4:" ";T;".":T &32,5:33,355 0:5:"K$: "OPEN DEFINITIONS.RA,L200,D1":"READ DEFINITIONS.RA,R1":DT$:CN$:A1$:A2$:CC$:PS%:PC$:F1%:F2%:F3%:F4%:F5%:"CLOSE" D$"" XS%(3000),XD$(3000) (775)141ī30 D$"BLOAD DUMP2" 775:" ":NE%4:FF$"ACCOUNT" 2  ** CHECKMATE-PGM2 **7 ** ACCOUNT DATAIN **W ** UPDATED 11/19/81 - SRC^6S3:K$(((K100).5)):K(K$):K3KK$"00":K$(KK$,3K)K$:K3: S=TOTAL # OF DIGITS " ";:36,((36)S(K1)):K$(K$,K2)"."(K$,2):          SERT";::" : PROGRAM DISK">}12:10::"DRIVE";::" : 1"}(}15:"--------------HIT ANY KEY--------------":20:756:2}:32000:32000:2}:320009040uF#23::"ERROR NUMBER ";X%;" HAS OCCURED ":T13000:T::23:" ":1000P#23::"RECORD NOT FOUND ":T13000:::23:" "Z#1000}32020 }D$"RUN CMMENU,D1"}:10:10::"INECORD OR (E)ND : ";:OK$:(OK$)13ĺOK$;bOK$"E"1000NlOK$"N"7000YvXX%XRvI1T%:XX%XS%(I)7060}IIT%7080"":1000XRXS%(I1)XR05000II1:IT%70807070(#X%(222)2#""<#X%5MO$"0"ĺD$"CLOSE":"":90401D$"CLOSE":500I3:13:XR[32,16:33,23b5DT$:CN$:CX$:CS$:CZ$:PS%:PC$:F1%:F2%:F3%:F4%:F5%32,0:33,40216,0%A$"C"2400&A$"R"7000(2410)X23:1:"(N)EXT RE ";FF$".RA";",R";XRTDT$:CN$:CX$:CS$:CZ$:PS%:PC$:F1%:F2%:F3%:F4%:F5%cD$"CLOSE"m1000D$"OPEN ";FF$".RA";",L200,D1"9000D$"READ ";FF$".RA";",R";XRDT$:CN$:CX$:CS$:CZ$:PS%:PC$:F1%:F2%:F3%:F4%:F5%"$:OK$"0"24407j 22::" OK TO ENTER ON DISK ";OK$It OK$"N"1000[~ OK$"Y"4000j OK%(OK$) OK%1OK%NE%2400 OK%2170,2190,2210,2230,2250,2310,2330,2360,2370,2380,2390,2394 4000D$"OPEN "FF$".RA";",L200,D1"D$"WRIT;PC$ 2340 "":2330.$ A$"C"2400B8 12:17:"";F1%S= A$"C"2400gB 13:17:"";F2%xG A$"C"2400L 14:17:"";F3%Q A$"C"2400V 15:17:"";F4%X A$"C"2400Z 16:17:"";F5%` A$"C":23:"# TO CORRECT OR '0' ";OKDX%1DX%312179 2180* "":2170; A$"C"2400N 6:17:"";CN$_ A$"C"2400r 7:17:"";CX$ A$"C"2400 8:17:"";CS$ A$"C"2400 9:17:"";CZ$ A$"C"2400  10:17:"";PS%  A$"C"2400 11:17:"", R:23:"RECORD ALREADY ON FILE":g \T13000:T:23:" "q f1000x p z5:17:"";DT$ {(DT$,6,1)"/"2179 |(DT$,3,1)"/"2179 }MX%((DT$,1,2)):DX%((DT$,4,2)):MX%1MX%122179 ~"E"32000 8"":1010$ 3:13P XR1:XR: INPUT "";XR$:XR = VAL (XR$)b A$"R"2080v I0:XR05000 II1:XRXS%(I) IT%2080 XR02040 5000 XR01010 *A$"A"5000 4T1T%:XRXS%(T)2130 >T H2160":"NAME 2 ":"ADDRESS ":"CITY/ST/Z ":"PRINT SLOT":"PRNT SETUP" 5"STD. FILE ":"ACCT FILE ":"CHCK FILE ":"BDGT FILE ":"CHRG FILE " ::32,0:33,40 D 500 2:23 AA$"" A$:A$ AA$A$ A$"C"A$"R"2000 .A$D$"BLOAD DUMP2"9 775:" ":NE%12:FF$"DEFINITIONS"C 21000p 775:" "::7:FF$;" DATA MAINTENANCE " "ENTER ACTION:(C,R,E) :" :"REFERENCE #":: T1NE% T4:" ";T;".":T &32,5:33,35G 0:5:"DATE TODAY":"NAME  ** CHECKMATE-PGM1 **9 ** DEFINITION MAINT **Y ** UPDATED 11/19/81 - SRC "OPEN DEFINITIONS.RA,L200,D1":"READ DEFINITIONS.RA,R1":DT$:CN$:A1$:A2$:CC$:PS%:PC$:F1%:F2%:F3%:F4%:F5%:"CLOSE"D$""(775)141ī30 ! ! ! ! !!!!!!!!! FF$;".SQ":D$"WRITE ";FF$;".SQ":07 D$"CLOSE":2070 :10:8:"INSERT FILE DISK :";FF$:::8:"SLOT:";::" "S0%,::"DRIVE:";::" "D0%:15:8:"----- HIT ANY KEY -----":19:756:::3000S----- HIT ANY KEY -----":19:756:::3000D 3080* :D$"VERIFY DEFINITIONS.RA" :10::"WARNING !!!";::" ";FF$;" FILE IS ABOUT":"TO BE CREATED ON PROGRAM DISK"::"DO YOU WISH TO CONTINUE ";QS$ QS$"Y"ė:10:"INSERT DATA DISK AND PRESS 'RETURN' ";QS$:3000" :D$"OPEN "; :D$"VERIFY ";FF$;".RA,S";S0%;",D";D0%s ::"THE ";FF$;" FILE IS ABOUT TO BE LOST"::"OK TO CONTINUE ";QS$ QS$"N"3085 QS$"Y"3005 D$"DELETE ";FF$;".SQ,S";S0%;",D";D0%:D$"DELETE ";FF$;".RA" 216,0:3040 (222)63090 T1FF$"STANDARD":S0%S1%:D0%D1%MT2FF$"ACCOUNT":S0%S2%:D0%D2%rT3FF$"CHECK":S0%S3%:D0%D3%T4FF$"BUDGET":S0%S4%:D0%D4%T5FF$"CHARGE":S0%S5%:D0%D5% 3000T5ĺ:D$"RUN CMMENU,D1" 2005 :3030)F2%:F3%:F4%:F5%2"WRITE DEFINITIONS.RA,R1"rDT$:CN$:CX$:CS$:CZ$:PS%:PT$:F1%:F2%:F3%:F4%:F5%"CLOSE":T0::"INITIALIZE NEW ACCOUNT":10:"(C)ONTINUE OR (E)XIT ";:QS$:QS$:QS$"E"120QS$"C"ĺ"":2000TT1&6,((36)1):AA$AA$"/" 901ZMO%((DT$,1,2)):DA%((DT$,4,2)):YR%((DT$,7,2))pMO%1MO%12900DA%1DA%31900YR%78900"OPEN DEFINITIONS.RA,L200":"READ DEFINITIONS.RA,R1"XX$:CN$:CX$:CS$:CZ$:PS%:PT$:F1%:1))g(AA$)2(AA$)5AA$(AA$,((AA$)1)):36,((36)1):(K$,((AA$)1),1);:36,((36)1):914|(AA$)1AA$""901AA$AA$A$(AA$)8ĺA$;:914(AA$)8ĺA$;(K$,8(AA$));:36,((36)(8(AA$)))(AA$)2(AA$)5Ĺ3_":"ENTER DATE ";K$;:36,((36)8),A$=(A$)8907Y(A$)13(AA$)8901(AA$)8(A$)13DT$AA$::930A$"0"(A$)1(A$)9901911(AA$)0Ĺ36,((36)1):(K$,(AA$),1);:36,((36)1):(AA$)1AA$(AA$,((AA$):QS$:QS$*X(QS$)$4X91205>X1X2800HHX1İ900:730WRX2ī2000k\"RUN CMOTH";Xf23::" UNKNOWN PROGRAM ":pI1500:Iz23:" ":800$:AA$"":10:10:16368,0:K$"__/__/_:" UNKNOWN PROGRAM ":*I1500:I\23:" "e630o870y50:32,5:"1 -- CHANGE DATE""2 -- INITIALIZE NEW ACCOUNT" "9 -- END"32,0  22:9:"ENTER YOUR SELECTION ";:"3 -- BUDGET LIST"6D"4 -- BUDGET COMPARISONS"NN"5 -- CHARGE LIST"nX"6 -- GRAPH BUDGET/ACTUAL"~b"9 -- END"l32,0v22:9:"ENTER YOUR SELECTION ";:QS$:QS$X(QS$)X9120X1X8630"RUN CMRPT";X23: X9120X1X74101"RUN CMPGM";XT23::" UNKNOWN PROGRAM ":dI1500:I23:" "41069050:32,5:" "&"1 -- CHECK LIST"0"2 -- STANDARD ENTRY LIST"RD ENTRY DATA"2 ^"4 -- CHECK ENTRY AND EDITING"W r"5 -- BUDGET ENTRY AND EDITING"} w"6 -- CHARGE CARDS AND ACCOUNTS" |"7 -- BANK STATEMENT RECONCILLIATION" "9 -- END" 32,0 22:9:"ENTER YOUR SELECTION ";:QS$:QS$ X(QS$)S$) X9280! X1X3190/ X1ī290= X2ī510K X3ī730T 120 :"THAT ";::"TERMINATES";::" THIS SESSION ": " ,470 650: @32,5 J:"1 -- SYSTEM DEFINITIONS" O"2 -- BANK ACCOUNT DATA" T"3 -- STANDARESERVED"E n:16:DT$:X%((30(CN$))2)::X%:CN$;" CHECKBOOK":O x50:[ 32,5:~ "1 -- INPUT AND CALCULATIONS" "2 -- REPORTS" "3 -- MISCELLANEOUS" "9 -- END" 32,0 22:9:"ENTER YOUR SELECTION ";:QS$:QS$ X(Q" ";::" VER 1.2"e F:" MASTERWORKS SOFTWARE, INC. ";::" COPYRIGHT" P:" 1823 W. LOMITA BLVD. ";::" (C) 1981" Z:" LOMITA CA 90717 ";::" ALL RIGHT" d:" ";::" :F1%:F2%:F3%:F4%:F5%:"CLOSE"X (840)PS%Ĺ348,PS%:D$"BSAVE DUMP2,A768,L207" #S1%F1%10:D1%F1%S1%10:S2%F2%10:D2%F2%S2%10:S3%F3%10:D3%F3%S3%10:S4%F4%10:D4%F4%S4%10:S5%F5%10:D5%F5%S5%10 (120 2. <775:" "::: ** CHECKMATE-MENU **; ** MENU PROGRAM **Z ** UPDATE 11/19/81 - SRCeD$""y(775)141ī30900(4)"BLOAD DUMP2":775# "OPEN DEFINITIONS.RA,L200,D1":"READ DEFINITIONS.RA,R1":DT$:CN$:A1$:A2$:CC$:PS%:PT$""" " " " " """""""""!!!