'Make UHJ encoding filters CLS PRINT "Creating UHJ encoding filters in the \MLSSAWIN directory..." filWL$ = "W_ENC_L.frq" filWR$ = "W_ENC_R.frq" filXL$ = "X_ENC_L.frq" filXR$ = "X_ENC_R.frq" filYL$ = "Y_ENC_L.frq" filYR$ = "Y_ENC_R.frq" SHELL "copy \mlssawin\a-w.frq \mlssawin\" + filWL$ SHELL "copy \mlssawin\a-w.frq \mlssawin\" + filWR$ SHELL "copy \mlssawin\a-w.frq \mlssawin\" + filXL$ SHELL "copy \mlssawin\a-w.frq \mlssawin\" + filXR$ SHELL "copy \mlssawin\a-w.frq \mlssawin\" + filYL$ SHELL "copy \mlssawin\a-w.frq \mlssawin\" + filYR$ OPEN "\mlssawin\" + filWL$ FOR BINARY AS #1 OPEN "\mlssawin\" + filWR$ FOR BINARY AS #2 OPEN "\mlssawin\" + filXL$ FOR BINARY AS #3 OPEN "\mlssawin\" + filXR$ FOR BINARY AS #4 OPEN "\mlssawin\" + filYL$ FOR BINARY AS #5 OPEN "\mlssawin\" + filYR$ FOR BINARY AS #6 poin = 5 GET #1, poin, DeltaF GET #1, , Leng& GET #2, poin, DeltaF GET #2, , Leng& GET #3, poin, DeltaF GET #3, , Leng& GET #4, poin, DeltaF GET #4, , Leng& GET #5, poin, DeltaF GET #5, , Leng& GET #6, poin, DeltaF GET #6, , Leng& FOR i = 0 TO Leng& - 1 f = 1000! * i * DeltaF' frequenza attuale in kHz IF f > 0 THEN WLr = .9397 / 2 WLi = -.342 / 2 WRr = .9397 / 2 WRi = .342 / 2 XLr = .1856 / 2 XLi = .5099 / 2 XRr = .1856 / 2 XRi = -.5099 / 2 YLr = .655 / 2 YLi = -0.0171/2 YRr = -.655 / 2 YRi = 0.0171/2 END IF PUT #1, , WLr PUT #1, , WLi PUT #2, , WRr PUT #2, , WRi PUT #3, , XLr PUT #3, , XLi PUT #4, , XRr PUT #4, , XRi PUT #5, , YLr PUT #5, , YLi PUT #6, , YRr PUT #6, , YRi NEXT CLOSE 1 CLOSE 2 CLOSE 3 CLOSE 4 CLOSE 5 CLOSE 6