mirror of
https://github.com/antoinevignau/source.git
synced 2024-12-26 07:29:21 +00:00
La parade des marionnettes
arrive de nouveau sur Apple II
This commit is contained in:
Antoine Vignau
parent
204afd2202
commit
45af64bb7a
Binary file not shown.
196
laparadedesmarionnettes/basic/CLUB DES MARIONNETTES.BAS
Normal file
196
laparadedesmarionnettes/basic/CLUB DES MARIONNETTES.BAS
Normal file
@ -0,0 +1,196 @@
|
||||
0 ONERR GOTO 10000
|
||||
1 POKE 791,32
|
||||
5 REM CLUBHOUSE, COPYRIGHT 1981, LESLIE M. GRIMM
|
||||
10 B$ = "FIRST VARIABLE DEFINED"
|
||||
12 YY = 16777:XX = 16778:CC = 16779:WM = 16779: REM LINE, COLUMN, COLOR, WHICH MOPPET
|
||||
14 LG = 16384:SG = 16387:MG = 16390: REM LARGE, SMALL, AND MOPPET GENERATORS
|
||||
16 POKE 232,76: POKE 233,3: SCALE= 1: ROT= 0:SQUARE = 1:EX = 2: REM SHAPES
|
||||
24 DIM PP(17),RU(3),X(17),Y(17):HCOLR = 7: SCALE= 1: ROT= 0
|
||||
26 FOR I = 1 TO 8:X(I) = 19 + 28 * I: NEXT I: FOR I = 9 TO 16:X(I) = X(I - 8): NEXT I
|
||||
28 FOR I = 1 TO 8:Y(I) = 0: NEXT I: FOR I = 9 TO 16:Y(I) = 32: NEXT I
|
||||
30 DIM XC(9),YC(9): REM MOPPETS IN CLUBHOUSE
|
||||
32 X = 12: FOR I = 1 TO 4:XC(I) = X:XC(I + 4) = X:YC(I) = 128:YC(I + 4) = 160:X = X + 4: NEXT
|
||||
34 DIM XP(17),YP(17): REM LOCATIONS OF MOPPETS AT TOP OF SCREEN
|
||||
36 X = 4: FOR I = 1 TO 8:YP(I) = 32:YP(I + 8) = 64:XP(I) = X:XP(I + 8) = X:X = X + 4: NEXT
|
||||
40 DIM PP$(18):PP$(1) = "GGBG":PP$(2) = "GMBG":PP$(3) = "GGBB":PP$(4) = "GMBB":PP$(5) = "PGBB":PP$(6) = "PMBB":PP$(7) = "PGBG":PP$(8) = "PMBG"
|
||||
42 PP$(9) = "GGRG":PP$(10) = "GMRG":PP$(11) = "GGRB":PP$(12) = "GMRB":PP$(13) = "PGRB":PP$(14) = "PMRB":PP$(15) = "PGRG":PP$(16) = "PMRG"
|
||||
48 DIM RU$(9):RU$(1) = "GRANDS":RU$(2) = "PETITS":RU$(3) = "GROS":RU$(4) = "MINCES":RU$(5) = "ROUGES":RU$(6) = "BLEUS":RU$(7) = "BIBBITS":RU$(8) = "GRIBBITS"
|
||||
50 GOSUB 3000
|
||||
60 HOME : PRINT : PRINT "VEUX-TU DES INSTRUCTIONS? (O OU N) ";
|
||||
62 GOSUB 80: IF ASC (IN$) = 27 THEN GOSUB 130:IN$ = "": GOTO 60
|
||||
64 IF IN$ < > "O" AND IN$ < > "N" THEN 60
|
||||
66 IF IN$ = "O" THEN GOSUB 2000
|
||||
70 HOME : GOTO 1000
|
||||
80 GET IN$: IF LEN (IN$) < 1 THEN 80
|
||||
82 RETURN
|
||||
100 GOSUB 80: IF IN$ = "" THEN 100
|
||||
102 IF ASC (IN$) = 27 THEN GOSUB 130:IN$ = "ESC": RETURN
|
||||
104 IF IN$ = "?" THEN GOSUB 2000:IN$ = "?"
|
||||
106 RETURN
|
||||
110 GOSUB 80: IF ASC (IN$) < > 27 AND ASC (IN$) < > 13 AND IN$ < > "?" THEN 110
|
||||
112 IF IN$ = "?" THEN GOSUB 2000: POKE - 16304,0: POKE 34,20
|
||||
114 IF ASC (IN$) = 27 THEN GOSUB 130
|
||||
116 RETURN
|
||||
130 HOME : PRINT "VEUX-TU T'ARRETER ? (O/N) ";
|
||||
132 GOSUB 80: IF IN$ < > "O" AND IN$ < > "N" THEN 132
|
||||
134 IF IN$ = "O" THEN GOTO 1500
|
||||
136 RETURN
|
||||
200 FOR J = 1 TO 16: IF P$ = PP$(J) THEN K = J
|
||||
202 NEXT J: RETURN
|
||||
210 ON RULE GOTO 212,216,220,224,228,232,236,240
|
||||
212 IF LEFT$ (P$,1) = "G" THEN FLAG = FLAG + 1
|
||||
214 RETURN
|
||||
216 IF LEFT$ (P$,1) = "P" THEN FLAG = FLAG + 1
|
||||
218 RETURN
|
||||
220 IF MID$ (P$,2,1) = "G" THEN FLAG = FLAG + 1
|
||||
222 RETURN
|
||||
224 IF MID$ (P$,2,1) = "M" THEN FLAG = FLAG + 1
|
||||
226 RETURN
|
||||
228 IF MID$ (P$,3,1) = "R" THEN FLAG = FLAG + 1
|
||||
230 RETURN
|
||||
232 IF MID$ (P$,3,1) = "B" THEN FLAG = FLAG + 1
|
||||
234 RETURN
|
||||
236 IF RIGHT$ (P$,1) = "B" THEN FLAG = FLAG + 1
|
||||
238 RETURN
|
||||
240 IF RIGHT$ (P$,1) = "G" THEN FLAG = FLAG + 1
|
||||
242 RETURN
|
||||
300 REM ** PRINTER **
|
||||
310 POKE XX,X: POKE YY,Y: POKE CC,C: CALL LG: RETURN
|
||||
320 C = 3:B$ = CHR$ (113) + "UELLE":X = 12:Y = 112: GOSUB 310:B$ = "EST":X = 18:Y = 128: GOSUB 310
|
||||
322 B$ = "MA " + CHR$ (114) + "EGLE ?":X = 14:Y = 144: GOSUB 310: RETURN
|
||||
400 REM ** MOPPET PRINTER **
|
||||
402 POKE XX,X: POKE YY,Y: POKE WM,M: CALL MG: RETURN
|
||||
410 X = 4:Y = 32: FOR I = 0 TO 7
|
||||
412 M = I: GOSUB 400:X = X + 4: NEXT I
|
||||
414 X = 4:Y = 64: FOR I = 8 TO 15
|
||||
416 M = I: GOSUB 400:X = X + 4: NEXT I
|
||||
420 HCOLOR= 5: FOR I = 68 TO 78: HPLOT 43,I TO 235,I: NEXT : FOR I = 78 TO 159: HPLOT 51,I TO 227,I: NEXT
|
||||
422 HCOLOR= 4: HPLOT 147,160 TO 147,120 TO 183,120 TO 183,160: HPLOT 89,144 TO 89,120 TO 125,120 TO 125,144 TO 89,144: HPLOT 43,79 TO 227,79
|
||||
424 HPLOT 107,144 TO 107,120: HPLOT 89,132 TO 125,132: HPLOT 151,140 TO 151,136 TO 155,136 TO 155,140 TO 151,140: HPLOT 183,127 TO 173,130 TO 183,133: HPLOT 183,147 TO 173,150 TO 183,153
|
||||
426 B$ = CHR$ (99) + "LUB":X = 13:Y = 96:C = 3: GOSUB 310
|
||||
428 RETURN
|
||||
440 HCOLOR= 7: FOR I = 0 TO 64 STEP 32: HPLOT 27,I TO 251,I: NEXT I: FOR I = 27 TO 251 STEP 28: HPLOT I,0 TO I,64: NEXT I: RETURN
|
||||
450 B$ = "UNE REGLE": GOTO 454
|
||||
452 B$ = "DEUX REGLES"
|
||||
454 HCOLOR= 4: FOR I = 80 TO 160: HPLOT 54,I TO 223,I: NEXT
|
||||
456 X = 8:Y = 96:C = 7: GOSUB 310
|
||||
458 RETURN
|
||||
500 POKE 768,N: POKE 769,T: CALL 770: RETURN
|
||||
510 N = 96:T = 60: GOSUB 500:N = 76:T = 140: GOSUB 500:T = 60: GOSUB 500:T = 60: GOSUB 500:N = 85: GOSUB 500:N = 76: GOSUB 500:N = 72:T = 160: GOSUB 500:N = 76:T = 100: GOSUB 500
|
||||
512 N = 76:T = 60: GOSUB 500:N = 85:T = 140: GOSUB 500:T = 60: GOSUB 500: GOSUB 500:N = 96: GOSUB 500:N = 85: GOSUB 500:N = 76:T = 140: GOSUB 500:N = 96:T = 180: GOSUB 500
|
||||
514 RETURN
|
||||
520 T = 60:N = 64: GOSUB 500:N = 48:T = 100: GOSUB 500: RETURN
|
||||
530 T = 60:N = 64: GOSUB 500:N = 96:T = 100: GOSUB 500: RETURN
|
||||
600 POKE 34,20: HOME : PRINT "(APPUIE SUR 'R' POUR DEVINER LA REGLE)": PRINT : PRINT "GRAND OU PETIT ? (G OU P) ";
|
||||
601 GOSUB 100: IF IN$ = "ESC" OR IN$ = "?" THEN POKE - 16304,0: POKE 34,20: GOTO 600
|
||||
602 IF IN$ = "R" THEN RETURN
|
||||
603 IF IN$ = CHR$ (8) THEN 600: REM ARROW
|
||||
604 IF IN$ < > "G" AND IN$ < > "P" THEN 600
|
||||
606 G1$ = IN$:GA$ = "GRAND": IF G1$ = "P" THEN GA$ = "PETIT"
|
||||
608 HOME : PRINT GA$: POKE 34,22
|
||||
610 HOME : PRINT "GROS OU MINCE ? (G OU M) ";
|
||||
612 GOSUB 100: IF IN$ = "ESC" OR IN$ = "?" THEN POKE - 16304,0: POKE 34,20: GOTO 606
|
||||
613 IF IN$ = CHR$ (8) THEN 600: REM ARROW
|
||||
614 IF IN$ < > "G" AND IN$ < > "M" THEN 612
|
||||
616 G2$ = IN$:GB$ = "GROS": IF G2$ = "M" THEN GB$ = "MINCE"
|
||||
618 HOME : VTAB 21: PRINT GA$;", ";GB$
|
||||
620 HOME : PRINT "ROUGE OU BLEU ? (R OU B) ";
|
||||
622 GOSUB 100: IF IN$ = "ESC" OR IN$ = "?" THEN POKE - 16304,0: POKE 34,20: HOME : PRINT GA$;", ";GB$: POKE 34,22: GOTO 620
|
||||
623 IF IN$ = CHR$ (8) THEN 600
|
||||
624 IF IN$ < > "R" AND IN$ < > "B" THEN 622
|
||||
626 G3$ = IN$:GC$ = "ROUGE": IF G3$ = "B" THEN GC$ = "BLEU"
|
||||
628 HOME : VTAB 21: PRINT GA$;", ";GB$;", ";GC$
|
||||
630 HOME : PRINT "BIBBIT OU GRIBBIT? (B OU G) ";
|
||||
632 GOSUB 100: IF IN$ = "ESC" OR IN$ = "?" THEN POKE - 16304,0: POKE 34,20: HOME : PRINT GA$;", ";GB$;", ";GC$: POKE 34,22: GOTO 630
|
||||
633 IF IN$ = CHR$ (8) THEN 600: REM ARROW
|
||||
634 IF IN$ < > "B" AND IN$ < > "G" THEN 632
|
||||
636 G4$ = IN$:GD$ = "BIBBIT": IF G4$ = "G" THEN GD$ = "GRIBBIT"
|
||||
638 HOME : VTAB 21: PRINT GA$;", ";GB$;", ";GC$;" ";GD$
|
||||
640 GUESS$ = G1$ + G2$ + G3$ + G4$: RETURN
|
||||
900 Z = 1: IF RND (1) < .5 THEN Z = 2
|
||||
901 RETURN
|
||||
902 Z = 3: IF RND (1) < .5 THEN Z = 4
|
||||
903 RETURN
|
||||
904 Z = 5: IF RND (1) < .5 THEN Z = 6
|
||||
905 RETURN
|
||||
906 Z = 7: IF RND (1) < .5 THEN Z = 8
|
||||
907 RETURN
|
||||
1000 HGR :Z = FRE (0):CO = 0:CT = 0: POKE 34,20: FOR I = 1 TO 16:PP(I) = 0: NEXT I: GOSUB 410: GOSUB 440
|
||||
1020 A = INT ( RND (1) * 4) + 1:B = INT ( RND (1) * 4) + 1: IF A = B THEN 1020
|
||||
1022 ON A GOSUB 900,902,904,906:A = Z: ON B GOSUB 900,902,904,906:B = Z:RU(1) = A:RU(2) = B
|
||||
1030 HOME : PRINT "CHOISIS :": PRINT "1. UNE REGLE": PRINT "2. DEUX REGLES": PRINT "TAPE 1 OU 2 : ";: GOSUB 100: IF IN$ = "?" THEN POKE - 16304,0: POKE 34,20: GOTO 1030
|
||||
1032 IF IN$ < > "1" AND IN$ < > "2" THEN 1030
|
||||
1034 IN = VAL (IN$): HOME :R = 1: IF IN = 2 THEN R = 2
|
||||
1036 IF R = 1 THEN RU(1) = RU(2): GOSUB 450
|
||||
1038 IF R = 2 THEN GOSUB 452
|
||||
1100 GOSUB 600: IF IN$ = "R" THEN CO = CO + 1: GOTO 1200
|
||||
1120 P$ = GUESS$:CO = CO + 1: GOSUB 200: IF PP(K) = 1 THEN 1180
|
||||
1122 PP(K) = 1:RU = RU(1):FLAG = 0: GOSUB 210:RU = RU(2): GOSUB 210: IF FLAG = 2 THEN X = XP(K):Y = YP(K):M = 16: GOSUB 400:CT = CT + 1:X = XC(CT):Y = YC(CT):M = K - 1: GOSUB 400: GOSUB 520
|
||||
1124 IF FLAG < > 2 THEN XDRAW 2 AT X(K),Y(K): GOSUB 530
|
||||
1126 GOSUB 440:FLAG = 1: FOR I = 1 TO 16: IF PP(I) = 0 THEN FLAG = 0
|
||||
1128 NEXT I: IF FLAG = 1 THEN 1250
|
||||
1130 POKE 34,20: GOTO 1100
|
||||
1180 GOSUB 530: HOME : PRINT "TU AS DEJA ESSAYE CE MOPPET.": VTAB 24: PRINT "APPUIE SUR <RETURN> POUR RE-ESSAYER. ";: GOSUB 110: POKE 34,20: GOTO 1100
|
||||
1200 GOSUB 4000: IF IN = RU(1) THEN 1300
|
||||
1202 IF R = 1 THEN 1210
|
||||
1204 IF I1 < > RU(1) AND I1 < > RU(2) THEN 1210
|
||||
1206 IF I2 = RU(1) OR I2 = RU(2) THEN 1300
|
||||
1210 GOSUB 530: POKE 34,20: PRINT : HOME : PRINT "DESOLE, CE N'EST PAS MA REGLE.": PRINT "APPUIE SUR <RETURN> POUR CONTINUER. ": GOSUB 110: PRINT : GOTO 1100
|
||||
1250 GOSUB 530: POKE 34,20: HOME : PRINT "TU AS ESSAYE TOUS LES MOPPETS ! VEUX-TU DEVINER MA REGLE ? (O OU N) ";: GOSUB 100: IF IN$ = "?" THEN POKE - 16304,0: POKE 34,20: HOME
|
||||
1252 IF IN$ < > "O" AND IN$ < > "N" THEN 1250
|
||||
1254 IF IN$ = "N" THEN 1270
|
||||
1260 GOSUB 4000: IF IN = RU(1) THEN 1300
|
||||
1264 IF I1 < > RU(1) AND I1 < > RU(2) THEN 1270
|
||||
1266 IF I2 = RU(1) OR I2 = RU(2) THEN 1300
|
||||
1270 HOME : PRINT "MA REGLE ETAIT :": PRINT "TOUS LES MOPPETS SONT ";RU$(RU(1));: IF R = 2 THEN PRINT " ET ";RU$(RU(2));
|
||||
1272 PRINT ".": GOTO 1310
|
||||
1300 POKE 34,20: HOME : VTAB 21: PRINT "TU AS RAISON ! ILS SONT TOUS ";RU$(RU(1));: IF R = 2 THEN PRINT : PRINT " ET ";RU$(RU(2));
|
||||
1302 PRINT ".": PRINT "TU AS TROUVE EN ";CO - 1;" ESSAI";:IF CO>2 THEN PRINT "S";:PRINT".": GOSUB 510
|
||||
1310 VTAB 24: HTAB 1: PRINT "VEUX-TU REJOUER ? (O OU N) ";
|
||||
1312 GET IN$: IF IN$ < > "O" AND IN$ < > "N" THEN 1312
|
||||
1314 IF IN$ = "O" THEN HOME : GOTO 1000
|
||||
1500 TEXT : HOME : PRINT : POKE 791,2: PRINT CHR$ (4);"RUN MENU"
|
||||
2000 REM ** INSTRUCTIONS **
|
||||
2002 TEXT : HOME : VTAB 2: INVERSE : PRINT ">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";
|
||||
2004 VTAB 23: PRINT ">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";: NORMAL
|
||||
2006 POKE 32,5: POKE 33,30: POKE 34,4: POKE 35,22: REM WINDOW
|
||||
2008 POKE 48,30: VLIN 4,43 AT 0: VLIN 4,43 AT 39: HOME
|
||||
2010 PRINT " LE CLUB DES MARIONNETTES !"
|
||||
2020 PRINT : PRINT "CHOISIS ";: INVERSE : PRINT "UNE REGLE": NORMAL : PRINT " (LES MOPPETS ";: INVERSE : PRINT "GROS";: NORMAL: PRINT ")": PRINT "OU ";
|
||||
2022 INVERSE : PRINT "DEUX REGLES": NORMAL : PRINT " (LES MOPPETS ";: INVERSE : PRINT "GROS";: NORMAL : PRINT " ET ";: INVERSE : PRINT "ROUGES";: NORMAL : PRINT ")"
|
||||
2030 PRINT : PRINT "POUR JOUER, DECRIS UN MOPPET, S'IL CORRESPOND, IL IRA DANS LE CLUB. SINON, IL SERA MARQUED'UN X."
|
||||
2040 PRINT : PRINT "DEVINE LA REGLE EN TAPANT 'R'."
|
||||
2050 FOR I = 1 TO 2000: NEXT I: POKE - 16368,0
|
||||
2052 VTAB 20: PRINT "APPUIE SUR <RETURN> POUR JOUER. ";
|
||||
2054 GOSUB 80: IF ASC (IN$) < > 27 AND ASC (IN$) < > 13 THEN 2054
|
||||
2056 IF ASC (IN$) = 27 THEN GOSUB 130
|
||||
2060 TEXT : HOME : RETURN
|
||||
3000 TEXT : HOME : HGR : POKE 34,20: HOME
|
||||
3002 IF PEEK ( - 16384) = 160 THEN 3060
|
||||
3010 HCOLOR= 5: FOR I = 84 TO 92: HPLOT 63,I TO 225,I: NEXT I: FOR I = 93 TO 160: HPLOT 68,I TO 220,I: NEXT I
|
||||
3012 HCOLOR= 4: HPLOT 147,160 TO 147,120 TO 183,120 TO 183,160: HPLOT 89,144 TO 89,120 TO 125,120 TO 125,144 TO 89,144: HPLOT 68,93 TO 220,93
|
||||
3014 HPLOT 107,144 TO 107,120: HPLOT 89,132 TO 125,132: HPLOT 151,140 TO 151,136 TO 155,136 TO 155,140 TO 151,140: HPLOT 183,127 TO 173,130 TO 183,133: HPLOT 183,147 TO 173,150 TO 183,153
|
||||
3016 IF PEEK ( - 16384) = 160 THEN 3060
|
||||
3020 B$ = CHR$ (108) + "E " + CHR$(99) + "LUB":X = 14:Y = 20:C = 3: GOSUB 310
|
||||
3022 B$ = "DES " + CHR$ (109) + "ARIONNETTES":X = 5:Y = 36: GOSUB 310
|
||||
3024 B$ = CHR$(114) + "ESERVE":X = 14:Y = 64: GOSUB 310
|
||||
3026 B$ = "AUX " + CHR$(109) + "EMBRES":X = 10:Y = 80: GOSUB 310
|
||||
3028 IF PEEK ( - 16384) = 160 THEN 3060
|
||||
3030 M = 2:X = 4:Y = 160: GOSUB 400:M = 13:X = 32: GOSUB 400:M = 9:X = 0: GOSUB 400
|
||||
3040 IF PEEK ( - 16384) = 160 THEN 3060
|
||||
3050 GOSUB 510
|
||||
3060 RETURN
|
||||
4000 TEXT : HOME : VTAB 6: HTAB 4: PRINT "1. GRAND";: HTAB 20: PRINT "2. PETIT": PRINT : HTAB 4: PRINT "3. GROS";: HTAB 20: PRINT "4. MINCE"
|
||||
4010 PRINT : HTAB 4: PRINT "5. ROUGE";: HTAB 20: PRINT "6. BLEU": PRINT : HTAB 4: PRINT "7. BIBBIT";: HTAB 20: PRINT "8. GRIBBIT": POKE 34,18: IF R = 2 THEN 4030
|
||||
4020 HOME : PRINT "QUELLE EST MA REGLE ? ": PRINT : PRINT "CHOISIS UN CHIFFRE : ";: GOSUB 100: IF IN$ = "?" THEN GOTO 4000
|
||||
4022 IN = VAL (IN$): IF IN < 1 OR IN > 8 THEN 4020
|
||||
4024 GOTO 4050
|
||||
4030 HOME : PRINT "QUELLE EST L'UNE DE MES REGLES ?": PRINT : PRINT "CHOISIS UN CHIFFRE : ";: GOSUB 100: IF IN$ = "?" THEN 4000
|
||||
4032 IN = VAL (IN$): IF IN < 1 OR IN > 8 THEN 4030
|
||||
4034 I1 = IN: PRINT STR$ (IN): POKE 34,22
|
||||
4036 HOME : PRINT "CHOISIS LE CHIFFRE D'UNE AUTRE REGLE : ";: GOSUB 100: IF IN$ = "?" THEN GOTO 4000
|
||||
4038 IN = VAL (IN$): IF IN < 1 OR IN > 8 THEN 4036
|
||||
4040 I2 = IN: PRINT STR$ (IN): IF IN = I1 THEN HOME : PRINT "OUPS ! TU AS DEJA CHOISI ";I1: GOTO 4036
|
||||
4044 IN = 0
|
||||
4050 TEXT : POKE - 16301,0: POKE - 16304,0: POKE 34,20: RETURN
|
||||
10000 CALL 37632
|
||||
100
laparadedesmarionnettes/basic/MENU.BAS
Normal file
100
laparadedesmarionnettes/basic/MENU.BAS
Normal file
@ -0,0 +1,100 @@
|
||||
0 ONERR GOTO 10000
|
||||
1 POKE 791,32: REM ENABLE RESET TRAP
|
||||
3 REM MENU1
|
||||
5 REM MOPTOWN 1 MENU, COPYRIGHT 1982, LESLIE GRIMM
|
||||
10 B$ = "FIRST VARIABLE ASSIGNED": REM FOR CHARACTER GENERATOR
|
||||
12 YY = 16777:XX = 16778:CC = 16779:WM = 16779: REM LINE, COLUMN, COLOR, WHICH MOPPET
|
||||
14 LG = 16384:SG = 16387:MG = 16390: REM LARGE, SMALL, AND MOPPET GENERATORS
|
||||
20 SOUND = 771:YES = 48:NO = 32: REM IN MUSICRESETMOVESHAPE
|
||||
22 POKE 32,0: POKE 33,40: POKE 34,20: POKE 35,24: REM RESET TEXT WINDOW
|
||||
31 B$(1) = "1 " + CHR$ (114) + "EPRODUIS MON " + CHR$ (106) + "UMEAU"
|
||||
32 B$(2) = "2 " + CHR$ (113) + "UI EST " + CHR$ (100) + "IFFERENT ?"
|
||||
33 B$(3) = "3 " + CHR$ (113) + "UELLE EST LA " + CHR$ (114) + "ESSEMBLANCE ?"
|
||||
34 B$(4) = "4 " + CHR$ (114) + "EPRESENTE MON " + CHR$ (99) + "ONTRAIRE"
|
||||
35 B$(5) = "5 " + CHR$ (113) + "UI VIENT " + CHR$ (101) + "NSUITE ?"
|
||||
36 B$(6) = "6 " + CHR$ (112) + "ARADE DES " + CHR$ (109) + "ARIONNETTES"
|
||||
37 B$(7) = "7 " + CHR$ (99) + "LUB DES " + CHR$ (109) + "ARIONNETTES"
|
||||
38 B$(8) = "8 " + CHR$ (115) + "ON "
|
||||
39 B$(9) = "9 " + CHR$ (102) + CHR$ (105) + CHR$(110): REM END
|
||||
41 NA$(1) = "REPRODUIS MON JUMEAU"
|
||||
42 NA$(2) = "QUI EST DIFFERENT"
|
||||
43 NA$(3) = "QUELLE EST LA RESSEMBLANCE"
|
||||
44 NA$(4) = "REPRESENTE MON CONTRAIRE"
|
||||
45 NA$(5) = "QUI VIENT ENSUITE"
|
||||
46 NA$(6) = "PARADE DES MARIONNETTES"
|
||||
47 NA$(7) = "CLUB DES MARIONNETTES"
|
||||
50 POKE - 16368,0: GOTO 1000
|
||||
200 REM ** PRINTER **
|
||||
210 POKE XX,X: POKE YY,Y: POKE CC,C: CALL LG: REM LARGE CHARACTERS
|
||||
212 RETURN
|
||||
220 POKE XX,X: POKE YY,Y: POKE WM,M: CALL MG: REM MOPPETS
|
||||
222 RETURN
|
||||
230 POKE XX,X: POKE YY,Y: POKE CC,C: CALL SG: REM SMALL CHARACTERS
|
||||
232 RETURN
|
||||
400 REM ** MUSIC FOR MENU **
|
||||
402 SF = 0
|
||||
410 IF PEEK (SOUND) = (NO) THEN POKE SOUND,YES:SF = 1: REM SOUND FLAG
|
||||
420 POKE 768,N: POKE 769,T: CALL 770: RETURN
|
||||
430 T1 = 10:T2 = 20:T3 = 40: IF MUSIC = YES THEN 440
|
||||
434 N = 96:T = T1: GOSUB 400:N = 85:T = T1: GOSUB 420:N = 76:T = T1: GOSUB 420
|
||||
436 IF SF = 1 THEN SF = 0: POKE SOUND,NO
|
||||
438 RETURN
|
||||
440 N = 76:T = T1: GOSUB 400:N = 85:T = T1: GOSUB 420:N = 96:T = T1: GOSUB 420
|
||||
442 IF SF = 1 THEN SF = 0: POKE SOUND,NO
|
||||
444 RETURN
|
||||
448 RETURN
|
||||
500 REM ** PRINT TITLES **
|
||||
510 X = 2:Y = 48:C = 3:XS = X
|
||||
512 FOR I = 1 TO 7:B$ = B$(I): GOSUB 230
|
||||
514 Y = Y + 16
|
||||
516 NEXT I
|
||||
518 B$ = B$(8):C = 1:X = 2:Y = 172: GOSUB 200:YS = Y
|
||||
520 B$ = B$(9):Y = Y + 16:C = 6: GOSUB 210
|
||||
522 B$ = CHR$ (102) + "AIS TON CHOIX :":X = 2:Y = 26:C = 0: GOSUB 200
|
||||
523 HCOLOR= 3: HPLOT 14,10 TO 237,10
|
||||
524 HCOLOR= 1: HPLOT 1,0 TO 279,0 TO 279,191 TO 1,191 TO 1,0: HPLOT 3,1 TO 277,1 TO 277,190 TO 3,190 TO 3,1
|
||||
530 X = XS + 12:Y = YS: IF PEEK (SOUND) = (NO) THEN 540
|
||||
532 B$ = CHR$(109) + CHR$(97) + CHR$(114):C = 0: GOSUB 210
|
||||
534 B$ = "/" + CHR$(97) + CHR$(114) + CHR$(114):C = 3:X = X + 6: GOSUB 210
|
||||
536 RETURN
|
||||
540 B$ = CHR$(109) + CHR$(97) + CHR$(114) + "/":C = 3: GOSUB 210
|
||||
542 B$ = CHR$(97) + CHR$(114) + CHR$(114):C = 0:X = X + 8: GOSUB 210
|
||||
544 RETURN
|
||||
900 REM ** SLOT FINDER **
|
||||
910 NS = 0: FOR I = 7 TO 1 STEP - 1
|
||||
920 SLOTADDRESS = 49153 + 256 * I
|
||||
930 IF PEEK (SL) = 32 THEN IF PEEK (SL + 2) = 0 THEN IF PEEK (SL + 4) = 3 THEN IF PEEK (SL + 6) = 60 THEN NS = I
|
||||
940 NEXT I: RETURN
|
||||
1000 REM ** MAIN PROGRAM **
|
||||
1010 HGR : POKE - 16302,0: REM FULL SCREEN GRAPHICS
|
||||
1012 GOSUB 500
|
||||
1020 POKE - 16368,0: GET IN$
|
||||
1022 IF IN$ = "9" THEN 1500: REM END
|
||||
1024 IF IN$ = "8" THEN 1050: REM CHANGE SOUND
|
||||
1030 IN = VAL (IN$): IF IN < 1 OR IN > 7 THEN 1020
|
||||
1032 GOTO 1100: REM LOAD PROGRAM
|
||||
1050 REM ** TOGGLE SOUND **
|
||||
1052 MUSIC = PEEK (SOUND): IF MUSIC = YES THEN POKE SOUND,NO
|
||||
1054 IF MUSIC = (NO) THEN POKE SOUND,YES
|
||||
1056 GOSUB 530: GOSUB 430
|
||||
1058 GOTO 1020
|
||||
1100 HOME : POKE 34,20: HOME
|
||||
1102 HCOLOR= 0: FOR I = 146 TO 160: HPLOT 0,I TO 279,I: NEXT
|
||||
1106 POKE - 16301,0
|
||||
1110 FLASH : PRINT "CHARGEMENT";: NORMAL : PRINT " : ";NA$(IN)
|
||||
1120 PRINT : HTAB 2: PRINT "<ESC> POUR ARRETER UN JEU,": HTAB 2: PRINT "'?' TE MONTRERA LES INSTRUCTIONS.";
|
||||
1130 VTAB 1: PRINT
|
||||
1140 POKE 791,2: PRINT CHR$ (4);"RUN";NA$(IN)
|
||||
1500 REM ** END OF PROGRAM **
|
||||
1510 TEXT : HOME : POKE 32,5: VTAB 8
|
||||
1512 PRINT "POUR FINIR, INSERE UN AUTRE DISQUE,"
|
||||
1514 PRINT : PRINT "PUIS APPUIE SUR <ESC>."
|
||||
1520 VTAB 18: PRINT "POUR RETOURNER AUX JEUX,"
|
||||
1522 PRINT : PRINT "APPUIE SUR <RETURN>. ";
|
||||
1530 GET IN$: IF IN$ = CHR$ (27) THEN 1550
|
||||
1532 IF IN$ < > CHR$ (13) THEN 1530
|
||||
1534 TEXT : HOME : POKE - 16302,0: POKE - 16304,0: GOTO 1020
|
||||
1550 GOSUB 900: REM FIND SLOT
|
||||
1560 TEXT : HOME : PRINT : POKE 791,2: PRINT CHR$ (4);"PR#";NS
|
||||
10000 REM ** ERROR ROUTINE **
|
||||
10010 CALL 37632
|
||||
176
laparadedesmarionnettes/basic/PARADE DES MARIONNETTES.BAS
Normal file
176
laparadedesmarionnettes/basic/PARADE DES MARIONNETTES.BAS
Normal file
@ -0,0 +1,176 @@
|
||||
0 ONERR GOTO 10000
|
||||
1 POKE 791,32
|
||||
5 D$ = CHR$ (4): TEXT : POKE - 16300,0: POKE - 16298,0
|
||||
7 REM MOPTOWN PARADE, COPYRIGHT 1981, LESLIE M. GRIMM
|
||||
8 PRINT D$;"BLOAD MOPTOWN PARADE.LPIC,A$5000": GR : CALL 815
|
||||
10 DIM P$(20),N(12)
|
||||
20 DIM PP$(17):PP$(1) = "GGRB":PP$(2) = "GGRG":PP$(3) = "GGBB":PP$(4) = "GGBG":PP$(5) = "GMRB":PP$(6) = "GMRG":PP$(7) = "GMBB":PP$(8) = "GMBG"
|
||||
22 PP$(9) = "PGRB":PP$(10) = "PGRG":PP$(11) = "PGBB":PP$(12) = "PGBG":PP$(13) = "PMRB":PP$(14) = "PMRG":PP$(15) = "PMBB":PP$(16) = "PMBG"
|
||||
24 N(1) = 192:N(2) = 152:N(3) = 128:N(4) = 96:N(5) = 76:N(6) = 64:N(7) = 48:N(8) = 37:N(9) = 31:N(10) = 23
|
||||
32 GOSUB 310
|
||||
40 VTAB 24: PRINT "VEUX-TU DES INSTRUCTIONS? (O OU N) ";
|
||||
42 GOSUB 60: IF ASC (IN$) = 27 THEN GOSUB 520:IN$ = ""
|
||||
44 IF IN$ < > "O" AND IN$ < > "N" THEN HOME : GOTO 40
|
||||
46 IF IN$ = "O" THEN GOSUB 2000
|
||||
50 GOTO 1000
|
||||
60 GET IN$: IF LEN (IN$) < 1 THEN 60
|
||||
62 RETURN
|
||||
100 COLOR= 14: PLOT X + 3,Y + 1: HLIN X + 3,X + 6 AT Y + 2: HLIN X + 3,X + 4 AT Y + 3: PLOT X + 6,Y + 3: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 1
|
||||
102 COLOR= 1: VLIN Y + 4,Y + 13 AT X + 3: VLIN Y + 4,Y + 13 AT X + 4: VLIN Y + 5,Y + 8 AT X + 5: RETURN
|
||||
104 COLOR= 14: HLIN X + 2,X + 3 AT Y + 1: HLIN X + 2,X + 4 AT Y + 2: PLOT X + 3,Y + 3: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 8: PLOT X + 2,Y + 9: COLOR= 9: PLOT X + 4,Y + 1
|
||||
106 COLOR= 1: VLIN Y + 4,Y + 13 AT X + 3: VLIN Y + 4,Y + 13 AT X + 4: VLIN Y + 5,Y + 8 AT X + 5: RETURN
|
||||
110 COLOR= 14: PLOT X + 3,Y + 1: HLIN X + 3,X + 6 AT Y + 2: HLIN X + 3,X + 4 AT Y + 3: PLOT X + 6,Y + 3: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 1
|
||||
112 COLOR= 6: VLIN Y + 4,Y + 13 AT X + 3: VLIN Y + 4,Y + 13 AT X + 4: VLIN Y + 5,Y + 8 AT X + 5: RETURN
|
||||
114 COLOR= 14: HLIN X + 2,X + 3 AT Y + 1: HLIN X + 2,X + 4 AT Y + 2: PLOT X + 3,Y + 3: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 8: PLOT X + 2,Y + 9: COLOR= 9: PLOT X + 4,Y + 1
|
||||
116 COLOR= 6: VLIN Y + 4,Y + 13 AT X + 3: VLIN Y + 4,Y + 13 AT X + 4: VLIN Y + 5,Y + 8 AT X + 5: RETURN
|
||||
120 COLOR= 14: PLOT X + 3,Y + 1: HLIN X + 3,X + 6 AT Y + 2: HLIN X + 3,X + 4 AT Y + 3: PLOT X + 6,Y + 3: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 1
|
||||
122 COLOR= 1: VLIN Y + 4,Y + 13 AT X + 3: RETURN
|
||||
124 COLOR= 14: HLIN X + 2,X + 3 AT Y + 1: HLIN X + 2,X + 4 AT Y + 2: PLOT X + 3,Y + 3: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 8: PLOT X + 2,Y + 9: COLOR= 9: PLOT X + 4,Y + 1
|
||||
126 COLOR= 1: VLIN Y + 4,Y + 13 AT X + 3: RETURN
|
||||
130 COLOR= 14: PLOT X + 3,Y + 1: HLIN X + 3,X + 6 AT Y + 2: HLIN X + 3,X + 4 AT Y + 3: PLOT X + 6,Y + 3: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 1
|
||||
132 COLOR= 6: VLIN Y + 4,Y + 13 AT X + 3: RETURN
|
||||
134 COLOR= 14: HLIN X + 2,X + 3 AT Y + 1: HLIN X + 2,X + 4 AT Y + 2: PLOT X + 3,Y + 3: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 8: PLOT X + 2,Y + 9: COLOR= 9: PLOT X + 4,Y + 1
|
||||
136 COLOR= 6: VLIN Y + 4,Y + 13 AT X + 3: RETURN
|
||||
140 COLOR= 14: HLIN X + 3,X + 6 AT Y + 5: HLIN X + 3,X + 4 AT Y + 6: PLOT X + 3,Y + 4: PLOT X + 6,Y + 6: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 4
|
||||
142 COLOR= 1: VLIN Y + 7,Y + 13 AT X + 3: VLIN Y + 7,Y + 13 AT X + 4: VLIN Y + 8,Y + 10 AT X + 5: RETURN
|
||||
144 COLOR= 14: HLIN X + 2,X + 3 AT Y + 4: HLIN X + 2,X + 4 AT Y + 5: PLOT X + 3,Y + 6: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 10: PLOT X + 2,Y + 11: COLOR= 9: PLOT X + 4,Y + 4
|
||||
146 COLOR= 1: VLIN Y + 7,Y + 13 AT X + 3: VLIN Y + 7,Y + 13 AT X + 4: VLIN Y + 8,Y + 10 AT X + 5: RETURN
|
||||
150 COLOR= 14: HLIN X + 3,X + 6 AT Y + 5: HLIN X + 3,X + 4 AT Y + 6: PLOT X + 3,Y + 4: PLOT X + 6,Y + 6: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 4
|
||||
152 COLOR= 6: VLIN Y + 7,Y + 13 AT X + 3: VLIN Y + 7,Y + 13 AT X + 4: VLIN Y + 8,Y + 10 AT X + 5: RETURN
|
||||
154 COLOR= 14: HLIN X + 2,X + 3 AT Y + 4: HLIN X + 2,X + 4 AT Y + 5: PLOT X + 3,Y + 6: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 10: PLOT X + 2,Y + 11: COLOR= 9: PLOT X + 4,Y + 4
|
||||
156 COLOR= 6: VLIN Y + 7,Y + 13 AT X + 3: VLIN Y + 7,Y + 13 AT X + 4: VLIN Y + 8,Y + 10 AT X + 5: RETURN
|
||||
160 COLOR= 14: HLIN X + 3,X + 6 AT Y + 5: HLIN X + 3,X + 4 AT Y + 6: PLOT X + 3,Y + 4: PLOT X + 6,Y + 6: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 4
|
||||
162 COLOR= 1: VLIN Y + 7,Y + 13 AT X + 3: RETURN
|
||||
164 COLOR= 14: HLIN X + 2,X + 3 AT Y + 4: HLIN X + 2,X + 4 AT Y + 5: PLOT X + 3,Y + 6: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 10: PLOT X + 2,Y + 11: COLOR= 9: PLOT X + 4,Y + 4
|
||||
166 COLOR= 1: VLIN Y + 7,Y + 13 AT X + 3: RETURN
|
||||
170 COLOR= 14: HLIN X + 3,X + 6 AT Y + 5: HLIN X + 3,X + 4 AT Y + 6: PLOT X + 3,Y + 4: PLOT X + 6,Y + 6: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 4
|
||||
172 COLOR= 6: VLIN Y + 7,Y + 13 AT X + 3: RETURN
|
||||
174 COLOR= 14: HLIN X + 2,X + 3 AT Y + 4: HLIN X + 2,X + 4 AT Y + 5: PLOT X + 3,Y + 6: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 10: PLOT X + 2,Y + 11: COLOR= 9: PLOT X + 4,Y + 4
|
||||
176 COLOR= 6: VLIN Y + 7,Y + 13 AT X + 3: RETURN
|
||||
180 COLOR= C1: FOR I = X TO X + 7: VLIN Y,Y + 14 AT I: NEXT I: RETURN
|
||||
182 COLOR= 13: HLIN X + 3,X + 6 AT Y + 6: VLIN Y + 7,Y + 8 AT X + 6: VLIN Y + 10,Y + 11 AT X + 4: PLOT X + 5,Y + 9: PLOT X + 4,Y + 13: RETURN
|
||||
191 COLOR= 13: VLIN Y + 1,Y + 5 AT X + 3: RETURN
|
||||
192 COLOR= 13: HLIN X + 2,X + 4 AT Y + 1: HLIN X + 2,X + 4 AT Y + 5: PLOT X + 4,Y + 2: PLOT X + 3,Y + 3: PLOT X + 2,Y + 4: RETURN
|
||||
193 COLOR= 13: HLIN X + 2,X + 4 AT Y + 1: HLIN X + 3,X + 4 AT Y + 3: HLIN X + 2,X + 4 AT Y + 5: VLIN Y + 2,Y + 4 AT X + 4: RETURN
|
||||
194 COLOR= 13: VLIN Y + 1,Y + 4 AT X + 2: VLIN Y + 1,Y + 5 AT X + 4: PLOT X + 3,Y + 4: PLOT X + 5,Y + 4: RETURN
|
||||
195 COLOR= 0: FOR I = Y TO Y + 5: HLIN X,X + 6 AT I: NEXT I: RETURN
|
||||
196 COLOR= 2: VLIN Y + 1,Y + 5 AT X + 1: VLIN Y + 4,Y + 5 AT X + 3: VLIN Y + 1,Y + 2 AT X + 3: PLOT X + 2,Y + 1: PLOT X + 2,Y + 3: VLIN Y + 1,Y + 5 AT X + 5: HLIN X + 6,X + 7 AT Y + 1:
|
||||
197 HLIN X + 6,X + 7 AT Y + 5: PLOT X + 6,Y + 3: HLIN X + 9,X + 11 AT Y + 1: VLIN Y + 1,Y + 5 AT X + 9: VLIN Y + 3,Y + 5 AT X + 11: PLOT X + 10,Y + 5: VLIN Y + 1,Y + 5 AT X + 13:
|
||||
198 HLIN X + 14,X + 15 AT Y + 5: VLIN Y + 1,Y + 5 AT X + 17: HLIN X + 18,X + 19 AT Y + 1: HLIN X + 18,X + 19 AT Y + 5: PLOT X + 18,Y + 3: PLOT X + 21,Y + 2: PLOT X + 21,Y + 4: RETURN
|
||||
200 COLOR= 0: FOR I = 0 TO 10: HLIN 0,39 AT I: NEXT I: HLIN 0,39 AT 21
|
||||
202 X = 0:Y = 22: IF LEFT$ (P$(1),1) = "S" THEN Y = Y + 3
|
||||
204 IF MID$ (P$(1),2,1) = "T" THEN X = X - 1
|
||||
206 COLOR= 8: HLIN X + 6,X + 8 AT Y + 7: HLIN X + 6,X + 8 AT Y + 8: COLOR= 14: HLIN X + 4,X + 6 AT Y + 6: PLOT X + 4,Y + 5: COLOR= 13: PLOT X + 7,Y + 5: PLOT X + 8,Y + 4
|
||||
210 X = 8:Y = 22: IF LEFT$ (P$(2),1) = "S" THEN Y = Y + 3
|
||||
212 COLOR= 13: VLIN Y + 6,Y + 8 AT X + 8: VLIN Y + 5,Y + 6 AT X + 7: PLOT X + 6,Y + 4: PLOT X + 5,Y + 3: COLOR= 14: HLIN X + 4,X + 6 AT Y + 6
|
||||
220 X = 16:Y = 22: IF LEFT$ (P$(3),1) = "S" THEN Y = Y + 3
|
||||
222 COLOR= 13: HLIN X + 5,X + 7 AT Y + 3: VLIN Y + 2,Y + 4 AT X + 8: COLOR= 14: HLIN X + 4,X + 6 AT Y + 6: VLIN Y + 3,Y + 6 AT X + 6
|
||||
230 X = 24:Y = 22: IF LEFT$ (P$(4),1) = "S" THEN Y = Y + 2
|
||||
232 COLOR= 10: VLIN Y + 5,Y + 9 AT X + 7: COLOR= 15: PLOT X + 7,Y + 4: PLOT X + 7,Y + 10: COLOR= 14: HLIN X + 4,X + 7 AT Y + 7
|
||||
240 X = 32:Y = 22: IF LEFT$ (P$(5),1) = "S" THEN Y = Y + 2
|
||||
242 COLOR= 8: VLIN Y - 7,Y + 9 AT X + 7: COLOR= 14: HLIN X + 4,X + 7 AT Y + 7: COLOR= 1: FOR I = Y - 7 TO Y - 4: HLIN X + 3,X + 6 AT I: NEXT I
|
||||
244 COLOR= 4: HLIN X - 2,X + 2 AT Y - 7: HLIN X - 2,X + 2 AT Y - 5: HLIN X - 2,X + 6 AT Y - 3: HLIN X - 2,X + 6 AT Y - 1
|
||||
246 COLOR= 15: HLIN X - 2,X + 2 AT Y - 6: HLIN X - 2,X + 2 AT Y - 4: HLIN X - 2,X + 6 AT Y - 2: COLOR= 13: PLOT X + 7,Y - 8
|
||||
250 GOSUB 310: RETURN
|
||||
300 POKE 768,N: POKE 769,T: CALL 770: RETURN
|
||||
310 FOR I = 1 TO 11: READ N,T: GOSUB 300: NEXT I: RESTORE : RETURN
|
||||
312 DATA 54,140,64,140,81,120,81,120,81,120
|
||||
314 DATA 96,60,108,60,81, 80,72,100,85, 60,81,160
|
||||
320 T = 10:N = 64: GOSUB 300:N = 57: GOSUB 300:N = 51: GOSUB 300:N = 48: GOSUB 300: RETURN
|
||||
322 T = 80:N = 64: GOSUB 300:N = 96: GOSUB 300: RETURN
|
||||
400 IF P$ = "GGRB" THEN GOSUB 100: RETURN
|
||||
402 IF P$ = "GGRG" THEN GOSUB 104: RETURN
|
||||
404 IF P$ = "GGBB" THEN GOSUB 110: RETURN
|
||||
406 IF P$ = "GGBG" THEN GOSUB 114: RETURN
|
||||
408 IF P$ = "GMRB" THEN GOSUB 120: RETURN
|
||||
410 IF P$ = "GMRG" THEN GOSUB 124: RETURN
|
||||
412 IF P$ = "GMBB" THEN GOSUB 130: RETURN
|
||||
414 IF P$ = "GMBG" THEN GOSUB 134: RETURN
|
||||
416 IF P$ = "PGRB" THEN GOSUB 140: RETURN
|
||||
418 IF P$ = "PGRG" THEN GOSUB 144: RETURN
|
||||
420 IF P$ = "PGBB" THEN GOSUB 150: RETURN
|
||||
422 IF P$ = "PGBG" THEN GOSUB 154: RETURN
|
||||
424 IF P$ = "PMRB" THEN GOSUB 160: RETURN
|
||||
426 IF P$ = "PMRG" THEN GOSUB 164: RETURN
|
||||
428 IF P$ = "PMBB" THEN GOSUB 170: RETURN
|
||||
430 IF P$ = "PMBG" THEN GOSUB 174: RETURN
|
||||
500 GOSUB 60: IF IN$ = "" THEN 500
|
||||
502 IF ASC (IN$) = 27 THEN GOSUB 520:IN$ = "ESC": RETURN
|
||||
504 IF IN$ = "?" THEN GOSUB 2000: POP : POP : GOTO 1000
|
||||
506 RETURN
|
||||
510 GOSUB 60: IF ASC (IN$) < > 13 AND ASC (IN$) < > 27 AND IN$ < > "?" THEN 510
|
||||
512 IF ASC (IN$) = 27 THEN GOSUB 520: RETURN
|
||||
514 IF IN$ = "?" THEN GOSUB 2000: POP : GOTO 1000
|
||||
516 RETURN
|
||||
520 HOME : PRINT "VEUX-TU T'ARRETER ? (O/N) ";
|
||||
522 GET IN$: IF IN$ < > "O" AND IN$ < > "N" THEN 522
|
||||
524 IF IN$ = "O" THEN 1500
|
||||
526 RETURN
|
||||
530 GOSUB 60: IF IN$ = "?" THEN GOSUB 2000: POP : GOTO 1000
|
||||
532 IF ASC (IN$) = 27 THEN GOSUB 520:IN$ = "": RETURN
|
||||
534 RETURN
|
||||
600 POKE 34,20: HOME : PRINT "QUI VIENT ENSUITE ?": PRINT : PRINT "GRAND OU PETIT ? (G OU P) ";
|
||||
602 GOSUB 500: IF IN$ = "ESC" THEN GOTO 600
|
||||
603 IF IN$ = CHR$ (8) THEN 600: REM ARROW
|
||||
604 IF IN$ < > "G" AND IN$ < > "P" THEN 602
|
||||
606 G1$ = IN$:GA$ = "GRAND": IF G1$ = "P" THEN GA$ = "PETIT"
|
||||
608 HOME : VTAB 21: PRINT GA$: POKE 34,22
|
||||
610 HOME : PRINT "GROS OU MINCE ? (G OU M) ";
|
||||
612 GOSUB 500: IF IN$ = "ESC" THEN GOTO 610
|
||||
613 IF IN$ = CHR$ (8) THEN 600
|
||||
614 IF IN$ < > "G" AND IN$ < > "M" THEN 612
|
||||
616 G2$ = IN$:GB$ = "GROS": IF G2$ = "M" THEN GB$ = "MINCE"
|
||||
618 HOME : VTAB 21: PRINT GA$;", ";GB$
|
||||
620 HOME : PRINT "ROUGE OU BLEU ? (R OU B) ";
|
||||
622 GOSUB 500: IF IN$ = "ESC" THEN 620
|
||||
623 IF IN$ = CHR$ (8) THEN 600
|
||||
624 IF IN$ < > "R" AND IN$ < > "B" THEN 622
|
||||
626 G3$ = IN$:GC$ = "ROUGE": IF G3$ = "B" THEN GC$ = "BLEU"
|
||||
628 HOME : VTAB 21: PRINT GA$;", ";GB$;", ";GC$
|
||||
630 HOME : PRINT "BIBBIT OU GRIBBIT? (B OU G) ";
|
||||
632 GOSUB 500: IF IN$ = "ESC" THEN GOTO 630
|
||||
633 IF IN$ = CHR$ (8) THEN 600
|
||||
634 IF IN$ < > "B" AND IN$ < > "G" THEN 632
|
||||
636 G4$ = IN$:GD$ = "BIBBIT": IF G4$ = "G" THEN GD$ = "GRIBBIT"
|
||||
638 HOME : VTAB 21: PRINT GA$;", ";GB$;", ";GC$;" ";GD$
|
||||
640 GUESS$ = G1$ + G2$ + G3$ + G4$: RETURN
|
||||
1000 GR : HOME :RU = 1:C = 1
|
||||
1002 COLOR= 13: HLIN 0,39 AT 21: HLIN 0,39 AT 37
|
||||
1004 Y = 2:X = 5: GOSUB 196:X = 28: GOSUB 191
|
||||
1006 X = 0:Y = 22
|
||||
1010 A = INT ( RND (1) * 16) + 1:P$(1) = PP$(A):P$ = P$(1): GOSUB 400:X = X + 8: GOSUB 182
|
||||
1100 HOME : PRINT "VEUX-TU CHANGER CETTE REGLE ?": PRINT : PRINT "(TAPE O OU N) ";
|
||||
1102 GOSUB 530: IF IN$ < > "O" AND IN$ < > "N" THEN 1100
|
||||
1104 IF IN$ = "N" THEN GOTO 1110
|
||||
1106 HOME : PRINT "COMBIEN DE TRAITS VEUX-TU CHANGER ? ": PRINT : PRINT "(TAPE UN CHIFFRE DE 1 A 4) ";
|
||||
1108 GOSUB 530:IN = VAL (IN$): IF IN < 1 OR IN > 4 THEN 1106
|
||||
1109 RU = IN:Y = 2:X = 28: GOSUB 195: ON IN GOSUB 191,192,193,194:X = 8:Y = 22
|
||||
1110 GOSUB 600
|
||||
1116 P$ = GUESS$: GOSUB 180: GOSUB 400: POKE 34,20
|
||||
1120 FLAG = 0: FOR I = 1 TO 4: IF MID$ (P$(C),I,1) < > MID$ (P$,I,1) THEN FLAG = FLAG + 1
|
||||
1122 NEXT I: IF FLAG = RU THEN C = C + 1:P$(C) = P$: GOSUB 320: GOTO 1140
|
||||
1130 GOSUB 322: HOME : PRINT "TON MOPPET EST DIFFERENT ";: IF FLAG = 1 THEN PRINT "D'UNE FACON."
|
||||
1132 IF FLAG < > 1 THEN PRINT "DE ";FLAG;" FACONS."
|
||||
1136 VTAB 23: PRINT "APPUIE SUR <RETURN> ET RECOMMENCE. ";
|
||||
1138 GOSUB 510: GOSUB 180: GOSUB 182: GOTO 1110
|
||||
1140 X = X + 8: IF X > 32 AND Y < 18 THEN X = 0:Y = Y + 18
|
||||
1142 IF X > 32 AND Y > 10 THEN 1200
|
||||
1144 GOSUB 182: GOTO 1110
|
||||
1200 HOME : PRINT : HTAB 11: PRINT "VOICI LA PARADE !": GOSUB 200
|
||||
1210 PRINT : PRINT "VEUX-TU REJOUER ? (O OU N) ";
|
||||
1212 GET IN$: IF IN$ < > "O" AND IN$ < > "N" THEN 1212
|
||||
1214 IF IN$ = "O" THEN 1000
|
||||
1500 TEXT : HOME : PRINT : POKE 791,2: PRINT CHR$ (4);"RUN MENU"
|
||||
2000 REM ** INSTRUCTIONS **
|
||||
2002 TEXT : HOME : VTAB 2: INVERSE : PRINT ">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";
|
||||
2004 VTAB 23: PRINT ">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";: NORMAL
|
||||
2006 POKE 32,5: POKE 33,30: POKE 34,5: POKE 35,20: REM WINDOW
|
||||
2008 POKE 48,30: VLIN 4,43 AT 0: VLIN 4,43 AT 39: HOME
|
||||
2010 PRINT "LA PARADE DES MARIONNETTES !"
|
||||
2012 PRINT : PRINT : PRINT "CHAQUE MOPPET DOIT ETRE":PRINT"DIFFERENT DU PRECEDENT."
|
||||
2014 PRINT : PRINT "COMMENCE PAR CHOISIR UNE REGLEPOUR DEFINIR LE NOMBRE DE":PRINT"TRAITS DIFFERENTS DES MOPPETS":PRINT"(1, 2, 3 OU 4)."
|
||||
2016 PRINT : PRINT "PUIS DECRIS LE MOPPET SUIVANT."
|
||||
2055 FOR I = 1 TO 2000: NEXT I: POKE - 16368,0
|
||||
2060 VTAB 19: PRINT "APPUIE SUR <RETURN> POUR JOUER. ";
|
||||
2062 GOSUB 510: TEXT : HOME : RETURN
|
||||
10000 CALL 37632
|
||||
205
laparadedesmarionnettes/basic/QUELLE EST LA RESSEMBLANCE.BAS
Normal file
205
laparadedesmarionnettes/basic/QUELLE EST LA RESSEMBLANCE.BAS
Normal file
@ -0,0 +1,205 @@
|
||||
0 ONERR GOTO 10000
|
||||
1 POKE 791,32
|
||||
5 REM WHAT'S THE SAME?, COPYRIGHT 1981, LESLIE M. GRIMM
|
||||
10 D$ = CHR$ (4): TEXT : HOME : POKE - 16298,0
|
||||
14 PRINT D$;"BLOAD HOME SWEET HOME.LPIC,A$5000": GR : CALL 815
|
||||
16 PRINT : VTAB 23: PRINT " FIND OUT WHAT'S THE SAME ABOUT THE": HTAB 9: PRINT "MOPPETS WHO LIVE HERE!";
|
||||
20 DIM PP$(17):PP$(1) = "TFRB":PP$(2) = "TFRG":PP$(3) = "TFBB":PP$(4) = "TFBG":PP$(5) = "TTRB":PP$(6) = "TTRG":PP$(7) = "TTBB":PP$(8) = "TTBG"
|
||||
22 PP$(9) = "SFRB":PP$(10) = "SFRG":PP$(11) = "SFBB":PP$(12) = "SFBG":PP$(13) = "STRB":PP$(14) = "STRG":PP$(15) = "STBB":PP$(16) = "STBG"
|
||||
24 DIM PA$(10):PA$(1) = "GRANDS !":PA$(2) = "PETITS !":PA$(3) = "GROS !":PA$(4) = "MINCES !":PA$(5) = "ROUGES !":PA$(6) = "BLEUS !":PA$(7) = "BIBBITS !":PA$(8) = "GRIBBITS !"
|
||||
26 FOR I = 1 TO 400: IF PEEK ( - 16384) = 160 THEN I = 400
|
||||
28 NEXT I
|
||||
30 HOME : PRINT : PRINT "VEUX-TU DES INSTRUCTIONS? (O OU N) ";
|
||||
34 GOSUB 80: IF IN$ < > "O" AND ASC (IN$) < > 27 AND IN$ < > "N" THEN 34
|
||||
36 IF ASC (IN$) = 27 THEN 60
|
||||
38 IF IN$ = "O" THEN GOSUB 2000
|
||||
50 GOTO 1000
|
||||
60 HOME : PRINT "VEUX-TU T'ARRETER ? (O OU N) ";
|
||||
62 GOSUB 80: IF IN$ < > "O" AND IN$ < > "N" THEN 62
|
||||
64 IF IN$ = "O" THEN 1500
|
||||
66 GOTO 30
|
||||
80 GET IN$: IF LEN (IN$) < 1 THEN 80
|
||||
82 RETURN
|
||||
100 COLOR= 14: PLOT X + 3,Y + 1: HLIN X + 3,X + 6 AT Y + 2: HLIN X + 3,X + 4 AT Y + 3: PLOT X + 6,Y + 3: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 1
|
||||
101 TALL = TALL + 1:FA = FA + 1:RED = RED + 1:BOY = BOY + 1
|
||||
102 COLOR= 1: VLIN Y + 4,Y + 13 AT X + 3: VLIN Y + 4,Y + 13 AT X + 4: VLIN Y + 5,Y + 8 AT X + 5: RETURN
|
||||
104 COLOR= 14: HLIN X + 2,X + 3 AT Y + 1: HLIN X + 2,X + 4 AT Y + 2: PLOT X + 3,Y + 3: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 8: PLOT X + 2,Y + 9: COLOR= 9: PLOT X + 4,Y + 1
|
||||
105 TALL = TALL + 1:FA = FA + 1:RED = RED + 1:GIRL = GIRL + 1
|
||||
106 COLOR= 1: VLIN Y + 4,Y + 13 AT X + 3: VLIN Y + 4,Y + 13 AT X + 4: VLIN Y + 5,Y + 8 AT X + 5: RETURN
|
||||
110 COLOR= 14: PLOT X + 3,Y + 1: HLIN X + 3,X + 6 AT Y + 2: HLIN X + 3,X + 4 AT Y + 3: PLOT X + 6,Y + 3: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 1
|
||||
111 TALL = TALL + 1:FA = FA + 1:BLUE = BLUE + 1:BOY = BOY + 1
|
||||
112 COLOR= 6: VLIN Y + 4,Y + 13 AT X + 3: VLIN Y + 4,Y + 13 AT X + 4: VLIN Y + 5,Y + 8 AT X + 5: RETURN
|
||||
114 COLOR= 14: HLIN X + 2,X + 3 AT Y + 1: HLIN X + 2,X + 4 AT Y + 2: PLOT X + 3,Y + 3: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 8: PLOT X + 2,Y + 9: COLOR= 9: PLOT X + 4,Y + 1
|
||||
115 TALL = TALL + 1:FA = FA + 1:BLUE = BLUE + 1:GIRL = GIRL + 1
|
||||
116 COLOR= 6: VLIN Y + 4,Y + 13 AT X + 3: VLIN Y + 4,Y + 13 AT X + 4: VLIN Y + 5,Y + 8 AT X + 5: RETURN
|
||||
120 COLOR= 14: PLOT X + 3,Y + 1: HLIN X + 3,X + 6 AT Y + 2: HLIN X + 3,X + 4 AT Y + 3: PLOT X + 6,Y + 3: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 1
|
||||
121 TALL = TALL + 1:THIN = THIN + 1:RED = RED + 1:BOY = BOY + 1
|
||||
122 COLOR= 1: VLIN Y + 4,Y + 13 AT X + 3: RETURN
|
||||
124 COLOR= 14: HLIN X + 2,X + 3 AT Y + 1: HLIN X + 2,X + 4 AT Y + 2: PLOT X + 3,Y + 3: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 8: PLOT X + 2,Y + 9: COLOR= 9: PLOT X + 4,Y + 1
|
||||
125 TALL = TALL + 1:THIN = THIN + 1:RED = RED + 1:GIRL = GIRL + 1
|
||||
126 COLOR= 1: VLIN Y + 4,Y + 13 AT X + 3: RETURN
|
||||
130 COLOR= 14: PLOT X + 3,Y + 1: HLIN X + 3,X + 6 AT Y + 2: HLIN X + 3,X + 4 AT Y + 3: PLOT X + 6,Y + 3: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 1
|
||||
131 TALL = TALL + 1:THIN = THIN + 1:BLUE = BLUE + 1:BOY = BOY + 1
|
||||
132 COLOR= 6: VLIN Y + 4,Y + 13 AT X + 3: RETURN
|
||||
134 COLOR= 14: HLIN X + 2,X + 3 AT Y + 1: HLIN X + 2,X + 4 AT Y + 2: PLOT X + 3,Y + 3: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 8: PLOT X + 2,Y + 9: COLOR= 9: PLOT X + 4,Y + 1
|
||||
135 TALL = TALL + 1:THIN = THIN + 1:BLUE = BLUE + 1:GIRL = GIRL + 1
|
||||
136 COLOR= 6: VLIN Y + 4,Y + 13 AT X + 3: RETURN
|
||||
140 COLOR= 14: HLIN X + 3,X + 6 AT Y + 5: HLIN X + 3,X + 4 AT Y + 6: PLOT X + 3,Y + 4: PLOT X + 6,Y + 6: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 4
|
||||
141 SH = SH + 1:FA = FA + 1:RED = RED + 1:BOY = BOY + 1
|
||||
142 COLOR= 1: VLIN Y + 7,Y + 13 AT X + 3: VLIN Y + 7,Y + 13 AT X + 4: VLIN Y + 8,Y + 10 AT X + 5: RETURN
|
||||
144 COLOR= 14: HLIN X + 2,X + 3 AT Y + 4: HLIN X + 2,X + 4 AT Y + 5: PLOT X + 3,Y + 6: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 10: PLOT X + 2,Y + 11: COLOR= 9: PLOT X + 4,Y + 4
|
||||
145 SH = SH + 1:FA = FA + 1:RED = RED + 1:GIRL = GIRL + 1
|
||||
146 COLOR= 1: VLIN Y + 7,Y + 13 AT X + 3: VLIN Y + 7,Y + 13 AT X + 4: VLIN Y + 8,Y + 10 AT X + 5: RETURN
|
||||
150 COLOR= 14: HLIN X + 3,X + 6 AT Y + 5: HLIN X + 3,X + 4 AT Y + 6: PLOT X + 3,Y + 4: PLOT X + 6,Y + 6: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 4
|
||||
151 SH = SH + 1:FA = FA + 1:BLUE = BLUE + 1:BOY = BOY + 1
|
||||
152 COLOR= 6: VLIN Y + 7,Y + 13 AT X + 3: VLIN Y + 7,Y + 13 AT X + 4: VLIN Y + 8,Y + 10 AT X + 5: RETURN
|
||||
154 COLOR= 14: HLIN X + 2,X + 3 AT Y + 4: HLIN X + 2,X + 4 AT Y + 5: PLOT X + 3,Y + 6: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 10: PLOT X + 2,Y + 11: COLOR= 9: PLOT X + 4,Y + 4
|
||||
155 SH = SH + 1:FA = FA + 1:BLUE = BLUE + 1:GIRL = GIRL + 1
|
||||
156 COLOR= 6: VLIN Y + 7,Y + 13 AT X + 3: VLIN Y + 7,Y + 13 AT X + 4: VLIN Y + 8,Y + 10 AT X + 5: RETURN
|
||||
160 COLOR= 14: HLIN X + 3,X + 6 AT Y + 5: HLIN X + 3,X + 4 AT Y + 6: PLOT X + 3,Y + 4: PLOT X + 6,Y + 6: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 4
|
||||
161 SH = SH + 1:THIN = THIN + 1:RED = RED + 1:BOY = BOY + 1
|
||||
162 COLOR= 1: VLIN Y + 7,Y + 13 AT X + 3: RETURN
|
||||
164 COLOR= 14: HLIN X + 2,X + 3 AT Y + 4: HLIN X + 2,X + 4 AT Y + 5: PLOT X + 3,Y + 6: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 10: PLOT X + 2,Y + 11: COLOR= 9: PLOT X + 4,Y + 4
|
||||
165 SH = SH + 1:THIN = THIN + 1:RED = RED + 1:GIRL = GIRL + 1
|
||||
166 COLOR= 1: VLIN Y + 7,Y + 13 AT X + 3: RETURN
|
||||
170 COLOR= 14: HLIN X + 3,X + 6 AT Y + 5: HLIN X + 3,X + 4 AT Y + 6: PLOT X + 3,Y + 4: PLOT X + 6,Y + 6: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 4
|
||||
171 SH = SH + 1:THIN = THIN + 1:BLUE = BLUE + 1:BOY = BOY + 1
|
||||
172 COLOR= 6: VLIN Y + 7,Y + 13 AT X + 3: RETURN
|
||||
174 COLOR= 14: HLIN X + 2,X + 3 AT Y + 4: HLIN X + 2,X + 4 AT Y + 5: PLOT X + 3,Y + 6: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 10: PLOT X + 2,Y + 11: COLOR= 9: PLOT X + 4,Y + 4
|
||||
175 SH = SH + 1:THIN = THIN + 1:BLUE = BLUE + 1:GIRL = GIRL + 1
|
||||
176 COLOR= 6: VLIN Y + 7,Y + 13 AT X + 3: RETURN
|
||||
180 COLOR= 0: FOR I = X TO X + 7: VLIN Y,Y + 14 AT I: NEXT I: RETURN
|
||||
190 HLIN 2,37 AT 39: HLIN 2,37 AT 5: HLIN 2,37 AT 22: VLIN 5,39 AT 20: VLIN 5,39 AT 2: VLIN 5,39 AT 37
|
||||
192 HLIN 19,21 AT 0: HLIN 16,19 AT 1: HLIN 21,24 AT 1: HLIN 9,16 AT 2: HLIN 24,31 AT 2: HLIN 5,9 AT 3: HLIN 31,35 AT 3: HLIN 0,5 AT 4: HLIN 35,39 AT 4: RETURN
|
||||
200 T = 10
|
||||
210 FOR I = 1 TO 10
|
||||
220 COLOR= INT ( RND (1) * 15) + 1: GOSUB 190
|
||||
230 N = INT ( RND (1) * 128) + 20: GOSUB 300
|
||||
250 NEXT I: RETURN
|
||||
300 POKE 768,N: POKE 769,T: CALL 770: RETURN
|
||||
310 T = 10:N = INT ( RND (1) * 128) + 20: GOSUB 300: RETURN
|
||||
320 N = 64:T = 40: GOSUB 300: GOSUB 300:N = 96:T = 80: GOSUB 300: RETURN
|
||||
330 N = 64:T = 40: GOSUB 300: GOSUB 300:N = 48:T = 80: GOSUB 300: RETURN
|
||||
400 A = INT ( RND (1) * 8) + 1: ON A GOSUB 100,104,110,114,120,124,130,134: GOSUB 310: RETURN
|
||||
402 A = INT ( RND (1) * 8) + 1: ON A GOSUB 140,144,150,154,160,164,170,174: GOSUB 310: RETURN
|
||||
404 A = INT ( RND (1) * 8) + 1: ON A GOSUB 100,104,110,114,140,144,150,154: GOSUB 310: RETURN
|
||||
406 A = INT ( RND (1) * 8) + 1: ON A GOSUB 120,124,130,134,160,164,170,174: GOSUB 310: RETURN
|
||||
408 A = INT ( RND (1) * 8) + 1: ON A GOSUB 100,104,120,124,140,144,160,164: GOSUB 310: RETURN
|
||||
410 A = INT ( RND (1) * 8) + 1: ON A GOSUB 110,114,130,134,150,154,170,174: GOSUB 310: RETURN
|
||||
412 A = INT ( RND (1) * 8) + 1: ON A GOSUB 100,110,120,130,140,150,160,170: GOSUB 310: RETURN
|
||||
414 A = INT ( RND (1) * 8) + 1: ON A GOSUB 104,114,124,134,144,154,164,174: GOSUB 310: RETURN
|
||||
450 IF P$ = "TFRB" THEN GOSUB 100: RETURN
|
||||
452 IF P$ = "TFRG" THEN GOSUB 104: RETURN
|
||||
454 IF P$ = "TFBB" THEN GOSUB 110: RETURN
|
||||
456 IF P$ = "TFBG" THEN GOSUB 114: RETURN
|
||||
458 IF P$ = "TTRB" THEN GOSUB 120: RETURN
|
||||
460 IF P$ = "TTRG" THEN GOSUB 124: RETURN
|
||||
462 IF P$ = "TTBB" THEN GOSUB 130: RETURN
|
||||
464 IF P$ = "TTBG" THEN GOSUB 134: RETURN
|
||||
466 IF P$ = "SFRB" THEN GOSUB 140: RETURN
|
||||
468 IF P$ = "SFRG" THEN GOSUB 144: RETURN
|
||||
470 IF P$ = "SFBB" THEN GOSUB 150: RETURN
|
||||
472 IF P$ = "SFBG" THEN GOSUB 154: RETURN
|
||||
474 IF P$ = "STRB" THEN GOSUB 160: RETURN
|
||||
476 IF P$ = "STRG" THEN GOSUB 164: RETURN
|
||||
478 IF P$ = "STBB" THEN GOSUB 170: RETURN
|
||||
480 IF P$ = "STBG" THEN GOSUB 174: RETURN
|
||||
500 T = 10: FOR J = 1 TO 2
|
||||
510 A = INT ( RND (1) * 16) + 1:Y = 7:X = 8:P$ = PP$(A): GOSUB 180: GOSUB 450:N = INT ( RND (1) * 128) + 20: GOSUB 300
|
||||
512 A = INT ( RND (1) * 16) + 1:Y = 7:X = 25:P$ = PP$(A): GOSUB 180: GOSUB 450:N = INT ( RND (1) * 128) + 20: GOSUB 300
|
||||
514 A = INT ( RND (1) * 16) + 1:Y = 24:X = 8:P$ = PP$(A): GOSUB 180: GOSUB 450:N = INT ( RND (1) * 128) + 20: GOSUB 300
|
||||
516 A = INT ( RND (1) * 16) + 1:Y = 24:X = 25:P$ = PP$(A): GOSUB 180: GOSUB 450:N = INT ( RND (1) * 128) + 20: GOSUB 300
|
||||
518 NEXT J
|
||||
520 RETURN
|
||||
600 GOSUB 80: IF IN$ = "" THEN 600
|
||||
602 IF ASC (IN$) = 27 THEN POP : GOTO 1550
|
||||
604 IF IN$ = "?" THEN POP : GOSUB 2000: GOTO 1000
|
||||
606 RETURN
|
||||
1000 GR : HOME
|
||||
1002 COLOR= 15: GOSUB 190: GOSUB 500
|
||||
1010 TALL = 0:SH = 0:FA = 0:THIN = 0:RED = 0:BLUE = 0:BOY = 0:GIRL = 0
|
||||
1012 TS$ = "":FT$ = "":RB$ = "":BG$ = ""
|
||||
1018 A = INT ( RND (1) * 4) + 1: ON A GOTO 1020,1030,1040,1050
|
||||
1020 TS$ = "GRAND":A = RND (1): IF A < .5 THEN TS$ = "PETIT"
|
||||
1022 X = 8:Y = 7: GOSUB 180: IF TS$ = "GRAND" THEN GOSUB 400
|
||||
1023 IF TS$ = "PETIT" THEN GOSUB 402
|
||||
1024 X = 25: GOSUB 180: IF TS$ = "GRAND" THEN GOSUB 400
|
||||
1025 IF TS$ = "PETIT" THEN GOSUB 402
|
||||
1026 X = 8:Y = 24: GOSUB 180: IF TS$ = "GRAND" THEN GOSUB 400
|
||||
1027 IF TS$ = "PETIT" THEN GOSUB 402
|
||||
1028 X = 25: GOSUB 180: IF TS$ = "GRAND" THEN GOSUB 400: GOTO 1060
|
||||
1029 IF TS$ = "PETIT" THEN GOSUB 402: GOTO 1060
|
||||
1030 FT$ = "GROS":A = RND (1): IF A < .5 THEN FT$ = "MINCE"
|
||||
1032 X = 8:Y = 7: GOSUB 180: IF FT$ = "GROS" THEN GOSUB 404
|
||||
1033 IF FT$ = "MINCE" THEN GOSUB 406
|
||||
1034 X = 25: GOSUB 180: IF FT$ = "GROS" THEN GOSUB 404
|
||||
1035 IF FT$ = "MINCE" THEN GOSUB 406
|
||||
1036 X = 8:Y = 24: GOSUB 180: IF FT$ = "GROS" THEN GOSUB 404
|
||||
1037 IF FT$ = "MINCE" THEN GOSUB 406
|
||||
1038 X = 25: GOSUB 180: IF FT$ = "GROS" THEN GOSUB 404: GOTO 1060
|
||||
1039 IF FT$ = "MINCE" THEN GOSUB 406: GOTO 1060
|
||||
1040 RB$ = "ROUGE":A = RND (1): IF A < .5 THEN RB$ = "BLEU"
|
||||
1042 X = 8:Y = 7: GOSUB 180: IF RB$ = "ROUGE" THEN GOSUB 408
|
||||
1043 IF RB$ = "BLEU" THEN GOSUB 410
|
||||
1044 X = 25: GOSUB 180: IF RB$ = "ROUGE" THEN GOSUB 408
|
||||
1045 IF RB$ = "BLEU" THEN GOSUB 410
|
||||
1046 X = 8:Y = 24: GOSUB 180: IF RB$ = "ROUGE" THEN GOSUB 408
|
||||
1047 IF RB$ = "BLEU" THEN GOSUB 410
|
||||
1048 X = 25: GOSUB 180: IF RB$ = "ROUGE" THEN GOSUB 408: GOTO 1060
|
||||
1049 IF RB$ = "BLEU" THEN GOSUB 410: GOTO 1060
|
||||
1050 BG$ = "BIBBIT":A = RND (1): IF A < .5 THEN BG$ = "GRIBBIT"
|
||||
1052 X = 8:Y = 7: GOSUB 180: IF BG$ = "BIBBIT" THEN GOSUB 412
|
||||
1053 IF BG$ = "GRIBBIT" THEN GOSUB 414
|
||||
1054 X = 25: GOSUB 180: IF BG$ = "BIBBIT" THEN GOSUB 412
|
||||
1055 IF BG$ = "GRIBBIT" THEN GOSUB 414
|
||||
1056 X = 8:Y = 24: GOSUB 180: IF BG$ = "BIBBIT" THEN GOSUB 412
|
||||
1057 IF BG$ = "GRIBBIT" THEN GOSUB 414
|
||||
1058 X = 25: GOSUB 180: IF BG$ = "BIBBIT" THEN GOSUB 412: GOTO 1060
|
||||
1059 IF BG$ = "GRIBBIT" THEN GOSUB 414
|
||||
1060 HOME
|
||||
1100 PRINT "QUELLE EST LA RESSEMBLANCE ?"
|
||||
1102 PRINT "1. GRAND 2. PETIT";: HTAB 20: PRINT "3. GROS 4. MINCE"
|
||||
1104 PRINT "5. ROUGE 6. BLEU"; : HTAB 20: PRINT "7. BIBBIT 8. GRIBBIT"
|
||||
1106 VTAB 24: PRINT ;
|
||||
1110 GOSUB 600:IN = VAL (IN$): IF IN < 1 OR IN > 8 THEN 1110
|
||||
1202 IF IN = 1 AND TALL = 4 THEN 1300
|
||||
1204 IF IN = 2 AND SH = 4 THEN 1300
|
||||
1206 IF IN = 3 AND FA = 4 THEN 1300
|
||||
1208 IF IN = 4 AND TH = 4 THEN 1300
|
||||
1210 IF IN = 5 AND RED = 4 THEN 1300
|
||||
1212 IF IN = 6 AND BL = 4 THEN 1300
|
||||
1214 IF IN = 7 AND BOY = 4 THEN 1300
|
||||
1216 IF IN = 8 AND GIRL = 4 THEN 1300
|
||||
1250 GOSUB 320: PRINT "NON, CE N'EST PAS ";IN;".":PRINT"(APPUIE SUR <RETURN>.) ";
|
||||
1254 GOSUB 600: IF ASC (IN$) < > 13 THEN 1254
|
||||
1256 HOME : GOTO 1100
|
||||
1300 HOME : PRINT : PRINT "C'EST EXACT, ILS SONT TOUS ";PA$(IN)
|
||||
1302 GOSUB 200
|
||||
1310 VTAB 24: PRINT "VEUX-TU REJOUER ? (O OU N) ";
|
||||
1312 GOSUB 600: IF IN$ < > "O" AND IN$ < > "N" THEN 1312
|
||||
1314 IF IN$ = "O" THEN 1000
|
||||
1316 GOTO 1500
|
||||
1500 TEXT : HOME : PRINT : POKE 791,2: PRINT CHR$ (4);"RUN MENU"
|
||||
1550 HOME : PRINT "VEUX-TU T'ARRETER ? (O OU N) ";
|
||||
1552 GET IN$: IF IN$ < > "O" AND IN$ < > "N" THEN 1552
|
||||
1554 IF IN$ = "O" THEN 1500
|
||||
1556 IF IN$ = "N" THEN PRINT : HOME : GOTO 1100
|
||||
2000 REM ** INSTRUCTIONS **
|
||||
2002 TEXT : HOME : VTAB 2: INVERSE : PRINT ">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";
|
||||
2004 VTAB 23: PRINT ">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";: NORMAL
|
||||
2006 POKE 32,5: POKE 33,30: POKE 34,3: POKE 35,20: REM WINDOW
|
||||
2008 POKE 48,30: VLIN 4,43 AT 0: VLIN 4,43 AT 39: HOME
|
||||
2010 PRINT " QUELLE EST LA RESSEMBLANCE ?"
|
||||
2012 PRINT : PRINT "LES MOPPETS QUI VIVENT DANS LA MAISON ONT AU MOINS UN TRAIT EN COMMUN."
|
||||
2014 PRINT : PRINT "PAR EXEMPLE, ILS POURRAIENT ETRE ROUGES OU ETRE ROUGES ET FINS."
|
||||
2016 PRINT : PRINT "CHOISIS LE TRAIT IDENTIQUE SI TU EN VOIS PLUSIEURS, CHOISIS N'IMPORTE LEQUEL."
|
||||
2045 FOR I = 1 TO 2000: NEXT I: POKE - 16368,0
|
||||
2050 VTAB 19: PRINT "APPUIE SUR <RETURN> POUR JOUER. ";
|
||||
2052 GOSUB 80: IF ASC (IN$) = 27 THEN 2060
|
||||
2054 IF ASC (IN$) < > 13 THEN 2052
|
||||
2056 TEXT : HOME : RETURN
|
||||
2060 HOME : PRINT "VEUX-TU T'ARRETER ? (O/N) ";
|
||||
2062 GET IN$: IF IN$ < > "O" AND IN$ < > "N" THEN 2062
|
||||
2064 IF IN$ = "O" THEN 1500
|
||||
2066 TEXT : HOME : RETURN
|
||||
10000 CALL 37632
|
||||
171
laparadedesmarionnettes/basic/QUI EST DIFFERENT.BAS
Normal file
171
laparadedesmarionnettes/basic/QUI EST DIFFERENT.BAS
Normal file
@ -0,0 +1,171 @@
|
||||
0 ONERR GOTO 10000
|
||||
1 POKE 791,32
|
||||
5 REM WHO'S DIFFERENT?, COPYRIGHT 1981, LESLIE M. GRIMM
|
||||
10 D$ = CHR$ (4)
|
||||
12 N(1) = 96:N(2) = 85:N(3) = 76:N(4) = 72
|
||||
18 S = PEEK (78) + PEEK (79) * 256:Z = RND ( - S)
|
||||
20 GOSUB 3000
|
||||
30 PRINT : PRINT "VEUX-TU DES INSTRUCTIONS? (O OU N) ";
|
||||
32 GOSUB 80: IF IN$ < > "O" AND IN$ < > "N" AND ASC (IN$) < > 27 THEN 32
|
||||
34 IF ASC (IN$) = 27 THEN GOSUB 510: HOME : GOTO 30
|
||||
36 IF IN$ = "O" THEN GOSUB 2000
|
||||
40 GAME = 1: REM ALL MOPPETS SAME
|
||||
50 GOTO 1000
|
||||
60 GOSUB 510
|
||||
70 GOSUB 510
|
||||
74 IF IN$ = "O" THEN 1500
|
||||
76 HOME : GOTO 40
|
||||
80 GET IN$: IF LEN (IN$) < 1 THEN 80
|
||||
82 RETURN
|
||||
100 COLOR= 14: PLOT X + 3,Y + 1: HLIN X + 3,X + 6 AT Y + 2: HLIN X + 3,X + 4 AT Y + 3: PLOT X + 6,Y + 3: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 1
|
||||
102 COLOR= 1: VLIN Y + 4,Y + 13 AT X + 3: VLIN Y + 4,Y + 13 AT X + 4: VLIN Y + 5,Y + 8 AT X + 5: RETURN
|
||||
104 COLOR= 14: HLIN X + 2,X + 3 AT Y + 1: HLIN X + 2,X + 4 AT Y + 2: PLOT X + 3,Y + 3: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 8: PLOT X + 2,Y + 9: COLOR= 9: PLOT X + 4,Y + 1
|
||||
106 COLOR= 1: VLIN Y + 4,Y + 13 AT X + 3: VLIN Y + 4,Y + 13 AT X + 4: VLIN Y + 5,Y + 8 AT X + 5: RETURN
|
||||
110 COLOR= 14: PLOT X + 3,Y + 1: HLIN X + 3,X + 6 AT Y + 2: HLIN X + 3,X + 4 AT Y + 3: PLOT X + 6,Y + 3: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 1
|
||||
112 COLOR= 6: VLIN Y + 4,Y + 13 AT X + 3: VLIN Y + 4,Y + 13 AT X + 4: VLIN Y + 5,Y + 8 AT X + 5: RETURN
|
||||
114 COLOR= 14: HLIN X + 2,X + 3 AT Y + 1: HLIN X + 2,X + 4 AT Y + 2: PLOT X + 3,Y + 3: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 8: PLOT X + 2,Y + 9: COLOR= 9: PLOT X + 4,Y + 1
|
||||
116 COLOR= 6: VLIN Y + 4,Y + 13 AT X + 3: VLIN Y + 4,Y + 13 AT X + 4: VLIN Y + 5,Y + 8 AT X + 5: RETURN
|
||||
120 COLOR= 14: PLOT X + 3,Y + 1: HLIN X + 3,X + 6 AT Y + 2: HLIN X + 3,X + 4 AT Y + 3: PLOT X + 6,Y + 3: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 1
|
||||
122 COLOR= 1: VLIN Y + 4,Y + 13 AT X + 3: RETURN
|
||||
124 COLOR= 14: HLIN X + 2,X + 3 AT Y + 1: HLIN X + 2,X + 4 AT Y + 2: PLOT X + 3,Y + 3: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 8: PLOT X + 2,Y + 9: COLOR= 9: PLOT X + 4,Y + 1
|
||||
126 COLOR= 1: VLIN Y + 4,Y + 13 AT X + 3: RETURN
|
||||
130 COLOR= 14: PLOT X + 3,Y + 1: HLIN X + 3,X + 6 AT Y + 2: HLIN X + 3,X + 4 AT Y + 3: PLOT X + 6,Y + 3: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 1
|
||||
132 COLOR= 6: VLIN Y + 4,Y + 13 AT X + 3: RETURN
|
||||
134 COLOR= 14: HLIN X + 2,X + 3 AT Y + 1: HLIN X + 2,X + 4 AT Y + 2: PLOT X + 3,Y + 3: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 8: PLOT X + 2,Y + 9: COLOR= 9: PLOT X + 4,Y + 1
|
||||
136 COLOR= 6: VLIN Y + 4,Y + 13 AT X + 3: RETURN
|
||||
140 COLOR= 14: HLIN X + 3,X + 6 AT Y + 5: HLIN X + 3,X + 4 AT Y + 6: PLOT X + 3,Y + 4: PLOT X + 6,Y + 6: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 4
|
||||
142 COLOR= 1: VLIN Y + 7,Y + 13 AT X + 3: VLIN Y + 7,Y + 13 AT X + 4: VLIN Y + 8,Y + 10 AT X + 5: RETURN
|
||||
144 COLOR= 14: HLIN X + 2,X + 3 AT Y + 4: HLIN X + 2,X + 4 AT Y + 5: PLOT X + 3,Y + 6: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 10: PLOT X + 2,Y + 11: COLOR= 9: PLOT X + 4,Y + 4
|
||||
146 COLOR= 1: VLIN Y + 7,Y + 13 AT X + 3: VLIN Y + 7,Y + 13 AT X + 4: VLIN Y + 8,Y + 10 AT X + 5: RETURN
|
||||
150 COLOR= 14: HLIN X + 3,X + 6 AT Y + 5: HLIN X + 3,X + 4 AT Y + 6: PLOT X + 3,Y + 4: PLOT X + 6,Y + 6: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 4
|
||||
152 COLOR= 6: VLIN Y + 7,Y + 13 AT X + 3: VLIN Y + 7,Y + 13 AT X + 4: VLIN Y + 8,Y + 10 AT X + 5: RETURN
|
||||
154 COLOR= 14: HLIN X + 2,X + 3 AT Y + 4: HLIN X + 2,X + 4 AT Y + 5: PLOT X + 3,Y + 6: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 10: PLOT X + 2,Y + 11: COLOR= 9: PLOT X + 4,Y + 4
|
||||
156 COLOR= 6: VLIN Y + 7,Y + 13 AT X + 3: VLIN Y + 7,Y + 13 AT X + 4: VLIN Y + 8,Y + 10 AT X + 5: RETURN
|
||||
160 COLOR= 14: HLIN X + 3,X + 6 AT Y + 5: HLIN X + 3,X + 4 AT Y + 6: PLOT X + 3,Y + 4: PLOT X + 6,Y + 6: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 4
|
||||
162 COLOR= 1: VLIN Y + 7,Y + 13 AT X + 3: RETURN
|
||||
164 COLOR= 14: HLIN X + 2,X + 3 AT Y + 4: HLIN X + 2,X + 4 AT Y + 5: PLOT X + 3,Y + 6: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 10: PLOT X + 2,Y + 11: COLOR= 9: PLOT X + 4,Y + 4
|
||||
166 COLOR= 1: VLIN Y + 7,Y + 13 AT X + 3: RETURN
|
||||
170 COLOR= 14: HLIN X + 3,X + 6 AT Y + 5: HLIN X + 3,X + 4 AT Y + 6: PLOT X + 3,Y + 4: PLOT X + 6,Y + 6: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 4
|
||||
172 COLOR= 6: VLIN Y + 7,Y + 13 AT X + 3: RETURN
|
||||
174 COLOR= 14: HLIN X + 2,X + 3 AT Y + 4: HLIN X + 2,X + 4 AT Y + 5: PLOT X + 3,Y + 6: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 10: PLOT X + 2,Y + 11: COLOR= 9: PLOT X + 4,Y + 4
|
||||
176 COLOR= 6: VLIN Y + 7,Y + 13 AT X + 3: RETURN
|
||||
180 COLOR= 0: FOR I = X TO X + 7: VLIN Y,Y + 14 AT I: NEXT I: RETURN
|
||||
182 COLOR= 13: HLIN X,X + 8 AT Y - 1: HLIN X,X + 8 AT Y + 16: VLIN Y - 1,Y + 16 AT X: VLIN Y - 1,Y + 16 AT X + 8: RETURN
|
||||
190 COLOR= 13: VLIN Y + 1,Y + 5 AT X + 3: RETURN
|
||||
192 COLOR= 13: HLIN X + 2,X + 4 AT Y + 1: HLIN X + 2,X + 4 AT Y + 5: PLOT X + 4,Y + 2: PLOT X + 3,Y + 3: PLOT X + 2,Y + 4: RETURN
|
||||
194 COLOR= 13: HLIN X + 2,X + 4 AT Y + 1: HLIN X + 3,X + 4 AT Y + 3: HLIN X + 2,X + 4 AT Y + 5: VLIN Y + 2,Y + 4 AT X + 4: RETURN
|
||||
196 COLOR= 13: VLIN Y + 1,Y + 4 AT X + 2: VLIN Y + 1,Y + 5 AT X + 4: PLOT X + 3,Y + 4: PLOT X + 5,Y + 4: RETURN
|
||||
200 Y = 10:X = (P - 1) * 10: GOSUB 182: RETURN
|
||||
210 X = 5:Y = 2:T = 20: GOSUB 250
|
||||
220 RETURN
|
||||
250 COLOR= 13: HLIN X,X + 3 AT Y: VLIN Y,Y + 4 AT X: HLIN X,X + 3 AT Y + 4: VLIN Y + 2,Y + 4 AT X + 3
|
||||
251 N = 85: GOSUB 300
|
||||
252 COLOR= 12: VLIN Y+1,Y+4 AT X+5:VLIN Y+1,Y+4 AT X+8:HLIN X+6,X+7 AT Y:HLIN X+6,X+7 AT Y+2
|
||||
253 N = 76: GOSUB 300
|
||||
254 COLOR= 7: HLIN X+10,X + 13 AT Y: VLIN Y,Y + 4 AT X+10: HLIN X+10,X + 13 AT Y + 4: VLIN Y + 2,Y + 4 AT X + 13
|
||||
255 N = 72: GOSUB 300
|
||||
256 COLOR= 13: VLIN Y,Y + 4 AT X + 15: VLIN Y,Y + 4 AT X + 18: PLOT X + 16,Y + 2: PLOT X + 17,Y + 3
|
||||
257 N = 64: GOSUB 300
|
||||
258 COLOR= 12: HLIN X+20,X+23 AT Y:VLIN Y,Y+4 AT X+20:HLIN X+20,X+23 AT Y+4:HLIN X+20,X+22 AT Y+2
|
||||
259 N = 57: GOSUB 300
|
||||
260 COLOR= 7: VLIN Y,Y + 2 AT X + 26: PLOT X + 26,Y + 4
|
||||
261 N = 51: GOSUB 300
|
||||
262 COLOR= 13: VLIN Y,Y + 2 AT X + 28: PLOT X + 28,Y + 4
|
||||
263 N = 48: GOSUB 300
|
||||
264 RETURN
|
||||
300 POKE 768,N: POKE 769,T: CALL 770: RETURN
|
||||
310 N = 64:T = 40: GOSUB 300: GOSUB 300:N = 96:T = 80: GOSUB 300: RETURN
|
||||
320 N = 64:T = 40: GOSUB 300: GOSUB 300:N = 48:T = 80: GOSUB 300: RETURN
|
||||
400 IF P$ = "GGRB" THEN GOSUB 100: RETURN
|
||||
402 IF P$ = "GGRG" THEN GOSUB 104: RETURN
|
||||
404 IF P$ = "GGBB" THEN GOSUB 110: RETURN
|
||||
406 IF P$ = "GGBG" THEN GOSUB 114: RETURN
|
||||
408 IF P$ = "GMRB" THEN GOSUB 120: RETURN
|
||||
410 IF P$ = "GMRG" THEN GOSUB 124: RETURN
|
||||
412 IF P$ = "GMBB" THEN GOSUB 130: RETURN
|
||||
414 IF P$ = "GMBG" THEN GOSUB 134: RETURN
|
||||
416 IF P$ = "PGRB" THEN GOSUB 140: RETURN
|
||||
418 IF P$ = "PGRG" THEN GOSUB 144: RETURN
|
||||
420 IF P$ = "PGBB" THEN GOSUB 150: RETURN
|
||||
422 IF P$ = "PGBG" THEN GOSUB 154: RETURN
|
||||
424 IF P$ = "PMRB" THEN GOSUB 160: RETURN
|
||||
426 IF P$ = "PMRG" THEN GOSUB 164: RETURN
|
||||
428 IF P$ = "PMBB" THEN GOSUB 170: RETURN
|
||||
430 IF P$ = "PMBG" THEN GOSUB 174: RETURN
|
||||
500 GOSUB 80: IF IN$ = "?" THEN GOSUB 2000: POP : GOTO 1000
|
||||
504 RETURN
|
||||
510 HOME
|
||||
512 PRINT "VEUX-TU ARRETER ? (O OU N) ";
|
||||
514 GOSUB 80: IF IN$ < > "O" AND IN$ < > "N" THEN 514
|
||||
516 IF IN$ = "O" THEN 1500
|
||||
518 RETURN
|
||||
520 GOSUB 80: IF ASC (IN$) < > 13 AND ASC (IN$) < > 27 AND IN$ < > "?" THEN 520
|
||||
522 IF IN$ = "?" THEN GOSUB 2000: POP : GOTO 1000
|
||||
524 RETURN
|
||||
699 REM ** CHOOSE DIFFERENT MOPPET **
|
||||
700 TS$ = "G":A = RND (1): IF A < .5 THEN TS$ = "P"
|
||||
702 FT$ = "G":A = RND (1): IF A < .5 THEN FT$ = "M"
|
||||
704 RB$ = "R":A = RND (1): IF A < .5 THEN RB$ = "B"
|
||||
706 BG$ = "B":A = RND (1): IF A < .5 THEN BG$ = "G"
|
||||
708 FOR I = 1 TO 4:P$(I) = TS$ + FT$ + RB$ + BG$: NEXT I
|
||||
710 A = INT ( RND (1) * 4) + 1:P = A:A = INT ( RND (1) * 4) + 1:TRAIT = A: ON TRAIT GOTO 712,716,720,724
|
||||
712 T$ = "G":TR$ = " GRAND !": IF TS$ = "G" THEN T$ = "P":TR$ = " PETIT !"
|
||||
714 P$(P) = T$ + FT$ + RB$ + BG$: GOTO 728
|
||||
716 T$ = "G":TR$ = " GROS !": IF FT$ = "G" THEN T$ = "M":TR$ = " MINCE !"
|
||||
718 P$(P) = TS$ + T$ + RB$ + BG$: GOTO 728
|
||||
720 T$ = "R":TR$ = " ROUGE !": IF RB$ = "R" THEN T$ = "B":TR$ = " BLEU !"
|
||||
722 P$(P) = TS$ + FT$ + T$ + BG$: GOTO 728
|
||||
724 T$ = "B":TR$ = " A BIBBIT!": IF BG$ = "B" THEN T$ = "G":TR$ = " A GRIBBIT!"
|
||||
726 P$(P) = TS$ + FT$ + RB$ + T$
|
||||
728 RETURN
|
||||
1000 GR : HOME : GOSUB 700
|
||||
1005 Z = RND ( - RND (9))
|
||||
1010 C$ = "LEQUEL EST DIFFERENT ? (1, 2, 3 OU 4) "
|
||||
1030 X = - 10:Y = 10: FOR I = 1 TO 4:P$ = P$(I):X = X + 10: GOSUB 400: NEXT I
|
||||
1040 Y = 27:X = 0: GOSUB 190:X = 10: GOSUB 192:X = 20: GOSUB 194:X = 30: GOSUB 196
|
||||
1100 HOME : PRINT C$;
|
||||
1102 GOSUB 500: IF ASC (IN$) = 27 THEN GOSUB 510: GOTO 1100
|
||||
1104 IN = VAL (IN$): IF IN < 1 OR IN > 4 THEN 1102
|
||||
1110 IF IN = P THEN GOSUB 320: GOSUB 200: GOTO 1130
|
||||
1120 PRINT : PRINT : GOSUB 310: PRINT "CE N'EST PAS ";IN".": PRINT "(APPUIE SUR <RETURN>.) ";
|
||||
1122 GOSUB 520: IF ASC (IN$) = 27 THEN GOSUB 510
|
||||
1124 GOTO 1100
|
||||
1130 HOME : PRINT "QUEL TRAIT CARACTERISTIQUE ":PRINT "EST DIFFERENT (A, B, C OU D) ?"
|
||||
1131 PRINT "A (GRAND/PETIT) ";: HTAB 20: PRINT "B (GROS/MINCE) ": PRINT "C (ROUGE/BLEU) ";: HTAB 20: PRINT "D (BIBBIT/GRIBBIT) ";
|
||||
1132 GOSUB 500: IF ASC (IN$) = 27 THEN GOSUB 510: GOTO 1130
|
||||
1134 IN = ASC (IN$) - 64: IF IN < 1 OR IN > 4 THEN 1132
|
||||
1136 IF IN = TR THEN 1200
|
||||
1140 PRINT:GOSUB 310: PRINT "CE N'EST PAS ";IN$;".":PRINT "(APPUIE SUR <RETURN>) ";
|
||||
1142 GOSUB 520: IF ASC (IN$) = 27 THEN GOSUB 510
|
||||
1144 GOTO 1130
|
||||
1200 HOME : PRINT "OUI ! SEUL LE MOPPET ";P;" EST";TR$
|
||||
1202 GOSUB 210
|
||||
1210 PRINT : PRINT "VEUX-TU REJOUER ? (O OU N) ";
|
||||
1212 GET IN$: IF IN$ < > "O" AND IN$ < > "N" THEN 1212
|
||||
1214 IF IN$ = "O" THEN 1000
|
||||
1500 TEXT : HOME : PRINT : POKE 791,2: PRINT CHR$ (4);"RUN MENU"
|
||||
2000 REM ** INSTRUCTIONS **
|
||||
2002 TEXT : HOME : VTAB 2: INVERSE : PRINT ">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";
|
||||
2004 VTAB 23: PRINT ">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";: NORMAL
|
||||
2006 POKE 32,5: POKE 33,30: POKE 34,5: POKE 35,20: REM WINDOW
|
||||
2008 POKE 48,30: VLIN 4,43 AT 0: VLIN 4,43 AT 39: HOME
|
||||
2010 HTAB 6: PRINT "QUI EST DIFFERENT ?"
|
||||
2012 PRINT : PRINT : PRINT "TU VAS VOIR QUATRE MOPPETS."
|
||||
2014 PRINT : PRINT "CHOISIS D'ABORD LE MOPPET DIFFERENT DES AUTRES,"
|
||||
2016 PRINT : PRINT "PUIS CHOISIS LE TRAIT QUI LE REND DIFFERENT."
|
||||
2065 FOR I = 1 TO 1000: NEXT I: POKE - 16368,0
|
||||
2070 VTAB 20: PRINT "APPUIE SUR <RETURN> POUR JOUER. ";
|
||||
2072 GOSUB 80: IF ASC (IN$) = 13 THEN 2090
|
||||
2074 IF ASC (IN$) < > 27 THEN 2072
|
||||
2080 HOME : VTAB 10: PRINT "VEUX-TU ARRETER ? (O/N) ";
|
||||
2082 GET IN$: IF IN$ = "N" THEN 2090
|
||||
2084 IF IN$ = "O" THEN POP : GOTO 1500
|
||||
2086 GOTO 2082
|
||||
2090 TEXT : HOME : RETURN
|
||||
3000 GR : HOME : PRINT : HTAB 10: PRINT "QUI EST DIFFERENT ?"
|
||||
3010 P$(1) = "GGRB":P$(2) = "GGRB":P$(3) = "PGRB":P$(4) = "GGRB"
|
||||
3020 X = - 10:Y = 10: FOR I = 1 TO 4:P$ = P$(I):X = X + 10: GOSUB 400:N = N(I):T = 10: GOSUB 300: NEXT I
|
||||
3022 Y = 27:X = 0: GOSUB 190:X = 10: GOSUB 192:X = 20: GOSUB 194:X = 30: GOSUB 196
|
||||
3024 FOR I = 1 TO 1000: NEXT
|
||||
3030 RETURN
|
||||
10000 CALL 37632
|
||||
194
laparadedesmarionnettes/basic/QUI VIENT ENSUITE.BAS
Normal file
194
laparadedesmarionnettes/basic/QUI VIENT ENSUITE.BAS
Normal file
@ -0,0 +1,194 @@
|
||||
0 ONERR GOTO 10000
|
||||
1 POKE 791,32
|
||||
5 REM WHO COMES NEXT?, COPYRIGHT 1981, LESLIE M. GRIMM
|
||||
10 D$ = CHR$ (4)
|
||||
20 DIM PP$(17):PP$(1) = "GGRB":PP$(2) = "GGRG":PP$(3) = "GGBB":PP$(4) = "GGBG":PP$(5) = "GMRB":PP$(6) = "GMRG":PP$(7) = "GMBB":PP$(8) = "GMBG"
|
||||
22 PP$(9) = "PGRB":PP$(10) = "PGRG":PP$(11) = "PGBB":PP$(12) = "PGBG":PP$(13) = "PMRB":PP$(14) = "PMRG":PP$(15) = "PMBB":PP$(16) = "PMBG"
|
||||
24 DIM N(9):N(1) = 96:N(2) = 76:N(3) = 85:N(4) = 72:N(5) = 64:N(6) = 57:N(7) = 51:N(8) = 48
|
||||
35 GOSUB 3000: HOME
|
||||
40 PRINT : PRINT "VEUX-TU DES INSTRUCTIONS? (O OU N) ";
|
||||
42 GOSUB 60: IF IN$ < > "O" AND IN$ < > "N" AND ASC (IN$) < > 27 THEN 42
|
||||
44 IF ASC (IN$) = 27 THEN GOSUB 520: HOME : GOTO 40
|
||||
46 IF IN$ = "O" THEN GOSUB 2000
|
||||
50 GOTO 1000
|
||||
60 GET IN$: IF LEN (IN$) < 1 THEN 60
|
||||
62 RETURN
|
||||
100 COLOR= 14: PLOT X + 3,Y + 1: HLIN X + 3,X + 6 AT Y + 2: HLIN X + 3,X + 4 AT Y + 3: PLOT X + 6,Y + 3: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 1
|
||||
102 COLOR= 1: VLIN Y + 4,Y + 13 AT X + 3: VLIN Y + 4,Y + 13 AT X + 4: VLIN Y + 5,Y + 8 AT X + 5: RETURN
|
||||
104 COLOR= 14: HLIN X + 2,X + 3 AT Y + 1: HLIN X + 2,X + 4 AT Y + 2: PLOT X + 3,Y + 3: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 8: PLOT X + 2,Y + 9: COLOR= 9: PLOT X + 4,Y + 1
|
||||
106 COLOR= 1: VLIN Y + 4,Y + 13 AT X + 3: VLIN Y + 4,Y + 13 AT X + 4: VLIN Y + 5,Y + 8 AT X + 5: RETURN
|
||||
110 COLOR= 14: PLOT X + 3,Y + 1: HLIN X + 3,X + 6 AT Y + 2: HLIN X + 3,X + 4 AT Y + 3: PLOT X + 6,Y + 3: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 1
|
||||
112 COLOR= 6: VLIN Y + 4,Y + 13 AT X + 3: VLIN Y + 4,Y + 13 AT X + 4: VLIN Y + 5,Y + 8 AT X + 5: RETURN
|
||||
114 COLOR= 14: HLIN X + 2,X + 3 AT Y + 1: HLIN X + 2,X + 4 AT Y + 2: PLOT X + 3,Y + 3: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 8: PLOT X + 2,Y + 9: COLOR= 9: PLOT X + 4,Y + 1
|
||||
116 COLOR= 6: VLIN Y + 4,Y + 13 AT X + 3: VLIN Y + 4,Y + 13 AT X + 4: VLIN Y + 5,Y + 8 AT X + 5: RETURN
|
||||
120 COLOR= 14: PLOT X + 3,Y + 1: HLIN X + 3,X + 6 AT Y + 2: HLIN X + 3,X + 4 AT Y + 3: PLOT X + 6,Y + 3: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 1
|
||||
122 COLOR= 1: VLIN Y + 4,Y + 13 AT X + 3: RETURN
|
||||
124 COLOR= 14: HLIN X + 2,X + 3 AT Y + 1: HLIN X + 2,X + 4 AT Y + 2: PLOT X + 3,Y + 3: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 8: PLOT X + 2,Y + 9: COLOR= 9: PLOT X + 4,Y + 1
|
||||
126 COLOR= 1: VLIN Y + 4,Y + 13 AT X + 3: RETURN
|
||||
130 COLOR= 14: PLOT X + 3,Y + 1: HLIN X + 3,X + 6 AT Y + 2: HLIN X + 3,X + 4 AT Y + 3: PLOT X + 6,Y + 3: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 1
|
||||
132 COLOR= 6: VLIN Y + 4,Y + 13 AT X + 3: RETURN
|
||||
134 COLOR= 14: HLIN X + 2,X + 3 AT Y + 1: HLIN X + 2,X + 4 AT Y + 2: PLOT X + 3,Y + 3: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 8: PLOT X + 2,Y + 9: COLOR= 9: PLOT X + 4,Y + 1
|
||||
136 COLOR= 6: VLIN Y + 4,Y + 13 AT X + 3: RETURN
|
||||
140 COLOR= 14: HLIN X + 3,X + 6 AT Y + 5: HLIN X + 3,X + 4 AT Y + 6: PLOT X + 3,Y + 4: PLOT X + 6,Y + 6: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 4
|
||||
142 COLOR= 1: VLIN Y + 7,Y + 13 AT X + 3: VLIN Y + 7,Y + 13 AT X + 4: VLIN Y + 8,Y + 10 AT X + 5: RETURN
|
||||
144 COLOR= 14: HLIN X + 2,X + 3 AT Y + 4: HLIN X + 2,X + 4 AT Y + 5: PLOT X + 3,Y + 6: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 10: PLOT X + 2,Y + 11: COLOR= 9: PLOT X + 4,Y + 4
|
||||
146 COLOR= 1: VLIN Y + 7,Y + 13 AT X + 3: VLIN Y + 7,Y + 13 AT X + 4: VLIN Y + 8,Y + 10 AT X + 5: RETURN
|
||||
150 COLOR= 14: HLIN X + 3,X + 6 AT Y + 5: HLIN X + 3,X + 4 AT Y + 6: PLOT X + 3,Y + 4: PLOT X + 6,Y + 6: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 4
|
||||
152 COLOR= 6: VLIN Y + 7,Y + 13 AT X + 3: VLIN Y + 7,Y + 13 AT X + 4: VLIN Y + 8,Y + 10 AT X + 5: RETURN
|
||||
154 COLOR= 14: HLIN X + 2,X + 3 AT Y + 4: HLIN X + 2,X + 4 AT Y + 5: PLOT X + 3,Y + 6: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 10: PLOT X + 2,Y + 11: COLOR= 9: PLOT X + 4,Y + 4
|
||||
156 COLOR= 6: VLIN Y + 7,Y + 13 AT X + 3: VLIN Y + 7,Y + 13 AT X + 4: VLIN Y + 8,Y + 10 AT X + 5: RETURN
|
||||
160 COLOR= 14: HLIN X + 3,X + 6 AT Y + 5: HLIN X + 3,X + 4 AT Y + 6: PLOT X + 3,Y + 4: PLOT X + 6,Y + 6: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 4
|
||||
162 COLOR= 1: VLIN Y + 7,Y + 13 AT X + 3: RETURN
|
||||
164 COLOR= 14: HLIN X + 2,X + 3 AT Y + 4: HLIN X + 2,X + 4 AT Y + 5: PLOT X + 3,Y + 6: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 10: PLOT X + 2,Y + 11: COLOR= 9: PLOT X + 4,Y + 4
|
||||
166 COLOR= 1: VLIN Y + 7,Y + 13 AT X + 3: RETURN
|
||||
170 COLOR= 14: HLIN X + 3,X + 6 AT Y + 5: HLIN X + 3,X + 4 AT Y + 6: PLOT X + 3,Y + 4: PLOT X + 6,Y + 6: HLIN X + 2,X + 6 AT Y + 14: PLOT X + 6,Y + 13: COLOR= 9: PLOT X + 4,Y + 4
|
||||
172 COLOR= 6: VLIN Y + 7,Y + 13 AT X + 3: RETURN
|
||||
174 COLOR= 14: HLIN X + 2,X + 3 AT Y + 4: HLIN X + 2,X + 4 AT Y + 5: PLOT X + 3,Y + 6: HLIN X + 3,X + 5 AT Y + 14: PLOT X + 1,Y + 10: PLOT X + 2,Y + 11: COLOR= 9: PLOT X + 4,Y + 4
|
||||
176 COLOR= 6: VLIN Y + 7,Y + 13 AT X + 3: RETURN
|
||||
180 COLOR= 0: FOR I = X TO X + 7: VLIN Y,Y + 14 AT I: NEXT I: RETURN
|
||||
182 COLOR= 13: HLIN X + 3,X + 6 AT Y + 6: VLIN Y + 7,Y + 8 AT X + 6: VLIN Y + 10,Y + 11 AT X + 4: PLOT X + 5,Y + 9: PLOT X + 4,Y + 13: RETURN
|
||||
190 COLOR= INT ( RND (1) * 15) + 1: HLIN X,X + 7 AT Y - 2: HLIN X,X + 7 AT Y + 18: VLIN Y - 2,Y + 18 AT X: VLIN Y - 2,Y + 18 AT X + 7: RETURN
|
||||
192 COLOR= 0: HLIN X,X + 7 AT Y - 2: HLIN X,X + 7 AT Y + 18: VLIN Y - 2,Y + 18 AT X: VLIN Y - 2,Y + 18 AT X + 7: RETURN
|
||||
200 FOR I = 1 TO 200: NEXT I: COLOR= 0: HLIN 0,39 AT 14: HLIN 0,39 AT 30
|
||||
202 T = 20:X = - 8
|
||||
210 FOR M = 1 TO 5
|
||||
220 X = X + 8: GOSUB 190:N = N(M): GOSUB 300
|
||||
224 FOR I = 1 TO 50: NEXT I
|
||||
226 GOSUB 192
|
||||
230 NEXT M
|
||||
232 FOR M = 1 TO 5: GOSUB 190:A = INT ( RND (1) * 5) + 1:N = N(A): GOSUB 300: NEXT M
|
||||
240 RETURN
|
||||
300 POKE 768,N: POKE 769,T: CALL 770: RETURN
|
||||
400 IF P$ = "GGRB" THEN GOSUB 100: RETURN
|
||||
402 IF P$ = "GGRG" THEN GOSUB 104: RETURN
|
||||
404 IF P$ = "GGBB" THEN GOSUB 110: RETURN
|
||||
406 IF P$ = "GGBG" THEN GOSUB 114: RETURN
|
||||
408 IF P$ = "GMRB" THEN GOSUB 120: RETURN
|
||||
410 IF P$ = "GMRG" THEN GOSUB 124: RETURN
|
||||
412 IF P$ = "GMBB" THEN GOSUB 130: RETURN
|
||||
414 IF P$ = "GMBG" THEN GOSUB 134: RETURN
|
||||
416 IF P$ = "PGRB" THEN GOSUB 140: RETURN
|
||||
418 IF P$ = "PGRG" THEN GOSUB 144: RETURN
|
||||
420 IF P$ = "PGBB" THEN GOSUB 150: RETURN
|
||||
422 IF P$ = "PGBG" THEN GOSUB 154: RETURN
|
||||
424 IF P$ = "PMRB" THEN GOSUB 160: RETURN
|
||||
426 IF P$ = "PMRG" THEN GOSUB 164: RETURN
|
||||
428 IF P$ = "PMBB" THEN GOSUB 170: RETURN
|
||||
430 IF P$ = "PMBG" THEN GOSUB 174: RETURN
|
||||
500 GOSUB 60: IF IN$ = "" THEN 500
|
||||
502 IF ASC (IN$) = 27 THEN GOSUB 520:IN$ = "ESC": RETURN
|
||||
504 IF (IN$) = "?" THEN GOSUB 2000: POP : POP : GOTO 1000
|
||||
506 RETURN
|
||||
520 HOME : PRINT "VEUX-TU T'ARRETER ? (O/N) ";
|
||||
522 GET IN$: IF IN$ < > "O" AND IN$ < > "N" THEN 520
|
||||
524 IF IN$ = "O" THEN HOME : GOTO 1500
|
||||
526 HOME : RETURN
|
||||
530 GOSUB 60: IF ASC (IN$) < > 13 AND ASC (IN$) < > 27 THEN 530
|
||||
532 IF ASC (IN$) = 27 THEN GOSUB 520: RETURN
|
||||
534 RETURN
|
||||
540 GOSUB 60: IF ASC (IN$) < > 13 AND ASC (IN$) < > 27 AND IN$ < > "?" THEN 540
|
||||
542 IF ASC (IN$) = 27 THEN GOSUB 520: RETURN
|
||||
544 IF IN$ = "?" THEN GOSUB 2000: POP : GOTO 1000
|
||||
546 RETURN
|
||||
600 POKE 34,20: HOME : PRINT "QUI VIENT ENSUITE ?": PRINT : PRINT "GRAND OU PETIT ? (G OU P) ";
|
||||
602 GOSUB 500: IF IN$ = "ESC" THEN GOTO 600
|
||||
603 IF IN$ < > "G" AND IN$ < > "P" THEN 602
|
||||
604 G1$ = IN$:GA$ = "GRAND": IF G1$ = "P" THEN GA$ = "PETIT"
|
||||
606 HOME : VTAB 21: PRINT GA$: POKE 34,22
|
||||
610 HOME : PRINT "GROS OU MINCE ? (G OU M) ";
|
||||
612 GOSUB 500: IF IN$ = "ESC" THEN GOTO 610
|
||||
613 IF IN$ = CHR$ (8) THEN 600: REM ARROW
|
||||
614 IF IN$ < > "G" AND IN$ < > "M" THEN 612
|
||||
616 G2$ = IN$:GB$ = "GROS": IF G2$ = "T" THEN GB$ = "MINCE"
|
||||
618 HOME : VTAB 21: PRINT GA$;", ";GB$
|
||||
620 HOME : PRINT "ROUGE OU BLEU ? (R OU B) ";
|
||||
622 GOSUB 500: IF IN$ = "ESC" THEN 620
|
||||
623 IF IN$ = CHR$ (8) THEN 600: REM ARROW
|
||||
624 IF IN$ < > "R" AND IN$ < > "B" THEN 622
|
||||
626 G3$ = IN$:GC$ = "ROUGE": IF G3$ = "B" THEN GC$ = "BLEU"
|
||||
628 HOME : VTAB 21: PRINT GA$;", ";GB$;", ";GC$
|
||||
630 HOME : PRINT "BIBBIT OU GRIBBIT? (B OU G) ";
|
||||
632 GOSUB 500: IF IN$ = "ESC" THEN GOTO 630
|
||||
633 IF IN$ = CHR$ (8) THEN 600: REM ARROW
|
||||
634 IF IN$ < > "B" AND IN$ < > "G" THEN 632
|
||||
636 G4$ = IN$:GD$ = "BIBBIT": IF G4$ = "G" THEN GD$ = "GRIBBIT"
|
||||
638 HOME : VTAB 21: PRINT GA$;", ";GB$;", ";GC$;" ";GD$
|
||||
640 GUESS$ = G1$ + G2$ + G3$ + G4$: RETURN
|
||||
700 REM ** DEFINE M$ FOR CLUE **
|
||||
702 M1$ = LEFT$ (M$,1): IF M1$ = "G" THEN M1$ = "GRAND, "
|
||||
704 IF M1$ = "P" THEN M1$ = "PETIT, "
|
||||
706 M2$ = MID$ (M$,2,1): IF M2$ = "M" THEN M2$ = "MINCE, "
|
||||
708 IF M2$ = "G" THEN M2$ = "GROS, "
|
||||
710 M3$ = MID$ (M$,3,1): IF M3$ = "B" THEN M3$ = "BLEU "
|
||||
712 IF M3$ = "R" THEN M3$ = "ROUGE "
|
||||
714 M4$ = RIGHT$ (M$,1): IF M4$ = "B" THEN M4$ = "BIBBIT"
|
||||
716 IF M4$ = "G" THEN M4$ = "GRIBBIT"
|
||||
720 M$ = M1$ + M2$ + M3$ + M4$: RETURN
|
||||
1000 GR : HOME
|
||||
1002 COLOR= 13: HLIN 0,39 AT 14: HLIN 0,39 AT 30
|
||||
1004 Y = 15:T = 40
|
||||
1010 TS$ = "G":A = RND (1): IF A < .5 THEN TS$ = "P"
|
||||
1012 FT$ = "G":A = RND (1): IF A < .5 THEN FT$ = "M"
|
||||
1014 RB$ = "R":A = RND (1): IF A < .5 THEN RB$ = "B"
|
||||
1016 BG$ = "B":A = RND (1): IF A < .5 THEN BG$ = "G"
|
||||
1018 P$(1) = TS$ + FT$ + RB$ + BG$:M$ = P$(1): GOSUB 700:M$(1) = M$
|
||||
1020 A = INT ( RND (1) * 4) + 1: ON A GOTO 1022,1024,1026,1028
|
||||
1022 IF TS$ = "G" THEN TS$ = "P": GOTO 1030
|
||||
1023 IF TS$ = "P" THEN TS$ = "G": GOTO 1030
|
||||
1024 IF FT$ = "G" THEN FT$ = "M": GOTO 1030
|
||||
1025 IF FT$ = "M" THEN FT$ = "G": GOTO 1030
|
||||
1026 IF RB$ = "R" THEN RB$ = "B": GOTO 1030
|
||||
1027 IF RB$ = "B" THEN RB$ = "R": GOTO 1030
|
||||
1028 IF BG$ = "B" THEN BG$ = "G": GOTO 1030
|
||||
1029 IF BG$ = "G" THEN BG$ = "B"
|
||||
1030 P$(2) = TS$ + FT$ + RB$ + BG$:M$ = P$(2): GOSUB 700:M$(2) = M$
|
||||
1031 A = INT ( RND (1) * 3) + 1: ON A GOTO 1032,1036,1040
|
||||
1032 X = 0:P$ = P$(1): GOSUB 400:N = 96: GOSUB 300:X = 8:P$ = P$(2): GOSUB 400:N = 76: GOSUB 300:X = 16:P$ = P$(1): GOSUB 400:N = 96: GOSUB 300:X = 24:P$ = P$(2): GOSUB 400:N = 76: GOSUB 300
|
||||
1034 X = 32: GOSUB 182:AN$ = P$(1):AN = 1:PA$ = "A B A B A B.": GOTO 1100
|
||||
1036 P$ = P$(1):X = 0: GOSUB 400:N = 96: GOSUB 300:P$ = P$(2):X = 8: GOSUB 400:N = 76: GOSUB 300:P$ = P$(2):X = 16: GOSUB 400:N = 76: GOSUB 300:P$ = P$(1):X = 24: GOSUB 400:N = 96: GOSUB 300
|
||||
1038 X = 32: GOSUB 182:AN$ = P$(2):AN = 2:PA$ = "A B B A B B.": GOTO 1100
|
||||
1040 P$ = P$(1):X = 0: GOSUB 400:N = 96: GOSUB 300:P$ = P$(1):X = 8: GOSUB 400:N = 96: GOSUB 300:P$ = P$(2):X = 16: GOSUB 400:N = 76: GOSUB 300:P$ = P$(1):X = 24: GOSUB 400:N = 96: GOSUB 300
|
||||
1042 X = 32: GOSUB 182:AN$ = P$(1):AN = 1:PA$ = "A A B A A B.": GOTO 1100
|
||||
1100 GOSUB 600
|
||||
1110 HOME :P$ = GUESS$: GOSUB 180: GOSUB 400
|
||||
1120 IF GUESS$ = AN$ THEN N = N(AN): POKE 34,20: GOSUB 300: GOTO 1200
|
||||
1122 IF GUESS$ < > P$(1) AND GUESS$ < > P$(2) THEN 1140
|
||||
1130 POKE 34,21: HOME : PRINT "MA SEQUENCE EST ";PA$:N = 96:T = 40: GOSUB 300:N = 128:T = 80: GOSUB 300:T = 40
|
||||
1132 VTAB 24: HTAB 1: PRINT "(APPUIE SUR <RETURN>.) ";
|
||||
1134 GOSUB 540: GOSUB 180: GOSUB 182: POKE 34,20: HOME : GOTO 1100
|
||||
1140 POKE 34,21: HOME : PRINT "CE DOIT ETRE ";M$(1): PRINT "OU UN ";M$(2);"."
|
||||
1142 N = 96:T = 40: GOSUB 300:N = 128:T = 80: GOSUB 300:T = 40
|
||||
1144 VTAB 24: HTAB 1: PRINT "(APPUIE SUR <RETURN>.) ";
|
||||
1146 GOSUB 540: GOSUB 180: GOSUB 182: POKE 34,20: HOME : GOTO 1100
|
||||
1200 HOME : PRINT "TU AS TROUVE !"
|
||||
1202 GOSUB 200
|
||||
1210 PRINT : PRINT "VEUX-TU REJOUER ? (O OU N) ";
|
||||
1212 GET IN$: IF IN$ < > "O" AND IN$ < > "N" THEN 1212
|
||||
1214 IF IN$ = "O" THEN 1000
|
||||
1500 TEXT : HOME : PRINT : POKE 791,2: PRINT CHR$ (4);"RUN MENU"
|
||||
2000 REM ** INSTRUCTIONS **
|
||||
2002 TEXT : HOME : VTAB 2: INVERSE : PRINT ">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";
|
||||
2004 VTAB 23: PRINT ">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";: NORMAL
|
||||
2006 POKE 32,5: POKE 33,30: POKE 34,5: POKE 35,20: REM WINDOW
|
||||
2008 POKE 48,30: VLIN 4,43 AT 0: VLIN 4,43 AT 39: HOME
|
||||
2010 PRINT " QUI VIENT ENSUITE ?"
|
||||
2012 PRINT : PRINT "LES MOPPETS SONT PLACES EN L'UNE DES 3 SEQUENCES :"
|
||||
2014 PRINT : PRINT " 1 A B A B A B"
|
||||
2016 PRINT " 2 A B B A B B"
|
||||
2018 PRINT " 3 A A B A A B"
|
||||
2020 PRINT : PRINT "DETERMINE QUELLE SEQUENCE TU VOIS."
|
||||
2022 PRINT "CHOISIS QUI VIENT ENSUITE."
|
||||
2030 FOR I = 1 TO 2000: NEXT
|
||||
2080 VTAB 19: PRINT "APPUIE SUR <RETURN> POUR JOUER. ";
|
||||
2082 GOSUB 530
|
||||
2084 TEXT : HOME : RETURN
|
||||
3000 GR : HOME :Y = 15:P$(1) = "GGRB":P$(2) = "PMBG":T = 40
|
||||
3010 X = 0:P$ = P$(1): GOSUB 400:N = 96: GOSUB 300:X = 8:P$ = P$(2): GOSUB 400:N = 76: GOSUB 300:X = 16:P$ = P$(1): GOSUB 400:N = 96: GOSUB 300:X = 24:P$ = P$(2): GOSUB 400:N = 76: GOSUB 300
|
||||
3012 X = 32: GOSUB 182
|
||||
3020 HTAB 10: PRINT "QUI VIENT ENSUITE ?"
|
||||
3030 PRINT : PRINT "DETERMINE LA SEQUENCE QUE TU VOIS ET QUIVIENT ENSUITE."
|
||||
3040 PRINT "APPUIE SUR <RETURN> QUAND TU ES PRET. ";
|
||||
3042 GOSUB 530
|
||||
3044 GOSUB 180:P$ = P$(1): GOSUB 400:N = 96: GOSUB 300
|
||||
3050 HOME : RETURN
|
||||
10000 CALL 37632
|
||||
169
laparadedesmarionnettes/basic/REPRESENTE MON CONTRAIRE.BAS
Normal file
169
laparadedesmarionnettes/basic/REPRESENTE MON CONTRAIRE.BAS
Normal file
@ -0,0 +1,169 @@
|
||||
0 ONERR GOTO 10000
|
||||
1 POKE 791,32
|
||||
5 D$ = CHR$ (4)
|
||||
7 REM MAKE MY OPPOSITE, COPYRIGHT 1983, LESLIE M GRIMM
|
||||
10 TEXT : HOME
|
||||
12 ARROW$ = CHR$ (8)
|
||||
14 KB = - 16384:SPACE = 32 + 128
|
||||
30 POKE - 16368,0: GOSUB 3000
|
||||
32 VTAB 24: HTAB 1
|
||||
40 PRINT "VEUX-TU DES INSTRUCTIONS? (O OU N) ";
|
||||
42 GOSUB 80: IF IN$ < > "O" AND ASC (IN$) < > 27 AND IN$ < > "N" THEN 42
|
||||
44 IF IN$ = "O" THEN GOSUB 2000
|
||||
45 IF ASC (IN$) = 27 THEN 60
|
||||
50 GOTO 1000
|
||||
60 HOME : PRINT "DO YOU WANT TO STOP? (Y OR N) ";
|
||||
62 GET IN$: IF IN$ < > "Y" AND IN$ < > "N" THEN 62
|
||||
64 IF IN$ = "Y" THEN 1500
|
||||
66 HOME : PRINT : GOTO 40
|
||||
80 GET IN$: IF LEN (IN$) < 1 THEN 80
|
||||
82 RETURN
|
||||
100 COLOR= 14: VLIN Y + 1,Y + 3 AT X + 3: VLIN Y + 2,Y + 3 AT X + 4: HLIN X + 3,X + 5 AT Y + 14: COLOR= 9: PLOT X + 4,Y + 1: COLOR= 15: VLIN Y + 4,Y + 13 AT X + 3: VLIN Y + 4,Y + 13 AT X + 4: RETURN
|
||||
102 COLOR= 14: VLIN Y + 4,Y + 6 AT X + 3: VLIN Y + 5,Y + 6 AT X + 4: HLIN X + 3,X + 5 AT Y + 14: COLOR= 9: PLOT X + 4,Y + 4: COLOR= 15: VLIN Y + 7,Y + 13 AT X + 3: VLIN Y + 7,Y + 13 AT X + 4: RETURN
|
||||
110 COLOR= 15: IF G1$ = "GRAND" THEN VLIN Y + 5,Y + 8 AT X + 5: RETURN
|
||||
112 VLIN Y + 8,Y + 10 AT X + 5: RETURN
|
||||
114 COLOR= 0: IF G1$ = "GRAND" THEN VLIN Y + 4,Y + 13 AT X + 4: RETURN
|
||||
116 VLIN Y + 7,Y + 13 AT X + 4: RETURN
|
||||
120 COLOR= HUE: IF G1$ = "GRAND" AND G2$ = "GROS" THEN VLIN Y + 4,Y + 13 AT X + 3: VLIN Y + 4,Y + 13 AT X + 4: VLIN Y + 5,Y + 8 AT X + 5: RETURN
|
||||
122 IF G1$ = "GRAND" AND G2$ = "MINCE" THEN VLIN Y + 4,Y + 13 AT X + 3: RETURN
|
||||
124 IF G1$ = "PETIT" AND G2$ = "GROS" THEN VLIN Y + 7,Y + 13 AT X + 3: VLIN Y + 7,Y + 13 AT X + 4: VLIN Y + 8,Y + 10 AT X + 5: RETURN
|
||||
126 IF G1$ = "PETIT" AND G2$ = "MINCE" THEN VLIN Y + 7,Y + 13 AT X + 3: RETURN
|
||||
130 COLOR= 14: IF G1$ = "GRAND" THEN VLIN Y + 1,Y + 2 AT X + 2: PLOT X + 1,Y + 8: PLOT X + 2,Y + 9: COLOR= 0: PLOT X + 4,Y + 3: RETURN
|
||||
134 COLOR= 14: VLIN Y + 4,Y + 5 AT X + 2: PLOT X + 1,Y + 10: PLOT X + 2,Y + 11: COLOR= 0: PLOT X + 4,Y + 6: RETURN
|
||||
140 COLOR= 14: IF G1$ = "GRAND" THEN HLIN X + 5,X + 6 AT Y + 2: PLOT X + 6,Y + 3: VLIN Y + 13,Y + 14 AT X + 6: PLOT X + 2,Y + 14: RETURN
|
||||
142 HLIN X + 5,X + 6 AT Y + 5: PLOT X + 6,Y + 6: VLIN Y + 13,Y + 14 AT X + 6: PLOT X + 2,Y + 14: RETURN
|
||||
150 T = 5: FOR I = 1 TO 20: COLOR= INT ( RND (1) * 15) + 1: HLIN X - 1,X + 8 AT Y - 1: VLIN Y - 1,Y + 16 AT X + 8: HLIN X - 1,X + 8 AT Y + 16: VLIN Y - 1,Y + 16 AT X - 1
|
||||
152 P = RND (1) * 200 + 10: GOSUB 300: NEXT I: RETURN
|
||||
160 COLOR= 15: HLIN X - 1,X + 8 AT Y - 1: VLIN Y - 1,Y + 16 AT X + 8: HLIN X - 1,X + 8 AT Y + 16: VLIN Y - 1,Y + 16 AT X - 1
|
||||
162 T = 40:P = 96: GOSUB 300: GOSUB 300:T = 80:P = 192: GOSUB 300: RETURN
|
||||
164 COLOR= 15: HLIN X - 1,X + 8 AT Y - 1: VLIN Y - 1,Y + 16 AT X + 8: HLIN X - 1,X + 8 AT Y + 16: VLIN Y - 1,Y + 16 AT X - 1: RETURN
|
||||
170 COLOR= 0: FOR I = X TO X + 7: VLIN Y,Y + 16 AT I: NEXT I: RETURN
|
||||
180 COLOR= 0: FOR I = X + 1 TO X + 6: VLIN Y + 1,Y + 14 AT I: NEXT I: RETURN
|
||||
250 FOR I = 1 TO 700: NEXT I: RETURN
|
||||
300 POKE 768,P: POKE 769,T: CALL 770: RETURN
|
||||
400 GOSUB 80: IF IN$ = "?" THEN POP : GOSUB 2000: GOTO 1000
|
||||
402 IF ASC (IN$) = 27 THEN GOSUB 420
|
||||
404 RETURN
|
||||
420 HOME : PRINT "VEUX-TU T'ARRETER ? (O OU N) ";
|
||||
422 GET IN$: IF IN$ < > "O" AND IN$ < > "N" THEN 422
|
||||
424 IF IN$ = "O" THEN 1500
|
||||
426 HOME : RETURN
|
||||
1000 X = 8:Y = 15
|
||||
1010 GR : HOME : POKE 34,22: HOME
|
||||
1020 A = RND (1):TS$ = "GRAND": IF A < .5 THEN TS$ = "PETIT"
|
||||
1022 A = RND (1):FT$ = "GROS": IF A < .5 THEN FT$ = "MINCE"
|
||||
1024 A = RND (1):RB$ = "ROUGE": IF A < .5 THEN RB$ = "BLEU"
|
||||
1026 A = RND (1):BG$ = "BIBBIT": IF A < .5 THEN BG$ = "GRIBBIT"
|
||||
1030 G1$ = TS$:G2$ = FT$:G3$ = RB$:G4$ = BG$
|
||||
1032 IF TS$ = "GRAND" THEN GOSUB 100:C1$ = "PETIT"
|
||||
1034 IF TS$ = "PETIT" THEN GOSUB 102:C1$ = "GRAND"
|
||||
1036 IF FT$ = "GROS" THEN GOSUB 110:C2$ = "MINCE"
|
||||
1038 IF FT$ = "MINCE" THEN GOSUB 114:C2$ = "GROS"
|
||||
1040 HUE = 1:C3$ = "BLEU": IF RB$ = "BLEU" THEN HUE = 6:C3$ = "ROUGE"
|
||||
1042 GOSUB 120
|
||||
1044 IF BG$ = "GRIBBIT" THEN GOSUB 130:C4$ = "UN BIBBIT"
|
||||
1046 IF BG$ = "BIBBIT" THEN GOSUB 140:C4$ = "UN GRIBBIT"
|
||||
1050 GOSUB 164
|
||||
1090 GUESS = 0:C = 0
|
||||
1100 X = 24: POKE 34,20: HOME : GOSUB 180: GOSUB 164: POKE 34,22: HOME
|
||||
1102 PRINT "GRAND OU PETIT ? (G OU P) ";
|
||||
1110 GOSUB 400:G1$ = IN$: IF G1$ = ARROW$ THEN 1100
|
||||
1112 IF G1$ < > "G" AND G1$ < > "P" THEN 1100
|
||||
1114 IF G1$ = "G" THEN G1$ = "GRAND": GOSUB 100
|
||||
1116 IF G1$ = "P" THEN G1$ = "PETIT": GOSUB 102
|
||||
1117 HOME : VTAB 21: PRINT G1$: POKE 34,22: HOME
|
||||
1118 T = 10:P = 192: GOSUB 300
|
||||
1120 HOME : PRINT "GROS OU MINCE ? (G OU M) ";
|
||||
1122 GOSUB 400:G2$ = IN$: IF G2$ = ARROW$ THEN 1100
|
||||
1123 IF G2$ < > "G" AND G2$ < > "M" THEN 1120
|
||||
1124 IF G2$ = "G" THEN G2$ = "GROS": GOSUB 110
|
||||
1126 IF G2$ = "M" THEN G2$ = "MINCE": GOSUB 114
|
||||
1127 HOME : VTAB 21: PRINT G1$", ";G2$
|
||||
1128 T = 10:P = 171: GOSUB 300
|
||||
1130 HOME : PRINT "ROUGE OU BLEU ? (R OU B) ";
|
||||
1132 GOSUB 400:G3$ = IN$: IF G3$ = ARROW$ THEN 1100
|
||||
1133 IF G3$ < > "R" AND G3$ < > "B" THEN 1130
|
||||
1134 IF G3$ = "R" THEN G3$ = "ROUGE":HUE = 1: GOSUB 120
|
||||
1136 IF G3$ = "B" THEN G3$ = "BLEU":HUE = 6: GOSUB 120
|
||||
1137 HOME : VTAB 21: PRINT G1$", ";G2$", ";G3$
|
||||
1138 T = 10:P = 152: GOSUB 300
|
||||
1140 HOME : PRINT "BIBBIT OU GRIBBIT? (B OU G) ";
|
||||
1142 GOSUB 400:G4$ = IN$: IF G4$ = ARROW$ THEN 1100
|
||||
1143 IF G4$ < > "B" AND G4$ < > "G" THEN 1140
|
||||
1144 IF G4$ = "B" THEN G4$ = "BIBBIT": GOSUB 140
|
||||
1146 IF G4$ = "G" THEN G4$ = "GRIBBIT": GOSUB 130
|
||||
1147 HOME : VTAB 21: PRINT G1$", ";G2$;", ";G3$" ";G4$
|
||||
1148 T = 10:P = 144: GOSUB 300
|
||||
1150 IF G1$ < > TS$ AND G2$ < > FT$ AND G3$ < > RB$ AND G4$ < > BG$ THEN FOR I = 1 TO 500: NEXT : GOTO 1200
|
||||
1160 FOR I = 1 TO 500: NEXT I: GOSUB 162: POKE 34,21
|
||||
1162 FOR I = 1 TO 4:CL$(I) = "": NEXT :K = 0
|
||||
1164 HOME : PRINT "ON LE FAIT ";
|
||||
1166 IF G1$ = TS$ THEN K = K + 1:CL$(K) = C1$
|
||||
1168 IF G2$ = FT$ THEN K = K + 1:CL$(K) = C2$
|
||||
1170 IF G3$ = RB$ THEN K = K + 1:CL$(K) = C3$
|
||||
1172 IF G4$ = BG$ THEN K = K + 1:CL$(K) = C4$
|
||||
1174 IF K > 1 THEN 1178
|
||||
1176 PRINT CL$(K);".": GOTO 1190
|
||||
1178 IF K > 2 THEN 1182
|
||||
1180 PRINT CL$(1);" AND ";CL$(2);".": GOTO 1190
|
||||
1182 IF K > 3 THEN 1186
|
||||
1184 PRINT CL$(1)", ";CL$(2);" ET ";CL$(3);".": GOTO 1190
|
||||
1186 PRINT CL$(1);", ";CL$(2);", ";CL$(3);" ET":PRINT CL$(4);"."
|
||||
1190 VTAB 24: HTAB 1: PRINT "(APPUIE SUR <RETURN>.) ";
|
||||
1192 GOSUB 400: IF IN$ < > CHR$ (13) THEN VTAB 24: HTAB 1: CALL - 958: GOTO 1190
|
||||
1196 POKE 34,20: HOME : GOSUB 180: GOTO 1100
|
||||
1200 HOME : PRINT "TU AS CREE MON CONTRAIRE !": GOSUB 150
|
||||
1210 PRINT : PRINT "VEUX-TU REJOUER ? (O OU N) ";
|
||||
1212 GET IN$: IF IN$ < > "O" AND IN$ < > "N" THEN 1212
|
||||
1214 IF IN$ = "O" THEN 1000
|
||||
1216 GOTO 1500
|
||||
1500 TEXT : HOME : PRINT : POKE 791,2: PRINT CHR$ (4);"RUN MENU"
|
||||
1550 POKE 34,20: HOME : PRINT "VEUX-TU T'ARRETER ? (O OU N) ";
|
||||
1552 GET IN$: IF IN$ < > "O" AND IN$ < > "N" THEN 1552
|
||||
1554 IF IN$ = "O" THEN 1500
|
||||
1556 HOME : GOSUB 170: GOTO 1100
|
||||
2000 REM ** INSTRUCTIONS **
|
||||
2002 TEXT : HOME : VTAB 2: INVERSE : PRINT ">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";
|
||||
2004 VTAB 23: PRINT ">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";: NORMAL
|
||||
2006 POKE 32,5: POKE 33,30: POKE 34,5: POKE 35,20: REM WINDOW
|
||||
2008 POKE 48,30: VLIN 4,43 AT 0: VLIN 4,43 AT 39: HOME
|
||||
2010 PRINT " REPRESENTE MON CONTRAIRE !"
|
||||
2012 PRINT : PRINT : PRINT "TU VAS VOIR L'IMAGE D'UN MOPPET."
|
||||
2014 PRINT : PRINT "CREE SON CONTRAIRE DANS LE CADRE DE DROITE."
|
||||
2016 PRINT : PRINT "L'IMAGE CLIGNOTERA QUAND SON CONTRAIRE AURA ETE CREE."
|
||||
2025 FOR I = 1 TO 2000: NEXT I: POKE - 16368,0
|
||||
2030 VTAB 19: PRINT "APPUIE SUR <RETURN> POUR JOUER. ";
|
||||
2032 GOSUB 80: IF ASC (IN$) < > 13 AND ASC (IN$) < > 27 THEN 2032
|
||||
2034 IF ASC (IN$) = 13 THEN TEXT : HOME : RETURN
|
||||
2040 HOME : PRINT "VEUX-TU T'ARRETER ? (O/N) ";
|
||||
2042 GET IN$: IF IN$ < > "O" AND IN$ < > "N" THEN 2042
|
||||
2044 IF IN$ = "O" THEN 1500
|
||||
2046 TEXT : HOME : RETURN
|
||||
3000 GR : HOME : HTAB 8: PRINT "VOICI MON CONTRAIRE !"
|
||||
3002 X = 10:Y = 15: GOSUB 164:X = 24: GOSUB 164:X = 10: GOSUB 100:G1$ = "GRAND":G2$ = "MINCE":G3$ = "ROUGE":HUE = 1:G4$ = "GRIBBIT": GOSUB 114: GOSUB 120: GOSUB 130
|
||||
3004 IF PEEK (KB) = SPACE THEN 3092
|
||||
3006 GOSUB 250
|
||||
3010 X = 24: GOSUB 164: GOSUB 102
|
||||
3020 VTAB 23: HTAB 2: PRINT "PETIT";
|
||||
3021 G1$ = "PETIT":G2$ = "GROS":HUE = 6: REM SHORT FAT BLUE BIBBIT
|
||||
3022 T = 10:P = 192: GOSUB 300
|
||||
3024 IF PEEK (KB) = SPACE THEN 3092
|
||||
3026 GOSUB 250
|
||||
3030 GOSUB 110
|
||||
3040 HTAB 11: PRINT "GROS";
|
||||
3042 T = 10:P = 171: GOSUB 300
|
||||
3044 IF PEEK (KB) = SPACE THEN 3092
|
||||
3046 GOSUB 250
|
||||
3050 GOSUB 120
|
||||
3060 HTAB 21: PRINT "BLEU";
|
||||
3062 T = 10:P = 152: GOSUB 300:
|
||||
3064 IF PEEK (KB) = SPACE THEN 3092
|
||||
3066 GOSUB 250
|
||||
3070 GOSUB 140
|
||||
3080 HTAB 31: PRINT "BIBBIT"
|
||||
3082 T = 10:P = 144: GOSUB 300
|
||||
3084 IF PEEK (KB) = SPACE THEN 3092
|
||||
3086 GOSUB 250: GOSUB 150
|
||||
3092 REM
|
||||
3094 RETURN
|
||||
10000 CALL 37632
|
||||
171
laparadedesmarionnettes/basic/REPRODUIS MON JUMEAU.BAS
Normal file
171
laparadedesmarionnettes/basic/REPRODUIS MON JUMEAU.BAS
Normal file
@ -0,0 +1,171 @@
|
||||
0 ONERR GOTO 10000
|
||||
1 POKE 791,32
|
||||
5 D$ = CHR$ (4)
|
||||
7 REM MAKE MY TWIN, COPYRIGHT 1981, LESLIE M GRIMM
|
||||
10 TEXT : HOME
|
||||
12 ARROW$ = CHR$ (8)
|
||||
14 KB = - 16384:SPACE = 32 + 128
|
||||
30 POKE - 16368,0: GOSUB 3000
|
||||
32 VTAB 24: HTAB 1
|
||||
40 PRINT "VEUX-TU DES INSTRUCTIONS ? (O OU N) ";
|
||||
42 GOSUB 80: IF IN$ < > "O" AND ASC (IN$) < > 27 AND IN$ < > "N" THEN 42
|
||||
44 IF IN$ = "O" THEN GOSUB 2000
|
||||
45 IF ASC (IN$) = 27 THEN 60
|
||||
50 GOTO 1000
|
||||
60 HOME : PRINT "VEUX-TU T'ARRETER ? (O OU N) ";
|
||||
62 GET IN$: IF IN$ < > "O" AND IN$ < > "N" THEN 62
|
||||
64 IF IN$ = "O" THEN 1500
|
||||
66 HOME : PRINT : GOTO 40
|
||||
80 GET IN$: IF LEN (IN$) < 1 THEN 80
|
||||
82 RETURN
|
||||
100 COLOR= 14: VLIN Y + 1,Y + 3 AT X + 3: VLIN Y + 2,Y + 3 AT X + 4: HLIN X + 3,X + 5 AT Y + 14: COLOR= 9: PLOT X + 4,Y + 1: COLOR= 15: VLIN Y + 4,Y + 13 AT X + 3: VLIN Y + 4,Y + 13 AT X + 4: RETURN
|
||||
102 COLOR= 14: VLIN Y + 4,Y + 6 AT X + 3: VLIN Y + 5,Y + 6 AT X + 4: HLIN X + 3,X + 5 AT Y + 14: COLOR= 9: PLOT X + 4,Y + 4: COLOR= 15: VLIN Y + 7,Y + 13 AT X + 3: VLIN Y + 7,Y + 13 AT X + 4: RETURN
|
||||
110 COLOR= 15: IF G1$ = "GRAND" THEN VLIN Y + 5,Y + 8 AT X + 5: RETURN
|
||||
112 VLIN Y + 8,Y + 10 AT X + 5: RETURN
|
||||
114 COLOR= 0: IF G1$ = "GRAND" THEN VLIN Y + 4,Y + 13 AT X + 4: RETURN
|
||||
116 VLIN Y + 7,Y + 13 AT X + 4: RETURN
|
||||
120 COLOR= HUE: IF G1$ = "GRAND" AND G2$ = "GROS" THEN VLIN Y + 4,Y + 13 AT X + 3: VLIN Y + 4,Y + 13 AT X + 4: VLIN Y + 5,Y + 8 AT X + 5: RETURN
|
||||
122 IF G1$ = "GRAND" AND G2$ = "MINCE" THEN VLIN Y + 4,Y + 13 AT X + 3: RETURN
|
||||
124 IF G1$ = "PETIT" AND G2$ = "GROS" THEN VLIN Y + 7,Y + 13 AT X + 3: VLIN Y + 7,Y + 13 AT X + 4: VLIN Y + 8,Y + 10 AT X + 5: RETURN
|
||||
126 IF G1$ = "PETIT" AND G2$ = "MINCE" THEN VLIN Y + 7,Y + 13 AT X + 3: RETURN
|
||||
130 COLOR= 14: IF G1$ = "GRAND" THEN VLIN Y + 1,Y + 2 AT X + 2: PLOT X + 1,Y + 8: PLOT X + 2,Y + 9: COLOR= 0: PLOT X + 4,Y + 3: RETURN
|
||||
134 COLOR= 14: VLIN Y + 4,Y + 5 AT X + 2: PLOT X + 1,Y + 10: PLOT X + 2,Y + 11: COLOR= 0: PLOT X + 4,Y + 6: RETURN
|
||||
140 COLOR= 14: IF G1$ = "GRAND" THEN HLIN X + 5,X + 6 AT Y + 2: PLOT X + 6,Y + 3: VLIN Y + 13,Y + 14 AT X + 6: PLOT X + 2,Y + 14: RETURN
|
||||
142 HLIN X + 5,X + 6 AT Y + 5: PLOT X + 6,Y + 6: VLIN Y + 13,Y + 14 AT X + 6: PLOT X + 2,Y + 14: RETURN
|
||||
150 T = 5: FOR I = 1 TO 20: COLOR= INT ( RND (1) * 15) + 1: HLIN X - 1,X + 8 AT Y - 1: VLIN Y - 1,Y + 16 AT X + 8: HLIN X - 1,X + 8 AT Y + 16: VLIN Y - 1,Y + 16 AT X - 1
|
||||
152 P = RND (1) * 200 + 10: GOSUB 300: NEXT I: RETURN
|
||||
160 COLOR= 15: HLIN X - 1,X + 8 AT Y - 1: VLIN Y - 1,Y + 16 AT X + 8: HLIN X - 1,X + 8 AT Y + 16: VLIN Y - 1,Y + 16 AT X - 1
|
||||
162 T = 40:P = 96: GOSUB 300: GOSUB 300:T = 80:P = 192: GOSUB 300: RETURN
|
||||
164 COLOR= 15: HLIN X - 1,X + 8 AT Y - 1: VLIN Y - 1,Y + 16 AT X + 8: HLIN X - 1,X + 8 AT Y + 16: VLIN Y - 1,Y + 16 AT X - 1: RETURN
|
||||
170 COLOR= 0: FOR I = X TO X + 7: VLIN Y,Y + 16 AT I: NEXT I: RETURN
|
||||
180 COLOR= 0: FOR I = X + 1 TO X + 6: VLIN Y + 1,Y + 14 AT I: NEXT I: RETURN
|
||||
250 FOR I = 1 TO 700: NEXT I: RETURN
|
||||
300 POKE 768,P: POKE 769,T: CALL 770: RETURN
|
||||
400 GOSUB 80: IF IN$ = "?" THEN POP : GOSUB 2000: GOTO 1000
|
||||
402 IF ASC (IN$) = 27 THEN GOSUB 420
|
||||
404 RETURN
|
||||
420 HOME : PRINT "VEUX-TU T'ARRETER ? (O OR N) ";
|
||||
422 GET IN$: IF IN$ < > "O" AND IN$ < > "N" THEN 422
|
||||
424 IF IN$ = "O" THEN 1500
|
||||
426 HOME : RETURN
|
||||
1000 X = 8:Y = 15
|
||||
1010 GR : HOME : POKE 34,22: HOME
|
||||
1020 A = RND (1):TS$ = "GRAND": IF A < .5 THEN TS$ = "PETIT"
|
||||
1022 A = RND (1):FT$ = "GROS": IF A < .5 THEN FT$ = "MINCE"
|
||||
1024 A = RND (1):RB$ = "ROUGE": IF A < .5 THEN RB$ = "BLEU"
|
||||
1026 A = RND (1):BG$ = "BIBBIT": IF A < .5 THEN BG$ = "GRIBBIT"
|
||||
1030 G1$ = TS$:G2$ = FT$:G3$ = RB$:G4$ = BG$
|
||||
1032 IF TS$ = "GRAND" THEN GOSUB 100
|
||||
1034 IF TS$ = "PETIT" THEN GOSUB 102
|
||||
1036 IF FT$ = "GROS" THEN GOSUB 110
|
||||
1038 IF FT$ = "MINCE" THEN GOSUB 114
|
||||
1040 HUE = 1: IF RB$ = "BLEU" THEN HUE = 6
|
||||
1042 GOSUB 120
|
||||
1044 IF BG$ = "GRIBBIT" THEN GOSUB 130
|
||||
1046 IF BG$ = "BIBBIT" THEN GOSUB 140
|
||||
1050 GOSUB 164
|
||||
1090 GUESS = 0:C = 0
|
||||
1100 X = 24: POKE 34,20: HOME : GOSUB 180: GOSUB 164: POKE 34,22: HOME
|
||||
1102 PRINT "GRAND OU PETIT ? (G OU P) ";
|
||||
1110 GOSUB 400:G1$ = IN$: IF G1$ = ARROW$ THEN 1100
|
||||
1112 IF G1$ < > "G" AND G1$ < > "P" THEN 1100
|
||||
1114 IF G1$ = "G" THEN G1$ = "GRAND": GOSUB 100
|
||||
1116 IF G1$ = "P" THEN G1$ = "PETIT": GOSUB 102
|
||||
1117 HOME : VTAB 21: PRINT G1$: POKE 34,22: HOME
|
||||
1118 T = 10:P = 192: GOSUB 300
|
||||
1120 HOME : PRINT "GROS OU MINCE ? (G OU M) ";
|
||||
1122 GOSUB 400:G2$ = IN$: IF G2$ = ARROW$ THEN 1100
|
||||
1123 IF G2$ < > "G" AND G2$ < > "M" THEN 1120
|
||||
1124 IF G2$ = "G" THEN G2$ = "GROS": GOSUB 110
|
||||
1126 IF G2$ = "M" THEN G2$ = "MINCE": GOSUB 114
|
||||
1127 HOME : VTAB 21: PRINT G1$", ";G2$
|
||||
1128 T = 10:P = 171: GOSUB 300
|
||||
1130 HOME : PRINT "ROUGE OU BLEU ? (R OU B) ";
|
||||
1132 GOSUB 400:G3$ = IN$: IF G3$ = ARROW$ THEN 1100
|
||||
1133 IF G3$ < > "R" AND G3$ < > "B" THEN 1130
|
||||
1134 IF G3$ = "R" THEN G3$ = "ROUGE":HUE = 1: GOSUB 120
|
||||
1136 IF G3$ = "B" THEN G3$ = "BLEU":HUE = 6: GOSUB 120
|
||||
1137 HOME : VTAB 21: PRINT G1$", ";G2$", ";G3$
|
||||
1138 T = 10:P = 152: GOSUB 300
|
||||
1140 HOME : PRINT "BIBBIT OR GRIBBIT? (B OR G) ";
|
||||
1142 GOSUB 400:G4$ = IN$: IF G4$ = ARROW$ THEN 1100
|
||||
1143 IF G4$ < > "B" AND G4$ < > "G" THEN 1140
|
||||
1144 IF G4$ = "B" THEN G4$ = "BIBBIT": GOSUB 140
|
||||
1146 IF G4$ = "G" THEN G4$ = "GRIBBIT": GOSUB 130
|
||||
1147 HOME : VTAB 21: PRINT G1$", ";G2$;", ";G3$" ";G4$
|
||||
1148 T = 10:P = 144: GOSUB 300
|
||||
1150 IF G1$ + G2$ + G3$ + G4$ = TS$ + FT$ + RB$ + BG$ THEN FOR I = 1 TO 500: NEXT I: GOTO 1200
|
||||
1160 FOR I = 1 TO 500: NEXT I: GOSUB 162: POKE 34,21
|
||||
1162 FOR I = 1 TO 4:CL$(I) = "": NEXT :K = 0
|
||||
1164 HOME : PRINT "ON LE FAIT ";
|
||||
1166 IF G1$ < > TS$ THEN K = K + 1:CL$(K) = TS$
|
||||
1168 IF G2$ < > FT$ THEN K = K + 1:CL$(K) = FT$
|
||||
1170 IF G3$ < > RB$ THEN K = K + 1:CL$(K) = RB$
|
||||
1172 IF G4$ < > BG$ THEN K = K + 1:CL$(K) = "UN " + BG$
|
||||
1174 IF K > 1 THEN 1178
|
||||
1176 PRINT CL$(K);".": GOTO 1190
|
||||
1178 IF K > 2 THEN 1182
|
||||
1180 PRINT CL$(1);" AND ";CL$(2);".": GOTO 1190
|
||||
1182 IF K > 3 THEN 1186
|
||||
1184 PRINT CL$(1)", ";CL$(2);" ET ";CL$(3);".": GOTO 1190
|
||||
1186 PRINT CL$(1);", ";CL$(2);", ";CL$(3);" ET ";CL$(4);"."
|
||||
1190 VTAB 24: HTAB 1: PRINT "(APPUIE SUR <RETURN>) ";
|
||||
1192 GOSUB 400: IF IN$ < > CHR$ (13) THEN VTAB 24: HTAB 1: CALL - 958: GOTO 1190
|
||||
1196 POKE 34,20: HOME : GOSUB 180: GOTO 1100
|
||||
1200 HOME : PRINT "TU AS TROUVE !": GOSUB 150
|
||||
1210 PRINT : PRINT "VEUX-TU REJOUER ? (O OU N) ";
|
||||
1212 GET IN$: IF IN$ < > "O" AND IN$ < > "N" THEN 1212
|
||||
1214 IF IN$ = "O" THEN 1000
|
||||
1216 GOTO 1500
|
||||
1500 TEXT : HOME : PRINT : POKE 791,2: PRINT CHR$ (4);"RUN MENU"
|
||||
1550 POKE 34,20: HOME : PRINT "VEUX-TU T'ARRETER ? (O OU N) ";
|
||||
1552 GET IN$: IF IN$ < > "O" AND IN$ < > "N" THEN 1552
|
||||
1554 IF IN$ = "O" THEN 1500
|
||||
1556 HOME : GOSUB 170: GOTO 1100
|
||||
2000 REM ** INSTRUCTIONS **
|
||||
2002 TEXT : HOME : VTAB 2: INVERSE : PRINT ">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";
|
||||
2004 VTAB 23: PRINT ">>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<";: NORMAL
|
||||
2006 POKE 32,5: POKE 33,30: POKE 34,5: POKE 35,20: REM WINDOW
|
||||
2008 POKE 48,30: VLIN 4,43 AT 0: VLIN 4,43 AT 39: HOME
|
||||
12010 PRINT " REPRODUIS MON JUMEAU"
|
||||
2012 PRINT : PRINT : PRINT "TU VAS VOIR UNE IMAGE D'UNE MARIONNETTE"
|
||||
2014 PRINT : PRINT "REPRODUIS SON JUMEAU DANS LE CADRE VIDE."
|
||||
2016 PRINT : PRINT "LE CADRE CLIGNOTERA QUAND TU AURAS REPRODUIT LE JUMEAU."
|
||||
2025 FOR I = 1 TO 2000: NEXT I: POKE - 16368,0
|
||||
2030 VTAB 19: PRINT "APPUIE SUR <RETURN> POUR JOUER. ";
|
||||
2032 GOSUB 80: IF ASC (IN$) < > 13 AND ASC (IN$) < > 27 THEN 2032
|
||||
2034 IF ASC (IN$) = 13 THEN TEXT : HOME : RETURN
|
||||
2040 HOME : PRINT "VEUX-TU T'ARRETER ? (O/N) ";
|
||||
2042 GET IN$: IF IN$ < > "O" AND IN$ < > "N" THEN 2042
|
||||
2044 IF IN$ = "O" THEN 1500
|
||||
2046 TEXT : HOME : RETURN
|
||||
3000 GR : HOME : HTAB 10: PRINT "VOICI MON JUMEAU :"
|
||||
3002 X = 10:Y = 15: GOSUB 164:X = 24: GOSUB 164:X = 10: GOSUB 100:G1$ = "GRAND":G2$ = "MINCE":G3$ = "ROUGE":HUE = 1:G4$ = "BIBBIT": GOSUB 114: GOSUB 120: GOSUB 140
|
||||
3004 IF PEEK (KB) = SPACE THEN 3092
|
||||
3006 GOSUB 250
|
||||
3010 X = 24: GOSUB 164: GOSUB 100
|
||||
3020 VTAB 23: HTAB 2: PRINT "GRAND";
|
||||
3022 T = 10:P = 192: GOSUB 300
|
||||
3024 IF PEEK (KB) = SPACE THEN 3092
|
||||
3026 GOSUB 250
|
||||
3030 GOSUB 114:HUE = 1:G2$ = "MINCE"
|
||||
3040 HTAB 11: PRINT "MINCE";
|
||||
3042 T = 10:P = 171: GOSUB 300
|
||||
3044 IF PEEK (KB) = SPACE THEN 3092
|
||||
3046 GOSUB 250
|
||||
3050 GOSUB 120
|
||||
3060 HTAB 21: PRINT "ROUGE";
|
||||
3062 T = 10:P = 152: GOSUB 300:
|
||||
3064 IF PEEK (KB) = SPACE THEN 3092
|
||||
3066 GOSUB 250
|
||||
3070 GOSUB 140
|
||||
3080 HTAB 31: PRINT "BIBBIT"
|
||||
3082 T = 10:P = 144: GOSUB 300
|
||||
3084 IF PEEK (KB) = SPACE THEN 3092
|
||||
3086 GOSUB 250: GOSUB 150
|
||||
3088 HTAB 5: PRINT "(";: INVERSE : PRINT "B";: NORMAL : PRINT "IBBIT...";: INVERSE : PRINT "G";: NORMAL : PRINT "ROS NEZ, ";: INVERSE
|
||||
3090 PRINT "G";: NORMAL : PRINT "ROS PIEDS)"
|
||||
3091 PRINT
|
||||
3092 REM
|
||||
3094 RETURN
|
||||
10000 CALL 37632
|
||||
26
laparadedesmarionnettes/basic/majuscules.txt
Normal file
26
laparadedesmarionnettes/basic/majuscules.txt
Normal file
@ -0,0 +1,26 @@
|
||||
97 A
|
||||
98 B
|
||||
99 C
|
||||
100 D
|
||||
101 E
|
||||
102 F
|
||||
103 G
|
||||
104 H
|
||||
105 I
|
||||
106 J
|
||||
107 K
|
||||
108 L
|
||||
109 M
|
||||
110 N
|
||||
111 O
|
||||
112 P
|
||||
113 Q
|
||||
114 R
|
||||
115 S
|
||||
116 T
|
||||
117 U
|
||||
118 V
|
||||
119 W
|
||||
120 X
|
||||
121 Y
|
||||
122 Z
|
||||
BIN
laparadedesmarionnettes/disk/Moptown Parade.dsk
Executable file
BIN
laparadedesmarionnettes/disk/Moptown Parade.dsk
Executable file
Binary file not shown.
BIN
laparadedesmarionnettes/disk/VIFI Nathan - La parade des marionnettes.dsk
Executable file
BIN
laparadedesmarionnettes/disk/VIFI Nathan - La parade des marionnettes.dsk
Executable file
Binary file not shown.
BIN
laparadedesmarionnettes/disk/work/FINAL copie.dsk
Executable file
BIN
laparadedesmarionnettes/disk/work/FINAL copie.dsk
Executable file
Binary file not shown.
BIN
laparadedesmarionnettes/disk/work/FINAL.dsk
Executable file
BIN
laparadedesmarionnettes/disk/work/FINAL.dsk
Executable file
Binary file not shown.
BIN
laparadedesmarionnettes/disk/work/FINAL.dsk.fdi
Normal file
BIN
laparadedesmarionnettes/disk/work/FINAL.dsk.fdi
Normal file
Binary file not shown.
BIN
laparadedesmarionnettes/disk/work/Moptown Parade VF copie.dsk
Executable file
BIN
laparadedesmarionnettes/disk/work/Moptown Parade VF copie.dsk
Executable file
Binary file not shown.
BIN
laparadedesmarionnettes/images/HOME SWEET HOME.LPIC
Normal file
BIN
laparadedesmarionnettes/images/HOME SWEET HOME.LPIC
Normal file
Binary file not shown.
BIN
laparadedesmarionnettes/images/MOPTOWN PARADE.LPIC
Normal file
BIN
laparadedesmarionnettes/images/MOPTOWN PARADE.LPIC
Normal file
Binary file not shown.
Loading…
Reference in New Issue
Block a user