Listing of file='KFAM917U' on disk='vmedia/701-2427C.wvd.zip'
# Sector 841, program filename = 'KFAM917U' 0010 REM KFAM917U, RELEASE 5-1, (11/07/79) - COPYRIGHT WANG LABS. INC. 0120 %THIS MUST BE LINE 120 0130 COM E4$3,D,D$(4)64,D3,D4,B,P2$2 : DIM X1$2,X$64 : LOAD T"ISS.254S"10,0BEG 160 0160 IF F9$=" "THEN 240 : PRINT AT(1,0,S0);"MOUNT PLATTERS AT THE INDICATED ADDRESSES" 0190 GOSUB '254 : DATA LOAD BA T#1,(0)R9$() : ERRORGOTO 190 0210 DATA LOAD BA T#2,(0)R9$() : ERRORGOTO 190 0240 X=E2-1 : DATA LOAD BA T#2,(X,Y)R9$() : MAT COPY R9$()<3,144>TO T$() : $UNPACK(F=H1$)T$(2)TO T0,T2$,Q2$,V2$,T8,V6$,V3$,Q3$,V8$ : V1$=STR(T$(2),18) : INIT(5A)T$(1) : INIT(FF)STR(T$(1),17) : T8=0 : T0=1 : T2$,V2$,T9$=HEX(0001) : E4$=Q2$ : STR(E4$,3)=V8$ : INIT(FF)P2$ : ADDC(P2$,V6$) : XOR (P2$,FF) : IF D1>0THEN 580 0430 $GIO#1,(70A04000870B,X$) : GOSUB '41(V3$) : Z=X+2 : $OPEN #1 : DATA LOAD BA T#1,(0)R9$() : GOSUB '41(STR(R9$(1),3)) : Y=X : GOSUB '41(STR(R9$(1),5)) : IF Z>X-YTHEN 970 : DATA SAVE DC OPEN T$#1,Z,K1$ : LIMITS T#1,K1$,A1,E1,X : $CLOSE#1 0580 DATA LOAD DC OPEN T#1,K1$ : $PACK(F=H1$)T$(2)FROMT0,T2$,P2$,V2$,T8 : DATA SAVE DC $#1,0,T$() : T4=VAL(STR(V1$,5)) : T5=T4+3 : V4$=HEX(A000A003) : BIN(STR(V4$,2))=T4 : V7=T5*INT(240/T5) : V1=V7-T5+1 : INIT(FF)T0$() : INIT(00)STR(T0$(1),1,T4) : DATA SAVE DC $#1,T9$,T0$() : DATA SAVE DC $#1,END : V7$(1)=F1$ : T1=1 : T2=2 : V0=4 : DATA LOAD DC OPEN T#2,F1$ : V0$=BIN(A1,2) 0810 T8$="O" : Q$=" " : V8=.5 : T9=1 : T6$=BIN(T9) : LOAD T"KFAM217U" 0900 DEFFN'41(X1$) : IF STR(X$,11,1)<>HEX(D0)THEN AND (STR(X1$,1,1),7F) : X=VAL(X1$,2) : RETURN 0970 $CLOSE#1 : Q6$="NO SPACE ON DISK FOR KEY FILE" : GOSUB '248(0,0,4) : PRINT Q6$ : E=1 1040 DEFFN'31 : COM CLEAR E4$ : LOAD T"KFAM997U"