image of READY prompt

Wang2200.org

Listing of file='GENL100A' on disk='vmedia/701-2653B.wvd.zip'

# Sector 91, program filename = 'GENL100A'
0010 REM GENL100A, RELEASE 2.2, (09/10/80)THIS PROGRAM IS A COPYRIGHT PRODUCT
      OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED
0170 DIM G6$(6)1,R9$(16)
   : GOTO 4000
4000 SELECT @PARTS0$
   : GOSUB '66(8,0,1)
   : Q6$=" "
   : Q7$="Error in Control File - invalid current fiscal period"
   : IF M(9)<1OR M(9)>12THEN 6010
   : Q7$="Error in Control File - invalid first fiscal month"
   : IF M(14)<1OR M(14)>12THEN 6010
   : E7=MOD(M(9)+M(14)-2,12)+1
4440 M$()="January  February March    April    May      June     July     Augu
     st   SeptemberOctober  November December"
   : MAT REDIM M$(12)9
   : IF M(9)=12THEN G6$(2),G6$(3)="*"
   : ELSE G6$(1)="*"
   : IF M(9)=12THEN G6$(1)="X"
   : ELSE G6$(2)="X"
   : IF F5$(1)<>"1"THEN G6$(1),G6$(2)="X"
4490 IF E7=12THEN G6$(4),G6$(5)="*"
   : PRINT AT(0,18);" - Ending ";M$(E7);", starting ";M$(MOD(E7,12)+1)
   : MAT REDIM M$(4)62
4520 IF POS(G6$()="*")=0THEN Q6$="*"
   : ELSE Q6$=" "
   : PRINT AT(4,0,);AT(6,10);Q6$;" (0) RETURN TO MENU";HEX(05)
   : PRINT TAB(10);G6$(1);" (1) END OF MONTH INITIALIZATION"
   : PRINT TAB(10);G6$(2);" (2) END OF FISCAL YEAR INITIALIZATION"
   : PRINT TAB(10);G6$(3);" (3) CLEAR BUDGET FIGURES"
4570 PRINT TAB(10);G6$(4);" (4) VENDOR MASTER FILE"
   : PRINT TAB(10);G6$(5);" (5) END OF CALENDAR YEAR INITIALIZATION"
   : PRINT TAB(10);G6$(6);" (6) CLEAR STANDARD JOURNAL ENTRIES FILE"
   : PRINT AT(4,0,80);"The options with an '*' should be chosen, an 'X' can't
     be chosen"
4610 GOSUB '100("0","6",1,0,"ENTER OPTION DESIRED",1)
   : IF Q9=0OR Q6$=HEX(1F)THEN 6060
   : G6=Q9
   : IF G6$(G6)<>"X"THEN 4670
   : PRINT AT(3,0,80);"Option";G6;"can not be selected, re-enter";HEX(07)
   : GOTO 4520
4670 M$()="Month-to-date figures in the Chart of Accounts  Year-to-date figure
     s for income/expense accountsBudget figures for income/expense accounts
         Year-to-date figures in the Vendor Master file  Daily totals in the C
     ontrol file"
   : MAT REDIM M$(5)48
4690 IF G6<6THEN Q6$=M$(G6)
   : ELSE Q6$="Standard journal entries file"
   : PRINT AT(4,0,);AT(5,10);Q6$;" will be cleared"
   : IF G6=2THEN PRINT TAB(10);M$(1);" will be cleared"
   : MAT REDIM M$(4)62
   : IF G6<3THEN PRINT TAB(10);"Journal entries files will be reset"
   : GOSUB '100("Y,N","YyNn",1,1,"IS ENTRY OK (Y OR N)",2)
4750 IF Q6$=HEX(1F)THEN 6060
   : IF Q9=2THEN 4520
   : ON G6-3GOTO 5650,5820,5970
   : GOSUB '235(1,0)
   : Q6$="Chart of Accounts Master File"
   : Q7$="Correct error and restart program"
   : IF Q$<>" "THEN 6010
   : PRINT AT(4,0,80);"Processing account no. ";T7$;HEX(06)
4850 GOSUB '75(2)
   : PRINT AT(4,23,8);T7$;HEX(06)
   : IF G6=3THEN 5000
   : P4=P4+P2
   : P5=P5+P3
   : Q9=P(12)
   : Q6$="-#########.##"
   : PACK(Q6$)M$()FROMP()
   : MAT COPY -M$()<1,66>TO -M$()<7,66>
   : UNPACK(Q6$)M$()TO P()
   : P(1)=P2-P3
   : P2,P3=0
   : IF G6=2AND O$>="3"THEN P,P4,P5=0
   : P=P+Q9
5000 IF G6=3THEN MAT P0=ZER
   : DBACKSPACE #2,1S
   : GOSUB '65(2)
   : GOSUB '237(1,0)
   : IF Q$=" "THEN 4850
   : IF Q$<>"E"THEN 6010
   : G6$(G6)="X"
   : IF G6>2THEN 4520
   : $OPEN #8
   : GOSUB '66(8,0,1)
   : M(9)=MOD(M(9),12)+1
   : M3$,F5$(1),F5$(3)=" "
   : GOSUB '66(8,0,0)
   : $CLOSE#8
   : LIMITS T#5,S$(5),Q5,Q6,Q7
   : LIMITS T#6,S$(6),Q7,Q8,Q9
   : Q6$=HEX(07)
5210 $OPEN 5600,#5,#6
   : PRINT AT(4,0,80);"Resetting Journal Entry Files"
   : Q$="S"
   : Q7$="New journal entries will not fit in Old Journal Entries File"
   : IF Q9>Q6-Q5+1THEN 6010
   : Q7$="Invalid end of file - New Journal Entries File"
   : Q$="X"
   : IF Q9<2THEN 6010
   : DATA LOAD BA T#5,(Q6)R9$()
   : M$()=STR(R9$(),9)
5310 COPY T#6,(Q7,Q7+Q9-2)TO T#5,(Q5)
   : DATA LOAD BA T#6,(Q8)R9$()
   : Q6$=STR(R9$(),,8)
   : R9$()=STR(Q6$,,8)&M$()
   : DATA SAVE BA T#5,(Q6)R9$()
   : DBACKSPACE #6,BEG
   : GOSUB '218(S$(6),6," ",0)
   : $CLOSE#5,#6
   : Q6$=" "
   : Q$="S"
   : LIMITS T#5,S$(5),Q5,Q6,Q7
   : LIMITS T#7,S$(7),Q7,Q8,Q9
5440 Q7$="Standard Journal Entries will not fit in Old Journal Entries File"
   : IF Q9>Q6-Q5+1THEN 6010
   : Q7$="Invalid end of file - Standard Journal Entries File"
   : Q$="X"
   : IF Q9<2THEN 6010
5500 J=MOD(J,4)+1
   : DATA LOAD DC #7,M$()
   : IF END THEN 4520
   : IF J<4THEN DBACKSPACE #7,1S
   : IF STR(M$(J),,1)=HEX(FF)THEN 4520
   : $UNPACK(F=L3$)M$(J)TO H2,H0$,H1$,H,H3$,H4$,H5$,H1
   : H=Q1
   : H5$="STANDARD"
   : GOSUB '63(5)
   : GOTO 5500
5600 $BREAK5
   : PRINT AT(4,0,80);"Waiting for disk with Journal Entry File";Q6$;HEX(06)
   : Q6$=" "
   : GOTO 5210
5650 GOSUB '235(2,0)
   : Q6$="Vendor Master File"
   : Q7$="Correct error and restart program"
   : IF Q$<>" "THEN 6010
   : PRINT AT(4,0,80);"Processing Vendor ID. ";T7$;HEX(06)
5700 GOSUB '70(4)
   : PRINT AT(4,22,5);T7$;HEX(06)
   : A1=A-A3
   : A,A3=0
   : DBACKSPACE #4,1S
   : GOSUB '60(4)
   : GOSUB '237(2,0)
   : IF Q$=" "THEN 5700
   : IF Q$<>"E"THEN 6010
   : G6$(4)="X"
   : GOTO 4520
5820 $OPEN #8
   : GOSUB '66(8,0,1)
   : M(12),M(13)=0
   : GOSUB '66(8,0,0)
   : PRINT AT(4,0,0);"Processing day no.";1
   : FOR I=1TO 366
   : CONVERT ITO M2$,(###)
   : PRINT AT(4,19,4);I;HEX(06)
   : MAT M=ZER
   : GOSUB '66(8,I,0)
   : NEXT I
   : $CLOSE#8
   : G6$(5)="X"
   : GOTO 4520
5970 DBACKSPACE #7,BEG
   : GOSUB '218(S$(7),7," ",0)
   : G6$(6)="X"
   : GOTO 4520
6010 GOSUB '91
   : PRINT AT(1,0,80);Q7$
   : PRINT AT(3,16,64);Q6$
   : GOSUB '254
6060 DEFFN'31
   : LOAD TM$
9999 DEFFN'29"Q$=";HEX(22);"GENL100A";HEX(22);":SCRATCHTQ$:SAVET()Q$";HEX(0D)