10  SCREEN1:PAUSE10
 20  GCLS:PAUSE10
 30  CIRCLE(150,100),90:PAUSE10
 40  CIRCLE(150,100),30:PAUSE10
 50  LABEL"Z9001-GRAFIK":PAUSE20
 60  PAUSE
 100 SCREEN1
 101 SCRENN0:GOTO100