Listing of file='SUB-000A' on disk='vmedia/701-2047D.wvd.zip'
# Sector 399, program filename = 'SUB-000A'
0010 REM SUB-000A,00-00(04/28/76),12003A - COPYRIGHT WANG LABS. INC., 1976
0050 GOSUB '99
3000 DIM Q$(2)64,Q6$64,Q7$1
7695 DEFFN'200(Q$(1),Q$(2),Q3,Q4,Q6$,Q5)
: SELECT PRINT 005(64)
: PRINT HEX(010A);Q6$;TAB(64)
7720 INIT("-")Q6$
: PRINT HEX(0D010A0A);"? ";STR(Q6$,1,Q3+Q4+2-Q5);TAB(64)
: IF Q5=2THEN 7745
: INIT(09)Q6$
: PRINT STR(Q6$,1,Q3+2);HEX(0C2F)
7745 PRINT HEX(0C0909);
: Q8=0
: KEYIN Q7$,7770,7770
7770 KEYIN Q7$,7780,7770
: GOTO 7770
7780 IF Q7$=HEX(08)THEN 7840
: IF Q7$=HEX(E5)THEN 7720
: IF Q7$=HEX(0D)THEN 7875
: IF Q7$<HEX(20)THEN 7770
: IF Q7$>HEX(7F)THEN 7770
: Q8=Q8+1
: IF Q8>Q3+Q4+2*SGN(2-Q5)THEN 7985
: STR(Q6$,Q8,1)=Q7$
: PRINT Q7$;
: GOTO 7770
7840 SELECT PRINT 005
: IF Q8=0THEN 7770
: BIN(Q7$)=45+2*(2-Q5)*(1-ABS(SGN(Q3+1-Q8)))-(1+SGN(Q8-(Q3+Q4+2)))*13
: PRINT HEX(08);Q7$;HEX(08);
: Q8=Q8-1
: GOTO 7770
7875 IF Q8<>0THEN 7890
: Q6$=" "
: Q8=1
7890 Q6$=STR(Q6$,1,Q8)
: IF Q5=2THEN 7970
: IF LEN(Q6$)<>NUM(STR(Q6$,1,LEN(Q6$)))THEN 7985
: CONVERT Q$(1)TO Q7
: CONVERT Q$(2)TO Q8
: CONVERT Q6$TO Q9
: IF ABS(Q9)>=10^ABS(Q3)THEN 7985
: IF INT(ABS(Q9*10^Q4))<>ABS(Q9*10^Q4)THEN 7985
: IF Q7>Q9THEN 7985
: IF Q9>Q8THEN 7985
7955 PRINT HEX(0D0A);TAB(64)
: RETURN
7970 IF Q$(1)>Q6$THEN 7985
: IF Q6$<=Q$(2)THEN 7955
7985 PRINT HEX(0D010A0A0A07);"RE-ENTER";TAB(64)
: GOTO 7720