5 REM
6 REM DEMO1 - SCHNECKE
7 REM (C)1985 BY A.DEL PINO
8 REM
10 &CLEAR
15 D=(null)/120:DX=400:DY=276
16 SX=400/240:SY=276/240
20 FORI=0TO4*(null)STEP(null)/60
30 X1=SIN(I)*DX:Y1=COS(I)*DY
35 X2=SIN(I+D)*DX:Y2=COS(I+D)*DY
36 X1=X1+400:X2=X2+400:Y1=Y1+276:Y2=Y2+276
40 &LINE400,276,X1,Y1
50 &LINEX1,Y1,X2,Y2
60 &LINEX2,Y2,400,276
70 DX=DX-SX:DY=DY-SY
75 PRINT".";
80 NEXT
90 &PRINT:END