Ce programme sert jouer à Bataille Naval. Au début vous devez entrer la largeur et la longueur du champ de bataille. Ensuite ce sera le nombre de bateaux et leurs longueurs ou grandeurs. Et puis vous devez attendre pendant le chargement jusqu'à ce que le programme aie placée tous les bateaux. Pendant le jeux vous devez placer le curseur sur le carreaux que vous voulez toucher. Si il noircit la case aux complet c'est un coup touché; sinon il restera un point aux centre.
PROGRAM: NAVAL
:
CLRLIST L6,L5,L4
: 0®L4(1)
: 0®L5(1)
: FNOFF
: PLOTSOFF
: CLRDRAW
: CLRHOME
: INPUT "LARGEUR:",T
: 1®XMIN
: T+1®XMAX
: IF XMAX>21
: STOP
: INPUT "HAUTEUR:",T
: -Tx46/41-1®YMIN
: -1®YMAX
: IF YMIN<-16
: STOP
: DISPGRAPH
: FOR(Z,1,XMAX)
: VERTICAL Z
: HORIZONTAL -Z
: END
: INPUT "NBR DE BATEAUX:",Z
: FOR(Y,1,Z)
: INPUT "LONGEUR:",X
: X®L6(Y)
: END
: IF SUM L6>T(XMAX-1)
: STOP
: CLRHOME
: DISP "CHARGEMENT"
: SORTD(L6)
: FOR(Z,1,DIM L6)
: DISP Z
: RANDINT(1,2)®V
: IF V=1
: THEN
: RANDINT(1,T)®X
; FOR(W,Y,L6(Z)+Y-1)
: W®L5(DIM
L5+1)
: X®L4(DIM
L4+1)
: END
: ELSE
: RANDINT(1,XMAX-1)®Y
: RANDINT(1,T-L6(Z)+1)®X
: FOR(W,X,L6(Z)+X-1)
: Y®L5(DIM
L5+1)
: W®L4(DIM
L4+1)
: END
: END
: FOR(Y,DIM L5-L6(Z)+1,DIM L5-L6(Z))
: IF L4(Y)=L4(X)
: THEN
: IF L5(Y)=L5(X)
: THEN
: DIM L5-L6(Z)®DIM
L5
: DIM L5®DIM
L4
: Z-1®Z
: 99®Y
: 99®X
: END
: END
: END
: END
: END
: -L4®L4
: SORTD(L5,L4)
: SUM L6®DIM
L5
: SUM L6®DIM
L4
: 0®T
: LBL 1
: INPUT
: IPART X®X
: IPART Y®Y
: PT-ON((2X+1)/2,(2Y-1)/2)
: ((X=L5)>1)+((Y=L4)>1)®L6
: IF MAX(L6)>2
: THEN
: SORTA(L6,L5,L4)
: FOR(Z,X,X+1,DX)
: LINE(Z,Y,Z,Y-1)
: END
: IF DIM L5=1
: THEN
: DISP "BRAVO"
: STOP
: END
: DIM L5-1®DIM
L5
: DIM L5®DIM
L4
: END
: GOTO 1