10 REM MBV2B
170 X=RND(-TIMER)
200 ' BY HLO
300 CLS: SCREEN 1,0:DRIVE 0: IF PEEK(&H7CC2)<>142 THEN 400 ELSE 620
400 CLEAR 1,&H7CC1:CLEAR300:LOADM"51":EXEC&H7CC2: 'LOAD 51 COLUMN MODE FROM .BIN
420 PMODE4,1: PCLS1:SCREEN 1,0 
620 PRINT : PRINT : PRINT "COCO MILLE BORNES V2" : PRINT
650 PRINT "WANT TO PLAY:" : PRINT "1) LONG GAME 1000/5000      2) SHORT GAME 700/3000 "
655 INPUT I : IF I<1 OR I>2 THEN CLS : GOTO 650
660 IF I=1 THEN  MS=1000 : WS=5000 ELSE  MS=700 : WS=3000
670 REM INPUT "PRESS ENTER TO START";A$
680 CLS
700 PRINT"COCO MILLE BORNES V2" :PRINT"A CARD GAME OF AUTO RACING"
800 DIM CR$(115),HZ$(2),YR$(2,7),ST$(2),SC(2),SF$(2,7),CT(2),SL$(2)
900 DIM SB(2),SF(2),WR(2),MX(2),CC(2),SU(2),TL(2)
950 DIM SI$(2),CF(2)
1000 TL(1)=0 : TL(2)=0 : TD=0:G8=0
1050 ''' RESTART POINT
1100 FOR I=1 TO 2 : HZ$(I)="" : ST$(I)="" : SC(I)=0 : CT(I)=0 : SL$(I)=""
1111 CF(1)=0 : CF(2)=0
1200 SB(I)=0 : SF(I)=0 : WR(I)=0 : MX(I)=0 : CC(I)=0 : SU(I)=0
1300 FOR J=1 TO 7 : YR$(I,J)="" : SF$(I,J)="" : NEXT J : NEXT I
1400 DS=0 : YN$="" : NC=15 : T$="" : OW=0 : RO=0 : ZH=0 : ST=0 : SL=0
1500 R11=0 : R=0 : D=0 : Q=0 : T1$="" : T2$="" : Z=0 
1550 RR=0 : R22=0 : I=0 : X=0 : Y=0 : A$="" : PR=0
1600 VL=0 : NS=0 : S9=0 : H$="" : SW=0 : KP=0 : D$="" 
1650 P=0 : C=0 : PO=0 : WN=0 : HZ=0 : SP=0 : SL=0
1700 HI=0 :I=0
1950 PRINT"READING AND SHUFFLING CARDS" : I=0
1960 RESTORE
2000 READ D$ : IF D$="END-DATA" THEN 2200 ELSE I=I+1 : CR$(I)=D$ : GOTO 2000
2200 Q=0 : P=0 : TD=I
2410 FOR Z=1 TO 200 : A=RND(100) : B=RND(100) 
2500 T1$=CR$(A): CR$(A)=CR$(B):CR$(B)=T1$ : NEXT Z  ' ' '@@@ 5 CARDS EACH
2600 POKE 65494,0: ' SLOWPOKE
3000 C=1
3100 FOR I=1 TO 14 STEP 2
3200 YR$(1,C)=CR$(I) : YR$(2,C)=CR$(I+1)
3300 C=C+1
3400 NEXT I
3600 CLS
3670 ' ' '@@ DISPLAY INTERFACE
3700 Y=1 :X=6 :A$="COCO MILLE BORNES V2": GOSUB 32000
3800 Y=2 :X=1 :A$="YOUR CARDS   CARDS LEFT=": GOSUB 32000
3900 Y=3 :X=1 :A$="(1)": GOSUB 32000 : Y=4 :X=1 :A$="(2)": GOSUB 32000 
3920 Y=5 :X=1 :A$="(3)": GOSUB 32000 : Y=6 :X=1 :A$="(4)": GOSUB 32000
4000 Y=7 :X=1 :A$="(5)": GOSUB 32000
4050 Y=8 :X=1 :A$="(6)": GOSUB 32000 : Y=9 :X=1 :A$="(7)": GOSUB 32000
4100 Y=10 :X=1 :A$="LAST CARD:": GOSUB 32000
4200 Y=12 :X=2 :A$="PLAYER:": GOSUB 32000
4210 Y=13 :X=8 :A$=":": GOSUB 32000
4300 Y=14 :X=2 :A$="STATUS:": GOSUB 32000
4310 Y=15 :X=8 :A$=":": GOSUB 32000
4400 Y=16 :X=1 :A$="HAZARDS:": GOSUB 32000
4410 Y=17 :X=8 :A$=":": GOSUB 32000
4500 Y=18 :X=1 :A$="SAFETYS:": GOSUB 32000
4510 Y=19 :X=8 :A$=":": GOSUB 32000
4520 Y=20 :X=8 :A$=":": GOSUB 32000
4530 Y=21 :X=8 :A$=":": GOSUB 32000
4540 Y=22 :X=8 :A$=":": GOSUB 32000
4600 Y=23 :X=3 :A$="MILES:": GOSUB 32000
4700 PR=1 : PO=2 : 'GOSUB 18200
4750 FOR I=1 TO 7 : ' Y=I+2:X=5:A$="                        " : GOSUB 32000
4770 Y=I+2:X=5:A$=YR$(PR,I) :GOSUB 32000: NEXT I
4800 ' ' ' ***MAIN LOOP***
4900 ' ' ' LOOP BACK
5000 X=9 : A$="YOU     " : Z=20 : PR=1 : PO=2 : DS=0 : C=0
5100 Y=12: GOSUB 32000 : Y=12 :X=Z :A$="        ": GOSUB 32000
5200 A$=INKEY$:IF A$="" THEN 5200 ELSE K=ASC(A$)
5300 IF(K>48 AND K<56)THEN 5500 ELSE 5200
5500 KP=(5-(53-K)) : T$=YR$(PR,KP) : IF T$="" THEN 5200
5600 ' ' '@@ CHK KEY PRESS
5700 IF T$="25" OR T$="50" OR T$="75" OR T$="100" OR T$="200" THEN GOSUB 19600
5800 IF T$="REPAIRS   " OR T$="GASOLINE  " OR T$="SPARE TIRE" OR T$="END LIMIT " OR T$="ROLL !" THEN GOSUB 20700
5900 IF T$="FLAT TIRE " OR T$="OUT OF GAS" OR T$="ACCIDENT  " OR T$="SPEED LIM " OR T$="STOP      " THEN GOSUB 22200
6000 IF T$="PUN PROOF " OR T$="EXTRA TANK" OR T$="DRIV ACE  " OR T$="RITE O WAY" THEN GOSUB 23800
6100 IF DS=1 THEN 5000
6200 GOSUB 26300 :  ' ' '@@ GET NEW CARD
6300 IF SC(PR)>= MS THEN OW=1 : WN=PR : GOTO 26700
6400 GOSUB 18200 :  ' ' '**REDRAW SCREEN
6500 ' ' ' *** COMPUTER PLAY
6600 X=20 : A$="COMPUTER" : Z=9
6700 Y=12 : GOSUB 32000: Y=12 :X=Z :A$="        ":GOSUB 32000
6800 ZH=0 : ST=0 : SL=0 : HZ=0 : SP=0 : SJ=0
6900 IF LEN(ST$(1))>1 THEN SP=1
7000 IF LEN(HZ$(1))>1 THEN HZ=1
7100 IF LEN(HZ$(2))>1 THEN ZH=1
7200 IF LEN(ST$(2))>1 THEN ST=1
7300 IF LEN(SL$(1))>1 THEN SL=1
7400 IF LEN(SL$(2))>1 THEN SJ=1
7500 S9=0 : H$="" : NS=0 : VL=0 : T$="" : PR=2 : PO=1 : C=0
7600 ' ' ' C PLAY ROLL&CHK SAFES
7700 DS=0 : IF(SC(1)>( MS-200))OR(SC(2)>( MS-200))THEN DS=1
7800 FOR I=1 TO 7 : IF S9=1 THEN 8300
7900 T$=YR$(PR,I) : H$=MID$(HZ$(2),1,3)
8000 T2$=MID$(T$,1,3) : IF(T2$="PUN" OR T2$="EXT" OR T2$="DRI" OR T2$="RIT")AND DS=1 THEN S9=1 : KP=I : GOSUB 23800
8100 IF T$="ROLL !" AND ST=0 AND ZH=0 THEN S9=1 : KP=I : GOSUB 20700
8200 IF T$="ROLL !" AND H$="STO" THEN S9=1 : KP=I : GOSUB 20700
8300 NEXT I
8400 IF S9=1 THEN 17600
8500 ' ' ' C HAS HAZARD PLAY SAFETY
8600 IF ZH=0 THEN 11000
8700 H$=MID$(HZ$(PR),1,2)
8800 FOR I=1 TO 7 : IF S9=1 THEN 9600
8900 T$=YR$(PR,I) : T2$=MID$(T$,1,3)
9000 IF(T2$="PUN" AND H$="FL")OR(T2$="EXT" AND H$="OU")THEN S9=1 : KP=I : GOTO 9500
9100 IF(T2$="DRI" AND H$="AC")OR(T2$="RIT" AND H$="ST")THEN S9=1 : KP=I : GOTO 9500
9400 GOTO 9600
9500 GOSUB 23800
9600 NEXT I
9700 IF S9=1 THEN 17600
9800 ' ' ' C PLAY REMEDYS ON HAZARD
9900 FOR I=1 TO 7 : T$=YR$(PR,I) : T2$=MID$(T$,1,3)
10000 IF S9=1 THEN 10700
10100 IF(T2$="GAS" AND H$="OU")OR(T2$="REP" AND H$="AC")THEN S9=1 : KP=I : GOTO 10600
10300 IF(T2$="ROL" AND H$="ST")OR(T2$="SPA" AND H$="FL")THEN S9=1 : KP=I : GOTO 10600
10500 GOTO 10700
10600 GOSUB 20800
10700 NEXT I
10800 IF S9=1 THEN 17600
10900 ' ' ' C PLAY MILES '
11000 IF ST=0 THEN 12400
11100 HI=0
11200 FOR I=1 TO 7
11300 T$=YR$(PR,I)
11400 IF T$="200" OR T$="100" OR T$="75" OR T$="50" OR T$="25" THEN VL=VAL(T$)ELSE 12000
11500 IF(SJ=1 AND VL>50)OR(CT(2)>1 AND VL=200)OR((SC(2)+VL)> MS)THEN 12000
11800 IF VL>HI THEN HI=VL ELSE 12000
11900 KP=I : S9=1 : H$=T$
12000 NEXT I
12100 IF S9=1 THEN VL=HI : T$=H$ : GOSUB 19700
12200 IF S9=1 THEN 17600
12300 ' ' ' **C REMEDY SPEED LIM
12400 IF SJ=0 THEN 13100
12500 FOR I=1 TO 7 : IF S9=1 THEN 12800
12600 T$=YR$(PR,I) : T2$=MID$(T$,1,3)
12700 IF T2$="END" THEN S9=1 : KP=I : GOSUB 20700
12800 NEXT I
12900 IF S9=1 THEN 17600
13000 ' ' ' C PLAYS HAZARD
13100 IF HZ=1 THEN 14100
13200 IF SP=0 THEN 14100
13300 FOR I=1 TO 7 : IF S9=1 THEN 13900
13400 T$=YR$(PR,I) : T2$=MID$(T$,1,3)
13500 IF(T2$="FLA" AND LEN(SF$(PO,1))<2)OR(T2$="ACC" AND LEN(SF$(PO,4))<2)THEN KP=I : S9=1 : GOSUB 22200
13700 IF T2$="STO" AND LEN(SF$(PO,3))<2 THEN KP=I : S9=1 : GOSUB 22200
13750 IF(T2$="SPE" AND LEN(SF$(PO,3))<2)OR(T2$="OUT" AND LEN(SF$(PO,2))<2)THEN KP=I : S9=1 : GOSUB 22200
13900 NEXT I : IF S9=1 THEN 17600
14000 ' ' ' **USE SPEED LIM
14040 GOTO 14700
14100 IF SL=1 THEN 14700
14200 FOR I=1 TO 7 : IF S9=1 THEN 14400
14300 T$=YR$(PR,I) : T2$=MID$(T$,1,3) : IF T2$="SPE" THEN KP=I : S9=1 : GOSUB 22200
14400 NEXT I
14500 IF S9=1 THEN 17600
14600 ' ' ' **C PLAY SAFETY
14700 FOR I=1 TO 7 : IF S9=1 THEN 15300
14800 T$=YR$(PR,I) : T2$=MID$(T$,1,3)
14900 IF T2$="EXT" OR T2$="DRI" OR T2$="PUN" OR T2$="RIT" THEN S9=1 : KP=I : GOSUB 23800
15300 NEXT I
15400 IF S9=1 THEN 17600
15500 ' ' ' **C TO DISCARD
15600 FOR I=1 TO 7 : IF S9=1 THEN 16300
15700 H$=MID$(T$,1,3) :  ' ' ' T$=YR$(PR,I)
15800 IF(H$="FLA" AND LEN(SF$(PO,1))<2)OR(H$="OUT" AND LEN(SF$(PO,2))<2)THEN KP=I : S9=1 : GOTO 16300
16000 IF(H$="ACC" AND LEN(SF$(PO,4))<2)OR(H$="STO" AND LEN(SF$(PO,3))<2)THEN KP=I : S9=1 : GOTO 16300
16200 IF RND(0)>.5 AND(H$="ACC" OR H$="STO" OR H$="SPE" OR H$="OUT" OR H$="FLA")THEN KP=I : S9=1
16300 NEXT I
16400 IF S9=1 THEN 17500
16500 C=0
16600 C=C+1 : X=INT(RND(0)*7+1)
16700 T$=YR$(PR,X)
16800 H$=MID$(T$,1,3)
16900 IF C>5 THEN 17400
17000 IF H$="RIT" OR H$="DRI" OR H$="EXT" OR H$="PUN" THEN 16600
17050 J=RND(255)
17100 IF J>204 AND H$="ROL" AND ST=1 THEN 16600
17200 IF(J>126 AND H$="200")OR(J>102 AND H$="100")THEN 16600
17400 KP=X
17500 C=7 : T$=YR$(PR,KP)
17520 IF T$="" THEN H$="" ELSE 17595
17530 FOR I=1 TO 7 : IF YR$(2,I)<>"" THEN H$=YR$(2,I) : KP=I
17540 NEXT I : IF H$="" THEN GOTO 17900 ELSE T$=H$
17595 GOSUB 25900
17600 IF C<>7 THEN T$=YR$(PR,KP)
17700 GOSUB 18300: ' ' ' REDRAW SCREEN
17800 GOSUB 26300 :  ' ' ' GET A NEW CARD
17900 IF SC(PR)>= MS THEN OW=1 : WN=PR : GOTO 26700
17920 C=0 : FOR I=1 TO 7 : IF YR$(2,I)="" THEN C=C+1
17940 NEXT I
17960 IF C=5 THEN 26700
18000 GOTO 4900
18100 ' ' '@@ DISPLAY CARDS
18200 '''FOR I=1 TO 7 : Y=I+2 :X=5 :A$="                        ": GOSUB 32000
18250 Y=KP+2:X=5:A$="                        ":GOSUB 32000 : Y=KP+2:X=5:A$=YR$(PR,KP): GOSUB 32000 
18255 '''Y=I+2 :X=5 :A$=YR$(PR,I): GOSUB 32000 : NEXT I
18300 Y=10 :X=11 :A$=T$+"          ": GOSUB 32000
18320 IF TD-NC<0 THEN 18400
18350 Y=2 :X=25 :A$=STR$(TD-NC): GOSUB 32000
18400 FOR I=1 TO 2 : IF I=1 THEN X=9 ELSE X=20
18450 IF ST$(I)="" THEN SI$(I)="STOPPED" ELSE SI$(I)="ROLL !"
18500 Y=14 :A$=SI$(I): GOSUB 32000
18550 IF HZ$(I)="" THEN A$="          " ELSE A$=HZ$(I)
18600 Y=16: GOSUB 32000
18700 Y=18:A$=SF$(I,1): GOSUB 32000
18800 Y=19 :A$=SF$(I,2): GOSUB 32000
18900 Y=20 :A$=SF$(I,3): GOSUB 32000
19000 Y=21 :A$=SF$(I,4): GOSUB 32000
19050 IF SL$(I)="" THEN A$="          " ELSE A$=SL$(I)
19100 Y=15 : GOSUB 32000
19200 Y=23 :A$=STR$(SC(I)): GOSUB 32000
19300 NEXT I
19400 RETURN
19500 ' ' '@@@ SCORING
19600 IF ST$(PR)="" THEN 20500
19700 VL=VAL(T$)
19800 IF VL+SC(PR)> MS THEN 20500
19900 IF VL<>200 THEN 20100
20000 CT(PR)=1+CT(PR) : IF CT(PR)>2 THEN 20500
20100 IF SL$(PR)="SPEED LIM " AND VL>50 THEN 20500
20200 SC(PR)=SC(PR)+VL
20400 RETURN
20500 GOSUB 25700
20600 RETURN
20700 ' ' 'REMEDYS
20800 IF HZ$(PR)="ACCIDENT  " AND T$="REPAIRS   " THEN 21700
20900 IF HZ$(PR)="OUT OF GAS" AND T$="GASOLINE  " THEN 21700
21000 IF HZ$(PR)="FLAT TIRE " AND T$="SPARE TIRE" THEN 21700
21100 IF SL$(PR)="SPEED LIM "  AND T$="END LIMIT " THEN SL$(PR)="" : GOTO 22100
21200 IF T$<>"ROLL !" THEN 22000
21300 IF ST$(PR)="ROLL !" THEN 22000
21400 IF HZ$(PR)="STOP      " THEN ST$(PR)="ROLL !" : GOTO 21700
21500 IF HZ$(PR)<>"" THEN 22000
21600 ST$(PR)="ROLL !" : GOTO 22100
21700 HZ$(PR)=""
21800 IF SF$(PR,3)<>"" THEN ST$(PR)="ROLL !"
21900 RETURN
22000 GOSUB 25700
22100 RETURN
22200 ' ' ' @@@HAZARDS
22300 IF T$="SPEED LIM " THEN 22800
22400 IF ST$(PO)="" THEN 23500
22500 IF SF$(PO,1)<>"" AND T$="FLAT TIRE " THEN 23500
22600 IF SF$(PO,2)<>"" AND T$="OUT OF GAS" THEN 23500
22700 IF SF$(PO,3)<>"" AND T$="STOP      " THEN 23500
22800 IF SF$(PO,3)<>"" AND T$="SPEED LIM " THEN 23500
22900 IF SF$(PO,4)<>"" AND T$="ACCIDENT  " THEN 23500
23000 IF SL$(PO)="" AND T$="SPEED LIM " THEN SL$(PO)="SPEED LIM " : GOTO 23400
23100 IF SL$(PO)<>"" AND T$="SPEED LIM " THEN 23500
23200 HZ$(PO)=T$
23300 ST$(PO)=""
23400 RETURN
23500 GOSUB 25700
23600 RETURN
23700 ' ' ' @@@ SAFETYS
23800 IF T$<>"PUN PROOF " THEN 24200
23900 SF$(PR,1)=T$ : IF HZ$(PR)<>"FLAT TIRE " THEN 25500
24000 CF(PR)=CF(PR)+200 : HZ$(PR)=""
24100 GOSUB 25555 : GOTO 25500
24200 IF T$<>"EXTRA TANK" THEN 24600
24300 SF$(PR,2)=T$ : IF HZ$(PR)<>"OUT OF GAS" THEN 25500
24400 CF(PR)=CF(PR)+200 : HZ$(PR)=""
24500 GOSUB 25555 : GOTO 25500
24600 IF T$<>"RITE O WAY" THEN 25200
24810 SF$(PR,3)=T$ : IF HZ$(PR)<>"STOP      " THEN 24900
24820 HZ$(PR)="" : CF(PR)=CF(PR)+200
24830 GOSUB 25555
24900 IF SL$(PR)<>"SPEED LIM " THEN 25500
24920 SL$(PR)=""
25100 ST$(PR)="ROLL !" : GOTO 25500
25200 SF$(PR,4)=T$
25300 IF HZ$(PR)<>"ACCIDENT  " THEN 25500
25400 CF(PR)=CF(PR)+200 : HZ$(PR)=""
25410 GOSUB 25555
25500 IF SF$(PR,3)<>"" AND HZ$(PR)="" THEN ST$(PR)="ROLL !"
25550 RETURN
25555 Y=1 :X=6 :A$="COUP FOURRE !!!   " : GOSUB 32000
25556 SOUND 89,5:SOUND 5,5
25558 Y=1 :X=6 :A$="COLOR MILLE BORNES" : GOSUB 32000: RETURN
25600 ' ' ' @@@ DISCARD
25700 IF PR<>1 THEN 26100
25720 Y=10 :X=1 :A$="DISCARD? (Y/N)             ": GOSUB 32000 : INPUT YN$
25750 Y=11:X=1:A$="      ":GOSUB 32000
25800 IF YN$="N" THEN DS=1 :: Y=10:X=1:A$="LAST CARD: "+T$:GOSUB 32000 : GOTO 26100
25900 T$=T$+" D"+"          " 
26000 Y=10 :X=1 :A$="LAST CARD:             ": GOSUB 32000
26050 Y=11:X=1:A$="      ":GOSUB 32000
26100 RETURN
26200 ' ' ' @@@ NEW CARD
26300 NC=NC+1 : IF NC=TD THEN YR$(PR,KP)="" : GOTO 2650
26400 YR$(PR,KP)=CR$(NC)
26500 RETURN
26600 ' ' ' @@@ END GAME
26700 ' ' '
26800 FOR I=1 TO 2
26900 IF SF$(I,1)<>"" THEN SB(I)=SB(I)+100
27000 IF SF$(I,2)<>"" THEN SB(I)=SB(I)+100
27100 IF SF$(I,3)<>"" THEN SB(I)=SB(I)+100
27200 IF SF$(I,4)<>"" THEN SB(I)=SB(I)+100
27300 IF SB(I)=400 THEN SF(I)=300
27400 IF I=WN THEN WR(I)=400
27500 IF TD-NC<1 AND I=WN THEN MX(I)=400
27600 IF CT(I)=0 AND I=WN THEN CC(I)=300
27700 IF I=1 THEN PO=2 ELSE PO=1
27800 IF SC(PO)=0 THEN SU(I)=500
27820 '
27850 ' CF(COUFRE),CC(NOUSE200),SF(NOSAFET),
27860 ' SC(MILES),SU(SUOUT),SB(SAFETS),
27870 ' WR(WN)
27880 '
27900 SC(I)=SC(I)+SB(I)+SF(I)+WR(I)+CC(I)+SU(I)+CF(I)
28000 TL(I)=TL(I)+SC(I)
28100 NEXT I
28200 CLS : Y=1 :X=1 :A$="BONUS POINTS AND SCORING": GOSUB 32000
28300 Y=4 :X=10 :A$="SAFETYS": GOSUB 32000 
28340 Y=7 :X=9 :A$="ALL SAFETYS": GOSUB 32000
28360 Y=10 :X=9 :A$= STR$(MS)+" MILES": GOSUB 32000
28400 Y=13 :X=10 :A$="SAFE TRIP": GOSUB 32000
28450 Y=17 :X=10 :A$="SHUT OUT": GOSUB 32000
28500 Y=21 :X=2 :A$="TOTAL SCORE THIS ROUND": GOSUB 32000
28600 Y=3 :X=1 :A$="YOU                 COMPUTER": GOSUB 32000
28700 FOR I=1 TO 2 : IF I=1 THEN X=1 ELSE X=21
28800 Y=5 :A$=STR$(SB(I)): GOSUB 32000 : Y=8 :A$=STR$(SF(I)): GOSUB 32000
28820 Y=11 :A$=STR$(WR(I)): GOSUB 32000 : Y=15 :A$=STR$(CC(I)): GOSUB 32000
28900 Y=18 :A$=STR$(SU(I)): GOSUB 32000
29000 Y=22: A$=STR$(SC(I)): GOSUB 32000 : Y=22 :A$=STR$(SC(I)): GOSUB 32000
29100 NEXT I
29200 Y=24 :X=1 :A$="PRESS ANY KEY TO CONTINUE" : GOSUB 32000: INPUT YN$
29300 CLS : Y=1 :X=1 :A$="ENDING SCORE:" : GOSUB 32000
29320 Y=3 :X=1 :A$="    YOUR SC:": GOSUB 32000
29340 Y=5 :X=1 :A$="COMPUTER SC:": GOSUB 32000
29400 Y=3 :X=16 :A$=STR$(TL(1)): GOSUB 32000 : Y=5 :X=16 :A$=STR$(TL(2)): GOSUB 32000
29500 IF TL(1)<WS AND TL(2)<WS THEN 29700 ELSE Y=10:X=1:A$="GAME OVER":GOSUB 32000:GOTO 29900
29700 Y=10 :X=1 :A$="NEXT ROUND" : GOSUB 32000
29720 INPUT YN$ : CLS : Y=2 :X=8 :G8=1:A$="COLOR MILLE BORNES" : GOSUB 32000: GOTO 1100
29800 '
29900 END
30000 ' ' '
30200 ' ' ' @@@ CARD DATA
30300 DATA "OUT OF GAS","FLAT TIRE ","ACCIDENT  ","SPEED LIM ","STOP      "
30400 DATA "OUT OF GAS","FLAT TIRE ","ACCIDENT  ","SPEED LIM ","STOP      "
30500 DATA "GASOLINE  ","SPARE TIRE","END LIMIT ","ROLL !","EXTRA TANK","PUN PROOF ","DRIV ACE  ","RITE O WAY","200","100","75","50","25"
30600 DATA "GASOLINE  ","SPARE TIRE","END LIMIT ","ROLL !"
30700 DATA "GASOLINE  ","SPARE TIRE","END LIMIT ","ROLL !"
30800 DATA "REPAIRS   ","REPAIRS   ","REPAIRS   ","REPAIRS   ","REPAIRS   ","REPAIRS   "
30900 DATA "STOP      ","STOP      ","ROLL !","ROLL !","ROLL !","ROLL !","ROLL !","ROLL !","ROLL !","ROLL !","ROLL !","ROLL !","ROLL !"
31000 DATA "GASOLINE  ","SPARE TIRE","END LIMIT "
31100 DATA "GASOLINE  ","SPARE TIRE","END LIMIT "
31200 DATA "GASOLINE  ","SPARE TIRE","END LIMIT "
31300 DATA "200","200","200"
31400 DATA "100","100","100","100","100","100","100","100","100","100","100"
31500 DATA "75","75","75","75","75","75","75","75","75"
31600 DATA "50","50","50","50","50","50","50","50","50"
31700 DATA "25","25","25","25","25","25","25","25","25"
31800 DATA "END-DATA"
32000 Y=Y-1:ZZ=(51*Y)+X:PRINT @ ZZ,A$:RETURN
0 DATA "25","25","25","25","25","25","25","25","25"
31800 DATA "END-DATA"
32000 Y=Y-1:ZZ=(51*Y)+X:PRINT @ ZZ,A$:RETURN
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        0SqмЛ ISHrY│24 :X│1 :A$│"PRESS ANY KEY TO CONTINUE" : Бж 32000: Й YN$SxrtЮ : Y│1 :X│1 :A$│"ENDING SCORE:" : Бж 32000SвrИY│3 :X│1 :A$│"    YOUR SC:": Бж 32000S╠rЬY│5 :X│1 :A$│"COMPUTER SC:": Бж 32000Tr╪Y│3 :X│16 :A$│ И(TL(1)): Бж 32000 : Y│5 :X│16 :A$│ И(TL(2)): Бж 32000Tes<Е TL(1)┤WS ░ TL(2)┤WS з 29700 :Д Y│10:X│1:A$│"GAME OVER":Бж 32000:Бе 29900TПtY│10 :X│1 :A$│"NEXT ROUND" : Бж 32000T┌tЙ YN$ : Ю : Y│2 :X│8 :G8│1:A$│"COLOR MILLE BORNES" : Бж 32000: Бе 1100Tсth:ГTчt╠КTЄu0:Г ' 'Uu°:Г ' ' @@@ CARD DATAURv\Ж "OUT OF GAS","FLAT TIRE ","ACCIDENT  ","SPEED LIM ","STOP      "UЩv└Ж "OUT OF GAS","FLAT TIRE ","ACCIDENT  ","SPEED LIM ","STOP      "Vw$Ж "GASOLINE  ","SPARE TIRE","END LIMIT ","ROLL !","EXTRA TANK","PUN PROOF ","DRIV ACE  ","RITE O WAY","200","100","75","50","25"VTwИЖ "GASOLINE  ","SPARE TIRE","END LIMIT ","ROLL !"VКwьЖ "GASOLINE  ","SPARE TIRE","END LIMIT ","ROLL !"V▐xPЖ "REPAIRS   ","REPAIRS   ","REPAIRS   ","REPAIRS   ","REPAIRS   ","REPAIRS   "Wax┤Ж "STOP      ","STOP      ","ROLL !","ROLL !","ROLL !","ROLL !","ROLL !","ROLL !","ROLL !","ROLL !","ROLL !","ROLL !","ROLL !"WОyЖ "GASOLINE  ","SPARE TIRE","END LIMIT "W╗y|Ж "GASOLINE  ","SPARE TIRE","END LIMIT "WшyрЖ "GASOLINE  ","SPARE TIRE","END LIMIT "XzDЖ "200","200","200"XHzиЖ "100","100","100","100","100","100","100","100","100","100","100"X{{Ж "75","75","75","75","75","75","75","75","75"Xо{pЖ "50","50","50","50","50","50","50","50","50"Xс{╘Ж "25","25","25","25","25","25","25","25","25"XЄ|8Ж "END-DATA"Y}Y│Yм1:ZZ│(51нY)лX:З @ ZZ,A$:Р","100","100","100","100","100","100","100","100"X{{Ж "75","75","75","75","75","75","75","75","75"Xо{pЖ "50","50","50","50","50","50","50","50","50"Xс{╘Ж "25","25","25","25","25","25","25","25","25"XЄ|8Ж "END-DATA"Y}Y│Yм1:ZZ                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ' ' REDRAW SCREENA7EИБж 26300 :  :Г ' ' GET A NEW CARDAcEьЕ SC(PR)▓│ MS з OW│1 : WN│PR : Бе 26700AПFC│0 : А I│1 е 7 : Е YR$(2,I)│"" з C│Cл1AЧFЛ IAйF(Е C│5 з 26700A╡FPБе 4900A╨F┤:Г ' '@@ DISPLAY CARDSBG:Г''FOR I=1 TO 7 : Y=I+2 :X=5 :A$="                        ": GOSUB 32000BzGJY│KPл2:X│5:A$│"                        ":Бж 32000 : Y│KPл2:X│5:A$│YR$(PR,KP): Бж 32000 B▒GO:Г''Y=I+2 :X=5 :A$=YR$(PR,I): GOSUB 32000 : NEXT IB▐G|Y│10 :X│11 :A$│T$л"          ": Бж 32000BЇGРЕ TDмNC┤0 з 18400CGоY│2 :X│25 :A$│ И(TDмNC): Бж 32000C>GрА I│1 е 2 : Е I│1 з X│9 :Д X│20CtHЕ ST$(I)│"" з SI$(I)│"STOPPED" :Д SI$(I)│"ROLL !"CТHDY│14 :A$│SI$(I): Бж 32000C┴HvЕ HZ$(I)│"" з A$│"          " :Д A$│HZ$(I)C╘HиY│16: Бж 32000CєIY│18:A$│SF$(I,1): Бж 32000DIpY│19 :A$│SF$(I,2): Бж 32000D3I╘Y│20 :A$│SF$(I,3): Бж 32000DSJ8Y│21 :A$│SF$(I,4): Бж 32000DВJjЕ SL$(I)│"" з A$│"          " :Д A$│SL$(I)DЦJЬY│15 : Бж 32000D╖KY│23 :A$│ И(SC(I)): Бж 32000D┐KdЛ ID┼K╚РD█L,:Г ' '@@@ SCORINGDЇLРЕ ST$(PR)│"" з 20500ELЇVL│ Й(T$)EMXЕ VLлSC(PR)▓ MS з 20500E4M╝Е VL┤▓200 з 20100E]N CT(PR)│1лCT(PR) : Е CT(PR)▓2 з 20500EИNДЕ SL$(PR)│"SPEED LIM " ░ VL▓50 з 20500EЭNшSC(PR)│SC(PR)лVLEгO░РE░PБж 25700E╢PxРE╚P▄:Г ' 'REMEDYSE¤Q@Е HZ$(PR)│"ACCIDENT  " ░ T$│"REPAIRS   " з 21700F2QдЕ HZ$(PR)│"OUT OF GAS" ░ T$│"GASOLINE  " з 21700FgRЕ HZ$(PR)│"FLAT TIRE " ░ T$│"SPARE TIRE" з 21700FнRlЕ SL$(PR)│"SPEED LIM "  ░ T$│"END LIMIT " з SL$(PR)│"" : Бе 22100F╚R╨Е T$┤▓"ROLL !" з 22000FчS4Е ST$(PR)│"ROLL !" з 22000G SШЕ HZ$(PR)│"STOP      " з ST$(PR)│"ROLL !" : Бе 21700G:S№Е HZ$(PR)┤▓"" з 22000GZT`ST$(PR)│"ROLL !" : Бе 22100GiT─HZ$(PR)│""GРU(Е SF$(PR,3)┤▓"" з ST$(PR)│"ROLL !"GЦUМРGгUЁБж 25700GйVTРG┐V╕:Г ' ' @@@HAZARDSG▌WЕ T$│"SPEED LIM " з 22800GЎWАЕ ST$(PO)│"" з 23500H$WфЕ SF$(PO,1)┤▓"" ░ T$│"FLAT TIRE " з 23500HRXHЕ SF$(PO,2)┤▓"" ░ T$│"OUT OF GAS" з 23500HАXмЕ SF$(PO,3)┤▓"" ░ T$│"STOP      " з 23500HоYЕ SF$(PO,3)┤▓"" ░ T$│"SPEED LIM " з 23500H▄YtЕ SF$(PO,4)┤▓"" ░ T$│"ACCIDENT  " з 23500I!Y╪Е SL$(PO)│"" ░ T$│"SPEED LIM " з SL$(PO)│"SPEED LIM " : Бе 23400IMZ<Е SL$(PO)┤▓"" ░ T$│"SPEED LIM " з 23500I\ZаHZ$(PO)│T$Ik[ST$(PO)│""Iq[hРI~[╠Бж 25700IД\0РIЫ\Ф:Г ' ' @@@ SAFETYSI║\°Е T$┤▓"PUN PROOF " з 24200Iэ]\SF$(PR,1)│T$ : Е HZ$(PR)┤▓"FLAT TIRE " з 25500J]└CF(PR)│CF(PR)л200 : HZ$(PR)│""J(^$Бж 25555 : Бе 25500JG^ИЕ T$┤▓"EXTRA TANK" з 24600Jz^ьSF$(PR,2)│T$ : Е HZ$(PR)┤▓"OUT OF GAS" з 25500JЭ_PCF(PR)│CF(PR)л200 : HZ$(PR)│""J╡_┤Бж 25555 : Бе 25500J╘`Е T$┤▓"RITE O WAY" з 25200K`ъSF$(PR,3)│T$ : Е HZ$(PR)┤▓"STOP      " з 24900K*`ЇHZ$(PR)│"" : CF(PR)│CF(PR)л200K7`■Бж 25555K[aDЕ SL$(PR)┤▓"SPEED LIM " з 25500KjaXSL$(PR)│""KКbST$(PR)│"ROLL !" : Бе 25500KЫbpSF$(PR,4)│T$K┐b╘Е HZ$(PR)┤▓"ACCIDENT  " з 25500Kтc8CF(PR)│CF(PR)л200 : HZ$(PR)│""KяcBБж 25555L#cЬЕ SF$(PR,3)┤▓"" ░ HZ$(PR)│"" з ST$(PR)│"ROLL !"L)c╬РLZc╙Y│1 :X│6 :A$│"COUP FOURRE !!!   " : Бж 32000Lkc╘а 89,5:а 5,5LЯc╓Y│1 :X│6 :A$│"COLOR MILLE BORNES" : Бж 32000: РL╢d:Г ' ' @@@ DISCARDL╩ddЕ PR┤▓1 з 26100MdxY│10 :X│1 :A$│"DISCARD? (Y/N)             ": Бж 32000 : Й YN$M.dЦY│11:X│1:A$│"      ":Бж 32000Mwd╚Е YN$│"N" з DS│1 :: Y│10:X│1:A$│"LAST CARD: "лT$:Бж 32000 : Бе 26100MФe,T$│T$л" D"л"          " M╩eРY│10 :X│1 :A$│"LAST CARD:             ": Бж 32000Mьe┬Y│11:X│1:A$│"      ":Бж 32000MЄeЇРN
fX:Г ' ' @@@ NEW CARDN:f╝NC│NCл1 : Е NC│TD з YR$(PR,KP)│"" : Бе 2650NQg YR$(PR,KP)│CR$(NC)NWgДРNogш:Г ' ' @@@ END GAMENzhL:Г ' 'NИh░А I│1 е 2NнiЕ SF$(I,1)┤▓"" з SB(I)│SB(I)л100N╥ixЕ SF$(I,2)┤▓"" з SB(I)│SB(I)л100Nўi▄Е SF$(I,3)┤▓"" з SB(I)│SB(I)л100Oj@Е SF$(I,4)┤▓"" з SB(I)│SB(I)л100O8jдЕ SB(I)│400 з SF(I)│300OOkЕ I│WN з WR(I)│400OpklЕ TDмNC┤1 ░ I│WN з MX(I)│400OСk╨Е CT(I)│0 ░ I│WN з CC(I)│300Oкl4Е I│1 з PO│2 :Д PO│1O┼lШЕ SC(PO)│0 з SU(I)│500O╠lм:ГO°l╩:Г CF(COUFRE),CC(NOUSE200),SF(NOSAFET),Pl╘:Г SC(MILES),SU(SUOUT),SB(SAFETS),P-l▐:Г WR(WN)P4lш:ГPhl№SC(I)│SC(I)лSB(I)лSF(I)лWR(I)лCC(I)лSU(I)лCF(I)P~m`TL(I)│TL(I)лSC(I)PЖm─Л IP└n(Ю : Y│1 :X│1 :A$│"BONUS POINTS AND SCORING": Бж 32000PчnМY│4 :X│10 :A$│"SAFETYS": Бж 32000 Qn┤Y│7 :X│9 :A$│"ALL SAFETYS": Бж 32000Q=n╚Y│10 :X│9 :A$│  И(MS)л" MILES": Бж 32000QfnЁY│13 :X│10 :A$│"SAFE TRIP": Бж 32000QОo"Y│17 :X│10 :A$│"SHUT OUT": Бж 32000Q├oTY│21 :X│2 :A$│"TOTAL SCORE THIS ROUND": Бж 32000Q¤o╕Y│3 :X│1 :A$│"YOU                 COMPUTER": Бж 32000R!pА I│1 е 2 : Е I│1 з X│1 :Д X│21R_pАY│5 :A$│ И(SB(I)): Бж 32000 : Y│8 :A$│ И(SF(I)): Бж 32000RЯpФY│11 :A$│ И(WR(I)): Бж 32000 : Y│15 :A$│ И(CC(I)): Бж 32000R└pфY│18 :A$│ И(SU(I)): Бж 32000SqHY│22: A$│ И(SC(I)): Бж 32000 : Y│22 :A$│ И(SC(I)): Бж 3200A$│":": Бж 32000/4°Y│23 :X│3 :A$│"MILES:": Бж 32000/T\PR│1 : PO│2 : :ГGOSUB 18200/ЭОА I│1 е 7 : :Г Y=I+2:X=5:A$="                        " : GOSUB 32000/╟вY│Iл2:X│5:A$│YR$(PR,I) :Бж 32000: Л I/№мX│9 : A$│"STOPPED     STOPPED" : Y│14 : Бж 320000└:Г ' ' ***MAIN LOOP***0,$:Г ' ' LOOP BACK0fИX│9 : A$│"YOU     " : Z│20 : PR│1 : PO│2 : DS│0 : C│00ЮьY│12: Бж 32000 : Y│12 :X│Z :A$│"        ": Бж 320000├PA$│ Т:Е A$│"" з 5200 :Д K│ К(A$)0ф┤Е(K▓48 ░ K┤56)з 5500 :Д 52001|KP│(5м(53мK)) : T$│YR$(PR,KP) : Е T$│"" з 520012р:Г ' '@@ CHK KEY PRESS1uDЕ T$│"25" ▒ T$│"50" ▒ T$│"75" ▒ T$│"100" ▒ T$│"200" з Бж 196001┌иЕ T$│"REPAIRS   " ▒ T$│"GASOLINE  " ▒ T$│"SPARE TIRE" ▒ T$│"END LIMIT " ▒ T$│"ROLL !" з Бж 207002CЕ T$│"FLAT TIRE " ▒ T$│"OUT OF GAS" ▒ T$│"ACCIDENT  " ▒ T$│"SPEED LIM " ▒ T$│"STOP      " з Бж 222002ЪpЕ T$│"PUN PROOF " ▒ T$│"EXTRA TANK" ▒ T$│"DRIV ACE  " ▒ T$│"RITE O WAY" з Бж 238002м╘Е DS│1 з 50002╥8Бж 26300 :  :Г ' '@@ GET NEW CARD2■ЬЕ SC(PR)▓│ MS з OW│1 : WN│PR : Бе 267003$Бж 18200 :  :Г ' '**REDRAW SCREEN3Ad:Г ' ' *** COMPUTER PLAY3`╚X│20 : A$│"COMPUTER" : Z│93Ч,Y│12 : Бж 32000: Y│12 :X│Z :A$│"        ":Бж 320003├РZH│0 : ST│0 : SL│0 : HZ│0 : SP│0 : SJ│03▌ЇЕ  З(ST$(1))▓1 з SP│13ўXЕ  З(HZ$(1))▓1 з HZ│14╝Е  З(HZ$(2))▓1 з ZH│14+ Е  З(ST$(2))▓1 з ST│14EДЕ  З(SL$(1))▓1 з SL│14_шЕ  З(SL$(2))▓1 з SJ│14ЪLS9│0 : H$│"" : NS│0 : VL│0 : T$│"" : PR│2 : PO│1 : C│04╗░:Г ' ' C PLAY ROLL&CHK SAFES4ёDS│0 : Е(SC(1)▓( MSм200))▒(SC(2)▓( MSм200))з DS│15xА I│1 е 7 : Е S9│1 з 830054▄T$│YR$(PR,I) : H$│ Р(HZ$(2),1,3)5Щ@T2$│ Р(T$,1,3) : Е(T2$│"PUN" ▒ T2$│"EXT" ▒ T2$│"DRI" ▒ T2$│"RIT")░ DS│1 з S9│1 : KP│I : Бж 238005╥дЕ T$│"ROLL !" ░ ST│0 ░ ZH│0 з S9│1 : KP│I : Бж 207006 Е T$│"ROLL !" ░ H$│"STO" з S9│1 : KP│I : Бж 207006 lЛ I6# ╨Е S9│1 з 176006G!4:Г ' ' C HAS HAZARD PLAY SAFETY6Z!ШЕ ZH│0 з 110006q!№H$│ Р(HZ$(PR),1,2)6П"`А I│1 е 7 : Е S9│1 з 96006▒"─T$│YR$(PR,I) : T2$│ Р(T$,1,3)6∙#(Е(T2$│"PUN" ░ H$│"FL")▒(T2$│"EXT" ░ H$│"OU")з S9│1 : KP│I : Бе 95007A#МЕ(T2$│"DRI" ░ H$│"AC")▒(T2$│"RIT" ░ H$│"ST")з S9│1 : KP│I : Бе 95007M$╕Бе 96007Z%Бж 238007b%АЛ I7u%фЕ S9│1 з 176007Щ&H:Г ' ' C PLAY REMEDYS ON HAZARD7╟&мА I│1 е 7 : T$│YR$(PR,I) : T2$│ Р(T$,1,3)7┌'Е S9│1 з 107008#'tЕ(T2$│"GAS" ░ H$│"OU")▒(T2$│"REP" ░ H$│"AC")з S9│1 : KP│I : Бе 106008l(<Е(T2$│"ROL" ░ H$│"ST")▒(T2$│"SPA" ░ H$│"FL")з S9│1 : KP│I : Бе 106008y)Бе 107008Ж)hБж 208008О)╠Л I8б*0Е S9│1 з 176008╗*Ф:Г ' ' C PLAY MILES '8╬*°Е ST│0 з 124008╫+\HI│08х+└А I│1 е 78Ў,$T$│YR$(PR,I)9B,ИЕ T$│"200" ▒ T$│"100" ▒ T$│"75" ▒ T$│"50" ▒ T$│"25" з VL│ Й(T$):Д 120009Б,ьЕ(SJ│1 ░ VL▓50)▒(CT(2)▓1 ░ VL│200)▒((SC(2)лVL)▓ MS)з 120009Ю.Е VL▓HI з HI│VL :Д 120009╢.|KP│I : S9│1 : H$│T$9╛.рЛ I9ф/DЕ S9│1 з VL│HI : T$│H$ : Бж 197009ў/иЕ S9│1 з 17600:0:Г ' ' **C REMEDY SPEED LIM:*0pЕ SJ│0 з 13100:I0╘А I│1 е 7 : Е S9│1 з 12800:k18T$│YR$(PR,I) : T2$│ Р(T$,1,3):Ф1ЬЕ T2$│"END" з S9│1 : KP│I : Бж 20700:Ь2Л I:п2dЕ S9│1 з 17600:╔2╚:Г ' ' C PLAYS HAZARD:▄3,Е HZ│1 з 14100:я3РЕ SP│0 з 14100;3ЇА I│1 е 7 : Е S9│1 з 13900;04XT$│YR$(PR,I) : T2$│ Р(T$,1,3);Й4╝Е(T2$│"FLA" ░  З(SF$(PO,1))┤2)▒(T2$│"ACC" ░  З(SF$(PO,4))┤2)з KP│I : S9│1 : Бж 22200;─5ДЕ T2$│"STO" ░  З(SF$(PO,3))┤2 з KP│I : S9│1 : Бж 22200<5╢Е(T2$│"SPE" ░  З(SF$(PO,3))┤2)▒(T2$│"OUT" ░  З(SF$(PO,2))┤2)з KP│I : S9│1 : Бж 22200<66LЛ I : Е S9│1 з 17600<Q6░:Г ' ' **USE SPEED LIM<^6╪Бе 14700<q7Е SL│1 з 14700<Р7xА I│1 е 7 : Е S9│1 з 14400<┘7▄T$│YR$(PR,I) : T2$│ Р(T$,1,3) : Е T2$│"SPE" з KP│I : S9│1 : Бж 22200<с8@Л I<Ї8дЕ S9│1 з 17600=9:Г ' ' **C PLAY SAFETY=.9lА I│1 е 7 : Е S9│1 з 15300=P9╨T$│YR$(PR,I) : T2$│ Р(T$,1,3)=Э:4Е T2$│"EXT" ▒ T2$│"DRI" ▒ T2$│"PUN" ▒ T2$│"RIT" з S9│1 : KP│I : Бж 23800=е;─Л I=╕<(Е S9│1 з 17600=╥<М:Г ' ' **C TO DISCARD=ё<ЁА I│1 е 7 : Е S9│1 з 16300>=TH$│ Р(T$,1,3) :  :Г ' ' T$=YR$(PR,I)>q=╕Е(H$│"FLA" ░  З(SF$(PO,1))┤2)▒(H$│"OUT" ░  З(SF$(PO,2))┤2)з KP│I : S9│1 : Бе 16300>╚>АЕ(H$│"ACC" ░  З(SF$(PO,4))┤2)▒(H$│"STO" ░  З(SF$(PO,3))┤2)з KP│I : S9│1 : Бе 16300??HЕ  Д(0)▓.5 ░(H$│"ACC" ▒ H$│"STO" ▒ H$│"SPE" ▒ H$│"OUT" ▒ H$│"FLA")з KP│I : S9│1?$?мЛ I?7@Е S9│1 з 17500??@tC│0?[@╪C│Cл1 : X│ Б( Д(0)н7л1)?lA<T$│YR$(PR,X)?~AаH$│ Р(T$,1,3)?РBЕ C▓5 з 17400?╚BhЕ H$│"RIT" ▒ H$│"DRI" ▒ H$│"EXT" ▒ H$│"PUN" з 16600?╓BЪJ│ Д(255)?№B╠Е J▓204 ░ H$│"ROL" ░ ST│1 з 16600@.C0Е(J▓126 ░ H$│"200")▒(J▓102 ░ H$│"100")з 16600@7C°KP│X@OD\C│7 : T$│YR$(PR,KP)@lDpЕ T$│"" з H$│"" :Д 17595@аDzА I│1 е 7 : Е YR$(2,I)┤▓"" з H$│YR$(2,I) : KP│I@╞DДЛ I : Е H$│"" з Бе 17900 :Д T$│H$@╙D╗Бж 25900@юD└Е C┤▓7 з T$│YR$(PR,KP)AE$Бж 18300: :Г│22 :A$│ И(SC(I)): Бж 32000S"qмЛ ISbrY│23 :X│1 :A$│"PRESS ANY KEY TO CONTINUE" : Бж 32000: Й YN$SТrtЮ : Y│1 :X│1 :A$│"ENDING SCORE:" : Бж 32000S╝rИY│3 :X│1 :A$│"    YOUR SC:": Бж 32000SцrЬY│5 :X│1 :A$│"COMPUTER SC:": Бж 32000T0r╪Y│3 :X│16 :A$│ И(TL(1)): Бж 32000 : Y│5 :X│16 :A$│ И(TL(2)): Бж 32000Ts<Е TL(1)┤WS ░ TL(2)┤WS з 29700 :Д Y│10:X│1:A$│"GAME OVER":Бж 32000:Бе 29900TйtY│10 :X│1 :A$│"NEXT ROUND" : Бж 32000TЇtЙ YN$ : Ю : Y│2 :X│8 :G8│1:A$│"COLOR MILLE BORNES" : Бж 32000: Бе 1100T√th:ГU
t╠КUu0:Г ' 'U%u°:Г ' ' @@@ CARD DATAUlv\Ж "OUT OF GAS","FLAT TIRE ","ACCIDENT  ","SPEED LIM ","STOP      "U│v└Ж "OUT OF GAS","FLAT TIRE ","ACCIDENT  ","SPEED LIM ","STOP      "V8w$Ж "GASOLINE  ","SPARE TIRE","END LIMIT ","ROLL !","EXTRA TANK","PUN PROOF ","DRIV ACE  ","RITE O WAY","200","100","75","50","25"VnwИЖ "GASOLINE  ","SPARE TIRE","END LIMIT ","ROLL !"VдwьЖ "GASOLINE  ","SPARE TIRE","END LIMIT ","ROLL !"V°xPЖ "REPAIRS   ","REPAIRS   ","REPAIRS   ","REPAIRS   ","REPAIRS   ","REPAIRS   "W{x┤Ж "STOP      ","STOP      ","ROLL !","ROLL !","ROLL !","ROLL !","ROLL !","ROLL !","ROLL !","ROLL !","ROLL !","ROLL !","ROLL !"WиyЖ "GASOLINE  ","SPARE TIRE","END LIMIT "W╒y|Ж "GASOLINE  ","SPARE TIRE","END LIMIT "XyрЖ "GASOLINE  ","SPARE TIRE","END LIMIT "XzDЖ "200","200","200"XbzиЖ "100","100","100","100","100","100","100","100","100","100","100"XХ{Ж "75","75","75","75","75","75","75","75","75"X╚{pЖ "50","50","50","50","50","50","50","50","50"X√{╘Ж "25","25","25","25","25","25","25","25","25"Y|8Ж "END-DATA"Y.}Y│Yм1:ZZ│(51нY)лX:З @ ZZ,A$:Р","100","100","100","100","100","100","100","100"XХ{Ж "75","75","75","75","75","75","75","75","75"X╚{pЖ "50","50","50","50","50","50","50","50","50"X√{╘Ж "25","25","25","25","25","25","25","25","25"Y|                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 3&

В MBV2B&кX│ Д(м Я)&)╚:Г BY HLO&Z
,Ю: ┐ 1,0:╧ 0: Е  Ж(&H7CC2)┤▓142 з 400 :Д 620&Ю
РХ 1,&H7CC1:Х300:╙M"51":в&H7CC2: :ГLOAD 51 COLUMN MODE FROM .BIN&▓
д╚4,1: ╝1:┐ 1,0 &█lЗ : З : З "COCO MILLE BORNES V2" : З'+КЗ "WANT TO PLAY:" : З "1) LONG GAME 1000/5000      2) SHORT GAME 700/3000 "'NПЙ I : Е I┤1 ▒ I▓2 з Ю : Бе 650'ВФЕ I│1 з  MS│1000 : WS│5000 :Д  MS│700 : WS│3000'иЮВ INPUT "PRESS ENTER TO START";A$'оиЮ'щ╝З"COCO MILLE BORNES V2" :З"A CARD GAME OF AUTO RACING"(+ М CR$(115),HZ$(2),YR$(2,7),ST$(2),SC(2),SF$(2,7),CT(2),SL$(2)([ДМ SB(2),SF(2),WR(2),MX(2),CC(2),SU(2),TL(2)(n╢М SI$(2),CF(2)(РшTL(1)│0 : TL(2)│0 : TD│0:G8│0(з:Г'' RESTART POINT(эLА I│1 е 2 : HZ$(I)│"" : ST$(I)│"" : SC(I)│0 : CT(I)│0 : SL$(I)│"")WCF(1)│0 : CF(2)│0)A░SB(I)│0 : SF(I)│0 : WR(I)│0 : MX(I)│0 : CC(I)│0 : SU(I)│0)wА J│1 е 7 : YR$(I,J)│"" : SF$(I,J)│"" : Л J : Л I)╝xDS│0 : YN$│"" : NC│15 : T$│"" : OW│0 : RO│0 : ZH│0 : ST│0 : SL│0)ё▄R11│0 : R│0 : D│0 : Q│0 : T1$│"" : T2$│"" : Z│0 *#RR│0 : R22│0 : I│0 : X│0 : Y│0 : A$│"" : PR│0*Y@VL│0 : NS│0 : S9│0 : H$│"" : SW│0 : KP│0 : D$│"" *КrP│0 : C│0 : PO│0 : WN│0 : HZ│0 : SP│0 : SL│0*ШдHI│0 :I│0*┴ЮЗ"READING AND SHUFFLING CARDS" : I│0*╟иП+╨Н D$ : Е D$│"END-DATA" з 2200 :Д I│Iл1 : CR$(I)│D$ : Бе 2000+ШQ│0 : P│0 : TD│I+F	jА Z│1 е 200 : A│ Д(100) : B│ Д(100) +Н	─T1$│CR$(A): CR$(A)│CR$(B):CR$(B)│T1$ : Л Z  :Г ' '@@@ 5 CARDS EACH+и
(Т 65494,0: :Г SLOWPOKE+░╕C│1+├А I│1 е 14 й 2+ыАYR$(1,C)│CR$(I) : YR$(2,C)│CR$(Iл1)+їфC│Cл1+¤
HЛ I,Ю,"V:Г ' '@@ DISPLAY INTERFACE,TtY│1 :X│6 :A$│"COCO MILLE BORNES V2": Бж 32000,К╪Y│2 :X│1 :A$│"YOUR CARDS   CARDS LEFT=": Бж 32000,╦<Y│3 :X│1 :A$│"(1)": Бж 32000 : Y│4 :X│1 :A$│"(2)": Бж 32000 -PY│5 :X│1 :A$│"(3)": Бж 32000 : Y│6 :X│1 :A$│"(4)": Бж 32000-,аY│7 :X│1 :A$│"(5)": Бж 32000-l╥Y│8 :X│1 :A$│"(6)": Бж 32000 : Y│9 :X│1 :A$│"(7)": Бж 32000-ХY│10 :X│1 :A$│"LAST CARD:": Бж 32000-╗hY│12 :X│2 :A$│"PLAYER:": Бж 32000-█rY│13 :X│8 :A$│":": Бж 32000.
╠Y│14 :X│2 :A$│"STATUS:": Бж 32000.!╓Y│15 :X│8 :A$│":": Бж 32000.H0Y│16 :X│1 :A$│"HAZARDS:": Бж 32000.h:Y│17 :X│8 :A$│":": Бж 32000.ПФY│18 :X│1 :A$│"SAFETYS:": Бж 32000.пЮY│19 :X│8 :A$│":": Бж 32000.╧иY│20 :X│8 :A$│":": Бж 32000.я▓Y│21 :X│8 :A$│":": Бж 32000/╝Y│22 :X│8 : ' ' REDRAW SCREENA7EИБж 26300 :  :Г ' ' GET A NEW CARDAcEьЕ SC(PR)▓│ MS з OW│1 : WN│PR : Бе 26700AПFC│0 : А I│1 е 7 : Е YR$(2,I)│"" з C│Cл1AЧFЛ IAйF(Е C│5 з 26700A╡FPБе 4900A╨F┤:Г ' '@@ DISPLAY CARDSBG:Г''FOR I=1 TO 7 : Y=I+2 :X=5 :A$="                        ": GOSUB 32000BzGJY│KPл2:X│5:A$│"                        ":Бж 32000 : Y│KPл2:X│5:A$│YR$(PR,KP): Бж 32000 B▒GO:Г''Y=I+2 :X=5 :A$=YR$(PR,I): GOSUB 32000 : NEXT IB▐G|Y│10 :X│11 :A$│T$л"          ": Бж 32000BЇGРЕ TDмNC┤0 з 18400CGоY│2 :X│25 :A$│ И(TDмNC): Бж 32000C>GрА I│1 е 2 : Е I│1 з X│9 :Д X│20CtHЕ ST$(I)│"" з SI$(I)│"STOPPED" :Д SI$(I)│"ROLL !"CТHDY│14 :A$│SI$(I): Бж 32000C┴HvЕ HZ$(I)│"" з A$│"          " :Д A$│HZ$(I)C╘HиY│16: Бж 32000CєIY│18:A$│SF$(I,1): Бж 32000DIpY│19 :A$│SF$(I,2): Бж 32000D3I╘Y│20 :A$│SF$(I,3): Бж 32000DSJ8Y│21 :A$│SF$(I,4): Бж 32000DВJjЕ SL$(I)│"" з A$│"          " :Д A$│SL$(I)DЦJЬY│15 : Бж 32000D╖KY│23 :A$│ И(SC(I)): Бж 32000D┐KdЛ ID┼K╚РD█L,:Г ' '@@@ SCORINGDЇLРЕ ST$(PR)│"" з 20500ELЇVL│ Й(T$)EMXЕ VLлSC(PR)▓ MS з 20500E4M╝Е VL┤▓200 з 20100E]N CT(PR)│1лCT(PR) : Е CT(PR)▓2 з 20500EИNДЕ SL$(PR)│"SPEED LIM " ░ VL▓50 з 20500EЭNшSC(PR)│SC(PR)лVLEгO░РE░PБж 25700E╢PxРE╚P▄:Г ' 'REMEDYSE¤Q@Е HZ$(PR)│"ACCIDENT  " ░ T$│"REPAIRS   " з 21700F2QдЕ HZ$(PR)│"OUT OF GAS" ░ T$│"GASOLINE  " з 21700FgRЕ HZ$(PR)│"FLAT TIRE " ░ T$│"SPARE TIRE" з 21700FнRlЕ SL$(PR)│"SPEED LIM "  ░ T$│"END LIMIT " з SL$(PR)│"" : Бе 22100F╚R╨Е T$┤▓"ROLL !" з 22000FчS4Е ST$(PR)│"ROLL !" з 22000G SШЕ HZ$(PR)│"STOP      " з ST$(PR)│"ROLL !" : Бе 21700G:S№Е HZ$(PR)┤▓"" з 22000GZT`ST$(PR)│"ROLL !" : Бе 22100GiT─HZ$(PR)│""GРU(Е SF$(PR,3)┤▓"" з ST$(PR)│"ROLL !"GЦUМРGгUЁБж 25700GйVTРG┐V╕:Г ' ' @@@HAZARDSG▌WЕ T$│"SPEED LIM " з 22800GЎWАЕ ST$(PO)│"" з 23500H$WфЕ SF$(PO,1)┤▓"" ░ T$│"FLAT TIRE " з 23500HRXHЕ SF$(PO,2)┤▓"" ░ T$│"OUT OF GAS" з 23500HАXмЕ SF$(PO,3)┤▓"" ░ T$│"STOP      " з 23500HоYЕ SF$(PO,3)┤▓"" ░ T$│"SPEED LIM " з 23500H▄YtЕ SF$(PO,4)┤▓"" ░ T$│"ACCIDENT  " з 23500I!Y╪Е SL$(PO)│"" ░ T$│"SPEED LIM " з SL$(PO)│"SPEED LIM " : Бе 23400IMZ<Е SL$(PO)┤▓"" ░ T$│"SPEED LIM " з 23500I\ZаHZ$(PO)│T$Ik[ST$(PO)│""Iq[hРI~[╠Бж 25700IД\0РIЫ\Ф:Г ' ' @@@ SAFETYSI║\°Е T$┤▓"PUN PROOF " з 24200Iэ]\SF$(PR,1)│T$ : Е HZ$(PR)┤▓"FLAT TIRE " з 25500J]└CF(PR)│CF(PR)л200 : HZ$(PR)│""J(^$Бж 25555 : Бе 25500JG^ИЕ T$┤▓"EXTRA TANK" з 24600Jz^ьSF$(PR,2)│T$ : Е HZ$(PR)┤▓"OUT OF GAS" з 25500JЭ_PCF(PR)│CF(PR)л200 : HZ$(PR)│""J╡_┤Бж 25555 : Бе 25500J╘`Е T$┤▓"RITE O WAY" з 25200K`ъSF$(PR,3)│T$ : Е HZ$(PR)┤▓"STOP      " з 24900K*`ЇHZ$(PR)│"" : CF(PR)│CF(PR)л200K7`■Бж 25555K[aDЕ SL$(PR)┤▓"SPEED LIM " з 25500KjaXSL$(PR)│""KКbST$(PR)│"ROLL !" : Бе 25500KЫbpSF$(PR,4)│T$K┐b╘Е HZ$(PR)┤▓"ACCIDENT  " з 25500Kтc8CF(PR)│CF(PR)л200 : HZ$(PR)│""KяcBБж 25555L#cЬЕ SF$(PR,3)┤▓"" ░ HZ$(PR)│"" з ST$(PR)│"ROLL !"L)c╬РLZc╙Y│1 :X│6 :A$│"COUP FOURRE !!!   " : Бж 32000Lkc╘а 89,5:а 5,5LЯc╓Y│1 :X│6 :A$│"COLOR MILLE BORNES" : Бж 32000: РL╢d:Г ' ' @@@ DISCARDL╩ddЕ PR┤▓1 з 26100MdxY│10 :X│1 :A$│"DISCARD? (Y/N)             ": Бж 32000 : Й YN$M.dЦY│11:X│1:A$│"      ":Бж 32000Mwd╚Е YN$│"N" з DS│1 :: Y│10:X│1:A$│"LAST CARD: "лT$:Бж 32000 : Бе 26100MФe,T$│T$л" D"л"          " M╩eРY│10 :X│1 :A$│"LAST CARD:             ": Бж 32000Mьe┬Y│11:X│1:A$│"      ":Бж 32000MЄeЇРN
fX:Г ' ' @@@ NEW CARDN:f╝NC│NCл1 : Е NC│TD з YR$(PR,KP)│"" : Бе 2650NQg YR$(PR,KP)│CR$(NC)NWgДРNogш:Г ' ' @@@ END GAMENФhLА I│1 е 100:A│ Е(I):Л I:В DELAY Nвh░А I│1 е 2N╟iЕ SF$(I,1)┤▓"" з SB(I)│SB(I)л100NьixЕ SF$(I,2)┤▓"" з SB(I)│SB(I)л100Oi▄Е SF$(I,3)┤▓"" з SB(I)│SB(I)л100O6j@Е SF$(I,4)┤▓"" з SB(I)│SB(I)л100ORjдЕ SB(I)│400 з SF(I)│300OikЕ I│WN з WR(I)│400OКklЕ TDмNC┤1 ░ I│WN з MX(I)│400Oлk╨Е CT(I)│0 ░ I│WN з CC(I)│300O─l4Е I│1 з PO│2 :Д PO│1O▀lШЕ SC(PO)│0 з SU(I)│500Oцlм:ГPl╩:Г CF(COUFRE),CC(NOUSE200),SF(NOSAFET),P9l╘:Г SC(MILES),SU(SUOUT),SB(SAFETS),PGl▐:Г WR(WN)PNlш:ГPВl№SC(I)│SC(I)лSB(I)лSF(I)лWR(I)лCC(I)лSU(I)лCF(I)PШm`TL(I)│TL(I)лSC(I)Pаm─Л IP┌n(Ю : Y│1 :X│1 :A$│"BONUS POINTS AND SCORING": Бж 32000Q
nМY│4 :X│10 :A$│"SAFETYS": Бж 32000 Q*n┤Y│7 :X│9 :A$│"ALL SAFETYS": Бж 32000QWn╚Y│10 :X│9 :A$│  И(MS)л" MILES": Бж 32000QАnЁY│13 :X│10 :A$│"SAFE TRIP": Бж 32000Qиo"Y│17 :X│10 :A$│"SHUT OUT": Бж 32000Q▌oTY│21 :X│2 :A$│"TOTAL SCORE THIS ROUND": Бж 32000Ro╕Y│3 :X│1 :A$│"YOU                 COMPUTER": Бж 32000R;pА I│1 е 2 : Е I│1 з X│1 :Д X│21RypАY│5 :A$│ И(SB(I)): Бж 32000 : Y│8 :A$│ И(SF(I)): Бж 32000R╣pФY│11 :A$│ И(WR(I)): Бж 32000 : Y│15 :A$│ И(CC(I)): Бж 32000R┌pфY│18 :A$│ И(SU(I)): Бж 32000SqHY│22: A$│ И(SC(I)): Бж 32000 : YA$│":": Бж 32000/4°Y│23 :X│3 :A$│"MILES:": Бж 32000/T\PR│1 : PO│2 : :ГGOSUB 18200/ЭОА I│1 е 7 : :Г Y=I+2:X=5:A$="                        " : GOSUB 32000/╟вY│Iл2:X│5:A$│YR$(PR,I) :Бж 32000: Л I/№мX│9 : A$│"STOPPED     STOPPED" : Y│14 : Бж 320000└:Г ' ' ***MAIN LOOP***0,$:Г ' ' LOOP BACK0fИX│9 : A$│"YOU     " : Z│20 : PR│1 : PO│2 : DS│0 : C│00ЮьY│12: Бж 32000 : Y│12 :X│Z :A$│"        ": Бж 320000├PA$│ Т:Е A$│"" з 5200 :Д K│ К(A$)0ф┤Е(K▓48 ░ K┤56)з 5500 :Д 52001|KP│(5м(53мK)) : T$│YR$(PR,KP) : Е T$│"" з 520012р:Г ' '@@ CHK KEY PRESS1uDЕ T$│"25" ▒ T$│"50" ▒ T$│"75" ▒ T$│"100" ▒ T$│"200" з Бж 196001┌иЕ T$│"REPAIRS   " ▒ T$│"GASOLINE  " ▒ T$│"SPARE TIRE" ▒ T$│"END LIMIT " ▒ T$│"ROLL !" з Бж 207002CЕ T$│"FLAT TIRE " ▒ T$│"OUT OF GAS" ▒ T$│"ACCIDENT  " ▒ T$│"SPEED LIM " ▒ T$│"STOP      " з Бж 222002ЪpЕ T$│"PUN PROOF " ▒ T$│"EXTRA TANK" ▒ T$│"DRIV ACE  " ▒ T$│"RITE O WAY" з Бж 238002м╘Е DS│1 з 50002╥8Бж 26300 :  :Г ' '@@ GET NEW CARD2■ЬЕ SC(PR)▓│ MS з OW│1 : WN│PR : Бе 267003$Бж 18200 :  :Г ' '**REDRAW SCREEN3Ad:Г ' ' *** COMPUTER PLAY3`╚X│20 : A$│"COMPUTER" : Z│93Ч,Y│12 : Бж 32000: Y│12 :X│Z :A$│"        ":Бж 320003├РZH│0 : ST│0 : SL│0 : HZ│0 : SP│0 : SJ│03▌ЇЕ  З(ST$(1))▓1 з SP│13ўXЕ  З(HZ$(1))▓1 з HZ│14╝Е  З(HZ$(2))▓1 з ZH│14+ Е  З(ST$(2))▓1 з ST│14EДЕ  З(SL$(1))▓1 з SL│14_шЕ  З(SL$(2))▓1 з SJ│14ЪLS9│0 : H$│"" : NS│0 : VL│0 : T$│"" : PR│2 : PO│1 : C│04╗░:Г ' ' C PLAY ROLL&CHK SAFES4ёDS│0 : Е(SC(1)▓( MSм200))▒(SC(2)▓( MSм200))з DS│15xА I│1 е 7 : Е S9│1 з 830054▄T$│YR$(PR,I) : H$│ Р(HZ$(2),1,3)5Щ@T2$│ Р(T$,1,3) : Е(T2$│"PUN" ▒ T2$│"EXT" ▒ T2$│"DRI" ▒ T2$│"RIT")░ DS│1 з S9│1 : KP│I : Бж 238005╥дЕ T$│"ROLL !" ░ ST│0 ░ ZH│0 з S9│1 : KP│I : Бж 207006 Е T$│"ROLL !" ░ H$│"STO" з S9│1 : KP│I : Бж 207006 lЛ I6# ╨Е S9│1 з 176006G!4:Г ' ' C HAS HAZARD PLAY SAFETY6Z!ШЕ ZH│0 з 110006q!№H$│ Р(HZ$(PR),1,2)6П"`А I│1 е 7 : Е S9│1 з 96006▒"─T$│YR$(PR,I) : T2$│ Р(T$,1,3)6∙#(Е(T2$│"PUN" ░ H$│"FL")▒(T2$│"EXT" ░ H$│"OU")з S9│1 : KP│I : Бе 95007A#МЕ(T2$│"DRI" ░ H$│"AC")▒(T2$│"RIT" ░ H$│"ST")з S9│1 : KP│I : Бе 95007M$╕Бе 96007Z%Бж 238007b%АЛ I7u%фЕ S9│1 з 176007Щ&H:Г ' ' C PLAY REMEDYS ON HAZARD7╟&мА I│1 е 7 : T$│YR$(PR,I) : T2$│ Р(T$,1,3)7┌'Е S9│1 з 107008#'tЕ(T2$│"GAS" ░ H$│"OU")▒(T2$│"REP" ░ H$│"AC")з S9│1 : KP│I : Бе 106008l(<Е(T2$│"ROL" ░ H$│"ST")▒(T2$│"SPA" ░ H$│"FL")з S9│1 : KP│I : Бе 106008y)Бе 107008Ж)hБж 208008О)╠Л I8б*0Е S9│1 з 176008╗*Ф:Г ' ' C PLAY MILES '8╬*°Е ST│0 з 124008╫+\HI│08х+└А I│1 е 78Ў,$T$│YR$(PR,I)9B,ИЕ T$│"200" ▒ T$│"100" ▒ T$│"75" ▒ T$│"50" ▒ T$│"25" з VL│ Й(T$):Д 120009Б,ьЕ(SJ│1 ░ VL▓50)▒(CT(2)▓1 ░ VL│200)▒((SC(2)лVL)▓ MS)з 120009Ю.Е VL▓HI з HI│VL :Д 120009╢.|KP│I : S9│1 : H$│T$9╛.рЛ I9ф/DЕ S9│1 з VL│HI : T$│H$ : Бж 197009ў/иЕ S9│1 з 17600:0:Г ' ' **C REMEDY SPEED LIM:*0pЕ SJ│0 з 13100:I0╘А I│1 е 7 : Е S9│1 з 12800:k18T$│YR$(PR,I) : T2$│ Р(T$,1,3):Ф1ЬЕ T2$│"END" з S9│1 : KP│I : Бж 20700:Ь2Л I:п2dЕ S9│1 з 17600:╔2╚:Г ' ' C PLAYS HAZARD:▄3,Е HZ│1 з 14100:я3РЕ SP│0 з 14100;3ЇА I│1 е 7 : Е S9│1 з 13900;04XT$│YR$(PR,I) : T2$│ Р(T$,1,3);Й4╝Е(T2$│"FLA" ░  З(SF$(PO,1))┤2)▒(T2$│"ACC" ░  З(SF$(PO,4))┤2)з KP│I : S9│1 : Бж 22200;─5ДЕ T2$│"STO" ░  З(SF$(PO,3))┤2 з KP│I : S9│1 : Бж 22200<5╢Е(T2$│"SPE" ░  З(SF$(PO,3))┤2)▒(T2$│"OUT" ░  З(SF$(PO,2))┤2)з KP│I : S9│1 : Бж 22200<66LЛ I : Е S9│1 з 17600<Q6░:Г ' ' **USE SPEED LIM<^6╪Бе 14700<q7Е SL│1 з 14700<Р7xА I│1 е 7 : Е S9│1 з 14400<┘7▄T$│YR$(PR,I) : T2$│ Р(T$,1,3) : Е T2$│"SPE" з KP│I : S9│1 : Бж 22200<с8@Л I<Ї8дЕ S9│1 з 17600=9:Г ' ' **C PLAY SAFETY=.9lА I│1 е 7 : Е S9│1 з 15300=P9╨T$│YR$(PR,I) : T2$│ Р(T$,1,3)=Э:4Е T2$│"EXT" ▒ T2$│"DRI" ▒ T2$│"PUN" ▒ T2$│"RIT" з S9│1 : KP│I : Бж 23800=е;─Л I=╕<(Е S9│1 з 17600=╥<М:Г ' ' **C TO DISCARD=ё<ЁА I│1 е 7 : Е S9│1 з 16300>=TH$│ Р(T$,1,3) :  :Г ' ' T$=YR$(PR,I)>q=╕Е(H$│"FLA" ░  З(SF$(PO,1))┤2)▒(H$│"OUT" ░  З(SF$(PO,2))┤2)з KP│I : S9│1 : Бе 16300>╚>АЕ(H$│"ACC" ░  З(SF$(PO,4))┤2)▒(H$│"STO" ░  З(SF$(PO,3))┤2)з KP│I : S9│1 : Бе 16300??HЕ  Д(0)▓.5 ░(H$│"ACC" ▒ H$│"STO" ▒ H$│"SPE" ▒ H$│"OUT" ▒ H$│"FLA")з KP│I : S9│1?$?мЛ I?7@Е S9│1 з 17500??@tC│0?[@╪C│Cл1 : X│ Б( Д(0)н7л1)?lA<T$│YR$(PR,X)?~AаH$│ Р(T$,1,3)?РBЕ C▓5 з 17400?╚BhЕ H$│"RIT" ▒ H$│"DRI" ▒ H$│"EXT" ▒ H$│"PUN" з 16600?╓BЪJ│ Д(255)?№B╠Е J▓204 ░ H$│"ROL" ░ ST│1 з 16600@.C0Е(J▓126 ░ H$│"200")▒(J▓102 ░ H$│"100")з 16600@7C°KP│X@OD\C│7 : T$│YR$(PR,KP)@lDpЕ T$│"" з H$│"" :Д 17595@аDzА I│1 е 7 : Е YR$(2,I)┤▓"" з H$│YR$(2,I) : KP│I@╞DДЛ I : Е H$│"" з Бе 17900 :Д T$│H$@╙D╗Бж 25900@юD└Е C┤▓7 з T$│YR$(PR,KP)AE$Бж 18300: :Г5,255,255,255,253,223,253,219,183,127,150,64,38,159,217/В
^Ж221,221,143,150,237,183,15,150,233,230,159,217,80,221,223,7,30,230,159/╥
hЖ219,113,102,159,14,237,183,127,150,105,102,159,150,104,237,191,253,223,2210!
rЖ255,253,223,221,251,237,183,189,239,255,15,15,255,123,222,219,127,150,2370k
|Ж191,191,150,66,71,143,150,96,102,111,53,81,102,31,150,119,118,159,260╡
ЖЖ170,170,31,7,113,119,15,7,113,119,127,150,116,102,159,102,96,102,1111
РЖ141,221,221,143,206,238,230,159,101,51,53,111,119,119,119,15,96,6,1021I
ЪЖ111,98,36,68,111,150,102,102,159,22,97,119,127,150,102,37,175,22,971Ш
дЖ53,111,150,121,230,159,13,221,221,223,102,102,102,159,102,102,105,159,1021у
оЖ102,0,111,102,153,150,111,102,96,221,223,14,201,55,15,139,187,187,14320
╕Ж247,123,189,223,29,221,221,31,181,95,255,255,255,255,255,15,189,255,2552
┬Ж255,255,30,134,143,119,113,102,31,255,135,119,143,238,232,102,143,255,1502═
╠Ж7,159,218,177,187,191,249,102,142,143,119,22,102,111,223,157,221,143,2393
╓Ж238,230,159,247,100,22,111,59,187,187,31,255,96,102,111,255,22,102,1113e
рЖ255,150,102,159,241,102,23,127,248,102,142,239,255,22,119,127,255,7,143│
ъЖ15,187,27,187,191,255,102,102,159,255,102,105,159,255,102,96,111,255,1053°
ЇЖ150,111,246,102,142,159,255,14,216,15,248,0,0,0,37,0,0,0,69,999                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     3/&

В MBV2C&кX│ Д(м Я)&)╚:Г BY HLO&Z
,Ю: ┐ 1,0:╧ 0: Е  Ж(&H7CC2)┤▓142 з 400 :Д 620&Ю
РХ 1,&H7CC1:Х300:╙M"51":в&H7CC2: :ГLOAD 51 COLUMN MODE FROM .BIN&▓
д╚4,1: ╝1:┐ 1,0 &█lЗ : З : З "COCO MILLE BORNES V2" : З'+КЗ "WANT TO PLAY:" : З "1) LONG GAME 1000/5000      2) SHORT GAME 700/3000 "'NПЙ I : Е I┤1 ▒ I▓2 з Ю : Бе 650'ВФЕ I│1 з  MS│1000 : WS│5000 :Д  MS│700 : WS│3000'иЮВ INPUT "PRESS ENTER TO START";A$'оиЮ'щ╝З"COCO MILLE BORNES V2" :З"A CARD GAME OF AUTO RACING"(+ М CR$(115),HZ$(2),YR$(2,7),ST$(2),SC(2),SF$(2,7),CT(2),SL$(2)([ДМ SB(2),SF(2),WR(2),MX(2),CC(2),SU(2),TL(2)(n╢М SI$(2),CF(2)(РшTL(1)│0 : TL(2)│0 : TD│0:G8│0(з:Г'' RESTART POINT(эLА I│1 е 2 : HZ$(I)│"" : ST$(I)│"" : SC(I)│0 : CT(I)│0 : SL$(I)│"")WCF(1)│0 : CF(2)│0)A░SB(I)│0 : SF(I)│0 : WR(I)│0 : MX(I)│0 : CC(I)│0 : SU(I)│0)wА J│1 е 7 : YR$(I,J)│"" : SF$(I,J)│"" : Л J : Л I)╝xDS│0 : YN$│"" : NC│15 : T$│"" : OW│0 : RO│0 : ZH│0 : ST│0 : SL│0)ё▄R11│0 : R│0 : D│0 : Q│0 : T1$│"" : T2$│"" : Z│0 *#RR│0 : R22│0 : I│0 : X│0 : Y│0 : A$│"" : PR│0*Y@VL│0 : NS│0 : S9│0 : H$│"" : SW│0 : KP│0 : D$│"" *КrP│0 : C│0 : PO│0 : WN│0 : HZ│0 : SP│0 : SL│0*ШдHI│0 :I│0*┴ЮЗ"READING AND SHUFFLING CARDS" : I│0*╟иП+╨Н D$ : Е D$│"END-DATA" з 2200 :Д I│Iл1 : CR$(I)│D$ : Бе 2000+ШQ│0 : P│0 : TD│I+F	jА Z│1 е 200 : A│ Д(100) : B│ Д(100) +Н	─T1$│CR$(A): CR$(A)│CR$(B):CR$(B)│T1$ : Л Z  :Г ' '@@@ 5 CARDS EACH+и
(Т 65494,0: :Г SLOWPOKE+░╕C│1+├А I│1 е 14 й 2+ыАYR$(1,C)│CR$(I) : YR$(2,C)│CR$(Iл1)+їфC│Cл1+¤
HЛ I,Ю,"V:Г ' '@@ DISPLAY INTERFACE,TtY│1 :X│6 :A$│"COCO MILLE BORNES V2": Бж 32000,К╪Y│2 :X│1 :A$│"YOUR CARDS   CARDS LEFT=": Бж 32000,╦<Y│3 :X│1 :A$│"(1)": Бж 32000 : Y│4 :X│1 :A$│"(2)": Бж 32000 -PY│5 :X│1 :A$│"(3)": Бж 32000 : Y│6 :X│1 :A$│"(4)": Бж 32000-,аY│7 :X│1 :A$│"(5)": Бж 32000-l╥Y│8 :X│1 :A$│"(6)": Бж 32000 : Y│9 :X│1 :A$│"(7)": Бж 32000-ХY│10 :X│1 :A$│"LAST CARD:": Бж 32000-╗hY│12 :X│2 :A$│"PLAYER:": Бж 32000-█rY│13 :X│8 :A$│":": Бж 32000.
╠Y│14 :X│2 :A$│"STATUS:": Бж 32000.!╓Y│15 :X│8 :A$│":": Бж 32000.H0Y│16 :X│1 :A$│"HAZARDS:": Бж 32000.h:Y│17 :X│8 :A$│":": Бж 32000.ПФY│18 :X│1 :A$│"SAFETYS:": Бж 32000.пЮY│19 :X│8 :A$│":": Бж 32000.╧иY│20 :X│8 :A$│":": Бж 32000.я▓Y│21 :X│8 :A$│":": Бж 32000/╝Y│22 :X│8 :>|┬О}X№
h┐
h¤}╖О|с▄йЯй¤|°Ю║┐№·9БЮ&4Ю║┐№╠  эБЬ╖&·5~кБЗ&s  ЇБ@'	Б 'ь  ч} 'т 4Ж Ъ╜│фГ╚$7 Г2#Г3|  ЄЖ=4─ў·╢ 5TTT╙║¤№ 5Ж  Я
o&X4Б&¤Ж НNЖ НJЄя 6Б&Ю║┐№·╠  эБЬ╖&· Н)╛№Ь╖%0Й ┐№Ю║ьЙ
эБ╝№&ї ╓Ж_Н░5Ц~╠Б
&Ж Н°а¤|№·9╞ў■А =├~М╛№жа4КН5HHHHКНz■&щ0Й НB9Ў·\ў√4╠°К¤°5╞ z√'
FV■v°v∙ э4№°кДъ
зДч
5дДф
эД0И 9Ў·╦┴#0
└┴&┴&L_
_ 
ў·┐№94Ў·╛№└*╦0┴ &╞╞ ┐№ў·5Д    ▌▌▀▀U   Щ		Я▒{╤┐є-┤╧╡[%п█   █w{▀╜юэ┐ЎРЦ √▒╗   Э┐ Ё    ¤▀¤█╖Ц@&Я┘▌▌ПЦэ╖ЦщцЯ┘P▌▀цЯ█qfЯэ╖ЦifЯЦhэ┐¤▀▌ ¤▀▌√э╖╜я  {▐█Цэ┐┐ЦBGПЦ`fo5QfЦwvЯккqwqwЦtfЯf`foН▌▌П╬юцЯe35owww`fob$DoЦffЯawЦf%пa5oЦyцЯ
▌▌▀fffЯffiЯffofЩЦof`▌▀╔7Л╗╗Пў{╜▀▌▌╡_     ╜    ЖПwqf ЗwПюшfП ЦЯ┌▒╗┐∙fОПwfo▀Э▌ПяюцЯўdo;╗╗ `fo fo ЦfЯёf°fОя w ╗╗┐ ffЯ fiЯ f`o iЦoЎfОЯ ╪° |┬▐█Цэ┐┐ЦBGПЦ`fo5QfЦwvЯккqwqwЦtfЯf`foН▌▌П╬юцЯe35owww`fob$DoЦffЯawЦf%пa5oЦyцЯ
▌▌▀fffЯffiЯffofЩЦof`▌▀╔7Л╗╗Пў{╜▀▌▌╡_     ╜    ЖПwqf ЗwПюшfП ЦЯ┌▒╗┐∙fОПwfo▀Э▌ПяюцЯўdo;                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
∙&
:ГMAKE OR BREAK&1:ГWRITTEN BY CHRIS BONE&K:ГCOPYRIGHT JUNE 1991&b:ГBY FALSOFT, INC.&y:ГRAINBOW MAGAZINE&д
:ГLISTING FOR 51 CHARACTER      SCREEN&╣Х301,&H7CC1:╚4,1&┼X│31933&ю(Н A:Е A│999 з 50 :Д Т X,A:X│Xл1:Бе40')2╚4,1:Ю:в&H7CC2:Ю:┐1,0:З"YOU ARE NOW IN SCREEN 51 MODE"'e<З"TO SAVE TO DISK <SAVEM''51'',&H7CC2,&H7FFF,&H7CC2>":К'нFЖ82,69,69,78,255,142,125,88,252,1,104,191,1,104,253,125,183,142,124'¤PЖ225,220,169,159,169,253,124,248,158,186,191,127,252,127,127,250,57,129,158(HZЖ38,21,52,22,158,186,191,127,252,204,255,255,237,129,156,183,38,250,53(ОdЖ22,126,170,26,129,135,38,5,115,127,255,32,244,129,64,39,9,129,32(┘nЖ39,236,127,127,255,32,231,125,127,255,39,226,127,127,255,52,22,134,32)xЖ23,0,154,189,179,228,16,131,4,200,16,36,55,32,16,131,0,50,35)^ВЖ8,131,0,51,124,127,255,32,242,134,5,61,52,4,196,7,247,127,250)зМЖ182,127,255,53,4,84,84,84,211,186,253,127,252,127,127,255,53,22,134)чЦЖ32,32,159,13,111,16,38,0,88,52,22,129,8,38,19,23,0,253,134*)аЖ32,141,78,134,32,141,74,23,0,242,23,0,239,32,54,129,12,38,19*wкЖ158,186,191,127,252,127,127,250,204,255,255,237,129,156,183,38,250,32,31*┬┤Ж141,41,190,127,252,156,183,37,22,48,137,255,0,191,127,252,158,186,236+╛Ж137,1,0,237,129,188,127,252,38,245,32,214,134,95,141,8,23,0,176+O╚Ж53,150,126,204,28,129,13,38,17,134,32,141,248,23,0,160,127,127,253+Ъ╥Ж124,127,252,127,127,250,57,198,4,247,127,254,128,32,61,195,126,140,31+▌▄Ж2,190,127,252,166,160,52,2,138,15,141,22,53,2,72,72,72,72,138,%цЖ15,141,12,122,127,254,38,233,48,137,255,0,141,66,57,246,127,250,92,lЁЖ247,127,251,52,2,204,248,0,138,8,253,127,248,53,2,198,255,122,127,▒·Ж251,39,14,26,1,70,86,28,254,118,127,248,118,127,249,32,237,52,6,∙
Ж252,127,248,170,132,234,1,167,132,231,1,53,6,164,132,228,1,237,132-9
Ж48,136,32,57,246,127,250,203,5,193,7,35,4,48,1,192,8,193,7-v
Ж38,15,30,16,193,31,38,7,76,95,30,1,95,32,2,30,1,247,127-╜
"Ж250,191,127,252,57,52,4,246,127,250,190,127,252,192,5,42,20,203,8-¤
,Ж48,31,30,16,193,255,38,8,198,31,30,16,198,2,32,2,30,16,191.L
6Ж127,252,247,127,250,53,132,255,255,255,255,221,221,223,223,85,255,255,255.Ц
@Ж153,9,9,159,177,123,209,191,243,45,180,207,181,91,37,175,219,255,255.ч
JЖ255,219,119,123,223,189,238,237,191,246,144,150,255,251,177,187,255,255,255/6
TЖ157,191,255,240,25 3м&

В MBV2C&кX│ Д(м Я)&)╚:Г BY HLO&Z
,Ю: ┐ 1,0:╧ 0: Е  Ж(&H7CC2)┤▓142 з 400 :Д 620&Ю
РХ 1,&H7CC1:Х300:╙M"51":в&H7CC2: :ГLOAD 51 COLUMN MODE FROM .BIN&▓
д╚4,1: ╝1:┐ 1,0 &х
оЙ "1)GRAY OR 2)GREEN SCREEN";YN:Е YN│1 з ┐ 1,1'lЗ : З : З "COCO MILLE BORNES V2" : З'^КЗ "WANT TO PLAY:" : З "1) LONG GAME 1000/5000      2) SHORT GAME 700/3000 "'БПЙ I : Е I┤1 ▒ I▓2 з Ю : Бе 650'╡ФЕ I│1 з  MS│1000 : WS│5000 :Д  MS│700 : WS│3000'█ЮВ INPUT "PRESS ENTER TO START";A$'сиЮ(╝З"COCO MILLE BORNES V2" :З"A CARD GAME OF AUTO RACING"(^ М CR$(115),HZ$(2),YR$(2,7),ST$(2),SC(2),SF$(2,7),CT(2),SL$(2)(ОДМ SB(2),SF(2),WR(2),MX(2),CC(2),SU(2),TL(2)(б╢М SI$(2),CF(2)(├шTL(1)│0 : TL(2)│0 : TD│0:G8│0(┌:Г'' RESTART POINT) LА I│1 е 2 : HZ$(I)│"" : ST$(I)│"" : SC(I)│0 : CT(I)│0 : SL$(I)│"")6WCF(1)│0 : CF(2)│0)t░SB(I)│0 : SF(I)│0 : WR(I)│0 : MX(I)│0 : CC(I)│0 : SU(I)│0)кА J│1 е 7 : YR$(I,J)│"" : SF$(I,J)│"" : Л J : Л I)яxDS│0 : YN$│"" : NC│15 : T$│"" : OW│0 : RO│0 : ZH│0 : ST│0 : SL│0*$▄R11│0 : R│0 : D│0 : Q│0 : T1$│"" : T2$│"" : Z│0 *VRR│0 : R22│0 : I│0 : X│0 : Y│0 : A$│"" : PR│0*М@VL│0 : NS│0 : S9│0 : H$│"" : SW│0 : KP│0 : D$│"" *╜rP│0 : C│0 : PO│0 : WN│0 : HZ│0 : SP│0 : SL│0*╦дHI│0 :I│0*ЇЮЗ"READING AND SHUFFLING CARDS" : I│0*·иП+;╨Н D$ : Е D$│"END-DATA" з 2200 :Д I│Iл1 : CR$(I)│D$ : Бе 2000+PШQ│0 : P│0 : TD│I+y	jА Z│1 е 200 : A│ Д(100) : B│ Д(100) +└	─T1$│CR$(A): CR$(A)│CR$(B):CR$(B)│T1$ : Л Z  :Г ' '@@@ 5 CARDS EACH+█
(Т 65494,0: :Г SLOWPOKE+у╕C│1+ЎА I│1 е 14 й 2,АYR$(1,C)│CR$(I) : YR$(2,C)│CR$(Iл1),(фC│Cл1,0
HЛ I,6Ю,UV:Г ' '@@ DISPLAY INTERFACE,ЗtY│1 :X│6 :A$│"COCO MILLE BORNES V2": Бж 32000,╜╪Y│2 :X│1 :A$│"YOUR CARDS   CARDS LEFT=": Бж 32000,■<Y│3 :X│1 :A$│"(1)": Бж 32000 : Y│4 :X│1 :A$│"(2)": Бж 32000 ->PY│5 :X│1 :A$│"(3)": Бж 32000 : Y│6 :X│1 :A$│"(4)": Бж 32000-_аY│7 :X│1 :A$│"(5)": Бж 32000-Я╥Y│8 :X│1 :A$│"(6)": Бж 32000 : Y│9 :X│1 :A$│"(7)": Бж 32000-╚Y│10 :X│1 :A$│"LAST CARD:": Бж 32000-юhY│12 :X│2 :A$│"PLAYER:": Бж 32000.rY│13 :X│8 :A$│":": Бж 32000.4╠Y│14 :X│2 :A$│"STATUS:": Бж 32000.T╓Y│15 :X│8 :A$│":": Бж 32000.{0Y│16 :X│1 :A$│"HAZARDS:": Бж 32000.Ы:Y│17 :X│8 :A$│":": Бж 32000.┬ФY│18 :X│1 :A$│"SAFETYS:": Бж 32000.тЮY│19 :X│8 :A$│":": Бж 32000/иY│20 :X│8 :A$│":": Бж 32000/"▓Y│21 :X│8 :A$│":": Бж 32000/B╝Y│22 :X│8 :A$│":": Бж 32000/g°Y│23 :X│3 :A$│"MILES:": Бж 32000/З\PR│1 : PO│2 : :ГGOSUB 18200/╨ОА I│1 е 7 : :Г Y=I+2:X=5:A$="                        " : GOSUB 32000/·вY│Iл2:X│5:A$│YR$(PR,I) :Бж 32000: Л I0/мX│9 : A$│"STOPPED     STOPPED" : Y│14 : Бж 320000J└:Г ' ' ***MAIN LOOP***0_$:Г ' ' LOOP BACK0ЩИX│9 : A$│"YOU     " : Z│20 : PR│1 : PO│2 : DS│0 : C│00╤ьY│12: Бж 32000 : Y│12 :X│Z :A$│"        ": Бж 320000ЎPA$│ Т:Е A$│"" з 5200 :Д K│ К(A$)1┤Е(K▓48 ░ K┤56)з 5500 :Д 52001J|KP│(5м(53мK)) : T$│YR$(PR,KP) : Е T$│"" з 52001eр:Г ' '@@ CHK KEY PRESS1иDЕ T$│"25" ▒ T$│"50" ▒ T$│"75" ▒ T$│"100" ▒ T$│"200" з Бж 196002
иЕ T$│"REPAIRS   " ▒ T$│"GASOLINE  " ▒ T$│"SPARE TIRE" ▒ T$│"END LIMIT " ▒ T$│"ROLL !" з Бж 207002vЕ T$│"FLAT TIRE " ▒ T$│"OUT OF GAS" ▒ T$│"ACCIDENT  " ▒ T$│"SPEED LIM " ▒ T$│"STOP      " з Бж 222002═pЕ T$│"PUN PROOF " ▒ T$│"EXTRA TANK" ▒ T$│"DRIV ACE  " ▒ T$│"RITE O WAY" з Бж 238002▀╘Е DS│1 з 500038Бж 26300 :  :Г ' '@@ GET NEW CARD31ЬЕ SC(PR)▓│ MS з OW│1 : WN│PR : Бе 267003WБж 18200 :  :Г ' '**REDRAW SCREEN3td:Г ' ' *** COMPUTER PLAY3У╚X│20 : A$│"COMPUTER" : Z│93╩,Y│12 : Бж 32000: Y│12 :X│Z :A$│"        ":Бж 320003ЎРZH│0 : ST│0 : SL│0 : HZ│0 : SP│0 : SJ│04ЇЕ  З(ST$(1))▓1 з SP│14*XЕ  З(HZ$(1))▓1 з HZ│14D╝Е  З(HZ$(2))▓1 з ZH│14^ Е  З(ST$(2))▓1 з ST│14xДЕ  З(SL$(1))▓1 з SL│14ТшЕ  З(SL$(2))▓1 з SJ│14═LS9│0 : H$│"" : NS│0 : VL│0 : T$│"" : PR│2 : PO│1 : C│04ю░:Г ' ' C PLAY ROLL&CHK SAFES5$DS│0 : Е(SC(1)▓( MSм200))▒(SC(2)▓( MSм200))з DS│15BxА I│1 е 7 : Е S9│1 з 83005g▄T$│YR$(PR,I) : H$│ Р(HZ$(2),1,3)5╠@T2$│ Р(T$,1,3) : Е(T2$│"PUN" ▒ T2$│"EXT" ▒ T2$│"DRI" ▒ T2$│"RIT")░ DS│1 з S9│1 : KP│I : Бж 238006дЕ T$│"ROLL !" ░ ST│0 ░ ZH│0 з S9│1 : KP│I : Бж 207006; Е T$│"ROLL !" ░ H$│"STO" з S9│1 : KP│I : Бж 207006C lЛ I6V ╨Е S9│1 з 176006z!4:Г ' ' C HAS HAZARD PLAY SAFETY6Н!ШЕ ZH│0 з 110006д!№H$│ Р(HZ$(PR),1,2)6┬"`А I│1 е 7 : Е S9│1 з 96006ф"─T$│YR$(PR,I) : T2$│ Р(T$,1,3)7,#(Е(T2$│"PUN" ░ H$│"FL")▒(T2$│"EXT" ░ H$│"OU")з S9│1 : KP│I : Бе 95007t#МЕ(T2$│"DRI" ░ H$│"AC")▒(T2$│"RIT" ░ H$│"ST")з S9│1 : KP│I : Бе 95007А$╕Бе 96007Н%Бж 238007Х%АЛ I7и%фЕ S9│1 з 176007╠&H:Г ' ' C PLAY REMEDYS ON HAZARD7·&мА I│1 е 7 : T$│YR$(PR,I) : T2$│ Р(T$,1,3)8
'                                                                                                                                                                                                                                                                                            ┼ ─      '()*+╟                        B      BAS251      BINHSCREEN51BAS№MB2     BAS&пBV2BX  TXT B2VB   BAS&уBV2B   BASBV2C   BAS п                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                Е S9│1 з 107008V'tЕ(T2$│"GAS" ░ H$│"OU")▒(T2$│"REP" ░ H$│"AC")з S9│1 : KP│I : Бе 106008Я(<Е(T2$│"ROL" ░ H$│"ST")▒(T2$│"SPA" ░ H$│"FL")з S9│1 : KP│I : Бе 106008м)Бе 107008╣)hБж 208008┴)╠Л I8╘*0Е S9│1 з 176008ю*Ф:Г ' ' C PLAY MILES '9
*°Е ST│0 з 124009
+\HI│09+└А I│1 е 79),$T$│YR$(PR,I)9u,ИЕ T$│"200" ▒ T$│"100" ▒ T$│"75" ▒ T$│"50" ▒ T$│"25" з VL│ Й(T$):Д 120009┤,ьЕ(SJ│1 ░ VL▓50)▒(CT(2)▓1 ░ VL│200)▒((SC(2)лVL)▓ MS)з 120009╤.Е VL▓HI з HI│VL :Д 120009щ.|KP│I : S9│1 : H$│T$9ё.рЛ I:/DЕ S9│1 з VL│HI : T$│H$ : Бж 19700:*/иЕ S9│1 з 17600:J0:Г ' ' **C REMEDY SPEED LIM:]0pЕ SJ│0 з 13100:|0╘А I│1 е 7 : Е S9│1 з 12800:Ю18T$│YR$(PR,I) : T2$│ Р(T$,1,3):╟1ЬЕ T2$│"END" з S9│1 : KP│I : Бж 20700:╧2Л I:т2dЕ S9│1 з 17600:№2╚:Г ' ' C PLAYS HAZARD;3,Е HZ│1 з 14100;"3РЕ SP│0 з 14100;A3ЇА I│1 е 7 : Е S9│1 з 13900;c4XT$│YR$(PR,I) : T2$│ Р(T$,1,3);╝4╝Е(T2$│"FLA" ░  З(SF$(PO,1))┤2)▒(T2$│"ACC" ░  З(SF$(PO,4))┤2)з KP│I : S9│1 : Бж 22200;ў5ДЕ T2$│"STO" ░  З(SF$(PO,3))┤2 з KP│I : S9│1 : Бж 22200<P5╢Е(T2$│"SPE" ░  З(SF$(PO,3))┤2)▒(T2$│"OUT" ░  З(SF$(PO,2))┤2)з KP│I : S9│1 : Бж 22200<i6LЛ I : Е S9│1 з 17600<Д6░:Г ' ' **USE SPEED LIM<С6╪Бе 14700<д7Е SL│1 з 14700<├7xА I│1 е 7 : Е S9│1 з 14400=7▄T$│YR$(PR,I) : T2$│ Р(T$,1,3) : Е T2$│"SPE" з KP│I : S9│1 : Бж 22200=8@Л I='8дЕ S9│1 з 17600=B9:Г ' ' **C PLAY SAFETY=a9lА I│1 е 7 : Е S9│1 з 15300=Г9╨T$│YR$(PR,I) : T2$│ Р(T$,1,3)=╨:4Е T2$│"EXT" ▒ T2$│"DRI" ▒ T2$│"PUN" ▒ T2$│"RIT" з S9│1 : KP│I : Бж 23800=╪;─Л I=ы<(Е S9│1 з 17600><М:Г ' ' **C TO DISCARD>$<ЁА I│1 е 7 : Е S9│1 з 16300>M=TH$│ Р(T$,1,3) :  :Г ' ' T$=YR$(PR,I)>д=╕Е(H$│"FLA" ░  З(SF$(PO,1))┤2)▒(H$│"OUT" ░  З(SF$(PO,2))┤2)з KP│I : S9│1 : Бе 16300>√>АЕ(H$│"ACC" ░  З(SF$(PO,4))┤2)▒(H$│"STO" ░  З(SF$(PO,3))┤2)з KP│I : S9│1 : Бе 16300?O?HЕ  Д(0)▓.5 ░(H$│"ACC" ▒ H$│"STO" ▒ H$│"SPE" ▒ H$│"OUT" ▒ H$│"FLA")з KP│I : S9│1?W?мЛ I?j@Е S9│1 з 17500?r@tC│0?О@╪C│Cл1 : X│ Б( Д(0)н7л1)?ЯA<T$│YR$(PR,X)?▒AаH$│ Р(T$,1,3)?├BЕ C▓5 з 17400?√BhЕ H$│"RIT" ▒ H$│"DRI" ▒ H$│"EXT" ▒ H$│"PUN" з 16600@	BЪJ│ Д(255)@/B╠Е J▓204 ░ H$│"ROL" ░ ST│1 з 16600@aC0Е(J▓126 ░ H$│"200")▒(J▓102 ░ H$│"100")з 16600@jC°KP│X@ВD\C│7 : T$│YR$(PR,KP)@ЯDpЕ T$│"" з H$│"" :Д 17595@╙DzА I│1 е 7 : Е YR$(2,I)┤▓"" з H$│YR$(2,I) : KP│I@∙DДЛ I : Е H$│"" з Бе 17900 :Д T$│H$AD╗Бж 25900A!D└Е C┤▓7 з T$│YR$(PR,KP)ADE$Бж 18300: :Г ' ' REDRAW SCREENAjEИБж 26300 :  :Г ' ' GET A NEW CARDAЦEьЕ SC(PR)▓│ MS з OW│1 : WN│PR : Бе 26700A┬FC│0 : А I│1 е 7 : Е YR$(2,I)│"" з C│Cл1A╩FЛ IA▄F(Е C│5 з 26700AшFPБе 4900BF┤:Г ' '@@ DISPLAY CARDSBQG:Г''FOR I=1 TO 7 : Y=I+2 :X=5 :A$="                        ": GOSUB 32000BнGJY│KPл2:X│5:A$│"                        ":Бж 32000 : Y│KPл2:X│5:A$│YR$(PR,KP): Бж 32000 BфGO:Г''Y=I+2 :X=5 :A$=YR$(PR,I): GOSUB 32000 : NEXT ICG|Y│10 :X│11 :A$│T$л"          ": Бж 32000C'GРЕ TDмNC┤0 з 18400CMGоY│2 :X│25 :A$│ И(TDмNC): Бж 32000CqGрА I│1 е 2 : Е I│1 з X│9 :Д X│20CзHЕ ST$(I)│"" з SI$(I)│"STOPPED" :Д SI$(I)│"ROLL !"C┼HDY│14 :A$│SI$(I): Бж 32000CЇHvЕ HZ$(I)│"" з A$│"          " :Д A$│HZ$(I)DHиY│16: Бж 32000D&IY│18:A$│SF$(I,1): Бж 32000DFIpY│19 :A$│SF$(I,2): Бж 32000DfI╘Y│20 :A$│SF$(I,3): Бж 32000DЖJ8Y│21 :A$│SF$(I,4): Бж 32000D╡JjЕ SL$(I)│"" з A$│"          " :Д A$│SL$(I)D╔JЬY│15 : Бж 32000DъKY│23 :A$│ И(SC(I)): Бж 32000DЄKdЛ ID°K╚РEL,:Г ' '@@@ SCORINGE'LРЕ ST$(PR)│"" з 20500E5LЇVL│ Й(T$)EQMXЕ VLлSC(PR)▓ MS з 20500EgM╝Е VL┤▓200 з 20100EРN CT(PR)│1лCT(PR) : Е CT(PR)▓2 з 20500E╗NДЕ SL$(PR)│"SPEED LIM " ░ VL▓50 з 20500E╨NшSC(PR)│SC(PR)лVLE╓O░РEуPБж 25700EщPxРE√P▄:Г ' 'REMEDYSF0Q@Е HZ$(PR)│"ACCIDENT  " ░ T$│"REPAIRS   " з 21700FeQдЕ HZ$(PR)│"OUT OF GAS" ░ T$│"GASOLINE  " з 21700FЪRЕ HZ$(PR)│"FLAT TIRE " ░ T$│"SPARE TIRE" з 21700FрRlЕ SL$(PR)│"SPEED LIM "  ░ T$│"END LIMIT " з SL$(PR)│"" : Бе 22100F√R╨Е T$┤▓"ROLL !" з 22000GS4Е ST$(PR)│"ROLL !" з 22000GSSШЕ HZ$(PR)│"STOP      " з ST$(PR)│"ROLL !" : Бе 21700GmS№Е HZ$(PR)┤▓"" з 22000GНT`ST$(PR)│"ROLL !" : Бе 22100GЬT─HZ$(PR)│""G├U(Е SF$(PR,3)┤▓"" з ST$(PR)│"ROLL !"G╔UМРG╓UЁБж 25700G▄VTРGЄV╕:Г ' ' @@@HAZARDSHWЕ T$│"SPEED LIM " з 22800H)WАЕ ST$(PO)│"" з 23500HWWфЕ SF$(PO,1)┤▓"" ░ T$│"FLAT TIRE " з 23500HЕXHЕ SF$(PO,2)┤▓"" ░ T$│"OUT OF GAS" з 23500H│XмЕ SF$(PO,3)┤▓"" ░ T$│"STOP      " з 23500HсYЕ SF$(PO,3)┤▓"" ░ T$│"SPEED LIM " з 23500IYtЕ SF$(PO,4)┤▓"" ░ T$│"ACCIDENT  " з 23500ITY╪Е SL$(PO)│"" ░ T$│"SPEED LIM " з SL$(PO)│"SPEED LIM " : Бе 23400IАZ<Е SL$(PO)┤▓"" ░ T$│"SPEED LIM " з 23500IПZаHZ$(PO)│T$IЮ[ST$(PO)│""Iд[hРI▒[╠Бж 25700I╖\0РI╬\Ф:Г ' ' @@@ SAFETYSIэ\°Е T$┤▓"PUN PROOF " з 24200J ]\SF$(PR,1)│T$ : Е HZ$(PR)┤▓"FLAT TIRE " з 25500JC]└CF(PR)│CF(PR)л200 : HZ$(PR)│""J[^$Бж 25555 : Бе 25500Jz^ИЕ T$┤▓"EXTRA TANK" з 24600Jн^ьSF$(PR,2)│T$ : Е HZ$(PR)┤▓"OUT OF GAS" з 25500J╨_PCF(PR)│CF(PR)л200 : HZ$(PR)│""Jш_┤Бж 25555 : Бе 25500K`Е T$┤▓"RITE O WAY" з 25200K:`ъSF$(PR,3)│T$ : Е HZ$(PR)┤▓"STOP      " з 24900K]`ЇHZ$(PR)│"" : CF(PR)│CF(PR)л200Kj`■Бж 25555KОaDЕ SL$(PR)┤▓"SPEED LIM " з 25500KЭaXSL$(PR)│""K╜bST$(PR)│"ROLL !" : Бе 25500K╬bpSF$(PR,4)│T$KЄb╘Е HZ$(PR)┤▓"ACCIDENT  " з 25500Lc8CF(PR)│CF(PR)л200 : HZ$(PR)│""L"cBБж 25555LVcЬЕ SF$(PR,3)┤▓"" ░ HZ$(PR)│"" з ST$(PR)│"ROLL !"L\c╬РLНc╙Y│1 :X│6 :A$│"COUP FOURRE !!!   " : Бж 32000LЮc╘а 89,5:а 5,5L╥c╓Y│1 :X│6 :A$│"COLOR MILLE BORNES" : Бж 32000: РLщd:Г ' ' @@@ DISCARDL¤ddЕ PR┤▓1 з 26100M?dxY│10 :X│1 :A$│"DISCARD? (Y/N)             ": Бж 32000 : Й YN$MadЦY│11:X│1:A$│"      ":Бж 32000Mкd╚Е YN$│"N" з DS│1 :: Y│10:X│1:A$│"LAST CARD: "лT$:Бж 32000 : Бе 26100M╟e,T$│T$л" D"л"          " M¤eРY│10 :X│1 :A$│"LAST CARD:             ": Бж 32000Ne┬Y│11:X│1:A$│"      ":Бж 32000N%eЇРN=fX:Г ' ' @@@ NEW CARDNmf╝NC│NCл1 : Е NC│TD з YR$(PR,KP)│"" : Бе 2650NДg YR$(PR,KP)│CR$(NC)NКgДРNвgш:Г ' ' @@@ END GAMEN╟hLX│9:Y│23 :A$│ И(SC(1)): Бж 32000NэhVX│20:Y│23 :A$│ И(SC(2)): Бж 32000Oh`А I│1 е 100:A│ Е(I):Л I:В DELAYOh░А I│1 е 2ODiЕ SF$(I,1)┤▓"" з SB(I)│SB(I)л100OiixЕ SF$(I,2)┤▓"" з SB(I)│SB(I)л100OОi▄Е SF$(I,3)┤▓"" з SB(I)│SB(I)л100O│j@Е SF$(I,4)┤▓"" з SB(I)│SB(I)л100O╧jдЕ SB(I)│400 з SF(I)│300OцkЕ I│WN з WR(I)│400PklЕ TDмNC┤1 ░ I│WN з MX(I)│400P(k╨Е CT(I)│0 ░ I│WN з CC(I)│300PAl4Е I│1 з PO│2 :Д PO│1P\lШЕ SC(PO)│0 з SU(I)│500Pclм:ГPПl╩:Г CF(COUFRE),CC(NOUSE200),SF(NOSAFET),P╢l╘:Г SC(MILES),SU(SUOUT),SB(SAFETS),P─l▐:Г WR(WN)P╦lш:ГP l№SC(I)│SC(I)лSB(I)лSF(I)лWR(I)лCC(I)лSU(I)лCF(I)Qm`TL(I)│TL(I)лSC(I)Qm─Л IQWn(Ю : Y│1 :X│1 :A$│"BONUS POINTS AND SCORING": Бж 32000Q~nМY│4 :X│10 :A$│"SAFETYS": Бж 32000 Qзn┤Y│7 :X│9 :A$│"ALL SAFETYS": Бж 32000Q╘n╚Y│10 :X│9 :A$│  И(MS)л" MILES": Бж 32000Q¤nЁY│13 :X│10 :A$│"SAFE TRIP": Бж 32000R%o"Y│17 :X│10 :A$│"SHUT OUT": Бж 32000RZoTY│21 :X│2 :A$│"TOTAL SCORE THIS ROUND": Бж 32000RФo╕Y│3 :X│1 :A$│"YOU                 COMPUTER": Бж 32000R╕pА I│1 е 2 : Е I│1 з X│1 :Д X│21RЎpАY│5 :A$│ И(SB(I)): Бж 32000 : Y│8 :A$│ И(SF(I)): Бж 32000S6pФY│11 :A$│ И(WR(I)): Бж 32000 : Y│15 :A$│ И(CC(I)): Бж 32000SWpфY│18 :A$│ И(SU(I)): Бж 32000SЧqHY│22: A$│ И(SC(I)): Бж 32000 : Y│22 :A$│ И(SC(I)): Бж 32000SЯqмЛ IS▀rY│23 :X│1 :A$│"PRESS ANY KEY TO CONTINUE" : Бж 32000: Й YN$TrtЮ : Y│1 :X│1 :A$│"ENDING SCORE:" : Бж 32000T9rИY│3 :X│1 :A$│"    YOUR SC:": Бж 32000TcrЬY│5 :X│1 :A$│"COMPUTER SC:": Бж 32000Tнr╪Y│3 :X│16 :A$│ И(TL(1)): Бж 32000 : Y│5 :X│16 :A$│ И(TL(2)): Бж 32000T№s<Е TL(1)┤WS ░ TL(2)┤WS з 29700 :Д Y│10:X│1:A$│"GAME OVER":Бж 32000:Бе 29900U&tY│10 :X│1 :A$│"NEXT ROUND" : Бж 32000UqtЙ YN$ : Ю : Y│2 :X│8 :G8│1:A$│"COLOR MILLE BORNES" : Бж 32000: Бе 1100Uxth:ГU~t╠КUЙu0:Г ' 'Uвu°:Г ' ' @@@ CARD DATAUщv\Ж "OUT OF GAS","FLAT TIRE ","ACCIDENT  ","SPEED LIM ","STOP      "V0v└Ж "OUT OF GAS","FLAT TIRE ","ACCIDENT  ","SPEED LIM ","STOP      "V╡w$Ж "GASOLINE  ","SPARE TIRE","END LIMIT ","ROLL !","EXTRA TANK","PUN PROOF ","DRIV ACE  ","RITE O WAY","200","100","75","50","25"VыwИЖ "GASOLINE  ","SPARE TIRE","END LIMIT ","ROLL !"W!wьЖ "GASOLINE  ","SPARE TIRE","END LIMIT ","ROLL !"WuxPЖ "REPAIRS   ","REPAIRS   ","REPAIRS   ","REPAIRS   ","REPAIRS   ","REPAIRS   "W°x┤Ж "STOP      ","STOP      ","ROLL !","ROLL !","ROLL !","ROLL !","ROLL !","ROLL !","ROLL !","ROLL !","ROLL !","ROLL !","ROLL !"X%yЖ "GASOLINE  ","SPARE TIRE","END LIMIT "XRy|Ж "GASOLINE  ","SPARE TIRE","END LIMIT "XyрЖ "GASOLINE  ","SPARE TIRE","END LIMIT "XЧzDЖ "200","200","200"X▀zиЖ "100","100","100","100","100","100","100","100","100","100","100"Y{Ж "75","75","75","75","75","75","75","75","75"YE{pЖ "50","50","50","50","50","50","50","50","50"Yx{╘Ж "25","25","25","25","25","25","25","25","25"YЙ|8Ж "END-DATA"Yл}Y│Yм1:ZZ│(51нY)лX:З @ ZZ,A$:Р","100","100","100","100","100","100","100","100"Y{Ж "75","75","75","75","75",                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 3м&

В MBV2C&кX│ Д(м Я)&)╚:Г BY HLO&Z
,Ю: ┐ 1,0:╧ 0: Е  Ж(&H7CC2)┤▓142 з 400 :Д 620&Ю
РХ 1,&H7CC1:Х300:╙M"51":в&H7CC2: :ГLOAD 51 COLUMN MODE FROM .BIN&▓
д╚4,1: ╝1:┐ 1,0 &х
оЙ "1)GRAY OR 2)GREEN SCREEN";YN:Е YN│1 з ┐ 1,1'lЗ : З : З "COCO MILLE BORNES V2" : З'^КЗ "WANT TO PLAY:" : З "1) LONG GAME 1000/5000      2) SHORT GAME 700/3000 "'БПЙ I : Е I┤1 ▒ I▓2 з Ю : Бе 650'╡ФЕ I│1 з  MS│1000 : WS│5000 :Д  MS│700 : WS│3000'█ЮВ INPUT "PRESS ENTER TO START";A$'сиЮ(╝З"COCO MILLE BORNES V2" :З"A CARD GAME OF AUTO RACING"(^ М CR$(115),HZ$(2),YR$(2,7),ST$(2),SC(2),SF$(2,7),CT(2),SL$(2)(ОДМ SB(2),SF(2),WR(2),MX(2),CC(2),SU(2),TL(2)(б╢М SI$(2),CF(2)(├шTL(1)│0 : TL(2)│0 : TD│0:G8│0(┌:Г'' RESTART POINT) LА I│1 е 2 : HZ$(I)│"" : ST$(I)│"" : SC(I)│0 : CT(I)│0 : SL$(I)│"")6WCF(1)│0 : CF(2)│0)t░SB(I)│0 : SF(I)│0 : WR(I)│0 : MX(I)│0 : CC(I)│0 : SU(I)│0)кА J│1 е 7 : YR$(I,J)│"" : SF$(I,J)│"" : Л J : Л I)яxDS│0 : YN$│"" : NC│15 : T$│"" : OW│0 : RO│0 : ZH│0 : ST│0 : SL│0*$▄R11│0 : R│0 : D│0 : Q│0 : T1$│"" : T2$│"" : Z│0 *VRR│0 : R22│0 : I│0 : X│0 : Y│0 : A$│"" : PR│0*М@VL│0 : NS│0 : S9│0 : H$│"" : SW│0 : KP│0 : D$│"" *╜rP│0 : C│0 : PO│0 : WN│0 : HZ│0 : SP│0 : SL│0*╦дHI│0 :I│0*ЇЮЗ"READING AND SHUFFLING CARDS" : I│0*·иП+;╨Н D$ : Е D$│"END-DATA" з 2200 :Д I│Iл1 : CR$(I)│D$ : Бе 2000+PШQ│0 : P│0 : TD│I+y	jА Z│1 е 200 : A│ Д(100) : B│ Д(100) +└	─T1$│CR$(A): CR$(A)│CR$(B):CR$(B)│T1$ : Л Z  :Г ' '@@@ 5 CARDS EACH+█
(Т 65494,0: :Г SLOWPOKE+у╕C│1+ЎА I│1 е 14 й 2,АYR$(1,C)│CR$(I) : YR$(2,C)│CR$(Iл1),(фC│Cл1,0
HЛ I,6Ю,UV:Г ' '@@ DISPLAY INTERFACE,ЗtY│1 :X│6 :A$│"COCO MILLE BORNES V2": Бж 32000,╜╪Y│2 :X│1 :A$│"YOUR CARDS   CARDS LEFT=": Бж 32000,■<Y│3 :X│1 :A$│"(1)": Бж 32000 : Y│4 :X│1 :A$│"(2)": Бж 32000 ->PY│5 :X│1 :A$│"(3)": Бж 32000 : Y│6 :X│1 :A$│"(4)": Бж 32000-_аY│7 :X│1 :A$│"(5)": Бж 32000-Я╥Y│8 :X│1 :A$│"(6)": Бж 32000 : Y│9 :X│1 :A$│"(7)": Бж 32000-╚Y│10 :X│1 :A$│"LAST CARD:": Бж 32000-юhY│12 :X│2 :A$│"PLAYER:": Бж 32000.rY│13 :X│8 :A$│":": Бж 32000.4╠Y│14 :X│2 :A$│"STATUS:": Бж 32000.T╓Y│15 :X│8 :A$│":": Бж 32000.{0Y│16 :X│1 :A$│"HAZARDS:": Бж 32000.Ы:Y│17 :X│8 :A$│":": Бж 32000.┬ФY│18 :X│1 :A$│"SAFETYS:": Бж 32000.тЮY│19 :X│8 :A$│":": Бж 32000/иY│20 :X│8 :A$│":": Бж 32000/"▓Y│21 :X│8 :A$│":": Бж 32000/B╝Y│22 :X│8 :A$│":": Бж 32000/g°Y│23 :X│3 :A$│"MILES:": Бж 32000/З\PR│1 : PO│2 : :ГGOSUB 18200/╨ОА I│1 е 7 : :Г Y=I+2:X=5:A$="                        " : GOSUB 32000/·вY│Iл2:X│5:A$│YR$(PR,I) :Бж 32000: Л I0/мX│9 : A$│"STOPPED     STOPPED" : Y│14 : Бж 320000J└:Г ' ' ***MAIN LOOP***0_$:Г ' ' LOOP BACK0ЩИX│9 : A$│"YOU     " : Z│20 : PR│1 : PO│2 : DS│0 : C│00╤ьY│12: Бж 32000 : Y│12 :X│Z :A$│"        ": Бж 320000ЎPA$│ Т:Е A$│"" з 5200 :Д K│ К(A$)1┤Е(K▓48 ░ K┤56)з 5500 :Д 52001J|KP│(5м(53мK)) : T$│YR$(PR,KP) : Е T$│"" з 52001eр:Г ' '@@ CHK KEY PRESS1иDЕ T$│"25" ▒ T$│"50" ▒ T$│"75" ▒ T$│"100" ▒ T$│"200" з Бж 196002
иЕ T$│"REPAIRS   " ▒ T$│"GASOLINE  " ▒ T$│"SPARE TIRE" ▒ T$│"END LIMIT " ▒ T$│"ROLL !" з Бж 207002vЕ T$│"FLAT TIRE " ▒ T$│"OUT OF GAS" ▒ T$│"ACCIDENT  " ▒ T$│"SPEED LIM " ▒ T$│"STOP      " з Бж 222002═pЕ T$│"PUN PROOF " ▒ T$│"EXTRA TANK" ▒ T$│"DRIV ACE  " ▒ T$│"RITE O WAY" з Бж 238002▀╘Е DS│1 з 500038Бж 26300 :  :Г ' '@@ GET NEW CARD31ЬЕ SC(PR)▓│ MS з OW│1 : WN│PR : Бе 267003WБж 18200 :  :Г ' '**REDRAW SCREEN3td:Г ' ' *** COMPUTER PLAY3У╚X│20 : A$│"COMPUTER" : Z│93╩,Y│12 : Бж 32000: Y│12 :X│Z :A$│"        ":Бж 320003ЎРZH│0 : ST│0 : SL│0 : HZ│0 : SP│0 : SJ│04ЇЕ  З(ST$(1))▓1 з SP│14*XЕ  З(HZ$(1))▓1 з HZ│14D╝Е  З(HZ$(2))▓1 з ZH│14^ Е  З(ST$(2))▓1 з ST│14xДЕ  З(SL$(1))▓1 з SL│14ТшЕ  З(SL$(2))▓1 з SJ│14═LS9│0 : H$│"" : NS│0 : VL│0 : T$│"" : PR│2 : PO│1 : C│04ю░:Г ' ' C PLAY ROLL&CHK SAFES5$DS│0 : Е(SC(1)▓( MSм200))▒(SC(2)▓( MSм200))з DS│15BxА I│1 е 7 : Е S9│1 з 83005g▄T$│YR$(PR,I) : H$│ Р(HZ$(2),1,3)5╠@T2$│ Р(T$,1,3) : Е(T2$│"PUN" ▒ T2$│"EXT" ▒ T2$│"DRI" ▒ T2$│"RIT")░ DS│1 з S9│1 : KP│I : Бж 238006дЕ T$│"ROLL !" ░ ST│0 ░ ZH│0 з S9│1 : KP│I : Бж 207006; Е T$│"ROLL !" ░ H$│"STO" з S9│1 : KP│I : Бж 207006C lЛ I6V ╨Е S9│1 з 176006z!4:Г ' ' C HAS HAZARD PLAY SAFETY6Н!ШЕ ZH│0 з 110006д!№H$│ Р(HZ$(PR),1,2)6┬"`А I│1 е 7 : Е S9│1 з 96006ф"─T$│YR$(PR,I) : T2$│ Р(T$,1,3)7,#(Е(T2$│"PUN" ░ H$│"FL")▒(T2$│"EXT" ░ H$│"OU")з S9│1 : KP│I : Бе 95007t#МЕ(T2$│"DRI" ░ H$│"AC")▒(T2$│"RIT" ░ H$│"ST")з S9│1 : KP│I : Бе 95007А$╕Бе 96007Н%Бж 238007Х%АЛ I7и%фЕ S9│1 з 176007╠&H:Г ' ' C PLAY REMEDYS ON HAZARD7·&мА I│1 е 7 : T$│YR$(PR,I) : T2$│ Р(T$,1,3)8
'Е S9│1 з 107008V'tЕ(T2$│"GAS" ░ H$│"OU")▒(T2$│"REP" ░ H$│"AC")з S9│1 : KP│I : Бе 106008Я(<Е(T2$│"ROL" ░ H$│"ST")▒(T2$│"SPA" ░ H$│"FL")з S9│1 : KP│I : Бе 106008м)Бе 107008╣)hБж 208008┴)╠Л I8╘*0Е S9│1 з 176008ю*Ф:Г ' ' C PLAY MILES '9
*°Е ST│0 з 124009
+\HI│09+└А I│1 е 79),$T$│YR$(PR,I)9u,ИЕ T$│"200" ▒ T$│"100" ▒ T$│"75" ▒ T$│"50" ▒ T$│"25" з VL│ Й(T$):Д 120009┤,ьЕ(SJ│1 ░ VL▓50)▒(CT(2)▓1 ░ VL│200)▒((SC(2)лVL)▓ MS)з 120009╤.Е VL▓HI з HI│VL :Д 120009щ.|KP│I : S9│1 : H$│T$9ё.рЛ I:/DЕ S9│1 з VL│HI : T$│H$ : Бж 19700:*/иЕ S9│1 з 17600:J0:Г ' ' **C REMEDY SPEED LIM:]0pЕ SJ│0 з 13100:|0╘А I│1 е 7 : Е S9│1 з 12800:Ю18T$│YR$(PR,I) : T2$│ Р(T$,1,3):╟1ЬЕ T2$│"END" з S9│1 : KP│I : Бж 20700:╧2Л I:т2dЕ S9│1 з 17600:№2╚:Г ' ' C PLAYS HAZARD;3,Е HZ│1 з 14100;"3РЕ SP│0 з 14100;A3ЇА I│1 е 7 : Е S9│1 з 13900;c4XT$│YR$(PR,I) : T2$│ Р(T$,1,3);╝4╝Е(T2$│"FLA" ░  З(SF$(PO,1))┤2)▒(T2$│"ACC" ░  З(SF$(PO,4))┤2)з KP│I : S9│1 : Бж 22200;ў5ДЕ T2$│"STO" ░  З(SF$(PO,3))┤2 з KP│I : S9│1 : Бж 22200<P5╢Е(T2$│"SPE" ░  З(SF$(PO,3))┤2)▒(T2$│"OUT" ░  З(SF$(PO,2))┤2)з KP│I : S9│1 : Бж 22200<i6LЛ I : Е S9│1 з 17600<Д6░:Г ' ' **USE SPEED LIM<С6╪Бе 14700<д7Е SL│1 з 14700<├7xА I│1 е 7 : Е S9│1 з 14400=7▄T$│YR$(PR,I) : T2$│ Р(T$,1,3) : Е T2$│"SPE" з KP│I : S9│1 : Бж 22200=8@Л I='8дЕ S9│1 з 17600=B9:Г ' ' **C PLAY SAFETY=a9lА I│1 е 7 : Е S9│1 з 15300=Г9╨T$│YR$(PR,I) : T2$│ Р(T$,1,3)=╨:4Е T2$│"EXT" ▒ T2$│"DRI" ▒ T2$│"PUN" ▒ T2$│"RIT" з S9│1 : KP│I : Бж 23800=╪;─Л I=ы<(Е S9│1 з 17600><М:Г ' ' **C TO DISCARD>$<ЁА I│1 е 7 : Е S9│1 з 16300>M=TH$│ Р(T$,1,3) :  :Г ' ' T$=YR$(PR,I)>д=╕Е(H$│"FLA" ░  З(SF$(PO,1))┤2)▒(H$│"OUT" ░  З(SF$(PO,2))┤2)з KP│I : S9│1 : Бе 16300>√>АЕ(H$│"ACC" ░  З(SF$(PO,4))┤2)▒(H$│"STO" ░  З(SF$(PO,3))┤2)з KP│I : S9│1 : Бе 16300?O?HЕ  Д(0)▓.5 ░(H$│"ACC" ▒ H$│"STO" ▒ H$│"SPE" ▒ H$│"OUT" ▒ H$│"FLA")з KP│I : S9│1?W?мЛ I?j@Е S9│1 з 17500?r@tC│0?О@╪C│Cл1 : X│ Б( Д(0)н7л1)?ЯA<T$│YR$(PR,X)?▒AаH$│ Р(T$,1,3)?├BЕ C▓5 з 17400?√BhЕ H$│"RIT" ▒ H$│"DRI" ▒ H$│"EXT" ▒ H$│"PUN" з 16600@	BЪJ│ Д(255)@/B╠Е J▓204 ░ H$│"ROL" ░ ST│1 з 16600@aC0Е(J▓126 ░ H$│"200")▒(J▓102 ░ H$│"100")з 16600@jC°KP│X@ВD\C│7 : T$│YR$(PR,KP)@ЯDpЕ T$│"" з H$│"" :Д 17595@╙DzА I│1 е 7 : Е YR$(2,I)┤▓"" з H$│YR$(2,I) : KP│I@∙DДЛ I : Е H$│"" з Бе 17900 :Д T$│H$AD╗Бж 25900A!D└Е C┤▓7 з T$│YR$(PR,KP)ADE$Бж 18300: :Г ' ' REDRAW SCREENAjEИБж 26300 :  :Г ' ' GET A NEW CARDAЦEьЕ SC(PR)▓│ MS з OW│1 : WN│PR : Бе 26700A┬FC│0 : А I│1 е 7 : Е YR$(2,I)│"" з C│Cл1A╩FЛ IA▄F(Е C│5 з 26700AшFPБе 4900BF┤:Г ' '@@ DISPLAY CARDSBQG:Г''FOR I=1 TO 7 : Y=I+2 :X=5 :A$="                        ": GOSUB 32000BнGJY│KPл2:X│5:A$│"                        ":Бж 32000 : Y│KPл2:X│5:A$│YR$(PR,KP): Бж 32000 BфGO:Г''Y=I+2 :X=5 :A$=YR$(PR,I): GOSUB 32000 : NEXT ICG|Y│10 :X│11 :A$│T$л"          ": Бж 32000C'GРЕ TDмNC┤0 з 18400CMGоY│2 :X│25 :A$│ И(TDмNC): Бж 32000CqGрА I│1 е 2 : Е I│1 з X│9 :Д X│20CзHЕ ST$(I)│"" з SI$(I)│"STOPPED" :Д SI$(I)│"ROLL !"C┼HDY│14 :A$│SI$(I): Бж 32000CЇHvЕ HZ$(I)│"" з A$│"          " :Д A$│HZ$(I)DHиY│16: Бж 32000D&IY│18:A$│SF$(I,1): Бж 32000DFIpY│19 :A$│SF$(I,2): Бж 32000DfI╘Y│20 :A$│SF$(I,3): Бж 32000DЖJ8Y│21 :A$│SF$(I,4): Бж 32000D╡JjЕ SL$(I)│"" з A$│"          " :Д A$│SL$(I)D╔JЬY│15 : Бж 32000DъKY│23 :A$│ И(SC(I)): Бж 32000DЄKdЛ ID°K╚РEL,:Г ' '@@@ SCORINGE'LРЕ ST$(PR)│"" з 20500E5LЇVL│ Й(T$)EQMXЕ VLлSC(PR)▓ MS з 20500EgM╝Е VL┤▓200 з 20100EРN CT(PR)│1лCT(PR) : Е CT(PR)▓2 з 20500E╗NДЕ SL$(PR)│"SPEED LIM " ░ VL▓50 з 20500E╨NшSC(PR)│SC(PR)лVLE╓O░РEуPБж 25700EщPxРE√P▄:Г ' 'REMEDYSF0Q@Е HZ$(PR)│"ACCIDENT  " ░ T$│"REPAIRS   " з 21700FeQдЕ HZ$(PR)│"OUT OF GAS" ░ T$│"GASOLINE  " з 21700FЪRЕ HZ$(PR)│"FLAT TIRE " ░ T$│"SPARE TIRE" з 21700FрRlЕ SL$(PR)│"SPEED LIM "  ░ T$│"END LIMIT " з SL$(PR)│"" : Бе 22100F√R╨Е T$┤▓"ROLL !" з 22000GS4Е ST$(PR)│"ROLL !" з 22000GSSШЕ HZ$(PR)│"STOP      " з ST$(PR)│"ROLL !" : Бе 21700GmS№Е HZ$(PR)┤▓"" з 22000GНT`ST$(PR)│"ROLL !" : Бе 22100GЬT─HZ$(PR)│""G├U(Е SF$(PR,3)┤▓"" з ST$(PR)│"ROLL !"G╔UМРG╓UЁБж 25700G▄VTРGЄV╕:Г ' ' @@@HAZARDSHWЕ T$│"SPEED LIM " з 22800H)WАЕ ST$(PO)│"" з 23500HWWфЕ SF$(PO,1)┤▓"" ░ T$│"FLAT TIRE " з 23500HЕXHЕ SF$(PO,2)┤▓"" ░ T$│"OUT OF GAS" з 23500H│XмЕ SF$(PO,3)┤▓"" ░ T$│"STOP      " з 23500HсYЕ SF$(PO,3)┤▓"" ░ T$│"SPEED LIM " з 23500IYtЕ SF$(PO,4)┤▓"" ░ T$│"ACCIDENT  " з 23500ITY╪Е SL$(PO)│"" ░ T$│"SPEED LIM " з SL$(PO)│"SPEED LIM " : Бе 23400IАZ<Е SL$(PO)┤▓"" ░ T$│"SPEED LIM " з 23500IПZаHZ$(PO)│T$IЮ[ST$(PO)│""Iд[hРI▒[╠Бж 25700I╖\0РI╬\Ф:Г ' ' @@@ SAFETYSIэ\°Е T$┤▓"PUN PROOF " з 24200J ]\SF$(PR,1)│T$ : Е HZ$(PR)┤▓"FLAT TIRE " з 25500JC]└CF(PR)│CF(PR)л200 : HZ$(PR)│""J[^$Бж 25555 : Бе 25500Jz^ИЕ T$┤▓"EXTRA TANK" з 24600Jн^ьSF$(PR,2)│T$ : Е HZ$(PR)┤▓"OUT OF GAS" з 25500J╨_PCF(PR)│CF(PR)л200 : HZ$(PR)│""Jш_┤Бж 25555 : Бе 25500K`Е T$┤▓"RITE O WAY" з 25200K:`ъSF$(PR,3)│T$ : Е HZ$(PR)┤▓"STOP      " з 24900K]`ЇHZ$(PR)│"" : CF(PR)│CF(PR)л200Kj`■Бж 25555KОaDЕ SL$(PR)┤▓"SPEED LIM " з 25500KЭaXSL$(PR)│""K╜bST$(PR)│"ROLL !" : Бе 25500K╬bpSF$(PR,4)│T$KЄb╘Е HZ$(PR)┤▓"ACCIDENT  " з 25500Lc8CF(PR)│CF(PR)л200 : HZ$(PR)│""L"cBБж 25555LVcЬЕ SF$(PR,3)┤▓"" ░ HZ$(PR)│"" з ST$(PR)│"ROLL !"L\c╬РLНc╙Y│1 :X│6 :A$│"COUP FOURRE !!!   " : Бж 32000LЮc╘а 89,5:а 5,5L╥c╓Y│1 :X│6 :A$│"COLOR MILLE BORNES" : Бж 32000: РLщd:Г ' ' @@@ DISCARDL¤ddЕ PR┤▓1 з 26100M?dxY│10 :X│1 :A$│"DISCARD? (Y/N)             ": Бж 32000 : Й YN$MadЦY│11:X│1:A$│"      ":Бж 32000Mкd╚Е YN$│"N" з DS│1 :: Y│10:X│1:A$│"LAST CARD: "лT$:Бж 32000 : Бе 26100M╟e,T$│T$л" D"л"          " M¤eРY│10 :X│1 :A$│"LAST CARD:             ": Бж 32000Ne┬Y│11:X│1:A$│"      ":Бж 32000N%eЇРN=fX:Г ' ' @@@ NEW CARDNmf╝NC│NCл1 : Е NC│TD з YR$(PR,KP)│"" : Бе 2650NДg YR$(PR,KP)│CR$(NC)NКgДРNвgш:Г ' ' @@@ END GAMEN╟hLX│9:Y│23 :A$│ И(SC(1)): Бж 32000NэhVX│20:Y│23 :A$│ И(SC(2)): Бж 32000Oh`А I│1 е 100:A│ Е(I):Л I:В DELAYOh░А I│1 е 2ODiЕ SF$(I,1)┤▓"" з SB(I)│SB(I)л100OiixЕ SF$(I,2)┤▓"" з SB(I)│SB(I)л100OОi▄Е SF$(I,3)┤▓"" з SB(I)│SB(I)л100O│j@Е SF$(I,4)┤▓"" з SB(I)│SB(I)л100O╧jдЕ SB(I)│400 з SF(I)│300OцkЕ I│WN з WR(I)│400PklЕ TDмNC┤1 ░ I│WN з MX(I)│400P(k╨Е CT(I)│0 ░ I│WN з CC(I)│300PAl4Е I│1 з PO│2 :Д PO│1P\lШЕ SC(PO)│0 з SU(I)│500Pclм:ГPПl╩:Г CF(COUFRE),CC(NOUSE200),SF(NOSAFET),P╢l╘:Г SC(MILES),SU(SUOUT),SB(SAFETS),P─l▐:Г WR(WN)P╦lш:ГP l№SC(I)│SC(I)лSB(I)лSF(I)лWR(I)лCC(I)лSU(I)лCF(I)Qm`TL(I)│TL(I)лSC(I)Qm─Л IQWn(Ю : Y│1 :X│1 :A$│"BONUS POINTS AND SCORING": Бж 32000Q~nМY│4 :X│10 :A$│"SAFETYS": Бж 32000 Qзn┤Y│7 :X│9 :A$│"ALL SAFETYS": Бж 32000Q╘n╚Y│10 :X│9 :A$│  И(MS)л" MILES": Бж 32000Q¤nЁY│13 :X│10 :A$│"SAFE TRIP": Бж 32000R%o"Y│17 :X│10 :A$│"SHUT OUT": Бж 32000RZoTY│21 :X│2 :A$│"TOTAL SCORE THIS ROUND": Бж 32000RФo╕Y│3 :X│1 :A$│"YOU                 COMPUTER": Бж 32000R╕pА I│1 е 2 : Е I│1 з X│1 :Д X│21RЎpАY│5 :A$│ И(SB(I)): Бж 32000 : Y│8 :A$│ И(SF(I)): Бж 32000S6pФY│11 :A$│ И(WR(I)): Бж 32000 : Y│15 :A$│ И(CC(I)): Бж 32000SWpфY│18 :A$│ И(SU(I)): Бж 32000SЧqHY│22: A$│ И(SC(I)): Бж 32000 : Y│22 :A$│ И(SC(I)): Бж 32000SЯqмЛ IS▀rY│23 :X│1 :A$│"PRESS ANY KEY TO CONTINUE" : Бж 32000: Й YN$TrtЮ : Y│1 :X│1 :A$│"ENDING SCORE:" : Бж 32000T9rИY│3 :X│1 :A$│"    YOUR SC:": Бж 32000TcrЬY│5 :X│1 :A$│"COMPUTER SC:": Бж 32000Tнr╪Y│3 :X│16 :A$│ И(TL(1)): Бж 32000 : Y│5 :X│16 :A$│ И(TL(2)): Бж 32000T№s<Е TL(1)┤WS ░ TL(2)┤WS з 29700 :Д Y│10:X│1:A$│"GAME OVER":Бж 32000:Бе 29900U&tY│10 :X│1 :A$│"NEXT ROUND" : Бж 32000UqtЙ YN$ : Ю : Y│2 :X│8 :G8│1:A$│"COLOR MILLE BORNES" : Бж 32000: Бе 1100Uxth:ГU~t╠КUЙu0:Г ' 'Uвu°:Г ' ' @@@ CARD DATAUщv\Ж "OUT OF GAS","FLAT TIRE ","ACCIDENT  ","SPEED LIM ","STOP      "V0v└Ж "OUT OF GAS","FLAT TIRE ","ACCIDENT  ","SPEED LIM ","STOP      "V╡w$Ж "GASOLINE  ","SPARE TIRE","END LIMIT ","ROLL !","EXTRA TANK","PUN PROOF ","DRIV ACE  ","RITE O WAY","200","100","75","50","25"VыwИЖ "GASOLINE  ","SPARE TIRE","END LIMIT ","ROLL !"W!wьЖ "GASOLINE  ","SPARE TIRE","END LIMIT ","ROLL !"WuxPЖ "REPAIRS   ","REPAIRS   ","REPAIRS   ","REPAIRS   ","REPAIRS   ","REPAIRS   "W°x┤Ж "STOP      ","STOP      ","ROLL !","ROLL !","ROLL !","ROLL !","ROLL !","ROLL !","ROLL !","ROLL !","ROLL !","ROLL !","ROLL !"X%yЖ "GASOLINE  ","SPARE TIRE","END LIMIT "XRy|Ж "GASOLINE  ","SPARE TIRE","END LIMIT "XyрЖ "GASOLINE  ","SPARE TIRE","END LIMIT "XЧzDЖ "200","200","200"X▀zиЖ "100","100","100","100","100","100","100","100","100","100","100"Y{Ж "75","75","75","75","75","75","75","75","75"YE{pЖ "50","50","50","50","50","50","50","50","50"Yx{╘Ж "25","25","25","25","25","25","25","25","25"YЙ|8Ж "END-DATA"Yл}Y│Yм1:ZZ│(51нY)лX:З @ ZZ,A$:Р","100","100","100","100","100","100","100","100"Y{Ж "75","75","75","75","75",                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 3&

В MBV2C&кX│ Д(м Я)&)╚:Г BY HLO&Z
,Ю: ┐ 1,0:╧ 0: Е  Ж(&H7CC2)┤▓142 з 400 :Д 620&Ю
РХ 1,&H7CC1:Х300:╙M"51":в&H7CC2: :ГLOAD 51 COLUMN MODE FROM .BIN&▓
д╚4,1: ╝1:┐ 1,0 &█lЗ : З : З "COCO MILLE BORNES V2" : З'+КЗ "WANT TO PLAY:" : З "1) LONG GAME 1000/5000      2) SHORT GAME 700/3000 "'NПЙ I : Е I┤1 ▒ I▓2 з Ю : Бе 650'ВФЕ I│1 з  MS│1000 : WS│5000 :Д  MS│700 : WS│3000'иЮВ INPUT "PRESS ENTER TO START";A$'оиЮ'щ╝З"COCO MILLE BORNES V2" :З"A CARD GAME OF AUTO RACING"(+ М CR$(115),HZ$(2),YR$(2,7),ST$(2),SC(2),SF$(2,7),CT(2),SL$(2)([ДМ SB(2),SF(2),WR(2),MX(2),CC(2),SU(2),TL(2)(n╢М SI$(2),CF(2)(РшTL(1)│0 : TL(2)│0 : TD│0:G8│0(з:Г'' RESTART POINT(эLА I│1 е 2 : HZ$(I)│"" : ST$(I)│"" : SC(I)│0 : CT(I)│0 : SL$(I)│"")WCF(1)│0 : CF(2)│0)A░SB(I)│0 : SF(I)│0 : WR(I)│0 : MX(I)│0 : CC(I)│0 : SU(I)│0)wА J│1 е 7 : YR$(I,J)│"" : SF$(I,J)│"" : Л J : Л I)╝xDS│0 : YN$│"" : NC│15 : T$│"" : OW│0 : RO│0 : ZH│0 : ST│0 : SL│0)ё▄R11│0 : R│0 : D│0 : Q│0 : T1$│"" : T2$│"" : Z│0 *#RR│0 : R22│0 : I│0 : X│0 : Y│0 : A$│"" : PR│0*Y@VL│0 : NS│0 : S9│0 : H$│"" : SW│0 : KP│0 : D$│"" *КrP│0 : C│0 : PO│0 : WN│0 : HZ│0 : SP│0 : SL│0*ШдHI│0 :I│0*┴ЮЗ"READING AND SHUFFLING CARDS" : I│0*╟иП+╨Н D$ : Е D$│"END-DATA" з 2200 :Д I│Iл1 : CR$(I)│D$ : Бе 2000+ШQ│0 : P│0 : TD│I+F	jА Z│1 е 200 : A│ Д(100) : B│ Д(100) +Н	─T1$│CR$(A): CR$(A)│CR$(B):CR$(B)│T1$ : Л Z  :Г ' '@@@ 5 CARDS EACH+и
(Т 65494,0: :Г SLOWPOKE+░╕C│1+├А I│1 е 14 й 2+ыАYR$(1,C)│CR$(I) : YR$(2,C)│CR$(Iл1)+їфC│Cл1+¤
HЛ I,Ю,"V:Г ' '@@ DISPLAY INTERFACE,TtY│1 :X│6 :A$│"COCO MILLE BORNES V2": Бж 32000,К╪Y│2 :X│1 :A$│"YOUR CARDS   CARDS LEFT=": Бж 32000,╦<Y│3 :X│1 :A$│"(1)": Бж 32000 : Y│4 :X│1 :A$│"(2)": Бж 32000 -PY│5 :X│1 :A$│"(3)": Бж 32000 : Y│6 :X│1 :A$│"(4)": Бж 32000-,аY│7 :X│1 :A$│"(5)": Бж 32000-l╥Y│8 :X│1 :A$│"(6)": Бж 32000 : Y│9 :X│1 :A$│"(7)": Бж 32000-ХY│10 :X│1 :A$│"LAST CARD:": Бж 32000-╗hY│12 :X│2 :A$│"PLAYER:": Бж 32000-█rY│13 :X│8 :A$│":": Бж 32000.
╠Y│14 :X│2 :A$│"STATUS:": Бж 32000.!╓Y│15 :X│8 :A$│":": Бж 32000.H0Y│16 :X│1 :A$│"HAZARDS:": Бж 32000.h:Y│17 :X│8 :A$│":": Бж 32000.ПФY│18 :X│1 :A$│"SAFETYS:": Бж 32000.пЮY│19 :X│8 :A$│":": Бж 32000.╧иY│20 :X│8 :A$│":": Бж 32000.я▓Y│21 :X│8 :A$│":": Бж 32000/╝Y│22 :X│8 :A$│":": Бж 32000/4°Y│23 :X│3 :A$│"MILES:": Бж 32000/T\PR│1 : PO│2 : :ГGOSUB 18200/ЭОА I│1 е 7 : :Г Y=I+2:X=5:A$="                        " : GOSUB 32000/╟вY│Iл2:X│5:A$│YR$(PR,I) :Бж 32000: Л I/№мX│9 : A$│"STOPPED     STOPPED" : Y│14 : Бж 320000└:Г ' ' ***MAIN LOOP***0,$:Г ' ' LOOP BACK0fИX│9 : A$│"YOU     " : Z│20 : PR│1 : PO│2 : DS│0 : C│00ЮьY│12: Бж 32000 : Y│12 :X│Z :A$│"        ": Бж 320000├PA$│ Т:Е A$│"" з 5200 :Д K│ К(A$)0ф┤Е(K▓48 ░ K┤56)з 5500 :Д 52001|KP│(5м(53мK)) : T$│YR$(PR,KP) : Е T$│"" з 520012р:Г ' '@@ CHK KEY PRESS1uDЕ T$│"25" ▒ T$│"50" ▒ T$│"75" ▒ T$│"100" ▒ T$│"200" з Бж 196001┌иЕ T$│"REPAIRS   " ▒ T$│"GASOLINE  " ▒ T$│"SPARE TIRE" ▒ T$│"END LIMIT " ▒ T$│"ROLL !" з Бж 207002CЕ T$│"FLAT TIRE " ▒ T$│"OUT OF GAS" ▒ T$│"ACCIDENT  " ▒ T$│"SPEED LIM " ▒ T$│"STOP      " з Бж 222002ЪpЕ T$│"PUN PROOF " ▒ T$│"EXTRA TANK" ▒ T$│"DRIV ACE  " ▒ T$│"RITE O WAY" з Бж 238002м╘Е DS│1 з 50002╥8Бж 26300 :  :Г ' '@@ GET NEW CARD2■ЬЕ SC(PR)▓│ MS з OW│1 : WN│PR : Бе 267003$Бж 18200 :  :Г ' '**REDRAW SCREEN3Ad:Г ' ' *** COMPUTER PLAY3`╚X│20 : A$│"COMPUTER" : Z│93Ч,Y│12 : Бж 32000: Y│12 :X│Z :A$│"        ":Бж 320003├РZH│0 : ST│0 : SL│0 : HZ│0 : SP│0 : SJ│03▌ЇЕ  З(ST$(1))▓1 з SP│13ўXЕ  З(HZ$(1))▓1 з HZ│14╝Е  З(HZ$(2))▓1 з ZH│14+ Е  З(ST$(2))▓1 з ST│14EДЕ  З(SL$(1))▓1 з SL│14_шЕ  З(SL$(2))▓1 з SJ│14ЪLS9│0 : H$│"" : NS│0 : VL│0 : T$│"" : PR│2 : PO│1 : C│04╗░:Г ' ' C PLAY ROLL&CHK SAFES4ёDS│0 : Е(SC(1)▓( MSм200))▒(SC(2)▓( MSм200))з DS│15xА I│1 е 7 : Е S9│1 з 830054▄T$│YR$(PR,I) : H$│ Р(HZ$(2),1,3)5Щ@T2$│ Р(T$,1,3) : Е(T2$│"PUN" ▒ T2$│"EXT" ▒ T2$│"DRI" ▒ T2$│"RIT")░ DS│1 з S9│1 : KP│I : Бж 238005╥дЕ T$│"ROLL !" ░ ST│0 ░ ZH│0 з S9│1 : KP│I : Бж 207006 Е T$│"ROLL !" ░ H$│"STO" з S9│1 : KP│I : Бж 207006 lЛ I6# ╨Е S9│1 з 176006G!4:Г ' ' C HAS HAZARD PLAY SAFETY6Z!ШЕ ZH│0 з 110006q!№H$│ Р(HZ$(PR),1,2)6П"`А I│1 е 7 : Е S9│1 з 96006▒"─T$│YR$(PR,I) : T2$│ Р(T$,1,3)6∙#(Е(T2$│"PUN" ░ H$│"FL")▒(T2$│"EXT" ░ H$│"OU")з S9│1 : KP│I : Бе 95007A#МЕ(T2$│"DRI" ░ H$│"AC")▒(T2$│"RIT" ░ H$│"ST")з S9│1 : KP│I : Бе 95007M$╕Бе 96007Z%Бж 238007b%АЛ I7u%фЕ S9│1 з 176007Щ&H:Г ' ' C PLAY REMEDYS ON HAZARD7╟&мА I│1 е 7 : T$│YR$(PR,I) : T2$│ Р(T$,1,3)7┌'Е S9│1 з 107008#'tЕ(T2$│"GAS" ░ H$│"OU")▒(T2$│"REP" ░ H$│"AC")з S9│1 : KP│I : Бе 106008l(<Е(T2$│"ROL" ░ H$│"ST")▒(T2$│"SPA" ░ H$│"FL")з S9│1 : KP│I : Бе 106008y)Бе 107008Ж)hБж 208008О)╠Л I8б*0Е S9│1 з 176008╗*Ф:Г ' ' C PLAY MILES '8╬*°Е ST│0 з 124008╫+\HI│08х+└А I│1 е 78Ў,$T$│YR$(PR,I)9B,ИЕ T$│"200" ▒ T$│"100" ▒ T$│"75" ▒ T$│"50" ▒ T$│"25" з VL│ Й(T$):Д 120009Б,ьЕ(SJ│1 ░ VL▓50)▒(CT(2)▓1 ░ VL│200)▒((SC(2)лVL)▓ MS)з 120009Ю.Е VL▓HI з HI│VL :Д 120009╢.|KP│I : S9│1 : H$│T$9╛.рЛ I9ф/DЕ S9│1 з VL│HI : T$│H$ : Бж 197009ў/иЕ S9│1 з 17600:0:Г ' ' **C REMEDY SPEED LIM:*0pЕ SJ│0 з 13100:I0╘А I│1 е 7 : Е S9│1 з 12800:k18T$│YR$(PR,I) : T2$│ Р(T$,1,3):Ф1ЬЕ T2$│"END" з S9│1 : KP│I : Бж 20700:Ь2Л I:п2dЕ S9│1 з 17600:╔2╚:Г ' ' C PLAYS HAZARD:▄3,Е HZ│1 з 14100:я3РЕ SP│0 з 14100;3ЇА I│1 е 7 : Е S9│1 з 13900;04XT$│YR$(PR,I) : T2$│ Р(T$,1,3);Й4╝Е(T2$│"FLA" ░  З(SF$(PO,1))┤2)▒(T2$│"ACC" ░  З(SF$(PO,4))┤2)з KP│I : S9│1 : Бж 22200;─5ДЕ T2$│"STO" ░  З(SF$(PO,3))┤2 з KP│I : S9│1 : Бж 22200<5╢Е(T2$│"SPE" ░  З(SF$(PO,3))┤2)▒(T2$│"OUT" ░  З(SF$(PO,2))┤2)з KP│I : S9│1 : Бж 22200<66LЛ I : Е S9│1 з 17600<Q6░:Г ' ' **USE SPEED LIM<^6╪Бе 14700<q7Е SL│1 з 14700<Р7xА I│1 е 7 : Е S9│1 з 14400<┘7▄T$│YR$(PR,I) : T2$│ Р(T$,1,3) : Е T2$│"SPE" з KP│I : S9│1 : Бж 22200<с8@Л I<Ї8дЕ S9│1 з 17600=9:Г ' ' **C PLAY SAFETY=.9lА I│1 е 7 : Е S9│1 з 15300=P9╨T$│YR$(PR,I) : T2$│ Р(T$,1,3)=Э:4Е T2$│"EXT" ▒ T2$│"DRI" ▒ T2$│"PUN" ▒ T2$│"RIT" з S9│1 : KP│I : Бж 23800=е;─Л I=╕<(Е S9│1 з 17600=╥<М:Г ' ' **C TO DISCARD=ё<ЁА I│1 е 7 : Е S9│1 з 16300>=TH$│ Р(T$,1,3) :  :Г ' ' T$=YR$(PR,I)>q=╕Е(H$│"FLA" ░  З(SF$(PO,1))┤2)▒(H$│"OUT" ░  З(SF$(PO,2))┤2)з KP│I : S9│1 : Бе 16300>╚>АЕ(H$│"ACC" ░  З(SF$(PO,4))┤2)▒(H$│"STO" ░  З(SF$(PO,3))┤2)з KP│I : S9│1 : Бе 16300??HЕ  Д(0)▓.5 ░(H$│"ACC" ▒ H$│"STO" ▒ H$│"SPE" ▒ H$│"OUT" ▒ H$│"FLA")з KP│I : S9│1?$?мЛ I?7@Е S9│1 з 17500??@tC│0?[@╪C│Cл1 : X│ Б( Д(0)н7л1)?lA<T$│YR$(PR,X)?~AаH$│ Р(T$,1,3)?РBЕ C▓5 з 17400?╚BhЕ H$│"RIT" ▒ H$│"DRI" ▒ H$│"EXT" ▒ H$│"PUN" з 16600?╓BЪJ│ Д(255)?№B╠Е J▓204 ░ H$│"ROL" ░ ST│1 з 16600@.C0Е(J▓126 ░ H$│"200")▒(J▓102 ░ H$│"100")з 16600@7C°KP│X@OD\C│7 : T$│YR$(PR,KP)@lDpЕ T$│"" з H$│"" :Д 17595@аDzА I│1 е 7 : Е YR$(2,I)┤▓"" з H$│YR$(2,I) : KP│I@╞DДЛ I : Е H$│"" з Бе 17900 :Д T$│H$@╙D╗Бж 25900@юD└Е C┤▓7 з T$│YR$(PR,KP)AE$Бж 18300: :Г ' ' REDRAW SCREENA7EИБж 26300 :  :Г ' ' GET A NEW CARDAcEьЕ SC(PR)▓│ MS з OW│1 : WN│PR : Бе 26700AПFC│0 : А I│1 е 7 : Е YR$(2,I)│"" з C│Cл1AЧFЛ IAйF(Е C│5 з 26700A╡FPБе 4900A╨F┤:Г ' '@@ DISPLAY CARDSBG:Г''FOR I=1 TO 7 : Y=I+2 :X=5 :A$="                        ": GOSUB 32000BzGJY│KPл2:X│5:A$│"                        ":Бж 32000 : Y│KPл2:X│5:A$│YR$(PR,KP): Бж 32000 B▒GO:Г''Y=I+2 :X=5 :A$=YR$(PR,I): GOSUB 32000 : NEXT IB▐G|Y│10 :X│11 :A$│T$л"          ": Бж 32000BЇGРЕ TDмNC┤0 з 18400CGоY│2 :X│25 :A$│ И(TDмNC): Бж 32000C>GрА I│1 е 2 : Е I│1 з X│9 :Д X│20CtHЕ ST$(I)│"" з SI$(I)│"STOPPED" :Д SI$(I)│"ROLL !"CТHDY│14 :A$│SI$(I): Бж 32000C┴HvЕ HZ$(I)│"" з A$│"          " :Д A$│HZ$(I)C╘HиY│16: Бж 32000CєIY│18:A$│SF$(I,1): Бж 32000DIpY│19 :A$│SF$(I,2): Бж 32000D3I╘Y│20 :A$│SF$(I,3): Бж 32000DSJ8Y│21 :A$│SF$(I,4): Бж 32000DВJjЕ SL$(I)│"" з A$│"          " :Д A$│SL$(I)DЦJЬY│15 : Бж 32000D╖KY│23 :A$│ И(SC(I)): Бж 32000D┐KdЛ ID┼K╚РD█L,:Г ' '@@@ SCORINGDЇLРЕ ST$(PR)│"" з 20500ELЇVL│ Й(T$)EMXЕ VLлSC(PR)▓ MS з 20500E4M╝Е VL┤▓200 з 20100E]N CT(PR)│1лCT(PR) : Е CT(PR)▓2 з 20500EИNДЕ SL$(PR)│"SPEED LIM " ░ VL▓50 з 20500EЭNшSC(PR)│SC(PR)лVLEгO░РE░PБж 25700E╢PxРE╚P▄:Г ' 'REMEDYSE¤Q@Е HZ$(PR)│"ACCIDENT  " ░ T$│"REPAIRS   " з 21700F2QдЕ HZ$(PR)│"OUT OF GAS" ░ T$│"GASOLINE  " з 21700FgRЕ HZ$(PR)│"FLAT TIRE " ░ T$│"SPARE TIRE" з 21700FнRlЕ SL$(PR)│"SPEED LIM "  ░ T$│"END LIMIT " з SL$(PR)│"" : Бе 22100F╚R╨Е T$┤▓"ROLL !" з 22000FчS4Е ST$(PR)│"ROLL !" з 22000G SШЕ HZ$(PR)│"STOP      " з ST$(PR)│"ROLL !" : Бе 21700G:S№Е HZ$(PR)┤▓"" з 22000GZT`ST$(PR)│"ROLL !" : Бе 22100GiT─HZ$(PR)│""GРU(Е SF$(PR,3)┤▓"" з ST$(PR)│"ROLL !"GЦUМРGгUЁБж 25700GйVTРG┐V╕:Г ' ' @@@HAZARDSG▌WЕ T$│"SPEED LIM " з 22800GЎWАЕ ST$(PO)│"" з 23500H$WфЕ SF$(PO,1)┤▓"" ░ T$│"FLAT TIRE " з 23500HRXHЕ SF$(PO,2)┤▓"" ░ T$│"OUT OF GAS" з 23500HАXмЕ SF$(PO,3)┤▓"" ░ T$│"STOP      " з 23500HоYЕ SF$(PO,3)┤▓"" ░ T$│"SPEED LIM " з 23500H▄YtЕ SF$(PO,4)┤▓"" ░ T$│"ACCIDENT  " з 23500I!Y╪Е SL$(PO)│"" ░ T$│"SPEED LIM " з SL$(PO)│"SPEED LIM " : Бе 23400IMZ<Е SL$(PO)┤▓"" ░ T$│"SPEED LIM " з 23500I\ZаHZ$(PO)│T$Ik[ST$(PO)│""Iq[hРI~[╠Бж 25700IД\0РIЫ\Ф:Г ' ' @@@ SAFETYSI║\°Е T$┤▓"PUN PROOF " з 24200Iэ]\SF$(PR,1)│T$ : Е HZ$(PR)┤▓"FLAT TIRE " з 25500J]└CF(PR)│CF(PR)л200 : HZ$(PR)│""J(^$Бж 25555 : Бе 25500JG^ИЕ T$┤▓"EXTRA TANK" з 24600Jz^ьSF$(PR,2)│T$ : Е HZ$(PR)┤▓"OUT OF GAS" з 25500JЭ_PCF(PR)│CF(PR)л200 : HZ$(PR)│""J╡_┤Бж 25555 : Бе 25500J╘`Е T$┤▓"RITE O WAY" з 25200K`ъSF$(PR,3)│T$ : Е HZ$(PR)┤▓"STOP      " з 24900K*`ЇHZ$(PR)│"" : CF(PR)│CF(PR)л200K7`■Бж 25555K[aDЕ SL$(PR)┤▓"SPEED LIM " з 25500KjaXSL$(PR)│""KКbST$(PR)│"ROLL !" : Бе 25500KЫbpSF$(PR,4)│T$K┐b╘Е HZ$(PR)┤▓"ACCIDENT  " з 25500Kтc8CF(PR)│CF(PR)л200 : HZ$(PR)│""KяcBБж 25555L#cЬЕ SF$(PR,3)┤▓"" ░ HZ$(PR)│"" з ST$(PR)│"ROLL !"L)c╬РLZc╙Y│1 :X│6 :A$│"COUP FOURRE !!!   " : Бж 32000Lkc╘а 89,5:а 5,5LЯc╓Y│1 :X│6 :A$│"COLOR MILLE BORNES" : Бж 32000: РL╢d:Г ' ' @@@ DISCARDL╩ddЕ PR┤▓1 з 26100MdxY│10 :X│1 :A$│"DISCARD? (Y/N)             ": Бж 32000 : Й YN$M.dЦY│11:X│1:A$│"      ":Бж 32000Mwd╚Е YN$│"N" з DS│1 :: Y│10:X│1:A$│"LAST CARD: "лT$:Бж 32000 : Бе 26100MФe,T$│T$л" D"л"          " M╩eРY│10 :X│1 :A$│"LAST CARD:             ": Бж 32000Mьe┬Y│11:X│1:A$│"      ":Бж 32000MЄeЇРN
fX:Г ' ' @@@ NEW CARDN:f╝NC│NCл1 : Е NC│TD з YR$(PR,KP)│"" : Бе 2650NQg YR$(PR,KP)│CR$(NC)NWgДРNogш:Г ' ' @@@ END GAMENzhL:Г ' 'NИh░А I│1 е 2NнiЕ SF$(I,1)┤▓"" з SB(I)│SB(I)л100N╥ixЕ SF$(I,2)┤▓"" з SB(I)│SB(I)л100Nўi▄Е SF$(I,3)┤▓"" з SB(I)│SB(I)л100Oj@Е SF$(I,4)┤▓"" з SB(I)│SB(I)л100O8jдЕ SB(I)│400 з SF(I)│300OOkЕ I│WN з WR(I)│400OpklЕ TDмNC┤1 ░ I│WN з MX(I)│400OСk╨Е CT(I)│0 ░ I│WN з CC(I)│300Oкl4Е I│1 з PO│2 :Д PO│1O┼lШЕ SC(PO)│0 з SU(I)│500O╠lм:ГO°l╩:Г CF(COUFRE),CC(NOUSE200),SF(NOSAFET),Pl╘:Г SC(MILES),SU(SUOUT),SB(SAFETS),P-l▐:Г WR(WN)P4lш:ГPhl№SC(I)│SC(I)лSB(I)лSF(I)лWR(I)лCC(I)лSU(I)лCF(I)P~m`TL(I)│TL(I)лSC(I)PЖm─Л IP└n(Ю : Y│1 :X│1 :A$│"BONUS POINTS AND SCORING": Бж 32000PчnМY│4 :X│10 :A$│"SAFETYS": Бж 32000 Qn┤Y│7 :X│9 :A$│"ALL SAFETYS": Бж 32000Q=n╚Y│10 :X│9 :A$│  И(MS)л" MILES": Бж 32000QfnЁY│13 :X│10 :A$│"SAFE TRIP": Бж 32000QОo"Y│17 :X│10 :A$│"SHUT OUT": Бж 32000Q├oTY│21 :X│2 :A$│"TOTAL SCORE THIS ROUND": Бж 32000Q¤o╕Y│3 :X│1 :A$│"YOU                 COMPUTER": Бж 32000R!pА I│1 е 2 : Е I│1 з X│1 :Д X│21R_pАY│5 :A$│ И(SB(I)): Бж 32000 : Y│8 :A$│ И(SF(I)): Бж 32000RЯpФY│11 :A$│ И(WR(I)): Бж 32000 : Y│15 :A$│ И(CC(I)): Бж 32000R└pфY│18 :A$│ И(SU(I)): Бж 32000SqHY│22: A$│ И(SC(I)): Бж 32000 : Y│22 :A$│ И(SC(I)): Бж 32000SqмЛ ISHrY│24 :X│1 :A$│"PRESS ANY KEY TO CONTINUE" : Бж 32000: Й YN$SxrtЮ : Y│1 :X│1 :A$│"ENDING SCORE:" : Бж 32000SвrИY│3 :X│1 :A$│"    YOUR SC:": Бж 32000S╠rЬY│5 :X│1 :A$│"COMPUTER SC:": Бж 32000Tr╪Y│3 :X│16 :A$│ И(TL(1)): Бж 32000 : Y│5 :X│16 :A$│ И(TL(2)): Бж 32000Tes<Е TL(1)┤WS ░ TL(2)┤WS з 29700 :Д Y│10:X│1:A$│"GAME OVER":Бж 32000:Бе 29900TПtY│10 :X│1 :A$│"NEXT ROUND" : Бж 32000T┌tЙ YN$ : Ю : Y│2 :X│8 :G8│1:A$│"COLOR MILLE BORNES" : Бж 32000: Бе 1100Tсth:ГTчt╠КTЄu0:Г ' 'Uu°:Г ' ' @@@ CARD DATAURv\Ж "OUT OF GAS","FLAT TIRE ","ACCIDENT  ","SPEED LIM ","STOP      "UЩv└Ж "OUT OF GAS","FLAT TIRE ","ACCIDENT  ","SPEED LIM ","STOP      "Vw$Ж "GASOLINE  ","SPARE TIRE","END LIMIT ","ROLL !","EXTRA TANK","PUN PROOF ","DRIV ACE  ","RITE O WAY","200","100","75","50","25"VTwИЖ "GASOLINE  ","SPARE TIRE","END LIMIT ","ROLL !"VКwьЖ "GASOLINE  ","SPARE TIRE","END LIMIT ","ROLL !"V▐xPЖ "REPAIRS   ","REPAIRS   ","REPAIRS   ","REPAIRS   ","REPAIRS   ","REPAIRS   "Wax┤Ж "STOP      ","STOP      ","ROLL !","ROLL !","ROLL !","ROLL !","ROLL !","ROLL !","ROLL !","ROLL !","ROLL !","ROLL !","ROLL !"WОyЖ "GASOLINE  ","SPARE TIRE","END LIMIT "W╗y|Ж "GASOLINE  ","SPARE TIRE","END LIMIT "WшyрЖ "GASOLINE  ","SPARE TIRE","END LIMIT "XzDЖ "200","200","200"XHzиЖ "100","100","100","100","100","100","100","100","100","100","100"X{{Ж "75","75","75","75","75","75","75","75","75"Xо{pЖ "50","50","50","50","50","50","50","50","50"Xс{╘Ж "25","25","25","25","25","25","25","25","25"XЄ|8Ж "END-DATA"Y}Y│Yм1:ZZ│(51нY)лX:З @ ZZ,A$:Р","100","100","100","100","100","100","100","100"X{{Ж "75","75","75","75","75","75","75","75","75"Xо{pЖ "50","50","50","50","50","50","50","50","50"Xс{╘Ж "25","25","25","25","25","25","25","25","25"XЄ|8Ж "END-DATA"Y}Y│Yм1:ZZ