; (c) 2000 Bengt Werstén and Jefa from Transmission Productions ; ;"->" is the STO>-button ; Prgm9:FORMEL1 :1->M :ClrHome :Disp ">->->->->->->->" :Disp " FORMEL1 RACING" :Disp " BY" :Disp "" :Disp " JEFA AND BENGT" :Disp ">->->->->->->->" :Pause :Lbl O :If M=<0 :-4->[C](1,1) :If M=<0 :ClrHome :If M=<0 :Goto H :ClrHome :Disp "1 COUNTINUE" :Disp "2 LOAD" :Disp "3 NEW GAME" :Disp "4 EXIT AND SAVE" :Disp "5 EXIT - NO SAVE" :INPUT Z :If Z=5 :Goto K :If Z=3 :1000->M :If Z=3 :0->[C](1,1) :If Z=2 :[A](1,1)->M :If Z=4 :M->[A](1,1) :If Z=4 :-4->[C](1,1) :If Z=4 :Stop :If Z>4 :Goto O :If Z<1 :Goto O :If [C](1,1)=-4 :Goto O :Lbl U :ClrHome :Disp "BET ON A DRIVER" :Disp "" :Disp "1 SCHUMACHER" :Disp "2 HILL" :Input R :If R /=1 ; /= means TEST-2 :Goto V :Goto W :Lbl V :If R /=2 :Goto U :Lbl W :Disp "YOUR MONEY" :Disp M :Disp "YOUR BET?" :Input H :If H>M :Goto W :If H=<0 :Goto W :M-H->M :All-Off :ClrDraw :2->Xmin :2->Ymin :65->Ymax :97->Xmax :(Int Rand30)+60->L :Lbl S :Line(10,50,10,20 :Line(L,50,L,20 :10->D :10->E :Lbl A :PT-Off(D-3,47 :PT-Off(E-3,27 :PT-Off(D-2,47 :PT-Off(D-1,47 :PT-Off(E-1,27 :PT-Off(e-2,27 :PT-On(D,47 :PT-On(E,27 :If D>=L :Goto R :If E>=L :Goto R :Int Rand3+1->A :Int Rand3+1->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 "SCHUMACHER" :Disp "IS THE WINNER" :If R=1 :Disp "YOUR BET IS" :If R=1 :Disp "CORRECT" :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 "HILL" :Disp "IS THE WINNER" :If R=1 :Disp "YOU LOSE" :If R=2 :Disp "YOUR BET IS" :If R=2 :Disp "CORRECT" :If R=2 :Disp I :If R=2 :M+I->M :Pause :Goto O :Lbl H :ClrHome :Disp "YOU ARE" :Disp "OUT OF MONEY" :Disp "" :Disp "GAME OVER" :Pause :Lbl K :ClrHome :-4->[C](1,1) :End