10 ' Wandering Through Space
20 ' By Julian Smalley 30 ' AMSTRAD ACTION January 1987 40 MODE 0:INK 15,26:DEFINT a-z 50 DEG:INK 0,0:BORDER 0 60 FOR f=1 TO 360 STEP 6 70 p=INT(RND*(14)+1) 80 FOR z=30 TO 320 STEP INT(RND*(5)+1)+5 90 PLOT 320+z*SIN(f),250+z*COS(f),p 100 p=p+1:IF p=15 THEN p=1 110 NEXT:NEXT:FOR y=1 TO 100 STEP 2 120 MOVE 1,y 130 DRAW 640,y,0:NEXT:MOVE 1,1 140 DRAW 1,399,15:DRAW 639,399,15 150 DRAW 639,1,15:MOVE 1,1 160 DRAW 1,100,15:DRAW 639,100 170 DRAW 639,1:DRAW 1,1:MOVE 20,20 180 DRAW 20,80,15:DRAW 100,80,15 190 DRAW 100,20,15:DRAW 20,20,15:p=1 200 FOR x=24 TO 98 STEP 4:MOVE x,22 210 DRAW x,50,p:DRAW x,78,(15-p) 220 p=p+1:IF p=15 THEN p=1 230 NEXT:MOVE 120,20:DRAW 120,80,15 240 DRAW 200,80,15:DRAW 200,20,15 250 DRAW 120,20,15:p=1 260 FOR y=22 TO 78 STEP 2:MOVE 124,y 270 DRAW 160,y,p:DRAW 198,y,(15-p) 280 p=p+1:IF p=15 THEN p=1 290 NEXT:p2=7:p=1 300 FOR f=1 TO 360 STEP 25.714286 310 MOVE 260,50:DEG 320 DRAW 260+40*SIN(f),50+40*COS(f),p 330 PLOT 260+40*SIN(f),50+40*COS(f),15 340 MOVE 360,50:DEG 350 DRAW 360+40*SIN(f),50+40*COS(f),p2 360 PLOT 360+40*SIN(f),50+40*COS(f),15 370 p=p+1:IF p=15 THEN p=1 380 p2=p2+1:IF p2=15 THEN p2=1 390 NEXT:MOVE 420,20:DRAW 420,80,15 400 DRAW 480,80,15:DRAW 480,20,15 410 DRAW 420,20,15:FOR zx=1 TO 300 420 PLOT 424+INT(RND*(54)+1),22+INT(RND*(56)+1),INT(RND*(14)+1) 430 NEXT:MOVE 500,20:DRAW 500,80,15 440 DRAW 620,80,15:DRAW 620,20,15 450 DRAW 500,20,15:FOR p=1 TO 14 460 MOVE 504,50 470 DRAW 530,22+INT(RND*(56)+1),p 480 DRAW 560,22+INT(RND*(56)+1),p 490 DRAW 590,22+INT(RND*(56)+1),p 500 DRAW 618,50,p:NEXT 510 FOR f=1 TO 14:INK f,26:CALL &BD19 520 FOR d=1 TO 30:NEXT:CALL &BD19:INK f,0 530 NEXT:GOTO 510 |