Directory of image this file is from
This file as a plain text file
HEN 1490@@WH P3=126 @@WR PRINT CHR$(P3);@@W\ P9=P9+1@@W& IF P9<20 THEN 1540 @@W0 GOSUB 1100 @@W: P9=0 @@XD NEXT P1@@XN L=0@@XX X3=X2@@X" Y3=Y2@@X, RETURN @@Z$ IF P3<127 THEN 1720@@Z. P3=63@@Z8 PRINT CHR$(P3);@@[B RETURN @@\H ' CHARACTER DRAWER AT X,Y,S=SIZE,C=CHARACTER (+SCALING)@@\R RESTORE@@\\ FOR P0=0 TO C*14 @@\& READ P8@@\0 NEXT P0@@\: L=1@@]D FOR P7=1 TO 7@@]N READ P6@@]X IF P8=-1 THEN 1910 @@]] IF P8=-2 THEN 1930 @@]" GOSUB 1310 @@]' READ P8@@], NEXT P7@@]6 L=1@@^@ RETURN @@^J L=1@@^T GOTO 1895@@ P DATA 0,0,4,8,4,0,0,0,0,8,4,8,-1,-1 @@ S DATA 0,6,2,8,2,0,0,0,4,0,-1,-1,-1,-1 @@ W DATA 0,6,2,8,4,6,0,0,4,0,-1,-1,-1,-1 @@ Z DATA 0,8,4,8,2,4,4,4,4,0,0,0,-1,-1 @@ ] DATA 3,0,3,8,0,4,4,4,-1,-1,-1,-1,-1,-1 @@ ! DATA 4,8,0,8,0,5,2,5,4,3,2,0,0,0 @@ $ DATA 0,8,0,0,4,0,4,4,0,4,-1,-1,-1,-1 @@ ' DATA 0,8,4,8,0,0,-1,-1,-1,-1,-1,-1,-1,-1 @@ + DATA 0,4,4,4,4,0,0,0,0,8,4,8,4,4 @@ . DATA 4,0,4,8,0,8,0,4,4,4,-1,-1,-1,-1 @@ 1 DATA 0,0,4,8,-2,0,0,8,4,0,-1,-1,-1,-1@@ 5 DATA 2,0,2,4,4,8,-2,0,0,8,2,4,-1,-1@@ 7 DATA -1,-1 @@ > END@@ ?@@@@F$ GOSUB 1300 @@F) Y9=Y-I @@F. NEXT K @@F8 L=1@@F= X=-12@@GB Y=-36@@GG GOSUB 1300 @@GL FOR J=1 TO 24@@GQ L=0@@GV X=X(J) @@G[ Y=Y(J) @@G GOSUB 1300 @@G% NEXT J @@G( X=12 @@G) Y=-36@@G* L=0@@G+ GOSUB 1300 @@G/ GO TO 999@@IX FOR K=1 TO 12@@I] L=1@@I" X=X+1@@I' GOSUB 1300 @@I, L=0@@I1 Y=-36@@I6 GOSUB 1300 @@I; L=1@@J@ X=X+1@@JE GOSUB 1300 @@JJ L=0@@JO Y=36 @@JT GOSUB 1300 @@JY NEXT K @@J^ RETURN @@O' STOP @@QL ' INITIALIZATION @@QV PRINT@@Q PRINT CHR$(16);@@Q* P9=0 @@Q4 RETURN @@R0 ' QUIT PLOTTING@@0 @@O' END@@ ?@@<(*VH'> .GJC* INH.9@JD>P*8IR> .GK?H(?H.GQRINH-> +GK?H(> +GJBYNIE%:ID%:+YINJF< +OIE%:H^+Z8A> + IE%:H?H)> +\+]IN%:*VLI%:H +ZIDH(>(+(IE%5@P+.MWK?>(+.%3@HIN@%8!XJMW@%HJ?@.IINH-=H.HJE>(.J+Y@@@I@!?;?9?7?(JV!7K.W"WM:@INJD> +:: MW<(*,H'< *\%9%9YE&I*-H'> +<%9%9> +<%9YEIE%5@RH^YD% .G%9&J.HINJD<(+MJC>(+MMWH.< +M%9%9YD%9YE: ID< +GIE%5@Q+:H'> +<%3@I+:;@MWH.>(+<%9JE=@+ZJ@%2@(+:@"[!K!JB>(%.%3@O.HMWH(<(.FH'> +:%9%9<(+<YE%:H %:IE%5@PJA%:%2@C.F%9> $E@M/?JK?4?3%!%)IEYYIXH7P9> *2I@%::A% INJA> *2IY%5@Q:A% INJ@> E RESISTANCE,(R),OF THE CIRCUIT IN OHMS";\INPUT R @@H+ PRINT@@H, LPRINT "OPTION TO ANALIZE SERIES RESONANT CIRCUITS." @@H- LPRINT\LPRINT "CIRCUIT CAPACITANCE=";C;"MICROFARADS."@@H. LPRINT "CIRCUIT INDUCTANCE=";L;"MILLIHENRIES." @@H/ LPRINT "CIRCUIT RESISTANCE=";R;"OHMS."\LPRINT@@H0 C=C*.000001\ ' CHANGE 'C' TO FARADS... @@H5 L=L*.001 \ ' CHANGE 'L' TO HENRIES...@@H: GOSUB 825 \ ' CALULATE CIRCUIT SPEC'S... @@H? PRINT "DO YOU WANT A LIST OF CIRCUIT SPECS";\INPUT O$ @@ID IF O$="YES" THEN 585 @@II LPRINT "CIRCUIT SPECIFICATIONS."\LPRINT@@IJ GO TO 625@@IN LPRINT "RESONANT FREQUENCY,(FR),=";F;"HERTZ." @@IS LPRINT "REACTANCE OF 'L' OR 'C' =";X;"OHMS." @@IX LPRINT "CIRCUIT QUALITY,(Q),=";Q;"." @@I] LPRINT "BANDWIDTH,(BW),=";B;"HERTZ." @@I" LPRINT "LOWER EDGE OF THE BAND,(F1),=";F1;"HERTZ." @@I' LPRINT "UPPER EDGE OF THE BAND,(F2),=";F2;"HERTZ." @@I, LPRINT\LPRINT\LPRINT\LPRINT\LPRINT @@I1 PRINT "DO YOU WANT A GRAPH OF THE FREQUENCY RESPONCE"; @@I6 INPUT O$ @@I; IF O$="YES" THEN 640 @@I< GO TO 35 @@J@ LPRINT "FREQUENCY.","XL.","XC.","Z." @@JA LPRINT @@JE PRINT "HOW MANY POINTS DO YOU WANT FOR THIS GRAPH";\INPUT P @@JF L2=L @@JT PRINT "HIGHEST FREQUENCY TO BE CALCULATED=";\INPUT L1@@JY E=100*R\ 'SIMULATED VOLTAGE... @@J^ S=L1/P \ ' STEP FOR LOOP...@@J X1=L1\L=0\ ' FULL SCALE 'X'...AND PUT PEN DOWN...@@J( FOR X=1 TO L1 STEP S\ ' LOOP TO DRAW 'I' CURVE...@@J- A=2*I*X*L2\ ' INDUCTIVE REACTANCE... @@J2 B=1/(2*I*X*C)\ ' CAPACITIVE REACTANCE... @@J7 Z= SQR((ABS(A-B))^2+R^2) \ ' IMPEDANCE...@@J9 LPRINT X,A,B,Z @@J< Y=E/Z\ ' CURRENT WHEN F='X'... @@KA GOSUB 1450 @@KF NEXT X\ ' CONTINUE...@@KH LPRINT CHR$(12)@@KK LPRINT "'X' AXIS FOR FREQUENCY,'Y' FOR CURRENT." @@KP LPRINT\LPRINT\LPRINT\LPRINT\GO TO 975@@L4 @@L9 ' SUBROUTINE TO COMPUTE SPECS OF SERIES RESONENT CIRCUITS... @@L> F=1/(2*I*SQR(L*C))\ ' RESONENT FREQUENCY...@@MC W=2*I*F \ ' ANGULAR VELOCITY...@@MH X=W*L \ ' REACTANCE OF 'C' OR 'L' ...@@MM Q=X/R \ ' CIRCUIT QUALITY ...@@MR B=F/Q \ ' BANDWIDTH... @@MW F1=F-B/2 \ ' LOWER EDGE OF BAND... @@M\ F2=F+B/2 \ ' UPPER EDGE