image of READY prompt

Wang2200.org

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