Listing of file='SUB-004A' on disk='vmedia/701-2047D.wvd.zip'
# Sector 429, program filename = 'SUB-004A' 0010 REM SUB-004A,00-00(02/18/76),12003A - COPYRIGHT WANG LABS. INC., 1976 0050 GOSUB '99 3020 DIM Q6$64,W$8,W3$3,W4$1,W$(3)8,Q4(3),Q5(3) 8225 DEFFN'242(W0,Q6$) : IF W0<=0THEN 8245 : INIT(Q6$)Q6$ : PRINT STR(Q6$,1,W0); 8245 RETURN