Listing of file='SUB-008A' on disk='vmedia/701-2047D.wvd.zip'
# Sector 451, program filename = 'SUB-008A' 0010 REM SUB-008A,00-00(02/18/76),12003A - COPYRIGHT WANG LABS. INC., 1976 0050 GOSUB '99 8675 DEFFN'245(Q6$,Q2,Q3) : Q0=ABS(Q2)+Q3+1 : GOSUB 8830 8690 IF ABS(Q2)+ABS(Q3)=0THEN 8710 : GOSUB '242(ABS(Q2)+2,HEX(09)) : PRINT "/" : GOTO 8715 8710 PRINT ,," " 8715 GOSUB 8855 : SELECT CO 205 : Q9,W0=-1E-99 : INPUT Q9 : IF W0=Q9THEN 8755 : IF ABS(Q2)+Q3=0THEN 8805 : IF Q9>=0THEN 8790 : IF Q2<=0THEN 8790 8755 GOSUB 8815 8765 DEFFN'246(Q2,Q3) : Q0=ABS(Q2)+Q3+1 : GOSUB 8855 : GOSUB 8840 : GOTO 8690 8790 IF ABS(Q9)>=10^ABS(Q2)THEN 8755 : W0=ABS(Q9*10^Q3) : IF INT(W0)<>W0THEN 8755 8805 GOSUB '248(3,0,1) : RETURN 8815 GOSUB '248(3,0,1) : PRINT "RE-ENTER" : RETURN 8830 SELECT PRINT 005(64),CO 005 : PRINT HEX(010A);STR(Q6$,1); 8840 SELECT PRINT 005(64),CO 005 : GOSUB '242(Q0+2,"-") : PRINT TAB(64) 8855 PRINT HEX(010A0A) : RETURN 8865 PRINT HEX(0A);TAB(64) : SELECT PRINT 005(64),CO 005 : RETURN