Listing of file='KFAM517U' on disk='vmedia/701-2427C.wvd.zip'
# Sector 693, program filename = 'KFAM517U' 0010 REM KFAM517U, RELEASE 5-1, (11/07/79) - COPYRIGHT WANG LABS. INC. 0120 %THIS MUST BE LINE 120 0130 DIM T8$(4)1,V5$(4)1,V4$(4)2,V2$(4)2,A0$4,V5$1 : LOAD T"ISS.254S"10,0BEG 150 0150 IF F9$=" "THEN 220 0170 PRINT AT(1,0,S0);"MOUNT PLATTERS AT THE INDICATED ADDRESSES" : GOSUB '254 : DATA LOAD BA T#1,(0)R9$() : ERRORGOTO 170 0200 DATA LOAD BA T#2,(0)R9$() : ERRORGOTO 170 0220 IF F6=4THEN 300 : DATA LOAD DA T#1,(A1,X)Q2$,Q3$,V5$,V8$,V0$,V1$,V2$,V3$,V6$,T2$,T0 : $PACK(F=STR(H1$,15))T$(3)FROMQ2$,V5$ : C=2 : GOTO 470 0300 $OPEN #1 : DATA LOAD DA T#1,(A1,X)Q2$,Q3$,V5$(),V8$,V1$,V2$,V3$,V6$,T2$,T0,T8$(),A0$ ,V4$(),V2$() : IF A0$=" "THEN 380 : PRINT "KFAM-4 FILE BUSY" : E=1 : $CLOSE#1 : GOTO 1140 0380 A0$="X" : DATA SAVE DA T$#1,(A1,X)Q2$,Q3$,V5$(),V8$,V1$,V2$,V3$,V6$,T2$,T0,T8$(),A0 $,V4$(),V2$() : $CLOSE#1 : FOR X=1TO 4 : STR(T$(3),3*X-2,3)=STR(V2$(X))&V5$(X) : NEXT X : C=5 0470 INIT(5A)T$(1) : INIT(FF)STR(T$(1),17) : FOR X=CTO 16 : STR(T$(3),3*X-2,3)=STR(Q3$)&V8$ : NEXT X : STR(T$(2),18)=V1$ : V0$=BIN(A1,2) : T4=VAL(STR(T$(2),22)) : T5=T4+3 : V4$=HEX(A000A003) : BIN(STR(V4$,2))=T4 : V7=T5*INT(240/T5) : V1=V7-T5+1 : V9$=T2$ : FOR T3=T0TO 1STEP -1 : GOSUB 1010 : T2$(T3)=T9$ : V9$=STR(T0$(1),T4+1) : NEXT T3 : INIT(01)T$ : T8=-1 0740 T8=T8+INT((POS(-T0$()<FF)-1)/T5)+1 0760 T3=T3+1 : IF T3>T0THEN 1060 : V9$=T2$(T3) : GOSUB 1010 : T=VAL(STR(T$,T3)) : T=T+T5 : IF T>V1THEN 760 : $UNPACK(F=V4$)T0$()<T>TO T1$,T4$ : IF T1$>HEX(FF)THEN 760 0870 BIN(STR(T$,T3))=T : IF T3=1THEN 740 : V9$=T4$ : GOSUB 1010 : $UNPACK(F=V4$)T0$()TO T1$,T4$ : T3=T3-1 : T=1 : T2$(T3)=T9$ : GOTO 870 1010 ADDC(V9$,V0$) : DATA LOAD DA T#1,(V9$)T9$,T0$() : RETURN 1060 $PACK(F=H1$)T$(2)FROMT0,T2$,Q2$,V2$,T8,V6$,V3$,Q3$,V8$ : DATA LOAD DC OPEN T#1,K1$ : DATA SAVE DC $#1,0,T$() : X=VAL(V2$,2) : DSKIP #1,XS : DATA SAVE DC $#1,END 1140 LOAD T"KFAM997U" 1160 DEFFN'31 : GOTO 1140