"Comm and o " " " "presente par " " Cyril SMITH" "E - mail:" "CSMITH@Wanadoo.fr"_ "RECUPEREZ LE PARACHUTDEPLACEMENT:" "( < < - < - 0 - > - > > )" "( 4(-)5(-)6(-) * (-) / )"_ CoordOff 0->A~Z 8.5->F ViewWindow 1, 127, 0, 0, 62, 0 Text 1, 1, "VENT" Text 7, 1, " + " Text 7, 14, 0 Text 7, 27, " + " Green Graph Y=2Ran# StoPict 6 Lbl 9 64->A 45->B 20 + Int 81Ran#->C Lbl 7 Cls RclPict 6 Int 14Ran#->V Ran# < .5 => (-)V->V Text 13, 14 + V, "." F-Line A - 3, B - 2, A + 6, B + 11 F-Line A + 3, B - 2, A - 6, B + 11 F-Line A, B + 2, A, B + 8 Plot A - 1, B + 7 Plot X, B + 6 Plot A + 1, B + 7 Plot X, B + 6 Plot A + 4, B + 4 F-Line A - 7, B + 12, A + 7, B + 12 F-Line A - 7, B + 13, A + 7, B + 13 F-Line A - 6, B + 14, A + 6, B + 14 F-Line A - 5, B + 15, A + 5, B + 15 F-Line A - 3, B + 16, A + 3, B + 16 F-Line A - 1, B + 17, A + 1, B + 17 F-Line C - 4, 1, C + 4, 1 F-Line C + 4, 1, C + 4, 4 F-Line C + 4, 4, C - 9, 5 F-Line C - 9, 5, C - 4, 1 F-Line C - 4, 1, C - 3, 5 F-Line C - 3, 5, C, 6 F-Line C, 7, C, 5 PlotOn C - 1, 7 B <= 6 => Goto 3 Plot 1, 0 A + V->A B - F->B 'Lbl 1 'B <= 1 => Goto 3 (-)1->D Do GetKey = 73 => 1->D GetKey = 63 => 2->D GetKey = 43 => 3->D GetKey = 33 => 4->D GetKey = 53 => 0->D LpWhile D = (-)1 D = 1 => C - 11->C D = 2 => C - 5->C D = 3 => C + 5->C D = 4 => C + 11->C C <= 6 => 10->C C >= 121 => 115->C B > 1 => Goto 7 Lbl 3 If A < C - 8 Or A > C + 6 Then "C'EST PA GRAVE IL EST MORT"_ IfEnd A < C - 8 => "PERDU"_ A < C - 8 => Goto 8 A > C + 6 => "PERDU"_ A > C + 6 => Goto 8 ClrText "PARACHUTISTE SAUF"_ Isz I Isz F Lbl 8 ClrText Isz J "SCORE" Locate 7, 1, I Locate 9, 1, "\/" Locate 10, 1, J "0 = NON" "CONTINUER"?->D D = 0 => Stop Goto 9 < = inférieur => = Double fleche du repertoire JUMP :-( = c'est pas un smile !! c'est juste : - ( sans espace / = signe diviser -> = simple fleche * = signe multiplier