8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL L)PROGRAM NAME: VERSALEDGER II0 {::I140:" ";::I121:" ";::40);::" ";::I140:" ";::A$"* VERSALEDGER II *":11:5:A$14:19::"NOW LOADING";:1:1%::(4);"RUN VERSALED"QGL0184QTSSORT5 )M0685 Q^ %VERS22aTA0284sQGLACCT.IDXMEXPENSES)GL0685`"Q^ GPLE  /A0184R&SYSMENN+RT&REPORTy!\?T%SORT5TGLPARAM.DATYGLDATE.DAT UTLTLEDMASTER' STARTT(VERSALED 3zbTVLPARAM.DAT;TTGL0284HQEXPENSES.VENJCVLPARAM.DATL? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8R[ VERSALED - VERSALEDGER II MAIN MENU - SIX DIGIT ACCOUNT VERSION 08/23/85 BY RK} (C) 1982 H & E COMPUTRONICS 50 N. PASCACK ROAD PRODOS VERSION 768,104:769,168:770,104:771,166:772,223:771,166:772,223:773,154:774,72:Z2$"Y"XXG:GA:NT0NT0:56100:CO11)(UN$,10):56500:10000:XX$(SP$,13(XX$))XX$:CO14)XX$:56500:" ":56500Z2$"Y"İ56200: ROUTINE TO ADD TO CHECKBOOKDD$DT$::12:12::"OPENING FILE"::9000:RRRKK1"TY$PE$:AKK1:OT$TY$SL0İ1300GtNT0ĭZ2$"Y"İ56100:" ":56500:56200Z2$"N"NT0ĺ" ":SSSS1Z2$"N"XXG:GA:NT0NT0:(37):35)(UN$,6);:10000:XX$(SP$,13(XX$))XX$:28)XX$:" ":SSSS3:);(P$,12);:XXA:10000:38TT);XX$:SSSS1:1224PO6:TA8:PP$TY$:9900:TY$;:TA22:PP$D$:9900:D$;:TA35:PP$P$:9900:P$;:JJ$(T):TA66(JJ$):PP$JJ$:9900:JJ$;:TA89:PP$CO$:9900:CO$;:XXA:10000:TA128TT:PP$XX$9900:XX$:56500A18:PP$D$:9900:D$;:TA28:PP$P$:9900:P$;:JJ$(T):TA53(JJ$):PP$JJ$:9900:JJ$;:TA58:PP$CO$:9900:CO$;:XXA:10000:TA76TT:PP$XX$:9900XX$:56500:1224(TY$,1)"B"(TY$,1)"D"Ğ:(TY$,1);::TY$(TY$,(TY$)1)4TY$;8)D$;18UOT$TY$NTNT1:GGA:P$(SP$,(P$)):TY$(SP$,(TY$)):D$(SP$,(D$)):1205nOT$TY$SL0İ1300Z2$"Y"İ56100Z2$"Y"1216TT$(K):6(TT$));TT$;:COL1321220P$(P$,15):CO$(CO$,9)PO6:TA8:PP$TY$:9900:TY$;:T132:H$(1)H$(1)"=":5VCO80H$(1)(H$(1),80)GWH$(3)H$(1):Y[::H1$;::_jeP$"***** VOID *****":1240:PE$TY$:(TY$,1)"D"B1B1A:1203: ROUTINE TO PRINT CHECKBOOK INFOB1B1A:(D$,1)"*"BOBOAINT OUT HEADINGSN+QZ2$"Y"1115qR:H$(2)H$:FG0ĭCO80H$(2)"ITEM # "(H$(2),60)" AMOUNT"SCO132FG0H$(2)"ITEM # "H$(2):H$(2)(H$(2),120)" AMOUNT "TFG1CO80H$(2)(H$(2),64)"AMOUNT "UH$(1)"":I1SUED TO ACCOUNT COMMENT AMOUNT" G$"--------- ---- --------------- ---- ------- ------" K LM ROUTINE TO PR--------- ------", COL1321020} H$"CHK NO DATE CHK ISSUED TO TYPE COMMENT AMOUNT" G$"------ ---- ------------- ---- ------- ------" 1099] H$"CHECK NO. DATE CHECK IS(FI$,1)S +WF1:VE$FC$".VEN":(4);"OPEN";VE$:(4);"READ";VE$:VS0:6091:WF0i 2CA$(200),NU(200)z <8200:60000 x990:2000: MENU   HEADING FORMATS  H1$"CHK # DATE ISSUED TO AMOUNT" G1$"----- ---- ":I$"":LOF1 )(4);"OPEN VLPARAM.DAT":(4);"READ VLPARAM.DAT":FI$,FC$,MD$:A$(2)MD$:I13:AD$(I)::(4);"CLOSE"::11:10:"STAND BY ..." *(4);"OPEN GLDATE.DAT":(4);"READ GLDATE.DAT":DT$:(4);"CLOSE":AC$  !"#$%&'()*+,-./0123456789:775,152:776,72:777,96% 7000 :CL0:DD$"00/00/00":D1$" ":DC$(95)(95)"/"(95)(95)"/"(95)(95)/ (V1(100),V2$(100),V3$(100),V4$(100):UN$"":I1100:UN$UN$"="::DQ$(4):Z2$"N":COL80:SP$" 1:9070:9050:ITLOFNT0:F0::"<0> FOR MENU":"<@> FOR SAME CHECK # (DIFFERENT ACCOUNT)";:" FOR NEXT CHECK":" FOR CHECK# DIFFERENT FROM NEXT":" FOR BANK ADJUSTMENT":" FOR DEPOSIT": "REFERENCE #";REF$::1642:EF2ī1501&REF$""CNCN1:1510CRE$"@"RE$(CN):1557L$(REF$,1):L$"D"(RE$)1ĭ((RE$,(RE$)1))0ĺ"DEPOSIT ";REF$::1511L$"B"(RE$)1ĭ((RE$,(RE$)1))0ĺ"BANK CHARGE ";REF$::1511I1(REF$):((REF$,I,1))57(4):9030:9000:RRR1:9070:9050::"WHICH ITEM DO YOU WANT DELETED (@ TO END) ";IT$:IT$""2401t$b IT$"@"ı$c (IT$)12401$d NU((IT$,(IT$)1)):(IT$,1)"I"2407$e NU1NU1LONU(NU)ĺ(4);"CLOSE":2401D%f 12:12::"RETRIEVING D#I139:"-";::ITEM1:LOF1C#:"INITIAL BALANCE ";B0:BB0k#:"INITIAL CHECK NUMBER ";CI:CNCI#:"DATE OF OPENING BALANCE (FORM MM/DD/YY)? ";:11000:D0$D1$###_ ROUTINE TO DELETE ITEM FROM CHECKBOOK#` e$a X2:NX0::NT0:035" OTPT:2035z".PT1500,3300,4000,2400,2500,2900,3600,2800,2098,3000,3200,2700,3500,57500,3700,14100,14200,3900"12000"2"32010"4"5 "6 ROUTINE TO SET UP NEW CHECKBOOK"7" #:10);::"SET UP NEW CHECKBOOK";::!21)PTPTNO2:2052>!(CG8CG21)ĭPTNO2PTPTNO2q!CG10CG11CG8CG21CG65CG812040!OT(NO21)Ģ6(OT1)2:AA:ME$(OT);!OTNO21Ģ6(OTNO21)2:BB:ME$(OT);!PT0PTNO:OTPT:2035" PTNO1PT1:OTPT:22);3 INO2ĺ:: IF I < > 7 THEN PRINT 9 f PTNO21Ģ6(PT1)2:AA::ME$(PT);: PTNO21Ģ6(PTNO21)2:BB::ME$(PT);: X$:CG(X$):CG132094 CG81CG11PTOT1 CG65CG10PTOT1!(CG8CG21)ĭPT(NO0((REF$,((REF$)1)))32600EF2:-n3rFF0::X$"* V E R S A L E D G E R I I *"::20(X$)2)X$;41);::(4)PT0PT1:OT1AA1:BB24:X$"* MAIN MENU *":20(X$)2)X$: I1NO2:AA)ME$(I);BB)ME$(INO7Z(RE$,1)"D"(RE$,1)"B"D$(D$,8):D$D$"*"R[RECLOF1:REC1REC2p\9000:RRRREC:9010:9020]LOFLOF1:RRR1:9010:9040:9030^:1501h"INPUT ERROR. TRY AGAIN .":1501jEF0:REF$"0"EF1::'l(REF$)1ĭ(REF$)3260" "": "CO$:BD(CD)A:T"DO YOU WANT THIS ENTRY PRINTED (Y/N)? ";CP$:(CP$"Y"CP$"N")ĭ(CP$,1)"Y"ė::12:12:"PRINTING"::3400UCP$"Y"CP$"N"Ģ(37):1620VREF$""F1REF$(CN):1625YITEMITEM1::12:12::"UPDATING FILE":8):CO$(CO$,36):5000+M::::Z8$""nNZ8$"":A$"* FOR ERROR, IF CORRECT *":23:1:A$;OZ8$:Z8$""1615PZ8$"E"(RE$,1)"D"(RE$,1)"B"1501QZ8$"E"ė:1503RZ8$(13)1615S:CDCD1:BD$(CD)"ACCOUNT "(T)8BDL18:DF$P$:DP$"REASON FOR CHARGE":16000:P$DF$oDDL99:DF$(A):DP$"CHARGE AMOUNT":16000:A(DF$)EDL99:DF$(T):DP$"ACCOUNT CHARGED":16000:T(DF$)JDL18:DF$CO$:DP$"COMMENT":16000:CO$DF$K:REF$""ĺ"CHECK #";CNLP$(P$,1DL99:DF$(A):DP$"AMOUNT":16000:A(DF$):ACACA?!1610{'DL18:AC0:DF$P$:DP$"NATURE OF DEPOSIT":16000:P$DF$,DL99:DF$(T):DP$"ACCOUNT":16000:T(DF$):T1T99999915801DL99:DF$(A):DP$"DEPOSIT AMOUNT":16000:A(DF$);1610V2$(VN):V3$V3$(VN):V4$V4$(VN):VF1YIXVN:VF1(P$,1)"#"P$V2$:(37):21:P$_DL40:DF$V3$:DP$"ADD 1 OF 2":16000:V3$DF$:DF$V4$:DP$"ADD 2 OF 2":16000:V4$DF$DL99:DF$(T):DP$"ACCOUNT":16000:T(DF$):T1T99999915575(RE$)6ĭ(REF$,1)"B"REF$"B"(SP$,6(REF$))(REF$,(REF$)1):1602DL18:AC0:DF$P$:DP$"PAYEE":16000:P$DF$:V2$DF$:VF1:(P$,1)"#"V1((P$,(P$)1)):VF0(P$,1)"#"āWC0VS1:V1V1(WC)Ă:1550'(P$,1)"#"VNWC:V1V1(VN):V2$((REF$,I,1))481501I1CN(REF$):F1"REFERENCE # ";CN;20)"ITEM # ";IT::CD110:BD$(CD)"":BD(CD)0::CD0ZQ0:"DATE";20);":";:11000D$D1$(RE$)6ĭ(REF$,1)"D"REF$"D"(SP$,6(REF$))(REF$,(REF$)1):1575JATA"::RRRNU1:9070:9060:9030::"REFERENCE #";TY$:5000:2411k%g (IT$,1)"T"ĺ(4);"CLOSE":2401%h NX1:" ":"PRESS TO RETURN TO MAIN MENU";Z9$:%i NX1XLOFİ6500:NX1ī2408%j NX1ė:"REFERENCE #";TY$:5000I&k NX1ĺ::"DELETE THIS ITEM (Y/N) ";ZX$:(ZX$,1)"Y"İ9000:XX1:XLOFNX1Y&o XLOFNX1p&p (IT$,1)"I"NX1&q (ZX$,1)"Y"ī2420&r 2408&t P$"***** VOID *****":T0:A0:RE$TY$&v (IT$,1)"I"İ9000:9010:9020:9030:24085'y (IT$,1)"T"RRRC$:DQ$;"WRITE ";FC$:N:C$:DQ$;"CLOSE":4 IPS1PO11:NU(I)NU(I1):CA$(I)CA$(I1):I:NU(PO)N:CA$(PO)C$:DQ$;"DELETE";FC$:DQ$;"OPEN";FC$:DQ$;"WRITE ";FC$:I0PS1:NU(I):CA$(I)::DQ$;"CLOSE":4 "CATEGORY # TO DELETE: ";DE:6090A5 I29313v DQ$;"OPEN";FC$:DQ$;"CLOSE";FC$:DQ$;"DELETE";FC$:(4);"OPEN ";FC$:(4);"WRITE ";FC$:I0PS1:NU(I):CA$(I):I:(4);"CLOSE"3w 3| "#, LABEL (-1,-1 TO END) ";N,C$3} PS03~ 60903 I0PS:NU(I)NPOI:2947,4 I:DQ$;"APPEND ";Fl DQ$;"CLOSE";FC$:DQ$;"OPEN";FC$:DQ$;"CLOSE";FC$:DQ$;"DELETE";FC$:(4);"OPEN ";FC$:(4);"WRITE ";FC$:I0PS1:NU(I):CA$(I):I:(4);"CLOSE"2m 2r 6090:PSPS12s :"#, LABEL (-1,-1 TO END) ";N,C$:N129343t NU(PS)N:CA$(PS)C$:PSPS1:E" 1] "9. EXIT TO MAIN MENU"P1^ :"OPTION :";Z9$:Z9(Z9$):Z99Z912902\1_ Z99ı1` Z92920,2930,2940,2950,2960,2970,2990,29851a 29031h 1i PS01j ::"#, LABEL (-1,-1 TO END) ";N,C$:N129241k NU(PS)N:CA$(PS)C$:PSPS1:29222);X$:X$"FILENAME "FC$:20(X$)2);X$:I139:"-";:I::"1. START NEW FILE":"2. ADD TO FILE"}0X "3. INSERT IN FILE"0Y "4. DELETE AN ENTRY"0Z "5. CHANGE AN ENTRY"0[ "6. LIST FILE"1\ "7. SORT CATEGORY FILE":"8. CHANGE ACTIVE CATEGORY FIL(FILE$)1),2)"/"((FILE$,(FILE$)1),2):"PRESS WHEN READY.";Z9$/ :10:12:"SEARCHING FOR FILE ";FILE$:I1400::8200:/S /T ROUTINE TO BUILD OR ADD TO CATEGORY FILE/U /V d0W ::X$"CATEGORY DEVELOPMENT MENU":20(X$)2ILE :";FILE$m. :"ACCOUNT TO WORK WITH (A0000 FORM) ";AC$:FILE$AC$:F1$FILE$:(FILE$)1Ģ(37)1:2810. ((FILE$,1))0(FILE$,1)"0"Ģ(37)1:2810. :"ENTER CATEGORY FILE ";FC$:FC$""FC$TE$N/ :"INSERT DISK WITH DATA FOR ";((FILE$,ECKS":::2743%- Z2$"Y"İ56100|- " ":"OUTSTANDING CHECK BALANCE $";BO:::LCLC5:(4);"CLOSE":Z2$"Y"İ56600:- :56200:"PRESS ENTER TO RETURN TO MENU ";Z9$:- - ROUTINE TO CHANGE ACTIVE FILE- . TE$FC$::"CURRENT ACTIVE F, (D$,1)"*"F1:12000, Z2$"Y"ī2740, Z9$"":PRLOFĭSS10SS1İ9030:23:1:"":" TO CONT, FOR MENU";:Z9$:Z9$(27)ı, PRLOFSS10Z9$(27)SS1SS0:"":::1100:9000- SL0::(4):F0ė:"NO OUTSTANDING CH SS0:SL1:NT0:FG0:B1B0:BO0:K1:P91:FF1:G0:W$"XXX":TZ$"XXX":990:CECO2:+ 1100:::TI$"LIST OUTSTANDING CHECKS":LC100:Z2$"Y"G0:F0:F91:PR1:56500:2725+ 990:1100, F0:9000:RRR1:9070:9050:I2LOF:RRRI:9070:9060:I2GA2530#* 12:12:"UPDATING ":K1N* OU$"ON"(TY$,1)"D"D$(D$,8)"*"h* OU$"OFF"D$(D$,8)* RE$TY$:RRRI:9010:9020* I:K0ė:"REFERENCE # NOT FOUND":I1600:*( "CLOSE":* * ROUTINE TO LIST OUTSTANDING CHECKS* T+)(CE$,(CE$)1)9) (CE$)6CE$(SP$,6(CE$))CE$_) (CS$)6CS$(SP$,6(CS$))CS$) "OUTSTANDING (ON/OFF) ";OU$) 12:12:"SEARCHING") 9000:RRR1:9070:9050) I2LOF) RRRI:9070:9060:RE$TY$) RE$CS$RE$CE$2525* (CS$,1)"D"ĭ(CS$)5CS$"D"(SP$,6(CS$))(CS$,(CS$)1)( (CS$,1)"B"ĭ(CS$)5CS$"B"(SP$,6(CS$))(CS$,(CS$)1)( (CE$,1)"D"ĭ(CE$)5CE$"D"(SP$,6(CE$))(CE$,(CE$)1)) (CE$,1)"B"ĭ(CE$)5CE$"B"(SP$,6(CE$)IS:9000:9010:9020:XX1:XLOFİ9030:NX1:2408`'z 2408:9000:9010:RRRNU1:9020:9030f'{ l'~ ' ROUTINE TO CHANGE STATUS OF CHECK' ' S10:K0' :"STARTING REFERENCE# TO CHANGE FROM:";CS$:"ENDING REFERENCE# TO CHANGE TO:";CE$D(0PS:NU(I)DEĂI:(4);"CLOSE":"NO SUCH ENTRY ":I1700::5 NU(I);": ";CA$(I):"DELETE THIS ITEM (Y/N) ";DF$:(DF$,1)"N"ı5 JIPS:NU(J)NU(J1):CA$(J)CA$(J1):J6 DQ$;"DELETE";FC$:DQ$;"OPEN";FC$:DQ$;"WRITE";FC$:I0PS1:NU(I):CA$(I)::DQ$;"CLOSE": 6 6090A6 "CATEGORY # TO CHANGE : ";N6 I0PS:NU(I)NĂI:(4);"CLOSE"::"NO SUCH NUMBER":I1700::6 I0PS:NNU(I)Ă>7 "CURRENT LABEL FOR ";NU(I);":";CA$(I):"NEW LABEL:";CA$(I):DQ$;"DELETE";FC$:DQ$;"OPEN ";FBD$(I)));XX$:Dk Dp D$;:PO9:JJ$(T):PP$JJ$:TA18(JJ$):9900:JJ$;:TA75TT:XXAC:10000:PP$XX$"$":9900:"$";XX$Du I111:" ":IE " ":PO0:TA8:PP$P$:9900:P$;:TA39:PP$D$:9900:D$;:JJ$(T):PP$JJ$:TA57(JJ$):9900:JJ$;:TA76 TO PRINT OUT NEBS CHECKS!CJ ,C\ 56100=C] XXAC:10000Ca D$;:PO8:TA10:PP$P$"PAYABLE TO: ":9900:"PAYABLE TO: ";P$;:TA77TT:PP$"$"XX$:9900:"$";XX$::Cb I110:BD(I)0ĺ::I113435Df BD$(I);:XXBD(I):10000:XX$"$"XX$:82(XX$E #";TY$:5000:NX1:3310=B (IT$,1)"T"ĺ"CLOSE":3300OB XLOFİ6500B NX1ĺ" ":"PRESS TO RETURN TO MENU";Z9$:B :"REFERENCE #";TY$:5000:XX1:XLOFNX1B :"PRESS TO CONTINUE ";Z9$:9000:3309BH CI ROUTINET$""3300A (IT$)13300dA NU((IT$,(IT$)1)):NU0(IT$,2,1)"D"(IT$,2,1)"B"3300A :9000:RRR1:9070:9050A (IT$,1)"I"3308A NULOFNU1NU(NU)ė:12:12::"RETRIEVING DATA"::RRRNU1:9070:9060:9030B :"REFERENC2)"/"(FI$,2)@ "CLOSE"+@ LCLC8H@ Z2$"Y"İ56200:56600:}@ 23:1:"THE END. PRESS FOR MENU. ";Z3$@ @ @ ROUTINE TO VIEW INDIVIDUAL ITEM@ @ NT0:X2:NX0::"INPUT ITEM # TO VIEW (@ TO END)";IT$:IT$"@"ı A IINUE, FOR MENU";:Z9$:Z9$(27)ı0? ? " ":"INITIAL BALANCE : $";(B0100.5)100:"FINAL BALANCE : $";(B1100.5)100:"OUTSTANDING BALANCE : $";(BO100.5)100@ "ACCOUNT : ";AC$:"MONTH/YEAR : ";(FI$,2,3270o> Z9$"":PRLOFĭSS10SS1İ9030:23:1:"":" TO CONT, FOR MENU";:Z9$:Z9$(27)ı> PRLOFSS10Z9$(27)SS1SS0:"":::1100:9000*? SL0::(4):TY$"THIS IS TO WASTE SPACE":Z2$"Y"Ģ23:1:"":" TO CONTY$"":SL1:FG0:FF1:SS0:B1B0:BO0:K1:990:1100:Z2$"Y"LC100:G0:F0:F91:PR1:TI$"REVIEW CHECKBOOK":CECO2:56500:X$TI$:3240= :1100:X$TI$= 9000:RRR1:9070:9050:B1B0:PR2LOF= RRRPR:9070:9060:PR2GA= 1200> Z2$"Y"GE WIDTH (132/80 DEFAULT=80) ";:CL$:CL$""CL$"80"b< COL(CL$):990:COL132COL803040< :::"PRINT ";:Z2$"Y"ĺ"ON ";:3060< "OFF ";< "CARRIAGE WIDTH ";COL:I1600::< < ROUTINE TO REVIEW CHECKBOOK< < OT$""= T CARRIAGE WIDTH; ; T; "THE PRINTER IS CURRENTLY ";:Z2$"Y"ĺ"ON":3032^; "OFF|; "CARRIAGE WIDTH IS ";COL; "CHANGE STATUS (Y/N) ";ST$:ST$"N"ı; ST$"Y"ST$"N"3025; Z2$"Y"Z2$"N":3040; Z2$"Y"7< :Z2$"Y"ĺ"CARRIANINC:SIINC:NU(I)NU(S)NNNU(I):CC$CA$(I):NU(I)NU(S):CA$(I)CA$(S):CA$(S)CC$:NU(S)NN:F1s: I:F02991}: 2993: (4);"OPEN ";FC$:(4);"WRITE ";FC$:I0PS:NU(I):CA$(I)::(4);"CLOSE":: ; ROUTINE TO ACTIVATE PRINTER AND CHANGEENU";Z9$:9 Z9$"@"ı>9 I:Z2$"Y"LCLC1:56600::D9 9 :15:"CURRENT FILENAME IS ";FC$;".":"NEW FILE NAME? ";FC$:9 :12:12::"RETRIEVING DATA "::6090:NPS:INCN9 :12:12:"SORTING":INC(INC2)9 INC12999b: F0:I0$(3)H$(1):H$(2)"ACCOUNT # ACCOUNT TITLE":H$(2)H$(2)(SP$,40(H$(2))):TI$"ACCOUNT LISTING":56500r8 8 :I0PS8 NU(I);15((NU(I)))1)CA$(I):56500 9 Z9$"":(I20(I20)IPS)I0Z2$"Y"ĺ:" TO CONT., <@> FOR MC$:DQ$;"WRITE ";FC$:I0PS:NU(I):CA$(I)::DQ$;"CLOSE":]7 I0PO:NNU(I)ĂI:2969f7 PSI7 ISPOPS:CA$(I)CA$(I1):N(I)N(I1)::NU(PS)N:CA$(PS)C$:SS1l8 CE20:6090:Z2$"Y"LC100:H$(1)"":I140:H$(1)H$(1)"="::H$(2)(SP$,40):HTT:PP$"$"XX$:99000E XXAC:10000:"$"XX$YE (SP$,55);"**$";:XXAC:10000:XX$;fE "*****"E 8);V2$:8);V3$:8);V4$E I110:" ":E 56200E E E ROUTINE TO LIST BY CATEGORYE bF F1$FILE$:SL1:L$"-----------------------------":YY0:K1:VA0:Z2$"Y"TI$"LIST BY ACCOUNT":LC100:CECO2:990:1100:56500:56200F ::"CATEGORY # TO ITEMIZE (A FOR ALL) :";CT$:F "STARTING MONTH (FORM MM/YY) ";SM$:(SM$)5(SM$,3,1)"/"Ģ(37):35045G "ENDING MONTH (FORM M;A TTzAM$(A)(SP$,10((A))):DA$D$(SP$,9(D$)):PE$P$(SP$,18(P$)):CC$C$(SP$,36(CC$)):TY$(SP$,7(RE$))RE$:TP$(T)(SP$,5((T)))T:12:12:"RETRIEVING DATA"::(4);"OPEN ";FC$:(4);"READ ";FC$:PS0-UWF1ERL6095:VMBER ";CN-S9000:RRR1:9010:9040:9030=S"CLOSE":CShSROUTINE TO PRINT OUT CHECK DATAnStSS"DATE : ";D$S"LABEL/ISSUED TO : ";P$S"COMMENT : ";CO$S"TYPE : ";TT"AMOUNT : "LOFNX1BR(IT$,1)"T"İ9000:RRRIS:9010:9020:9030:4017mR9000:RRR1NU:9010:9020:9030:4017Rh:"INITIAL BALANCE ";B0:"INITIAL DATE :";D0$Rm"NEXT CHECK NUMBER :";CNRr"INITIAL BALANCE ";B0:"INITIAL DATE ";D0$ Sw"NEXT CHECK NU11000:(D$)8D1$D1$(D$,1)0QD$D1$:ZQ0eQDL18:DP$"CHECK ISSUED TO":DF$P$:16000:P$DF$QDL18:DP$"COMMENT":DF$CO$:16000:CO$DF$QDL99:DP$"ACCOUNT":DF$(T):16000:T(DF$)QDL99:DP$"AMOUNT":DF$(A):16000:A(DF$) RXX1:XERENCE #";TY$:5000RPZA$""::" TO EDIT, TO CONTINUE";ZA$iP(IT$,1)"I"NX1PZA$"Y"XX1:XLOFNX1PZA$"Y"ī4017P::PDL6:RE$TY$:DP$"CHECK #":DF$RE$:16000:RE$DF$ QDD$D$:"DATE :";:NG DATA "::RRRNU1:9070:9060:9030:4029FO(IT$,1)"T"4010ONX1ĺ" ":"PRESS TO RETURN TO MAIN MENU";Z9$:ONX1İ9000:6500:NX1ī4017O9000:RRRIS:9070:9060:9030:4029ORRR1:9070:9050:9030:4200OP"REF50HNNX0::"INPUT ITEM # OF INTEREST (@ TO END) ";IT$:IT$""4010WNIT$"@"ıpN(IT$,2,1)"0"4020NNU((IT$,(IT$)1)):NU0(IT$,2,1)"D"(IT$,2,1)"B"4003N(IT$,1)"I"4016.ONU1LOFNU(NU)NU1ė:12:12::"RETREIVI0:11::"NOW LOADING GL SUBMENU"::12:15:"PLEASE WAIT..."hM~(4):(4);"CLOSE":(4);"RUNVERS2"nM<M= ROUTINE TO ENDM>MAMZ(4):(4);"CLOSE"::MM ROUTINE TO EDIT ITEMMMNT0:NX0:X2:::9000NRRR1:9070:9056100:" ":56500:I13:H$(I):56500:I:" ":56500:56200ZL Z2$"N"CT$"A"İ1100gL YY0:CTL FILE$F1$:LCLC1:56600:LL ROUTINE TO LOAD SORTLLB:12:12:"LOADING SORT ROUTINE":(4);"RUNSORT5"Lt RUN GL SUBMENU?My:1FILE$F1$:"PRESS TO RETURN TO MENU ";Z9$:56200:LCLC1:56600:K 56200:::Z2$"N"ĺ" TO CONT.,<@> FOR MENU";:Z9$:Z9$"@"FILE$F1$:K YY1Z2$"Y"LC52İ56100:ILC55:" ":56500:I:56200?L YY1Z2$"Y"LC12E$F1$:LCLC1:56600:+J (4);"CLOSE"CJ Z2$"Y"YY0ī3565IJ bJ Z2$"Y"YY1İ56100J XXVA:10000:" ":56500:"CATEGORY: ";NU(J);" ";CC$;" TOTAL $";XX$:56500J Z2$"Y"İ56200:CT$"A"LCLC1:56600:FILE$F1$:LK CT$"A"İ56200:I RRRIN:9070:9060:TJJYY1:PLPL1:OT$"":1200:(TY$,1)"D"VAVAA:3530fI TJJ:VAVAAnI INI MM1YY13535I MM1:M13M1:YY1I 3514I Z2$"Y"İ56200J YY0ė:"NO DATA FOR CATEGORY #";NU(J):I1600:I:CT$"A"FIL((SM$,2)):Y((SM$,2)):M1((EM$,2)):Y1((EM$,2))UH M$"":Y$"":M10M$"0"fH Y10Y$"0"H FILE$(AC$,1)M$(M)Y$(Y):Z2$"Y"İ56200H (4);"CLOSE"H YY0VA0H RRR1:9000:9070:9050:9030:XLOF:PL1I 9000:IN2X:KIN1SM/YY) ";EM$:(EM$)5(EM$,3,1)"/"Ģ(37):3506nG 12:12::"COLLECTING DATA "::6090:Z2$"N"İ1100G CT$"A"CT(CT$):3512G CT0PS:JCT:3513G J0PS:CTNU(J)ĂJ:"UNDEFINED CATEGORY FILE":I1700::8H JJNU(J):CC$CA$(J):M1(VS),V2$(VS),V3$(VS),V4$(VS):VSVS1:6091KUERL6095:NU(PS):CA$(PS)]UPSPS1:6095yU(4);"CLOSE":PSPS1:Vd:12:12:"SEARCHING FOR :";(IT$,(IT$)1):IXLOF:XI:RRRI:9070:9060:OT$TY$NT1ė:12:"END OF TRANSACTION":NX1:9030:VeCH$(IT$,(IT$)1)RVi(CH$,1)"B"(CH$,1)"D"CH$(SP$,6(CH$))CH$Vj(CH$,1)"D"CH$"D"(SP$,6(CH$))(CH$,(CH$)1)Vk(CH$,1)"B"CH$"B"(SP$,6(CH$))(CH$,(CH$)1) WnTY$CH$ė:12:12:"FOUND :";CH$:ISI:NT1:I1100::2)(UN$,(X$))dڱ-d$۲ TURN ON PRINTER9d)ۭPF1ıd*۫56110: DELETE THIS FOR A SERIAL PRINTER OR A PRINTER WHICH DOES NOT USE CONTROL 133Nd+ۺ(4);"PR#1":PF1:d.ۺ(4);"PR#1":(9);"133N";:PF1:d۲ TURN OFF PRINTERdۭPF0ıXe۫56210:UTINE TO PRINT INPUT HEADINGS%c|BcBX42:A$(X)" FIELD "(X):10(A$)2)A$;:A$(X)" YOUR ENTRY "(X):30(A$)2)A$cB:cڲ PRINT MESSAGE(X$) AT TOP OF SCREENcڢ1:1:(SP$,40);:2:1:(SP$,40);:1:1dں20(X$)2)X$:20(X$)L((DF$)DLDX$"")ĺ(7):16030DL99DX$""16038b>FL0:I1(DX$):TL((DX$,I,1)):(TL48TL57)(TL46)FL1b>((DX$,1))45I1FL0b>:FL1FL0:(7):16030b>DX$""DX$"END"DF$DX$b>DX$""Ģ(37)b>bhBcrB RO1a>ROUTINE TO PRINT DEFAULT VALUE FOR INPUTS7a>Qa>EN0:T120:X1(37)1a>24::5)"DEFAULT: ";DF$;40);::1:X1:40):40);:1:X1:DP$T1);":";:"";DX$a>DX$""ĺT11):(37):(DF$(SP$,T1),T1)a>DX$""DX$"END"2000#b>(DX$)DREG POSTING"::12:15:"PLEASE WAIT..."S`7DQ$:DQ$;"CLOSE":DQ$;" RUN REPORT"Y`:x`:ROUTINE TO SWAP VARIABLES~`:`:X1$TY$:X2$D$:X3$P$:X4T:X5$CO$`:TY$OT$:D$OD$:P$OP$:TOT:CO$OC$`:OT$X1$:OD$X2$:OP$X3$:OTX4:OC$X5$`:a>,8Z(Z)):7_u+(X$)48(X$)57D1$X$(D1$,7):B_z+11100Y_7 RUN SYSTEM MENU_7:10:10::"NOW LOADING SYSTEM MENU"::12:15:"PLEASE WAIT..."_7DQ$:DQ$;"CLOSE":DQ$;"RUNSYSMEN"_x7 RUN REPORT*`}7:10:5::"NOW LOADING F/S & CHECK (Z)1)(95):Z(Z)8ZZ1:D1$D3$:Z^l+(X$)8ĭZ(Z)1D1$D3$(D1$,8Z(Z)):ZZ1:^m+(X$)8Z(Z)1D1$(95)(D1$,7):ZZ1:^p+(X$)48(X$)57ĭZ(Z)1D3$(D1$,Z(Z)1)X$:Z(Z)8D1$D3$: _q+(X$)48(X$)57ĭZ(Z)1D1$D3$(D1$:]*+110300]\+X1Z(Z)1:X$:X$""11100T]f+X$(13)(Z7ZQ1)X$"END":]g+X$(13)(D1$,1)(95)(D1$,2,1)(95)(D1$,4,1)(95)(D1$,5,1)(95)(D1$,7,1)(95)(D1$,1)(95)X$"END":&^k+(X$)8ZQ0:ZZ1:Z(Z)1D3$(D1$,Z(95)(95)"/"(95)(95)"/"(95)(95):X1:X2:D1$;\ +ZZ(0)1:ZZ(1)1:ZZ(2)2:ZZ(4)3:Z(5)4:ZZ(7)5:ZZ(8)6:Z(0)1:Z(1)1:Z(2)2:Z(3)4:Z(4)5:Z(5)7:Z(6)8:Z(7)8\+Z0\+ZZ1:Z8Z7\+Z0Z1\+11100\ +X1:X2:D1$;]%+X$"END"040([.'(TEMP$,1)"."XX$XX$".00"f[8'TT0:II1(XX$):(XX$,II,1)"."TTTT1:II:TT(XX$)l[B'r[*[* ROUTINE TO INPUT DATE INTO D1$ IN MM/DD/YY FORM[*[*X1(36)1:X2(37)1[*(DD$)8D1$(DD$,8):X1:X2:D1$;:11020;\+D1$9073*Zo#(4);"READ ";FILE$;",R";RRR:TZq#56200:(4);"READ";FILES$;",R";RRR:|Z&MOTAPO:POTA(PP$):(SP$,MO);:Z'Z' ROUTINE TO FORMAT OUTPUTZ'Z'XX((XX.005)100)100[$'XX$(XX):TEMP$(XX$,3):(TEMP$,2,1)"."XX$XX$"0":10Y(#(4);"CLOSE";FI$:(4);"OPEN";FILE$;",L81":UY2#(4);"WRITE";FILE$;",R";RRR:sY<#A:D$:P$:CO$:RE$:T:YF#(4);"CLOSE";FILE$:YP#B0:LOF:CN:YZ#B0,LOF,CN:(4):Yd#OT$TY$:A,D$,P$,CO$,TY$,T:TY$((SP$,7(TY$))TY$,6):Zn#Z2$"Y" 1: GOSUB 9000:RRR = 1: GOSUB 9070: INPUT LOF: GOTO 8210X "DELETE ";FILE$:DRIVES2ERL8201:DD2:9000:RRR1:9070:LOF:8210X :DD1X "CLOSE":LOF0:2200:ERL7020ġX Y :12:12:"FOUND ";FILE$:9000:RRR1:9070:9050:9030:ITEMLOF29030:?WoI::12:"NON-EXISTENT TRANSACTION":NX1:9030:EWWWWX(222)254ĦvWY768:ERL6095ERL0:6097Wb:"ERROR # ";(222);" HAS OCCURRED IN LINE ";(218)(219)256:"PLEASE CONSULT DOCUMENTATION FOR HELP."We:X : ERL = 8200:DD = DELETE THIS LINE FOR A SERIAL PRINTER OR ANY PRINTER WHICH DOES NOT USE CTRL I 133Npeۺ(4);"PR#0":PF0:eۺ(9);"K":(4);"PR#0":PF0:eܲ LINE PRINTER SUBROUTINE (PRINT HEADINGS)eܭZ2$"Y"56520BfܭLC100ė:"ALIGN PRINTER AT THE TOP OF A NEW PAGE":"PRESS WHEN READY ";X$:PC0:X$"END"2000Mfܰ56100yfܰ56200::15:12::"PRINTING"::56100)gLCLC1:LC55İ56100:IILC66:" "::LC12:PCPC1:CE1(AD$(1))2)AD$(1);CE26(CE1(AD$(1))2)(AD$(1)))"PAGE ";PC:II24625.33 B 24000 Mortgage Payable Land -98056.55 -98056.55 B 25000 FICA & Withholding 0 0 B .87 B .87 B 450.42 B 26000 Telephone - Empl. 48.9300001 55.5300001 B 29000 Other Non-Curr. Liab 0 0 B 22700 State UI Payable 0 0 B 22800 Franchise Tax Payable 0 0 B 22900 Medical Ins. Payable 0 0 B 23000 Note Payable - Backhoe -10680.01 -120000 Note Payable - Pickup -3917.72 -4149.34 B 21000 Note Payable - Tractor -13221.1 -13658.54 B 22500 Medical Ins. Payable 0 0 B 70.86 -15408.3 B 22600 Fed. UI Payable 0 0 B 0 B 12400 CHEVY PICKUP (1984) 11857 11857 B 07.84 B 12500 COMPUTER EQUIPMENT 1407.44 1373 B 15500 CONSTRUCTION PROGRESS 44847.67 44847.67 B 17000 DEPOSITS 0 0 B OGRESS 32372.52 24862.55 B 11200 ACCUM DEPREC -15743 -15743 B 75 B 12000 DUMP TRUCK (1973) 2000 2000 B 12100 BACKHOE (1983) 16293.9 16293.9 B 12300 KUBOTA TRACTOR (1986) 19207.84 19207.84 B ;=>?@ABCDEFG/S & CHECK POST3jk NOT IMPLEMENTED,END PROGRAMFjME$(18):NO18djI19:ME$(I),ME$(I9):jjsjPF0yj:i` ADD TO CHECKBOOK,SET PRINTER,VIEW TRANSACTION,REVIEW CHECKBOOK,EDIT ITEM,LIST OUTSTANDING,DELETE ITEM,LIST BY ACCOUNT,OUTSTANDING ON/OFFjj SET TODAY'S DATE,ACCOUNT DEVELOPMENT,GL SUBMENU,SORT TRANSACTIONS,SYSTEM MENU,CHANGE ACTIVE FILE,F100LC66LCLC66:+h#݁ILC66:" ":6h'ݰ56200: ";:11000:DT$D1$i(4);"OPEN GLDATE.DAT":(4);"WRITE GLDATE.DAT":D1$:(4);"CLOSE"3:CE1(AD$(II))2)AD$(II)::56515 TO CONT., <@> FOR MENU";Z9$: Z9$"@"ı I:Z2$"Y"LCLC1:56600::  :"CURRENT FILENAME IS ";VE$;".":"NEW FILE NAME? ";VE$:$ :12:12::"RETI$"VENDOR LISTING"6 Z2$"Y"İ56500:DQ$;"PR#1"< { :I0PS:Z2$"Y"V2$(I)(V2$(I),18):V3$(I)(V3$(I),18) Z2$"N"ĺV1(I):V2$(I):V3$(I):V4$(I): Z2$"Y"ĺV1(I);15((V1(I)))1)V2$(I);20(V2$(I))1)V3$(I);20(V3$(I))1)V4$(WRITE ";VE$:I0PS:V1(I):V2$(I):V3$(I):V4$(I)::DQ$;"CLOSE": CE20:6090:Z2$"Y"CE40:LC100:H$(1)"":I180:H$(1)H$(1)"="::H$(2)(SP$,80):H$(3)H$(1):H$(2)"VENDOR # VENDOR NAME VENDOR ADDRESS":H$(2)H$(2)(SP$,80(H$(2)))::"NO SUCH NUMBER":I1700:: "CURRENT DATA FOR ";V1(I);":":V2$(I):V3$(I):V4$(I):"NEW NAME? ";V2$(I):"NEW ADD 1? ";V3$(I):"NEW ADD 2? ";V4$(I) DQ$:DQ$;"CLOSE"E DQ$;"OPEN";VE$:DQ$;"CLOSE"VE$:DQ$;"DELETE";VE$:DQ$;"OPEN ";VE$:DQ$;"(J1):V4$(J)V4$(J1):Jp DQ$;"OPEN";VE$:DQ$;"CLOSE":DQ$;"DELETE";VE$:(4);"OPEN";VE$:(4);"WRITE";VE$ I0PS1:V1(I):V2$(I):V3$(I):V4$(I)::(4);"CLOSE": 6090 :"VENDOR # TO CHANGE : ";N" I0PS:V1(I)NĂI:(4);"CLOSE":OSE":. :"VENDOR# TO DELETE: ";DE:6090u I0PS:V1(I)DEĂI:(4);"CLOSE":"NO SUCH ENTRY ":I1700:: V1(I);": ":V2$(I):V3$(I):V4$(I):"DELETE THIS ITEM (Y/N) ";DF$:(DF$,1)"N"ı JIPS:V1(J)V1(J1):V2$(J)V2$(J1):V3$(J)V3$1:V1(I)V1(I1):V2$(I)V2$(I1):V3$(I)V3$(I1):V4$(I)V4$(I1):I:V1(PO)V1:V2$(PO)V2$:V3$(PO)V3$:V4$(PO)V4$ DQ$;"OPEN";VE$:DQ$;"CLOSE":DQ$;"DELETE";VE$:DQ$;"OPEN";VE$:DQ$;"WRITE ";VE$ I0PS1:V1(I):V2$(I):V3$(I):V4$(I)::(4);"CLV4$(I):I:(4);"CLOSE"x l| :"VENDOR #? ";V1:"NAME? ";V2$:"ADD 1 OF 2? ";V3$:"ADD 2 OF 2? ";V4$u} PS0~ 6090 I0PS:V1(I)V1POI:2947 I:(4);"APPEND ";VE$:(4);"WRITE ";VE$:V1:V1$:V3$:V4$:(4);"CLOSE":t IPS1PO1LOSE":2934t "NAME? ";V2$:"ADD 1 OF 2? ";V3$:"ADD 2 OF 2? ";V4$:V1(PS)V1:V2$(PS)V2$:V3$(PS)V3$:V4$(PS)V4$:PSPS1:2931v DQ$;"OPEN";VE$:DQ$;"CLOSE":DQ$;"DELETE";VE$:(4);"OPEN ";VE$:(4);"WRITE ";VE$w I0PS1:V1(I):V2$(I):V3$(I):OPEN";VE$:DQ$;"CLOSE";VE$:DQ$;"DELETE";VE$:(4);"OPEN ";VE$:(4);"WRITE ";VE$:I0PS1:V1(I):V2$(I):V3$(I):V4$(I):I:(4);"CLOSEm n Z2$""Z2$"N"Z2$"Y":o Z2$"N":r 6090:PSPS1 s :"VENDOR # (-1 TO END)? ";V1:V11ĺDQ$;"C,2940,2950,2960,2970,2990,2985,1000,29264a 2903:h Ci PS0j ::"VENDOR # (-1 TO END)? ";V1:V11ĺC$;"CLOSE":2924k "NAME? ";V2$:"ADD 1 OF 2? ";V3$:"ADD 2 OF 2? ";V4$:V1(PS)V1:V2$(PS)V2$:V3$(PS)V3$:V4$(PS)V4$:PSPS1:2922l DQ$;" "4. DELETE AN ENTRY"2 Z "5. CHANGE AN ENTRY"F [ "6. LIST FILE" \ "7. SORT VENDOR FILE":"8. CHANGE ACTIVE VENDOR FILE" ] "9. EXIT TO MAIN MENU":"10. TOGGLE PRINTER" ^ :"OPTION :";Z9$:Z9(Z9$):Z910Z912902 _ Z99ı*` Z92920,2930"RETRIEVING DATA"::(4);"CLOSE";VE$:(4);"OPEN ";VE$:(4);"READ ";VE$:PS0ERL6095:V1(PS):V2$(PS):V3$(PS):V4$(PS)PSPS1:6095(4);"CLOSE":PSPS1:' INITIALIZE'22:'58000: READ IN PARAMETERS8':X$"VERSALEDGER INITIALIZATION":56000:;B'55000:I16:DL20:I3DL1D'DP$P1$(I):DF$A$(I):54000:A$(I)DF$:I3ĭDF$"1"DF$"2"10052G':D$;"OPENVLPARAM.DAT":D$;"WRITEVLPARAM.DAT":I17:A$(I)::D$;"CLOSEVLPARAM.DAT":FI$A$(1):MD$A$(3)L'57000:";GF$:D$;"CLOSE ACCT.TMP":D$;"OPEN ACCT.TMP";",L65":ST1*BD$;"CLOSE ACCT.TMP":D$;"OPEN ACCT.TMP";",L65":D$;"OPEN";GF$;",L65":II1(OM$):D$;"READ";GF$;",R";II:FF:A$(1)(FF):A$(2):FF:A$(3)(FF):FF:A$(4)(FF):A$(5)K+B(A$(1))99999ĺD$;4)".IDX":D$;"CLOSE"IX$:D$;"OPEN";IX$:D$;"CLOSE";IX$:D$;"DELETE";IX$a)B(XQ2MX$OM$)ı)BD$;"CLOSE";TEMP$:XQ0XQ117099)BXQ0XQ1ı)B(MX$)(OM$)ST(OM$)1:TEMP$GF$:DV$GD$:17043:17099)B(MX$)(OM$)17060<*BD$;"CLOSEBXQ317060;(BST1:TEMP$GF$:DV$GD$:D$;"CLOSE";TEMP$(BD$;"CLOSE";TE$:D$;"OPEN";TEMP$;",L65":IST(MX$):X$"RECORD "(I):56000:XX$(99999):D$:D$;"WRITE ";TEMP$;",R";I:99999:"XXX":99999:99999:"XXX":D$:J)BXQ1XQ2IX$(GF$,(GF$)TURN TO THE SYSTEM MENU":X'B"WHAT IS YOUR CHOICE ";:XQ:XQ1XQ3XQ(XQ)17037h'BXQ317060'BDL99::55000::OM$MX$:DP$"MAX # ACCOUNTS":DF$MX$:54000:MX$DF$:XQ1ĺD$;"CLOSE";GF$:D$;"DELETE";GF$:D$;"OPEN";GF$;",L65"'BXQ217070(E ALREADY EXISTS. WHAT DO YOU WISH TO DO ?":&B" 1. ERASE THE OLD FILE AND START A NEW ONE"::" 2. KEEP YOUR ACCOUNTS, BUT USE A DIFFERENT MAXIMUM NUMBER OF":" ACCOUNTS (CURRENTLY ";MX$;")."'B:" 3. RERT GL ACCT FILE":56000:58040::55000%|BDL20:DP$"GL ACCOUNT FILE NAME":DF$GF$:54000:GF$DF$:DF$"A"DF$"Z"Ģ(37):17020%~B17100%BD$;"OPEN";GF$;",L65":D$;"READ";GF$;",R1":NT$:D$:639970&B:X$"WARNING!!!":56000::"A GL ACCOUNT FIL1$>DL99:DP$P4$(2):DF$(CN):54000:CN(DF$)@$>XQ1NT0n$>D$;"CLOSE";A$(1):D$;"OPEN";A$(1);",L81"$>D$;"WRITE";A$(1);",R1":CN:NT:D$;"CLOSE";A$(1)$>57000:$>768:D$:NT0:16029$hB START GL ACCOUNT FILE$iBCR$(13))%rB:X$"STANSACTIONS BUT CHANGE THE NEXT JE#"::"3. RETURN TO THE SYSTEM MENU":#>NT0ĺ"WHAT IS YOUR CHOICE";:XQ:XQ1XQ3XQ(XQ)16025#>NT0ĭXQ316060#>NT0ĭXQ1ĺD$;"DELETE";A$(1):(4);"OPEN";A$(1);",L81"#>NT0ė:55000$>63998NT:D$">NT0XQ0::X$"WARNING!!!":56000::"GL TRANS FILE ";A$(1);" ALREADY EXISTS WITH ";NT;" TRANSACTIONS."::"WHAT DO YOU WISH TO DO?":N#>NT0ĺ"1. ERASE THE EXISTING TRANSACTIONS AND START A NEW FILE"::"2. KEEP THE EXISTING TRA029'!> ENTER/MODIFY NEXT JE NUMBERW!>:X$"ENTER/MODIFY NEXT JE NUMBER":56000:j!>62000:16100{!>DL20:55000!>DP$P4$(1):DF$TF$:54000:DF$"A"DF$"Z"Ģ(37):16015!>A$(1)DF$:D$;"OPEN";A$(1);",L81":D$:D$;"READ";A$(1);",R1" ">CN:83 :DL99:DP$P3$(2):DF$(B0):54000:B0(DF$)C :XQ1LOF1m :DP$P3$(3):DF$(CN):54000:CN(DF$) :D$;"CLOSE";A$(1):D$;"OPEN";A$(1);",L81" :D$;"WRITE";A$(1);",R1":B0:LOF:CN1:D$;"CLOSE";A$(1) : :57000:!:768:D$:LOF1:15CTIONS BUT CHANGE STARTING INFO"::"3. RETURN TO THE SYSTEM MENU"::LOF1ĺ"WHAT IS YOUR CHOICE";:XQ:XQ1XQ3XQ(XQ)15025:LOF1ĭXQ315060:LOF1ĭXQ1ĺD$;"DELETE";A$(1):(4);"OPEN";A$(1);",L81":LOF1ė:55000 :6399N1:D$:LOF1XQ0::X$"WARNING!!!":56000::"CHECKBOOK ";A$(1);" ALREADY EXISTS WITH ";LOF;" TRANSACTIONS."::"WHAT DO YOU WISH TO DO?":L:LOF1ĺ"1. ERASE THE EXISTING TRANSACTIONS AND START A NEW FILE"::"2. KEEP THE EXISTING TRANSA: START CHECKBOOKF::X$"ENTER STARTING CHECKBOOK INFO":56000:Y:62000:15100j:DL20:55000:DP$P3$(1):DF$FI$:54000:DF$"A"DF$"Z"Ģ(37):15015:A$(1)DF$:D$;"OPEN";A$(1);",L81":(4):(4);"READ";A$(1);",R1" :B0:LOF:CN:CNC"WRITE";"ACCT.TMP";",R";ST:A$(1):A$(2):A$(3):A$(4):A$(5):STST1:D$+BX$"RECORD "(II):56000::ST(MX$)TEMP$"ACCT.TMP":DV$"1":17043 ,BX$"SHORTENING FILE...":56000:D$;"CLOSE":D$;"DELETE";GF$:D$:D$;"OPENACCT.TMP";",L65":D$;"OPEN";GF$;",L65",BII1(MX$):D$;"READ ACCT.TMP,R";II:FF:A$(1)(FF):A$(2),FF:A$(3)(FF):FF:A$(4)(FF):A$(5): PRINTD$;"CLOSE ACCT.TMP" -BD$;"WRITE";GF$;",R";II:A$(1);CR$;A$(2);CR$;A$(3);CR$;A$(4);CR$;A$(5);CR$:II:D$"CLOSE ACCT.TMP":D$;"DELETE AC:G:K"WHICH LINE DO YOU WISH TO DELETE ":"(0 IF NONE)? ";X:X0ıO:"KD$:#K59700:D$:(F$(0))99999X$"ENTRY DOES NOT EXIST":F$(0)(FF):56000:57000::(KF$"B"ė:I13:BA$(I);20)":";F$(I)::F$(1)"T"19260!;+KF$"B"ė:I13:IN$(I);)DF$:(DF$)1(DF$"Y"DF$"N")19180:9JF$(6)DF$X9J24:1:(SP$,39);:22:19JX$" FOR ERROR, ANY KEY IF CORRECT":52000:X$"E"191109J59600:9J9K DELETE BALANCE SHEET/INCOME STATEMENT LINE: K:X$"DELETE "F1$" LINE":560008JF$(8)((DF$))_8JDP$BA$(7):DF$F$(9):FL0:54000:F$(9)DF$:(DF$)1(DF$)9919176s8JF$(9)((DF$))8JDP$BA$(8):DF$F$(10):FL0:54000:F$(10)DF$:(DF$)1(DF$)99191788JF$(10)((DF$)),9JDL1:DP$BA$(6):DF$F$(6):FL1:54000:F$(625F$(1)"T")19150<7JF$(3)((DF$)):F$(1)"T"191857JDL99:DP$BA$(4):DF$F$(7):FL0:54000:F$(7)DF$:(DF$)1(DF$)999999191607JF$(4)"ZZ":F$(7)((DF$))8JDP$BA$(5):DF$F$(8):FL0:54000:F$(8)DF$:(DF$)(F$(7))(DF$)99999919170")191306JF$(1)DF$H6JF$(1)"A"F$(2)"ACCUMULATION LINE":19150x6JF$(1)"I"F$(2)"ITEMIZATION LINES":191506JDL24:DP$BA$(2):DF$F$(2):FL1:54000:F$(2)DF$7JDL99:DP$BA$(3):DF$F$(3):FL0:54000:F$(3)DF$:((DF$)1)((DF$)60)((DF$)F$(0):FL0:54000:F$(0)DF$:X(DF$):X1X(X)191205J59700:(F$(0))99999X$"ENTRY ALREADY EXISTS":F$(0)(FF):56000:57000:5JD$5JF$(0)(X) 6JDL1:DP$BA$(1):DF$F$(1):54000:F$(1)DF$:((DF$)1)(DF$"T"DF$"S"DF$"A"DF$"I BEUSED TO UPDATE YOUR FORMAT FILES. YOU WILL BE PROMPTED WHEN TO REINSERT YOUR PROGRAM DISK."4}G:"PLEASE PRESS ANY KEY ONCE YOU HAVE SWITCHED DISKETTES.":ZZ$:D$:4J ADD ENTRY4J:X$"ADD ENTRY":56000::5500095JDL99:DP$BA$(0):DF$ITE TEMP.FMT,R";X!3G(F$(0))~3GF$(1):F$(2):(F$(3)):F$(4):(F$(5)):F$(6):(F$(7)):(F$(8)):(F$(9)):(F$(10))3Gc4|G:"PLEASE REMOVE YOUR PROGRAM DISKETTE FROMDRIVE 1 AND INSERT A BLANK FORMATTED DISKETTE IN ITS PLACE. THIS DISK WILL)(FF):FF:F$(9)(FF):FF:F$(10)(FF)J2FF$(1)"END"F$(0)(99999)e2FD$;"WRITE";FO$;",R";X2F(F$(0)):F$(1):F$(2):(F$(3)):F$(4):(F$(5)):F$(6):(F$(7)):(F$(8)):(F$(9)):(F$(10)):F$(1)"END"Ă2FD$;"CLOSE"2F3GD$:D$;"WROPEN";FO$;",L85"K1FI110000:XI:X$"UPDATING LINE # "(I):D$:56000i1F(4);"READ TEMP.FMT,R";X}1FFF:F$(0)(FF)1F IF FF = 99999 THEN FF = X: GOTO 18120*2FF$(1):F$(2):FF:F$(3)(FF):F$(4):FF:F$(5)(FF):F$(6):FF:F$(7)(FF):FF:F$(8HANGE ENTRY"/0FAA)"5. PRINT FORMAT FILE"B0FAA)"6. END"H0F0FD$:AA);:"WHAT IS YOUR CHOICE? ";XX:XX19100,19200,19300,19400,19500:XX6ĺD$;"CLOSE";FO$:0F180300F FORMAT FILE COPIER0F0F(4);"OPEN TEMP.FMT,L85"1F(4);"BA$/YF63997c/ZFD$;"CLOSE":D$;"OPEN";FO$;",L85":D$;"READ";FO$;",R1":A$,B$,C$,H$,E$,F$,G$/eFFLAG$"OFF":I06:FF$(I)"":/nF:X$"FORMAT "F1$:56000::AA)"1. ADD ENTRY"/xFAA)"2. DELETE ENTRY"/FAA)"3. QUERY ENTRY"0FAA)"4. CORMAT BALANCE SHEET/INCOME STATEMENT^.UFX$"FORMAT BALANCE SHEET/INCOME STATEMENT"::56000.VF"FORMAT BALANCE SHEET OR INCOME":"STATEMENT (B/I)? ";F$:F$"I"F$"B"18006.WFF$"I"F1$"INCOME STATEMENT":FO$IN$/XFF$"B"F1$"BALANCE SHEET":FO$CT.TMP"f-B:D$;"OPEN GLPARAM.DAT":D$;"READ GLPARAM.DAT":I18:A$(I):I:D$;"CLOSE GLPARAM.DAT"-B:A$(1)GF$:A$(3)MX$:D$;"OPEN GLPARAM.DAT":D$;"WRITE GLPARAM.DAT":I18:A$(I)::D$;"CLOSE GLPARAM.DAT":-B768:XQ0:63997-B17039&.PF F20)":";F$(I)::F$(1)"T"19260;2KF$"B"āI78:BA$(I3);20)":";F$(I)::I910:BA$(I2)20)":";F$(I)::BA$(6)20)":"F$(6);7KF$"B"āI78:IN$(I3);20)":";F$(I)::I910:IN$(I2)20)":"F$(I)::IN$(6)20)":"F$(6);KF$"B"āI78:IN$(I3);20)":";F$(I):>KF$"B"āI910:BA$(I2);20)":";F$(I)::BA$(6)20)":"F$(6)>KF$"B"āI910:IN$(I2);20)":";F$(I)::IN$(6)20)":"F$(6)>K57000>K?K CHANGE BALANCE SHEET/";X:X0ı#=qKX1X(X)19310x=rK59700:D$:(F$(0))99999F$(0)(FF):X$"ENTRY DOES NOT EXIST":56000:57000:=xKF$"B"ė:I13:BA$(I);20)":";F$(I)::F$(1)"T"19340={KF$"B"ė:I13:IN$(I);20)":";F$(I)::F$(1)"T"19340">KF$"B"8TL57)TL46FL13Kӭ((DX$,1))45Q1FL0QKӂ:FL1FL0:(7):54030qKӭDX$""DX$"END"DF$DX$KӭDX$""Ģ(37)KӱKֲ PRINT INPUT HEADINGSLX42:A$(X)" FIELD "(X):10(A$)2)A$;:A$(X)" YOUR ENTRY "(X):30(A$)2)A$LֺLֱ8Lڲ PRINT MESSAGE (X$) AT TOP OF SCREENfLڢ1:1:(SP$,40);:2:1:(SP$,40);:1:1Lں20(X$)2)X$:20(X$)2)(UN$,(X$))LڱL$۲ TURN ON PRINTERL(ۭPF1ıM)۫56110: DELETE THIS LINE FOR A SERIAL PRINTER OR ANY PRINTER W22)254Ħ*Z768:ERL6095ERL0:6097Z:"ERROR # ";(222);" HAS OCCURRED IN LINE ";(218)(219)256:"PLEASE CONSULT DOCUMENTATION FOR HELP."T CHECKBOOK,MAIN MENU,START GL ACCT FILE,F/S & CHECK POST,START GL TRANS FILE,GL SUBMENU,START FORMAT FILES,NOT IMPLEMENTED,FORMAT REPORTS,END PROGRAMYNO12:ME$(NO):I1NO2:ME$(I),ME$(INO2):YV1(100),V2$(100),V3$(100),V4$(100):1000 Z(2ER COLUMN,BEG ACCT #,END ACCT #,REVERSE SIGN (Y/N),BEG DEPT #,END DEPT #mXI08:BA$(I):IN$(I)BA$(I):XSP$" ":UN$(95):I16:UN$UN$UN$:Y INITIALIZATION,VENDOR DEVELOPMENT,STARDESCRIPTION,CURRENT BALANCE,Y-T-D BALANCE,TYPE (I E OR B)QWdI15:P2$(I):Wh CHECKING ACCOUNT,INITIAL BALANCE,INITIAL CHECK #WmI13:P3$(I):Wr GL TRANS ACCOUNT,NEXT JE #W|I12:P4$(I):JX LINE #,TITLE/SUM (T/S/A/I),TITLE,PRINTATIONVMPF0:D$(4)@VO 1,1,2,2,3,4,4,5,6,1,1,2,4,5,7,8,8kVTI08:X:ZZ(I)X::I07:X:Z(I)X:VW CHECKING ACCOUNT,ACCOUNT FILENAME,DATA FILE DRIVE,FIRM NAME,ADD 1 OF 2,ADD 2 OF 2VZI16:P1$(I):V^58000:58040F$(2):FF:F$(3)(FF):F$(4):FF:F$(5)(FF):F$(6):FLAG$"ON"ĄFF:F$(7)(FF):FF:F$(8)(FF):FF:F$(9)(FF):FF:F$(10)(FF)T?F$(1)"END"F$(0)(99999)UC,",L85"$SD$;"WRITE";FO$;",R";X2S(F$(0))SF$(1):F$(2):(F$(3)):F$(4):(F$(5)):F$(6):(F$(7)):(F$(8)):(F$(9)):(F$(10))SD$:D$;"CLOSE";FO$SS4 GET FORMAT FILE INFO FROM DISKS656200T7D$;"CLOSE":D$;"OPEN ";FO$;",L8N GLPARAM.DAT"*RD$;"READGLPARAM.DAT">RI18:A$(I):RGF$A$(1):GD$A$(2):MX$A$(3):TF$A$(4):TD$A$(5):BA$A$(6):IN$A$(7)RD$;"CLOSE GLPARAM.DAT"RR PLACE FORMAT FILE INFO ONTO DISKR(13):(37) SD$;"CLOSE":D$;"OPEN";FO$ADVLPARAM.DAT" WHEN READY ";X$:PC0:X$"END"1000Nܰ56200::12:15::"PRINTING"::56100OLCLC1:LC55āIIHICH DOES NOT USE CTRL I 133N7M+ۺ(4);"PR#1":PF1:dM.۰56200:(4);"PR#1":(9);"133N";:PF1:{M۲ TURN OFF PRINTERMۭPF0ıM۫56210: DELETE THIS LINE FOR A SERIAL PRINTER OR ANY PRINTER WHICH DOES NOT USE CTRL I 133N Nۺ(4);"PR#0":PF0:| REPORT - VERSALEDGER II FINANCIAL REPORTING AND CHECK REGISTER POSTING SUBMENU - SIX DIGIT VERSION 08/22/85 BY RK 50 N. PASCACK ROAD SPRING VALLEY, NY 10977 PRODOS VERSIONI 768,104:769,168:770,104:771,166:772,223:771,1TI1100:51500:XX$:56500:T0:T203rN20900sNX(F$(7)):59900:STOI:X(F$(8)):59900:EDOI:QSTED:IQ((IC$(Q),6)):IQ(F$(7))IQ(F$(8))(F$(9))R(IQ)(F$(10))R(IQ)TTN(BA(Q)):T2T2N(MO(Q))#tNIQ(F$(7))IQ(F$(8))(F$(924(F$(2)))XX$;:LQ(XX$):XXT2I2100:51500:XX$;:LQ(XX$):XXT:51500:4);XX$;:XXTI1100:51500:XX$:56500:T0:T20(qNF$(1)"I"İ56100:DE$;:XXT2:51500:24(DE$))XX$;:LQ(XX$):XXT2I2100:51500:XX$;:LQ(XX$):XXT:51500:4);XX$;:XX7)))X(F$(7)):59900:TTN(BA(OI)):T2T2N(MO(OI))^NF$(7)F$(8)(F$(9))R((F$(7)))(F$(10))R((F$(7)))ĭF$(1)"I"XR:59750_NF$(7)F$(8)(F$(9))R((F$(7)))(F$(10))R((F$(7)))ī20083aNF$(1)"S"İ56100:F$(2);:XXT2:51500:;N7>NX$(SP$,40):23:1:X$;:X$;:DR0:I0:D$AHNII1sRNXI:59700:(F$(0))99999F$(1)"END"20900SNF$(1)"END"20999TN56100\NF$(1)"T"ĺ(F$(3))1);F$(2):56500:209008]NF$(7)F$(8)(F$(9))R((F$(7)))(F$(10))R((F$(: PRINT D9$;"OPEN";AF$;",L65"9NI1IC:X$"LOADING BALANCE "(I)" OF "(IC):52500::X((IC$(I),(IC$(I))6)):(IC$(I))0BA(I)0:MO(I)0:20027:N(IC$(I))0İ59754:BA(I)(A$(3))(A$(4)):MO(I)(A$(3)):A$(5)"I"I1I1BA(I):I2I2(A$(3))"READ";IN$;",R1":A$,B$,C$,F$,E$:(13);D9$6NF$"ZZ"E$"ZZ"ĺ"PLEASE RUN 'FORMAT REPORTS' IN THE SYSTEM MENU IN ORDER TO CONVERT YOUR FORMAT FILES FOR 6-DIGIT ACCOUNTS. THEN YOU WILL BE ABLE TO PRINT AN INCOME STATEMENT.":57000: 8N(13)"":II180:H$(1)H$(1)"="::H$(3)H$(1):H$(2)" THIS MONTH RATIO YEAR-TO-DATE RATIO"/NZ2$"Y":TI$"INCOME STATEMENT":LC100:56500:::12:12:"INCOME STATEMENT":4ND9$;"OPEN";IN$;",L85":D9$-5ND9$;:/ (4);"OPEN";FC$:(4);"READ";FC$:PS0G ERL6095:X:CA$(X)Y PSPS1:6095u (4);"CLOSE":PSPS1: N PRINT INCOME STATEMENT *N:X$"PRINT INCOME STATEMENT":56000::CE40:FO$IN$ +NT0:T10:T20:I0:I10:I20 ,NF$(1)""-NH$(1)1Ģ7(OTNO21)2:BB:ME$(OT);? PT0PTNO:OTPT:2035] PTNO1PT1:OTPT:2035m OTPT:2035 .PT45000,20000,22000,21500,21000,61000,54500,3000 11000 END PROGRAM :X$"THANK YOU FOR USING VERSALEDGER II":56000:D9$;"CLOSE":CG132094' CG81CG11PTOT1@ CG65CG10PTOT1p (CG8CG21)ĭPT(NO21)PTPTNO2:2052 (CG8CG21)ĭPTNO2PTPTNO2 CG10CG11CG8CG21CG65CG812040 OT(NO21)Ģ7(OT1)2:AA:ME$(OT);# OTNO20PT1:OT1[ DL98:AA1:BB25:X$"* F/S & CHECK REGISTER POSTING *":20(X$)2)X$:c : I1NO2:AA)ME$(I);BB)ME$(INO2):: PTNO21Ģ7(PT1)2:AA::ME$(PT);: PTNO21Ģ7(PTNO21)2:BB::ME$(PT);: X$:CG(X$)xz{|}~66:772,223:771,166:772,223:773,154:774,72:775,152:776,72:777,96O \ D9$(4)h d63998 s:11:10:"STAND BY ... 63050 (4)::X$"* V E R S A L E D G E R I I *"::20(X$)2)X$;41);:: X$"":D$(4):D9$D$ PT))R(IQ)(F$(10))R(IQ)ī20087^uNF$(1)"I"X((IC$(Q),(IC$(Q))6)):59750:DE$A$(2)vNF$(1)"I"İ56100:DE$;:XXT2:51500:24(DE$))XX$;:LQ(XX$):XXT2I2100:51500:XX$;:LQ(XX$):XXT:51500:4);XX$;:XXTI1100:51500:XX$:56500:T0:T20wNQ:ExNF$(1)"S"İ56100:(F$(2))24F$(2)(F$(2),23)yNF$(1)"S"ĺF$(2);:XXT2:51500:24(F$(2)))XX$;:LQ(XX$):XXT2I2100:51500:XX$;:LQ(XX$):XXT:51500:4);XX$;:XXTI1100:51500:XX$:56500:T0:T20:20900Q56200:2004$"ZZ"ĺ:"PLEASE RUN 'FORMAT REPORTS' IN THE SYSTEM MENU IN ORDER TO CONVERT YOUR FORMAT FILES FOR 6-DIGIT ACCOUNTS. THEN YOU WILL BE ABLE TO PRINT A BALANCESHEET":$߯F$"ZZ"E$"ZZ"ĺ(13);D9$:57000:$௺(13)i%ᯁI1IC:X$"LOADINHEET#ɯZ2$"Y"'#ͯFO$BA$:F$(1)""#ү:X$"PRINT BALANCE SHEET":56000::CE40:I13:H$(I)""::TI$"BALANCE SHEET":LC100:56500:::12:12:"BALANCE SHEET":#ܯD9$;"OPEN";BA$;",L85"#ݯD9$;"READ";BA$;",R1":A$,B$,C$,E$,F$:D9$$ޯE$"ZZ"F((((IC$(OI),6)))))((IC$(OI),6));11)CF$;:XXA:51500:29(CF$)(XX$))XX$:56500f"kV56200"mVD9$;"CLOSE"TF$:(4);"OPEN";TF$;",L81":D$(4):(4);"WRITE";TF$;",R1":CN:NT:(4);"CLOSE";TF$:Z2$"Y"İ56200:LCLC1:56600"rV#ȯ BALANCE S(FF):A$(2):FF:A$(3)(FF):FF:A$(4)(FF):A$(5):A$(3)((A$(3))TR):(4);"WRITE";AF$;",R";R:IX15:A$(IX)::(4):NTNT1!fV(4);"OPEN";TF$;",L81":(4);"WRITE";TF$;",R";NT1:A:D$:P$:CO$:RE$:T:TRTRA["hVZ2$"Y"İ56100:D$;4)P$;28(P$)11)CF$;:XXA:51500:29(CF$)(XX$))XX$:56500::56500:56200I bV cVTRTR1:ATR:TEMP$TD$:TD$D1$:P$CS$:CO$CF$:RE$(RE):RE$"CR"(SP$,4(RE$))RE$:RERE1:TCH:XCH:(4):59900:(4);"OPEN";AF$;",L65":(4);"READ";AF$;",R";R!eVFF:A$(1)(3)((A$(3))A):D9$;"WRITE";AF$;",R";X:IX15:A$(IX)::NTNT1::D9$;"CLOSE"TF$:D9$"OPEN"TF$",L81":D9$"WRITE"TF$",R";NT1`VA:D$:P$:CO$:RE$:T:(4):TRTRAC aVZ2$"Y"ĺ(4):56100:D$;4)P$;28(P$)((((IC$(I),6)))));((IC$(I),6));$;"OPEN";AF$;",L65"5]VTRANS$TD$:T((IC$(I),6))^VABA(I):D$D1$:P$CA$(I):CO$CF$:RE$(RE):RE$"CR"(SP$,4(RE$))RE$:RERE1:X((IC$(I),(IC$(I))6))::D9$;"READ";AF$;",R";X:FF:A$(1)(FF):A$(2):FF:A$(3)(FF):FF_VA$(4)(FF):A$(5):A$9999ĭ(TY$,1)"D"BA(OI)BA(OI)A:CA$(OI)DE$rAVT1T999999ĭ(TY$,1)"D"BA(OI)BA(OI)A1:CA$(OI)DE$EVX$"PROCESSING TRANSACTION "(I)" OF "(IT):52500JV:X$(SP$,40):22:1:SP$;TVI1ICYVBA(I)022114ZVD9$"CLOSE"AF$:D91":(4);"READ";FI$;",R1":IT,IT:D$@,VI1(MX$):BA(I)0:6VI2IT:D9$:D9$;"CLOSE":D9$;"OPEN";FI$;",L81":D9$;"READ";FI$;",R";I:A,D$,P$,CO$,TY$,T:TY$((SP$,7(TY$))TY$,6):(13);D9$8VT1T999999XT:(4):59900:(4)1@VT1T99 = "ACCOUNT DISK DRIVE":DF$ = MD$: GOSUB 54000:MD$ = STR$ ( VAL (DF$))VDL99:DP$"CASH ACCT #":DF$"100":FL0:54000:CH(DF$)VDL24:DP$"COMMENT FIELD":DF$"CHECK REG "FI$:FL1:54000:CF$DF$ V6090&"V(4);"CLOSE";FC$:(4);"OPEN";FI$;",L8 AMOUNT":56500:56200VV:X$"POST CHECK REGISTER TRANSACTIONS"::56000:55000VDL20:DP$"CHECKING ACCOUNT":DF$FI$:FL1:54000:FI$DF$:DF$"A"DF$"Z"Ģ(37):22040VDP$"POSTING DATE":DF$DT$:DD$DF$:DP$;20)":";:ZQ0:53000:ZQ0IV DP$E A CONTROL REPORT (Y/N)? ";Z2$:Z2$"Y"Z2$"N"22020vVRE1:Z2$"Y"TI$"CHECK REGISTER POSTING":CE40:LC100 VZ2$"Y"H$(1)"":EQ180:H$(1)H$(1)"="::H$(3)H$(1):H$(2)" DATE DESCRIPTION ACCT COMMENT T...":(4);"CLOSE":(4);"RUN SORT5"AU POST CHECK REGISTER\U:58000:58040:60000U:X$"POST CHECK REGISTER TRANSACTIONS":56000:TI$"CHECK REGISTER POSTING CONTROL REPORT":TR0:CS$"CASH":(4);"READ";TF$;",R1":CN,NT:(4):V"DO YOU DESIR0)RLCLC1:56600:D9$;"CLOSE";IN$:>R RUN GL SUBMENUR:10:11::"NOW LOADING GL SUBMENU"::12:15:"PLEASE WAIT...":(4);"CLOSE":(4);"RUNVERS2"yRS RUN SORT ROUTINE'T:10:11::"NOW LOADING SORT MODULE"::12:15:"PLEASE WAIG BALANCE "(I)" OF "(IC):52500::(IC$(I))0X((IC$(I),(IC$(I))6)):59754:BA(I)(A$(3)):%⯭(A$(1))99999BA(I)0:%X$(SP$,40):23:1:X$;:X$;:DR0:G0:D$%GG1%XG:59700:F$(1)"END"45999%(F$(0))9999945900&56100>&F$(1)"T"ĺ(F$(3))1)F$(2):56500:56200:45900&F$(7)F$(8)(F$(9))R((F$(7)))(F$(10))R((F$(7)))X(F$(7)):59900:TTN(BA(OI)):F$(1)"I"XR:59750&F$(7)F$(8)(F$(9))R((F$(7)))(F$(10))R((F$(7)))45073!' G33N4+ۺ(4);"PR#1":PF1:C4.ۺ(4);"PR#1":(9);"133N";:PF1:Z4۲ TURN OFF PRINTERf4ۭPF0ı4۫56210: DELETE THIS LINE FOR A SERIAL PRINTER OR ANY PRINTER WHICH DOES NOT USE CTRL I 133N 4ۺ(4);"PR#0":PF0:4ۺ(4);"PR#0":PF0:(5ܲ LISSAGE (X$) AT TOP OF SCREENK3ڢ1:1:(SP$,40);:2:1:(SP$,40);:1:1y3ں20(X$)2)X$:20(X$)2)(UN$,(X$))3ڱ3$۲ TURN ON PRINTER3(ۭPF1ı4)۫56110: DELETE THIS LINE FOR A SERIAL PRINTER OR ANY PRINTER WHICH DOES NOT USE CTRL I 1TEM MENUo2ԗ:10:10::"NOW LOADING SYSTEM MENU"::12:15:"PLEASE WAIT...":D9$;"CLOSE":D9$;"RUNSYSMEN"2ֲ PRINT INPUT HEADINGS2X42:A$(X)" FIELD "(X):10(A$)2)A$;:A$(X)" YOUR ENTRY "(X):30(A$)2)A$2ֺ2ֱ3ڲ PRINT ME"DX$"END"1000A1ӭ(DX$)DL((DF$)DLDX$"")ĺ(7):54030Z1ӭDL99DX$""540381FL0:Q1(DX$):TL((DX$,Q,1)):(TL48TL57)(TL46)FL11ӂ:FL1FL0:(7):540301ӭDX$""DX$"END"DF$DX$1ӭDX$""Ģ(37)1ӱ 2Բ RUN SYS(D1$,7):0ϫ53100+0Ҳ INPUT ROUTINEP0Ҳ DP$ = PROMPT DF$=DEFAULT INPUT_0EN0:T120n0 X1(37)10Ӣ24::5)"DEFAULT: ";DF$;40);::1:X1:40):40);:1:X1:DP$;T1);":";:"";DX$0ӭDX$""ĺT11):(37):(DF$(SP$,T1),T1)1ӭDX$"(X$)8ĭZ(Z)1D1$D3$(D1$,8Z(Z)):ZZ1:^/}ϭ(X$)8Z(Z)1D1$(95)(D1$,7):ZZ1:/ϭ(X$)48(X$)57ĭZ(Z)1D3$(D1$,Z(Z)1)X$:Z(Z)8D1$D3$:/ϭ(X$)48(X$)57ĭZ(Z)1D1$D3$(D1$,8Z(Z)): 0ϭ(X$)48(X$)57D1$X$100).vϭX$(13)(Z7ZQ1)X$"END":.wϭX$(13)(D1$,1)(95)(D1$,2,1)(95)(D1$,4,1)(95)(D1$,5,1)(95)(D1$,7,1)(95)(D1$,1)(95)X$"END":.{ϭ(X$)8ZQ0:ZZ1:Z(Z)1D3$(D1$,Z(Z)1)(95):Z(Z)8ZZ1:D1$D3$://|ϭ3:ZZ(5)4:ZZ(7)5:ZZ(8)6:Z(0)1:Z(1)1:Z(2)2:Z(3)4:Z(4)5:Z(5)7:Z(6)8:Z(7)8\-!Z0o-&ZZ1:Z8Z7|-)ϭZ0Z1-*ϭ(DX$)DL((DF$)DLDX$"")ĺ(7):54030-+ϰ53100-0ϖX1:X2:D1$;-5ϭX$"END"ĺ:-:ϫ53030.lϖX1Z(Z)1:X$:X$""531., X$"* "X$" *":22:20(X$)2:X$;:Y,ϲ INPUT DATE INTO D1$ IN MM/DD/YY FORMs, X1(36)1:X2(37)1,ϭ(DD$)8D1$DD$:X1:X2:D1$;:53020,D1$(95)(95)"/"(95)(95)"/"(95)(95):X1:X2:D1$;T-ZZ(0)1:ZZ(1)1:ZZ(2)2:ZZ(4)3(XX$))XX$+^ɱ9+ ˲ DISPLAY X$ AT BOTTOM AND WAITP+#ˢ24:1:(SP$,39);n+%ˢ23:1:(SP$,39);:23:1+*X$"* "X$" *":22:20(X$)2:X$;:51010:+Ͳ DISPLAY X$ AT BOTTOM (NO WAIT)+ͺD9$+͢24:1:(SP$,39);,͢23:1:(SP$,39);:23:51010"*,ɲ PRINT USING ROUTINED*6XX(XX.005)100:XX(XX)100*@XX$(XX):TEMP$(XX$,3):(TEMP$,2,1)"."XX$XX$"0":51540*Jɭ(TEMP$,1)"."XX$XX$".00"*TTT0:II1(XX$):(XX$,II,1)"."TTTT1:II:TT(XX$)+Yɭ(XX$)13XX$(SP$,1;:XXT:51500:(F$(3))(A$(2)))XX$:56500:T09)Qh)(F$(2))(F$(3))F$(2)(F$(2),(F$(3))))F$(1)"S"ĺD$:56100:F$(2);:XXT:51500:(F$(3))(F$(2)))XX$:56500:T0)L45040)NCLC1:56600:D9$;"CLOSE";BA$:)BǾX$:X$""ı*Gǫ56100(QSTED(IQ((IC$(Q),6)):IQ(F$(7))IQ(F$(8))(F$(9))R(IQ)(F$(10))R(IQ)TTN((BA(Q)100.5)100)(IQ(F$(7))IQ(F$(8))(F$(9))R(IQ)(F$(10))R(IQ)ī450782)F$(1)"I"X((IC$(Q),(IC$(Q))6)):59750:A$(2)OSUB 56100: PRINT : GOSUB 56200s'F$(1)"S"İ56100:XXT:51500:F$(2);(F$(3))(F$(2)))XX$:56500:T0:45900'F$(1)"I"İ56100:XXT:51500:DE$;(F$(3))(DE$));XX$:56500:T0:45900'45900(X(F$(7)):59900:STOI:X(F$(8)):59900:EDOI:NE PRINTER SUBROUTINE (PRINT HEADINGS)85ܭZ2$"Y"ı5ܭLC100ė:"ALIGN PRINTER AT THE TOP OF A NEW PAGE":"PRESS WHEN READY ";X$:PC0:X$"END"10005ܰ561005ܰ56200::15:12::"PRINTING"::561006LCLC1:LC55āIILC66:" "::LC12:PCPC1:CE1(AD$(1))2)AD$(1);CE26(CE1(AD$(1))2)(AD$(1)))"PAGE ";PC:II23:CE1(AD$(II))2)AD$(II)::565156ܭLC55ī565206ܺ" ":CE(TI$)2)TI$:CE(DT$)2)DT$:" ":II13:CE1(H$(II))2)H$(II)::" ":PC156520 79Dh CHECKING ACCOUNT,INITIAL BALANCE,INITIAL CHECK #NDmI13:P3$(I):YDn58100zDr GL TRANS ACCOUNT,NEXT JE #D|I12:P4$(I):D LINE #,TITLE/SUM (T/S),TITLE,PRINTER COLUMN,BEG ACCT #,END ACCT #,REVERSE SIGN (Y/N) EI06:BA$(I):IN$(ME,DATA FILE DRIVE,FIRM NAME,ADD 1 OF 2,ADD 2 OF 2ICZI16:P1$(I):C^58000:58040:60000:BA((MX$)),MO((MX$)),CA$((MX$)),NU((MX$)),IC$((MX$))Ca ACCOUNT NUMBER,DESCRIPTION,CURRENT BALANCE,Y-T-D BALANCE,TYPE (I E OR B)DdI15:P2$(I): "lBO 1,1,2,2,3,4,4,5,6,1,1,2,4,5,7,8,8BPR(X)X(X100)100:N(X)X(1((F$(6)"Y"))(F$(6)"Y"))BTI08:X:ZZ(I)X::I07:X:Z(I)X:4CW CHECKING ACCOUNT,ACCOUNT FILENA:D9$;"OPEN";AF$;",L65":D9$;"OPEN";TF$;",L81":IX$(AF$,(AF$)3)"IDX"PAtjAH RETURN TO MAIN MENUAR:10:11::"NOW LOADING MAIN MENU"::15:12:"PLEASE WAIT...":D$;"CLOSE":D$;"RUNVERSALED"AJ PROGRAM INITIALIZATIONDBMPF0:D$(4):SP$" EX1ĭF1(A$(1))99999EX1:X$"ACCOUNT ALREADY EXISTS":56000:57000:59919@ EX1F2X$"ACCOUNT DOES NOT EXIST":EX1:56000:57000:59920@EX1EX0@(4);"CLOSE":@` OPEN MASTER ACCOUNT@eD9$:D9$;"CLOSEJAjAF$A$(1):AD$A$(2)t?EX1OIR:R((IC$(R),(IC$(R))6)):56200:D9$;"CLOSE";AF$:(4);"OPEN";AF$;",L65":(4);"READ";AF$;",R";R?F2ĭRIC1EX0:59920?EX1Ą"";FF,A$(2),A$(3),A$(4),A$(5)?EX1NO$A$(1):DE$A$(2):CB$A$(3):YD$A$(4):T$A$(5):OK$T$R@ ISK>EX0:R1:HRIC:LR0G>NZ$(IC$(R),6):(NZ$)XEX1:59909j>(RHRRLR)R(MX$)259906>X(NZ$)HRR:R((RLR)2.5):59902>X(NZ$)LRR:R((RHR)2.5):RLR59902>R1IC:((IC$(R),6))XEX1?((IC$(R),6))XĂ FILE INFO FROM DISK=hEX0'=iD$R=jD9$;"CLOSE"AF$:D9$;"OPEN";AF$;",L65"m=lD9$;"READ";AF$;",R";X=mEX0:FF:A$(1)(FF):A$(2):FF:A$(3)(FF):FF:A$(4)(FF):A$(5)=oD9$:D9$;"CLOSE"=p>RR15:A$(RR)"": GETACCOUNTFILEINFO FROM DR";X!<;FF:F$(0)(FF):F$(1);<F$(2):FF:F$(3)(FF):F$(4):FF:F$(5)(FF):F$(6):FF:F$(7)(FF):FF:F$(8)(FF):FF:F$(9)(FF):FF:F$(10)(FF) )I )K2S )10:14::"RECORD = ";K;" ";:25:" INC = ";S;::" " )LKNSS )JL )T$A$(LS) *T$A$(J)10775 *A$(JS)A$(J) *JJS *J110755*A$(JS)T$((A7)))(A7)L :D9$;"WRITE";FILE$;",R";I:A2:B2$:C2$:D2$:E2$:F2U D9$[ s 2#D9$;"CLOSE":D9$: <#A$"FILE "FILE$" HAS BEEN SORTED":12:20(A$)2:A$:I1250:::10:11::"NOW LOADING MAIN MENU"::12:15:"PLEASE WAIT..." F#D$:D$:E$:F:D9$ 15000| A2A:B2$B$:C2$C$:D2$D$:E2$E$:F2F:D9$;"READ";FILE$;",R";I:A:B$:C$:D$:E$:F:D9$ 15000 D9$;"WRITE";FILE$;",R";A7:A:B$:C$:D$:E$:F:D9$:TX$E$ X12N:TX$(A$(X1),6)A$(X1)(A$(X1),6)(SP$,4LOSE"< i:12:Z$"ALPHABETIZING ARRAY":22(Z$)2::Z$G n10710M qs s:12:12:"SORTING, RECORD = " D9$;"OPEN";FI$;",L81" D9$ I2N :12:30:I: A7(((A$(I),4))) A7I250 D9$;"READ";FILE$;",R";A7:A:B$:C":18(Z$)2::Z$::: (4);"READ";FI$:N:A:(4)E "I2Nc #(4);"READ";FILE$;",R";I %14:14::"RECORD ";I1;:: (A,B$,C$,D$,E$,F -(E$)6E$(SP$,6(E$))E$ .I$(I):I$(SP$,4(I$))I$:E$E$I$ 2A$(I)E$ d:(4);"C SORT5 PRODOS VERSION6SP$" ":D9$(4)FD9$;"CLOSEVA$(5000):"WHICH FILE WOULD YOU LIKE SORTED? ";FILE$ :12:12::"SEARCHING FOR FILE ";FILE$;:P1:PD1:PB1:D9$;"OPEN";FILE$;",L81 :12:Z$"LOADING ARRAYnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~  Q$(4))"ENTER FILE NAME>";FI$CQ$;"OPEN";FI$;",L81"f("ENTER A GOOD ITEM NUMBER>";X2Q$;"READ";FI$;",R";X1<A,D$,P$,CO$,TY$,T%FQ$P"ENTER THE BAD ITEM NUMBER>";XUQ$;"WRITE";FI$;",R";X1 ZA:D$:P$:CO$:TY$:T%D$;"OPENGLPARAM.DAT":D$;"WRITEGLPARAM.DAT":I18:AA$(I)::D$;"CLOSEGLPARAM.DAT"L'57000::X$"ONE MOMENT PLEASE...":56000:: ADD ACCOUNT:TEMP$(IX$,(IX$)3)::X$"ADD NEW ACCOUNT":56000:550005:DL99:DP$P2$(1):DF$A$(1):FL0:54DL(5)99:DL(6)20:DL(7)20:DL(8)99:FL1:55000:I18B'DLDL(I):DP$P1$(I):DF$AA$(I):54000:AA$(I)DF$:I2I5ĭDF$"1"DF$"2"Ģ(37):10050C'I1I4I6I7ĭDF$"A"DF$"Z"Ģ(37):10050D'I8ĭ(DF$)1(DF$)999999Ģ(37):10050UG':81":59200:JEJE1:F0> D$;"CLOSE":D$;"OPEN";TF$;",L81"l D$;"WRITE";TF$;",R1":JE:NT:D$:3007:}' INITIALIZE'22:'58000: READ IN PARAMETERS8':X$"GENERAL LEDGER INITIALIZATION":56000:8='DL(1)20:DL(2)99:DL(3)99:DL(4)20:CO$:FL1:54000:CO$DF$ R DL99:DP$P3$(5):DF$(A):FL0:54000:A(DF$) X$" IF ERROR, ANY KEY IF CORRECT":52000:Y$(SP$,39):23:1:Y$:X$"E"3007 XT:F2:59700:EX0A$(3)((A$(3))A):XR:59600:NTNT1:XNT1:D$;"OPEN";TF$;",L$,2)(SP$,7(RE$)):RE$(RR$,(RR$)1)(RE$,(RE$)2)p "DATE";:DP$"DATE":ZQ0:20)":";:53000:DD$D1$ DL18:1:DP$P3$(2):DF$P$:FL1:54000:P$DF$ DL99:DP$P3$(3):DF$(T):FL0:54000:T(DF$):T1T9999993040 DL18:DP$P3$(4):DF$X$"ENTER JOURNAL ENTRY":56000:55000R D$;"CLOSE";TF$:D$;"OPEN";TF$;",L81" D$;"READ";TF$,",R1":JE:NT:D$:RE$(JE):RR$"JE"(SP$,5(RE$)):RE$(RR$,(RR$)1)RE$: DL7:1:DP$"TRANSACTION #":DF$RE$:FL1:54000:RE$DF$:(RE$)3RR$(RE(OT);# PT0PTNO:OTPT:2035A PTNO1PT1:OTPT:2035Q OTPT:2035 .PT10000,15000,33000,35000,40000,48000,3000,45000,36000,22000,23000,21000,25000,57500,61000,20000,62100,50000,2098,30000 11000 2 JOURNAL ENTRY( DD$DT$::1PTOT1$ CG65CG10PTOT1T (CG8CG21)ĭPT(NO21)PTPTNO2:2052z (CG8CG21)ĭPTNO2PTPTNO2 CG10CG11CG8CG21CG65CG812040 OT(NO21)Ģ5(OT1)2:AA:ME$(OT); OTNO21Ģ5(OTNO21)2:BB:ME$ENERAL LEDGER SUBMENU *":20(X$)2)X$:W I1NO2:AA)ME$(I);BB)ME$(INO2);o INO2ĺ:I10ĺu  PTNO21Ģ5(PT1)2:AA::ME$(PT);: PTNO21Ģ5(PTNO21)2:BB::ME$(PT);: X$:CG(X$):CG132094 CG81CG13,154:774,72:775,152:776,72:777,964 63998Q :11:10:"STAND BY ...u 63050: PROGRAM INITIALIZATION  GOTO 2000 DL98::X$"* V E R S A L E D G E R I I *"::20(X$)2)X$;41);:: PT0PT1:OT1, AA1:BB24:X$"* Ga VERS2 - VERSALEDGER II GENERAL LEDGER SUBMENU - 6 DIGIT ACCOUNT VERSION 08/22/85 BY RK H & E COMPUTRONICS, INC. 50 N. PASCACK ROAD SPRING VALLEY, NY 10977 PRODOS VERSION( 768,104:769,168:770,104:771,166:772,223:77 dQ$;"CLOSE"000:(DF$)1(DF$)999999(DF$)((DF$))15020C:A$(1)DF$n:DL24:DP$P2$(2):DF$A$(2):FL1:54000:DL99:A$(2)DF$:I34:DP$P2$(I):DF$A$(I):FL0:54000:A$(I)DF$: :DL1:DP$"TYPE (I,E,B)":DF$A$(5):FL1:54000:DF$"I"DF$"B"DF$"E"15025:A$(5)DF$4:XX15:X$(XX)A$(XX)::F1:X(A$(1)):59700:F0:EX1X$"ADDING NEW ACCOUNT":SF1:ICIC1:XIC:56000:II15:A$(II)X$(II)::59600:57000:EX1(A$(1))6A$(1)(ZERO$,6(A$(1)))A$(1):EX1IC$(IC)A$(1)(100:D0:C06"a"1. SUMMARY REPORT (BALANCES ONLY"h"a"2. DETAILED REPORT (INCL. TRANSACTI'NS)":"a"WHAT IS YOUR CHOICE? (ENTER 1 OR 2) ";X:X1X(X)X225040"aX26000,28000"a"e SUMMARY TRIAL BALANCEB#e"DO YOU DESIRE A MONTHLY OE 07/27/84!Y:56100:"TOTALS:";46)"============= ============":XXD:51500:53)XX$;" ";:XXC:51500:XX$:XXD(C):51500:" ":"OUT OF BALANCE";53)XX$:LCLC5:56200!Z56600:!a TRIAL BALANCE!a:X$"TRIAL BALANCE":56000:: "aPC0:LC LEFT$ (SP$,4 - LEN ( STR$ (T)));A Y(CO$)10CO$(CO$,10) YA0DDA:XXA:51500:7((T)))CO$;11((CO$,11)))XX$:56500 YA0CCA:XXA:51500:7((T)))CO$;25((CO$,25)))XX$:56500 !Y56200: GOSUB 56500 REMOVED FROM FROM OF LIN ACCT COMMENT DEBIT CREDIT":56500xYI2NT1:XI:59100:56100:T$OT$ĭ(P$)18P$(P$,18)YT$OT$ĺT$;7(T$))DD$;9(DD$))P$;19((P$,21)));T;:OT$T$:23032YT$OT$ĺ36);T;$ Y IF T < 100 THEN PRINT TAB( 40);LOSE":(4);"RUNSORT5"3Y TRANSACTION REGISTERY:X$"TRANSACTION REGISTER":TI$X$:56000::D0:C0:OT$"":PC0:LC100:CE40:H$(1)"":I180:H$(1)H$(1)"="::D$;"READ";TF$;",R1":CN:NT:D$:9YH$(3)H$(1):H$(2)"REF # DATE DESCRIPTION ))A$(5);2(A$(5)))A$(3);16(A$(3)))A$(4);1)" -------"V$TLCLC1::56500t%TLC12İ56100:" ":56200|)TD$`TaTD$;"CLOSE";AF$T56600:U SORT FILEU:48100::10:12::"NOW LOADING SORT"::12:15:"PLEASE WAIT":(4);"C):51500:A$(3)XX$:XX(A$(4)):51500:A$(4)XX$:XX(A$(3))(A$(4)):51500:A$(6)XX$TA$(5)"I"A$(5)"E"İ56100:X;7((X)))A$(2);28(A$(2)))A$(5);2(A$(5)))A$(3);16(A$(3)))A$(4);1)A$(6)A!TA$(5)"B"İ56100:X;7((X)))A$(2);28(A$(2)00*TD$;"CLOSE":D$;"OPEN";AF$;",L65"RTI1IC:X((IC$(I),6)):X021600TX0ĺD$;"READ";AF$;",R";((IC$(I),(IC$(I))6))TA$(1):A$(2):A$(3):A$(4):A$(5):NO$A$(1):DE$A$(2):CB$A$(3):YD$A$(4):T$A$(5):OK$T$T56100WTXX(A$(3)STINGST:X$"DETAILED ACCOUNT LISTING":56000::TI$"DETAILED ACCOUNT LISTING" TPC0:LC100:D0:C0:H$(1)"":I180:H$(1)H$(1)"="::H$(3)H$(1):H$(2)"ACCT # DESCRIPTION TYPE CURRENT BAL PREV MONTH YTD YTD BAL" TCE40:5651IC:X((IC$(I),6)):X021300CRZY((IC$(I),(IC$(I))6))xRD$;"READ";AF$;",R";ZY:FF:A$(1)(X):A$(2):D$R:56100:7(A$(1)))X;9)A$(2):56500:562004S>SD$;"CLOSE";AF$STI$"ACCOUNT LISTING":56600:S DETAILED ACCOUNT LICOUNT LISTING":56000:vRH$(1)"":I140:H$(1)H$(1)"="::H$(2)(SP$,40):H$(3)H$(1):H$(2)"ACCOUNT # ACCOUNT TITLE":H$(2)H$(2)(SP$,40(H$(2))):TI$"SUMMARY ACCOUNT LISTING"xRAD$(1)(AD$(1),25){R56500|RD$;"OPEN";AF$;",L65"#RI000:RPC0:LC100:CE20KR:"1. SUMMARY REPORT (ACCT #'S & TITLES"|&R"2. DETAILED REPORT (#'S, TITLES, & BAL)":0R"WHAT IS YOUR CHOICE? ";X:X(X)X1X2Ģ(37):210405RX21100,21500:lR SUMMARY ACCOUNT LISTINGqR:X$"SUMMARY ACSTEM MENU":12:15::"PLEASE WAIT...":D$;"CLOSE":D$;"RUNSYSMEN"^ N FINANCIAL REPORTING%N:48100::10:11::"NOW LOADING F/S MENU"::12:15:"PLEASE WAIT..."*N:D$;"CLOSE":D$;"RUNREPORT"R ACCOUNT LISTINGR:X$"ACCOUNT LISTING":56IC)5:EX1ĺD$:D$;"OPEN";IX$:D$;"WRITE";TEMP$o:EX1āII1IC:IC$(II):II:"END":D$;"CLOSE";TEMP$:II15:A$(II)X$(II):::EX1āI1IC:IC$(IC):I;D$;"CLOSE";TEMP$> RUN SYSTEM MENUD>:48100::10:10::"NOW LOADING SYR A Y-T-D":"TRIAL BALANCE (M/Y)? ";TB$:TB$"M"TB$"Y"26007#eCE40:H$(1)"":I180:H$(1)H$(1)"-"::H$(3)H$(1):H$(2)"ACCT # ACCOUNT TITLE DEBIT CREDIT":TB$"M"TI$"SUMMMARY MONTHLY TRIAL BALANCE"-$eTB$"Y"TI$"SUMMARY Y-T-D TRIAL BALANCE"]$e(H$(2))80H$(2)H$(2)(SP$,80(H$(2)))h$e56500n$e$eI1IC:X((IC$(I),6)):X026500$e:59700%e56100:A$(1);10(A$(1)))A$(2);:B(A$(3)):(A$(5)"I"A$(5)"E")TB$"Y"B(A$(3))(A:20(XX$));XX$2sLCLC6,2s56600:>20u END PROGRAM2:u:48100::X$"THANK YOU FOR USING VERSALEDGER II":56000:D$;"CLOSE":2耲 QUERY ACCOUNT2:X$"QUERY ACCOUNT":56000::3"WHICH ACCOUNT DO YOU WISH TO QUERY":"(0 IF NONE)? ";X:XEDITS";:XXBC:51500:27(XX$))XX$;:XXCC:51500:20(XX$))XX$;:XXEC:51500:20(XX$))XX$2sE$"":EQ113:E$E$"="::51)E$;7)E$;7)E$:"* * * OUT OF BALANCE: ";:XXBDBC:51500:42(XX$))XX$;:XXCDCC:51500:20(XX$))XX$;:XXEDEC:51500LC1:56500:I0EDEDI+0ioI0ECECI10 WHEN READY ";X$:PC0:X$"END"2000+m56100,mLCLC1:LC55āIILC66:" ":51):H$(3)(H$(3),71)" "(H$(3),12672)*rmH$(3)(H$(3),78)" "(H$(3),12679):H$(3)(H$(3),99)" "(H$(3),126100):H$(3)(H$(3),113)" "(H$(3),126114)+tm"DO YOU DESIRE A MONTHLY OR Y-T-D":"BALANCE (M/Y)? ";TB$:TB$"M"TB$"Y"Ģ(37)1:2H$(1),30)"BEGINNING"(H$(1),12639):H$(1)(H$(1),114)" =====ENDING"k)mmBC0:BD0:CC0:CD0:EC0:ED0+*qmH$(3)(H$(3),6)" "(H$(3),1267):H$(3)(H$(3),27)" "(H$(3),12628):H$(3)(H$(3),41)" "(H$(3),12642):H$(3)(H$(3),50)" "(H$(3),126 AMOUNT BALANCE"(kmH$(1)(H$(1),27)" "(H$(1),12628):H$(1)(H$(1),41)" "(H$(1),12642):H$(1)(H$(1),113)" "(H$(1),126114):H$(1)(H$(1),10)"ACCOUNT"(H$(1),12617)I)lmH$(1)(H$(1),68)"TRANSACTION"(H$(1),12679):H$(1)(:LCLC2'_m56600:5'`m DETAILED TRIAL BALANCE`'am:X$"DETAILED TRIAL BALANCE":56000:!(jmCE63:H$(1)"":I1126:H$(1)H$(1)"="::H$(3)H$(1):H$(2)"NUMBER TITLE BALANCE DATE DESCRIPTION REF # COMMENT 56100:" ":56200&e56500<&eLC12İ56100:" ":56200B&gM&g56100&gX$"":I111:X$X$"="::" ":" ":"TOTALS:";38)X$;21(X$))X$:XXD:51500:43)XX$;:LQ(XX$):XXC:51500:21LQ)XX$:LCLC5 'g:"OUT OF BALANCE: ";:XXDC:51500:XX$$(4))>%e(A$(5)"I"A$(5)"E")(XRT)TB$"Y"B(A$(4))x%eB0XXB:51500:32((A$(2),32)))XX$:DDB:56500%eB0XXB1:51500:53((A$(2),53)))XX$:CCB1:56500%eB0XXB:51500:32(A$(2)))XX$;21(XX$))XX$:56500&eLC12İ0X999999X(X)33020&3X0ı.3:3F2:59700:F0:EX1ė:X$"ACCOUNT "NO$:56000::P2$(2);20);":";A$(2):I34:P2$(I);20)":";((A$(I))100.5)100::P2$(5);20)":";A$(5):5700033 CHANGE ACCOUNT 4ˆ:X$"CHANGE ACCOUNT":56000::[4̈"WHICH ACCOUNT DO YOU WISH TO CHANGE":"(0 IF NONE)? ";X:X0X99999935020f4͈X0ı4ΈX$"ACCOUNT "(X)::56000::4шDL99:F2:59700:F0:O$NO$:EX1İ55000:DP$P2$(1):DF$NO$:FL0:54000:(DF$)1(DF$)99999935026 5҈NO$DF$:TE";TF$;",R1":JE:NT:D$:JF0::2000>B(A2).001ī2000BX$"ERROR - TRANSACTIONS TOTAL "((A2100.5)100):56000:57000::X$XY$:56000:55000:45040B SORT INDEX FILEB:X$"SORT ACCOUNTS":56000:B"ONE MOMENT PLEASE....":IC0)C00:55000:45040'AX$"E"NENE1AXT:F2:59700:EX0A2A2A:A$(3)((A$(3))A):XR:59600:NTNT1:XNT1:D$;"OPEN";TF$;",L81":59200:F0::X$XY$:56000:55000:45040(B(A2).001ĭNE0JEJE1:D$;"CLOSE";TF$:D$;"OPEN";TF$;",L81":D$;"WRIT1T99999945040K@DL18:DP$P3$(4):DF$CO$:FL1:54000:CO$(DF$,25)Q@@DL99:DP$P3$(5):DF$(A):FL0:54000:A(DF$)@X$" IF ERROR, ANY KEY IF CORRECT":52000:Y$(SP$,39):23:1:Y$:X$"E"ĭNE045000AX$"E"NE0NENE1::560(RE$)645011_?ׯ(RE$)3RR$(RE$,2)(SP$,7(RE$)):RE$(RR$,(RR$)1)(RE$,(RE$)2)?ܯ"DATE";:DP$"DATE":ZQ0:20)":";:53000:DD$D1$?DL18:1:DP$P3$(2):DF$P$:FL1:54000:P$(DF$,25)@DL99:DP$P3$(3):DF$(T):FL0:54000:T(DF$):95)(95)::X$"MULTIPLE JE ENTRY":XY$X$:56000:55000c>ЯD$;"CLOSE";TF$:D$;"OPEN";TF$;",L81">үD$;"READ";TF$;",R1":JE:NT:D$:RE$(JE):RR$"JE"(SP$,5(RE$)):RE$(RR$,(RR$)1)RE$?ӯDL6:1:DP$"TRANSACTION #":DF$RE$:FL1:54000:RE$DF$:9800:XR:59600:O2OI:R2R:X(NO$):59700:IC$(O2)(IC$(OI),6)(R2):NO$(99999):A$(1)NO$:XIC:59600:IC$(OI)IC$(IC):IC$(IC)"0000000":ICIC1=|=ȯ MULTIPLE JE ENTRY9>ͯDD$DT$:P$"":T0:A0:A20:NE0:JF1:DC$(95)(95)"/"(95)(95)"/"(::I24:P2$(I);20)":";A$(I)::P2$(5);20)":";A$(5)::40040~<_40060: F=2 DENOTES ERROR CHECK TO SEE IF FILE EXISTS IF ERROR, ANY KEY IF CORRECT":52000:Y$(SP$,40):22:1:Y$:X$"E"ė:55000:"TNT1:XI:TY$RS$:59100:TY$RE$36100]8OAA:T0T:NENE1:NE1ė:X$XY$:56000:550008ȌX1(37)1:24::"DEFAULT: ";20);DD$;40);::X1:1:"DATE";20);":";:53000:DD$D1$8ҌDL18:DP$P3$(2):DF$P$:FL1:54000:P$(DF$,25)49܌DL99:DP$P3$(3)(95)"/"(95)(95):NE0C7D$;"CLOSE":D$;"OPEN";TF$;",L81"h7D$;"READ";TF$;",R1":CN:NT:D$7DL6:DP$"TRANSACTION #":DF$"":FL1:54000:RS$DF$:(RS$)3360207RS$(RS$,2):DF$(DF$,(DF$)2):RS$RS$(SP$,4(DF$))DF$:DF$RS$*8I2DF$.6鈭(NO$)6NO$(ZERO$,6(NO$))NO$6X$"UPDATING FILE":56000:XR:59600:O$NO$SF1:IC$(OI)NO$(IC$(OI),(IC$(OI))6)66 EDIT TRANSACTION7:X$"EDIT JE ENTRY/POSTING TRANSACTION":XY$X$:56000:55000:DC$(95)(95)"/"(95)A$(1)NO$5ӈEX1ı5ֈDL24:DP$P2$(2):DF$A$(2):FL1:54000:A$(2)DF$:DL99:I34:DP$P2$(I):DF$(((A$(I))100.5)100):FL0:54000:A$(I)DF$::350405׈350605DL1:DP$P2$(5):DF$A$(5):FL1:54000:DF$"I"DF$"B"DF$"E"350406A$(5):D$;"CLOSE";AF$:D$;"OPEN";AF$;",L65"CI1(MX$)::D$;"READ";AF$;",R";I:FF:A$(1)(FF):A$(2):FF:A$(3)(FF):FF:A$(4)(FF):A$(5):NO$A$(1):DE$A$(2):CB$A$(3):YD$A$(4):T$A$(5):OK$T$.D(NO$)99999ICIC1:XN$NO$:D$;"WRITE";AF$;",R";IC:(A$(1)):A$(2):(A$(3)):(A$(4)):A$(5)D(NO$)99999ĭIICA$(1)(99999):D$;"WRITE";AF$;",R";I:(A$(1)):A$(2):(A$(3)):(A$(4)):A$(5)DD$D(NO$)99999ĭ(NO$)6NO$(ZERO$,6(NO$))NO$:IC$(IC)NO$(IC)!EX$"LOOKING AT ACC"ĺT11):(37):(DF$(SP$,T1),T1)ARӭDX$"END"JF146000]RӭDX$""DX$"END"2000Rӭ(DX$)DL((DF$)DLDX$"")ĺ(7):54029RӭDL99DX$""54038RFL0:X1(DX$):TL((DX$,X,1)):(TL48TL57)(TL46)FL1Sӭ((DX$,1))45X1F$(D1$,8Z(Z)):>Qϭ(X$)48(X$)57D1$X$(D1$,7):IQϫ53100]QҲ INPUT ROUTINEQҲ DP$ = PROMPT DF$=DEFAULT INPUTQEN0:T120Q X1(37)1Q Ӣ24::5)"DEFAULT:";DF$;40);::1:X1:40):40);:1:X1:DP$;T1);":";:"";DX$'RӭDX$"(D1$,Z(Z)1)(95):Z(Z)8ZZ1:D1$D3$:aP|ϭ(X$)8ĭZ(Z)1D1$D3$(D1$,8Z(Z)):ZZ1:P}ϭ(X$)8Z(Z)1D1$(95)(D1$,7):ZZ1:Pϭ(X$)48(X$)57ĭZ(Z)1D3$(D1$,Z(Z)1)X$:Z(Z)8D1$D3$:Qϭ(X$)48(X$)57ĭZ(Z)1D1$D3"END"ĺ:O:ϫ530307OlϖX1Z(Z)1:X$:X$""53100[OvϭX$(13)(Z7ZQ1)X$"END":OwϭX$(13)(D1$,1)(95)(D1$,2,1)(95)(D1$,4,1)(95)(D1$,5,1)(95)(D1$,7,1)(95)(D1$,1)(95)X$"END":-P{ϭ(X$)8ZQ0:ZZ1:Z(Z)1D3$D1$(95)(95)"/"(95)(95)"/"(95)(95):X1:X2:D1$;NZZ(0)1:ZZ(1)1:ZZ(2)2:ZZ(4)3:ZZ(5)4:ZZ(7)5:ZZ(8)6:Z(0)1:Z(1)1:Z(2)2:Z(3)4:Z(4)5:Z(5)7:Z(6)8:Z(7)8N!Z0N&ZZ1:Z8Z7N)ϭZ0Z1N+ϰ53100N0ϖX1:X2:D1$; O5ϭX$39);:23:1?M*X$"* "X$" *":23:20(X$)2:X$;:51000:dMͲ DISPLAY X$ AT BOTTOM (NO WAIT)MX$"* "X$" *":22:20(X$)2:X$;:Mϲ INPUT DATE INTO D1$ IN MM/DD/YY FORMM X1(36)1:X2(37)1Mϭ(DD$)8D1$DD$:X1:X2:D1$;:53020AN(TEMP$,2,1)"."XX$XX$"0":51540HLJɭ(TEMP$,1)"."XX$XX$".00"LTTT0:II1(XX$):(XX$,II,1)"."TTTT1:II:TT(XX$)LYɭ(XX$)13XX$(SP$,13(XX$))XX$L^ɱL ˲ DISPLAY X$ AT BOTTOM AND WAITL#ˢ24:1:(SP$,39); M%ˢ23:1:(SP$,(3)((A$(3))B9):XR::D$;"OPEN";AF$;",L65":59600:EP$"Y"A$(4)A$(3):XR::59600mKúD$;"CLOSE";AF$sKñK8Dz WAIT FOR ANY KEYKBǾX$:X$""ıKGǫ51010K,ɲ PRINT USING ROUTINEK6XX(XX.005)100:XX(XX)100%L@XX$(XX):TEMP$(XX$,3):"A$(4)((A$(3))(A$(4))):A$(3)(0)^Jyí(T$"I"T$"E")ĭEP$"M"A$(3)(0):A$(4)(0)JzíT$"B"ĭ(RT(NO$)EP$"Y")A$(4)A$(3)J{X((IC$(I),(IC$(I))6)):59600J|úD$YKÂI:DR1:XRT::D$;"CLOSE";AF$:D$;"OPEN";AF$;",L65":59700:DR0:A$UT ACCOUNT "(I)" OF "MX$:52500:(IC$(I))050050WIoX((IC$(I),(IC$(I))6))sIpú:D$;"READ";AF$;",R";XIqÄA$(1):A$(2):A$(3):A$(4):A$(5)IrNO$A$(1):DE$A$(2):CB$A$(3):YD$A$(4):T$A$(5):OK$T$)Jxí(T$"I"T$"E")B9B9(A$(3)):EP$"MK849020Hƿ%HPò END OF PERIODLHZ×:X$"END OF PERIOD":56000::B90H_ú"IS THIS THE END OF A YEAR OR END OF A ":"MONTH? (Y/M) ";EP$:EP$"Y"EP$"M"EP$"END"50015H`íEP$"END"ıHbú:D$;"OPEN";AF$;",L65"HdÁI1(MX$)8InX$"CLOSING OGh BEGIN SHELL METZNER SORT ON INDEX2GrM8ICAG|M8(M82)MGM80ı_GK8ICM8:J81iGI8J8vGL8I8M8GIC$(I8)IC$(L8)49085GT8$IC$(I8):IC$(I8)IC$(L8)GIC$(L8)T8$:I8I8M8GI8149060GJ8J81G¿J8K849050 HÿJ8$(IX$,(IX$)3):D$;"WRITE";TEMP$:I1IC:IC$(I)::"END":D$;"CLOSE"\FлSF0:57000:F仲 CHECK IF INDEX NEEDS UPDATINGF续SF1ĺ"ONE MOMENT PLEASE...":"SINCE YOU MAY HAVE JUST ADDED OR DELETEDACCOUNTS, I MUST UPDATE MY RECORDS...":48060G軱(OUNT "(I)" OF "MX$:52500:QEX$" SORTING ":52500WElEIC(MX$)48064EIIC1(MX$):IC$(I)"ZZZZZZZ":EIC0İ49000E»X$" WRITING INDEX TO DISK ":52500JFƻD$:D$;"CLOSE";IX$:D$;"OPEN";IX$:TEMPL0#Sӂ:FL1FL0:(7):54029CSӭDX$""DX$"END"DF$DX$VSӭDX$""Ģ(37)\SӱwSֲ PRINT INPUT HEADINGSSX42:A$(X)" FIELD "(X):10(A$)2)A$;:A$(X)" YOUR ENTRY "(X):30(A$)2)A$SֺSֱ Tڲ PRINT MESSAGE (X$) AT TOP OF SCREEN8Tڢ1:1:(SP$,40);:2:1:(SP$,40);:1:1fTں20(X$)2)X$:20(X$)2)(UN$,(X$))lTڱT$۲ TURN ON PRINTERT(ۭPF1ıT)۫56110: DELETE THIS LINE FOR A SERIAL PRINTER OR ANY PRINTER WHICH DOES NOT USE CTRL I 133N U+ۺ(4);"PR#1"59720bGEX1EX0-bHD$;"CLOSE":D$:Db READ FORMAT FILEeb(13):D$;"OPEN";AF$;",L65"bD$;"READ";AF$;",R";XbA$(1):A$(2):A$(3):A$(4):A$(5)bD$;"CLOSE";AF$bb` OPEN MASTER ACCOUNTbaD$:D$;"CLOSEceD$;"OPEN";AF$;"(2):FF:A$(3)(FF):FF:A$(4)(FF):A$(5)na@EX1NO$A$(1):DE$A$(2):CB$A$(3):YD$A$(4):T$A$(5):OK$T$aAEX1ĭF1(A$(1))99999EX1:X$"ACCOUNT ALREADY EXISTS":56000:57000:59720bBEX1F2X$"ACCOUNT DOES NOT EXIST":EX1:56000:57000:((RHR)2.5):RLR59702@`:R1IC:((IC$(R),6))XEX1Y`;((IC$(R),6))XĂ`=EX1OIR:R((IC$(R),(IC$(R))6)):56200:D$;"CLOSE";AF$:D$;"OPEN";AF$;",L65":D$;"READ";AF$;",R";R`>F2ĭRIC1EX0:59720,a?EX1ĄFF:A$(1)(FF):A$:(37):D$;"CLOSE";AF$_\_4RR15:A$(RR)"":RR: GET ACCOUNT FILE INFO FROM DISKt_5EX0:R1:HRIC:LR0_6NZ$(IC$(R),6):(NZ$)XEX1:59709_7(RHRRLR)R(MX$)259706_8X(NZ$)HRR:R((RLR)2.5):59702`9X(NZ$)LRR:R UPDATE MY RECORDS.."3^IC0:48030:768:59339?^祫63998E^l^ PLACE FORMAT FILE INFO ONTO DISK^(37):(37):(13)^PT18ĺD$;"OPEN";AF$,",L65"^D$;"WRITE";AF$;",R";X^(A$(1)):A$(2):(A$(3)):(A$(4)):A$(5)_PT18ĺD$C)"END"ICIC1:D$;"CLOSE";TEMP$:593396]59320B]祫63998^:"ONE MOMENT PLEASE...":"IT APPEARS THAT YOU HAVE JUST UPDATED TOTHE NEW SIX-DIGIT ACCOUNT VERSION OF VERSALEDGER II OR THAT YOU HAVE JUST STARTED A NEW ACCOUNT FILE. LET ME SK,\A PRINT CHR$ (13): VTAB PEEK (37)G\ED$;"WRITE";TF$;",R";Xd\JA:DD$:P$:CO$:RE$:Ts\OD$:(37)y\T\ READ IN INDEX ARRAY\祫59329\IC0:D$;"OPEN";IX$\TEMP$(IX$,(IX$)3)\ICIC1:D$;"READ";TEMP$:IC$(IC)+]IC$(IDAT":DT$:D$;"CLOSEGLDATE.DAT"E[I110:AA$(I)A$(I):A$(I)"":K[v[ GET TRANSACTION FILE INFO FROM DISK[D$;"READ";TF$;",R";X[A:DD$:P$:CO$:RE$:T[T$RE$[D$: VTAB PEEK (37)[\@ PLACE TRANSACTION FILE INFO ONTO DIAM.DAT"qZAF$A$(1):AD$A$(2):MX$A$(3):TF$A$(4):TD$A$(5):FI$A$(1):BA$A$(6):IN$A$(7):RT$A$(8):RT(RT$)ZD$;"OPENVLPARAM.DAT":D$;"READVLPARAM.DAT":FI$:FC$:MD$:I13:AD$(I)::D$;"CLOSEVLPARAM.DAT"![D$;"OPENGLDATE.DAT":D$;"READGLDATE."ENTER TODAY'S DATE AND PRESS : ":15:12:53000:DT$D1$Y(4);"OPEN GLDATE.DAT":(4);"WRITE GLDATE.DAT":D1$:(4);"CLOSE":Y READ IN PARAMETERSYPF0:D$;"OPEN GLPARAM.DAT":D$;"READGLPARAM.DAT" ZI18:A$(I)::D$;"CLOSEGLPAR" ":" ":CE10(TI$)2)"* * * END OF "TI$" * * *":LCLC3:ILC66:" ":[X'ݰ56200aX,ݱX޲ DISPLAY 'ANY KEY TO CONTINUE' AND WAITX޺D$XX$"ANY KEY TO CONTINUE":52000XޱX SET TODAY'S DATEX:X$"SET TODAY'S DATE":56000::EY(1);CE26(CE1(AD$(1))2)(AD$(1)))"PAGE ";PC:II23:CE1(AD$(II))2)AD$(II)::56515uWܭLC55ī56520Wܺ" ":CE(TI$)2)TI$:CE(DT$)2)DT$:" ":II13:CE1(H$(II))2)H$(II)::" "Wܰ56200WܱWݲ FORM FEEDWݰ56100PX"ݺER SUBROUTINE (PRINT HEADINGS)VܭLC100ė:"ALIGN PRINTER AT THE TOP OF A NEW PAGE":"PRESS WHEN READY ";X$:PC0:X$"END"2000Vܰ56200::15:12::"PRINTING"::56100bWLCLC1:LC55āIILC66:" "::LC12:PCPC1:CE1(AD$(1))2)AD$:PF1:/U.ۺ(4);"PR#1":(9);"133N";:PF1:FU۲ TURN OFF PRINTERRUۭPF0ıU۫56210: DELETE THIS LINE FOR A SERIAL PRINTER OR ANY PRINTER WHICH DOES NOT USE CTRL I 133N Uۺ(4);"PR#0":PF0:Uۺ(9);"K":(4);"PR#0":PF0: Vܲ LINE PRINT,L65":D$;"OPEN";TF$;",L81"AcjIX$(AF$,(AF$)3)"IDX"" "GctacH RETURN TO MAIN MENUcR:48100::10:11::"NOW LOADING MAIN MENU"::12:15:"PLEASE WAIT":(4):(4);"RUNVERSALED"c RETURN TO MAIN MENUDd:48100:10:11::"NOW LOADING SYSTEM MENU"::12:15:"PLEASE WAIT":(4):(4);"RUN SYSMEN"adJ PROGRAM INITIALIZATIONdKZERO$"00000000000000000"dMPF0:D$(4)dO 1,1,2,2,3,4,4,5,6,1,1,2,4,5,7,8,8dTI08:X:ZZ(I)X::I07:X:Z(I)X:{eW GL ACCT FILE NAME,GL ACC1500 02/21/84* EMPIRE REAL ESTATE RENT -2/84 119 51000 175 02/28/84* POSTMASTER POSTAGE 120 55500 14000 02/15/84 CHECKS CASH SALES D 1 40001 670.32 02/247.63 02/21/84* VISA T & E -1/84 118 52500 1870 02/21/84* VISA PURCHASES 118 45001 97.48 02/21/84* VISA INTEREST EXPENSE 118 60600 3000 123 02/18/84* AMERICAN EXPRESS COPIER REPAIR 116 52000 27 02/18/84* AMERICAN EXPRESS BUSINESS DAY 116 56000 520 02/21/84* VERBATIM DISKS 117 45001 5 22300 1623.43 02/18/84* AMERICAN EXPRESS SHIPPING..02/84 116 47500 427.6 02/18/84* AMERICAN EXPRESS 1/84-T & E 116 52500 322.4 02/18/84* AMERICAN EXPRESS ELECTRIC BILL 116 5 GROSS PAY 115 50100 -63.9 02/07/84* ROBERT JONES FICA/FWT 115 22000 -10.85 02/07/84* ROBERT JONES STATE TAX 115 22100 -3.6 02/07/84* ROBERT JONES CITY TAX 114* WILLIAM SMITH FICA/FWT 114 22000 -7.7 02/07/84* WILLIAM SMITH STATE TAX 114 22100 -1.25 02/07/84* WILLIAM SMITH CITY TAX 114 22300 425 02/07/84* ROBERT JONES6423.82 26 120 200 02/07/84* WILLIAM SMITH GROSS PAY 114 50000 -36.4 02/07/8i(222)254Ħi(13):(4);"CLOSE"::"ERROR ";(222);" HAS OCCURRED IN LINE ";(218)(219)256;".":"PLEASE CONSULT DOCUMENTATION FOR HELP.":ET TODAY'S DATE,DELETE ACCOUNT,MAIN MENU,SORT ACCOUNTS,F/S & CHECK POSTh JOURNAL ENTRY,SYSTEM MENU,MULTIPLE JE,END OF PERIOD,EDIT TRANSACTION,NOT IMPLEMENTED,SORT TRANSACTIONS,END PROGRAMhNO20:ME$(NO):I1NO2:ME$(I),ME$(INO2):i2000GN (Y/N)-gI06:BA$(I):IN$(I)BA$(I):gSP$" ":UN$(95):I16:UN$UN$UN$:Ih INITIALIZATION,TRANSACTION REG,ADD ACCOUNT,ACCOUNT LISTING,QUERY ACCOUNT,TRIAL BALANCE,EDIT ACCOUNT,S YTD,TYPE (I E OR B)-fdI15:P2$(I):dfh DATE,DESCRIPTION,ACCOUNT CHARGED,COMMENT,AMOUNTyfmI15:P3$(I):fr GL TRANS ACCOUNT,NEXT JE #f|I12:P4$(I): g LINE #,TITLE/SUM (T/S),TITLE,PRINTER COLUMN,BEG ACCT #,END ACCT #,REVERSE SIT FILE DRIVE,MAX # ACCOUNTS,GL TRANS FILE NAME,GL TRANS FILE DRIVE,BAL SHEET FILENAME,INCOME FILENAME,RETAINED EARNINGS #eZI18:P1$(I):e^58000:60000e_IC$((MX$)1)e`59300fa ACCOUNT NUMBER,DESCRIPTION,CURRENT BALANCE,PREVIOUS MONTH15/84 CHECKS CASH SALES D 2 45002 2000 02/28/84 CREDIT CARDS CHARGED SALES D 3 40501 100 02/28/84 CREDIT CARDS CHARGED SALES D 4 40502 70.49 02/28/84 CREDIT CARDS CHARGED SALES D 5 41001 138.1 02/28/84 BAD CHECK INSUFFICIENT FUNDS B 1 58000 CKHOE EXP. - CAMP 35100 LANDSCAPING - CAMP 35200 LICNSE & PERMITS - CAMP 35250 INSURANCE - CAMP 35260 TELEPHONE - CAMP 35270 PERSONNEL HIREING CAMP 35280 WELL - CAMP 35290 ROAD CONSTR CAMP 35300 OTHER CAMP EXPENSE 40000 SERVICE INCOME 41000 MISC. INCOME 42- CAMP 34100 TOOLS & EQUIP - CAMP 34200 PLUMBING - CAMP 34300 ELECTRICAL - CAMP 34400 CONST EQUIP RENTALS CAMP 34500 DUMP TRUCK EXP - CAMP 34600 ADVERTISEMENT - CAMP 34700 MANAGERS RESIDENCE CAMP 34800 OUTSIDE LABOR - CAMP 34900 ENGINEERING - CAMP 35000 BA00 FRANCHISE TAX PAYABLE 22900 MEDICAL INS. PAYABLE 23000 Note Payable - Backhoe 24000 Mortgage Payable - Land 25000 FICA & Withholding 26000 TELEPHONE - EMPL 29000 Other Non-Curr. Liab. 30000 Capital - Stock 33000 RETAIN. EARN. - BEG 34000 TRUCK OPER EXP 12400 CHEVY PICKUP (1984) 12500 COMPUTER EQUIPMENT 15500 CONSTRUCTION PROGRESS 17000 DEPOSITS 20000 Note Payable - Pickup 20500 NOTE PAYABLE - DUMP TR 21000 Note Payable - Tractor 22500 MEDICAL INS. WITHHELD 22600 FED UI PAYABLE 22700 STATE UI PAYABLE 228100 CASH IN BANK 7000 ADVANCES - STAN 7100 ADVANCES - TED 9900 OTHER CURRENT ASSETS 10000 LAND 11000 BUILDING - SHOWER 11100 BUILDING - SHED 11200 ACCUM DEPREC 12000 DUMP TRUCK (1973) 12050 DUMP TRUCK (1975) 12100 BACKHOE (1983) 12300 KUBOTA TRACTOR (1986) 04570054 04580055 04590056 04610057 05900059 05950060 06010061 06060053 END 0028 03300029 03400030 03410031 03420032 03430033 03440034 03450035 03460036 03470037 03480038 03490039 03500040 03510041 03520042 03525050 03526058 03527062 03528063 03529064 03530043 04000044 04100045 04200046 04500047 04510048 04520049 04540051 045500520001001 0070002 0071003 0099004 0100005 0110006 0111007 0112008 0120009 01205065 01210010 01230011 01240012 01250013 01550014 01700015 02000016 02050066 02100017 02250018 02260019 02270020 02280021 02290022 02300023 02400024 02500025 02600026 02900027 0300000 INTEREST EARNED 45000 SALARIES - PROJECT 45100 SALARIES - COMP. CONSUL. 45200 OFFICE EXPENSE 45400 BANK EXPENSE 45500 UTILITIES 45700 TAX - 941 45800 TAX - 940 45900 TAX - UNEMPLOYMENT 46100 TAX - PROPERTY 59000 DEPRECIATION 59500 MISCELLANEOUS EXP. 60100 INTEREST EXPENSE 60600 OTHER EXPENSE 18000 370.02 06/31/85 TELEPHONE CHECK REG M0685 CR 9 722000 1289.07 06/31/85 PUBLICATIONS CHECK REG M0685 CR 10 724000 251.35 06/31/85 OFS SPLS & EQUIP CHECK REG M0685 CR 11 727000 REG M0685 CR 5 702000 251.8 06/31/85 SALARY-OTHER CHECK REG M0685 CR 6 703000 272.5 06/31/85 RENT CHECK REG M0685 CR 7 714000 74.88 06/31/85 INSURANCE CHECK REG M0685 CR 8 7WH CHECK REG M0685 CR 2 331000 833.65 06/31/85 FED TX WH CHECK REG M0685 CR 3 332000 2061.88 06/31/85 SALARY-EXC CHECK REG M0685 CR 4 701000 1094 06/31/85 SALARY-SECRETARY CHECK6/31/85 NAT OFS SER CHG CHECK REG I0685 CR 2 995000 -164.429999 06/31/85 CASH CHECK REG I0685 CR 3 105000 -10000 06/31/85 CASH IN BANK MGRS CHECK REG M0685 CR 1 107000 855.5 06/31/85 FICA TX 2296.22 06/31/85 NAT OFS SER CHG CHECK REG G0685 CR 3 995000 3464.18001 06/31/85 CASH CHECK REG G0685 CR 4 106000 2500 06/31/85 CASH IN BANK GEN CHECK REG I0685 CR 1 106000 -2335.57 01731.81 06/31/85 CASH CHECK REG M0685 CR 15 107000 -15760.4 06/31/85 CASH IN BANK GEN CHECK REG G0685 CR 1 106000 10000 06/31/85 CASH IN BANK MGRS CHECK REG G0685 CR 2 107000 11 727000 727000 391.02 06/31/85 STAFF TR EXP CHECK REG M0685 CR 12 734000 328.52 06/31/85 LOCAL MEETING EXP CHECK REG M0685 CR 13 734100 194 06/31/85 POSTAGE & FREIGHT CHECK REG M0685 CR 14 737000 5 CR 8 718000 370.02 06/31/85 TELEPHONE CHECK REG M0685 CR 9 722000 1289.07 06/31/85 PUBLICATIONS CHECK REG M0685 CR 10 724000 251.35 06/31/85 OFS SPLS & EQUIP CHECK REG M0685 CR TARY CHECK REG M0685 CR 5 702000 251.8 06/31/85 SALARY-OTHER CHECK REG M0685 CR 6 703000 95000 272.5 06/31/85 RENT CHECK REG M0685 CR 7 714000 00 74.88 06/31/85 INSURANCE CHECK REG M0685 FICA TX WH CHECK REG M0685 CR 2 331000 107000 833.65 06/31/85 FED TX WH CHECK REG M0685 CR 3 332000 995000 2061.88 06/31/85 SALARY-EXC CHECK REG M0685 CR 4 701000 1094 06/31/85 SALARY-SECRE4 107 -10000 06/31/85 CASH IN BANK MGRS CHECK REG M0685 CR 1 107000 855.5 06/31/8 391.02 06/31/85 STAFF TR EXP CHECK REG M0685 CR 12 734000 328.52 06/31/85 LOCAL MEETING EXP CHECK REG M0685 CR 13 734100 194 06/31/85 POSTAGE & FREIGHT CHECK REG M0685 CR 14 737000 1731.81 06/31/85 CASH CHECK REG M0685 CR 15 107000 -8.68 06/30/85 MER/LYNCH INT EARNED JE 1 108000 8.68 06/31/85 MERRILL LYNCH INTEREST JE 1 108000 -8.68 05 OFS SPLS & EQUIP CHECK REG M0685 CR 11 727000 391.02 06/31/85 STAFF TR EXP CHECK REG M0685 CR 12 734000 328.52 06/31/85 LOCAL MEETING EXP CHECK REG M0685 CR 13 734100 194 06/31/85 POSTAGE & FREI4.88 06/31/85 INSURANCE CHECK REG M0685 CR 8 718000 370.02 06/31/85 TELEPHONE CHECK REG M0685 CR 9 722000 1289.07 06/31/85 PUBLICATIONS CHECK REG M0685 CR 10 724000 251.35 06/31/81094 06/31/85 SALARY-SECRETARY CHECK REG M0685 CR 5 702000 251.8 06/31/85 SALARY-OTHER CHECK REG M0685 CR 6 703000 272.5 06/31/85 RENT CHECK REG M0685 CR 7 714000 7 107000 855.5 06/31/85 FICA TX WH CHECK REG M0685 CR 2 331000 833.65 06/31/85 FED TX WH CHECK REG M0685 CR 3 332000 2061.88 06/31/85 SALARY-EXC CHECK REG M0685 CR 4 701000 M0685 CR 13 734100 194 06/31/85 POSTAGE & FREIGHT CHECK REG M0685 CR 14 737000 1731.81 06/31/85 CASH CHECK REG M0685 CR 15 100 -10000 06/31/85 CASH IN BANK MGRS CHECK REG M0685 CR 1CHECK REG M0685 CR 10 724000 251.35 06/31/85 OFS SPLS & EQUIP CHECK REG M0685 CR 11 727000 391.02 06/31/85 STAFF TR EXP CHECK REG M0685 CR 12 734000 328.52 06/31/85 LOCAL MEETING EXP CHECK REGNT CHECK REG M0685 CR 7 714000 74.88 06/31/85 INSURANCE CHECK REG M0685 CR 8 718000 370.02 06/31/85 TELEPHONE CHECK REG M0685 CR 9 722000 1289.07 06/31/85 PUBLICATIONS .88 06/31/85 SALARY-EXC CHECK REG M0685 CR 4 701000 1094 06/31/85 SALARY-SECRETARY CHECK REG M0685 CR 5 702000 251.8 06/31/85 SALARY-OTHER CHECK REG M0685 CR 6 703000 272.5 06/31/85 RE-10000 06/31/85 CASH IN BANK MGRS CHECK REG M0685 CR 1 107000 855.5 06/31/85 FICA TX WH CHECK REG M0685 CR 2 331000 833.65 06/31/85 FED TX WH CHECK REG M0685 CR 3 332000 20612500 06/31/85 CASH IN BANK GEN CHECK REG I0685 CR 1 106000 -2335.57 06/31/85 NAT OFS SER CHG CHECK REG I0685 CR 2 995000 -164.429999 06/31/85 CASH CHECK REG I0685 CR 3 105000 3 100 2500 06/31/85 CASH IN BANK GEN CHECK REG I0685 CR 1 106000 -2335.57 06/31/85 NAT OFS SER CHG CHECK REG I0685 CR 2 995000 -164.429999 06/31/85 CASH CHECK REG I0685 CR 3 105000 2500 06/31/85 CASH IN BANK GEN CHECK REG I0685 CR 1 106000 -2335.57 06/31/85 NAT OFS SER CHG CHECK REG I0685 CR 2 995000 -164.429999 06/31/85 CASH CHECK REG I0685 CR 1 108000 -.32 06/31/85 JE 1 108000 -.64 06/31/85 JE 1 108000 1.28 06/31/85 JE 1 108000 6/31/85 MERRILL LYNCH INTEREST 1 108000 8.68 06/31/85 JE 1 108000 8.68 06/31/85 JE 1 108000 -17.68 06/31/85 JEGHT CHECK REG M0685 CR 14 737000 1731.81 06/31/85 CASH CHECK REG M0685 CR 15 107000 2500 06/31/85 CASH IN BANK GEN CHECK REG I0685 CR 1 106000 -2335.57 06/31/85 NAT OFS SER CHG CHECK REG I0685 CR 2 995000 -164.429999 06/31/85 CASH CHECK REG I0685 CR 3 105000 -15760.4 06/31/85 CASH IN BANK GEN CHECK REG G0685 CR 1 106000 10000 06/31/85 CASH IN BANK MGRS CHECK REG G0685 CR +07 Zp ꎌ Z ^ ꎌ D]IIƍI2$3p ͔1L (ɬ ɮ ɬ ɢ `ʨ`hh N E` ҎL Ҏ ɠiɺ>F=E攍甩$3pDоɍHh`C$3P톸Eɍ$3p C JL2ؓ 픆ED o3 u3N,pd <=EM 0 <<=18<=L E <)<L> ) } } } H }hߦ$( $`12 l0N ZA唈  L``` N씠36I897甌`GE甽HH`(Hwnh,3L ©séĭ JLȏL,L ё,Bɗ?ɘɍL]ɏBɖɅ 3ɾHD`I$j  `$3p딆E Ǎ lLY ?ُL!LULaLXH?2hH U2h`,066LU,`Í676LL 0)`,0L  Š(+ H h`,p{ϊH8JhxTUp(P(,T(ϊ`HÍhLÍI,I@`NO`  L Ɋ @" L 8@ L !=0?C>J攢L ɠɰɺ8``ɯɍ`1̎ɮ <1`  1`n< ,&` ɢɢ `8 v ` bEHȹɿh` bh` Eɠ`AɀeE*EEAʈAIȹEEA`C }LwE z`N ёCEEɛ@  }Lȏُ `DH* ABC RENTALS MACHINE RENTAL 102 51500 1500 01/02/84* EMPIRE REAL ESTATE RENT...1/84 103 51000 675 01/08/84* DAILY GAZETTE ADVERTISING 104 54000 476 01/08/84* COUNTRYWIDE 10000 24 113 345 01/01/84* INLAND TRUCKING SHIPPING...01/84 101 47500 1230 01/01/84ŶİƸŶİƴŵŵ̷ӠŢ ߃ ű˨ ŠЧűű 4 ŠЧűű 4" ôǝŢ ߃ ĠàààưĠàƸàƠ̷ ɛʛ˛Ľ ͛Χ ң ң ѧ ԍŭ ҧƸ͍ ֧ų اô±ưű 4Рŧűű [\_: T@ı IJ 4ӵ Ӷ 8̭ ,:.@A›BÛCěDśEƛFȧ ĠŠĠŠù°Ơù ŹùĠİōĠƠàĠƠĠƠŠŠİĠƸŠŠŠàİ̷ Рŧ˨űű˨ ŠЧű԰ܢŠé̠Πִ", ˨˨6ΏŮƺƲŠ àŠà,F,AHHɓ4ɛ0ɐ,Ƀ ɘC LKI 8LE? s ZLY ? ?Lw sCC ` LȏH@ɠ$@ ɢE@@EE=h`$(,L  nP蔭$ b,-Ɂ,$0$,c hhhNꔦCLȏHH`ʩ Lȏ8 ґɠE CH vh } $><  EH딥3ɾɪ$@ɢE@@$@0 )ߝh` bL/EEC 듈L N 듩EE I LZE v CLȏ$8f< bNꔨE ,$<CINS. PREMIUM 105 53500 1200 01/08/84* AMERICAN EXPRESS OFFICE DESK 106 11500 683.43 01/08/84* AMERICAN EXPRESS 12/83 T&E 106 52500 24 01/08/84* AMERICAN EXPRESS SUBSCRIPT27 12/12/12 DUES & SUBSCRIPTIONS CHECK REG A0284 CR 18 56000 138.1 12/12/12 BAD DEBTS CHECK REG A0284 CR 19 58000 97.48 12/12/12 OTHER EXPENSE CHECK REG A0284 CR 20 60600 00 100 01/01/675.23 12/12/12 AUTO & TRAVEL CHECK REG A0284 CR 15 52500 0 322.4 12/12/12 UTILITIES CHECK REG A0284 CR 16 53000 175 12/12/12 LICENSES & PERMITS CHECK REG A0284 CR 17 55500 00 50000 001 425 12/12/12 OFFICERS' SALARIES CHECK REG A0284 CR 12 50100 5002 1500 12/12/12 RENT CHECK REG A0284 CR 13 51000 284 CR 10 47500 123 12/12/12 REPAIRS & MAINTENANCE CHECK REG A0284 CR 14 52000 REG A0284 CR 8 45001 0501 -670.32 12/12/12 PURCHASES (DEPT 2) CHECK REG A0284 CR 9 45002 1623.43 12/12/12 FREIGHT & TRUCKING CHECK REG A0284 CR 10 47500 01 200 12/12/12 OFFICE SALARIES CHECK REG A0284 CR 11 ER (DEPT 1) CHECK REG A0284 CR 5 40501 -100 12/12/12 SALES - OTHER (DEPT 2) CHECK REG A0284 CR 6 40502 -70.49 12/12/12 SALES-NON-TAX (DEPT 1) CHECK REG A0284 CR 7 41001 2390 12/12/12 PURCHASES (DEPT 1) CHECK 12 STATE TAX PAYABLE CHECK REG A0284 CR 2 22100 -4.85 12/12/12 CITY TAXES PAYABLE CHECK REG A0284 CR 3 22300 -14000 12/12/12 SALES - TRADE (DEPT 1) CHECK REG A0284 CR 4 40001 -2000 12/12/12 SALES - OTH3 24 -100.3 12/12/12 FICA/FWT PAYABLE CHECK REG A0284 CR 1 22000 -18.55 12/12/1/84* STATIONERY UNLIM MISCELLANEOUS 113 59900 12000 01/15/84 CHECKS CASH SALES D 1 40001 36.45 01/15/84 CHECKS CASH SALES D 2 40002 132.43 01/24/84* VISA INTEREST EXPENSE 110 60600 120 01/30/84* POSTMASTER MAILING PERMIT 112 55500 24 01/31/84* STATIONERY UNLIM SHIPPING SUPPLIES 113 46500 59.23 01/3243.76 01/24/84* VISA OFFICE SUPPLIES 110 46500 3200 01/24/84* VISA PURCHASES 110 45001 41.87 01/24/84* VISA PURCHASES 110 45002 8 45001 800.43 01/16/84* SOFTWARE COMPANY COMPUTER SOFTWARE 108 45002 135 01/24/84* SWIFT MESSENGER DELIVERIES 109 47500 456.98 01/24/84* VISA T&E-12/83 110 52500 ION 106 56000 1020.5 01/08/84* AMERICAN EXPRESS INSURANCE 106 53500 245 01/15/84* FIRST STATE BANK BANK CHARGE 107 58500 3000 01/16/84* SOFTWARE COMPANY COMPUTER SOFTWARE 1084 TEST BELCH JE 1 100 0 K REG A0284 CR 18 56000 100 01/01/84 TEST2 BELCH JE 2 100 284 CR 19 58000 -100 01/01/84 TEST2 BELCH JE 2 100 G A0284 CR 20 60600 9267.87 12/12/12 CASH CHECK REG A0284 CR 21 100  - 0 0 TELE CO SERVICE 4675 722000 0 01/02/85* ***** VOID ***** SALARY 8 0 722000 68 06/03/85* BLOCK RUNNER HOTEL RM DEPOSIT 4674 734000 201.26 06/03/85* SO BELL T6355.29 55 4706 0 06/17/85* ***** VOID ***** - - 0 IT 4674 734000 0 06/03/85* -"CLOSE";FILE$:D9$;"DELETE";FILE$::70755*A$(JS)T$*:($*10715J:(E$)6E$(SP$,6(E$))E$P: N:"FILE ";FILE$;" DOES NOT EXIST.":FILE$""FILE$"XXX":D9$;"CLOSE":D9$;"OPEN";FILE$:D9$;"CLOSE";FILE$:D9$;"DELETE";FILE$::7(%ND9$;"CLOSE":D9$;"OPEN";FILE$:D9$;ASE WAIT..."$ F#D9$;"RUNVERSALED. )SN1; )S(S2)K )S110730Q )\ )K2S )10:14::"RECORD = ";K;" ";:25:" INC = ";S;::" " )LKNSS )JL )T$A$(LS) *T$A$(J)10775 *A$(JS)A$(J) *JJS*J11A$(X1),6)(SP$,4((A7)))(A7)_ :D9$;"WRITE";FILE$;",R";I:A2:B2$:C2$:D2$:E2$:F2h D9$n 2#D9$;"CLOSE":D9$: <#A$"FILE "FILE$" HAS BEEN SORTED":12:20(A$)2:A$:I1250:::10:11::"NOW LOADING MAIN MENU"::12:15:"PLE$;",R";A7:A:B$:C$:D$:E$:F:D9$1 15000 A2A:B2$B$:C2$C$:D2$D$:E2$E$:F2F:D9$;"READ";FILE$;",R";I:A:B$:C$:D$:E$:F:D9$ 15000 D9$;"WRITE";FILE$;",R";A7:A:B$:C$:D$:E$:F:D9$:TX$E$# X12N:TX$(A$(X1),6)A$(X1)()E$ d:(4);"CLOSE"O i:12:Z$"ALPHABETIZING ARRAY":22(Z$)2::Z$Z n10710` q s:12:12:"SORTING, RECORD = " D9$;"OPEN";FI$;",L81" D9$ I2N :12:30:I: A7(((A$(I),4))) A7I250& D9$;"READ";FILE 2:Z$"LOADING ARRAY":18(Z$)2::Z$::M (4);"READ";FI$:N:A:(4)X "I2Nv #(4);"READ";FILE$;",R";I %14:14::"RECORD ";I1;:: (A,B$,C$,D$,E$,F -(E$)6E$(SP$,6(E$))E$ .I$(I):I$(SP$,4(I$))I$:E$E$I$ 2A$(I SORT5 PRODOS VERSION6SP$" ":D9$(4)FD9$;"CLOSEVA$(5000):"WHICH FILE WOULD YOU LIKE SORTED? ";FILE$:FILE$"END"ī9030 :12:12::"SEARCHING FOR FILE ";FILE$;:P1:PD1:PB1:D9$;"OPEN";FILE$;",L81, :1ELE CO SERVICE 4675 722000 10.58 06/03/85* TRANSCALL AMER. SERVICE 4676 722000 0 121.4 00/03/85* C&S BANK EXP 4677 727000 7000 194 06/03/85* US POSTMASTER POSTAGE 40 01/02/85* ***** VOID ***** TRANSFER 4711 0 0 01/02/85 ***** VOID ***** TRANSFER D 1 0 0 06/24/85 ***** VOID ***** TRANSFER D 2 0 701000 ALARY 4707 701000 229 06/24/85* SB COCKRUM SALARY 4708 702000 62.95 06/24/85* E ALLEN SALARY 4709 703000 153.88 06/24/85* AMEX EXP 4710 734000 1 0 STONE CO EXP 4704 734.1 326 06/24/55* RICHARDSON-WAYLAND EXP 4705 734.1 313.13 06/24/85* D SMITH CO EXP 4706 734100 1000 541.96 06/24/85* RR COPPERSMITH S06/17/85* SOUTHERN BELL SERVICE 4700 722000 147 06/17/85* INCIDER PUB PUBLICATIONS 4701 724000 124.13 06/19/85* ZEB MCMANUS EXP 4703 724000 691.94 06/09/85* ROB15.39 06/11/85* SJ COCKRUM MEETING EXP 4696 734100 229 06/17/85* SB COCKRUM SALARY 4698 702000 674 734000 62.95 06/17/85* E ALLEN S 4699 703000 158.18 99.95 06/10/85* FREEMAN FORMS SUPPLIES 4693 727000 74.88 06/10/85* MEMBERS GRP INS EMP INS 4694 718000 30 06/11/85* CASH SUPPLIES 4695 727000 96 734100 0 541.96 06/03/85* RR COPPERSMITH SALARY 4690 701000 229 06/03/85* SB COCKRUM SALARY 4691 702000 62.95 06/10/85* E ALLEN SALARY 4692 703000 27000 N BENF 4683 702000 176 06/03/85* DEFINED BENF PLAN DEFIN BENF 4683 701000 855.5 06/03/85* C&S BANK TX DEP 4689 331000 833.65 06/03/85* C&S BANK TX DEP 4689 332000 00***** EMP INS 4688 0 88 0 169.14 00/03/85* C&S BANK EXP 4677 734000 0 734100 0 00 0 06/03/85* ***** VOID ***** EMP BEN PLAN 4688 0 2000 118 06/03/85* DEFINED BENF PLAN DEFI* ***** VOID ***** EAL CR UN 4686 0 60 06/03/85* SB COCKRUM SAVINGS 4687 702000 SEARCHING FOR :4688 80 06/03/85* RR COPPERSMITH SAVINGS 4685 701000 702000 0 06/03/85* ***** VOID 0 06/03/85* ***** VOID ***** EMP BENF 4683 0 84 701000 120 06/03/85* RR COPPERSMITH SAV SAVINGS DED 4684 701000 60 06/03/85* RR COPPERSMITH SAV SAVINGS 4686 701000 ING FOR :4686 0 06/03/850 06/03/85* ***** VOID ***** SALARY 4680 0 229 06/03/85* SB COCKRUM SALARY 4681 702000 62.95 06/03/85* E ALLEN SALARY 4682 703000 0 01000 ING FOR :4683 NG FOR :4680 0 06/03/85* ***** VOID ***** SALARY 4680 0 4678 714000 0 06/03/85* ***** VOID ***** SALARY 4680 0 01000 0 06/03/85* ***** VOID ***** SALARY 4680 0 01000 679 737000 00 G FOR :4680 272.5 06/03/85* DRAPER-OWENS CO OFFICE RENT 4678 714000 :4680 541.96 06/03/85* RR COPPERSMITH SALARY 4680 701000 G FOR :4680 0 06/03/85* ***** VOID ***** SALARY 4680 0 SEARCHI5000 06/02/85 TRANSFER TRANSFER D 1000 107000 5000 06/02/85 TRANSFER TRANSFER D 1001 107000