1 CALL INIT
    2 CALL CSILLAG
 1000 DEF LG_SPIRAL
 1010   CALL INIT
 1020   FOR X=0TO16*PISTEP.1
 1030     PLOT 75*LOG(X+.9)*SIN(X)+607,75*LOG(X+.9)*COS(X)+414;
 1040   NEXT 
 1050 END DEF 
 1060 DEF EXP_SPIRAL
 1070   FOR X=0TO8*PISTEP.1
 1080     PLOT 3*1.2^X*SIN(X)+607,3*1.2^X*COS(X)+414;
 1090   NEXT 
 1100 END DEF 
 1200 DEF SUJTAS
 1220   FOR X=0TOPI/2+.04STEP.01
 1230     PLOT -100*SIN(10*PI*X)+600*X+100,100*COS(5*PI*X)+414;
 1240   NEXT 
 1250 END DEF 
 1300 DEF CSAVAR
 1310   FOR X=-1TO13*PI+1STEP.2
 1320     PLOT 50*COS(X)+25*X+100,80*SIN(-X)+414;
 1330   NEXT 
 1340 END DEF 
 8170 DEF INIT
 8180   SET VIDEOCOLOR0
 8190   SET VIDEOMODE1
 8200   SET VIDEOX38
 8210   SET VIDEOY24
 8220   OPEN #101:"video:"
 8230   SET PALETTE0,255
 8240   DISPLAY AT1FROM1TO24
 8250   LET MAX_Y=828
 8260   LET MAX_X=1214
 8270 END DEF 
 8600 DEF CIKLOISZ
 8610   LET RX,RY=1
 8620   IF RX<=.5THENLET ST=8
 8630   IF RX=1ANDRX>.5THENLET ST=4
 8640   IF RX>1THENLET ST=2
 8650   FOR X=0TOST*PISTEP.1
 8660     PLOT 85*RX*(X-SIN(X)),103*RY*(1-COS(X))+414;
 8670   NEXT 
 8680 END DEF 
 8690 DEF SZIVGORBE
 8700   LET RX,RY=1
 8710   FOR X=0TO2*PISTEP.1
 8720     PLOT 80*RX*(2*COS(X)-COS(2*X))+607,75*RY*(2*SIN(X)-SIN(2*X))+414;
 8730   NEXT 
 8740 END DEF 
 8750 DEF CSILLAG
 8760   LET RX,RY=1
 8770   FOR X=0TO2*PISTEP.1
 8780     PLOT 193*RX*COS(X)^3+607,207*RY*SIN(X)^3+414;
 8790   NEXT 
 8800 END DEF