image of READY prompt

Wang2200.org

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)