10 REM KREISE.BAS  -  MALT DEN BILDSCHIRM VOLLER KREISE
16 REM
18 REM A.HERRMANN	29.11.83
20 REM
80 CTRLZ$=CHR$(&H1A)
84 ESC$=CHR$(&H1B)
100 XMIN%=0 : YMIN%=0 : XMAX%=159 : YMAX%=95
102 PON%=1 : POFF%=0
106 REM
110 CALL WINDOW(XMIN%,YMIN%,XMAX%,YMAX%)
120 X=(XMAX%-XMIN%)/2 : Y=(YMAX%-YMIN%)/2
122 X%=INT(X) : Y%=INT(Y)
130 PRINT CTRLZ$;ESC$;"A";CHR$(&H22)	: REM CLEAR SCREEN, CURSOR ON
132 INPUT "STOP NACH JEDEM DURCHLAUF (Y/N  E=ENDE) = ";C$
134 IF C$="E" GOTO 500
140 FOR D%=1 TO 20
150 PRINT CTRLZ$;ESC$;"A "		:REM CLEAR SCREEN, CURSOR OFF
160 FOR R%=1 TO 92 STEP D%
170 CALL CIRCLE(X%,Y%,R%,PON%)
180 NEXT R%
190 IF C$<>"Y" GOTO 200
192 D$=INPUT$(1)
194 IF D$="E" THEN D%=100
200 NEXT D%
210 GOTO 130
500 END
