10 SCREEN 5:SET PAGE 0,0
30 FOR K=0 TO 50:CIRCLE(127,106),K,K/4:NEXT
40 COPY(77,56)-(177,156),0 TO (10,10),1,PRESET:L$=INPUT$(1)
50 SET PAGE 1,1:L$=INPUT$(1)
60 SET PAGE 0,0:L$=INPUT$(1)
70 GOTO 50