image of READY prompt

Wang2200.org

Listing of file='KFAMCODE' on disk='vmedia/701-2606C.wvd.zip'

# Sector 60, program filename = 'KFAMCODE'
0010 REM KFAMCODE, RELEASE 2.0, (06/01/79) THIS PROGRAM IS A COPYRIGHT PRODUCT
      OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED
0170 COM J$(8),J0,Q$1,Q2
0199 SELECT @PARTS0$
   : GOSUB '91
   : GOSUB '99
3880 DEFFN'92
   : GOSUB '254
   : IF Q6$=HEX(1F)THEN GOSUB '31
   : $BREAK255
   : RETURN
9998 DEFFN'29"Q$=";HEX(22);"KFAMCODE";HEX(22);":SCRATCH TQ$:SAVET$()Q$";HEX(0D
     )