image of READY prompt

Wang2200.org

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

# Sector 62, program filename = 'GENL040A'
0010 REM GENL040A, 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 COM D9$8,F8$7,A8$(4)62
   : GOTO 4000
4000 SELECT @PARTS0$
   : A8$()=M$()
   : GOSUB '93(" ")
   : IF I0$=" "THEN 5250
   : GOSUB '100("D,S","DdDs",1,1,"ENTER REPORT TYPE  (D=DETAIL, S=SUMMARY)",2)
   : IF Q6$=HEX(1F)THEN GOSUB '31
   : IF Q9=1THEN F8$="DETAIL"
   : ELSE F8$="SUMMARY"
   : IF Q6$=HEX(1F)THEN GOSUB '31
4110 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 4160
   : PRINT AT(3,0,80);HEX(07);"Invalid report date, re-enter"
4160 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 4110
   : GOSUB '66(9,0,1)
   : STR(M5$,8)="B"
   : M$()=A8$()
   : $PACK(F=HEX(A0076002A008A003A008A007))STR(M$(),92)FROMM5$,L0,M$,I0$,D9$,F
     8$
   : IF M3$=" "THEN 5140
5080 LIMITS T#4,S$(4),Q6,Q7,Q8,Q9
   : IF Q8<3THEN 5140
   : STR(M5$,8)="C"
5140 Q=1
   : LOAD T"KFAMOPEN"10,199BEG 5160
5160 LOAD T"COMCLEAR"10,199BEG 5170
5170 SELECT @PARTS0$
   : GOSUB '219(S$(9),9,S2," ",0)
   : COM CLEAR M5$
   : LOAD TM5$
5250 DEFFN'31
   : COM CLEAR D9$
   : LOAD TM$
9999 DEFFN'29"Q$=";HEX(22);"GENL040A";HEX(22);":SCRATCHTQ$:SAVET()Q$";HEX(0D)