; (c) 2000 Bengt Werstén and Jefa from Transmission Productions ; ;"->" is the STO>-button ; Prgm9:GHRACE :ClrHome :Disp "GREYHOUND RACING" :Disp "" :Disp " BY" :Disp "" :Disp " BENGT AND JEFA" :Pause :Lbl O :ClrHome :Disp "1 COUNTINUE" :Disp "2 LOAD" :Disp "3 NEW GAME" :Disp "4 EXIT AND SAVE" :INPUT Z :If Z=3 :100->M :If Z=2 :[A](1,1)->M :If Z=4 :M->[A](1,1) :If Z=4 :Stop :If Z>4 :Goto O :If Z<1 :Goto O :Lbl U :ClrHome :Disp "YOUR MONEY" :Disp M :Disp "BET ON A DOG," :Disp "1 OR 2" :Input R :If R /=1 ; /= means TEST-2 :Goto V :Goto W :Lbl V :If R /=2 :Goto U :Lbl W :Disp "HOW MUCH" :Input H :If H>M :Goto W :M-H->M :All-Off :ClrDraw :2->Xmin :2->Ymin :65->Ymax :97->Xmax :Lbl S :Line(10,50,10,20 :Line(80,50,80,20 :Line(10,35,80,35 :10->D :10->E :Lbl A :PT-On(D,47 :PT-On(E,27 :If D_>80 ;_> means bigger or same (TEST-4) :Goto R :If E_>80 :Goto R :Int Rand3->A :Int Rand3->B :D+A->D :E+B->E :Goto A :Lbl R :((Int Rand3)+2)->O :ClrDraw :ClrHome :If D_>E :Goto Y :If E>D :Goto Z :Lbl Y :ClrHome :O*H->I :Disp "1 IS THE WINNER" :If R=1 :Disp "YOU WON" :If R=1 :Disp I :If R=1 :M+I->M :If R=2 :Disp "YOU LOSE" :Pause :Goto O :Lbl Z :O*H->I :ClrHome :Disp "2 IS THE WINNER" :If R=1 :Disp "YOU LOSE" :If R=2 :Disp "YOU WON" :If R=2 :Disp I :If R=2 :M+I->M :Pause :Goto O