1! " D E C K Y "
2  CURS OFF:GOSUB CTVEREC
3DEG ON:CY=1:CURS OFF
8 CLSG 85:CLSG0:CLSG 255:CLSG 1:CLSG 15:CLSG 127:CLSG
10 SCALE -1,1,-1,1
11 DATA 2,2,2,1,2,24,0,1
12 DATA 18,1,2,1,12,2,2,1
13 DATA 8,12,1,1
15 DATA 4,11,0,2
16 DATA 3,20,1,1
17 DATA 5,15,0,2,2,34,1,1
18  DATA 12,2,2,1,2,18,0,2
19 DATA 0,0,0,0
20 READ N,D,PEN,UH:IF D=0 THEN RESTORE:CY=1:GOTO 20
21 !ZNOVA
23 CLSG
24 MOVE .4,-1:LABEL 2,1;"TEST":MOVE -.95,.8:LABEL1,2;"SHARP"
30 A=180/N:BE=180/N
35 KROK=360/N/UH
40 FOR G=0 TO 359 STEP KROK
50 X=SIN(G):Y=COS(G):U=0:V=0
60 W=SIN(G-BE):Z=COS(G-BE):GOSUB PROG
70 X=SIN(G):Y=COS(G):U=0:V=0
80 W=SIN(G+BE):Z=COS(G+BE):GOSUB PROG
81 NEXT G
83 MOVE -.95,-95:LABEL3,4;"V 5"
84 MOVE -.95,.75:LABEL 2,3;"TEST ";CY:CY=CY+1
85 MOVE .8,.9:LABEL2,2;"    "
86 MOVE .4,-1:LABEL 2,1;"          "
87 MOVE -.95,.95:LABEL 2,3;"    "
88 MOVE .4,.75:LABEL 2,1;"GRAFIKY"
89 MOVE .3,-1:LABEL2,1;"BASIC ":LABEL 3,2;"5":MOVE-.95,-1:LABEL3,4;"   "
91 FOR I=1 TO 5000:NEXT
99 GOTO 20
100END
110 PROC PROG
111 MOVE X,Y
120 FOR A=D TO 1 STEP -1
130 PLOT X,Y,255;U,V,HEX(5F);W,Z,HEX(55)
132 IF PEN =1 THEN MOVE X,YELSE PLOT X,Y,HEX(11)
135 IF D>6 THEN MOVE X,Y
140 X0=X:Y0=Y:X=X-(X-U)/A:Y=Y-(Y-V)/A
145 U=U+(W-U)/A:V=V+(Z-V)/A
150 W=W+(X0-W)/A:Z=Z-(Z-Y0)/A
160 NEXT A
170 RETURN
190  PROC CTVEREC
195 CLSG
200  DRAW"M260,110,255"
205  FOR I=2 TO 180  STEP 4
207 J=I+I
210   DRAW"LJ:UI:RJ:DI:S4,-2"
215  NEXT
217 MOVE 200,100:LABEL 4,3;"TEST"
218 FOR I=1 TO 1000:NEXT
220  RETURN