10 IF A=0 THEN A=1:LOAD"ECR - PLOT",8,1
100 REM ------------------------------
110 REM -- ECR-MODE EXAMPLE         --
120 REM ------------------------------
130 REM -- DAS PROGRAMM E.C.R.-PLOT --
140 REM -- IST NICHT FUER DEN       --
150 REM -- BASIC-EINSATZ GEDACHT,   --
160 REM -- DA DIE RECHENINTENSIVE   --
170 REM -- ROUTINE DIE ZEROPAGE VER---
180 REM -- AENDERT.                 --
190 REM -- DAHER IST DIESES BEISPIEL--
200 REM -- PROGRAMM NACH EINEM 'RUN'--
210 REM -- NICHT MEHR LISTBAR.. .   --
220 REM -- AUSSERDEM SOLLTE DER     --
230 REM -- E.C.R GRAPHIKBILDSCHIRM  --
240 REM -- (VON $4000 BIS $7FFF)    --
250 REM -- 'VON HAND' GELOESCHT     --
260 REM -- WERDEN (Z.B. MIT EINEM   --
270 REM -- MASCHINENSPRACHE-MONITOR)--
280 REM -- IN BASIC HAETTE DIES ZU  --
290 REM -- LANGE GEDAUERT.. .       --
300 REM -- ICH SCHAETZE MAL 15-20MIN--
310 REM --                          --
320 REM -- UEBRIGENS! DER E.C.R.    --
330 REM -- MODE 'FRISST' WAHNSINNIG --
340 REM -- VIEL RECHENZEIT (CA 70%) --
350 REM -- - LASSEN SIE DAS PRG MAL --
360 REM -- BEI AUSGESCHALTETEM      --
370 REM -- ECR-MODE LAUFEN.. .      --
380 REM --                          --
390 REM --                SERVUS..  --
400 REM ------------------------------
410 READF
420 PNT=49152
430 POKE 53280,0:POKE 53281,0
440 SYS 49155
450 FORR=10TO50STEP.5
460 XK=50:YK=100
470 FOR X=-RTO0
480 Y1=2*SQR(R*R-X*X)
490 Y2=-Y1
500 ZX=XK+X:X2=XK-X
510 Z1=YK+Y1
520 Z2=YK+Y2
530 SYS PNT,ZX,Z1,F:SYS PNT,X2,Z1,F
540 SYS PNT,ZX,Z2,F:SYS PNT,X2,Z2,F
550 NEXTX
560 READF:IFF=-1THEN RESTORE:GOTO560
570 NEXTR
580 DATA 9,11,8,12,15,1,1,13,3,14,4,6,-1