= A5000:20: *** HELP V 1.3 *** I0:J0:K0:H1HO:V1VE:H2HG:V2VG:DMV16:R.999 18700!NO$(5,DM),SE(3,10),D$(3),M1$(9),M2$(9),PR$(7),X(8)/!18500: DATA LESENM!LI1 H12:LE$LE$" ":IY!VI0 3y!`NO$(I,0)"GRAPHIC "(I49)!jJ0 DM!tJ0 NO$(I,J)"*"!~J10 SE(I,J)0!J!I!S0$"(K)->DATA":S1$"(C)LEAR ":S2$"(W)RITE ""S3$"(G)RAPHIC":S4$" (X)MENUE"G"S5$" (M)EMORY":S6$" (D)ATA":S7$"SELECT"R"15000m" ------------ R,U,I,P|"18000:Z0"WE1:19000:IN88 15000"SE5 8000"WE4:J0:17800"Z2 2000"WE4:J0:17900"19400:IN88 15000 #SE5 8000#IN82 20007# ---- RECHNER R,U,I,PN#X(1)X(3)0 2410e# X(1)X(4)0 2420|# X(2)X(3)0 2430# X(2)X(4)0 2440#$ X(3)X(4)0 2450#` X(1)X(4)X(3)2:X(2)X(4)X(3):2050#j X(1)X(2)2X(4):X(3)X(4)X(2):2050&$t X(1)X(2)X(3):X(4)X(2)X(3):2050T$~ X(2)(X(4)X(1)):X(3)(X(4)X(1)):2050~$ X(2)X(1)X(3):X(4)X(3)2X(1):2050$ X(3)X(2)X(1):X(4)X(2)2X(1):2050$ ------------ f,L,C,R$ 18000:Z0$ WE1:19000:IN88 15000% SE5 8000% WE4:J5:17800$% Z2 30008% WE4:J5:17900Q% 19400:IN88 15000a% SE5 8000r% IN82 3000% ---- RECHNER f,L,C,R% K8(1): 2*Pi% X(1)X(3)0 3410% X(1)X(4)0 3420% X(2)X(3)0 3430% X(2)X(4)0 3440& X(3)X(4)0 3450D&H X(1)1(KX(3)X(4)):X(2)X(3)X(4)2:3050r&R X(1)X(4)(KX(2)):X(3)X(2)X(4)2:3050&\ X(1)1(K(X(2)X(3))):X(4)(X(2)X(3)):3050&f X(2)X(4)(KX(1)):X(3)1(KX(1)X(4)):3050'p X(2)1((KX(1))2X(3)):X(4)1(KX(1)X(3)):3050D'z X(3)1((KX(1))2X(2)):X(4)KX(1)X(2):3050_' ----------- f,Lambdan' 18000:Z0' WE1:19000:IN88 15000' SE5 8000' WE2:J4:17800' Z1 3500' WE2:J4:17900'tXX(1)2:19200'~:"Le/2= ";Y$;"m"(XX(1)4:19200*(:"Le/4= ";Y$;"m"A(X(2)2108 3800W(XX(1)58:19200n(:"5/8Le=";Y$;"m"(19400:IN88 15000(SE5 8000(IN82 3500(; --- RECHNER f,Lambda(<K3108: v(Licht)(FX(1)0 X(1)KX(2):3550)PX(2)KX(1):3550+) --------------- TIMEU)18000:Z0:D0:T10:VEV12:HO1:110x)"INPUT + - =":"(Nr.) hhmmss")"===============":)ZZ1)18100:210:SI$"")(IN$"+")(IN$"-")(IN$"=")4040)120:V3VE:SI$IN$:LE$ *SI$"=" 4220!*110:SI$;" ";D*"19500:((X$)6)(X0)4300W*,H((X$,1,2))j*6M((X$,3,2))}*@S((X$,5,2))*J(M59)((M)M)4300*T(S59)((S)S)4300*^19600*hSI$"+" 4350*rSI$"-" 4360*|(SI$"=")(T10)4500$+HO0:VEV3:110:LE$;:110:40409+T1T1X(1):4380L+X(1)T1 4300[+T1T1X(1)y+HO0:VEV3:110:LE$:110+0NO$SI$" "D$(3)" "D$(0)":"D$(1)"."D$(2)+:NO$:HOH12:VEV3:110+DX(1)T1:19610,N"SUM = ";D$(0);":";D$(1);".";D$(2),XHO0:VEV1:1103,bZDM1 NO$(3,Z)NO$J,l:VEV3:110:4030k,VEV3:110:" ========",X(2)0 "Day : ";X(2),NO$"SUM = "D$(0)":"D$(1)"."D$(2),NO$:NO$(3,DM)NO$, HO0:VEV1:110:" COPY to MEM" -" Nr.(1..3) ?"::::'- WE3:19000:IN88 150007-*SE5 8000W-4(IN49)(IN51)(D1)4000x->I1 DM:NO$(IN49,I)"*":I-HI1 DM2-RIZ 4710-\NO$(IN49,I)NO$(3,I)-fI-pZDM2 NO$(IN49,DM1)D$(3)" INPUT's".zNO$(IN49,DM)NO$(3,DM)#." COPY to MEM";IN48;"O.K."5.Z0:D1:4640P. --------------- DAYS[.18000y.WE1:19000:IN88 15000.SE5 8000.HO0:VE2:110:"INPUT DATE".J1 2.VEJ3:HO2:110.">DDMMYY<". VEJ31:HO1:110/LE$:110/19500:(X$)6 5130./(D((X$,1,2))A/2M((X$,3,2))T/<Y((X$,5,2))o/O ---- KONTROLLE DATUM/PY((Y))5130/Z(M1)(M12)5130/d(D1)(D31)5130/n(D30)((M4)(M6)(M9)(M11))5130/x(D29)(M2)51300(D28)(M2)(Y4(Y4))5130:0X(3)D:X(4)M:X(5)Y:19700S0HO0:110:LE$;:110n0 ---------- WOCHENTAG0SE$"000031059090120151181212243273304334"0NO$"SUNMONTUEWEDTHUFRISAT"0XY365(Y4)((SE$,M32,3))D1(M2)(Y4(Y4))XX11X(J)X:YX(X7)731D$(3)(NO$,Y31,3)V1J;D$(0);".";D$(1);".19";D$(2)n1HOH12:110:D$(3)1HO0:VEJ3:110:LE$1J1 -------- ZEITABSTAND1X(2)X(1)50001"::" DAYS :";(X(2)X(1))2,:" HOURS :";(X(2)X(1))242619000:IN88 15000*2@SE5 800042J5000O2o -------------- dB-NpZ2p18000z2zK3(1):K11(10):K2(K3)2K600:K7.001: 600 Ohm, 1mW (Fernmeldetechnik)2K5(K7K):K6(K7K): U,I fuer 600 Ohm2HO1:VE3:1103"INPUT :"::"(1) U (V)":"(2) I (A)">3"(3) P (W)":"(4) dB":"(5) Np"\38WE5:19000:IN88 15000m3BIN13 60003LLIN48:SE5 80003V18800:L3 65003`I0:WE1:JL:178003j17900:FE0 6230319400:IN88 150003SE5 80004IN82 62304KK5:K820:L2 KK634L3 KK7:K810N4 ------ RECHNER U,I,Ph418800:VE3:HO1:1104 M1$(L1);" = ";Y$;M2$(L1)4SR(((XK)K1K8)100.5)100:3004:" = ";SR$;" dB"4(SR(((XK)K2K820)100.5)100:300!52:" = ";SR$;" Np"::" for 600 Ohm":5<19400:IN88 15000J5FSE5 8000[5PIN82 6230e5Z6000|5dVE3:HO1:110:X05n"INPUT ";5xK910:SE$"dB":K8205L5 K9K3:SE$"Np":K815SE$::193505 ------ RECHNER dB/Np 6X(K9(K4K8))K5:192006"U = ";Y$;"V"<6X(K9(K4K8))K6:19200O6"I = ";Y$;"A"p6XK9((K4)K8):19200:67506X(K9(K42K8))K7:192006::"P = ";Y$;"W"6XK9((K4)2K8):19200:67506"19400:IN88 150006,SE5 800076IN82 6230 7@60007^FE2 >7hSRY:300:"FAKTOR (";SE$;") ="M7r(SR$,5);f7|K0 " *10^";K3;l77W -------- HEX <-> DEZ7X180007bT1$"DEZ":T2$"HEX"7l"(1) ";T1$;" --> ";T2$7v"(2) ";T2$;" --> ";T1$7"(3) ";T1$;" from DATA"8" ";T2$;" to MEMORY"88"(4) ";T2$;" from MEM"S8" ";T1$;" to DATA"q8WE4:19000:IN88 150008SE5 80008ZIN48:IN13 70008Z 7200,7300,7400,7500819400:IN88 150008SE5 80008IN82 7110870009 18800: DEZ->HEX+9*T1$;:19500:SE(3,1)XO94WE1:K3:L3:7600:7700:18800g9>T1$;" =";SE(3,1):9HT2$;" = ";:NO$(3,1)9R918800: HEX->DEZ9T2$;:19500:NO$(3,1)X$9WE1:K3:L3:7700:7600:188009T2$;" = ";NO$(3,1)::T1$;" =";:SE(3,1):-:18800: DATA->MEMX:T1$:"from DATA 1..3 ";:7550:KIN49:T1$:"to MEMORY 1..3 ";:7550:LIN49:WE10:7600::L18800: MEM->DATA:VT2$:"from MEM 1..3 ";:7550:LIN49;`T1$:"to DATA 1..3 ";:7550:KIN49;jWE10:7700;t*;} INPUT Nr.?;~18100:200:210Y;(IN49)(IN51)7550f;IN48:; --- WANDLER DEZ->HEX;NO$"0123456789ABCDEF";I1 WE:HX$"";J((SE(K,I))):SE(K,I)J SE(K,I)J;J0 HX$"*":7670 <N(J(J16)16)1!<HX$(NO$,N,1)HX$<<J15 J(J16):7640M<NO$(L,I)HX$T<IZ< u< --- WANDLER HEX->DEZ<I1 WE<HX$NO$(L,I):N(HX$)<(J0:N0 J0:7820<2M1 N<<R((HX$,M,1))r"NAME ";NO$(I,0):181007>|HO7:110:NO$NO$(I,0):NO$Q>NO$"" NO$NO$(I,0)b>NO$(I,0)NO$}> --------- DATAPUNKTE> 600:FR1:280:CN0> L1(V11):K1L2> MMAMI:MLK(MDMI)KML>& VEL:HO0:620:VEK:630?0 H3110:HOH3:V3K(SE(I,1)MI)KML,?: VEV3:620:VEML:630Q?D VEV3:HOH31H1:VEKL VEKLs?N SR$"0":650:VEV3:HOH3:630?l J2 10:SE(I,J)0 8360?v H3JR10:HOH3:V3K(SE(I,J)MI)KML? V3K V3K? VEV3:630:VEML:630@ VEV3:HOH31H1:HOR HOHO1H1.@ SR$(J47):650:HOH3:6305@ JS@ HO0:VEML:620:HOR:630n@ --------------- TEXT@ D0:VEMLL:HO0:SR$MD$:650@ SR$MA$:VEL:HO0:650@ SR$MI$:VEK:650@ SR$"** "NO$(I,0)" **":VE0A HO(H1(SR$))(2H1):650:200-A!NO$"DATA "(I49)" "S4$S6$HA !VER:HO0:SR$NO$:650cA3! ------------ BLINKENA4!CN1:SR$">>":VER:HO12H1:650:CN0A>!SD10:450:IN13 8200AH!IN88 15000AR!(IN68)(D0) 8600:8500A\!650:18100:8500 B! ---- DATA in GRAPHIC-B!CN1:HO0:VER:SR$NO$:650IB!CN0:SR$(NO$,18):650VB!J1 10jB!SRSE(I,J):300B!SR$(J47)" "SR$B!HO.52H1:VE(2J)L:650B!JB!HO.5:VE15L:SR$"MIN = "MI$:650B!VE16L:SR$"MAX = "MA$:650C!VE17L:SR$"MID = "MD$:6506C!VE18L:SR$"SUM = "SU$:650DC"SRX:300fC"VE19L:SR$" n = "SR$:650pC"D1:C'# -------- DATA ZEIGENC(#I0 2C2#18200C<#SR$"DATA "(I49)CF#VE0:HOH12:110:150CP#J1 10DZ#VEJ1:HOH121:110:(J47)-Dd#HOH121:110:SRSE(I,J):300:SR$4Dn#J^Dx#X1:MISE(I,1):MAMI:SUMI:MI0 X0kD#J2 10D#SE(I,J)0 9160D#XX1:SESE(I,J)D#SEMI MISED#SEMA MASED#SUSUSED#JD#DMAMI:HOH12:D0 9540 E#MDSUX:SRMI:300:MI$SR$"E$SRMA:300:MA$SR$9E$SRSU:300:SU$SR$PE$SRMD:300:MD$SR$mE%VE13:110:"MIN = "MI$E&%VE14:110:"MAX = "MA$E0%VE15:110:"MID = "MD$E:%VE16:110:"SUM = "SU$ED%VE17:110:" n =";XEN%VEV13:SR$S0$:110:150FX%17000F%(X4)(D0)96209F%VEV1:SR$S3$:110:150SF%18100:SE6:200:210fF%IN87 9800zF%IN67 18200F%(IN71)(X3)(D0)SEIF%IN75 9900F%IN13 I2F&IF &IN13 18200F&17100F &GG& --------- INPUT DATAGH&J1 10+GR&VEJ1:HOH121:110GG\&SRSE(I,J):300:NO$SR$WGf&18100:NO$lGp&NO$"" NO$SR$Gz&SE(I,J)(NO$)G&JG&IN13:II1G&G& ---------- KONSTANTEG&17100G&VEV13:110:"INPUT + or * K"G&VEV11:110:210H&(IN$"+")(IN$"*")9910AH&IN$;:HOH123:19500:X0 9910WH&IN$"+" K1:LXmH&IN$"*" KX:L0H&J1 10:SE(I,J)SE(I,J)KL:JH&II1:IN13H'H' ------------- MEMORYH'I0 2H'18200H$'SR$"MEMORY "(I49)I.'VE0:HOH12:110:150I8'J1 DM=IB'VEJ1:HOH122:110:NO$" "TIL'J11 NO$(J47)jIV'NO$;" ";NO$(I,J)qI`'J|Ij'17000It'18100:200:210I~'IN87 11000I'IN67 18200I'IN13 I2:IN0I'II'IN13 18200I'17100I'J* ----- INPUT MEMORYS"J*J1 DMOJ+VEJ1:HOH122:110:NO$"":18100:NO$gJ +(NO$)H12 11010|J+NO$"" NO$"*"J +NO$(I,J)NO$:110:" ";LE$J*+HOH12:110:NO$;J4+JJ>+18200:270:18100:II1:IN13JH+J. --------- SAVE FILE*K.VEV1:HO0:SR$"SAVE ":110:150:12900JK.HOH12:110:250:200:210jK.18700:NF$PR$(0):NF1:500vK/I0 5K/J0 DMK/SR$NO$(I,J):560K/JK/IK 0580:15000K0 --------- LOAD FILEK0VEV1:HO0:SR$"LOAD ":110:150L0HOH12:110:250:200:2100L81NF$PR$(0):NF0:500 REPEAT":" (ENT)--> O.K."XK19000:X+L ------------- INPUTX,LX0:X$"":120:110:" 0"X6L110:18100:X$Y@L(X$,H123)"" YJLX((X$,H125))YTL9YL ------ TIME-WANDLERPYLX(1)H3600M60SkYLK186400:K23600:K360YLX(2)(X(1)K1):X(6)X(2)K1YLX(3)((X(1)X(6))K2):X(7)X(3)K2YLX(4)((X(1)X(6)X(7))K3):X(8)X(4)K3ZLX(5)(X(1)X(6)X(7)X(8)):X(6)ZZLK3 61ZLSRX(K):300:D$(K3)SR$SZMX(K)10 D$(K3)"0"D$(K3)ZZMK`ZMzZWM -------------- ENDEZXM100ZbMI1 H11ZlMVE1:HOI:19950ZvMVEV11:HOH1I:19950ZMIV11 19870ZMVEI:HO1:19950[MVEV1I:HOH11:19950 [MI=[MHOH127:VEV12:SR$"1. HELP ! ":110:150f[MVEV121:SR$"2. RUN ...":110:150[MVEV15:SR$"Good bye !":110:150[MHO1:VE1:110:250:SD100:450[M950[M110:"*":[a "R","Ohm","U","V","I","A","P","W","Le","m"$\a "f","Hz","L","H","C","F","R","Ohm"X\a "HELP !","1 R-U-I-P","2 f-L-C-R","3 f-Lambda"\a "4 TIME","5 DAYS","6 dB-Np","7 HEX-DEZ"\} *-------------------*\ } ! Lutz Mueller !\} ! Leninallee 50 !\} ! O-2802 DOEMITZ !](} ! 26.05.1991 !.]2} ! ATARI 800 XE !J]<} !-------------------!f]F} !Wenn das Programm !]P} !gefaellt oder nicht!]Z} !schreiben Sie mir! !]d} *-------------------*]n}]x} Erstausstrahlung: Deutschlandsender Kultur^}-spezial 910821schreiben Sie mir! !]d} *-------------------*]n}]x} Erstausstrahlung: Deutschlandsender Kultur^}-