Listing of file='ISS.226S' on disk='vmedia/701-2423D.wvd.zip'
# Sector 674, program filename = 'ISS.226S' 0010 REM ISS.226S, 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 7225 DEFFN'226(R9,R9$) : GOSUB '229(R9,R9$) : IF R<>0THEN 7310 : R3=0 : GOTO 7290 7275 R3=R3+1 : IF R3>R4-1THEN 7380 7290 DATA LOAD BA T#R9,(R3)R9$() : R6=1-SGN(R3) 7310 R6=R6+1 : IF R6=17THEN 7275 : R2$=R9$(R6) : IF R2$=HEX(00)THEN 7275 : IF R2$=HEX(21)THEN 7310 : R9$=STR(R9$(R6),9) : LIMITS T#R9,R9$,R,R,R,R : RETURN 7380 INIT(00)R9$,R2$ : R=0 : RETURN