image of READY prompt

Wang2200.org

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