v+1
This commit is contained in:
Antoine Vignau
parent
049ceb570e
commit
df8c5735f1
Binary file not shown.
|
|
@ -161,17 +161,17 @@ REPLAY jsr initALL
|
|||
cmp #54
|
||||
beq :100_OK
|
||||
cmp #15
|
||||
bne :105
|
||||
bne :103
|
||||
|
||||
:100_OK ldx #2
|
||||
lda #1
|
||||
:100_OK lda #1
|
||||
sta P,x
|
||||
|
||||
:105 ldx #10
|
||||
:103 ldx #10
|
||||
lda O,x
|
||||
cmp SALLE
|
||||
beq :200
|
||||
cmp #1 ; LOGO - was -1
|
||||
* cmp #1 ; LOGO - was -1
|
||||
cmp #-1
|
||||
beq :200
|
||||
|
||||
jsr :2850
|
||||
|
|
@ -182,10 +182,10 @@ REPLAY jsr initALL
|
|||
|
||||
ldx #3
|
||||
lda C,x
|
||||
cmp #0
|
||||
cmp #1
|
||||
bcs :200
|
||||
lda P,x
|
||||
cmp #1
|
||||
cmp #2
|
||||
bcs :200
|
||||
|
||||
*:115 ldx #9
|
||||
|
|
@ -205,7 +205,7 @@ REPLAY jsr initALL
|
|||
|
||||
:2850 ldx #10
|
||||
]lp lda C,x
|
||||
bmi :2860
|
||||
* bmi :2860
|
||||
beq :2860
|
||||
dec C,x
|
||||
:2860 dex
|
||||
|
|
@ -277,51 +277,10 @@ REPLAY jsr initALL
|
|||
* 500 - ACCEPTATION COMMANDE
|
||||
*-----------------------------------
|
||||
|
||||
:500 jmp :510 ; LOGO
|
||||
|
||||
ldx #1
|
||||
lda C,x
|
||||
cmp #2
|
||||
bcc :501
|
||||
dec C,x
|
||||
|
||||
:501 ldx #2
|
||||
lda C,x
|
||||
cmp #2
|
||||
bcc :502
|
||||
dec C,x
|
||||
|
||||
:502 ldx #4
|
||||
lda C,x
|
||||
cmp #2
|
||||
bcc :503
|
||||
dec C,x
|
||||
|
||||
:503 ldx #6
|
||||
lda C,x
|
||||
cmp #2
|
||||
bcc :504
|
||||
dec C,x
|
||||
|
||||
:504 ldx #10
|
||||
lda O,x
|
||||
cmp SALLE
|
||||
beq :505
|
||||
cmp #-1
|
||||
bne :510
|
||||
|
||||
:505 ldx #3
|
||||
lda C,x
|
||||
cmp #2
|
||||
bcc :510
|
||||
dec C,x
|
||||
|
||||
*---
|
||||
|
||||
:510 lda #1
|
||||
:500 lda #1
|
||||
sta T
|
||||
lda #0
|
||||
sta N
|
||||
* lda #0
|
||||
* sta N
|
||||
jmp :1000
|
||||
|
||||
:550 jsr :2850
|
||||
|
|
@ -569,12 +528,11 @@ tbl1500 da :1500,:1510,:1520,:1530,:1540
|
|||
|
||||
:1520 ldx N
|
||||
lda O,x
|
||||
bpl :1525
|
||||
* cmp SALLE
|
||||
* bne :1525
|
||||
cmp SALLE
|
||||
bne :1525
|
||||
rts
|
||||
:1525 cmp SALLE ; #-1
|
||||
bne :1527
|
||||
:1525 lda O,x ; #-1
|
||||
bpl :1527
|
||||
rts
|
||||
:1527 lda #1
|
||||
sta OK
|
||||
|
|
@ -595,8 +553,6 @@ tbl1500 da :1500,:1510,:1520,:1530,:1540
|
|||
|
||||
:1540 ldx N
|
||||
lda P,x
|
||||
* cmp #1
|
||||
* bne :1545
|
||||
beq :1545
|
||||
lda #1
|
||||
sta OK
|
||||
|
|
@ -2181,9 +2137,9 @@ Z ds 1
|
|||
lenSTRING ds 1
|
||||
TEMPS ds 2 ; le temps = 5000
|
||||
|
||||
C ds 21+1
|
||||
C ds 41+1
|
||||
E$ ds 32 ; the longest string
|
||||
P ds 21+1
|
||||
P ds 41+1
|
||||
X$1 ds 4+1 ; premier mot saisi
|
||||
X$2 ds 4+1 ; second mot saisi
|
||||
|
||||
|
|
|
|||
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,67 @@
|
|||
E
|
||||
E
|
||||
E
|
||||
PRENDRE SEAU
|
||||
O
|
||||
O
|
||||
O
|
||||
D
|
||||
O
|
||||
PRENDRE SABLE
|
||||
E
|
||||
PRENDRE BARQUE
|
||||
PRENDRE BOUTEILLE
|
||||
RAME
|
||||
POSER BARQUE
|
||||
E
|
||||
E
|
||||
N
|
||||
N
|
||||
PRENDRE DELTA
|
||||
S
|
||||
S
|
||||
O
|
||||
O
|
||||
O
|
||||
LANCER SABLE
|
||||
O
|
||||
N
|
||||
N
|
||||
ENTRER TRAITEUR
|
||||
VENDRE DELTA
|
||||
SORS
|
||||
O (PRENDRE MAILLET ?)
|
||||
S
|
||||
ENTRER MEDECIN
|
||||
PRENDRE ASPIRINE
|
||||
AVALER ASPIRINE
|
||||
PRENDRE MASQUE
|
||||
METS MASQUE
|
||||
CASSER BOUTEILLE
|
||||
PRENDRE DEBRIS
|
||||
SORS
|
||||
ENTRER CHAUSSEUR
|
||||
ACHETER ESPADRILLES
|
||||
SORS CHAUSSEUR
|
||||
E
|
||||
S
|
||||
ENTRER TAILLEUR
|
||||
ACHETER ROBE
|
||||
SORS TAILLEUR
|
||||
E
|
||||
E
|
||||
PRENDRE BROCHE
|
||||
POSER ESPADRILLES
|
||||
ENTRER TEMPLE
|
||||
O
|
||||
PRENDRE BOMBE
|
||||
E
|
||||
O
|
||||
DELIVRER FILLE
|
||||
DONNER VETEMENTS
|
||||
S
|
||||
E
|
||||
E
|
||||
S
|
||||
CREUSER MUR
|
||||
>> FIN
|
||||
Binary file not shown.
|
|
@ -1,8 +1,8 @@
|
|||
0 GOTO 8900
|
||||
1 REM
|
||||
10 HOME
|
||||
19 DIM S(21): REM POINTEURS
|
||||
REM S(1)=ITEM INVENTAIRE (5 MAX)
|
||||
19 DIM P(21): REM POINTEURS
|
||||
REM P(1)=ITEM INVENTAIRE (5 MAX)
|
||||
20 DIM C(21): REM COMPTEURS
|
||||
30 SALLE = 1
|
||||
40 DIM P$(2)
|
||||
|
|
@ -11,12 +11,12 @@ REM S(1)=ITEM INVENTAIRE (5 MAX)
|
|||
70 PO(X) = Q(X)
|
||||
80 NEXT X
|
||||
100 REM ********* (Affichage Salle 1) **********
|
||||
101 S(2)=0
|
||||
102 IF SALLE=10 OR SALLE=22 OR SALLE=54 OR SALLE=15 THEN S(2)=1
|
||||
101 P(2)=0
|
||||
102 IF SALLE=10 OR SALLE=22 OR SALLE=54 OR SALLE=15 THEN P(2)=1
|
||||
103 IF O(10)=SALLE OR O(10)=1 THEN 200
|
||||
105 GOSUB 2850 : REM 110 IF C(2) THEN C(2) = C(2) - 1
|
||||
110 IF S(2) = 0 THEN 200
|
||||
120 IF C(3) > 0 OR S(3)>1 THEN 200
|
||||
110 IF P(2) = 0 THEN 200
|
||||
120 IF C(3) > 0 OR P(3)>1 THEN 200
|
||||
130 PRINT "Il fait trop sombre pour voir quelque "
|
||||
135 PRINT "chose...":PRINT "peut etre faudrait-il allumer"
|
||||
150 GOTO 1000
|
||||
|
|
@ -127,11 +127,11 @@ REM ACTIVE SI OBJET NN INVENTAIRE (4) "D"
|
|||
2935 RETURN
|
||||
|
||||
REM ACTIVE SI POINTEUR NN >0 (5) "E"
|
||||
2940 OK = (S(N) < > 0)
|
||||
2940 OK = (P(N) < > 0)
|
||||
2945 RETURN
|
||||
|
||||
REM ACTIVE SI POINTEUR NN =0 (6) "F"
|
||||
2950 OK = (S(N) = 0)
|
||||
2950 OK = (P(N) = 0)
|
||||
2955 RETURN
|
||||
|
||||
REM ACTIVE SI COMPTEUR NN =1 (7) "G"
|
||||
|
|
@ -188,13 +188,13 @@ REM INVENTAIRE (1) "A"
|
|||
|
||||
REM PREND (2) "B"
|
||||
4100 OK=0
|
||||
4110 IF S(1) < 5 THEN 4140
|
||||
4110 IF P(1) < 5 THEN 4140
|
||||
4120 PRINT "Vous ne pouvez porter plus."
|
||||
4130 OK=1
|
||||
4135 RETURN
|
||||
4140 IF PO(N) = - 1 THEN 4180
|
||||
4150 PO(N) = - 1
|
||||
4160 S(1) = S(1) + 1
|
||||
4160 P(1) = P(1) + 1
|
||||
4170 RETURN
|
||||
4180 PRINT "Vous l'avez deja."
|
||||
4190 GOTO 4130
|
||||
|
|
@ -204,7 +204,7 @@ REM POSE (3) "C"
|
|||
4210 PRINT "Vous n'avez pas ";O$(N)
|
||||
4220 GOTO 5110
|
||||
4240 PO(N) = SALLE
|
||||
4250 S(1) = S(1) - 1
|
||||
4250 P(1) = P(1) - 1
|
||||
4260 PRINT "D'acccord."
|
||||
4270 RETURN
|
||||
|
||||
|
|
@ -229,11 +229,11 @@ REM MESSAGE (4) "D"
|
|||
4320 RETURN
|
||||
|
||||
REM ACTIVE LE POINTEUR N (5) "E"
|
||||
4400 S(N) = 1
|
||||
4400 P(N) = 1
|
||||
4410 RETURN
|
||||
|
||||
REM DESACTIVE LE POINTEUR N (6) "F"
|
||||
4500 S(N) = 0
|
||||
4500 P(N) = 0
|
||||
4510 RETURN
|
||||
|
||||
REM FIXE LE COMPTEUR (-) NN A MM (7) "G"
|
||||
|
|
@ -253,7 +253,7 @@ REM POSE OBJET NN DANS LA SALLE EN COURS (9) "I"
|
|||
4810 RETURN
|
||||
|
||||
REM MET LE NO DE SALLE CONTENANT L OBJET NN A 0 (10) "J"
|
||||
4900 IF PO(N) < 0 THEN S(1) = S(1) - 1
|
||||
4900 IF PO(N) < 0 THEN P(1) = P(1) - 1
|
||||
4910 PO(N) = 0
|
||||
4920 RETURN
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue