Listing of file='ISS.228S' on disk='vmedia/701-2423D.wvd.zip'
# Sector 687, program filename = 'ISS.228S' 0010 REM ISS.228S, RELEASE 5-1, (11/07/79) - COPYRIGHT WANG LABS. INC. 0078 DIM R9$(16)16,R9$8,R2$1,R1,R3,R9 7395 DEFFN'228(R9,R9$,R1) : LIMITS T#R9,R9$,R3,R3,R3,R3 : ON R3+3GOTO 7525,7525,7425,7510,7510 7425 R2$="0" : DATA LOAD BA T#R9,(0)R9$() : R3=VAL(STR(R9$(),5,2),2)-VAL(STR(R9$(),3,2),2) : IF R3<ABS(R1)+2THEN 7495 : IF R1<0THEN R3=-R1+2 : DATA SAVE DC OPEN T#R9,(R3),R9$ : RETURN 7495 R2$="1" : RETURN 7510 R2$="2" : RETURN 7525 R2$="3" : RETURN