Listing of file='ISS.217S' on disk='vmedia/701-2424C.wvd.zip'
# Sector 172, program filename = 'ISS.217S' 0010 REM ISS.217S, RELEASE 5-1, (11/07/79) - COPYRIGHT WANG LABS. INC. 0083 DIM Q$1,Q6$64,R1$6,R4$,R9$8,R9$(16),Q4,Q6,Q7,Q8,Q9,R,R1,R2,R8,R9 8310 DEFFN'217(R9$,R9,R8,R1,Q9,Q6$,R4$,R2) : $OPEN #R9 : LIMITS T#R9,R9$,Q6,Q7,Q8,R : Q$="D" : IF ABS(R)=1THEN 8580 : IF R1<=0THEN 8430 : IF R=2THEN 8580 : Q9=4 : Q$="S" : IF R=0THEN 8410 : IF Q7-Q6+1<R1THEN 8580 : DATA SAVE DC OPEN T#R9,R9$,R9$ : GOTO 8440 8410 DATA SAVE DC OPEN T#R9,R1,R9$ : ERRORGOTO 8580 8415 LIMITS T#R9,Q6,Q7,Q8 : GOTO 8440 8430 IF R<2THEN 8580 8440 GOSUB 8810 : Q$="M" : IF STR(R9$(),4,4)<>HEX(FD4D5558)AND R1=-2THEN 8580 : STR(R9$(1),9)=R9$ : IF STR(R9$(),4,4)=HEX(FD4D5558)THEN 8475 : STR(R9$(),4,4)=HEX(FD4D5558) : STR(R9$(),17)=Q6$ 8475 Q$="P" : IF Q6$<>R9$(2)THEN 8580 : Q$="A" : Q6$=STR(R9$(),33,48) : IF STR(Q6$,R8,1)=" "XOR R1<>-1THEN 8580 : STR(Q6$,R8,1)=" " : ON Q9-1GOTO 8530,8540,8550 : R1$=" 1 2 3" : GOTO 8545 8530 R1$=" 1 2" : GOTO 8545 8540 R1$=" 1 3" 8545 $TRAN(Q6$,R1$)R 8550 IF Q6$<>" "THEN 8580 : CONVERT Q9TO STR(R9$(),32+R8,1),(#) : GOSUB 8825 : DATA LOAD DC OPEN T#R9,R9$ : Q$=" " 8580 IF R2=0THEN $CLOSE#R9 : RETURN 8600 DEFFN'218(R9$,R9,R4$,R2) : $OPEN #R9 : LIMITS T#R9,Q6,Q7,Q8 : Q$="F" : IF Q7<=Q8THEN 8580 : Q$=" " : IF Q8=Q7-1THEN Q$="S" : Q6=Q8-Q6+2 : R9$()=HEX(A0) : DATA SAVE BA T#R9,(Q8)R9$() : GOSUB 8810 : STR(R9$(),2,2)=BIN(Q6,2) : GOSUB 8825 : DATA LOAD DC OPEN T#R9,R9$ : DSKIP #R9,END : GOTO 8580 8705 DEFFN'219(R9$,R9,R8,R4$,R2) : $OPEN #R9 : LIMITS T#R9,R9$,Q6,Q7,Q8 : GOSUB 8810 : STR(R9$(),32+R8,1)=" " : GOSUB 8825 : DATA SAVE DC CLOSE#R9 : GOTO 8580 8780 DEFFN'215(R4$,Q4) : SELECT #15<R4$> : IF Q4=0THEN $CLOSE#15 : ELSE $OPEN #15 : RETURN 8810 DATA LOAD BA T#R9,(Q7)R9$() : RETURN 8825 DATA SAVE BA T#R9,(Q7)R9$() : RETURN