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)