?>2KAKHHABLHQHC(/LH4<S:,H7 >D+,2H78/L AH0\A8L2H/<9 VB"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"BBB()0O]X&L?M?0 S Z=FX(C*360,281,X,Y,X0,Y0)?M?)15.2,1.1,15.2?M?M;D 16?M?M?>GO? 2B%=BHHM<B,7HEG?BAB3!??B?2AAVC-8K FOCAL 1969?M2AHG\F2B-U0BLFXG
C-U>A5BAC DEMO FOCAL MIT GRAPH-OVERLAY  KV8L    STOEHREL 4.3.71?MBNBBC EXT. FUNCTIONS FSIN,FCOS WERDEN BENOETIGT?MBXBCS Z=FX(,6,,,,)?MB-BEF I=0,4;S Z=FDIS(3,-230+I,100);D 1.9?MCCBFF I=0,2;S Z=FDIS(2,-200+I,-50);D 1.95?MCOBHF N=1,400;S A=A+1?MCYBJS Z=FX(,6
,,,)?MC&BTS PI=3.141592;S A=0?MC,B^G 2.1?MDGCZT "SCHAETZEN SIE :",!,"ENTFERNUNG UND WINKEL !"?MD$C
T "DEMO 8K-FOCAL MIT DISPLAY",!!"STOEHREL MAERZ 71"?MD9DJS X=9;S Y=-305;S X0=9;S Y0=-350;D 16?MEGDTS X0=-9;S Y0=-305;D 16?METD^S X=-9;S Y=-350;D 16?ME"D(S X0=9;S Y0=-350;D 16?ME8FJS X0=212;S Y0=-90;S X=0;S Y=-305;D 16?MFIFTS X=X0+5;S Y=Y0+5;S C=1;D 17?MF
F^S X0=0;S Y0=-305;S X=50;S Y=-305;D 16?MF;F(S X=50*FCOS(45*PI/180);S Y=-305+50*FSIN(45*PI/180)?MGEF2S C=.125;D 17?MG"F<S Z=FDIS(2,100,-200);T "ENTFERNUNG =",!,"      300"?MG9GFS Z=FDIS(2,50,-300);T "WINKEL = 45 GRAD"?MHJTJS KX=FITR(2000*(FRAN()-.5))?MHYT
I (KX-540)10.3,10.3,10.1?MH"T^S KX=KX-270?MH3T(S KY=FITR(2000*(FRAN()-.5))?MIBT2I (KY-700)10.6,10.6,10.4?MIWT<S KY=KY-350;I (100+KY)10.4,10.4,10.7?MI1UFS X0=KX;S Y0=KY;S X=X0+10;S Y=Y0+10;S C=1;D 17?MI?UKS X=X0+3;S Y=Y0+3;D 17?MJRUPS X0=X0-10;S X=X0+20;S 
=Y0;D 16?MJ)UZS X0=KX;S Y0=KY-10;S Y=Y0+20;S X=X0;D 16?MKVJS Z=FDIS();A !"ENTFERNUNG
"S,"WINKEL
"W?MKJVTS X=0;S Y=-305?MK(V^S X0=S*FCOS(W*PI/180);S Y0=-305+S*FSIN(W*PI/180);D 16?MK9V(S X=X0+2;S Y=Y0+2;S C=1;D 17?MLSXJS DX=FABS(X0)-FABS(KX);S DY=FABS(Y0)-FABS(KY)?ML$XTI (FABS(DX)-3)12.3,12.3,12.4?ML5X^I (FABS(DY)-3)14.1,14.1,12.4?MMGX(I (FABS(DX)-10)
2.5,12.5,12.6?MMYX2I (FABS(DY)-10)14.2,14.2,12.6?MM2X<T !"DANEBEN !";S A=A+1;I (A-5)11.1,11.1,12.7?MNAYFT !"ZU SCHLECHT !!",!;Q?MNS\JT !!"AUSGEZEICHNET !",!;G 15.1?MN \TT !!"GUT !",!;G 15.1?MN9^JA !!"NOCHMAL 
 (JA)"W;I (W-0JA)15.2,1.1,15.2?MN=^TQ?MOL JS Z=FX(0,289,X,Y,X0,Y0)?M"JS Z=FX(C*360,281,X,Y,X0,Y0)?M[
Z8O
<(/B9J(<P+RZ(R8+H:J8HP<(+]K-"8;XXPS
+G"8+[ &K,	0//"8+[ &K,	0//=R,C,CVCDKA4J\4HD)>&\EJ??M?N=N9H\5]Q)?B1)?ABJ\C,C,C6CPD7TCO]M??V>[0BMVJE=CBNBGBCC
BJBMA?B.?A>?0A?OB??><?B0= =R=3?=?;?7?B PXQ-/M02HA\AAVPOTGEQM5D?E\E,R<UBKLGQT5Q-TUCBR"S0DKMOM[P]G$GP2WVU41015=0=5U:Z0W!>H

Note: Lines longer than 256 characters were wrapped