teracom_teksan_dc3.bin 4.0 KB

1
  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