ככה זה ניראה...
SKULL.BAS
קוד: בחירת הכל
10 REM SKULL
11 RANDOMIZE TIMER
20 SCREEN 1: CLS 0: C=2: PI=3.14159
30 DEF FN R(n)=INT(RND*n)+1
40 K=360: DIM S(K+1): DIM C(K+1)
50 FOR I=0 TO K: T=I*2*PI/K: S(I)=SIN(T): C(I)=COS(T): NEXT I
60 U=120: V=-60: D=2: N=7: A=70
70 FOR J=1 TO 40
80 FOR T=0 TO K*2
90 Z=A*C(((T*N)\D) MOD K)
100 X=U+Z*C(T MOD K): Y=V+Z*S(T MOD K)
110 E=X*X: R=SQR(E+Y*Y)
120 F=Y+K: G=SQR(E+F*F)
130 L=Y+60: I=X-120: H=SQR(I*I+L*L)
140 IF (G<=220 OR R<=K) AND (R<=380 OR R>=480 OR ABS(X)>=160 OR ABS(X MOD 32)<=4 OR R MOD 48<=4) AND (J<=1 OR H>=90) AND (Y<-300 OR Y>=-160 OR -X*2-Y<=180) THEN X=X/4: Y=200-((Y/5)+130): PSET (X+160,Y),C: PSET (160-X, Y),C
150 NEXT T
160 D=FN R(3): N=FN R(5)+2: A=FN R(80)+50: U=FN R(K): V=FN R(940)-520: C=15
170 NEXT Jאיך אפשר להריץ את הקובץ קוד הזה? באמצעות האמולטור PC-BASIC