File GLAMNT.DB (Binary fil)

Directory of image this file is from
This file as a plain text file

5  '.%1'$#!
9 Q!^Y
9 )'^^
1  Q+^Q
2 );^^
7 )<1
2 1=^]
2 )?^^
2  1@^U
2 !AJ^K
7 1J04
7 1L04
7 1N05
7 1P06
7 1R07
7 1T09
7 1V10
7 1X11
7 1Z13
7 1	14
1 "Q^^A
7 "Q^..............................
1 Q <^Y
7 Q <END   
1 "Y B^@
2 )!!^^
2 )!"^^
7 )!#2
2 1!$^]
2 )!&^^
2 1!'^]
7 )!)1
1 #)!-^>
2 )!Q^^
2 I!R^Z
2 I!W^Z
2 I!	^Z
2 I"!^Z
2 I"&^Z
2 )"+^^
1  1",^U
1  1"6^U
2 Y"C^X
1 "Q"J^A
1 Q#(^Y
1 Q#.^Y
1 )#4^^
2 ,!#5]7
2 0A$]	S
2 Y'+^X
1 "Q'2^A
1 ?)'PZ^
2 A+U^[
2 1+Y^]
2 )+[^^
2 )+	^^
1 $1+]^5
7  Q+]ADD           
7  Q,+CHANGE/INQUIRE
7  Q,9DELETE        
2 A,G^[
2 ),K^^
2 1,L^]
2 ),N^^
0 7))@*
7 ),O1
0 (+
7 Q,PGLAMAS
0 (,(+;-O(+'Z(+/'G']6(!']6(&'^6' 
7 ),V0
0 (-% H.'G' 6(+(+(+=(+(+
7 #Y,WGENERAL LEDGER ACCOUNT FILE MAINTENANCE
0 (/<
7 )->5
0 (0'5 
7 1-?20
0 (1
7 ")-APLEASE SELECT APPLICATION
0 (2<
7 )-Z6
0 (3'5 
7 1-[25
0 (4
7 !I-]1. ADD NEW ACCOUNT(S)
0 (5<
7 ).27
0 (6'5 (4
7 "I.32. CHANGE/INQUIRE ACCOUNTS(S)
0 (7<
7 ).P8
0 (8'5 (4
7 !A.Q3. DELETE ACCOUNT(S)
0 (9<
7 )/%9
0 (:'5 (4
7 !I/&4. PRINT-OUT ACCOUNTS
0 (;<'"
7  Q/;05,47,01,01,#E
0 (=3@>'2*!H.H?()(+(+705()*#H@H@H@HA'2
7 )/I3
0 (B6H<(+'Z(+/(+1']'G%P,(
7 1/J10
0 (C$@HD(+@
7 )/L2
0 (E@@F' 'G6(B@'+)'R(('(+6(#(+6(E(+()0%<(E
7 1/M15
0 (G(+=(0'5 (1
7 !Y/O1. GEN LEDGER ACCOUNT #
0 (H<(3'5 (1
7 !Q0&2. ACCOUNT DESCRIPTION
0 (I<(6'5 (1
7 !Y0<3. FINANCIAL STMNT CODE
0 (J<(8'5 (1
7 !A0S4. SCHED FORMAT CODE
0 (K<(:'5 (1
7 !Q1'5. PARENTHESIS CONTROL
0 (L<()* HM(0'5 
7 11=19
0 (N
7 )1?*
0 (O<()(+%0HP(!(&$PHQ()(+% HR'+(+% HS(0'5 
7 11@46
0 (T(E='"
7  Q1B05,46,04,03,#E
0 (U3@>'2*!H@H.(+
7 )1P4
0 (V7S(+(V705(0'5 
7 11Q50
0 (W
7 )1S-
0 (X<'"
7  Q1T05,51,03,00,# 
0 (Y3@>'2* H@(+(B70'8%@Z(0(67S(+(B705'S(-% HM'N'S4@[()(+%PH	'F(-% H]'+* H^I'9
7 ")2"ACCOUNT # ALREADY ON FILE
0 ) 3A!HMQ#(+'Z'J/A'M'[4'K(+6(4
7 12;30
0 )$7	
7 Q2=000000
0 )%%/+'K)+(0'5 (W(E=+'"
7  Q2C06,46,30,00,A 
0 )&3@>'2* H@'0'8%I'T(+)$703'+* H^'"
7  Q2Q07,46,06,00,A 
0 )(3@>'2* H@'U(+(3703'+* H^'"
7  Q308,46,06,00,A 
0 )*3@>'2* H@'V(+(3703'+* H^'"
7  Q3-09,46,01,00,A 
0 ),3@>'2* H@'W(+(+703'W
7 )3; 
0 )-%H^'W
7 )3<C
0 ).%H^'W
7 )3=D
0 )/%H^I+(#(+#*!I1I2'6*$HMII'I)I+HS($(+%0I3'6(-% H^I3('(E6(#(E6(0(07U
7 )3>V
0 )5%/I6(B'5 (+(+=(B'5 (C
7  13?ACCOUNT #:
0 )7<'"
7  Q3I03,22,04,00,# 
0 )83',(+(V7S6A9(B'5 
7 13W26
0 ):(X<'"
7  Q3Y03,27,03,00,# 
0 );3',(0(67S6A9(B'5 
7 14'33
0 )<'T<(V'5 (C
7 &94)--------------------------BUDGETS--------------------------
0 )=<(0'5 (C
7 15$1.
0 )><(0'5 
7 15&40
0 )?
7 15(8.
0 )@<(3'5 (C
7 15*2.
0 )A<(3'5 )?
7 15,9.
0 )B<(6'5 (C
7 15.3.
0 )C<(6'5 
7 15039
0 )D
7 95210.
0 )E<(8'5 (C
7 )554
0 )F<(8'5 )D
7 95611.
0 )G<(:'5 (C
7 1595.
0 )H<(:'5 )D
7 95;12.
0 )I<(C'5 (C
7 15>6.
0 )J<(C'5 )D
7 95@13.
0 )K<
7 15C11
0 )L'5 (C
7 15E7.
0 )M<($(+6()(E% IN(")(+
7 95G104
0 )P7X)'6(+% IQ(+/X(+$%0IQH^("?'#(V("!(6("(8% 9'+(-% IR'#'6(6'6(8% #(V8("'66'$
7 15J14
0 )S6("(6%@IT'$
7 15L44
0 )U6("
7 15N13
0 )V%PH^(6)S7"
7  !5P08,00,#-
0 )W3@>'2* H@("/X(+(8705("/X(+$% IX(+(870'8%AY'+* H^I3(+)P7X)(+/X(+$6H^("/X(+/X6(+(870("/X4',(+(8705A9+(')(#(B6(0(07U)5%/I6(B'5 (+(+=(B'5 (C
7  15XACCOUNT #:
0 )[<'"
7  Q6"03,22,04,00,# 
0 )	3',(+(V7S6A9(B'5 ):(X<'"
7  Q6003,27,03,00,# 
0 )]3',(0(67S6A9(B'5 )<'T<(V'5 (C
7 $Y6>------------PRIOR YEAR COMPARATIVES------------
0 )^<(0'5 (C
7 17-0.
0 *<(0'5 )?)M<(3'5 (C)><(3'5 )?)@<(6'5 (C)A<(6'5 )?)B<(8'5 (C)C<(8'5 )D)E<(:'5 (C
7 17/4.
0 * <(:'5 )D)G<(C'5 (C)H<(C'5 )D)I<)L'5 (C)J<)L'5 )D)K<()(E% J!(()(+
7 971140
0 *#7Y)((?'#(V((!(6(((8% 9'+(-% J$'#'6(6'6(6% #(08(('6(+8'$)S6(((6%@J%'$)U6(()S%PH^'#'5 '$
7  I74             
0 *&<(6)S7"
7  !7A10,00,$-
0 *'3@>((/Y(+(C705'+* H^'2* H@I2(")'$)S6("?'#(V("!(6("(8% 9(")V%PH^("(6%@J)'$)U6',("/X6A9("(+%0J(("(+$%0J((0'5 )S
7  !7I-1      
0 **<H^(()'$)S6((?'#(V((!(6(((8% 9(()S%PH^(((6%@J,'$)U6',((/Y6B-J+('*!I4IZB.()*!J/J0'F* J1'R'Z3(3'5 (T'T<(6'5 (T'U<(8'5 (T'V<(:'5 (T'W<()(E% H^
7 17Q24
0 *3(+(+=*3(+
7  Y7SRIGHT ACCOUNT ?
0 *4<'"
7  Q8"12,18,01,01,YN
0 *53@>'(*!J6H@(+'Z(+/']?(+'Z(+0(+'Z(!/(+'Z(!0(+'R.G(!?(+( .J7(+1(+
7 Q80GLAMAS
0 *8(+;-O'R(H@(+'R'J0(+1(+
7 Q86GLAMAS
0 *9(+;-O()(E% H@'9
7  Y8<ACCOUNT DELETED
0 *:3A!H@'T((4)$7T
7 Q8K000000
0 *;3(+'Z(+/(?(+'Z(+0J0'9
7 !98QACCOUNT NOT ON FILE
0 *<3A!H@(+(+(+=(3'5 (1
7 #!9$FILE NOW FULL - SEE INSTRUCTIONS
0 *=<(3'5 
7 19D80
0 *>)-<(8@'2(B% B?'#'5 '$(+'%7.<'#'5 '$'%!
7 99F   
0 *A<'#'5 '$(-=BB'0('2)'*)'*?'4'*'*70>'4
7 19I32
0 *E% JF'4
7 19K21
0 *G% J@'4
7 19M23
0 *H% JI'4)V% JJ'4(8% JK'4(-%0JD'*'%%PJLJC'*(+% JD'*'*(+9'*'*70('#'5 '$'*!(+#
7 )9O.
0 *M<'#'5 '$'*!(+#(-=JD''
7 )9PY
0 *N%JO'2(+6'9
7  I9QNOT PROCESSED
0 *P3A!'+)+(E(E7''/%/JQ'#'5 '$'/<'2(E6+'9
7  Y9^END NOT ALLOWED
0 *R3JS'*(+#'&$@JT''*N%JU'0'/%JK''
7 ):-#
0 *V%JW''
7 ):.N
0 *X%JW'')/%JY''
7 ):/$
0 *Z%J[''
7 ):0H
0 *	%J[+(E(E7''/%/J](+'*70'/%JC''*N%JO'9
7  !:1TOO LONG
0 +3A!'#'5 '$'*!(+#)-<'#'5 '$'*!(+#(-='*'*70(JD'9
7  ):9TOO SHORT
0 +!3JSS"',(+'%(+!705A',(-% C#(E(E7'(X%+',(-$@JS+''*X%+'*(+%P+'#'5 '$
7 ):B0
0 +$<+'9
7  Y:CMUST BE NUMERIC
0 +%3JS':',4'*)K&S'(+(37,(+(3705A(+(37,(-% +(+(E7,(+$@K'(+(E7,
7 1:R12
0 +(%PK'(B(V7,(+$@K'(B(V7,
7 1:T31
0 +)%PK'',(+(3705',(-$@K'(+(87:',
7  ):V.XX/XX/XX
0 ++"'#'5 '$(+(87:<':(BB+'9
7 !);USE FORMAT MMDDYY
0 +,3JSS"',(+'%(+!705A(E(E7'(X%J-',(-$@JS':',
7  Q;0XX,XXX,XXX.XX-
0 +-"'*)'*?'*'*7:)-%K&'#'5 '$'*)S7:<BB'%/-(G'*##(-%@+'#'5 '$(G!'*#(+'%/-(G'*##78<+'((+6'0*N%+'((E6'0*X%+(E(E7''8%JO'0'8%/JO'0(E(E7'3'#'5 '$'*!(+#(E(E7'<(E(E7'*X%+'((+6+C.J@'9
7  I;>INVALID ENTRY
0 +/3'9*A%J?C.'1(+% +*3(+'9<'9(*3
7 1;K67
0 +0
7  I;M(TYPE RETURN)
0 +1<'4+)+)70>'4)V%0I!*3(+(+=BB+'#*3% J@'#+(%0A!J@(-(-(6=+C2*3(+
7  A;ZANY CHANGE ?
0 +3<'"
7  Q<&12,15,01,00,YN
0 +43@>'(* K5C2'+)I6C.'+(E% K7'+(+6*3*G
7  !<4WHAT # ?
0 +8<'"
7  Q<<12,31,02,01,# 
0 +93'1(+6@>'1)'2* H^'6(+(E705I0'+)H@*3(+
7  Y<JPLEASE WAIT ...
0 +:<+*3*>
7 1<Y27
0 +;=(-(-
7 )<[Z
0 +<<'4(+(+7:>'4+;%0K='4(+(+7:>'4(+(+7:&6'4
7 1<	16
0 +?%0K>'4(+(+7:>*3*>(E='4(+(+7:&6':('5(+6'4)U$@+'5(E6+'8(+B.C@CA+*3(+(+=*3(+
7  Y<^PLEASE WAIT ...
0 +B<+'F)'H'G6'I)'J'H'I!(+!(E%6A"'M'N%KD'J'H% KE'M'N%OKF'I'J6KC'H'J6KC'L)'J'G6'J?A"'F(+% +'K(-% KJ'M'N%+'L(+%0KH'M'N%OKEKH'F(+6+*3(+(+=+'L(+6KI,
3 #K +
50 !)' Q+1+1.111417);)<1=)? 1@1J"Q^Q <"Y B)!!)!")!#1!$)!&1!')!)#)!-#)!- Q!-)!-)!.)!/)!0)!1)!2)!3)!4)!5)!6)!7)!QI!RI!WI!	I"!I"&)"+ 1", 1"6)!Q)!R)!SD!"AY"C"Q"JQ#(Q#.)#4 !#5 1$]D!')Y'+"Q'2A'LA'P9'T1+QA+U1+Y)+[)+	 Q+]A,G),K1,L),N(HO),OQ,P),V(.C#Y,W)->1-?")-A)
Z1-[!I-]).2"I.3).P!A.Q)/%!I/&(/) Q/;(?W(/B(/Z(/T)/I1/J(/R)/L(HJ1/M!Y/O!Q0&!Y0<!A0S!Q1'(0U11=)1?(0](?E(1%(H(11@ Q1B)1P11Q)1S Q1T(2E(IN(=>(2+(GW(2L")2"(G'(20(J]12;Q2= Q2C(3! Q2Q(32 Q3(3C Q3-)3;)3<)3=(3](4-(:Y(6M(46)3>(=3 13? Q3I(C^13W Q3Y14'&94)15$15&15(15*
5,15.150952)5595615995;15>95@15C15E(< (6G95G(6X(7515J(7?15L15N !5P(8$(8.(8@ 15X Q6" Q60$Y6>17-17/(<Q(:S971(;7(;A I74 !7A(<%(<< !7I(<V(=-(E=(IR(>2(>Y(?@(=E17Q Y7S Q8"(?.(>NQ80Q86 Y8<Q8K!98Q#!9$19D(G$(?[99F(IK(@8(@:19I(@	19K19M(A=(B(AK(BB)9O)9P(G" I9Q(A[ Y9
(GI(C/(F/):-(C3):.(D$):/(E*):0(BN(BN !:1(BU ):9(CZ(CK):B Y:C(EC(E&1:R1:T(DT ):V!); Q;0(GR I;>1;K I;M(GC A;Z Q<&(H)(H$(HG !<4 Q<< Y<J1<Y)<[(HW(H	1<	(I[(K! Y<^(J"(K&(J@(J<(J8(JE(JL(JT
2422 MFLDDELFLGCTL   ROW   COL   MAX   MIN   TYPE  ANSCTLANYCNGCHAR  CNGCTLDECMALDISMAXDOTS  END   ENTRY ERRCTLINCTL NO    TCHAR V     WHATNOYES   BLANKSMSG   ALPHA CCP1  CCP2  CCP3  CCP4  CCP5  CCP6  CCP7  CCP8  CCP9  CCP10 CCP11 BSCTL BSEND BSHI  BSLO  
SMID BSRCNODEFLAGMASKEYTRXKEYCCPBS2CCPBS3CCPBS4GLAMASACTNO DESCR FSTCDESCHCDEPAREN BUDGETPYRCOMDUMGLADACTNODDESCRRECCNTMAXCNTDELCNTNULL  ADDCNTBDGCNTBRCTL BUDCTLDSPMODMAXRECMNUCTLPYRCNTSELECTTERI

Note: Lines longer than 256 characters were wrapped



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search