Listing of file='SUB-002A' on disk='vmedia/701-2047D.wvd.zip'
# Sector 416, program filename = 'SUB-002A' 0010 REM SUB-002A,00-00(02/18/76),12003A - COPYRIGHT WANG LABS. INC., 1976 0050 GOSUB '99 9300 DEFFN'228(R9,R9$,R1) : GOSUB '229(R9,R9$) : ON VAL(R2$)-15GOTO 9625,9640 : R2$="0" : DATA LOAD BA T#R9,(0,R3)R9$() : AND (STR(R9$(1),3,1),7F) : R2=VAL(STR(R9$(1),3,1))*256+VAL(STR(R9$(1),4,1)) : AND (STR(R9$(1),5,1),7F) 9360 R3=VAL(STR(R9$(1),5,1))*256+VAL(STR(R9$(1),6,1)) : IF R3-R2<R1+2THEN 9610 : DATA SAVE DC OPEN T#R9,(R3-R2),R9$ : RETURN 9610 R2$="1" : RETURN 9625 R2$="2" : RETURN 9640 R2$="3" : RETURN