10 LINE=49152
20 HARDCOPY=49155
30 CLEAR=49158
40 SYS CLEAR
45 T=200:LX=-2688
50 FORX=-2700TO2700STEP5
60 Y=X*SIN(2*(null)*X/T)
70 Y=Y/6
75 IF X=-2700 THEN LX=X:LY=Y
80 SYS LINE,1,480+Y,2750+X,480+LY,2750+LX
90 LX=X:LY=Y
100 NEXT
110 FORT=30TO930STEP60
120 SYS LINE,1,T,50,960-T,5500
130 NEXT
140 FORT=50TO5500STEP109
150 SYS LINE,1,0,T,959,5550-T
160 NEXT
170 PRINT"DRUCKEN"
180 SYS HARDCOPY,5500