DEMO -> Gráficos               

Geoff's next little entry will beautifully construct a high-rise city by moonlight, set against the starry reflections of the nearby river. It may take a little while to cement, but it is well worth the wait as an excellent graphics demo.

Paru sous forme de listing dans le magazine Amstrad Computer User Issue 84 : November 1991

Auteur : Geoff SHORT

Le listing, comme publiĂ© dans Amstrad Computer User, n'a pas le hasard dans la gĂ©nĂ©ration des lignes des toits. Le hasard peut ĂȘtre augmentĂ© en ajoutant une commande RANDOMIZE supplĂ©mentaire Ă  la ligne 40 :

AVANT :

40 RANDOMIZE TIME: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:PLOT RND*640,RND*270+128,2,0:NEXT:WINDOW 1,40,17,25:PAPER 1:CLS:PAPER 0:PEN 1

APRES :

40 RANDOMIZE TIME:RANDOMIZE RND: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:PLOT RND*640,RND*270+128,2,0:NEXT:WINDOW 1,40,17,25:PAPER 1:CLS:PAPER 0:PEN 1

Le programme ne fonctionne qu'avec du BASIC 1.1 parce que des paramÚtres supplémentaires sont utilisés dans quelques commandes PLOT et MOVE, mais il est possible de les modifier afin de faire fonctionner avec du BASIC 1.0 :
AVANT :

40 RANDOMIZE TIME: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:PLOT RND*640,RND*270+128,2,0: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:MOVE 0,g,2:FOR f=3 TO wid-4 STEP 2:IF RND>0.5 THEN PLOTR 2,0 ELSE MOVER 2,0

APRES :

40 RANDOMIZE TIME:RANDOMIZE RND: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: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:MOVE 0,g:FOR f=3 TO wid-4 STEP 2:IF RND>0.5 THEN PLOTR 2,0,2 ELSE MOVER 2,0