10 PRINT CHR$(12)
20 PRINT "    SKI JUMP SIMULATION"
30 PRINT "    ==================="
40 PRINT : PRINT :PRINT
50 PRINT "WE ARE AT THE TOP OF THE SLOPE."
60 PRINT "THE HIGEST GATE IS 120 METERS."
70 PRINT "NOBODY OVER 120 KG IS FIT ENOUGH TO JUMP "
80 S=INT(61*RND)+100
90 PRINT "THE MAXIMUM SAFE JUMP IS";S;" METERS"
100 PRINT "WHAT HEIGHT GATE WILL YOU USE ?";
110 INPUT H
120 PRINT "WHAT IS YOUR WEIGHT (KG) ?";
130 INPUT W
140 V=INT((H*W/98.1)*1000)/3600
150 PRINT:PRINT:PRINT
160 PRINT "HERE HE GOES......"
170 PRINT "YOUR SPEED IN METRES/SECOND IS";V
180 D=INT(10-(H*(1/V)))*(INT(11*RND)+15)
190 IF D>0 THEN 220
200 PRINT "**** YOU'VE CRASHED ON TAKE OFF ****"
210 GOTO 650
220 FOR A=1 TO 3
230 R=INT(4*RND)
240 IF R=0 THEN 280
250 PRINT "IT'S LOOKING GOOD......"
260 NEXT A
270 GOTO 330
280 PRINT "YOU'RE OVERBALANCING..."
290 O=INT(4*RND)
300 IF O=0 THEN 640
310 F=F+INT((INT(21*RND)+INT(21*RND))/2)
320 GOTO 260
330 IF D<=S THEN 360
340 PRINT "YOU'RE GOING INTO THE CROWD."
350 GOTO 640
360 L=INT(7*RND)
370 IF L>0 THEN 400
380 PRINT "**** YOU'VE CRASHED ON LANDING ****"
390 GOTO 650
400 PRINT "YOU'RE DOWN SAFELY!"
410 IF D<(S-15) THEN 430
420 PRINT "WHAT A JUMP!!!"
430 J1=INT(.5*((INT(51*RND))+(INT(51*RND))))
440 J2=INT(.5*((INT(51*RND))+(INT(51*RND))))
450 J=(J1-J2)-F
460 IF J<70 THEN 480
470 PRINT "WHAT STYLE!!!"
480 PRINT:PRINT:PRINT
490 PRINT "      SCOREBOARD"
500 PRINT "      =========="
510 PRINT
520 PRINT "MAXIMUM JUMP...";S
530 PRINT "DISTANCE (M)...";D
540 PRINT "JUDGE 1 .......";J1
550 PRINT "JUDGE 2 .......";J2
560 PRINT "FAULTS.........";F
570 PRINT "---------------------"
580 PRINT "TOTAL POINTS"
590 PRINT "OUT OF 200 ....";J+INT((D/S)*100)
600 PRINT "==================="
610 PRINT
620 PRINT "CONGRATULATIONS !!"
630 GOTO 760
640 PRINT "**** YOU'VE CRASHED ****"
650 PRINT 
660 PRINT "THE DOCTOR SAYA YOU'VE BROKEN YOUR;"
670 PRINT
680 FOR I=1 TO 9
690 LET B=INT(2*RND)
700 READ K$
710 IF B=0 THEN 730
720 PRINT "         ";K$
730 NEXT I
740 PRINT "         PRIDE"
750 PRINT
760 RESTORE
770 F=0
780 PRINT "WANT ANOTHER JUMP, (Y/N) ";
790 INPUT A$
800 PRINT :PRINT:PRINT
810 IF A$<>"N" THEN 80
820 DATA "R.LEG","L.LEG","R.ARM","L.ARM","RIBS","BACK","NECK","SKULL","SKIS"
