Listing of file='SUB-006A' on disk='vmedia/701-2047D.wvd.zip'
# Sector 440, program filename = 'SUB-006A' 0010 REM SUB-006A,00-00(02/18/76),12003A - COPYRIGHT WANG LABS. INC., 1976 0050 GOSUB '99 8885 DEFFN'248(Q6,Q7,Q8) : GOSUB 8950 : IF Q8<1THEN 8935 : GOSUB 8935 : SELECT PRINT 205 : PRINT TAB(64-Q7) : IF Q8<2THEN 8935 : FOR W0=2TO Q8 : PRINT HEX(0A);TAB(64) : NEXT W0 8935 PRINT HEX(01) : GOSUB '242(Q7,HEX(09)) : GOSUB '242(Q6,HEX(0A)) 8950 SELECT PRINT 005(64),CO 005 : RETURN