Listing of file='SUB-001A' on disk='vmedia/701-2047D.wvd.zip'
# Sector 408, program filename = 'SUB-001A' 0010 REM SUB-001A,00-00(11/08/76),12003A - COPYRIGHT WANG LABS. INC., 1976 0050 GOSUB '99 3010 DIM R1$8,R2$1,R3$2,R9$8,R9$(16) 9015 DEFFN'229(R9,R9$) : DATA LOAD BA T#R9,(0,R3)R9$() : R4=VAL(STR(R9$(1),2,1)) : R1$=R9$ : XOR (STR(R1$,2),R1$) : R2$=STR(R1$,8,1) : R3$=HEX(0000) : ADDC(R3$,R2$) : ADDC(R3$,R2$) : ADDC(R3$,R2$) : ADD(STR(R3$,1,1),STR(R3$,2,1)) : R3=VAL(R3$) 9115 R3=R3-INT(R3/R4)*R4 : R5=R3 9135 DATA LOAD BA T#R9,(R3,R)R9$() : R6=0 : FOR R7=1TO 16 : IF R3<>0THEN 9175 : IF R7<>1THEN 9175 : R7=2 9175 R2$=STR(R9$(R7),1,1) : IF R2$=HEX(00)THEN 9220 : IF R2$=HEX(10)THEN 9205 : IF R2$<>HEX(11)THEN 9225 9205 IF STR(R9$(R7),9,8)<>R9$THEN 9225 : R6=R7 9220 R7=16 9225 NEXT R7 : IF R2$=HEX(00)THEN 9290 : IF R6<>0THEN 9290 : R2$=HEX(00) : R3=R3-1 : IF R3=R5THEN 9290 : IF R3>=0THEN 9135 : R3=R4-1 : GOTO 9135 9290 RETURN