5 REM 3D graphics
7 REM by Antonino Porcino
10 DIM M(256)
20 FORT=0TO255:M(T)=184:NEXT
30 SCREEN2
60 FORY=35TO-35STEP-1
70 FORO=0TO255
75 X=(O+Y*4-128)/7
80 H=SQR(X*X+Y*Y)
90 IF H<>0THENZ=-SIN(H)/H
100 V=84+Y*2+Z*70
110 IFV>M(O)THEN V=M(O):GOTO 120
115 M(O)=V
120 PLOTO,V
130 NEXT:NEXT
