10 !
30 ! PIN BALL
50 ! par Daniel COCHAUX
70 ! Novembre 1985
85 ! BOURGES
110 !
115 CALL CHAR(46,"00000000000000000000")
120 CALL CHAR(48,"FFFFFFFFFF")
130 CALL CHAR(49,"FFFFFFFFFF1F0F070301")
140 CALL CHAR(50,"FF7F7F3F1F0F0F030301")
150 CALL CHAR(51,"FFFEFEFCF8F0E0C08080")
160 CALL CHAR(52,"070F0F1E1C387060C080")
170 CALL CHAR(53,"E0F0F078381C0E060301")
190 CALL CHAR(55,"183C7EC3DBDBC37F3C18")
200 CALL CHAR(56,"183C3C99FF99182442C3")
210 CALL CHAR(57,"FF8181818181818181FF")
215 CALL CHAR(67,"80808080808080E0A0FF")
216 CALL CHAR(68,"010101010101010705FF")
220 CALL CHAR(65,"FFA0E080808080808080")
221 CALL CHAR(88,"0000E0FE0EF69B9FFFFF")
222 CALL CHAR(90,"FFFFFFFFFFFF3F1FFFFF")
223 CALL CHAR(122,"01030707030000000000")
224 CALL CHAR(87,"1F1F0000000000000000")
225 CALL CHAR(89,"00000000000030303030")
226 CALL CHAR(97,"F0F0F0F0F0F0F0F0F0F0")
227 CALL CHAR(99,"F8FEFEFFFFFFFFFFFFFF")
228 CALL CHAR(98,"01030F077B7D7E7E7E7E")
229 CALL CHAR(100,"FEFEFEFEFEFEFEFEFEFE")
230 CALL CHAR(66,"FF050701010101010101")
231 CALL CHAR(101,"FEFEFEFDFDFDFBFBF7F7")
232 CALL CHAR(102,"0000000000000103070F")
233 CALL CHAR(103,"1F3F7FFFFFFFFFFEFCFB")
234 CALL CHAR(104,"EFDFDFBFBF3F3F3F3F00")
235 CALL CHAR(105,"FFFFFFFFFFFFFFFFFF00")
236 CALL CHAR(110,"3F3F1F2F2F6F77F7FBFB")
237 CALL CHAR(113,"FEFEFEFCFCFCFCFCF8F8")
238 CALL CHAR(115,"F8F8F8F8F0F0F0F0F0F0")
239 CALL CHAR(121,"F8F8FCFEFFFFFF3F1E0E")
240 CALL CHAR(69,"8040602010080C040201")
241 CALL CHAR(120,"FCFCFDFE07FFFFFFFE7C")
242 CALL CHAR(119,"000163F8FE7F3F9FCFC3")
243 CALL CHAR(118,"00000030383E1E0F0703")
244 CALL CHAR(112,"FDFDFDFDFDFDFEFEFEFE")
245 CALL CHAR(114,"FBFBFBFBFBFBFBFBFBFB")
246 CALL CHAR(106,"00000000000103070F1F")
247 CALL CHAR(109,"F0FE0000000000000000")
248 CALL CHAR(108,"FFFFDFB66C585850E0C0")
249 CALL CHAR(107,"03171B3C7F7F302F0F03")
250 CALL CHAR(70,"01020604081030204080")
260 CALL CHAR(71,"03030303030303030303")
270 CALL CHAR(72,"C0C0C0C0C0C0C0C0C0C0")
280 CALL CHAR(73,"FFFF")
290 CALL CHAR(75,"0000000000000000E7E7")
300 CALL CHAR(76,"18181818181818181818")
310 CALL CHAR(77,"003C7EFFFFFFFF7E3C00")
320 CALL CHAR(74,"381C381C381C381C381C")
325 CALL CHAR(42,"FFFFFFFFFFFFFFFFFFFF")
326 CALL CHAR(82,"FFFFFF"):CALL CHAR(83,"FFFFFF")
330 GOSUB 5000:PART=1:CRU=1
340 !
350 CALL POKE(50688,124,82,125,222,124,56,124,41,0,88,254,41,119,152,1,125,152)
360 CALL POKE(50705,1,14,246,215,40,208,122,215,40,208,123,18,126,130,46,18,127)
370 CALL POKE(50722,130,46,10,152,125,14,247,18,122,130,46,18,123,130,46,125,40)
380 CALL POKE(50739,120,227,238,152,121,125,224,197)
390 GOSUB 2600
400 !
410 DIM T(21,19)
418 CALL POKE(50800,165,8,6,10):CALL POKE(49156,198,112)
420 T(1,15)=17:T(2,0),T(3,0),T(4,0),T(5,0),T(6,0),T(16,0)=2
425 FOR I=9 TO 15:T(I,3)=2:NEXT
430 FOR I=2 TO 15:T(1,I-1)=1:NEXT
440 T(7,3),T(3,3),T(16,11)=3:T(3,4),T(7,4),T(15,4),T(16,4)=4
445 T(4,16)=16
450 T(4,4),T(8,4)=5:T(4,3),T(2,16)=6
460 T(6,11),T(8,8),T(9,13)=7
470 T(5,6),T(11,8),T(11,10),T(11,12)=9
480 T(4,9)=8:T(4,11)=10:T(4,13)=11
490 T(2,10),T(2,11)=17
500 T(3,17),T(17,11)=12
510 T(13,15),T(16,12),T(18,10)=13
515 T(13,13)=3:T(14,13)=12:T(1,16),T(2,17)=21
520 T(18,5),T(18,6),T(18,5)=14
530 T(13,5)=15:T(5,16),T(6,16),T(7,16),T(9,16),T(10,16),T(11,16),T(12,16)=16
531 T(13,16)=16
535 T(8,16)=16:T(2,10),T(2,12)=22:T(6,2),T(7,2)=23:T(7,1)=24:T(13,14)=25
540 T(16,4)=20:T(1,15)=17:T(13,15)=26
545 T(5,1),T(19,7)=18:T(8,15),T(19,9)=19
548 CALL COLOR("0RHLF"):LOCATE (2,13):PRINT "TTIILLTT":LOCATE (3,13)
549 PRINT "TTIILLTT"
564 CALL POKE(124,8,18,104,1):CALL EXEC(50688)
565 CALL POKE(120,18,8):CALL EXEC(50725)
570 GOSUB 6000:A$=KEY$:GOSUB 6500:GOSUB 2500
572 RESTORE 10120:GOSUB 10000
575 CALL POKE(124,17,16,104,1)
576 CALL EXEC(50688)
577 CALL POKE(120,17,16):CALL EXEC(50725)
850 !
855 X=17:Y=16
860 CALL KEY1(A,B)
870 IF A=ASC(" ")THEN GOSUB 2603:GOSUB 9000:GOSUB 1000
873 CALL COLOR("0Yb"):LOCATE (22,1):PRINT "APPUYEZ SUR ESPACE"
874 PAUSE .1:CALL COLOR("0BB"):LOCATE (22,1):PRINT " "
875 NOTE$="DODOMIFA":JI=1:DI=4:GOSUB 1900:CALL POKE(259,0)
880 IF JR=2 AND BALL1=3 AND BALL2=3 THEN 910
890 IF JR=1 AND BALL1=3 THEN 910
900 GOTO 860
910 LOTERIE=INTRND(9)*10
915 IF SCO1>SCO2 THEN RECORD=SCO1 ELSE RECORD=SCO2
920 SCORE$=STR$(SCO1)
925 L=LEN(SCORE$)-1
930 IF LOTERIE=VAL(SEG$(SCORE$,L,2))THEN PART=PART+1
935 IF SCO1>1.E+05 OR SCO2>1.E+05 THEN PART=PART+1
940 CALL COLOR("0RB"):LOCATE (1,25):PRINT PART
950 CALL COLOR("0CB"):LOCATE (1,39):PRINT PART-1
960 CALL COLOR("0Cb"):LOCATE (19,26):PRINT USING"##",LOTERIE:LOCATE (19,33)
970 PRINT USING"##",LOTERIE
980 IF PART>=2 THEN BALL1,BALL2,SCO1,SCO2,BONUS1,BONUS2=0:GOSUB 2603:GOTO 576
981 CALL COLOR("0CB"):LOCATE (22,1)
982 INPUT "UNE AUTRE PARTIE ?";CHP$
983 CALL COLOR("0BB"):LOCATE (22,1):PRINT RPT$(" ",39):CALL COLOR("0YB")
985 LOCATE (22,24):PRINT USING"RECORD ######",RECORD
987 IF CHP$="O" THEN BALL1,BALL2,SCO1,SCO2,BONUS1,BONUS2=0:GOTO 576
990 END
1000 !
1001 IF JR=2 THEN CRB=CRB+1:CRS=CRS+1:CRU=CRU+1:GOSUB 6800 ELSE CRB,CRS,CRU=1
1002 IF CRU=3 THEN CRU=1
1003 IF JR<>2 THEN GOSUB 6820
1004 RANDOMIZE
1005 CALL POKE(259,45)
1010 IF T(Y,X)=0 THEN A=0:B=1:FORCE=20:GOSUB 2000:GOTO 1036
1017 IF T(Y,X)>12 THEN U=T(Y,X)-12:GOTO 1020
1018 ON T(Y,X)GOSUB 1100,1120,1140,1160,1180,1200,1220,1240,1260,1280,1300,1320
1019 GOTO 1030
1020 IF T(Y,X)=26 THEN GOSUB 3100:GOTO 1030
1025 ON U GOSUB 1340,1360,1380,1400,1420,3900,3900,1480,1490,1600,3200,3300,3000
1030 IF T(Y,X)=2 THEN GOSUB 1120
1033 IF DR=1 THEN DR=0:GOTO 1036
1035 GOSUB 2000:IF Y=0 THEN Y=1:IF X=0 THEN X=1
1036 IF Y=0 THEN Y=1
1037 IF X=0 THEN X=1
1038 IF Y=21 THEN CALL POKE(120,17,16):CALL EXEC(50725):RETURN
1039 IF X=18 THEN X=17
1050 GOTO 1004
1100 !
1101 FORCE=20:SON=199:GOSUB 2200
1102 DIR=INTRND(2)
1103 ON DIR GOSUB 1540,1560
1104 RETURN
1120 !
1121 FORCE=INTRND(3):SON=188:GOSUB 2200
1122 DIR=INTRND(3)
1123 ON DIR GOSUB 1520,1530,1540
1124 RETURN
1140 !
1141 FORCE=INTRND(3):SC=10:GOSUB 1700
1142 DIR=INTRND(3):SON=176:GOSUB 2200
1143 ON DIR GOSUB 1510,1570,1580
1144 RETURN
1160 !
1161 FORCE=INTRND(8):SC=10:GOSUB 1700
1162 DIR=INTRND(4):SON=168:GOSUB 2200
1163 ON DIR GOSUB 1510,1520,1530,1580
1164 RETURN
1180 !
1181 FORCE=INTRND(6):SC=10:GOSUB 1700
1182 DIR=INTRND(3):SON=158:GOSUB 2200
1183 ON DIR GOSUB 1530,1540,1550
1184 RETURN
1200 !
1201 FORCE=INTRND(3):SC=10:GOSUB 1700
1202 DIR=INTRND(3):SON=149:GOSUB 2200
1203 ON DIR GOSUB 1550,1560,1570
1204 RETURN
1220 !
1221 FORCE=INTRND(9):SC=30:GOSUB 1700
1222 DIR=INTRND(8):SON=141:GOSUB 2200
1223 ON DIR GOSUB 1510,1520,1530,1540,1550,1560,1570,1580
1224 RETURN
1240 !
1241 FORCE=INTRND(3):SC=20:GOSUB 1700
1242 DIR=INTRND(3):SON=133:GOSUB 2200
1243 ON DIR GOSUB 1510,1570,1550
1244 RETURN
1260 !
1261 FORCE=INTRND(8):LOT=INTRND(5):LOT=LOT*1000:BONUS=LOT:GOSUB 8000:SC=LOT
1262 GOSUB 1700:DIR=INTRND(4):SON=125:GOSUB 2200
1263 ON DIR GOSUB 1500,1510,1580,1550
1264 NOTE$="DOMISOSIREFALA":JI=1:DI=0:GOSUB 1900:RETURN
1280 !
1281 FORCE=INTRND(9):SC=60:GOSUB 1700
1282 DIR=INTRND(3):SON=118:GOSUB 2200
1283 ON DIR GOSUB 1510,1560,1540
1284 RETURN
1300 !
1301 FORCE=INTRND(5):SC=60:GOSUB 1700
1302 DIR=INTRND(3):SON=111:GOSUB 2200
1303 ON DIR GOSUB 1510,1530,1550
1304 RETURN
1320 !
1321 FORCE=INTRND(15)
1322 DIR=INTRND(1):SON=105:GOSUB 2200
1323 ON DIR GOSUB 1560
1324 RETURN
1340 !
1341 IF DR=1 THEN RETURN ELSE FORCE=INTRND(8):SC=10:GOSUB 1700
1342 DIR=INTRND(2):SON=199:GOSUB 2200
1343 ON DIR GOSUB 1510,1580
1344 RETURN
1360 !
1361 IF DR=1 THEN RETURN ELSE FORCE=15:SC=10:GOSUB 1700
1362 DIR=INTRND(2):SON=188:GOSUB 2200
1363 ON DIR GOSUB 1510,1520
1368 RETURN
1380 !
1381 FORCE=20:SC=60:GOSUB 1700
1382 DIR=INTRND(4):SON=176:GOSUB 2200
1383 ON DIR GOSUB 1510,1530,1550,1570
1384 RETURN
1400 !
1401 FORCE=INTRND(20):SON=168:GOSUB 2200
1402 DIR=INTRND(3)
1403 ON DIR GOSUB 1570,1560,1580
1404 RETURN
1420 !
1421 FORCE=INTRND(6):SON=158:GOSUB 2200
1422 DIR=INTRND(2)
1423 ON DIR GOSUB 1550,1560
1424 RETURN
1440 !
1441 FORCE=INTRND(2):SON=149:GOSUB 2200
1442 DIR=2
1443 ON DIR GOSUB 1510,1520
1444 RETURN
1460 !
1461 FORCE=INTRND(2):SON=141:GOSUB 2200
1462 DIR=2
1463 ON DIR GOSUB 1510,1580
1464 RETURN
1480 !
1481 FORCE=INTRND(13):SC=10:GOSUB 1700:SON=133:GOSUB 2200
1482 GOSUB 1520
1483 RETURN
1490 !
1491 FORCE=INTRND(9):SON=59:GOSUB 2200
1492 GOSUB 1560
1493 RETURN
1500 !
1510 A=0:B=-1:RETURN
1520 A=1:B=-1:RETURN
1530 A=1:B=0:RETURN
1540 A=1:B=1:RETURN
1550 A=0:B=1:RETURN
1560 A=-1:B=1:RETURN
1570 A=-1:B=0:RETURN
1580 A=-1:B=-1:RETURN
1600 SC=1000:GOSUB 1700:RETURN
1700 !
1710 IF CRS>=3 THEN CRS=1
1720 CALL COLOR("0Yb")
1740 ON CRS GOTO 1750,1780
1750 SCO1=SCO1+SC
1760 LOCATE (13,23)
1770 PRINT USING"######",SCO1:RETURN
1780 SCO2=SCO2+SC
1790 LOCATE (13,32)
1800 PRINT USING"######",SCO2
1810 RETURN
1900 !
1910 FOR I=1 TO LEN(NOTE$)STEP 2
1920 PS=POS("DO.RE.MI.FA.SO.LA.SI.",SEG$(NOTE$,I,2),1)
1930 VL=VAL(SEG$("199176158149133118105",PS,3))
1940 CALL POKE(258,VL,DI+128):PAUSE JI/50
1950 NEXT
1960 CALL POKE(259,0):TROU=INTRND(2)
1965 IF TROU=2 THEN 1980
1970 CALL POKE(126,104,1)
1980 RETURN
2000 !
2010 X1=X:Y1=Y
2020 IF Y<1 OR Y>20 OR X<1 OR X>17 THEN CALL POKE(259,45):RETURN
2026 IF Y=21 OR Y=0 THEN 2045
2027 CALL POKE(126,104,1)
2030 CALL POKE(120,X,Y)
2040 CALL EXEC(50725)
2041 X=X+A:Y=Y+B
2045 IF A<>0 THEN IF X=X1+(FORCE*A)THEN RETURN
2046 IF B<>0 THEN IF Y=Y1+(FORCE*B)THEN RETURN
2048 IF T(Y,X)<>0 AND DR=0 THEN RETURN
2060 GOTO 2020
2200 CALL POKE(258,SON,129):RETURN
2400 !
2410 X1=X:Y1=Y
2420 IF Y<1 OR Y>20 OR X<1 OR X>39 THEN RETURN
2430 CALL POKE(120,X,Y):CALL EXEC(50725)
2440 IF A<>0 THEN IF X=X1+(FORCE*A)THEN RETURN
2450 IF B<>0 THEN IF Y=Y1+(FORCE*B)THEN RETURN
2460 X=X+A:Y=Y+B
2470 GOTO 2420
2500 !
2502 CLS "Ybb"
2503 CALL COLOR("0YLH"):LOCATE (2,8):PRINT "RREEGGLLEESS DDUU JJEEUU"
2504 CALL COLOR("0RLH"):LOCATE (3,8):PRINT "RREEGGLLEESS DDUU JJEEUU"
2505 DATA "Les regles sont celles du flipper :",2,5
2506 DATA "les flips sont actifs quand",6,7
2507 DATA "la balle arrive dessus",6,8
2508 DATA "Un BONUS est delivre par",6,10
2509 DATA "ajoute 1000 au SCORE",8,12
2510 DATA "Une partie est gagnee si le SCORE",6,14
2511 DATA "est superieur a 100000",6,15
2512 DATA "La touche 1 actionne le flip gauche",6,17
2513 DATA "La touche 0 actionne le flip droit",6,18
2514 RESTORE 2505
2515 RANDOMIZE:D=D+1
2516 READ L$,X,Y:LOCATE (Y,X)
2517 FOR I=1 TO LEN(L$)
2518 CC=INTRND(7):C$=SEG$("RYYGMWCb",CC,1):CALL COLOR("0"&C$&"B")
2519 SON=VAL(SEG$("199176158149133118105",CC*3-2,3))
2520 CALL POKE(258,SON,128+D):PRINT SEG$(L$,I,1);
2521 NEXT
2522 IF Y=18 THEN CALL POKE(259,0):GOTO 2524
2523 GOTO 2515
2524 CALL COLOR("1RBF"):LOCATE (10,31):PRINT "9"
2525 CALL COLOR("1CBF"):LOCATE (12,6):PRINT "8"
2526 CALL COLOR("0Yb"):LOCATE (22,1):PRINT "TAPEZ SUR UNE TOUCHE":A$=KEY$
2527 RETURN
2600 GOSUB 2622:GOSUB 2629:RETURN
2602 RESTORE 2607:ADR=50176:GOSUB 2632:PAUSE 1:RETURN
2603 RESTORE 2612:ADR=50176:GOSUB 2632:PAUSE 1
2604 RESTORE 2617:ADR=50176:GOSUB 2632:PAUSE 1
2605 RESTORE 2620:ADR=50176:GOSUB 2632:PAUSE 1:RETURN
2606 !
2607 DATA A46782B203259101EBCC4997C506222B3B42161B99A8E8085B6CA432AB5365B72A79F6
2608 DATA AA8ABCAA9CC4AAA2CEAA4AE1F4AA38AB6C4DCCB26A8FA20611F58A1CF2203822436EC8
2609 DATA BD14AB5237A1884422DA9CA6A242AAC8B458CA4121A3324AABA64493AA2ABD1A75572C
2610 DATA 5C59BAB7BD4F43B72C9239DA8D4D91686569353689AA9151E4FAFF
2611 !
2612 DATA AD2BA9CAC3E7ECFA54C56799C79C53E5E0E1517552108DAB5AC6615D206E19611B8153
2613 DATA 95AA508D125597A91EB547966D95A84F6E4556B9AC56B91545F8B24A9552265D4D6295
2614 DATA 52D589B982390ED55162CAA25800C7884B40003B3829E04C2709306065925217AFA669
2615 DATA A57B57FA94D229AD5218A3CDA6D0487E51ABB199EC2E4BAC5A6598BAECFF07
2616 !
2617 DATA 02082E39F54D4FB96BECD695D029E2966BD3CAE2A354B3CE2D6E718A122D2CAACE2D57
2618 DATA 598B9A64479955698A23D528CBBEFD7F00
2619 !
2620 DATA 0C28D68C0135464940021AD040728B7377933AC3C921D44CE76C7B38B9A889C494E2A7
2621 DATA 24AA1E574A929DAAA63D8E95999255D6F299E2CF4659CC13FE3F00
2622 RESTORE 2624:FOR I=0 TO 70:READ A:CALL POKE(51072+I,A):NEXT:RETURN
2623 !
2624 DATA 6,138,193,170,208,13,138,193,171,208,14,246,128,36,82,6
2625 DATA 128,36,202,252,128,36,45,90,226,32,45,0,226,240,142,199
2626 DATA 188,35,15,190,190,190,190,184,128,36,142,199,188,35,15,201
2627 DATA 100,155,126,211,126,121,0,125,224,218,5,10,42,48,45,10
2628 DATA 231,4,35,15,40,9,10
2629 RESTORE 2631:ADR=50944:GOSUB 2633:RETURN
2630 !
2631 DATA 88C4000AFB0AZ
2632 GOSUB 2633:CALL POKE(9,HIGH,LOW):CALL EXEC(50944):RETURN
2633 HIGH=INT(ADR/256):LOW=ADR-256*HIGH:CALL POKE(125,HIGH,LOW)
2634 CALL EXEC(51072):RETURN
3000 !
3005 DR=1:SON=199:GOSUB 2200
3010 A=0:B=1:FORCE=3:GOSUB 2000
3020 A=-1:B=1:FORCE=2:GOSUB 2000
3030 A=-1:B=0:FORCE=3:GOSUB 2000
3040 RETURN
3100 !
3105 X=16:SON=176:GOSUB 2200
3110 A=0:B=1:FORCE=3:GOSUB 2000
3120 A=-1:B=1:FORCE=6:GOSUB 2000
3130 NOTE$="DODODODOMIDOMIDOMISISI":JI=1:DI=3:GOSUB 1900:RETURN
3200 !
3205 DR=1:SON=158:GOSUB 2200
3210 A=0:B=1:IF Y=6 THEN FORCE=10 ELSE FORCE=9:GOSUB 2000
3220 A=1:B=1:FORCE=2:GOSUB 2000
3230 A=1:B=0:FORCE=3:GOSUB 2000
3240 RETURN
3300 !
3310 A=0:B=1:FORCE=11:GOSUB 2000:SON=149:GOSUB 2200
3320 A=1:B=1:FORCE=6:GOSUB 2000
3330 NOT$="DODODODOMIDOMIDOMISISI":JI=1:DI=3:GOSUB 1900:RETURN
3900 IF T(Y,X)=18 THEN 4000 ELSE 4500
4000 ! FLIP GAUCHE
4005 FOR I=1 TO 10
4010 CALL KEY1(C,D)
4020 IF C=ASC("1")THEN I=10:GOSUB 4100
4025 NEXT
4030 SON=105:GOSUB 2200
4040 CALL COLOR("1WB"):LOCATE (19,8):PRINT "5":LOCATE (5,2):PRINT "5"
4050 RETURN
4100 CALL COLOR("1WB"):LOCATE (19,8):PRINT "R":LOCATE (5,2):PRINT "R"
4110 FORCE=INTRND(20)
4120 DIR=INTRND(2)
4130 ON DIR GOSUB 1510,1520
4135 GOSUB 2000
4140 RETURN
4500 ! FLIP DROIT
4505 FOR I=1 TO 10
4510 CALL KEY1(C,D)
4520 IF C=ASC("0")THEN I=10:GOSUB 4600
4525 NEXT
4530 SON=125:GOSUB 2200
4540 CALL COLOR("1WB"):LOCATE (19,10):PRINT "4":LOCATE (8,16):PRINT "4"
4550 RETURN
4600 CALL COLOR("1WB"):LOCATE (19,10):PRINT "S":LOCATE (8,16):PRINT "S"
4610 FORCE=INTRND(20)
4615 DIR=INTRND(1)
4620 ON DIR GOSUB 1580,1510
4625 GOSUB 2000
4630 RETURN
5000 RESTORE 5010:CLS "YbG":GOSUB 10020
5010 DATA 1Yb,2,11,*,12,1,2,12,*,8,1,8,13,*,1,10,9,13,*,1,10
5020 DATA 3,23,z,1,1,10,21,*,4,1,0
5030 DATA 1YC,2,24,X,1,1,2,25,Y,1,1,3,25,a,1,1,0
5040 DATA 1Yb,3,24,Z,1,1,0,1Cb,2,23,W,1,1,0
5050 DATA 1Mb,4,24,b,1,1,4,25,c,1,1,5,24,d,1,1,5,25,*,1,1
5060 DATA 6,23,f,1,1,6,24,e,1,1,6,25,*,1,1,7,22,j,1,1,7,23,g,1,1
5070 DATA 7,24,h,1,1,7,25,i,1,1,8,23,m,1,1,8,24,n,1,1,8,25,*,1,1
5080 DATA 9,24,d,1,1,9,25,*,1,1,10,24,p,1,1,10,25,q,1,1,11,24,r,1,1
5090 DATA 11,25,s,1,1,12,24,r,1,1,12,25,a,1,1,0
5100 DATA 1RY,8,21,k,1,1,8,22,l,1,1,0
5110 DATA 1Gb,13,22,v,1,1,13,23,w,1,1,13,24,x,1,1,13,25,y,1,1,0
5120 DATA FIN
5130 RETURN
6000 !
6010 CALL COLOR("0Gb")
6020 X=17:Y=8:RESTORE 6200
6030 READ FORCE,A,B
6035 SN=INTRND(7):ON SN GOSUB 7000,7010,7020,7030,7040,7050,7060
6036 CALL POKE(258,SO,130)
6040 IF FORCE=-1 THEN GOSUB 6100:RETURN
6045 CALL POKE(126,104,1)
6050 GOSUB 2400
6060 LOCATE (Y,X):PRINT CHR$(1)
6070 GOTO 6030
6100 CALL COLOR("0Yb"):LOCATE (22,1):PRINT "TAPEZ SUR UNE TOUCHE"
6105 CALL POKE(259,0)
6110 RETURN
6200 DATA 9,0,1,2,-1,0,2,1,-1,4,-1,1,1,0,1,4,1,0,4,-1,-1,1,0,-1,2,-1,0
6210 DATA 5,-1,0,3,1,0,2,1,1,1,0,-1,3,1,0,3,1,0,11,-1,0
6220 DATA 3,1,0,2,1,1,2,1,0,1,0,-1,4,-1,0,3,-1,0,11,1,0,1,-1,1
6230 DATA 1,1,0,11,-1,0,1,1,-1,2,0,-1,1,1,0,2,0,1,3,1,1
6240 DATA 5,-1,0,1,0,-1,5,1,0,6,1,0,2,1,0,5,1,0,4,0,-1,3,1,0
6250 DATA 3,-1,1,5,1,0,3,0,-1,5,1,0,15,-1,0,6,1,0
6260 DATA 2,1,1,3,-1,1,4,-1,0,5,0,-1,1,1,0,5,1,0,3,0,1,2,-1,-1
6270 DATA 10,1,0,4,-1,1,3,-1,0,4,0,-1,8,-1,0,2,1,0,8,1,0,1,0,1
6280 DATA 2,-1,1,5,-1,0,2,0,-1,3,-1,0,5,1,0,4,-1,0,1,1,0
6290 DATA 3,0,1,13,1,0,3,0,-1,1,0,1,9,-1,0,3,-1,0,5,1,0,8,-1,0,2,0,1
6300 DATA 3,1,0,7,1,0,1,0,-1,5,1,0,1,1,1,1,1,0,5,-1,0,1,1,0,5,1,0
6310 DATA -1,0,0
6500 !
6510 CLS "Bbb":CALL COLOR("0CLH"):LOCATE (5,6)
6520 PRINT "NNOOMMBBRREE DDEE JJOOUUEEUURRSS ??"
6530 CALL COLOR("0MLH"):LOCATE (6,6)
6540 PRINT "NNOOMMBBRREE DDEE JJOOUUEEUURRSS ??"
6550 CALL COLOR("0CLH"):LOCATE (9,10):PRINT "(( 11 OOUU 22 ))"
6560 CALL COLOR("0YLH"):LOCATE (10,10):PRINT "(( 11 OOUU 22 ))"
6570 CALL COLOR("0GB"):LOCATE (20,1):INPUT "VOTRE REPONSE:";JR
6580 RETURN
6800 !
6805 IF CRB=3 THEN CRB=1
6810 ON CRB GOTO 6820,6840
6820 BALL1=BALL1+1
6830 CALL COLOR("0MB"):LOCATE (6,27):PRINT BALL1:RETURN
6840 BALL2=BALL2+1
6850 CALL COLOR("0MB"):LOCATE (6,38):PRINT BALL2
6860 RETURN
7000 SO=199:RETURN
7010 SO=149:RETURN
7020 SO=105:RETURN
7030 SO=118:RETURN
7040 SO=158:RETURN
7050 SO=176:RETURN
7060 SO=133:RETURN
8000 !
8030 CALL COLOR("0YM")
8035 IF JR=1 THEN 8045
8040 ON CRU GOTO 8080,8045
8045 BONUS1=BONUS1+BONUS
8050 LOCATE (15,24):PRINT USING"#####",BONUS1
8060 RETURN
8080 BONUS2=BONUS2+BONUS
8085 LOCATE (15,32):PRINT USING"#####",BONUS2
8090 RETURN
9000 !
9001 CALL COLOR("0BB"):LOCATE (16,18):PRINT " ":LOCATE (17,18):PRINT " "
9002 CALL COLOR("1RB"):LOCATE (19,18)
9003 PRINT "J":LOCATE (21,18):PRINT "*"
9005 CALL COLOR("0BB"):LOCATE (21,18):PRINT " ":CALL COLOR("1RB"):LOCATE (19,18)
9006 PRINT "*":LOCATE (18,18):PRINT "J":LOCATE (17,18):PRINT "J"
9020 Y=16
9030 Y=Y-1
9035 CALL POKE(126,104,1)
9040 CALL POKE(120,17,Y)
9050 CALL EXEC(50725)
9065 IF Y=3 THEN X=17:CALL COLOR("1GB"):LOCATE (3,18):PRINT "2":RETURN
9070 GOTO 9030
9080 RETURN
10000 !
10010 CLS "YBB"
10020 READ C$
10030 READ Y:IF Y=0 THEN 10100
10040 READ X,A$,V,N
10050 CALL COLOR(C$):LOCATE (Y,X)
10060 FOR I=0 TO V-1
10065 LOCATE (Y+I,X)
10070 PRINT RPT$(A$,N)
10080 NEXT I
10090 GOTO 10030
10100 READ C$:IF C$="FIN" THEN RETURN
10110 READ Y:GOTO 10040
10120 DATA 0GB,4,21,PLAYER 1,1,1,4,32,PLAYER 2,1,1,0
10130 DATA 1GB,8,9,M,1,1,6,12,M,1,1,9,14,M,1,1
10140 DATA 1,1,*,20,1,1,2,0,1,14,1,16,1***,1,1
10150 DATA 2,17,2**,1,1,3,18,2*,1,1,4,19,*,1,1
10160 DATA 5,17,G *,13,1,0
10170 DATA 1BG,18,17,3*.,1,1,19,2,2,1,1,19,16,3.*.,1,1,20,2,.2,1,1
10180 DATA 20,15,3..*.,1,1,0
10190 DATA 1RB,5,7,9,1,1,11,9,9 9 9,1,1,17,18,J,2,1,19,18,*,2,1
10200 DATA 8,27,E,1,1,8,33,F,1,1,9,28,E,1,1,9,32,F,1,1
10210 DATA 10,29,E F,1,1,0
10220 DATA 0RB,1,21,GAME 1,1,1,0
10230 DATA 0MB,6,21,BALL N 0 BALL N 0,1,1,0
10240 DATA 0CB,1,30,FREE GAME 0,1,1,0
10250 DATA 0YB,22,24,RECORD 000000,1,1,0
10260 DATA 1MB,8,4,*3,1,1,4,10,7 7 7,1,1,13,6,7,1,1,0
10270 DATA 1BM,7,4,.2,1,1,0
10280 DATA 1WB,3,4,AB,1,1,4,4,CD,1,1,5,2,5,1,1,8,16,4,1,1,19,8,5 4,1,1,0
10290 DATA 1CB,7,2,G,10,1,9,3,G,7,1
10300 DATA 17,3,E,1,1,18,4,E,1,1,19,5,I,1,3,19,11,I,1,3,2,11,8 8,1,1
10310 DATA 13,14,G,3,1,13,16,H,4,1,17,15,F,1,1,18,14,F,1,1,0
10330 DATA 1Bb,15,5,2,1,1,16,5,.2,1,1,16,12,3.,1,1,17,12,.,1,1,0
10340 DATA 1bB,17,13,3,1,1,0
10350 DATA 1BC,10,24,3..2,1,1,10,33,3..2,1,1,11,23,3....,1,1
10360 DATA 11,33,....2,1,1,12,28,2***3,1,1,13,29,.,4,3
10370 DATA 16,26,.,2,3,16,32,.,2,3,17,25,3...*.*...2,1,1
10380 DATA 18,24,3***.***.***2,1,1
10390 DATA 19,24,..**.***.**..,1,1,12,28,2***3,1,1,0
10400 DATA 1CB,17,29,3 2,1,1,20,24,2***3 2***3,1,1,11,30,L,2,1
10410 DATA 10,30,K,1,1,0
10420 DATA 0Yb,12,23,SCORE,1,1,12,33,SCORE,1,1,13,23,000000,1,1
10430 DATA 13,32,000000,1,1,0,0YM,14,24,BONUS,1,1,14,32,BONUS,1,1
10440 DATA 15,25,0000,1,1,15,32,0000,1,1,0
10450 DATA 0Cb,18,25,LOT,1,1,18,33,LOT,1,1,19,26,00,1,1,19,33,00,1,1,0
10460 DATA FIN
10500 END
Ce listing est uniquement proposé pour un usage privé.
Sans accord écrit préalable, vous n'êtes pas autorisé à le distribuer, le transmettre ou le rediffuser.