image of READY prompt

Wang2200.org

Listing of file='INVT110D' on disk='vmedia/701-2616C.wvd.zip'

# Sector 952, program filename = 'INVT110D'
0010 REM INVT110D, RELEASE 1-0, (06/12/79), THIS PROGRAM IS A COPYRIGHT PRODUC
     T OF WANG LABORATORIES., UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED,
     SALES PROJ/L.O.S. EXEC. LOADER MODULE
0020 REM DATE WRITTEN     = 2/14/79
0030 REM SYSTEM NAME      = GBS/MVP INVENTORY SYSTEM
0040 REM PROGRAM NAME     = SALES PROJ/ LEVEL OF SERVICE LOADER
0050 REM PROGRAM FUNCTION = LOADS SUBROUTINES TO COMMON VARIABLES
0140 REM **************************************************
0170     COM K5$(50)4,Q7$80,N,Q2,Q4,Q7,M5$8,M$8
3970 REM **************************************************
3985 REM  * * *  NEXT EXECUTABLE LINE # MUST BE 4000  * * *
3990 REM **************************************************
3995 REM
4000     M5$=STR(M$(),50,8)
4010     M$=STR(M$(),241,8)
4020     IF I6=1 THEN 4220
   : REM SKIP PROFILE OPEN IF LEVEL OF SERVICE
4040     Q=2
4050     LOAD T "KFAMOPEN"199,199 BEG  4060
4060     LOAD T "COMCLEAR"10,199BEG  4080
4070  REM IF SALES PROJECTION, OPEN PROFILE FILE
4080     SELECT @PART S0$
4120     GOSUB '230(2,14,8,1,S$(8),1," ",STR(M$(),19,3),STR(M$(),22,3))
4130     IF Q$=" " THEN 4200
4140     PRINT HEX(030A);"PROFILE FILE IS NOT AVAILABLE"
4150     Q7$=" "
4160     KEYIN Q7$,4160,4160
4170     LINPUT "KEY RETURN TO RESUME?",?STR(Q7$,1,1)
4180     LOAD T "INVTMENU"
4190  REM CLEAR KFAMOPEN
4200     LOAD T "COMCLEAR" 10,3999 BEG  4220
4210  REM LOAD SUBROUTINES
4220     I=0
4230     SELECT PRINT 005(80)
4240     PRINT HEX(03)
4250     PRINT AT(7,21);"************************************"
4260     PRINT AT(8,21);"*     Loading Common Variables     *"
4270     PRINT AT(9,21);"************************************"
4280     K5$()="KFAMCODESUBUTIL DENTRY  INVFILE"&S0$(3)&"FINFILE"&S0$(3)&"SLSS
     TABVPROFILE"&S0$(14)
4290     DEFFN'99
4300     Q2=VAL(Q0$(2))
4310     Q4=VAL(Q0$(4))
4320     Q7=VAL(Q0$(7))
4330     I=I+1
4340     IF I=8 THEN 4360
4350     LOAD T STR(K5$(),I*8-7,8)199,210
4360     LOAD T "PRNTAVAL"3700,3742 BEG  4400
4390 REM CALL STARTUP ROUTINE
4400     Q6$=STR(M5$,,7)&"E"
4410     LOAD T Q6$ 4000
9999 DEFFN'29"Q$=";HEX(22);"INVT110D";HEX(22);":SCRATCHTQ$:SAVET$()Q$";HEX(0D)