1 |
- UB257
239IFJ%=1ANDLEN(T$)>0%H9%=VAL(LEFT$(T$,2)):M9%=VAL(RIGHT$(T$,4))
240FORI%=0%TO2%-J%
241ONERRORGOTO251
242ONJ%+1%GOSUB257,270
243;CUR(J%,30%+I%*3%);
244ONI%+1%GOTO245,246,247
245INPUTH9%:GOTO248
246INPUTM9%:GOTO248
247INPUTS9%
248POKE31774%+I%*3%+J%*128%,32%
249ONJ%+1%GOSUB267,254
250IFJ%=0%POKE65008%,Z%,Z1%,SWAP%(Z1%)
251NEXTI%
252POKE31774%+J%*128%,32%:NEXTJ%
253POKE65013,0:ONERRORGOTO0:RETURN
254S9%=0:GOSUB265:T$=H9$+'.'+M9$
255GOSUB267:Z9=(2%*Z)/100%-42%:RETURN
256GOSUB257:Z1=Z0:Z3=Z1+T%*30%:RETURN
257GOSUB259:;CUR(0%,31%);
258;H9$'.'M9$':'S9$:RETURN
259D%=0%:IF(PEEK(65008%)AND4%)=0%259
260FORI9%=0%TO2%:Z%(I9%)=255%XORPEEK(65008%+I9%):NEXTI9%
261Z$=ADD$(MUL$(NUM$(256%*Z%(2%)+Z%(1%)),'512',0%),NUM$(Z%(0%)*2%),0%)
262IFCOMP%(Z$,'8640000')>-1%D%=D%+1%:Z$=SUB$(Z$,'8640000',0%):GOTO262
263Z=INT(VAL(Z$)/100%):Z0=Z
264H9%=Z/3600%:Z=Z-3600*H9%:M9%=Z/60%:S9%=Z-60%*M9%
265H9$=RIGHT$(NUM$(100%+H9%),3%):M9$=RIGHT$(NUM$(100%+M9%),3%)
266S9$=RIGHT$(NUM$(100%+S9%),3%):RETURN
267Z=1.8E+5*H9%+3000*M9%+50*S9%:Z1=INT(Z/256%):Z1%=NOTZ1
268Z%=(NOT(Z-Z1*256))OR4%
269RETURN
270;CUR(1,18)"N[STA START: "T$;:RETURN
271IFE%=0%276
272POKE32512,215:FORI%=884TO930STEP2:R0%=PEEK(I%)+SWAP%(PEEK(I%+1))
273;#E%CHR$(18,27,65,8);
274A$='':FORK%=0TO39:A$=A$+CHR$(PEEK(R0%+K%)):NEXTK%
275;#E%A$:NEXTI%:;#E%CHR$(15,27,50);:POKE32512,32
276RETURN
277OPEN"IEC:"ASFILE1:;#1,'I1'
278RESTORE331:I$='IN;BAL;RS'+NUM$(R9%)+';OU OFF':GOSUB321:READI$(0)
279IFA%I$='IN;FU DB':GOSUB322:READI$(1)
280RETURN
281IFB%=136%K$=SUB$(K$,'.1',1%):GOSUB302
282IFB%=137%K$=ADD$(K$,'.1',1%):GOSUB302
283IFB%=156%I$='RS 50':GOSUB321
284IFB%=158%I$='RS 600':GOSUB321
285RETURN
286ONC%RESTORE349,354,349,354
287;CUR(8,0)'(F|rberedelse m{tn 1):'
288READN1$,N2$,N3%,T%,N4%
289IFRIGHT$(N1$,LEN(N1$)-1%)='E3'J$=LEFT$(N1$,LEN(N1$)-2%)+' k':I$='FR '+N1$:GOTO291
290J$=N1$+' ':I$='FR '+N1$
291J$=J$+'Hz '+N2$+' dBm '
292IF(N3%AND255%)N0$='OU ON'ELSEN0$='OU OFF':J$='Tonen avst{ngd '
293IFP1%295
294GOSUB196:IF(M%>0%ANDE%=3%);#3H9$'.'M9$' M'M%' 'J$;
295;CUR(9,0)J$SPACE$(10):I$=I$+';DB '+ADD$(N2$,K$,1)+';'
296I$=I$+N0$:GOSUB321:IFP1%301
297IF(SWAP%(N3%)AND255%)=1%I$='FI W'ELSEI$='FI BP'
298IFA%GOSUB322
299;N4$(N4%+N0%)CUR(16,0)SPACE$(120)
300IFE%;#E%LEFT$(N4$(N4%+N0%),12%)' ';:IFA1%=0%;#E%
301RETURN
302;CUR(7,0)'Niv}justering'
303RESTORE344:FORI3%=0%TO6%:READN$(I3%)
304N$(I3%)='DB '+ADD$(N$(I3%),K$,1%):NEXTI3%:RETURN
305IFM%=0%315
306FORI%=C6%TO2%*C6%:GOSUB196:OUT0%,3%-I%+O0%
307ONM%GOTO308,308,309,308,308,308,308
308I$='FU DB':W5%=32:GOTO310
309I$='FU THDDb':W5%=96%
310I$=I$+';ADDR 49152;BYTE'+NUM$(W5%):GOSUB322:GOSUB326
311A$=N5$(INSTR(1,'123',CHR$((B%AND127%)+32%)))+' '+N5$(I%+4)+' '+A$
312IFA1%;CUR(16+I%,0)A$
313IFE%;#E%TAB(42%)A$;
314NEXTI%
315RETURN
316;CUR(8,0)SPACE$(40)"1 kHz 0 dBm (PROVTON)"
317I$="FR 1E3;"+N$(3%+0%*C0%)+";OU ON":GOTO321
318OUT0,4:I$="FR"+NUM$(2500-N%*20)+";DB "+NUM$(VAL(RIGHT$(N$(O%),4%))+N%)+';OU ON':GOTO321
319I$='OU OF':GOTO321
320I$="OU ON"
321G%=0%:GOTO323
322G%=1%
323IFG%<>G0%GOSUB141
324CMDI$(G%),I$
325G0%=G%:GOSUB140:RETURN
326CMD,'FI?;FU?;SEN','5\'
327A$=IEC$(25)
328GOSUB140:RETURN
329DATA'','','',N,'H|rtfn!',Ks,'V+H i motfas',Sv
330DATA'Bilds{nd!',' ','Ton i V',V,'Ton i H',H
331DATA?U9,?U<
332DATA0,1,Kns,LJUD-M[TNING,50
333DATA1,1
334DATATV-L[NK,2,2,TV-S[ND,2,4,FM-L[NK,0,2,FM-S[ND,0,2,AVSLUT,0,0
335DATA'Niv} m m'
336DATANiv}
337DATADist
338DATASt|r
339DATA'Brus m m'
340DATAICN
341DATAFas
342DATASep
343DATA'Pilot m m'
344DATA-15,-12,-2,0,5,6,9
345DATA4,1,2,3,2
346DATA5,1,3,3,2,2
347DATA5,1,2,3,2,3
348DATA6,1,67,4,2,99,1
349DATA400,-2,1,10,0
350DATA40,-2,1,2,0,14.9E3,-2,1,2,0
351DATA40,6,1,5,0,400,6,1,5,0,4.9E3,6,1,5,0
352DATA400,0,1,2,0,400,0,256,3,2
353DATA400,-2,1,10,0,40,-2,1,4,0,14.9E3,-2,1,4,0
354DATA400,6,1,10,0
355DATA400,-2,1,2,0,40,-2,1,1,0,14.9E3,-2,1,1,0
356DATA400,6,1,2,0,400,6,256,3,0
357DATA400,6,1,10,4,400,6,256,3,0
358DATA40,6,1,5,0,40,6,2,4,3,4.9E3,6,1,5,0,4.9E3,6,2,4,3
359DATA40,-2,1,2,5,400,-2,1,2,5,14.9E3,-2,1,2,5
360DATA400,0,0,10,0
361DATA'Omg 1','Omg 2',Paus
362DATA19,19,5
363DATA26,26,30,26,26
364DATA27,27,5
365DATA33,33,0
Bgm SOVIM 870207
|