Race

Line 1000-1010 Pokes the first car new position
Line 1100-1440 Same as above
130 Pokeq,14-r"r+rPrint"l«i QRBND PPIX RHCE"r"ll " ,for-t-770eto770rPoket, 160
140 Poket+h,3:nextPrlntUb(5)"BttBET ON fl CAR"' lf*h-lthen2ee
15S PrintCtb<4nilK»il^e car Vao'll: r<:prlntt>bC4)''iniehd car Tbo'lIU
170 Prln««b(4>"BIl'«jr-PIe carS"co"ir: l"Prlnttabt4VIlil3»-eeT, car a"do"n-
190 Printtab<4V'nncafa'n car >"to"ll-l
200 PrinfimVour crfdit Unit is
211 9etc<ifc»«"u"thncb-l:u»-"»4HITE
213 tfc*-V-thencb"2:««-"!KED
214 ifc«-"P"thencb-4:uf="»URPl.E
213 lfc*-"9"thtncb-S ui»-"»reEN
216 ifc»-"c"thenc&=3-wt-"«>'HN
217 lfcb<-0then2U
2Z3 prlnf'mWhat's Kour bet £ IHinB"
230 ifu>lthenPrjTif'M 1 BET OUTSIUE CPEDIT "gosubSM 9010225
245 l=I-uPrinfll":PokB'?,eforf-S165to8134:| tefln Pokef+h,cbnert
247 forf-7680to8!S4steP22:Potief.l27 Pokef+h. 3 next f orf =7780to8ie4steP22 :?okef
250 Fok«f4'h,cb'n«xt:9asubie20'3o»ubll20:9oSMbl220:9Dsubl320-9osubl420'9osub300
2S0 x-r-nda):ifx>ithen9osiibl200-ifPeek(81?4)=fnth»n4e00
280 ifx>stheTi9o*ubl40e-ifPeek(8182)"=nthen6000
290 if>!>9th*n9osybl000-ifPee)<<8166)»nth*n2e00
300 lfy>uthen9oiijbl3a0:ifPeel(<917e)=mthen3B03
310 ifx>ithen9osubllB0 lfPeek(8170)™th«n3000
320 9oto26e
500 forfltokfu next-return
600 9osub5a0-Prlrrt"»»"-return
700 lfKlthefiPrir.t")noii«li'OU RRE BflNKPUPT" fort-ltosSonext^ruri
750 Prl-nfMCTI vour ri,(l"m car lost"-9oto9B0S
1030 Poke76Sl*a.s:poVe7682+».»:poke7653*a..£-Poke7704*a.s Poke7735*i,E
1010 Poker726*a,s:poke7727*«,ij-j+P
1020 Poke7681*».k-Poke7682*«.ni;poke7Ee3*a, I-Poke77e4*a,mPol'e7725*a,n