image of READY prompt

Wang2200.org

Listing of file='ACCT030A' on disk='vmedia/701-2607C.wvd.zip'

# Sector 437, program filename = 'ACCT030A'
0010 REM ACCT030A, RELEASE 2.0, (06/01/79) THIS PROGRAM IS A COPYRIGHT PRODUCT
      OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED
0170 COM A6$1,E6,E7,E8,E9,F6,F7,F8,F9,I6,J1,L1$20,L8,L9
   : GOTO 4000
4000 SELECT @PARTS0$
   : IF A6$>" "THEN 4350
   : U9$=Q1$
   : I6=Q1
   : L8=Q0+7
   : L9=15
   : B$(1)="A"
   : PACK(##)STR(B$(1),2)FROMS2
   : L1$=HEX(A0)&BIN(Q0)&HEX(A0)&BIN(MIN(26-Q0,21))&HEX(6004500552055205520552
     05A005A001)
   : GOTO 4180
4110 PRINT AT(3,0,80);"Invalid date, re-enter.";HEX(07)
4120 GOSUB '100(HEX(00),HEX(7F),8,0,"ENTER TRANSACTION DATE  (MM/DD/YY)",2)
   : GOSUB '121(Q6$)
   : IF Q6$="E"THEN 4110
   : GOSUB '123(U9)
   : I6=U9
4180 PRINT AT(4,0,80);"TRANSACTION DATE = ";U9$,I6
   : GOSUB '100("Y,N","YyY Nn",1,1,"IS TRANSACTION DATE OK  (Y OR N)",2)
   : IF Q6$="N"THEN 4120
   : PRINT AT(4,0,80)
   : LIMITS T#6,S$(6),Q6,Q7,Q8
   : Q9=(Q8-2)/(Q7-Q6-1)
   : Q$="S"
   : IF Q9>.95THEN 4570
   : Q$=" "
4280 IF Q9>.8THEN PRINT AT(3,0,);HEX(07);"Transaction audit file is";INT(Q9*10
     0);"% full."
   : MAT REDIM N1$(4)61
   : STR(M5$,8)="B"
   : LOAD TM5$4000,
4350 PRINT AT(1,0,)
   : $PACK(F=L1$)N1$(G0)FROM" ","TOTAL OF ALL CHECKS",0,0,E6,E7,E8,E9," ","T"
   : MAT REDIM N1$(5)49
   : GOSUB '48(6)
   : $OPEN #1
   : GOSUB '46(1,0,1)
   : M(1)=I6
   : IF E6>0THEN M3$=" "
   : F6,M(3)=M(3)-(E7+E8+E9)
   : GOSUB '46(1,0,0)
   : GOSUB '46(1,I6,1)
   : M(13)=M(13)+E9
   : M(14)=M(14)+E7
   : M(15)=M(15)+E8
   : M(16)=F6
4530 GOSUB '46(1,I6,0)
   : $CLOSE#1
   : IF A6$<>"E"THEN 4630
4570 GOSUB '91
   : IF J0=0THEN 4630
   : Q6$="Customer  Open item Trans.Aud."
   : Q6$=STR(Q6$,T6*10-9,10)
   : PRINT AT(3,17,0);Q6$;" file."
   : GOSUB '254
4630 LOAD TM$
9998 DEFFN'29"Q$=";HEX(22);"ACCT030A";HEX(22);":SCRATCH TQ$:SAVET$()Q$";HEX(0D
     )
9999 DEFFN'30"DIM Z$57:IF STR(I0$,,1)=HEX(20)THENI0$=HEX(323135):Z$=";HEX(22);
     "GBS/MVP - Enter cash - initialize, end program.";HEX(22);":SELECT#15<I0$
     >:$OPEN#15:SELECTLIST<I0$>(132): LIST Z$:LIST Z$#:LIST Z$V:LIST Z$':$CLOS
     E#15:SELECTLIST005(80)";HEX(0D)