Listing of file='KFAM417U' on disk='vmedia/701-2427C.wvd.zip'
# Sector 671, program filename = 'KFAM417U' 0010 REM KFAM417U, RELEASE 5-1, (11/07/79) - COPYRIGHT WANG LABS. INC. 0120 %THIS MUST BE LINE 120 0130 LOAD T"ISS.254S"10,0BEG 140 0140 IF F9$=" "THEN 210 0160 PRINT AT(1,0,S0);"MOUNT PLATTERS AT THE INDICATED ADDRESSES" : GOSUB '254 : DATA LOAD BA T#1,(0)R9$() : ERRORGOTO 160 0190 DATA LOAD BA T#2,(0)R9$() : ERRORGOTO 160 0210 $UNPACK(F=STR(H1$,11))T$(2)<12>TO V6$,V3$,Q3$ : Y=E2-A2-1 : Z=VAL(V6$) : X=INT(Y/Z) : Y=Z*(X-1) : Q3$=BIN(Y,2) : Y=E1-A1-2 : V3$=BIN(Y,2) : $PACK(F=STR(H1$,11))T$(2)<12>FROMV6$,V3$,Q3$ : DATA SAVE DA T$#1,(V0$)0,T$() : LOAD T"KFAM997U"