Revert edits to bullfight.bas

17_Bullfight/bullfight.bas

@@ -6,25 +6,25 @@
 205 PRINT "DO YOU WANT INSTRUCTIONS";
 206 INPUT Z$
 207 IF Z$="NO" THEN 400
-    println("HELLO, ALL YOU BLOODLOVERS AND AFICIONADOS.")
+210 PRINT "HELLO, ALL YOU BLOODLOVERS AND AFICIONADOS."
-    println("HERE IS YOUR BIG CHANCE TO KILL A BULL.")
+220 PRINT "HERE IS YOUR BIG CHANCE TO KILL A BULL."
-    println()
+230 PRINT
-    println("ON EACH PASS OF THE BULL, YOU MAY TRY")
+240 PRINT "ON EACH PASS OF THE BULL, YOU MAY TRY"
-    println("0 - VERONICA (DANGEROUS INSIDE MOVE OF THE CAPE)")
+250 PRINT "0 - VERONICA (DANGEROUS INSIDE MOVE OF THE CAPE)"
-    println("1 - LESS DANGEROUS OUTSIDE MOVE OF THE CAPE")
+260 PRINT "1 - LESS DANGEROUS OUTSIDE MOVE OF THE CAPE"
-    println("2 - ORDINARY SWIRL OF THE CAPE.")
+270 PRINT "2 - ORDINARY SWIRL OF THE CAPE."
-    println()
+280 PRINT
-    println("INSTEAD OF THE ABOVE, YOU MAY TRY TO KILL THE BULL")
+290 PRINT "INSTEAD OF THE ABOVE, YOU MAY TRY TO KILL THE BULL"
-    println("ON ANY TURN: 4 (OVER THE HORNS), 5 (IN THE CHEST).")
+300 PRINT "ON ANY TURN: 4 (OVER THE HORNS), 5 (IN THE CHEST)."
-    println("BUT IF I WERE YOU,")
+310 PRINT "BUT IF I WERE YOU,"
-    println("I WOULDN'T TRY IT BEFORE THE SEVENTH PASS.")
+320 PRINT "I WOULDN'T TRY IT BEFORE THE SEVENTH PASS."
-    println()
+330 PRINT
-    println("THE CROWD WILL DETERMINE WHAT AWARD YOU DESERVE")
+340 PRINT "THE CROWD WILL DETERMINE WHAT AWARD YOU DESERVE"
-    println("(POSTHUMOUSLY IF NECESSARY).")
+350 PRINT "(POSTHUMOUSLY IF NECESSARY)."
-    println("THE BRAVER YOU ARE, THE BETTER THE AWARD YOU RECEIVE.")
+360 PRINT "THE BRAVER YOU ARE, THE BETTER THE AWARD YOU RECEIVE."
-    println()
+370 PRINT
-    println("THE BETTER THE JOB THE PICADORES AND TOREADORES DO,")
+380 PRINT "THE BETTER THE JOB THE PICADORES AND TOREADORES DO,"
-    println("THE BETTER YOUR CHANCES ARE.")
+390 PRINT "THE BETTER YOUR CHANCES ARE."
 400 PRINT
 410 PRINT
 420 D(5)=1
@@ -32,70 +32,55 @@
 450 DIM L$(5)
 455 A=INT(RND(1)*5+1)
 460 FOR I=1 TO 5
-    463 READ L$(I)
+463 READ L$(I)
 467 NEXT I
 470 DATA "SUPERB","GOOD","FAIR","POOR","AWFUL"
 490 PRINT "YOU HAVE DRAWN A ";L$(A);" BULL."
 500 IF A>4 THEN 530
-
+510 IF A<2 THEN 550
-    510 IF A<2 THEN 550
+520 GOTO 570
-    520 GOTO 570
+530 PRINT "YOU'RE LUCKY."
-
+540 GOTO 570
-    530 PRINT "YOU'RE LUCKY."
+550 PRINT "GOOD LUCK.  YOU'LL NEED IT."
-    540 GOTO 570
+560 PRINT
-
-    550 PRINT "GOOD LUCK.  YOU'LL NEED IT."
-    560 PRINT
-
 570 PRINT
-
 590 A$="PICADO"
 595 B$="RES"
 600 GOSUB 1610
-
 610 D(1)=C
-
 630 A$="TOREAD"
 635 B$="ORES"
 640 GOSUB 1610
-
 650 D(2)=C
 660 PRINT
 670 PRINT
 680 IF Z=1 THEN 1310
-
 690 D(3)=D(3)+1
 700 PRINT "PASS NUMBER";D(3)
 710 IF D(3)<3 THEN 760
-
+720 PRINT "HERE COMES THE BULL.  TRY FOR A KILL";
-    720 PRINT "HERE COMES THE BULL.  TRY FOR A KILL";
+730 GOSUB 1930
-    730 GOSUB 1930
+735 IF Z1=1 THEN 1130
-    735 IF Z1=1 THEN 1130
+740 PRINT "CAPE MOVE";
-    740 PRINT "CAPE MOVE";
+750 GOTO 800
-    750 GOTO 800
+760 PRINT "THE BULL IS CHARGING AT YOU!  YOU ARE THE MATADOR--"
-#else
+770 PRINT "DO YOU WANT TO KILL THE BULL";
-    760 PRINT "THE BULL IS CHARGING AT YOU!  YOU ARE THE MATADOR--"
+780 GOSUB 1930
-    770 PRINT "DO YOU WANT TO KILL THE BULL";
+785 IF Z1=1 THEN 1130
-    780 GOSUB 1930
+790 PRINT "WHAT MOVE DO YOU MAKE WITH THE CAPE";
-    785 IF Z1=1 THEN 1130
-    790 PRINT "WHAT MOVE DO YOU MAKE WITH THE CAPE";
-
 800 INPUT E
 810 IF E<>INT(ABS(E)) THEN 830
-    820 IF E<3 THEN 850
+820 IF E<3 THEN 850
-        830 PRINT "DON'T PANIC, YOU IDIOT!  PUT DOWN A CORRECT NUMBER"
+830 PRINT "DON'T PANIC, YOU IDIOT!  PUT DOWN A CORRECT NUMBER"
-        840 GOTO 800
+840 GOTO 800
-    850 REM
+850 REM
-
 860 IF E=0 THEN 920
-    870 IF E=1 THEN 900
+870 IF E=1 THEN 900
-        880 M=.5
+880 M=.5
-        890 GOTO 930
+890 GOTO 930
-    900 M=2
+900 M=2
-    910 GOTO 930
+910 GOTO 930
-#else
+920 M=3
-    920 M=3
-
 930 L=L+M
 940 F=(6-A+M/10)*RND(1)/((D(1)+D(2)+D(3)/10)*5)
 950 IF F<.51 THEN 660
@@ -134,7 +119,6 @@
 1280 GOTO 1320
 1290 IF K>.8 THEN 960
 1300 GOTO 1260
-
 1310 PRINT
 1320 PRINT
 1330 PRINT
@@ -165,51 +149,37 @@
 1580 PRINT
 1590 PRINT "ADIOS":PRINT:PRINT:PRINT
 1600 GOTO 2030
-
 1610 B=3/A*RND(1)
 1620 IF B<.37 THEN 1740
 1630 IF B<.5 THEN 1720
 1640 IF B<.63 THEN 1700
 1650 IF B<.87 THEN 1680
-
 1660 C=.1
 1670 GOTO 1750
-
 1680 C=.2
 1690 GOTO 1750
-
 1700 C=.3
 1710 GOTO 1750
-
 1720 C=.4
 1730 GOTO 1750
-
 1740 C=.5
-
 1750 T=INT(10*C+.2)
 1760 PRINT "THE ";A$;B$;" DID A ";L$(T);" JOB."
-
 1770 IF 4>T THEN 1900
-    1780 IF 5=T THEN 1870
+1780 IF 5=T THEN 1870
-        1790 ON FNA(K) GOTO 1830,1850
+1790 ON FNA(K) GOTO 1830,1850
-
-            REM Dead code
 1800 IF A$="TOREAD" THEN 1820
 1810 PRINT "ONE OF THE HORSES OF THE ";A$;B$;" WAS KILLED."
 1820 ON FNA(K) GOTO 1830,1850
-
+1830 PRINT "ONE OF THE ";A$;B$;" WAS KILLED."
-        1830 PRINT "ONE OF THE ";A$;B$;" WAS KILLED."
+1840 GOTO 1900
-        1840 GOTO 1900
+1850 PRINT "NO ";A$;B$;" WERE KILLED."
-
+1860 GOTO 1900
-        1850 PRINT "NO ";A$;B$;" WERE KILLED."
+1870 IF A$="TOREAD" THEN 1890
-        1860 GOTO 1900
+1880 PRINT FNA(K);"OF THE HORSES OF THE ";A$;B$;" KILLED."
-
+1890 PRINT FNA(K);"OF THE ";A$;B$;" KILLED."
-    1870 IF A$="TOREAD" THEN 1890
-        1880 PRINT FNA(K);"OF THE HORSES OF THE ";A$;B$;" KILLED."
-    1890 PRINT FNA(K);"OF THE ";A$;B$;" KILLED."
 1900 PRINT
 1910 RETURN
-
 1920 REM
 1930 INPUT A$
 1940 IF A$="YES" THEN 1990