ClrText
GridOff
AxesOff
LabelOff
ClrGraph
Text 1,38,"# LAB CDP #"
Text 10,3,"LABEL CARLIER DENIS PRODUCTION"
Text 21,15,"========================="
Text 29,20,"CREATION DE PROGRAMMES"
Text 35,17,"GRAPH 35‰ OU SUPERIEURES"
Text 44,1,"™™™™™™™™™™™™™™™™™™™™™™™™™"
Text 50,45,"PRESENTE :"Ý
ClrText
Locate 4,2,"$$$$$$$$$$$$$$$"
Locate 4,3,"#             #"
Locate 4,4,"#  #DRUGWAR#  #"
Locate 4,5,"#  ‡™™™¨™™™‡  #"
Locate 4,6,"#             #"
Locate 4,7,"$ááááááááááááá$"
Do:LpWhile Getkeyá31
Lbl T
ClrText
"PASSER L'INTRO :"
" "
"1]OUI"
"2]NON "?ŢA
A<1 Or A>2ăGoto T
A=1ăGoto U
ClrText
"DANS UN NEW™YORK     TOTALEMENT CORROMPU, LES DEALEURS SE      LIVRENT UNE GUERRE   SANS MERCI... LA     BRONX DEAL™MAFIA T'ASDONNEE 4 MOIS POUR   FAIRE TES PREUVES    AUPRES DU BOSS, DANS L'UNIVERS IMPITOYABLEDE LA DROGUE..."
Do:LpWhile Getkeyá31
Lbl U
ClrText
"1]COMMENCER PARTIE"
"2]AVERTISSEMENT"
"3]QUITTER "?ŢA
A<1 Or A>3ăGoto U
A=2ăGoto Z
A=3ăClrText
A=3ăStop
Lbl 8
{0,0,0}ŢList 1
0ŢA~Z
2000ŢZ
5000ŢU
100ŢK
1ŢB
2ŢÍ
100ŢT
ClrText
Lbl 9
Int 12000Ran#‰16000ŢC
Int 7000Ran#‰5000ŢH
100(Int 34Ran#‰10)ŢA
10(Int 42Ran#‰33)ŢW
10(Int 15Ran#‰7)ŢS
10(Int 4Ran#‰1)ŢL
Int 20Ran#‰1ŢD
ClrText
Int 9Ran#ŢList 1[2]
List 1[2]=1 And List 1[1]=8ă"Des cocktails ? T'en as trop, utilise™en «A plus... MERDE, on  est repere par une   armee de flics «««"Ý
List 1[2]=1 And List 1[1]=8ăGoto A
List 1[2]=1ă"Un Cocktail molotov, ca peut servir en casde baston... PREND «"Ý
List 1[2]=1ăList 1[1]‰1ŢList 1[1]
List 1[2]=1ăClrText
D=1ă"Des stups'vendent desLSD pas cher ««"Ý
D=1ă2ŢL
D=2ă"Le prix du CANNABIS achute «««"Ý
D=2ă117ŢW
D=3ă"Les stups'vendent    l'HEROINE de leur    derniere saisie pas  cher ««"Ý
D=3ăInt 1150Ran#‰850ŢH
D>3 And D<6ă"Les Junky achetent   de l'HEROINE hors de prix ««"Ý
D>3 And D<6ăInt 25000Ran#‰18000ŢH
D>5 And D<8ă"Les stups'ont demonteun reseau de coke «"
D>5 And D<8ă"Les prix sont fous «"Ý
D>5 And D<8ăInt 60000Ran#‰80000ŢC
D=8ă"Tu t'es fait racketerdans le Metro «"Ý
D=8ăInt (Zą3)ŢZ
Dá15 Or Zŕ299ăGoto P
"Veux™tu acheter un   nouveau blouson avec plus de poches a 200 dollars (1=OUI) "?ŢX
Xá1ăGoto P
100‰TŢT
T™M™N™O™P™Q™RŢK
Z™200ŢZ
Lbl P
If D=14:Then "Eh Superman,"
"Goutte™voir,"
"C cool..."
" "
"Fumer (1=OUI) "?ŢX:Int 3Ran#ŢF
ClrText
If X=1:Then F=1ă"T'as hallucine sur lepire trip de ta vie."
F=1ă"Tu es tombe sur les  rails et le train t'abroye ««"Ý
F=1ăGoto 0
"C'EST DE LA BONNE «"
"Pour lui avoir fait"
"confiance, le Junky  te file 25 sacs de   coke «"Ý
M‰25ŢM
K™25ŢK
T‰0ŢT:IfEnd
IfEnd
(Dá12 And Dá13) Or Kŕ4 Or Zŕ499ăGoto Q
"Veux™tu acheter"
Int 3Ran#ŢX
X=0ă"une Berreta"
X=1ă"un 38 S&W"
X=2ă"un 44 Magnum"
"a 400 $ (1=OUI) "?ŢX
Xá1ăGoto Q
I=4ă"Tu as deja 4 flingueset c'est le maximum  que tu peux avoir."Ý
I=4ăGoto Q
Isz I
Z™400ŢZ
T™5ŢT
T™M™N™O™P™Q™RŢK
Lbl Q
Dá16 Or Kŕ7ăGoto R
Int 7Ran#‰1ŢF
"Tu as trouve"
F=1ă"1 dose"
F=2ă"2 doses"
F=3ă"3 doses"
F=4ă"4 doses"
F=5ă"5 doses"
F=6ă"6 doses"
F=7ă"7 doses"
Int 5Ran#ŢX
X=0ă"de LSD"
X=0ăR‰FŢR
X=1ă"de SPEED"
X=1ăQ‰FŢQ
X=2ă"de CANNABIS"
X=2ăP‰FŢP
X=3ă"d'ACID"
X=3ăO‰FŢO
X=4ă"d'HEROINE"
X=4ăN‰FŢN
X=5ă"de COCAINE"
X=5ăM‰FŢM
"sur un mort™shoote duMetro «"Ý
T™M™N™O™P™Q™RŢK
Goto H
Lbl R
D=17ă"Le marche est envahi par de l'ACID pas    cher fait™maison ««"Ý
D=17ăInt 550Ran#‰250ŢA
D=17ăGoto H
M‰N‰O‰P‰Q‰R<0ăGoto H
Int 12Ran#‰1ŢX
X>3ăGoto H
X=1ă1ŢD
X=2ă2ŢD
X=3ă3ŢD
ClrText
"Un mec des stups'"
D=1ă"avec 1 flic"
D=2ă"avec 2 flics"
D=3ă"avec 3 flics"
"sont a ton cul «"Ý
Lbl A
List 1[2]=1 And List 1[1]=8ă21ŢD
ClrText
Locate 1,1,"TU ES POURCHASSE «««"
Locate 3,3,"1]Les armes"
Locate 3,4,"2]Barre de vie"
Locate 3,5,"3]LĄs policiers"
Locate 3,6,"4]COURIR"
Locate 3,7,"5]ATTAQUER"
3ŢX
Do:Locate 2,X,"ă"
Do:GetkeyŢF
LpWhile F=0
Locate 2,X," "
F=28ăX™1ŢX
F=37ăX‰1ŢX
X=8ă3ŢX:X=2ă7ŢX
LpWhile Fá31
X™2ŢX
X<1 Or X>5ăGoto A
ClrText
If X=1:Then "Tu as"
I>0ăLocate 7,1,I
I=0ăLocate 7,1,"aucun flingue."Ý
Iá0ăLocate Int (log I)‰9,1,"flingue(s)."
" "
I=1ă"PRECISION : 25/100"Ý
I=2ă"PRECISION : 50/100"Ý
I=3ă"PRECISION : 75/100"Ý
I=4ă"PRECISION : 100/100"Ý
I>0ă" "
"Cocktails molotov :"
I=0ăLocate 21,3,List 1[1]Ý
Iá0ăLocate 21,5,List 1[1]Ý
IfEnd
X=2ă"Ta vie :"
X=2ăLocate 10,1,35™J
X=2 And 35™J<10ăLocate 10,1," "
X=2 And 35™J<10ăLocate 11,1,35™J
X=2ăLocate 12,1,"/35"Ý
X=3ă"T'as encore"
X=3ăLocate 13,1,D‰1
X=3ă"fuckin'cops au cul «"Ý
X<4ăGoto A
X=5ăGoto E
ClrText
Int 2Ran#ŢX
X=0ă"Tu lĄs as seme dans  une rue «"Ý
X=0 And J=0ăGoto H
X=0ăGoto Î
X=1ă"Tu ne peux pas les   semer «"Ý
X=1ăGoto F
Lbl E
List 1[1]>0ă"Utiliser un Cocktail molotov (1=OUI) "?ŢX
ClrText
X=1 And List 1[1]>0ă"COUCOU LE KEUF « Viseun peu ca ««... BAM «2 COPS EN MOINS «"Ý
X=1 And List 1[1]>0ăD™2ŢD
X=1 And List 1[1]>0ăList 1[1]™1ŢList 1[1]
X=1ăInt 4Ran#ŢList 1[3]
ClrText
X=1 And List 1[3]=2ă"Merde, T'as mal lanceet toi aussi tu en   profite en meme tempsque les flics « CA   FAIIIIT MAAAAL..."Ý
X=1 And List 1[3]=2ăJ‰8ŢJ
J>34ăGoto O
X=1 And Dâ0ăGoto F
X=1 And D<0ăGoto G
ClrText
I=0ă"PAS DE FLINGUE « Tu  dois courir «"Ý
I=0ăGoto A
I=1ăInt 4Ran#ŢX
I=2ăInt 3Ran#ŢX
I=3ăInt 2Ran#ŢX
I=4ă0ŢX
X>0ă"T'as loupe ««"Ý
X=0ă"T'en as eu un grace  au(x) flingue(s) «"Ý
X=0ăDsz D
X=0 And D<0ăGoto G
Lbl F
ClrText
Int 2Ran#ŢX
"ATTENTION, Ils te    tirent dessus «"Ý
Int 7Ran#ŢÎ
Î=0 And I>0ă"DANS LA PANIQUE, TU  PERDS UN FLINGUE «"Ý
Î=0 And I>0ăDsz I
ClrText
X=0ăClrText
X=0ă"Ils t'ont loupe «"Ý
X=0ăGoto A
ClrText
"T'as ete TOUCHE «"Ý
J‰3ŢJ
Int 3Ran#ŢX
D>0 And X=0ă"GRAVEMENT EN PLUS «"Ý
D>0 And X=0ăJ‰3ŢJ
Lbl O
ClrText
J>34ă"T'es mort «««"Ý
J>34ăGoto 0
Goto A
Lbl G
ClrText
"Tu les as tous eu «"Ý
Int 1250Ran#‰750ŢX
Z‰XŢZ
ClrText
"Tu as trouve "
Locate 14,1,X
"dollars sur le       cadavre d'un des     flics."Ý
J=0ăGoto H
Lbl Î
ClrText
"Tu es blesse «"
Z<1000ă"Mais tu peux obtenir une aide medicale quisera ajoutee a tes   dettes (1=OUI) "?ŢX
Z<1000 And X=1ăU‰1000ŢU
Z<1000 And X=1ă0ŢJ
Z<1000ăGoto H
"Veux™tu etre soigne":"pour 1000 dol. CASH  (1=OUI) "?ŢX
Xá1ăGoto H
Z™1000ŢZ
0ŢJ
Lbl H
8ŢÎ
ClrText
U>11900ă"Tu t'est trop endetteet le boss a envoye  Le chacal te tuer..."Ý
U>11900ăGoto 0
Locate 3,1,"1]Voir les prix"
Locate 3,2,"2]Blouson"
Locate 3,3,"3]Acheter"
Locate 3,4,"4]Vendre"
Locate 3,5,"5]BOUGER «"
Locate 3,6,"6]Voir le patron"
Locate 3,7,"7]Banque"
Locate 13,3,"#JOUR"
Locate 19,3,B
1ŢG
Do
Locate 2,G,"ă"
Do:GetkeyŢF
LpWhile F=0
Locate 2,G," "
F=28ăG™1ŢG
F=37ăG‰1ŢG
G=0ă7ŢG
G=8ă1ŢG
LpWhile Fá31
GŢX
ClrText
X=2ăGoto I
X=3ăGoto K
X=4ăGoto L
X=5ăGoto M
X=6ăGoto 6
X=7ăGoto 4
Locate 1,2,"      #DRUGWAR#      "
Locate 1,3,"      ‡™™™¨™™™‡      "
Locate 9,5,"....."
Locate 1,7," CHARGEMENT DES PRIX "
Lbl W
Isz Î
Locate Î,5,"/"
Î<13ăGoto W
ClrText
Locate 1,1,"COCAINE :":Locate 14,1,C
Locate 1,2,"HEROINE :":Locate 14,2,H
Locate 1,3,"ACID :"
Locate 14,3,A
Locate 1,4,"CANNABIS :":Locate 14,4,W
Locate 1,5,"SPEED :"
Locate 14,5,S
Locate 1,6,"LSD :"
Locate 14,6,L
Locate 1,7,"ARGENT ($) :"
Locate 14,7,Z
Do:GetkeyŢX
LpWhile X=0
Goto H
Lbl I
ClrText
Locate 1,1,"COCAINE :":Locate 17,1,M
Locate 1,2,"HEROINE :":Locate 17,2,N
Locate 1,3,"ACID :"
Locate 17,3,O
Locate 1,4,"CANNABIS :":Locate 17,4,P
Locate 1,5,"SPEED :"
Locate 17,5,Q
Locate 1,6,"LSD :"
Locate 17,6,R
Locate 1,7,"LIBRE :"
Locate 17,7,K
Do:GetkeyŢX
LpWhile X=0
Goto H
Lbl K
ClrText
"T'achetes quoi mec   (C=COKE, H=HEROINE,  A=ACID, W=CANNABIS,  S=SPEED, L=LSD,      0=RIEN) "?ŢF
F=0ăGoto H
FáC And FáH And FáA And FáW And FáS And FáLăGoto K
Int (ZąF)ŢE
"En rayon j'ai :"
"               "
" "
Locate 1,6,K
Locate 5,6,"doses."
"Combien "?ŢG
G>K Or G<0ă"TU M'PREND POUR UN   PEKNO ? CHT'AI DIT KEJ'EN AVAIS COMBIEN ?"Ý
GŕK And G>0 And G>Eă"TROP CHER POUR TOI,  CRETIN « TU PEUX EN  PRENDRE"
GŕK And G>0 And G>EăLocate 9,7,E
GŕK And G>0 And G>E And E<10ăLocate 10,7," "
GŕK And G>0 And G>E And E<100ăLocate 11,7," "
GŕK And G>0 And G>EăLocate 12,7," "
GŕK And G>0 And G>EăLocate 13,7,"MAXIMUM «"Ý
G>K Or G<0 Or G>EăGoto K
Z™FGŢZ
F=CăM‰GŢM
F=HăN‰GŢN
F=AăO‰GŢO
F=WăP‰GŢP
F=SăQ‰GŢQ
F=LăR‰GŢR
T™M™N™O™P™Q™RŢK
Goto H
Lbl L
ClrText
"Tu vends quoi mec    (C=COKE, H=HEROINE,  A=ACID, W=CANNABIS,  S=SPEED,L=LSD,       0=RIEN) "?ŢF
F=0ăGoto H
FáC And FáH And FáA And FáW And FáS And FáLăGoto L
F=CăMŢE
F=HăNŢE
F=AăOŢE
F=WăPŢE
F=SăQŢE
F=LăRŢE
"Tu en as :"
" "
Locate 12,6,E
"Combien t'en vends "?ŢG
G>E Or G<0ă"C'EST CA PREND™MOI   POUR UN CON «"Ý
G>E Or G<0ăGoto L
F=CăM™GŢM
F=HăN™GŢN
F=AăO™GŢO
F=WăP™GŢP
F=SăQ™GŢQ
F=LăR™GŢR
Z‰FGŢZ
T™M™N™O™P™Q™RŢK
Goto H
Lbl M
ClrGraph
Text 2,43,"[BRONX]"
Text 11,42,"[GHETTO]"
Text 20,32,"[CENTRAL PARK]"
Text 29,35,"[MANHATTAN]"
Text 38,38,"[BROOKLYN]"
Text 47,37,"« SUICIDE «"
Text 56,36,"<JE RESTE «>"
2ŢG
Do:Text G,10,"GO «Ţ"
Plot ‡7,‡4
Do:GetkeyŢF
LpWhile F=0
Text G,10,"     "
F=28ăG™9ŢG
F=37ăG‰9ŢG
G=65ă2ŢG
G=‡7ă56ŢG
LpWhile Fá31
(G™2)ą9‰1ŢX
X<1 Or X>7ăGoto M
X=1 And Í=2ăGoto M
X<7ă1ŢÍ
X=1ă2ŢÍ
X=6ăGoto 0
X=7ăGoto H
ClrText
">>>>>>>>METRO>>>>>>>>"
Isz B
Int (1.1U)ŢU
Int (1.06V)ŢV
U<790ă790ŢU
Bâ122ăGoto 0
Goto 9
Lbl 6
Í=1ă"The boss ne deal que dans le Bronx."Ý
Í=1ăGoto H
ClrText
Lbl 1
ClrText
Locate 1,1,"C'EST POUR QUOI ?"
Locate 4,3,"1]Remboursement"
Locate 4,4,"2]Emprunt"
Locate 4,5,"3]Retour"
3ŢX
Do:Locate 3,X,"ă"
Do:GetkeyŢF
LpWhile F=0
Locate 3,X," "
F=28ăX™1ŢX
F=37ăX‰1ŢX
X=2ă5ŢX
X=6ă3ŢX
LpWhile Fá31
X™2ŢX
X<1 Or X>3ăGoto 1
X=3ăGoto H
Lbl N
ClrText
"DETTES :"
Locate 12,1,U
"ARGENT :"
Locate 12,2,Z
X=2ăGoto 5
"Tu rends combien "?ŢF
F>Z Or F>U Or F<0ăGoto N
U™FŢU
Z™FŢZ
Goto 1
Lbl 5
"Combien t'emprunte "?ŢF
F>5000ă"Tu le prends pour un con, mec ?"Ý
F>5000ăClrText
F>5000ăGoto 5
F<0ăGoto 6
U‰FŢU
Z‰FŢZ
Goto 1
Lbl 4
Í=1ă"Ta banque est dans leBronx."Ý
Í=1ăGoto H
ClrText
Locate 4,2,"$$$BANQUE$$$"
Locate 3,4,"1]Ton compte"
Locate 3,5,"2]Depot"
Locate 3,6,"3]Retrait"
Locate 3,7,"4]Salut «"
4ŢX
Do:Locate 2,X,"ă"
Do:GetkeyŢF
LpWhile F=0
Locate 2,X," "
F=28ăX™1ŢX
F=37ăX‰1ŢX
X=8ă4ŢX
X=3ă7ŢX
LpWhile Fá31
X™3ŢX
X<1ăGoto 4
X>3ăGoto H
Lbl 2
ClrText
"ACCOMPTE :"
Locate 13,1,V
"ARGENT :"
Locate 13,2,ZÝ
X=1ăGoto 4
X=2ă"T'en deposes combien mec "?ŢG
X=2 And G>ZăGoto 2
X=2ăV‰GŢV
X=2ăZ™GŢZ
X=3ă"Tu retires combien "?ŢF
X=3 And F>V And Fá0ăGoto 2
X=3ăV™FŢV
X=3ăZ‰FŢZ
Goto 4
Lbl 0
ClrText
Bâ122ă"BIEN JOUE, T'AS TENU 4 MOIS «"Ý
ClrText
"   ©©©©©©©©©©©©©"
"   ©    FIN    ©"
"   ©©©©©©©©©©©©©"
V‰Z™UŢV
V<0ă0ŢV
Vâ0ăVą75000ŢV
" "
" "
Locate 2,6,"SCORE :"
Locate 10,6,V
Locate 14,6,"     "
V<10ăLocate 11,6,"  "
V<100ăLocate 12,6," "
V<1000ăLocate 13,6," "
Locate 15,6,"POINTS"
Do:LpWhile Getkeyá31
Goto U
Lbl Z
ClrText
"Le joueur doit avoir 18 ans et etre"
"responsable. CE JEU  NE DOIT PAS ETRE     CONSIDERE COMME UNE  INCITATION A L'ACTE."
Do:LpWhile Getkeyá31
Goto U