Listing of file='TRAN030A' on disk='vmedia/701-2047D.wvd.zip'
# Sector 351, program filename = 'TRAN030A'
0010 REM TRAN030A,00-00(11/08/76),12003A - COPYRIGHT WANG LABS. INC., 1976
9700 DIM Q9$(8)32
9788 DEFFN'203
9790 INIT(FF)Q9$(1)
: STR(Q9$(1),3,1)=HEX(AA)
: Q9$(2)=HEX(031795BEB9B5BD15B0B1BC860C001609313F363E3935343D3C308D0DB406FF
89)
9805 Q9$(3)=HEX(B69CA0ACADA58E8FA19487A4A99FA69985849D91A7AE9E90AF81B7BFFF3F97
12)
: Q9$(4)=HEX(021C202C2D250E0F21140724291F261905041D11272E1E102F0137FFFFFFFF
FF)
9815 Q9$(5)=HEX(080A0B181A1B22233332383A3B72280212FFFFFFFFFFFFFFFFFFFFFFFFFFFF
FF)
: Q9$(6)=HEX(8057D5FEF9F5FD55F0F1FFC64C4056497169767E7975747D7C70CD4DF446FF
C9)
9825 Q9$(7)=HEX(F6DCE0ECEDE5CECFE1D4C7E4E9DFE6D9C5C4DDD1E7EEDED0EFC1F7FFFF7FD7
FF)
: Q9$(8)=HEX(FC5C606C6D654E4F61544764695F665945445D51676E5E506F4177FFFFFFFF
FF)
: RETURN