Ce programme sert à s'amuser. Au début vous devez indiquer le nombre d'ennemis et la vitesse d'avancement(en pixels). Ne choisissez pas plus que 99 ennemis et moins de que 46 pour la vitesse. Placer votre curseur sous un martien (carreaux) puis pressez la touche ENTER. Si vous l'avez touchez il disparaît. Il faut éviter qu'ils se rendent à la ligne inférieur de l'écran. Si vous avez tué tous les ennemis la calculatrice affichera BRAVO.
PROGRAM: MARTIEN
: Clrhome
: Input "NBR D'ENNEMIS:", w
: Input "VITESSE:", z
: 1®
XMIN
: 0®
yMIN
: 63®
XMAX
: 46®
yMAX
: 64®
XSCL
: 47®
ySCL
: SEQ(RANDINT(1,6),X,1,w,1)®
l5
: SEQ(RANDINT(15,65),X,1,w,1)®
l6
: PLOT(&,L5,L6,*)
: LBL 0
: INPUT
: VERTICAL X
: L6-Z ®
L6
: L6+999(L5=X) ®
L6
: IF SUM (L6<50)=0
: THEN
: DISP "BRAVO"
: STOP
: END
: IF SUM (L6<0)>0
: THEN
: DISP "PERDU"
: STOP
: END
: GOTO 0
&=2ND
STAT PLOT TYPE 1
*=2ND STAT PLOT MARK 1