Listing of file='ISS.229S' on disk='vmedia/701-2423D.wvd.zip'
# Sector 693, program filename = 'ISS.229S' 0010 REM ISS.229S, RELEASE 5-1, (11/07/79) - COPYRIGHT WANG LABS. INC. 0077 DIM R9$(16)16,R9$8,R2$1,R,R3,R4,R5,R6,R9 7065 DEFFN'229(R9,R9$) : DATA LOAD BA T#R9,(0,R3)R9$() : R4=VAL(STR(R9$(1),2)) : R9$(1)=R9$ : XOR (STR(R9$(1),2,7),STR(R9$(1),1,8)) : R=3*VAL(STR(R9$(1),8)) : R3=INT(R/256)+MOD(R,256) : R3=MOD(R3,R4)+1 : R=0 : FOR R5=1TO R4 : R3=MOD(R3-1,R4) : DATA LOAD BA T#R9,(R3)R9$() : FOR R6=2-SGN(R3)TO 16 : R2$=R9$(R6) : IF R2$=HEX(00)THEN RETURN 7170 IF R2$<>HEX(21)AND STR(R9$(R6),9)=R9$THEN 7205 : NEXT R6 : NEXT R5 : R2$=HEX(00) : RETURN 7205 LIMITS T#R9,R9$,R,R,R,R : RETURN