10 '**** 3D COLOUR ANIMATION! ****
20 '**** BY PETER BOWERS 1986 **** 50 ' 60 ' 70 ON BREAK GOSUB 130 80 MODE 0:INK 0,0:INK 14,24:INK 15,6:BORDER 7 90 REM *** PLOT STARS *** 100 FOR a=16 TO 624 STEP 30 110 R=RND(1)*50:r1=RND(1)*50:r2=RND(1)*50 120 FOR b=0 TO 480 STEP 2 130 PLOT a,b-r,b/4 MOD 13+1 140 PLOT a+10,b-20-r1,b/3 MOD 13+1 150 PLOT a+20,b-40-r2,b/2 MOD 13+1 160 NEXT b,a 170 GOSUB 320 180 REM *** PRINT INFRONT OF STARS *** 190 FOR p=1 TO 4 STEP 2 200 LOCATE 3,10+p:PEN 15:PAPER 14:PRINT"SCROLLING STARS*" 210 NEXT p 220 REM *** SCROLL UP *** 230 FOR s=0 TO 40 240 FOR a=1 TO 13:INK a,26:CALL &BD19:INK a,0:NEXT 250 NEXT 260 REM *** SCROLL DOWN 270 FOR s=0 TO 40 280 FOR a=13 TO 1 STEP -1:INK a,26:CALL &BD19:INK a,0:NEXT 290 NEXT 300 GOTO 230 310 CALL &BC02:MODE 2:PAPER 0:LIST 320 FOR a=0 TO 16:PLOT 0,a,14:DRAWR 640,0,14:NEXT 330 FOR a=18 TO 384:PLOT 0,a,15:DRAWR 16,0,15 335 PLOT 640,a,15:DRAWR -16,0,15:NEXT 340 FOR a=386 TO 400:PLOT 0,a,14:DRAWR 640,0,14:NEXT 350 RETURN |