Listing of file='GENL080A' on disk='vmedia/701-2653B.wvd.zip'
# Sector 275, program filename = 'GENL080A'
0010 REM GENL080A, RELEASE 1-0, (01/31/79) THIS PROGRAM IS A COPYRIGHT PRODU
CT OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBIT
ED
0170 DIM M8$(20)60,C8(9),C9(9),C9$(5)2
: GOTO 4000
4000 SELECT @PARTS0$
: PRINT HEX(03);TAB(21);"SCHEDULE REPORT"
: GOSUB '93(" ")
: IF I0$=" "THEN GOSUB '31
: D9$=Q1$
: L=60
4240 Q6$=Q1$
: GOSUB '100(" ","^",8,0,"ENTER REPORT DATE (MM/DD/YY)",3)
: IF Q6$=HEX(1F)THEN GOSUB '31
: D9$=Q6$
: GOSUB '121(D9$)
: IF Q6$<>"E"THEN 4280
: PRINT AT(3,0,80);HEX(07);"Invalid report date, re-enter"
: GOTO 4240
4280 PRINT AT(5,0,80);"REPORT DATE = ";D9$,U9
: GOSUB '100("Y,N","YyY Nn",1,1,"IS REPORT DATE OK (Y OR N)",2)
: IF Q6$=HEX(1F)THEN GOSUB '31
: IF Q9=2THEN 4240
: GOSUB '66(3,0,1)
: M$(1)="ENTER PAGE HEADER MESSAGE - LINE 1"
: M$(2)="ENTER PAGE HEADER MESSAGE - LINE 2"
4440 M$(3)="ENTER FOOTER MESSAGE - LINE 1"
: M$(4)="ENTER FOOTER MESSAGE - LINE 2"
: M8$()=ALL(20)
: FOR I9=1TO 5
: PRINT AT(1,0,80);"ENTER SCHEDULE CODE";I9;"(RETURN=END)"
: GOSUB '100(" ",HEX(7F),2,0," ",2)
: IF Q6$=HEX(1F)THEN GOSUB '31
: I9=I9+5
: IF Q6$=" "THEN 4630
: ELSE I9=I9-5
: C9$(I9)=Q6$
4530 FOR I=1TO 4
: Q6$=M8$((I9-1)*4+I)
: IF Q6$<>" "THEN Q9=3
: ELSE Q9=2
: GOSUB '100(" ",HEX(7F),60,0,M$(I),Q9)
: IF Q6$=HEX(1F)THEN GOSUB '31
: M8$((I9-1)*4+I)=Q6$
: PRINT AT(4+I,0,80);Q6$
: NEXT I
: GOSUB '100(" ","y",1,0,"ARE MESSAGE LINES OK (Y OR N)",2)
: IF Q6$=HEX(1F)THEN GOSUB '31
: ON POS("Nn"=Q6$)GOTO 4530
: PRINT AT(4,0,560)
4630 NEXT I9
: I9=0
4650 I9=I9+1
: IF I9=6OR C9$(I9)=" "THEN 5460
: MAT C8=ZER
: MAT C9=ZER
: PRINT AT(4,0,80);"Processing account no. ";HEX(06)
: GOSUB '235(1,0)
: GOTO 4750
4740 GOSUB '237(1,0)
4750 IF Q$="E"THEN 5350
: IF Q$<>" "THEN 7310
: GOSUB '75(2)
: PRINT AT(4,23);O$
: MAT SEARCHO2$(),=C9$(I9)TO Q6$STEP 3
: IF STR(Q6$,,2)=HEX(0000)THEN 4740
: Q9=((VAL(Q6$,2)+2)/3)
: IF STR(O2$(Q9),3,1)="1"THEN O9=-1
: ELSE O9=1
: Q6$=" "
: Q7$="Invalid level code for account no. "&O$
: IF NUM(O1$)=1THEN CONVERT O1$TO O6
: ELSE GOTO 7310
: IF O6>2THEN 5130
4920 IF P2-P3+P4-P5=0AND O6<>1THEN 4740
: GOSUB '90
: PRINT TAB(4);O5$;TAB(35);
: IF O6=1OR O3$="M"THEN 5010
: IF P2-P3<>0THEN PRINTUSING 7290,(P2-P3)*O9;
: PRINT TAB(61);
: IF P4-P5+P2-P3<>0THEN PRINTUSING 7290,(P4-P5+P2-P3)*O9;
5010 PRINT
: L=L+1
: SELECT PRINT 005(80)
: IF O6=1THEN 4740
: FOR I=2TO 9
: C8(I)=C8(I)+P2-P3
: C9(I)=C9(I)+P2-P3+P4-P5
: NEXT I
: GOTO 4740
5130 GOSUB '90
: IF C8(O6)=0THEN 5290
: Q6$=" "
: STR(Q6$,,13)=ALL("-")
: IF O6<>9THEN PRINT TAB(36);Q6$;TAB(62);Q6$
: PRINT TAB(4);O5$;TAB(35);
: PRINTUSING 7290,C8(O6)*O9;
: PRINT TAB(61);
: PRINTUSING 7290,C9(O6)*O9
: Q6$=" "
: STR(Q6$,,13)=ALL("-")
: IF O6>7THEN PRINT TAB(36);Q6$;TAB(36);Q6$
: PRINT
: L=L+3
: GOSUB '90
5290 FOR I=2TO O6
: C8(I),C9(I)=0
: NEXT I
: SELECT PRINT 005(80)
: GOTO 4740
5350 GOSUB '90
: PRINT
: FOR I=3TO 4
: IF M8$((I9-1)*4+I)=" "THEN 5400
: PRINT TAB(11);M8$((I9-1)*4+I)
5400 NEXT I
: L=L0
: SELECT PRINT 005(80)
: GOTO 4650
5460 DEFFN'31
: PRINT HEX(0C)
: LOAD TM$
7030 DEFFN'90
: Q6$=" "
: KEYIN Q6$,7070,7070
7070 IF Q6$="P"THEN GOSUB '254
: IF Q6$=HEX(1F)THEN GOSUB '31
: SELECT PRINT <I0$>(85)
: IF L<L0THEN RETURN
: P1=P1+1
: Q6$=STR(N2$,POS(N2$<>" "))
: Q8=LEN(Q6$)
: Q7$=HEX(0C0A0D0E)
: Q9=(42-Q8)*.5
: IF Q9>=0THEN 7140
: Q7$=HEX(0C0A)
: Q9=42-.5*Q8
7140 PRINT Q7$;TAB(Q9);Q6$
: PRINT TAB(76);"PAGE";P1
: PRINT
: PRINT TAB(24);"SCHEDULE REPORT '";C9$(I9);"' AS OF ";D9$
: PRINT
: L=6
: FOR I=1TO 2
: IF M8$((I9-1)*4+I)=" "THEN 7230
: PRINT TAB(11);M8$((I9-1)*4+I)
: L=L+1
7230 NEXT I
: PRINT
: PRINT TAB(39);"CURRENT MO";TAB(63);"YEAR-TO-DATE"
: PRINT
: L=L+3
: RETURN
7290 %###,###,###.##++
7310 GOSUB '91
: PRINT AT(1,0,80);Q7$
: PRINT AT(3,17);Q6$
: GOSUB '254
: GOTO 5460
9999 DEFFN'29"Q$=";HEX(22);"GENL080A";HEX(22);":SCRATCHTQ$:SAVET()Q$";HEX(0D)