image of READY prompt

Wang2200.org

Listing of file='BOMFILE ' on disk='vmedia/701-2656B.wvd.zip'

# Sector 98, program filename = 'BOMFILE'
0010 REM  BOMFILE, RELEASE 2-0, (02/23/79)  THIS PROGRAM IS A COPYRIGHT PRODUC
     T OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITE
     D
0170 COM W0$Q0,W1$3,W3$2,W$(W)Q0,W0$(W)2,W(W),W1(W),W2$(W)1,W2(W)
   : COM W$18
0199 W$=HEX(A0)&BIN(Q0)&HEX(A003A002A0)&BIN(Q0)&HEX(A00262036003A0016202)
   : GOSUB '99
3210 DEFFN'150(N)
   : $PACK(F=W$)M$()FROMW0$,W1$,W3$,W$(),W0$(),W(),W1(),W2$(),W2()
   : DATA SAVE DC #N,M$()
   : RETURN
3220 DEFFN'160(N)
   : DATA LOAD DC #N,M$()
   : $UNPACK(F=W$)M$()TO W0$,W1$,W3$,W$(),W0$(),W(),W1(),W2$(),W2()
   : RETURN
9998 DEFFN'29"Q$=";HEX(22);"BOMFILE";HEX(22);":SCRATCH TQ$:SAVET$()Q$";HEX(0D)