CROC'TOUT! by Luís Godinho and Jean-Marc Odobez, May 1984, for CASIO PB-100 from https://archive.org/details/ord-poche-23/page/37/mode/1up

croc-tout.bas.txt

535 pas

2 PRINT "CROQ'TOUT !";:GOSUB 99
4 A=0:M=0:I=11:L=0:D=8
6 FOR B=11 TO 0 STEP -1
8 PRINT CSR A;"o";CSR B;">";
10 IF B\GEI;PRINT CSR I;"x";:IF A=I THEN 60
12 GOSUB 90:PRINT CSR B;"-";:GOSUB 90:IF A=B THEN 72
14 IF D>7 THEN 20
16 IF A=F THEN 50
18 PRINT CSR F;"$";
20 D=D+1:IF D=30;D=0:F=INT (RAN#*12)
22 G$=KEY:IF G$="P";A=A+1:M=M+1:IF A=B THEN 70
24 IF G$="Q";A=A-1:M=M-1
26 IF B=0;B=12:M=INT (RAN#*12)
28 IF B=M;I=INT (RAN#*12)
30 IF A<0;A=11
32 IF A>11;A=0
34 PRINT :NEXT B
50 E=INT (RAN#*31):M=M+E:D=8
52 J=F:IF F>5;J=F-3
54 PRINT CSR J;E;:GOSUB 90:GOTO 20
60 I=9:IF A\GE5;I=3
62 GOTO 74
70 PRINT CSR A-1;" ";
72 IF G$="W";M=M+5:GOTO 26
74 GOSUB 99:L=L+1:IF L\GE3;GOTO 78
76 PRINT " MORT N\DG ";L;:GOSUB 99:GOTO 22
78 PRINT "FINI !";:GOSUB 99
80 PRINT "SCORE=";M:GOTO 2
90 FOR Z=0 TO 8:NEXT Z:RETURN
99 FOR C=0 TO 200:NEXT C:PRINT :RETURN