1717474416

pas une de plus !

Dans cette nouvelle rubrique, nous vous invitons ó mettre votre imagination et votre talent a rude epreuve. II s'agit; en effet, d'ecrire de tout petits programmes de 7 O lignes maximum (comme vous l'avez compris si vous suivez bien...), dans n'importe quel langage (Amos, CE A, C, Assembleur, E, Lisp, Prolog....). Ces programmes pourront etre des petites demos, de minuscules utilitaires, ou bien n'importe quoi, le principal etant qu'ils ne depassent pas 10 lignes.

En attendant vos collaborations, dont les meilleures seront publiees et recompensees, voici la selection du mois. Je vous invite a un voyage spatial delirant, et si cela ne vous suffit pas pour vomir votre pizza, un tunnel de la mort viendra tout de suitę apres. Mais ne vous inquietez pas, si vous passez trop de temps sur ces demos, une horloge saura vous rappeler 1'heure du cours de math, et si ce n'est pas suffisant, vous pourrez zoomer dessus.

(notę : l'osterisque indique le debut de chaque Ugnę, ne pas le taper).

Voyage spatial

Ce petit programme mousse costaud va generer un champ d'etoiles. Le pas vous est demande au debut, plus il est petit, plus ęa prend du temps, mais plus c'est beau... Enfin, pendant que les etoiles defilent, vous pouvez bouger le joystick vers le haut ou vers le bas pour changer la direction des etoiles. Formidable, quel beau programme.

SPACE GENERATOR

Written by Aaron McCormick

Mis en 10 Lignes par E. Cappannelli pour Dream

♦Screen Open 0,640,200,2,Hires : Curs Off : Cis 0 : Hide On : Paper 0 : Ink 1,0 : Colour 1,$FFF : Degree

♦Repeat : Locate 2,20 :    Input "Entrez un nombre

entre 1 et: 20.    ";_STEP$ : _STEP«Val(_STEP$)

: Until _STEP>0 and _STEP<21 : Curs Off :    PAT-

TER$-"Temps restant    : Text 16,190,PATTER$ :

Text 450,190,*359"

♦Screen Open 1,320,200,32,Lowres : Screen Hide 1 : Curs Off : Cis 0 : Flash Off : For CHANGECO-LOUR-2 To 31    :    Colour CHANGECOLOUR,$0    :    Next

CHANGECOLOUR : Colour 1,$FFF

*For ANGLE = 0 To 359 Step _STEP : X#=Sin(ANGLE) : Y#=Cos(ANGLE) :    SPEED# *1+(120♦Rnd(80))*0.001)    :

POT= 1 Rnd (30)    :    Repeat :    Ink POT :    Plot

X#-*160, Y# *100 : X# -X# * SPEED# : Y#=Y#*SPEED# : Inc POT : If POT>31 : POT-1 : End If

♦Until X#>160 or X#<-160 or Y#>100 or Y#<-100 : TIME$*Str$(359 -ANGLE)- *    *    :    ZERO$»“* :    For

TIMES■1 To 3 - Len(TIME$) : If Len(TIME$)<3 : ZERO$ = ZERO$* *0* : End If : Next TIMES : ZERO$-ZERO$+TIME$ : TIME$=ZERO$ : Screen 0 : Text 450,190,TIME$ : Screen 1

*Next ANGLE

♦Screen Open 0,320,200,32,Lowres : Curs Off : Cis 0 : Flash Off : Get Palette 1 : Shift Up 1,1,31,1 : YCOPIER-100 :    For XCOPIER«159 To 0 Step 1 :

Dec YCOPIER :    Screen Copy 1,XCOPIER,YCOPIER,319-

XCOPIER,199-YCOPIER To 0,XCOPIER,YCOPIER :    Wait

Vbl

*Next XCOPI ER :    Do :    If Joy(l)=l :    Shift Up

1.1.31.1    :    Elsę :    If Joy(l)=2 :    Shift Down

1.1.31.1    : End If : End If : Loop

Le tunnel de la mort

Le premier but de ce programme n'est pas de faire vomir, mais attention l'abus de tunnel peut etre dangereux pour la sante... II faut attendre une bonne minutę avant de voir 1'effet se lancer, alors profitez-en pour finir votre choucroute...

FANTASTIC FLIGHT

rebaptisć : "Le tunnel de la vie de ta mort"

Written by

Aaron McCormick on Thursday 31st march 1994 mis en 10 lignes par : E. Cappannelli pour Dream

DREAM - N*25 - |ANViER 1996