10  HGR : POKE  -16302,0
15  GOSUB 200: REM  background
20 D1 = 70:D2 = 77:D3 = 80
30  DEF  FN FX(A) =  COS(D) *Z
40  DEF  FN FY(A) =  SIN(D) *Z
50  FOR D = 0 TO 6.28  STEP 0.01
55  HCOLOR= 4
60 Z = 60: GOSUB 100
80  NEXT D
90  PRINT  CHR$(4);"-jewel-draw2"
100 X =  FN FX(1):Y =  FN FY(1)
110  HPLOT 140,96 TO 140 -X,96 -Y
120  RETURN 
200  HCOLOR= 6
210  FOR Y = 0 TO 191  STEP 4
220  FOR X = 0 TO 279  STEP 8
230  HPLOT X,Y TO X +3,Y
240  NEXT X,Y
250  FOR Y = 2 TO 191  STEP 4
260  FOR X = 3 TO 276  STEP 8
270  HPLOT X,Y TO X +3,Y
280  NEXT X,Y
290  RETURN