DEMO -> Graphik               

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