10 CLS 0:SCRN 4,0:COLOR 2:CURS 255,120:PLOT 0,120
20 COLOR 3:FOR I=0 TO 255:PLOT I,SIN(I/10)*100+120:NEXT
30 FOR I=255 TO 0 STEP -1:PLOT I,COS(I/10)*100+120:NEXT
40 COLOR 2:FOR I=0 TO 255:PLOT I,SIN(I/10)*100+120
50 PLOT I,COS(I/10)*100+120:NEXT:A$=INPUT$(1)
60 CLS 8:SCRN 4,0:COLOR 2:CURS 255,120:PLOT 0,120
70 COLOR 3:FOR I=0 TO 255:PLOT I,SIN(I/81)*100+120:NEXT
80 FOR I=0 TO 255:PLOT -I+255,COS(I/81)*100+120:NEXT
90 FOR I=0 TO 255:Y=TAN(I/81)*10+120:IF Y<0 THEN Y=0
100 IF Y>255 THEN Y=255
110 PLOT I,Y:NEXT:A$=INPUT$(1)
120 CLS 0:SCRN 4,0:COLOR 3
130 CURS 50,50:PLOT 49,201:PLOT 201,201:PLOT 201,49:PLOT 49,49
140 FOR I=50 TO 190 STEP 10:CURS 125,125:COLOR 0:PLOT 50,I
150 CURS 125,125:COLOR 1:PLOT 50,I+10:FOR J=0 TO 900:NEXT:NEXT
160 FOR I=50 TO 190 STEP 10:CURS 125,125:COLOR 0:PLOT I,200
170 CURS 125,125:COLOR 1:PLOT I+10,200:FOR J=0 TO 900:NEXT:NEXT
180 FOR I=50 TO 190 STEP 10:CURS 125,125:COLOR 0:PLOT 200,-I+250
190 CURS 125,125:COLOR 1:PLOT 200,-I+240:FOR J=0 TO 900:NEXT
200 NEXT
210 FOR I=50 TO 190 STEP 10:CURS 125,125:COLOR 0:PLOT -I+250,50
220 CURS 125,125:COLOR 1:PLOT -I+240,50:FOR J=0 TO 900:NEXT:NEXT