10 ' ---=== City Skyline ===--- --== by Geoff Short 1991 ==--
20 ' -*- New York -*- London -*- 30 ' -*- Guisborough -*- 40 DEFINT a-z:MODE 1:BORDER 3:INK 0,1:INK 1,0:INK 2,12:INK 3,25:PAPER 0:CLS:FOR f=0 TO 50:RANDOMIZE TIME:PLOT RND*640,RND*270+128,2:NEXT:WINDOW 1,40,17,25:PAPER 1:CLS:PAPER 0:PEN 1 50 FOR build=1 TO 12:GOSUB 100:FOR g=RND*3 TO hi-8 STEP 4:PLOT 0,g,2:FOR f=3 TO wid-4 STEP 2:IF RND>0.5 THEN PLOTR 2,0 ELSE MOVER 2,0 60 NEXT f,g,build:FOR build=1 TO 24:GOSUB 100:FOR g=RND*3 TO hi-8 STEP 4:FOR f=3 TO wid-4 STEP 2:IF RND>0.5 THEN PLOT f,g,3:IF RND>0.5 THEN PLOT f,g/-2,2 70 NEXT f,g,build 80 ORIGIN 0,0,0,640,0,400:FOR e=0 TO 1:FOR f=1 TO 120:RANDOMIZE TIME:PLOT RND*640,f,e:FOR g=0 TO 2*(RND*20):PLOTR 4,0:NEXT g,f,e:PLOT 0,132,1:DRAWR 640,0:PLOT 0,130:DRAWR 640,0 90 PRINT CHR$(7);:WHILE INKEY$="":WEND:SAVE"!skyline",b,&C000,&4000:END 100 RANDOMIZE TIME:hi=4*(RND*50+6):wid=8*(RND*10+3):x=8*RND*((640-wid)/8):ORIGIN x,128,x,x+wid,128-hi/2,128+hi:CLG 1:RETURN |