image of READY prompt

Wang2200.org

Listing of file='TRAN020A' on disk='vmedia/701-2047D.wvd.zip'

# Sector 344, program filename = 'TRAN020A'
0010 REM TRAN020A,00-00(11/08/76),12003A - COPYRIGHT WANG LABS. INC., 1976
9700 DIM Q9$(8)32
9748 DEFFN'202
9750 INIT(FF)Q9$()
   : Q9$(1)=HEX(00010203FF2D2E2F1605250B0C0D0E0F101112133C3D322618193F271C1D1E
     1F)
   : Q9$(2)=HEX(405A7F7B5B6C507D4D5D5C4E6B604B61F0F1F2F3F4F5F6F7F8F97A5E4C7E6E
     6F)
9765 Q9$(3)=HEX(7CC1C2C3C4C5C6C7C8C9D1D2D3D4D5D6D7D8D9E2E3E4E5E6E7E8E94AE0FF5F
     FF)
   : Q9$(4)=HEX(79818283848586878889919293949596979899A2A3A4A5A6A7A8A9C06AD0A1
     07)
   : STR(Q9$(7),8,1)=HEX(4F)
9780 STR(Q9$(8),1,1)=HEX(5C)
   : RETURN