Listing of file='GBS1220C' on disk='vmedia/701-2661A.wvd.zip'
# Sector 41, program filename = 'GBS1220C'
0010 REM GBS1220C, RELEASE 1-0, (03/27/79), THIS PRODUCT IS A COPYRIGHT PRO
DUCT OF WANG LABORATORIES. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED
. CLEAR FILES LOADER MODULE.
0170 COM K5$(50)4,N,Q7,M$8,M5$8
: COM Q,Q2,Q3,Q4,Q5,Q6,Q7,Q8,Q9,C0
4000 SELECT @PARTS0$
: M$=STR(M$(),241,8)
: M5$=STR(M$(),100,8)
: I=0
: Q7=VAL(Q0$(7))
: SELECT PRINT 005(80)
: PRINT HEX(03)
: PRINT AT(7,21);"**************************************"
: PRINT AT(8,21);"* Loading Common Variables *"
: PRINT AT(9,21);"**************************************"
: Q=2
4080 K5$()="KFAMOPENKFAMCODESUBUTIL INVFILE"&S0$(3)&"FINFILE"&S0$(3)&"PROFILE"
&S0$(14)&"DENTRY "
4090 I=I+1
: IF I=8THEN 4120
: LOAD DC T#0,STR(K5$(),I*8-7,8)199,210
4120 LOAD DC T#0,"PRNTAVAL"3940,3967BEG 4280
4150 DEFFN'99
: Q8=VAL(Q0$(1))
: Q=VAL(Q0$(1))-1
: Q2=VAL(Q0$(2))
: Q3=VAL(Q0$(3))
: Q4=VAL(Q0$(4))
: Q5=VAL(Q0$(5))
: Q6=VAL(Q0$(6))
: Q7=VAL(Q0$(7))
: Q9=VAL(Q0$(9))
: C0=VAL(Q0$(8))
: RETURN CLEAR
4260 GOTO 4090
4280 Q6$=STR(M5$,,7)&"D"
: LOAD DC T#0,Q6$4000,
9999 DEFFN'29"Q$=";HEX(22);"GBS1220C";HEX(22);":SCRATCHTQ$:SAVET$()Q$";HEX(0D)