image of READY prompt

Wang2200.org

Listing of file='DCOM020A' on disk='vmedia/701-2048D.wvd.zip'

# Sector 326, program filename = 'DCOM020A'
0010 REM DCOM020A,00-00(02/18/76),12003A - COPYRIGHT WANG LABS. INC., 1976
0200 COM R1$8,R2$1,R3$2,R9$8,R9$(16),N$8,P
   : COM F$(10)1,C$(50)2,A$(1)2,B$(2)1,L$(2)4,F$8,G$8
   : COM I$(2,128)1,O$(2,128)1
   : N$=HEX(0000000000000000)
   : P=1
   : INIT(20)O$()
   : F$=HEX(F03AF122F2272020)
0280 G$=HEX(3AF022F127F22020)
   : F$(1)=HEX(FD)
   : F$(2)=HEX(FE)
   : F$(3)=HEX(20)
   : F$(4)=HEX(0D)
   : F$(5)=HEX(3A)
   : F$(6)=HEX(22)
   : F$(7)=HEX(27)
   : F$(8)=HEX(FF)
   : F$(9)=HEX(9A)
   : F$(10)=HEX(CE)
   : L$(1)=HEX(00FF0000)
   : L$(2)=HEX(0D000000)
0410 LOAD DC T#0,"DCOM030A"