10 COLOR 8,2,2 20 SCREEN 2 30 X=2 40 C=20 50 S=C/2 60 Y=2 70 LINE (0,0)-(639,263),5,B 80 LINE (X,Y)-(X+S,Y+S),5 90 FOR I=0TO4 100 LINE (X,Y)-(639-X,Y),5 110 LINE (X+S,Y+S)-(639-X-S,Y+S),5 120 LINE (639-X,Y)-(639-X,263-Y),5 130 LINE (639-X-S,Y+S)-(639-X-S,263-Y-S),5 140 X=X+C 150 LINE (639-X+C,263-Y)-(X,263-Y),5 160 LINE (639-X-S+C,263-Y-S)-(X+S,263-Y-S),5 170 Y=Y+C 180 LINE (X,263-Y+C)-(X,Y),5 190 LINE (X+S,263-Y+C-S)-(X+S,Y+S),5 200 NEXT I 210 LINE (X,Y)-(X+S,Y+S),5 220 FOR I=0 TO 4 230 PAINT (320,132),RND(3)*7+1,5 240 PAINT (4,3),RND(5)*7+1,5 250 NEXT I 260 SCREEN 2 270 X=RND(5)*6+1 280 Y=RND(2)*5+2 290 FOR I=0 TO 4*PI STEP 0.02 300 E=RND(3)*8+1 310 A=SIN(X*I)*230+270 320 B=COS(Y*I/2)*100+120 330 C=SIN(X*I)*60+20 340 D=COS(Y*I/2)*60+20 350 F=COS(X*I)*230+270 360 G=SIN(Y*I/2)*100+120 370 LINE (A,B)-@(C,D),E,BF 380 LINE (F,G)-@(D,C),8-E,BF 390 NEXT I 400 COLOR 8,2,2 410 SCREEN 2 420 LINE (0,0)-(639,263),1,B 430 FOR I=0 TO 10 440 X=RND(4)*639 450 X1=RND(7)*639 460 Y=RND(2)*263 470 Y1=RND(8)*263 480 LINE (X,0)-(X1,263),1 490 LINE (0,Y)-(639,Y1),1 500 CIRCLE (X,Y),RND(5)*60+10,1 510 NEXT I 520 FOR N=0 TO 250 530 X=RND(4)*639 540 Y=RND(2)*263 550 PAINT (X,Y),RND(3)*7+2,1 560 NEXT N 570 COLOR 8,1,1 580 SCREEN 2 590 LINE (319,0)-(319,263),5 600 LINE (0,131)-(639,131),5 610 PAINT (0,0),6,5 620 PAINT (600,200),2,5 630 PAINT (0 ,200),7,5 640 PAINT (600, 0),5,5 650 FOR I%=0% TO 319% 660 I=I%+320 670 J%=(I%-INT(I%/20%)*20%+1%)*5 680 C%=INT(I%/80%)+1 690 C=C%+4 700 LINE (I%,10)-@(0,J%),C% 710 LINE (I ,141)-@(0,J%),C 720 NEXT I% 730 FOR I%=132% TO 263% 740 J%=(I%-INT(I%/12%)*12%+1%)*9 750 I=I%-132% 760 LINE (50,I%)-@(J%,0),1 770 LINE (369,I )-@(J%,0),3 780 NEXT I% 790 FOR I=0 TO1000 800 NEXT I 810 GOTO 10