Le premier système informatique que j'ai eu la joie de posséder fut un Casio PB-100, doté de l'option mémoire étendue (1568 pas de mémoire, contre 544 en version de base, waouh!), en 1985.
J'ai naturellement écrit un nombre certain de programmes entre 1985 et 1988, tous des jeux naturellement, qui devraient également fonctionner sur le PB-200 et le PB-80, et peut-être d'autres (mais je ne peux rien garantir, bien sûr).
Certains de ces programmes -les jeux de rôle en particulier- sont accompagnés de cartes et accessoires divers que je ne peux malheureusement pas publier pour l'instant, mais je m'efforcerai d'être clair dans les explications!
Enfin, n'étant plus actuellement en possession d'un PB, certains listings étant assez jaunis, l'encre ayant passé et/ou bavé, et du fait que j'écris comme un chat, il se peut que des fautes de syntaxe se glissent de ci de là! Surtout, prévenez-moi. Et si vous avez un PB-100 ou 200 à vendre, sachez que je suis preneur.

Blade Runner(594 pas)
Jean Bon 000(706 pas)

Blade Runner (594 pas)


Le jeu consiste à poursuivre un ennemi invisible contrôlé par l'Ordinateur sur une grille de 20 pas de large par 30 de haut et à l'abattre en connaissant seulement la distance qui vous en sépare. A chaque tour vous vous déplacez dans une direction G, D, H, B (respectivement pour aller vers la gauche, la droite, le haut et le bas, OK?) de 6 pas au maximum, puis vous tirez si vous le souhaitez en répondant "OUI" à la question "tir?". Si vous êtes sur la même ligne horizontale ou verticale que le réplicant, vous gagnez. Vous partez avec 12 coups seulement; et vous n'avez que 10 tour pour abattre chaque réplicant, mais chaque réplicant vaincu vous permet de recharger...

Variables: N, meilleur score; X, Y, coordonnées du joueur; V,W, coordonnées du réplicant; Z, score courant; B, nombre de balles; V, nombre de vies; I, J, nombre de tours

1 N=20
2 X=20 : Y=30 : V=INT(RAN#*20) : W=INT(RAN#*30) : Z=0 : V=4 : J=0 : B=12
5 PRINT "BLADE RUNNER" : PRINT
6 FOR I=0 TO 10
10 PRINT "A VOUS" , "X=" ; X , "Y=" ; Y : INPUT "DIR." , A$ ; "N° DE PAS" , B$
12 IF B>6 ; B=6
13 IF A$="G" ; X=X-B
14 IF A$="D" ; X=X+B
15 IF A$="H" ; Y=Y-B
16 IF A$="B" ; Y=Y+B
17 IF X>20; X=20
18 IF Y>30 ; Y=30
19 IF X<0 ; X=0
20 IF Y<0 ; Y=0
21 PRINT "X=" ; X; " Y=" ; Y ; " D=" ; SQR((X-V)^2 + (Y-W)^2)
22 INPUT "TIR" , A$; IF A$="OUI" ; IF X=V ; GOTO 100
23 IF A$="OUI" ; IF Y=W ; GOTO 100
24 D=INT(RAN#*5) : IF X>=V ; V=V-D
25 IF X<V ; V=V+D
26 IF Y>W ; W=W-D
27 IF Y<=W ; W=W+D
28 J=J+1 : NEXT I
29 V=V-1 : IF V=0 THEN 500
30 B=12 : GOTO 6
100 IF B>0 ; B=B-1 : V=INT(RAN#*20) : W=INT(RAN#*30) : Z=Z+(J+2)*10 : PRINT "***Touché! Bravo!"
105 GOTO 6
500 PRINT "Game Over" , "Score :" ; Z : IF Z>N ; N=Z : PRINT "***BEST***"
505 GOTO 2

Jean Bon 000 (706 pas)


Ce jeu est le pendant du précédent : sur une grille de 20 pas par 30, vous devez échapper au poursuivant contrôlé par l'Ordinateur; partant du coin inférieur droit du terrain, vous devez atteindre le coin supérieur gauche (le siège de l'ONU...) pour gagner. Si votre poursuivant est suffisament éloigné vous avez en plus un bonus.
Si l'ennemi est sur la même ligne que vous, il vous tire dessus et vous perdez une vie. S'il arrive sur la même case que vous ou que vos vies sont épuisées, vous avez perdu.
Bonne chance!

1 N=20
2 X=20 : Y=30 : V=19 : W=0 : Z=0 : U=3
10 PRINT "Jean Bon 000" : PRINT
15 PRINT "A vous", "X=" ; X ; " Y=" ; Y : INPUT "Dir." , A$ ; "Combien de pas" , B$
16 IF B>5 ; B=5
17 IF A$="G" ; X=X-B
18 IF A$="D" ; X=X+B
19 IF A$="H" ; Y=Y-B
20 IF A$="B" ; Y=Y+B
21 IF X>20 ; X=20
22 IF X<0 ; X=0
23 IF Y>30 ; Y=30
24 IF Y<0 ; Y=0
25 IF X=0 ; IF Y=0 THEN 500
26 PRINT "X=" ; X ; " Y=" ; Y
28 PRINT "A moi" , "X=" ; V ;" Y=" ; W : D=INT(RAN#*5)
30 IF X>V ; V=V+D
31 IF X<V ; V=V-D
32 IF Y>W ; W=W+D
33 IF Y<W ; W=W-D
34 IF V<0 ; V=0
35 IF V>20 ; V=20
36 IF W<0 ; W=0
37 IF W>30 ; W=30
38 IF V=X ; IF W=Y THEN 1000
39 IF V=X THEN 100
40 IF W=Y THEN 100
41 PRINT "X=" ; V ; " Y=" ; W
45 GOTO 15
100 PRINT "***Je tire..." : U=U-1 : X=20 : Y=30
101 IF U=0 THEN 1000
102 GOTO 15
500 PRINT "BRAVO!! Vous êtes arrivé " ; "à l'ONU" : Z=Z+10
501 X=20 : Y=30 : IF V>3 ; IF W>5 ; Z=Z+5
502 V=20 : W=0 : PRINT "score : " ; Z : GOTO 15
1000 PRINT "Game Over ......... score :" ; Z ; " " : IF Z>N ; N=Z : PRINT "*** BEST ***"
1001 GOTO 2