mirror of
https://github.com/antoinevignau/source.git
synced 2024-10-31 22:06:40 +00:00
723 lines
26 KiB
QBasic
723 lines
26 KiB
QBasic
20 REM CLEAR 300,-16385
|
|
30 PRINT "DISKLOAD CODE"
|
|
35 CALL -16384: POKE&"47FD",0
|
|
40 GOSUB 7600
|
|
45 INIT0,0: TX3,0,0: PRINT: PRINTSPC(10)"VEUILLEZ PATIENTER"
|
|
50 GOSUB 8000: REM CHARGEMENT VARIABLES
|
|
51 GOSUB 7500
|
|
55 MODEMN: INIT0,0: TX0,0,0
|
|
57 DIM P(12): P(11) = 0: P(12) = 0
|
|
60 SALLE = 1
|
|
70 FOR N = 1 TO 10
|
|
80 P(N) = 0: C(N) = 0
|
|
85 NEXT N
|
|
90 C(3) = 14: C(7) = 12: C(1) = 80: C(9) = 12
|
|
100 IF SALLE <> 14 AND SALLE <> 16 AND SALLE <> 17 AND SALLE <> 19 THENP(2) = 0
|
|
105 IFP(2) = 0 THEN 200
|
|
106 IFO(22) = SA AND P(7) = 1 THEN 200
|
|
107 IFO(05) = SA AND P(3) = 1 THEN 200
|
|
110 IFC(9) > 1 THEN C(9) = C(9)-1
|
|
130 MODEMC: MODEMN
|
|
140 HTAB 1: VTAB 18: PRINT "Il fait noir comme dans un four!"
|
|
145 PRINT "Il faudrait peut etre allumer."
|
|
150 GOTO 500
|
|
|
|
200 REM DESCRIPTION SALLE
|
|
210 MODEMN: MODEMC: REM cadre+zone+dessin
|
|
215 DEST = SALLE
|
|
220 GOSUB 6900
|
|
230 MODEMD
|
|
300 H = 0: N = 1
|
|
310 IF O(N) <> SALLE THEN 400
|
|
320 IF H = 1 THEN 350
|
|
330 MODEML: PRINT "Il y a dans la salle: ": MODEMW,10
|
|
340 H = 1
|
|
350 MODEML: PRINT " ";O$(N);
|
|
360 MODEMW,25
|
|
400 N = N + 1
|
|
410 IF N <= O THEN 310
|
|
415 MODEML: PRINT
|
|
|
|
500 REM ACCEPTATION COMMANDE
|
|
510 T = 1: Y$(1) = "": Y$(2) = "": N = 0
|
|
520 GOTO 1000
|
|
530 IF C(7) > 1 AND P(7) = 1 THEN C(7) = C(7) - 1
|
|
540 IF C(3) > 1 AND P(3) = 1 THEN C(3) = C(3) - 1
|
|
545 IF C(4) > 1 AND P(4) = 1 THEN C(4) = C(4) - 1
|
|
547 IF C(5) > 1 THEN C(5) = C(5)-1
|
|
550 X$ = "": INPUT "Que faites vous ";X$
|
|
560 MODEMN: PRINT ">";X$
|
|
570 GOSUB 6000
|
|
580 MODEML: IF MO(1) = 0 THEN PRINT "Je ne comprends pas...": MODEMW,50: GOTO 500
|
|
|
|
900 REM CONTROLE Mvt
|
|
905 MODEMI,SALLE
|
|
910 IF PEEK(-4) = 0 THEN 980
|
|
920 SALLE = PEEK(-4): GOTO 100
|
|
980 T = 0
|
|
990 A1 = 0
|
|
|
|
1000 REM CONTROLE
|
|
1010 NL = 0
|
|
1100 NL = NL + 1
|
|
1110 IF T = 0 THEN 1150
|
|
1120 E$ = C$(NL)
|
|
1130 GOTO 1400
|
|
1150 MODEMA: NL = PEEK(-33)
|
|
1151 IF PEEK(-32) = 0 THEN 1159
|
|
1152 AD = -32: E$ = ""
|
|
1153 IF PEEK(AD) = 255 THEN 1400
|
|
1154 E$ = E$ + CHR$(PEEK(AD)): AD = AD + 1
|
|
1155 GOTO 1153
|
|
1159 PY = 23: CO = 12
|
|
1160 IF A1 = 1 THEN 500
|
|
1170 MODEML: PRINT "Impossible ";
|
|
1180 IF MO(1) < 10 THEN PRINT "de prendre ce chemin";
|
|
|
|
1190 PRINT "!": MODEMW,100: GOTO 100
|
|
|
|
1400 REM CONDITIONS
|
|
1410 E = 1
|
|
1420 IF MID$(E$,E,1) = "." THEN 1700
|
|
1430 LI = ASC(MID$(E$,E,1))-65
|
|
1440 N = VAL(MID$(E$,E+1,2))
|
|
1450 ON (LI+1) GOSUB 1500,1510,1520,1530,1540,1550,1560,1570,1580
|
|
1460 IF OK = 0 THEN 1100
|
|
1470 E = E + 3: GOTO 1420
|
|
1500 IF N = SALLE THEN 1590
|
|
1505 GOTO 1585
|
|
1510 IF O(N) = -1 OR O(N) = SALLE THEN 1590
|
|
1515 GOTO 1585
|
|
1520 IF O(N) <> SALLE AND O(N) <> -1 THEN 1590
|
|
1525 GOTO 1585
|
|
1530 IF O(N) = -1 THEN 1590
|
|
1535 GOTO 1585
|
|
1540 IF P(N) = 1 THEN 1590
|
|
1545 GOTO 1585
|
|
1550 IF P(N) = 0 THEN 1590
|
|
1555 GOTO 1585
|
|
1560 IF C(N) = 1 THEN 1590
|
|
1565 GOTO 1585
|
|
1570 IF INT(RND(1)*99+1) < N THEN 1590
|
|
1575 GOTO 1585
|
|
1580 IF N <> SALLE THEN 1590
|
|
1585 OK = 0: RETURN
|
|
1590 OK = 1: RETURN
|
|
|
|
1700 REM ACTIONS
|
|
1705 E = E + 1: A1 = 1
|
|
1710 IF MID$(E$,E,1) = "." THEN 1100
|
|
1720 LI = ASC(MID$(E$,E,1))-65
|
|
1730 IF MID$(E$,E+1,1) <> "." THEN N = VAL(MID$(E$,E+1,2))
|
|
1740 BREAK = 0
|
|
1750 ON (LI+1) GOSUB 1800,1900,2000,2100,2200,2300,2400,2500,2600,2700,2800,2900,3000,3100,3200,3300
|
|
1760 IF BREAK > 0 THEN ON BREAK GOTO 100,300,500,530,20000
|
|
1780 E = E + 3
|
|
1790 GOTO 1710
|
|
1800 G = 0: HH = 0
|
|
1810 G = G + 1
|
|
1820 IF O(G) = -1 THEN 1840
|
|
1830 IF G < O THEN 1810
|
|
1835 GOTO 1870
|
|
1840 MODEML: IF HH = 0 THEN PRINT "Vous detenez: "
|
|
1850 HH = 1
|
|
1860 MODEML: PRINT O$(G);: PRINT " ";: MODEMW,30
|
|
1865 IF G < V THEN 1810
|
|
1870 MODEML: IF HH = 1 THEN PRINT ".": RETURN
|
|
1880 MODEML: PRINT "Vous ne detenez absolument rien!!!": RETURN
|
|
1900 IF S(1) < 5 THEN 1930
|
|
1910 MODEML: PRINT "Il parait evident que vous ne pouvez"
|
|
1915 MODEML: PRINT "porter tant de chose!!!"
|
|
1920 MODEMW,200: BREAK = 1: RETURN
|
|
1930 IF O(N) <> -1 THEN 1960
|
|
1935 REM
|
|
1940 MODEML: PRINT "Vous l'avez deja,vous etes etourdis et"
|
|
1945 MODEML: PRINT "dans cette maison ce n'est pas tres"
|
|
1950 MODEML: PRINT "conseille...": GOTO 1920
|
|
1960 O(N) = -1: S(1) = S(1) + 1: RETURN
|
|
2000 IF O(N) = -1 THEN 2030
|
|
2010 MODEML: PRINT "Comment voulez vous poser ce que vous"
|
|
2015 MODEML: PRINT "n'avez pas..."
|
|
2020 GOTO 1920
|
|
2030 O(N) = SALLE: S(1) = S(1) - 1: RETURN
|
|
|
|
2100 REM
|
|
2105 DEST = N + 1: GOSUB 3900
|
|
2110 RETURN
|
|
2200 P(N) = 1: RETURN
|
|
2300 P(N) = 0: RETURN
|
|
|
|
2400 C(N) = VAL(MID$(A$(N),E+3,2)): E = E + 2: RETURN
|
|
|
|
2500 IF O(N) = -1 THE NS(1) = S(1) - 1
|
|
2510 O(N) = 0: RETURN
|
|
2600 SALLE = N: RETURN
|
|
2700 MODEML: PRINT "D'accord..."
|
|
2710 MODEMW,20: BREAK=2: RETURN
|
|
2800 BREAK = 3
|
|
2810 RETURN
|
|
2900 BREAK = 4: RETURN
|
|
3000 BREAK = 1: RETURN
|
|
3100 BREAK = 5: RETURN
|
|
3200 O(N) = SALLE: RETURN
|
|
3300 X$=O$(N): O$(N)=O$(N+1): O$(N+1)=X$: RETURN
|
|
|
|
3900 IF DEST < 11 THEN ON DEST GOTO 4000,4010,4020,4030,4040,4050,4060,4070,4080,4090
|
|
3910 DEST = DEST - 10
|
|
3915 IF DEST < 11 THEN ON DEST GOTO 4100,4110,4120,4130,4140,4150,4160,4170,4180,4190
|
|
3920 DEST = DEST - 10
|
|
3925 IF DEST < 11 THEN ON DEST GOTO 4200,4210,4220,4230,4240,4250,4260,4270,4280,4290
|
|
3930 DEST = DEST - 10
|
|
3935 IF DEST < 11 THEN ON DEST GOTO 4300,4310,4320,4330,4340,4350,4360,4370,4380,4390
|
|
3940 DEST = DEST - 10
|
|
3945 IF DEST < 11 THEN ON DEST GOTO 4400,4410,4420,4430,4440,4450,4460,4470,4480,4490
|
|
3950 DEST = DEST - 10
|
|
3955 IF DEST < 11 THEN ON DEST GOTO 4500,4510,4520,4530,4540,4550,4560,4570,4580,4590
|
|
3960 DEST = DEST - 10
|
|
3965 IF DEST < 11 THEN ON DEST GOTO 4600,4610,4620,4630,4640
|
|
|
|
4000 MODEMC: FOR N = 1 TO 20: MODEME: MODEMW,4: NEXT N
|
|
4001 MODEMN: PRINT "Vous avez garde la lampe allumee trop"
|
|
4002 MODEML: PRINT "longtemps, elle a explose!"
|
|
4005 MODEMW,200: RETURN
|
|
4010 MODEMC
|
|
4011 MODEMN: PRINT "Vous avez oublie de fermer le robinet"
|
|
4012 MODEML: PRINT "vous mourez sous des tonnes d'eau!"
|
|
4015 MODEMW,200: RETURN
|
|
4020 MODEMC
|
|
4022 MODEMN: PRINT "La porte vient de se refermer derriere"
|
|
4023 MODEML: PRINT "vous. Vous etes prisonnier..."
|
|
4025 MODEMW,200: RETURN
|
|
4030 MODEMC
|
|
4031 MODEMN: PRINT "Vous avez trebuche dans l'escalier,vous"
|
|
4032 MODEML: PRINT "vous empallez sur le couteau!"
|
|
4035 MODEMW,200: RETURN
|
|
4040 MODEMC
|
|
4041 MODEMN: PRINT "Vous renversez l'eau dans l'escalier,"
|
|
4042 MODEML: PRINT "ce qui provoque une decharge au niveau"
|
|
4043 MODEML: PRINT "de la prise electrique."
|
|
4045 MODEMW,200: RETURN
|
|
4050 MODEMC
|
|
4051 MODEMN: PRINT "Vous etes sauf grace a la combinaison"
|
|
4052 MODEML: PRINT "que vous avez enfilee..!"
|
|
4055 MODEMW,200: RETURN
|
|
4060 MODEML: PRINT "Vous mourez electrocute..."
|
|
4065 MODEMW,200: RETURN
|
|
4070 MODEMC: FORN=1TO20: MODEMM,2,2,2,10: MODEMP,3,7,4,80: MODEMW,1: MODEME: MODEMW,6: NEXTN
|
|
4071 MODEMN: PRINT "La piece etait pleine de gaz explosif,"
|
|
4072 MODEML: PRINT "vous auriez du eteindre..."
|
|
4073 MODEMW,200: PRINT "On ramassera vos morceaux un autre"
|
|
4074 MODEML: PRINT "jour..!"
|
|
4075 MODEMW,200: RETURN
|
|
4080 MODEMC
|
|
4081 MODEMN: PRINT "Vous mourez empalle sur des lances"
|
|
4082 MODEML: PRINT "sorties du mur...!"
|
|
4085 MODEMW,200: RETURN
|
|
4090 MODEML: PRINT "La porte ne s'ouvre pas de cette piece": MODEMW,200: RETURN
|
|
4100 MODEMC
|
|
4101 MODEML: PRINT "La lampe et le briquet refusent de"
|
|
4102 MODEML: PRINT "fonctionner dans cette piece!"
|
|
4109 MODEMW,200: RETURN
|
|
4110 MODEMC
|
|
4111 MODEML: PRINT "Vous tombez dans une trappe,vous vous"
|
|
4112 MODEML: PRINT "disloquez en arrivant au sol.."
|
|
4115 MODEMW,200: RETURN
|
|
4120 MODEML: PRINT "Vous avez raison de passer,car ce"
|
|
4122 MODEML: PRINT "monstre n'etait qu'une projection"
|
|
4124 MODEML: PRINT "en 3 dimensions sur un ecran de fumee"
|
|
4125 MODEMW,250: RETURN
|
|
4130 MODEML: PRINT "Vous avez raison,la curiosite est un"
|
|
4132 MODEML: PRINT "vilain defaut!!!"
|
|
4134 MODEMW,250
|
|
4135 RUN 20040
|
|
4140 MODEML: PRINT "Vous avez raison d'attendre,mais cela"
|
|
4141 MODEML: PRINT "ne pourra pas durer eternellement.."
|
|
4142 MODEMW,200: RETURN
|
|
4150 MODEML: PRINT "Vous avez de la chance car ce coffre"
|
|
4151 MODEML: PRINT "etait ouvert.": MODEMW,100
|
|
4152 MODEML: PRINT "Un message a l'interieur dit: "
|
|
4153 MODEML: PRINTCHR$(34)+"Ne respectez pas les couleurs du code"
|
|
4154 MODEML: PRINT "de la route...?"+CHR$(34): MODEMW,200
|
|
4156 MODEML: PRINT "Tiens le coffre se referme!": MODEMW,150: RETURN
|
|
4160 MODEML: PRINT "Maintenant,vous avez une lampe pleine"
|
|
4162 MODEML: PRINT "de petrole."
|
|
4165 MODEMW,200: RETURN
|
|
4170 MODEML: PRINT "Vous n'avez rien pour transporter le"
|
|
4171 MODEML: PRINT "petrole.": MODEMW,200: RETURN
|
|
4180 FOR N = 1 TO 10: MODEME: MODEMW,6: NEXTN
|
|
4181 MODEMC: MODEMN: PRINT "Le briquet que vous aviez laisse"
|
|
4182 MODEML: PRINT "allume vient d'exploser!"
|
|
4185 MODEML: MODEMW,200: PRINT "Ca tue l'etourderie.....": MODEMW,150: RETURN
|
|
4190 MODEMC: MODEMN: PRINT "A force de marcher en long et en large"
|
|
4191 MODEML: PRINT "dans cette maison, vous sombrez dans"
|
|
4194 MODEML: PRINT "un coma des plus mortel...
|
|
4195 MODEMW,300: RETURN
|
|
4200 PRINT "L'eau coule...": RETURN
|
|
4210 MODEMC: MODEMN: PRINT "Vous avez les pieds trempes,et cela"
|
|
4211 MODEML: PRINT "vous rend tres malade..."
|
|
4215 MODEMW,100: MODEML: PRINT "Vous mourez d'une triple pneumonie...!": MODEMW,200: RETURN
|
|
4220 MODEML: PRINT "Le titre est: "
|
|
4225 MODEML: PRINTCHR$(34)+"La mort a la 1ere page."+CHR$(34): MODEMW,200: RETURN
|
|
4230 MODEMC: FOR N=1 TO 20: MODEME: NEXTN
|
|
4233 MODEMN: PRINT "Le livre a explose lorsque vous l'avez"
|
|
4235 MODEML: PRINT "ouvert...": MODEMW,200: RETURN
|
|
4240 MODEML: PRINT "Le papier indique: "+CHR$(34)+"Cherchez la clef."+CHR$(34)
|
|
4242 MODEMW,200: RETURN
|
|
4250 MODEML: PRINT "La clef vous permettra de trouver le"
|
|
4252 MODEML: PRINT "code de la porte d'entree."
|
|
4255 MODEMW,200: RETURN
|
|
4260 MODEML: PRINT "Il y a un clavier numerique permettant"
|
|
4261 MODEML: PRINT "d'entrer un code a côte de la porte.": MODEMW,200: RETURN
|
|
4270 MODEML: PRINT "Pour faire quoi..?": MODEMW,200: RETURN
|
|
4280 MODEML: PRINT "Il y a une odeur de gaz.": MODEMW,200: RETURN
|
|
4290 MODEML: PRINT "Apparemment,il n'y a aucune odeur.": MODEMW,200: RETURN
|
|
4300 MODEML: PRINT "C'est deja fait,espece de rigolo!": MODEMW,200: RETURN
|
|
4310 MODEML: PRINT "Il faudrait peut etre du feu!": MODEMW,200: RETURN
|
|
4320 MODEML: PRINT "La lampe ne contient pas de petrole!": MODEMW,200: RETURN
|
|
4330 MODEML: PRINT "Vous ne l'avez pas!": MODEMW,200: RETURN
|
|
4340 MODEML: PRINT "Le briquet est encore allume et il"
|
|
4342 MODEML: PRINT "eclaire la piece.": MODEMW,200: RETURN
|
|
4350 FOR N = 1 TO 15: MODEME: MODEMW,4: NEXT N
|
|
4355 MODEML: PRINT "La torche etait piegee,elle vous"
|
|
4356 MODEML: PRINT "a explose dans les mains.."
|
|
4357 MODEMW,200: RETURN
|
|
4360 MODEML: PRINT "La lampe est encore allumee,et elle"
|
|
4362 MODEML: PRINT "vous eclaire.": MODEMW,200: RETURN
|
|
4370 MODEML: PRINT "Un nain vient de vous lancer un"
|
|
4371 MODEML: PRINT "poignard en plein coeur.."
|
|
4375 MODEMW,200: RETURN
|
|
4380 MODEML: PRINT "Un nain vient de se precipiter sur"
|
|
4385 MODEML: PRINT "vous, il s'empalle sur votre ciseau.": MODEMW,200: RETURN
|
|
4390 MODEML: PRINT "Un nain vient de se precipiter sur"
|
|
4395 MODEML: PRINT "vous, il s'empalle sur votre couteau.": MODEMW,200: RETURN
|
|
4400 MODEML: PRINT "Vous venez de renverser le pot.": MODEMW,150: RETURN
|
|
4410 IF PEEK(-1) = 1 THEN BREAK = 3: RETURN
|
|
4411 MODEMC: MODEMS,4,4,0: MODEMP,0,1,1,5000
|
|
4412 MODEMN: PRINT "La foudre vient de tomber sur la maison": MODEMW,200
|
|
4413 MODEML: PRINT "La maison n'existe plus!": MODEMW,100
|
|
4414 MODEML: PRINT "Vous non plus!": MODEMW,100: MODEMP,0,0,0,0: RETURN
|
|
4420 MODEMC: MODEMN: PRINT "A force de marcher dans le noir,vous"
|
|
4422 MODEML: PRINT "avez trebuche.": MODEMW,100
|
|
4425 MODEML: PRINT "Vous mourez d'une fracture du crane...": MODEMW,200: RETURN
|
|
4430 MODEML: PRINT "Vous ne pouvez pas travailler dans le"
|
|
4433 MODEML: PRINT "noir...": MODEMW,200: RETURN
|
|
4440 MODEML: PRINT "La lumiere du briquet ne suffit pas"
|
|
4442 MODEML: PRINT "pour travailler...": MODEMW,200: RETURN
|
|
4450 MODEML: PRINT "Impossible !": MODEMW,100: RETURN
|
|
4460 MODEML: PRINT "Vous n'avez aucun outil...": MODEMW,200: RETURN
|
|
4470 MODEML: PRINT "Le teleporteur est en panne,donc les"
|
|
4472 MODEML: PRINT "boutons ne fonctionnent pas."
|
|
4475 MODEMW,400: RETURN
|
|
4480 FOR N = 1 TO 25: MODEME: MODEMW,5: NEXT N
|
|
4484 MODEMC: MODEMN: PRINT "Le teleporteur vient d'exploser,"
|
|
4485 MODEML: PRINT "vous etes decompose..!": MODEMW,200: RETURN
|
|
4490 MODEMN: PRINT "Le teleporteur se met en marche"
|
|
4491 MODEML: PRINT "vous disparaissez...": MODEMW,50
|
|
4492 MODEMM,2,1,5,0: MODEMP,2,1,3,1000
|
|
4493 MODEMF
|
|
4494 MODEMP,0,0,0,0
|
|
4495 FOR N = 500 TO 30 STEP -5
|
|
4497 MODEMS,2,N,12: MODEMP,2,0,0,100
|
|
4498 NEXT N
|
|
4499 MODEMP,0,0,0,0: RETURN
|
|
4500 MODEMC: MODEML: PRINT "Vous prenez du 30000 Volts dans les"
|
|
4502 MODEML: PRINT "doigts!": MODEMW,200: RETURN
|
|
4510 MODEML: PRINT "Le placard est ferme a clef!": MODEMW,200: RETURN
|
|
4520 MODEMC: MODEMN: PRINT "L'horrible monstre sorti du placard"
|
|
4522 MODEML: PRINT "vient de vous devorer!"
|
|
4525 MODEMW,200: RETURN
|
|
4530 MODEML: PRINT "Il ne fallait pas fuir!": MODEMW,200: RETURN
|
|
4540 MODEMC: MODEML: PRINT "Vous avez raison d'utiliser le ciseau,"
|
|
4542 MODEML: PRINT "le monstre est mort!"
|
|
4545 MODEMW,200: RETURN
|
|
4550 MODEMD: MODEMN: PRINT "A l'interieur du placard,le No "PL
|
|
4552 MODEML: PRINT "est inscrit": MODEMW,200
|
|
4555 MODEML: PRINT "Le placard se referme.": MODEMW,100: RETURN
|
|
4560 MODEMC: FORN=1TO30: MODEME: MODEMW,5: NEXTN
|
|
4562 MODEMN: PRINT "le pistolet a explose!": MODEMW,200
|
|
4565 RETURN
|
|
|
|
4570 IF SALLE = 2 THEN RETURN
|
|
4571 MODEML: PRINT "Impossible!": BREAK = 3: RETURN
|
|
4575 MODEMC: FOR N = 1 TO 25: MODEME: MODEMW,7: NEXTN
|
|
4576 MODEMN: PRINT "le clavier numerique a explose!": MODEMW,200: BREAK = 5: RETURN
|
|
4580 MODEMN: PRINT "Le clavier numerique prend feu.": MODEMW,200
|
|
4581 MODEML: IF O(24) <> -1 THEN 4586
|
|
4582 MODEML: PRINT "Heureusement,vous avez un pot plein"
|
|
4584 MODEML: PRINT "d'eau. Ce qui vous permet d'eteindre"
|
|
4585 MODEML: PRINT "ce feu.": MODEMW,300: RETURN
|
|
4586 MODEML: PRINT "Malheureusement vous n'avez pas d'eau"
|
|
4587 MODEML: PRINT "pour l'eteindre.": MODEMW,200
|
|
4588 GOTO 4575
|
|
|
|
4590 MODEMN: INPUT"No DE CODE ";ZC
|
|
4595 IF ZC <> PL THEN 4575
|
|
4600 MODEMW,100: MODEML: PRINT "Le code est exact...": MODEML: PRINT "La porte s'ouvre..."
|
|
4603 MODEMW,150
|
|
4605 GOTO 11000
|
|
4610 MODEML: PRINT "A l'interieur du placard,il y a un mot"
|
|
4611 MODEML: PRINT "qui parle d'un teleporteur.": MODEMW,200
|
|
4615 MODEML: PRINT "Tiens le placard se ferme tout seul...": MODEMW,100: RETURN
|
|
4620 MODEML: PRINT "Avant de la poser par terre,il faudrait"
|
|
4621 MODEML: PRINT "peut etre l'enlever."
|
|
4625 MODEMW,200: RETURN
|
|
4630 MODEMC: MODEMN: PRINT "Devant vous, il y a un horrible"
|
|
4631 MODEML: PRINT "monstre qui est sorti du placard."
|
|
4635 MODEMW,200: RETURN
|
|
4640 MODEML: PRINT "Le placard etait piege,vous n'auriez"
|
|
4641 MODEML: PRINT "pas du l'ouvrir!"
|
|
4645 FOR N = 1 TO 30: MODEME: MODEMW,7: NEXT N
|
|
4647 MODEMW,200: RETURN
|
|
|
|
6000 REM ANALYSE DU MOT
|
|
6010 N = 0: GN = 0
|
|
6020 N = N + 1: IF MID$(X$,N,1) <> " " THEN 6040
|
|
6030 GOTO 6020
|
|
6040 GN = GN + 1: XX$ = MID$(X$,N+GN,1): IF XX$ = " " OR XX$ = "" OR GN = 20 THEN 6060
|
|
6050 GOTO 6040
|
|
6060 IF GN > 4 THEN GN = 4
|
|
6070 X$(1) = MID$(X$,N,GN)
|
|
6080 N = N + 1: XX$ = MID$(X$,N,1): IF XX$ = " " OR XX$ = "" THEN 6100
|
|
6090 GOTO 6080
|
|
6100 N = N + 1: IF MID$(X$,N,1) <> " " THEN 6115
|
|
6110 GOTO 6100
|
|
6115 GN = 0
|
|
6120 GN = GN + 1: XX$ = MID$(X$,N+GN,1): IF XX$ = " " OR XX$ = "" OR GN = 20 THEN 6140
|
|
6130 GOTO 6120
|
|
6140 IF GN > 4 THEN GN = 4
|
|
6150 X$(2) = MID$(X$,N,GN)
|
|
6160 MODEMU,X$(1): MODEMV,X$(2)
|
|
6170 MO(1) = PEEK(-3)
|
|
6180 MO(2) = PEEK(-2)
|
|
6190 RETURN
|
|
|
|
6900 REM Chargement image salle
|
|
6902 MODEMC: MODEMN
|
|
6905 IF DEST < 11 THEN ON DEST GOTO 7000,7010,7020,7030,7040,7050,7060,7070,7080,7090
|
|
6910 DEST = DEST - 10
|
|
6915 IF DEST < 11 THEN ON DEST GOTO 7100,7110,7120,7130,7140,7150,7160,7170,7180,7190
|
|
6920 DEST = DEST - 10
|
|
6925 ON DEST GOTO 7200,7210,7220,7230,7240
|
|
|
|
7000 PRINT "DISKLOAD IMG_01"
|
|
7005 PRINT "Vous etes devant le manoir du defunt"
|
|
7006 PRINTSPC(14)"Dr GENIUS"
|
|
7009 RETURN
|
|
7010 PRINT "DISKLOAD IMG_02"
|
|
7015 PRINT "Vous etes dans le hall d'entree."
|
|
7019 RETURN
|
|
7020 PRINT "DISKLOAD IMG_03"
|
|
7025 PRINT "Vous etes en bas de l'escalier menant"
|
|
7026 PRINT "au 2eme etage."
|
|
7029 RETURN
|
|
7030 PRINT "DISKLOAD IMG_04"
|
|
7035 PRINT "Vous etes dans la salle a manger."
|
|
7039 RETURN
|
|
7040 PRINT "DISKLOAD IMG_05"
|
|
7045 PRINT "Vous etes dans une bibliotheque sans"
|
|
7046 PRINT "livre...!"
|
|
7049 RETURN
|
|
7050 PRINT "DISKLOAD IMG_06"
|
|
7055 PRINT "Vous etes dans une buanderie."
|
|
7059 RETURN
|
|
7060 PRINT "DISKLOAD IMG_07"
|
|
7065 PRINT "Vous etes dans le salon."
|
|
7069 RETURN
|
|
7070 PRINT "DISKLOAD IMG_08"
|
|
7075 PRINT "Vous etes dans une chambre."
|
|
7079 RETURN
|
|
7080 PRINT "DISKLOAD IMG_09"
|
|
7085 PRINT "Vous etes dans un corridor."
|
|
7089 RETURN
|
|
7090 PRINT "DISKLOAD IMG_10"
|
|
7095 PRINT "Vous etes dans une salle d'attente."
|
|
7099 RETURN
|
|
7100 PRINT "DISKLOAD IMG_11"
|
|
7105 PRINT "Vous etes dans le vestibule."
|
|
7109 RETURN
|
|
7110 PRINT "DISKLOAD IMG_12"
|
|
7115 PRINT "Vous etes dans la chambre d'amis."
|
|
7119 RETURN
|
|
7120 PRINT "DISKLOAD IMG_13"
|
|
7125 PRINT "Vous etes dans une chambre."
|
|
7129 RETURN
|
|
7130 STOP
|
|
7140 PRINT "DISKLOAD IMG_14"
|
|
7145 PRINT "Vous etes dans une petite salle."
|
|
7149 RETURN
|
|
7150 PRINT "DISKLOAD IMG_15"
|
|
7155 PRINT "Vous etes dans le laboratoire du
|
|
7156 PRINT "Dr GENIUS."
|
|
7159 RETURN
|
|
7160 PRINT "DISKLOAD IMG_16"
|
|
7165 PRINT "Vous etes dans une petite piece vide."
|
|
7169 RETURN
|
|
7170 PRINT "DISKLOAD IMG_17"
|
|
7175 PRINT "Vous ne savez pas où vous etes."
|
|
7179 RETURN
|
|
7180 PRINT "DISKLOAD IMG_18"
|
|
7185 PRINT "Vous etes en haut de l'escalier."
|
|
7189 RETURN
|
|
7190 PRINT "DISKLOAD IMG_19"
|
|
7195 PRINT "Vous etes dans la salle bain."
|
|
7199 RETURN
|
|
7200 PRINT "DISKLOAD IMG_20"
|
|
7205 PRINT "Vous etes dans le living room."
|
|
7209 RETURN
|
|
7210 PRINT "DISKLOAD IMG_21"
|
|
7215 PRINT "Vous etes dans une piece enfumee...!"
|
|
7219 RETURN
|
|
7220 PRINT "DISKLOAD IMG_22"
|
|
7225 PRINT "Vous etes dans une grande piece."
|
|
7229 RETURN
|
|
7230 PRINT "DISKLOAD IMG_23"
|
|
7235 PRINT "Vous etes dans une piece de rangement."
|
|
7239 RETURN
|
|
7240 PRINT "DISKLOAD IMG_24"
|
|
7245 PRINT "Vous etes dans le dressing."
|
|
7249 RETURN
|
|
|
|
7500 TX7,0,0: VTAB 23: PRINTSPC(8)"APPUYEZ SUR UNE TOUCHE"
|
|
7510 N = RND(1)
|
|
7511 IF KEY(0) = 0 THEN 7510
|
|
7515 RETURN
|
|
|
|
7600 REM CONFIG JEU
|
|
7602 INIT0,0: TX3,0,0
|
|
7605 POKE -34,0: POKE -1,0
|
|
7610 INPUT "Carte SON (O/N)";X$
|
|
7620 IF X$ = "O" THEN POKE -34,1: GOTO 7630
|
|
7625 IF X$ <> "N" THEN 7610
|
|
7630 INPUT "Foudre (O/N)";X$
|
|
7640 IF X$ = "O" THEN POKE -1,1: GOTO 7650
|
|
7645 IF X$ <> "N" THEN 7630
|
|
7650 RETURN
|
|
|
|
8000 REM CHARGEMENT VARIABLES
|
|
8001 RESTORE
|
|
8010 V = 70
|
|
8130 O = 25: DIMO(25)
|
|
8140 FOR N = 1 TO 25
|
|
8150 READ O(N)
|
|
8170 NEXT N
|
|
8180 DATA 06,05,05,08,08,00,00,11,11
|
|
8190 DATA 13,20,18,16,16,16,16,00,21
|
|
8200 DATA 00,22,25,12,00,25,00
|
|
|
|
8205 DIM O$(25)
|
|
8210 FOR N = 1 TO 25
|
|
8220 READ O$(N)
|
|
8240 NEXT N
|
|
8250 DATA UNE TORCHE ELECTRIQUE,UN ROBINET,UN CISEAU,UN TOURNEVIS
|
|
8260 DATA UNE LAMPE A PETROLE,UNE LAMPE PLEINE,UNE LAMPE ALLUMEE,UN COUTEAU
|
|
8270 DATA UN PAPIER,UN LIVRE,DU PETROLE DANS UN LAVABO BOUCHE
|
|
8280 DATA UNE CLEF,UN BOUTON ROUGE,UN BOUTON BLEU
|
|
8290 DATA UN BOUTON VERT,UN TELEPORTEUR,UN TELEPORTEUR REPARE
|
|
8300 DATA UNE COMBINAISON ARGENTEE,UNE COMBINAISON ENFILEE,UN MONSTRE A L'EST
|
|
8310 DATA UN PISTOLET,UN BRIQUET,UN BRIQUET ALLUME,UN POT,UN POT PLEIN D'EAU
|
|
|
|
8320 M = 25: DIM M$(25)
|
|
8330 FOR N = 1TO 25
|
|
8340 READ M$(N)
|
|
8360 NEXT N
|
|
8370 DATA 00,0403030400,030200,04020305010600,04040107032000,020400
|
|
8380 DATA 04080109020500,030700,04130207031000
|
|
8390 DATA 0409021100,0110031200,041100,030900,0209031500,00,00
|
|
8400 DATA 00,00,0122032100,040500,0125022200,012100
|
|
8410 DATA 0124042200,022300,022100
|
|
|
|
8430 A = 128: DIM A$(128)
|
|
8440 FOR N = 1 TO 128
|
|
8450 READ A$(N)
|
|
8470 NEXT N
|
|
8480 DATA 1400A01.I02D02M.,0500A03D08.D03N.,0500A03E08E09D24.D04D05I19E02M.
|
|
8485 DATA 0500A03E08D24.D04D06N.
|
|
8490 DATA 0500A03E07.I19M.,0500A03E03.I19M.,0500A03.I19E02M.,0600A19D08.D03N.
|
|
8500 DATA 0600A19E08E09D24.D04D05I03M.,0600A19E08D24.D04D06N.,0600A19.I03M.
|
|
8505 DATA 0100A09E07B22.D07N.
|
|
8510 DATA 0100A09E03B05.D07N.,0100A09.I14E02M.,0100A14.I16E02M.
|
|
8515 DATA 0200A16E07B22.D07N.,0200A16E03B05.D07N.
|
|
8520 DATA 0200A16.I14E02M.,0400A15E03B05.D07N.,0400A15E07B22.D07N.
|
|
8522 DATA 0400A15.I14E02M.,0100A15E03.I17M.,0100A15E07.I17M.,0100A15.I17E02M.
|
|
8525 DATA 0200A17.F01I15M.
|
|
8530 DATA 0300A17.D08N.,0400A17.D09K.,0300A18.D10F03E01E02I17M.
|
|
8531 DATA 0400A21E03.I19M.
|
|
8535 DATA 0400A21E07.I19M.,0400A21.I19E02M.,0200A22E03.I19M.,0200A22E07.I19M.
|
|
8540 DATA 0200A22.I19E02M.,0200A19.D11N.,0400A19.D11N.,0300A22.D12I23M.
|
|
8541 DATA 2500A01.D13.,2500I01.D14K.,1244A03.D15M.,1034B01.B01J.,1027B08.B08J.
|
|
8545 DATA 1028B04.B04J.,1029B05.B05J.,1032B21.B21J.,1038B24.B24J.
|
|
8548 DATA 1039B12.B12J.,1040B09.B09J.,1041B10.B10J.,1043B18.B18J.
|
|
8550 DATA 1050B03.B03J.,1042B22.B22J.,1037A20B05.H11P05E05D16K.,1037A20.D17K.
|
|
8553 DATA 1134.C01J.,1127.C08J.,1128.C04J.,1129.C05J.,1132.C21J.,1138.C24J.
|
|
8555 DATA 1143E09.D62K.
|
|
8556 DATA 1139.C12J.,1140.C09J.,1141.C10J.,1143.C18J.,1150.C03J.,1142.C22J.
|
|
8560 DATA 2400.A00L.,1249A05.E04D20G0405J.,1349A05.F04J.,2238A05E04.P24E08J.
|
|
8563 DATA 2338A05E08.F08P24J.,2338E08.D21N.,1848B10.D22L.,1841B10.D23N.
|
|
|
|
8566 DATA 1840B09.D24K.,2040B09.D25K.,1951A02.D26M.,1951.D27K.,2100A14.D28K.
|
|
8570 DATA 2100.D29K.,1542C22.D33K.,1542E07.D30K.,1542A14.D07N.
|
|
8575 DATA 1542A17E01.D10K.,1542E02.F02E07E06P22M.,1542.E07P22J.
|
|
8580 DATA 1529C05.D33K.,1529E03.D30K.,1529F07.D31L.,1529F05.D32L.
|
|
8590 DATA 1529E02.F02E03E06P06P05M.,1529.E03P06P05J.
|
|
8595 DATA 1642C22.D33K.,1642F07.D30K.,1642E06E03.D36F07P22M.
|
|
8597 DATA 1642E06.E02F07F06P22M.
|
|
8600 DATA 1642.F07P22M.,1629C05.D33K.,1629F03.D30K.,1629E07E06.D34F03P05M.
|
|
8605 DATA 1629E06.E02F06F03P05M.,1629.F03P05M.,1534B01.D35N.
|
|
8610 DATA 1735I16.D45K.,1735E02.D43K.,1735F03.D44K.,1735C04.D46K.
|
|
8615 DATA 1735.P16E10J.,5600A16F10.D47K.,5646A16.D48N.,5647A16.D48N.
|
|
8620 DATA 5645A16F09.D50D06N.,5645A16.D49I18M.,5543D18E09.D30K.
|
|
8625 DATA 5543D18.P18E09J.,5743D18F09.D30K.,5743D18.P18F09J.
|
|
8630 DATA 1233A24C12.D51K.,1233A24C03.D52N.,1233A24.G0503E11D63K.
|
|
8635 DATA 2636E11.D54F11D55K.,5350E11.D54F11D55K.,5232B21.D56N.
|
|
8640 DATA 5830F08.D57.,5830.D58D59.,1233A06.D61M.
|
|
8650 DATA 1233A25.D64N.
|
|
|
|
8700 PL = INT(RND(1)*9000+1000)
|
|
8800 C = 14: DIMC$(14)
|
|
8810 FOR N = 1 TO 14
|
|
8820 READ C$(N)
|
|
8840 NEXT N
|
|
8850 DATA G03E03.D00N.,G04E04.D01N.,I14I16I17I19.F02.,G07E07.D18N.,GO1.D19N.
|
|
8860 DATA H06C03C08.D37N.,H08D08.D39L.,H06D03.D38L.,G08E08B24.D40D21N.
|
|
8870 DATA H02.D41N.,G09E02.D42N.,G05E11.D52N.,I24E11.D53D52N.,.L.
|
|
8900 RETURN
|
|
|
|
9000 FOR IJ = 1 TO 100: NEXT IJ
|
|
9010 RETURN
|
|
|
|
11000 REM SUCCES
|
|
11020 PRINT "DISKLOAD IMG_01"
|
|
11030 MODEMN: MODEMC: MODEMD
|
|
11040 PRINT "Vous voila en dehors de la maison..."
|
|
11050 MODEMW,250
|
|
11055 MODEMN
|
|
11060 PRINT " Cela est exceptionnel,vous etes le"
|
|
11065 PRINT "premier a sortir vivant de cette"
|
|
11070 PRINT "maison. Mais a votre place, je me"
|
|
11075 PRINT "mettrais a courir car un nain rode"
|
|
11080 PRINT "peut-etre dans les parages..."
|
|
11085 GOSUB 11100
|
|
11090 GOTO 20040
|
|
|
|
11100 REM TEA FOR TWO
|
|
11102 REM RESTORE 11125
|
|
11105 FOR N = 1 TO 110
|
|
11110 READ A1,A2,A3
|
|
11115 MODEMM,1,A1,A2,10: MODEMP,1,0,0,100: MODEMW,A3
|
|
11120 MODEMP,0,0,0,0
|
|
11122 NEXT N
|
|
11123 RETURN
|
|
11125 DATA 4,6,45,4,3,15,4,5,45,4,3,15,4,6,45,4,3,15,4,5,45
|
|
11130 DATA 4,1,15,4,5,45,4,1,15,4,3,45,4,1,15,4,5,45,4,1,15
|
|
11135 DATA 4,3,45,4,1,15,4,6,45,4,3,15,4,5,45,4,3,15,4,6,45
|
|
11140 DATA 4,3,15,4,5,45,4,1,30,4,10,30,4,10,22,4,7,8,4,9,30,4,9,22,4,7,8
|
|
11145 DATA 4,10,30,4,10,22,4,7,8,4,9,30,4,9,22,4,5,8,4,9,30,4,7,22,4,5,8
|
|
11150 DATA 4,7,30,4,7,22,4,5,8,4,9,30,4,9,22,4,5,8,4,7,30,4,7,22,4,5,8
|
|
11155 DATA 4,10,30,4,10,22,4,7,8,4,9,30,4,9,22,4,7,8,4,10,30,4,10,22,4,7,8
|
|
11160 DATA 4,9,30,4,9,30,5,2,120,5,1,60,4,6,45,4,3,15,4,5,45,4,3,15,4,6,45
|
|
11165 DATA 4,3,15,4,5,45,4,1,15,4,5,45,4,1,15,4,3,45,4,1,15,4,5,45,4,1,15
|
|
11170 DATA 4,3,45,4,1,15,4,6,45,4,3,15,4,5,45,4,3,15,4,6,45,4,3,15,4,5,45
|
|
11175 DATA 4,1,30,5,3,45,5,3,15,5,1,45,5,1,15,4,11,45,4,11,15,4,10,45,4,10,15
|
|
11180 DATA 5,1,45,5,1,15,4,11,45,4,11,15,4,10,45,4,10,15,4,8,45,4,8,15
|
|
11185 DATA 4,6,45,4,3,15,4,5,45,4,3,15
|
|
11190 DATA 4,6,45,4,3,15,4,5,45,4,10,15,4,6,120
|
|
|
|
20000 REM TOMBE
|
|
20005 PRINT "DISKLOAD IMGTMB"
|
|
20010 MODEMC: MODEMD: MODEMN
|
|
20020 PRINT "Vous etes mort !": MODEMW,100
|
|
20030 IF PEEK(-34)=1 THEN GOSUB 21000
|
|
20040 MODEML: PRINT: MODEML: X$="": INPUT "Voulez-vous rejouer ";X$
|
|
20050 IF X$ = "O" OR X$ = "o" THEN RUN 45
|
|
20060 IF X$ = "N" OR X$ = "n" THEN 20080
|
|
20070 GOTO 20040
|
|
20080 MODEMN: PRINT " AU REVOIR"
|
|
20090 END
|
|
|
|
21000 REM SARABANDE
|
|
21005 REM RESTORE 21040
|
|
21015 FOR N = 1 TO 75
|
|
21020 READ A1,A2,A3,A4,A5
|
|
21025 READ A6,A7,A8,A9,A0
|
|
21030 MODEMM,1,A1,A2,A3: MODEMM,2,A4,A5,A6: MODEMM,3,A7,A8,A9: MODEMP,7,0,0,100: MODEMW,A0
|
|
21031 IF KEY(0) <> 0 THEN MODEMP,0,0,0,0: RETURN
|
|
21032 IF N > 70 THEN NEXT N: MODEMP,0,0,0,0: RETURN
|
|
21035 MODEMP,0,0,0,0: NEXTN
|
|
21040 DATA 3,6,8,3,3,8,2,10,8,80
|
|
21045 DATA 3,6,8,3,3,8,2,10,8,80
|
|
21050 DATA 0,1,1,0,1,1,0,1,1,40
|
|
21055 DATA 3,8,8,3,5,8,0,1,1,40
|
|
21060 DATA 3,5,8,3,2,8,2,10,8,80
|
|
21065 DATA 3,5,8,3,2,8,2,10,8,40
|
|
21070 DATA 1,11,8,0,1,1,0,1,1,40
|
|
21075 DATA 1,10,8,0,1,1,0,1,1,40
|
|
21080 DATA 1,8,8,0,1,1,0,1,1,40
|
|
21085 DATA 3,10,8,3,6,9,3,1,8,80
|
|
21090 DATA 3,10,8,3,6,9,3,1,8,80
|
|
21095 DATA 0,1,1,0,1,1,0,1,1,40
|
|
21100 DATA 3,11,8,3,8,8,0,1,1,40
|
|
21105 DATA 3,8,8,3,5,8,3,1,8,80
|
|
21110 DATA 3,8,8,3,5,8,3,1,8,40
|
|
21115 DATA 2,1,8,0,1,1,0,1,1,40
|
|
21120 DATA 1,11,8,0,1,1,0,1,1,40
|
|
21125 DATA 1,10,8,3,7,8,3,10,8,40
|
|
21130 DATA 3,11,8,3,8,8,3,3,8,80
|
|
21135 DATA 3,11,8,3,8,8,3,3,8,80
|
|
21140 DATA 1,8,8,0,1,1,0,1,1,40
|
|
21145 DATA 1,8,8,3,10,8,4,1,8,40
|
|
21150 DATA 3,10,8,3,6,8,3,3,8,80
|
|
21155 DATA 3,10,8,3,6,8,3,3,8,80
|
|
21160 DATA 0,1,1,0,1,1,0,1,1,40
|
|
21165 DATA 3,10,8,2,1,8,0,1,1,40
|
|
21170 DATA 4,3,8,3,10,8,1,11,8,80
|
|
21175 DATA 4,3,8,3,8,8,2,11,9,80
|
|
21180 DATA 0,1,1,0,1,1,0,1,1,40
|
|
21185 DATA 4,5,8,0,1,1,0,1,1,40
|
|
21190 DATA 4,2,8,3,10,8,3,5,8,80
|
|
21195 DATA 4,2,8,3,10,8,3,5,8,40
|
|
21200 DATA 2,8,8,0,1,1,0,1,1,40
|
|
21202 DATA 2,6,8,0,1,1,0,1,1,40
|
|
21203 DATA 2,5,8,0,1,1,0,1,1,40
|
|
21205 DATA 3,6,8,3,3,8,2,10,8,80
|
|
21210 DATA 3,6,8,3,3,8,2,10,8,80
|
|
21215 DATA 0,1,1,0,1,1,0,1,1,40
|
|
21220 DATA 3,8,8,3,5,8,0,1,1,40
|
|
21225 DATA 3,5,8,3,2,8,2,10,8,80
|
|
21230 DATA 3,5,8,3,2,8,2,10,8,40
|
|
21235 DATA 1,11,8,0,1,1,0,1,1,40
|
|
21240 DATA 1,10,8,0,1,1,0,1,1,40
|
|
21245 DATA 1,8,8,0,1,1,0,1,1,40
|
|
21250 DATA 3,10,8,3,6,9,3,1,8,80
|
|
21255 DATA 3,10,8,3,6,9,3,1,8,80
|
|
21260 DATA 0,1,1,0,1,1,0,1,1,40
|
|
21265 DATA 3,11,8,3,8,8,0,1,1,40
|
|
21270 DATA 3,8,8,3,5,8,3,1,8,80
|
|
21275 DATA 3,8,8,3,5,8,3,1,8,40
|
|
21280 DATA 2,1,8,0,1,1,0,1,1,40
|
|
21285 DATA 1,11,8,0,1,1,0,1,1,40
|
|
21290 DATA 1,10,8,3,7,8,3,10,8,40
|
|
21295 DATA 3,11,8,3,8,8,3,3,8,80
|
|
21300 DATA 2,8,8,0,1,1,0,1,1,40
|
|
21305 DATA 3,11,8,3,8,8,3,1,8,40
|
|
21310 DATA 2,8,8,0,1,1,0,1,1,40
|
|
21315 DATA 2,1,8,0,1,1,0,1,1,40
|
|
21320 DATA 4,1,8,2,5,8,0,1,1,40
|
|
21325 DATA 3,10,8,3,6,8,3,1,8,80
|
|
21330 DATA 3,10,8,2,3,8,0,1,1,40
|
|
21335 DATA 4,3,8,3,6,8,2,11,8,40
|
|
21340 DATA 4,2,8,0,1,1,0,1,1,40
|
|
21345 DATA 4,3,8,3,11,8,2,8,8,40
|
|
21350 DATA 4,5,8,0,1,1,0,1,1,40
|
|
21355 DATA 4,6,8,3,10,8,2,10,8,80
|
|
21360 DATA 4,5,8,3,8,8,1,10,8,40
|
|
21365 DATA 0,1,1,3,8,8,1,10,8,40
|
|
21370 DATA 4,3,8,0,1,1,0,1,1,40
|
|
21375 DATA 4,3,8,3,6,8,2,3,8,80
|
|
21380 DATA 3,3,8,3,10,8,3,6,8,40
|
|
21385 DATA 3,3,7,3,10,7,3,6,7,40
|
|
21390 DATA 3,3,6,3,10,6,3,6,6,40
|
|
21395 DATA 3,3,5,3,10,5,3,6,5,40
|
|
21400 DATA 3,3,4,3,10,4,3,6,5,40
|
|
|
|
|