Listing of file='ISS.227S' on disk='vmedia/701-2423D.wvd.zip'
# Sector 680, program filename = 'ISS.227S' 0010 REM ISS.227S, 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 : DIM R2 7555 DEFFN'227(R9,R9$,R6) : LIMITS T#R9,R9$,R2,R3,R5,R : IF R=0THEN 7835 : R2=R2+R6+R5-1 : IF R2>=R3THEN 7805 : DATA LOAD BA T#R9,(0)R9$() : R4=VAL(STR(R9$(1),3,2),2) : IF R4-1=R3THEN STR(R9$(1),3,2)=BIN(R2+1,2) : DATA SAVE BA T#R9,(0)R9$() : DATA LOAD BA T#R9,(R3)R9$() : DATA SAVE BA T#R9,(R2)R9$() : GOSUB '229(R9,R9$) : STR(R9$(R6),5,2)=BIN(R2,2) : DATA SAVE BA T#R9,(R3)R9$() 7775 R2$="0" : RETURN 7805 R2$="1" : RETURN 7835 R2$="3" : RETURN