Listing of file='SUB-007A' on disk='vmedia/701-2047D.wvd.zip'
# Sector 445, program filename = 'SUB-007A' 0010 REM SUB-007A,00-00(02/18/76),12003A - COPYRIGHT WANG LABS. INC., 1976 0050 GOSUB '99 8605 DEFFN'243(Q6$,Q0) : GOSUB 8830 8615 SELECT CO 205 : Q6$=" " : INPUT Q6$ : IF Q0=0THEN 8865 : IF LEN(Q6$)<=Q0THEN 8865 : GOSUB 8815 8650 DEFFN'244(Q0) : GOSUB 8855 : GOSUB 8840 : GOTO 8615 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