10 KEY OFF:CLS
20  DIM I2(14),I$(84)
30  REM  INITIALIZATION OF RANDOM FUNCTION
40  LOCATE 1,1 
50 I$ = "R.ARM L.ARM R.LEG L.LEG BACK  NECK  SKULL RIBS  KNEE  BUTT  FACE  PELVISPRIDE BIKE  "
60 T = .1
70  REM  T IS RATE OF JUMP CALCULATION
80 T2 = 0
90 T3 = 0
100  LOCATE 1,1 : PRINT 
110  PRINT "WE'RE AT THE SCENE OF THE BIG MOTORCYCLE JUMP!"
120  PRINT : PRINT "JUMP YOUR BIKE FROM ONE RAMP OVER": PRINT "ANY NUMBER OF BUSES AND LAND ON THE"
130  PRINT "OTHER RAMP, MISS AND BOTH BONES & BIKE WILL BREAK"
140  PRINT : INPUT "HOW MANY BUSSES WILL YOU TRY TO JUMP? ";N
150  IF N > 40 THEN 1140
160 J = N * 15
170  PRINT N;" BUSSES?  THAT'S ";J;" FEET!"
180  PRINT 
190  INPUT "WHAT RAMP ANGLE WILL YOU USE? ";A2
200  PRINT 
210  IF A2 < 89 AND A2 > 0 THEN 240
220  PRINT A2;" DEGREES?  THAT'S IMPOSSISBLE. COME ON NOW, "
230  GOTO 190
240 A = A2 * .01745
250  INPUT "HOW FAST WILL YOU LEAVE THE RAMP? ";S
260  PRINT "      GOOD LUCK!"
270  IF S > 0 THEN 310
280  PRINT "A PRACTICE JUMP!"
290  PRINT "OK,  THIS TIME."
300  GOTO 250
310 H = 6
320 D = 0
330 G = 6
340 R2 = 0
350 S2 = 0
360 S = S * 1.5
370  PRINT
380  PRINT "THERE HE GOES!!!!!!"
390  REM  JUMP CALCULATION LOOP
400 LOCATE 20,1:PRINT "/"+STRING$(N,254)+"\";
410 S = S - S2
420 F = S * T
430 D2 = F *  COS (A)
440 R = F *  SIN (A)
450 R2 = R2 + (32 * T)
460 R3 = R2 * T
470 H = H + R - R3
480 D = D + D2
490 LOCATE 19,1:PRINT SPACE$(79);
500 HZ=INT(D/15):IF HZ>78 THEN HZ=78 ELSE IF HZ<1 THEN HZ=1
510 LOCATE 19,HZ:PRINT "o+o";
520  REM  S2 IS DRAG FACTOR
530 S2 = (S / 120) * 32 * T
540  IF D >  = J THEN G = G - R
550  REM  CALCULATE HEIGHT ABOVE GROUND (ALLOW FOR OFFRAMP)
560  IF G <  = 0 THEN G = 0
570  IF H > G THEN 410
580  PRINT 
590  IF D < J THEN 680
600  PRINT:PRINT "HE JUMPED ";D;" FEET"
610  PRINT "THE DISTANCE WAS ";J;" FEET
620  IF D > J + 20 THEN 730
630 L = ((D - J) / 30) +  RND (1)
640  IF L > .8 THEN 740
650  PRINT:PRINT "HE MADE IT!!  GREAT JUMP, KILLER! "
660 T2 = T2 + 1
670  GOTO 1060
680  PRINT:PRINT "HE'S SHORT OF THE RAMP ......."
690  PRINT "HE ONLY JUMPED ";D;" FEET
700  REM  CALCULATION OF INJURIES
710 L2 =  INT ((((J - D) / 5) * 2) + ( RND (1) * 5) + .5)
720  GOTO 770
730  PRINT:PRINT "HE JUMPED TOO FAR!"
740  PRINT "HE MISSED THE RAMP."
750  IF D > J + 50 THEN 1170
760 L2 =  INT (((D + 20 - J) / 20) + ( RND (1) * 5))
770  PRINT "I THINK HE'S HURT ........."
780  FOR XX = 1 TO 2500: NEXT XX
790  FOR K = 1 TO 14
800 I2(K) = K
810  NEXT K
820 K2 = 14
830  IF L2 > 14 THEN L2 = 14
840  IF L2 <  = 0 THEN L2 = 1
850  REM  LISTING OF INJURIES
860  REM  RANDOM PERMUTATION OF LENGTH OF L2
870  FOR K = 1 TO L2
880 V =  INT ( RND (0) * 1000)
890 V = (V - ( INT (V / K2) * K2)) + 1
900 H2 = I2(V)
910 I2(V) = I2(K2)
920 I2(K2) = H2
930 K2 = K2 - 1
940  NEXT K
950  PRINT
960  PRINT "WELL ... KILLER, THE DOCTOR SAYS YOU BROKE YOUR ";
970  REM  GET SPECIFIC INJURIES LIST
980  FOR K = (15 - L2) TO 14
990 P = (6 * I2(K)) - 5
1000 A$ =  MID$ (I$,P,6)
1010  PRINT ", "+A$;
1020 CNT.INJ=CNT.INJ+1:IF CNT.INJ>3 THEN K=14
1030  NEXT K
1040 CNT.INJ=0
1050  PRINT : PRINT "HOPE YOU GET WELL SOON."
1060 T3 = T3 + 1
1070  PRINT 
1080  PRINT "WANT TO JUMP AGAIN(Y/N)? ": INPUT A$
1090  IF A$ = "Y" OR A$="y" THEN 1130
1100  PRINT "YOU MADE IT ";T2;" OUT OF ";T3;" TIMES."
1110  PRINT "BETTER LUCK NEXT TIME"
1120  END 
1130  LOCATE 1,1 :CLS: PRINT : GOTO 140
1140  PRINT 
1150  PRINT "THAT IMPOSSIBLE!"
1160  GOTO 140
1170 PRINT " ADIOS ":END
30  LOCATE 1,1 :CLS: PRINT : GOTO