Listing of file='JOUST.BAS;01' on disk='vmedia/ncc_3-sector.ccvf'
60 PLOT 12,14 70 PRINT TAB( 26);"JOUST" 80 PRINT TAB( 20);"ADOPED BY WILLIAM LEE" 90 PRINT :PRINT :PRINT 100 INPUT "WHAT IS YOUR NAME, PLEASE. ";A$ 110 PLOT 15 120 PRINT "SIR ";A$;" YOU ARE A MEDIEVAL KNIGHT IN A JOUSTING" 130 PRINT "TOURNAMENT. THE PRIZE TO THE WINNER IS THE PRINCESS' HAND IN" 140 PRINT "MARRIAGE. TO WIN YOU MUST BEAT FOUR KNIGHTS. TO JOUST, YOU PICK" 150 PRINT "AN AIMING POINT FOR THE LANCE, AND THEN ONE OF FROM 3 TO 6" 160 PRINT "DIFFERENT POSSIBLE DEFENSE POSITIONS." 170 N= 0 180 PRINT TAB( 20);"AIMING POINTS ARE:":PRINT 190 PRINT TAB( 23);"1 - HELM" 200 PRINT TAB( 23);"2 - UPPER LEFT (OF SHIELD)" 250 PRINT TAB( 23);"3 - UPPER MIDDLE" 300 PRINT TAB( 23);"4 - UPPER RIGHT" 350 PRINT TAB( 23);"5 - LOWER LEFT" 400 PRINT TAB( 23);"6 - LOWER MIDDLE" 450 PRINT TAB( 23);"7 - LOWER RIGHT" 500 PRINT TAB( 23);"8 - BASE OF SHIELD" 510 PRINT 520 IF N= 1THEN 1410 530 PRINT "IF YOU BREAK A LANCE OR LOSE A HELM, YOU WILL BE GIVEN ANOTHER." 550 PRINT "GOOD LUCK, SIR ";A$;"." 555 PRINT 600 FOR A= 1TO 4 650 ON AGOTO 800,950,1100,1250 700 REM OFF GO TO THE FOUR JOUSTS 800 PRINT "THIS IS YOUR FIRST JOUST. YOU ARE UP AGINST THE GOLD KNIGNT." 850 GOTO 1400 950 PRINT "THIS IS YOUR SECOND JOUST. YOUR OPPNENT IS THE SILVER KNIGHT" 1000 GOTO 1400 1100 PRINT "YOU ARE DOING WELL!! YOUR THIRD JOUST IS AGAINST THE RED KNIGHT" 1150 GOTO 1400 1250 PRINT "THIS IS YOUR FINAL TEST!! IF YOU WIN THIS ONE THE PRINCESS IS " 1270 PRINT "YOURS!! THIS FIGHT IS AGAINST THE FIERCE BLACK KNIGHT!!!!" 1400 IF N= 1THEN 180 1410 PRINT :INPUT "YOUR AIMING POINT(1-8) ";B 1450 IF B< 1OR B> 8THEN 1400 1460 PRINT 1470 PRINT "YOU MAY USE ONE OF THESE DEFENSES:" 1480 N= 1 1500 ON BGOTO 1550,1650,1750,1850,1550,1750,1550,1950 1550 PRINT "4-STEADY SEAT, 5-SHIELD HIGH, 6-SHIELD LOW." 1600 GOTO 2000 1650 PRINT "3-LEFT LEAN, 4-STEADY SEAT, 5-SHIELD HIGH, 6-SHIELD LOW." 1700 GOTO 2000 1750 PRINT "1-LOWER HELM, 2- RIGHT LEAN, 3 LEFT LEAN, 4-STEADY SEAT." 1760 PRINT "5-SHIELD HIGH, 6-SHIELD LOW." 1800 GOTO 2000 1850 PRINT "2-RIGHT LEAN, 4-STEADY SEAT, 5-SHIELD HIGH, 6-SHIELD LOW." 1900 GOTO 2000 1950 PRINT "1-LOWER HELM, 4 STEADY SEAT, 5-SHIELD HIGH, 6-SHIELD LOW." 2000 INPUT "WHAT IS YOUR CHOICE ";C 2010 PLOT 12 2050 D= INT (RND (1)* 8)+ 1 2100 ON DGOTO 2150,2200,2250,2300,2350,2400,2450,2500 2150 ON CGOTO 2600,2600,2600,2700,2800,2600 2200 ON CGOTO 2800,2750,2600,2750,2750,2600 2250 ON CGOTO 2850,2800,2650,2750,2950,2900 2300 ON CGOTO 2650,2600,2850,2650,2650,2800 2350 ON CGOTO 2750,2950,2600,2750,2600,2750 2400 ON CGOTO 2950,2650,2750,2950,2850,2750 2450 ON CGOTO 2650,2600,2950,2650,2650,2650 2500 ON CGOTO 2750,2650,2850,2750,2850,2750 2600 PRINT "HE MISSED YOU!":S= 0:PRINT :GOTO 3000 2650 PRINT "HE HIT YOUR SHIELD BUT IT GLANCED OFF.":S= 0:PRINT :GOTO 3000 2700 PRINT "HE KNOCKED OFF YOUR HELM!":S= 0:PRINT :GOTO 3000 2750 PRINT "HE BROKE HIS LANCE.":S= 0:PRINT :GOTO 3000 2800 PRINT "HE HAS UNSEATED YOU (THUD!)":S= 5:PRINT :GOTO 3000 2850 PRINT "HE HAS BROKEN HIS LANCE, INJURED AND UNSEATED YOU (OUCH!)" 2860 S= 5:PRINT :GOTO 3000 2900 PRINT "HE HAS INJURED AND UNSEATED YOU (CRASH)":S= 5:PRINT :GOTO 3000 2950 PRINT "HE HAS BROKEN HIS LANCE AND UNSEATED YOU (CLANG!)":S= 5:PRINT :GOTO 3000 3000 E= INT (RND (1)* 6)+ 1 3050 ON DGOTO 3100,3150,3200,3250,3100,3200,3100,3300 3100 IF E< 4THEN 3000 3110 GOTO 3350 3150 IF E> 3THEN 3000 3200 GOTO 3350 3250 IF E= 1OR E= 3THEN 3000 3260 GOTO 3350 3300 IF E= 2OR E= 3THEN 3000 3350 ON EGOTO 3400,3450,3500,3550,3600,3650 3400 ON BGOTO 3700,3900,3950,3750,3850,4050,3750,3850 3450 ON BGOTO 3700,3850,3900,3700,4050,3750,3700,3750 3500 ON BGOTO 3700,3700,3750,3850,3700,3850,4050,3900 3550 ON BGOTO 3800,3850,3850,3750,3850,4050,3750,3850 3600 ON BGOTO 3900,3850,4050,3750,3700,3950,3750,3950 3650 ON BGOTO 3700,3700,4000,3900,3850,3850,3750,3850 3700 PRINT "YOU MISSED HIM (HISS!)":T= 0:PRINT :GOTO 4100 3750 PRINT "YOU HIT HIS SHIELD BUT GLANCED OFF.":T= 0:PRINT :GOTO 4100 3800 PRINT "YOU KNOCKED OFF HIS HELM! (CHEERS!)":T= 0:PRINT :GOTO 4100 3850 PRINT "YOU BROKE YOUR LANCE (CRACK...)":T= 0:PRINT :GOTO 4100 3900 PRINT "YOU UNSEATED HIM (LOAD CHEERS AND HUZZAHS!!)":T= 5:PRINT :GOTO 4100 3950 PRINT "YOU BROKE YOUR LANCE, BUT UNSEATED AND INJURED YOUR FOE.":PRINT :T= 5:GOTO 4100 4000 PRINT "YOU INJURED AND UNSEATED YOUR OPPONENT.":T= 5:PRINT :GOTO 4100 4050 PRINT "YOU BROKE YOUR LANCE BUT UNSEATED YOUR OPPONENT.":T= 5:PRINT :GOTO 4100 4100 X= T:IF S= XAND S= 0THEN 4450 4110 T= X 4150 IF S= TGOTO 4400 4200 IF S< TGOTO 4300 4250 IF S> TGOTO 4350 4300 PRINT "YOU HAVE WON THIS JOUST.":PRINT :PRINT :PRINT :GOTO 4320 4320 NEXT A 4330 GOTO 4550 4350 PRINT "TO BAD, YOU LOST. HOPE YOUR INSURANCE WAS PAID UP.":PRINT :GOTO 4500 4400 PRINT "TO BAD, YOU BOTH LOST. AT LEAST YOUR HORNOR IS INTACT.":PRINT :GOTO 4500 4450 PRINT "YOU ARE NOW READY TO TRY AGAIN.":PRINT :GOTO 1400 4500 PRINT "SORRY, BETTER LUCK NEXT..." 4510 PRINT :PRINT TAB( 26);"JOUST":GOTO 9999 4520 REM 4550 PRINT :PRINT "HOORAY! YOU ARE THE WINNNER. HERE COMES THE BRIDE!" 9999 END