Listing of file='SUB-003A' on disk='vmedia/701-2047D.wvd.zip'
# Sector 422, program filename = 'SUB-003A' 0010 REM SUB-003A,00-00(11/08/76),12003A - COPYRIGHT WANG LABS. INC., 1976 0050 GOSUB '99 9440 DEFFN'227(R9,R9$,R1) : GOSUB '229(R9,R9$) : IF R2$=HEX(00)THEN 9640 : LIMITS T#R9,R9$,R2,R3,R0 : DATA LOAD BA T#R9,(0,R4)R9$() : AND (STR(R9$(1),3,1),7F) : R4=VAL(STR(R9$(1),3,1))*256+VAL(STR(R9$(1),4,1)) : IF R4-1<>R3THEN 9625 9500 IF R2+R0+R1-1>=R3THEN 9610 : R2,R4=R2+R1+R0-1 : DATA LOAD BA T#R9,(R3,R3)R9$() : DATA SAVE BA T#R9,(R4,R3)R9$() : GOSUB '229(R9,R9$) : R4=R2 : BIN(STR(R9$(R6),5,1))=INT(R4/256) : BIN(STR(R9$(R6),6,1))=R4-INT(R4/256)*256 9550 DATA SAVE BA T#R9,(R3,R3)R9$() : DATA LOAD BA T#R9,(0,R3)R9$() : BIN(STR(R9$(1),3,1))=INT((R4+1)/256) : BIN(STR(R9$(1),4,1))=R4+1-INT((R4+1)/256)*256 : DATA SAVE BA T#R9,(0,R3)R9$() : R2$="0" : RETURN 9610 R2$="1" : RETURN 9625 R2$="2" : RETURN 9640 R2$="3" : RETURN