home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / GAMES / QB_BUSH.ZIP / BUSH.BAS next >
BASIC Source File  |  1994-02-08  |  31KB  |  1,158 lines
  1. DIM weapon(19) AS STRING
  2. DIM used(19), billused(19) AS INTEGER
  3. DATA "Howitzer", "Bazooka", "C-Killer", "Rifle", "Shotgun", "9mm Pistol"
  4. DATA "Sabre", "Pick-ax", "Shank", "Knife", "Scissors", "Screwdriver", "2-by-4"
  5. DATA "Zipgun", "Flashlight", "8-Ball", "Peashooter", "Slurpee", "Ho Ho"
  6. RANDOMIZE TIMER
  7. FOR i = 1 TO 19
  8.    READ weapon(i)
  9. NEXT i
  10.  
  11. CLS
  12. SCREEN 12
  13. COLOR 11
  14. VIEW (0, 0)-(639, 479), 5
  15. music$ = "MNL4O4DEC<CG"
  16. PLAY music$
  17. CLS
  18. PRINT ""
  19. PRINT ""
  20. INPUT "Enter your name: ", name$
  21. IF name$ = "-99" THEN END
  22.  
  23. GOSUB face
  24. LOCATE 25, 26
  25. PRINT USING "Well, &, meet Bushwick Bill"; name$;
  26. PRINT "!"
  27.  
  28. music$ = "MST160"
  29. musica$ = "O4L4GP8L16GGL4GP8L16GGL8GECEGEG>C<GECEGEG>C"
  30. musicb$ = "O4L4GP8L16GGL4GP8L16GGL4GP8L16GGL4GP8L16GG"
  31. musicc$ = "L8GL16GGL8GL16GGL8GL16GGL8GL16GGL8GL16GGL8GL16GGL8GL16GGL8GL16GGL1G."
  32. PLAY music$
  33. PLAY musica$
  34. IF INKEY$ <> "" THEN GOTO instruct
  35. PLAY musicb$
  36. IF INKEY$ <> "" THEN GOTO instruct
  37. PLAY musicc$
  38.  
  39. instruct:
  40. CLS
  41. SCREEN 0
  42. COLOR 11
  43. PRINT ""
  44. PRINT STRING$(75, "*")
  45. PRINT "Bushwick Bill is the baddest dude in Emphysema, the toughest town"
  46. PRINT "in the midwest.  He lives in a really rough neighborhood, but he has"
  47. PRINT "such a nasty arsenal of weapons that no one dares to challenge him."
  48. PRINT ""
  49. PRINT "It's your job to go root him out.  You have the same weapons,"
  50. PRINT "but you can use each weapon only once. "
  51. PRINT ""
  52. PRINT "Bill can also use each of his weapons only once; so you have a good"
  53. PRINT "chance to beat him if you choose your own weapons in the right order."
  54. PRINT ""
  55. PRINT "Bushwick Bill is here now.  He's ready to 'pump you up'."
  56. PRINT "But you get only 19 chances to beat him.  Better make the most of them."
  57. PRINT "Good luck!                                    [Hit any key to continue.]"
  58. PRINT STRING$(75, "*")
  59.  
  60. music1$ = "O3L16GGL8GL16GGL8GL16GG>L8CDE"
  61. music2$ = "O3L16GGL8GL16GG>L8CL16EEL8D<BG"
  62. music3$ = "O4L16CEL4GP16L16FEDL8CEC"
  63. music4$ = "O4L16EEL8EL16EEL8EL16EEL8EL16EEL8EL16EEL8EAEDC<BA"
  64. music5$ = "O4L16EEL8EL16EEL8EL16EEL8EL16EEL8EL16EEL8EAGG-GG-G"
  65. music6$ = "O4L16DDL8DL16DDL8DEFL4DL8FEL4CL8EDP4"
  66. PLAY music1$
  67. IF INKEY$ <> "" THEN GOTO endmusic
  68. PLAY music2$
  69. IF INKEY$ <> "" THEN GOTO endmusic
  70. PLAY music1$
  71. IF INKEY$ <> "" THEN GOTO endmusic
  72. PLAY music3$
  73. IF INKEY$ <> "" THEN GOTO endmusic
  74. DO WHILE INKEY$ = ""
  75.    PLAY music1$
  76.    IF INKEY$ <> "" THEN GOTO endmusic
  77.    PLAY music2$
  78.    IF INKEY$ <> "" THEN GOTO endmusic
  79.    PLAY music1$
  80.    IF INKEY$ <> "" THEN GOTO endmusic
  81.    PLAY music3$
  82.    IF INKEY$ <> "" THEN GOTO endmusic
  83.    PLAY music4$
  84.    IF INKEY$ <> "" THEN GOTO endmusic
  85.    PLAY music5$
  86.    IF INKEY$ <> "" THEN GOTO endmusic
  87.    PLAY music4$
  88.    IF INKEY$ <> "" THEN GOTO endmusic
  89.    PLAY music5$
  90.    IF INKEY$ <> "" THEN GOTO endmusic
  91.    PLAY music6$
  92.    IF INKEY$ <> "" THEN GOTO endmusic
  93.    PLAY music6$
  94.    IF INKEY$ <> "" THEN GOTO endmusic
  95.    PLAY music1$
  96.    IF INKEY$ <> "" THEN GOTO endmusic
  97.    PLAY music2$
  98.    IF INKEY$ <> "" THEN GOTO endmusic
  99.    PLAY music1$
  100.    IF INKEY$ <> "" THEN GOTO endmusic
  101.    PLAY music3$
  102. LOOP
  103. endmusic:
  104. DO UNTIL answ$ = "n"
  105. LET bill = 0
  106. LET you = 0
  107. LET tie = 0
  108. FOR i = 1 TO 19
  109.    LET used(i) = 0
  110.    LET billused(i) = 0
  111. NEXT i
  112. COLOR 11
  113. FOR k = 1 TO 19
  114.    PRINT ""
  115.    PRINT "Bill's arsenal now consists of:"
  116.    LET jj = 0      'Use jj to control number of columns (up to 4)
  117.    LET jjj = 1     'Use jjj to control tab positions (1,21,41,61)
  118.    FOR j = 1 TO 19
  119.      IF billused(j) = 0 THEN
  120.         LET jj = jj + 1
  121.         PRINT USING "##  &"; TAB(jjj); j; weapon(j);
  122.         LET jjj = jjj + 20
  123.         IF jj = 4 THEN
  124.            PRINT ""
  125.            LET jj = 0
  126.            LET jjj = 1
  127.         END IF
  128.      END IF
  129.    NEXT j
  130.    PRINT ""
  131.    PRINT ""
  132.    PRINT "Your arsenal now consists of:"
  133.    LET jj = 0      'Use jj to control number of columns (up to 4)
  134.    LET jjj = 1     'Use jjj to control tab positions (1,21,41,61)
  135.    FOR j = 1 TO 19
  136.      IF used(j) = 0 THEN
  137.         LET jj = jj + 1
  138.         PRINT USING "##  &"; TAB(jjj); j; weapon(j);
  139.         LET jjj = jjj + 20
  140.         IF jj = 4 THEN
  141.            PRINT ""
  142.            LET jj = 0
  143.            LET jjj = 1
  144.         END IF
  145.      END IF
  146.    NEXT j
  147.    PRINT ""
  148.    FOR m = 1 TO 3
  149.       INPUT ; "Enter a weapon number: ", wnum
  150.       IF wnum = -99 THEN END               'Emergency escape
  151.       IF wnum < 1 OR wnum > 19 THEN
  152.          BEEP
  153.          PRINT ""
  154.          PRINT "Weapon number must be 1 to 19... Try again."
  155.       ELSE
  156.          IF used(wnum) = 0 THEN
  157.             GOTO endloop
  158.          ELSE
  159.             BEEP
  160.             PRINT ""
  161.             PRINT "You already used a "; weapon(wnum);
  162.             PRINT "... Choose a different weapon now."
  163.          END IF
  164.       END IF
  165.    NEXT m
  166.    BEEP
  167.    PRINT ""
  168.    PRINT "Sorry... You only get 3 chances to get this right.  I'm outa here!"
  169.    LET you = 0
  170.    LET bill = 1
  171.    GOTO endgame
  172. endloop:
  173.    LET used(wnum) = 1
  174.    LET srch = 0
  175.    DO UNTIL INKEY$ = CHR$(27)
  176.       LET srch = srch + 1
  177.       x% = INT(RND * 19) + 1
  178.       IF billused(x%) = 0 THEN
  179.          LET billused(x%) = 1
  180.          EXIT DO
  181.       END IF
  182.       IF srch MOD 100 = 0 THEN PRINT "Hold on... Bill is making up his mind...."
  183.    LOOP
  184.    PRINT ""
  185.    PRINT STRING$(70, "-")
  186.    ON wnum GOSUB s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11, s12, s13, s14, s15, s16, s17, s18, s19
  187.    PRINT STRING$(70, "-")
  188. REM   ON x% GOSUB W1, W2, W3, W4, W5, W6, W7, W8, W9, W10, W11, W12, W13, W14, W15, W16, W17, W18, W19
  189. REM   SLEEP 1
  190. REM   PRINT STRING$(70, "-")
  191.    IF wnum > x% THEN
  192.       LET bill = bill + 1
  193.       COLOR 7
  194.       PRINT "That figures.  Only you would be dumb enough to bring a"
  195.       COLOR 2
  196.       PRINT USING "&"; weapon$(wnum);
  197.       COLOR 7
  198.       PRINT " to a ";
  199.       COLOR 14
  200.       PRINT USING "&"; weapon$(x%);
  201.       COLOR 7
  202.       PRINT " fight!"
  203.    ELSE
  204.       IF wnum = x% THEN
  205.          LET tie = tie + 1
  206.       ELSE
  207.          LET you = you + 1
  208.       END IF
  209.   END IF
  210.   COLOR 9
  211.   PRINT ""
  212.   PRINT "The score is now "; name$; ": "; you; "    Bushwick Bill:  "; bill;
  213.   PRINT "    Draws:  "; tie
  214.   COLOR 7
  215.   IF k < 19 THEN
  216.      IF you > (bill + 19 - k) THEN
  217.         PRINT ""
  218.         PRINT "Ain't no way Bushwick Bill can win now."
  219.         GOTO endgame
  220.      END IF
  221.      IF bill > (you + 19 - k) THEN
  222.         PRINT ""
  223.         PRINT "Ain't no way you can win now, "; name$; "."
  224.         GOTO endgame
  225.      END IF
  226.    END IF
  227. NEXT k
  228.  
  229. endgame:
  230. PRINT ""
  231. IF you > bill THEN
  232.    PRINT "So you beat Bushwick Bill this time.  Lucky!  He must have slipped."
  233.    music$ = "MNT130"
  234.    PLAY music$
  235.    music1$ = "O4L4EEFGGFEDCCDEE.L8DL2D"
  236.    PLAY music1$
  237.    IF INKEY$ <> "" THEN GOTO again
  238.    music2$ = "O4L4EEFGGFEDCCDED.L8CL2C"
  239.    PLAY music2$
  240.    IF INKEY$ <> "" THEN GOTO again
  241.    music3$ = "O4L4DDECDL8EFL4ECDL8EFL4EDCD<L4G"
  242.    PLAY music3$
  243.    IF INKEY$ <> "" THEN GOTO again
  244.    music4$ = "O4L2EL4EFGGFEDCCDED.L8CL2C"
  245.    PLAY music4$
  246.    IF INKEY$ <> "" THEN GOTO again
  247.    PLAY music3$
  248.    IF INKEY$ <> "" THEN GOTO again
  249.    PLAY music4$
  250.    LET yougame = yougame + 1
  251. ELSE
  252.    IF bill > you THEN
  253. REM      music1$ = "MBT120O2L4AL8A.AL4A"
  254. REM      music2$ = ">L8C.<BB.AA.A-L2A"
  255. REM      PLAY music1$
  256. REM      PLAY music2$
  257.       PRINT "You are a girly wimp!  Bushwick Bill wiped the mat with you."
  258.       PRINT "Better stay home with your mommy.  Let her pump you up!"
  259.       LET billgame = billgame + 1
  260.       music$ = "MNT80"
  261.       PLAY music$
  262.       music$ = "O2P2P4L8E.L16EL2EL8A.L16A-L8A.L16BL2>C<A"
  263.       PLAY music$
  264.       music$ = "O3L2EL16DL8C.<L16BL8A.>L2C<L4BL8B.L16B"
  265.       PLAY music$
  266.       music$ = "O2L2BL8B>CDEL2F."
  267.       PLAY music$
  268.       music$ = "O3L8EDDCD<BL4AL8B.L16A-L2A"
  269.       PLAY music$
  270.    ELSE
  271.       music$ = "MBT180o2P2P8L8GGGL2E-P24P8L8FFFL2D"
  272.       PLAY music$
  273.       PRINT "Looks like a tie... sorta like kissing your sister, eh?"
  274.       LET tiegame = tiegame + 1
  275.    END IF
  276. END IF
  277. again:
  278. LET answ$ = ""
  279. DO UNTIL answ$ = "y" OR answ$ = "n"
  280.    PRINT ""
  281.    INPUT "Do you want to play again (Y or N)"; answ$
  282.    LET answ$ = LCASE$(answ$)
  283. LOOP
  284. LOOP
  285. PRINT ""
  286. PRINT "Final Score was "; name$; ": "; yougame; "Games,  Bushwick Bill: ";
  287. PRINT billgame; "Games,  Tie Games: "; tiegame
  288. PRINT ""
  289. PRINT "Come back and play again!"
  290. END
  291.  
  292. face:
  293. SCREEN 12
  294. REM head
  295. CIRCLE (320, 240), 100, 6, , , 1.3
  296. CIRCLE (320, 240), 86, 6, .4, 2.8, 1.1
  297. PAINT (320, 240), 6, 6
  298. LINE (295, 190)-(345, 190), 0
  299. LINE (298, 185)-(342, 185), 0
  300.  
  301. REM left eye (Bill's right eye)
  302. CIRCLE (285, 210), 25, 0, , , .2
  303. CIRCLE (265, 225), 70, 0, .9, 1.6, .3
  304. CIRCLE (285, 210), 35, 0, 4, 5.5, .2
  305. PAINT (285, 210), 12, 0
  306. CIRCLE (290, 210), 5, 1
  307. PAINT (290, 212), 4, 1
  308. CIRCLE (290, 210), 2, 0
  309. PAINT (290, 210), 0, 0
  310. LINE (310, 199)-(270, 192), 0
  311. LINE (310, 200)-(270, 193), 0
  312. LINE (310, 201)-(270, 194), 0
  313.  
  314. REM right eye (Bill's left eye)
  315. CIRCLE (350, 210), 25, 0, , , .4
  316. CIRCLE (370, 225), 70, 0, 1.6, 2.25, .3
  317. PAINT (350, 210), 7, 0
  318. CIRCLE (360, 212), 7, 1
  319. PAINT (360, 212), 8, 1
  320. CIRCLE (360, 212), 2, 0
  321. PAINT (360, 212), 0, 0
  322. LINE (330, 199)-(370, 192), 0
  323. LINE (330, 200)-(370, 193), 0
  324. LINE (330, 201)-(370, 194), 0
  325.  
  326. REM lips
  327. CIRCLE (315, 290), 6, 8, , , 1.1
  328. PAINT (315, 290), 8, 8
  329. CIRCLE (325, 290), 6, 8, , , 1.1
  330. PAINT (325, 290), 8, 8
  331. CIRCLE (320, 290), 30, 8, , , .16
  332. PAINT (295, 290), 8, 8
  333. PAINT (345, 290), 8, 8
  334. LINE (295, 289)-(345, 289), 0
  335. LINE (295, 290)-(345, 290), 0
  336. REM LINE (295, 291)-(345, 291), 0
  337.  
  338. REM nose
  339. CIRCLE (310, 260), 10, 0, 1.7, 4
  340. CIRCLE (314, 260), 4, 0, , , 1.2
  341. PAINT (314, 260), 0, 0
  342. LINE (310, 250)-(313, 217), 0
  343. CIRCLE (330, 260), 10, 0, 5.5, 1.6
  344. CIRCLE (326, 260), 4, 0, , , 1.2
  345. PAINT (326, 260), 0, 0
  346. LINE (329, 250)-(323, 217), 0
  347.  
  348. REM left ear (Bill's right ear)
  349. CIRCLE (240, 240), 30, 6, , , 3
  350. PAINT (240, 240), 6, 6
  351. CIRCLE (241, 240), 23, 0, 1, 5, 3
  352.  
  353. REM right ear (Bill's left ear)
  354. CIRCLE (400, 240), 30, 6, , , 3
  355. PAINT (400, 240), 6, 6
  356. CIRCLE (399, 240), 23, 0, 4.5, 2, 3
  357.  
  358. REM hair
  359. REM CIRCLE (320, 220), 110, 6, .05, 3.1, 1.3
  360. REM DRAW "C6 BM235,220 M+10,-100 M+149,+0 M+10,+100"
  361. DRAW "C6 BM243,215 M+10,-105 M+67,+0 M+0,+10 M+67,+0 M+10,+95"
  362. CIRCLE (320, 240), 100, 0, .4, 2.8, 1.3
  363.  
  364. REM scars
  365. DRAW "C0 BM350,250 M+2,-5 M+1,+3 M+2,-5 M+1,+3 M+2,-5 M+1,+3 M+2,-5 M+1,+3 M+2,-5 M+1,+3 M+2,-5 M+1,+3"
  366. DRAW "C0 BM290,320 M-2,-5 M-1,+3 M-2,-5 M-1,+3 M-2,-5 M-1,+3 M-2,-5 M-1,+3 M-2,-5 M-1,+3 M-2,-5 M-1,+3"
  367.  
  368. REM chin
  369. CIRCLE (320, 365), 60, 0, 1.3, 1.85, .9
  370. RETURN
  371.  
  372. s1:
  373. GOSUB W1
  374. IF k < 5 THEN PRINT "Trotting out the top dog already, eh?"
  375. IF k > 15 THEN PRINT "Well it's about time you brought out the big one!"
  376. SLEEP 1
  377. GOSUB fight
  378. IF wnum < x% THEN
  379.    PRINT "OK, "; name$; ", so you got the best of Bushwick Bill with your "; weapon$(wnum); ". "
  380.    IF x% - wnum > 12 THEN
  381.       PRINT "Might as well go deer hunting with an atomic bomb!"
  382.    END IF
  383.    PRINT "But next time he won't just have a "; weapon$(x%); "."
  384. END IF
  385. IF wnum = x% THEN
  386.    PRINT "Wasted your best shot!  What a maroon!  Bill had a "; weapon$(x%); ", too!"
  387. END IF
  388. RETURN
  389.  
  390. s2:
  391. GOSUB W2
  392. IF k < 5 THEN PRINT "Trotting out your 2nd best weapon already, eh?"
  393. IF k > 15 THEN PRINT "Well it's about time you got to this one!"
  394. SLEEP 1
  395. GOSUB fight
  396. IF wnum > x% THEN
  397.     PRINT "Bushwick Bill wiped you out with a "; weapon$(x%); "... Tough luck!"
  398. END IF
  399. IF wnum = x% THEN
  400.    PRINT "Ha!  Bushwick Bill has a "; weapon$(wnum); ", too."
  401. END IF
  402. IF wnum >= x% THEN
  403.    PRINT "Wasted a good one, didn't you?  You dummy!"
  404. END IF
  405. IF wnum < x% THEN
  406.    PRINT "OK, "; name$; ", so you got the best of Bushwick Bill with your "; weapon$(wnum); ". "
  407.    IF x% - wnum > 12 THEN
  408.       PRINT "Kind of rubbing it in, aren't you?"
  409.    END IF
  410.    PRINT "Next time he won't just have a "; weapon$(x%); "."
  411. END IF
  412. RETURN
  413.  
  414. s3:
  415. GOSUB W3
  416. IF k < 5 THEN PRINT "Trotting out one of the top dogs already, eh?"
  417. IF k > 15 THEN PRINT "Well it's about time you got to this one!"
  418. SLEEP 1
  419. GOSUB fight
  420. IF wnum > x% THEN
  421.    PRINT "Bushwick Bill wiped you out with a "; weapon$(x%); "!"
  422. END IF
  423. IF wnum < x% THEN
  424.    PRINT "OK, "; name$; ", so you beat Bushwick Bill's "; weapon$(x%); " this time."
  425.    IF x% - wnum > 12 THEN
  426.       PRINT "You didn't need a "; weapon$(wnum); " just to beat a "; weapon$(x%); "."
  427.    END IF
  428. END IF
  429. IF wnum = x% THEN
  430.    PRINT "Ha!  Bushwick Bill has a "; weapon$(wnum); ", too."
  431. END IF
  432. IF wnum >= x% THEN
  433.    PRINT " Wasted a good one, didn't you?  Can't you do anything right?"
  434. END IF
  435. RETURN
  436.  
  437. s4:
  438. GOSUB W4
  439. IF k < 5 THEN PRINT "Using one of your good weapons this early, eh?"
  440. IF k > 15 THEN PRINT "Well it took you long enough to get around to this one!"
  441. SLEEP 1
  442. GOSUB fight
  443. IF wnum > x% THEN
  444.    PRINT "But Bushwick Bill wiped you out with a "; weapon$(x%); " anyway!"
  445. END IF
  446. IF wnum < x% THEN
  447.    PRINT "OK, "; name$; ", so you got the jump on Bushwick Bill this time."
  448.    PRINT "The best he could do was a "; weapon$(x%); "."
  449.    IF x% - wnum > 12 THEN
  450.       PRINT "Did you really need a "; weapon$(wnum); " just to beat a "; weapon$(x%); "?"
  451.    END IF
  452. END IF
  453. IF wnum = x% THEN
  454.    PRINT "Ha!  Bushwick Bill has a "; weapon$(wnum); ", too."
  455. END IF
  456. IF wnum >= x% THEN
  457.    PRINT "Wasted a good weapon?  You dolt!"
  458. END IF
  459. RETURN
  460.  
  461. s5:
  462. GOSUB W5
  463. IF k < 5 THEN PRINT "Resorting to your 5th best weapon already?"
  464. IF k > 15 THEN PRINT "Trying to finish strong with the big weapons, eh?"
  465. SLEEP 1
  466. GOSUB fight
  467. IF wnum > x% THEN
  468.    PRINT "But Bushwick Bill took you with a "; weapon$(x%); " just the same!"
  469. END IF
  470. IF wnum < x% THEN
  471.    PRINT "OK, "; name$; ", you got the best of Bushwick Bill this time."
  472.    PRINT "All he could muster was a "; weapon$(x%); "."
  473.    IF x% - wnum > 12 THEN
  474.       PRINT "Like you needed a "; weapon$(wnum); " just to beat a "; weapon$(x%); "?"
  475.    END IF
  476. END IF
  477. IF wnum = x% THEN
  478.    PRINT "Ha!  Bushwick Bill has a "; weapon$(wnum); ", too."
  479. END IF
  480. IF wnum >= x% THEN
  481.    PRINT "You just wasted a good weapon!  You're in trouble now!"
  482. END IF
  483. RETURN
  484.  
  485. s6:
  486. GOSUB W6
  487. GOSUB fight
  488. IF wnum > x% THEN
  489.    PRINT "Bushwick Bill fixed your wagon.  He had a "; weapon$(x%); "!"
  490. END IF
  491. IF wnum < x% THEN
  492.    PRINT "Well, "; name$; ", you beat Bushwick's "; weapon$(x%); " this time."
  493.    IF x% - wnum > 12 THEN
  494.       PRINT "Think you needed a "; weapon$(wnum); " just to beat a "; weapon$(x%); "?"
  495.    END IF
  496. END IF
  497. IF wnum = x% THEN
  498.    PRINT "Ha!  Bushwick Bill has a "; weapon$(wnum); ", too."
  499. END IF
  500. IF wnum >= x% THEN
  501.    PRINT "You just wasted a good weapon!  Say your prayers, rabbit!"
  502. END IF
  503. RETURN
  504.  
  505. s7:
  506. GOSUB W7
  507. GOSUB fight
  508. IF wnum > x% THEN
  509.    PRINT "Bushwick Bill used his "; weapon$(x%); " to put you away!"
  510. END IF
  511. IF wnum < x% THEN
  512.    PRINT "OK, "; name$; ", so you managed to beat the Bushwick this time."
  513.    PRINT "All he had was a "; weapon$(x%); "."
  514. END IF
  515. IF wnum = x% THEN
  516.    PRINT "Ha!  Bushwick Bill has a "; weapon$(wnum); ", too."
  517. END IF
  518. IF wnum >= x% THEN
  519.    PRINT "Wasted a good weapon!  Prepare to lose, sucker!"
  520. END IF
  521. RETURN
  522.  
  523. s8:
  524. GOSUB W8
  525. GOSUB fight
  526. IF wnum > x% THEN
  527.    PRINT "Bushwick Bill completly toasted you with his "; weapon$(x%); "!"
  528. END IF
  529. IF wnum < x% THEN
  530.    PRINT "Well, "; name$; ", you managed to best the Bushwick this time."
  531.    PRINT "All he had was a "; weapon$(x%); "."
  532. END IF
  533. IF wnum = x% THEN
  534.    PRINT "Ha!  Bushwick Bill has a "; weapon$(wnum); ", too."
  535. END IF
  536. IF wnum >= x% THEN
  537.    PRINT "Wasting one of your better weapons?  You'll be sorry!"
  538. END IF
  539. RETURN
  540.  
  541. s9:
  542. GOSUB W9
  543. IF k < 5 THEN
  544.    PRINT "Gambling on your middle weapons near the start, eh?"
  545. END IF
  546. SLEEP 1
  547. GOSUB fight
  548. IF wnum > x% THEN
  549.    PRINT "Bushwick Bill dispatched you with his "; weapon$(x%); "!"
  550. END IF
  551. IF wnum < x% THEN
  552.    PRINT "Well, "; name$; ", you beat the Bushwick this time."
  553.    PRINT "He could only come up with a "; weapon$(x%); "."
  554. END IF
  555. IF wnum = x% THEN
  556.    PRINT "Bushwick Bill used a "; weapon$(wnum); ", too."
  557. END IF
  558. RETURN
  559.  
  560. s10:
  561. GOSUB W10
  562. IF k < 5 THEN
  563.    PRINT "Gambling on your middle weapons near the start, eh?"
  564. END IF
  565. SLEEP 1
  566. GOSUB fight
  567. IF wnum > x% THEN
  568.    PRINT "Bushwick Bill battered you with his "; weapon$(x%); "!"
  569. END IF
  570. IF wnum < x% THEN
  571.    PRINT "Well, "; name$; ", Bushwick Bill only had a "; weapon$(x%); ".  Beware the next time!"
  572. END IF
  573. IF wnum = x% THEN
  574.    PRINT "Bushwick Bill used a "; weapon$(wnum); ", too."
  575. END IF
  576. RETURN
  577.  
  578. s11:
  579. GOSUB W11
  580. IF k < 5 THEN
  581.    PRINT "Gambling on your middle weapons near the start, eh?"
  582. END IF
  583. SLEEP 1
  584. GOSUB fight
  585. IF wnum > x% THEN
  586.    PRINT "Your "; weapon$(wnum); " was no match for Bill's "; weapon$(x%); "!"
  587. END IF
  588. IF wnum < x% THEN
  589.    PRINT "Well, "; name$; ", looks as if you got the best of Bill's "; weapon$(x%); "."
  590. END IF
  591. IF wnum = x% THEN
  592.    PRINT "Bushwick Bill used a "; weapon$(wnum); ", too."
  593. END IF
  594. RETURN
  595.  
  596. s12:
  597. GOSUB W12
  598. GOSUB fight
  599. IF wnum > x% THEN
  600.    PRINT "Your puny "; weapon$(wnum); " was no match for Bill's "; weapon$(x%); "!"
  601. END IF
  602. IF wnum < x% THEN
  603.    PRINT "OK, "; name$; ", you've got the best of Bill's "; weapon$(x%); "."
  604. END IF
  605. IF wnum = x% THEN
  606.    PRINT "Bushwick Bill used a "; weapon$(wnum); ", too."
  607. END IF
  608. IF x% >= wnum THEN
  609.    PRINT "You lucky schmoe.  Just wait till the next clash!"
  610. END IF
  611. RETURN
  612.  
  613. s13:
  614. GOSUB W13
  615. SLEEP 1
  616. GOSUB fight
  617. IF wnum > x% THEN
  618.    PRINT "A mere "; weapon$(wnum); " is no match for Bill's "; weapon$(x%); "!"
  619. END IF
  620. IF wnum < x% THEN
  621.    PRINT "OK, "; name$; ", you've beaten Bill's "; weapon$(x%); "."
  622. END IF
  623. IF wnum = x% THEN
  624.    PRINT "Bushwick Bill used a "; weapon$(wnum); ", too."
  625. END IF
  626. IF x% >= wnum THEN
  627.    PRINT "You lucky schmoe.  Just wait till the next time!"
  628. END IF
  629. RETURN
  630.  
  631. s14:
  632. GOSUB W14
  633. GOSUB fight
  634. IF wnum - x% > 12 THEN
  635.    PRINT name$; ", you bozo!  You selected a girly "; weapon(wnum); "."
  636. END IF
  637. IF wnum > x% THEN
  638.    PRINT "A "; weapon$(wnum); " is no match for Bill's "; weapon$(x%); "!"
  639. END IF
  640. IF wnum < x% THEN
  641.    PRINT "OK, "; name$; ", you've beaten Bill's "; weapon$(x%); "."
  642. END IF
  643. IF wnum = x% THEN
  644.    PRINT "Bushwick Bill used a "; weapon$(wnum); ", too."
  645. END IF
  646. IF x% >= wnum THEN
  647.    PRINT "You lucky schmoe.  But your luck is about to run out!"
  648. END IF
  649. RETURN
  650.  
  651. s15:
  652. GOSUB W15
  653. PRINT "Going for the Malice Green Special, are you?  You brute!";
  654. PRINT "You make the Detroit Police Department proud!"
  655. SLEEP 1
  656. GOSUB fight
  657. IF wnum - x% > 12 THEN
  658.    PRINT name$; ", you dummkopf!  You chose a girly "; weapon(wnum); "."
  659. END IF
  660. IF k < 5 THEN
  661.    PRINT "Using this stuff already?  Might as well give up now!"
  662. END IF
  663. IF k > 15 THEN
  664.    PRINT "Saving this stuff till the end, eh?  Won't help you now!"
  665. END IF
  666. IF wnum > x% THEN
  667.    PRINT "Do you think a "; weapon$(wnum); " is any match for Bill's "; weapon$(x%); "?"
  668. END IF
  669. IF wnum < x% THEN
  670.    PRINT "Ouch!  Bill only had a "; weapon$(x%); "."
  671. END IF
  672. IF wnum = x% THEN
  673.    PRINT "Bushwick Bill has a "; weapon$(wnum); ", too."
  674. END IF
  675. IF x% >= wnum THEN
  676.    PRINT "How lucky can you get?  Better hope it keeps up!"
  677. END IF
  678. RETURN
  679.  
  680. s16:
  681. GOSUB W16
  682. IF k < 5 THEN
  683.    PRINT "Using the crummy stuff already?  Might as well give up now!"
  684. END IF
  685. IF k > 15 THEN
  686.    PRINT "Saving your crummy stuff till the end, eh?  Won't help you now!"
  687. END IF
  688. SLEEP 1
  689. GOSUB fight
  690. IF wnum - x% > 12 THEN
  691.    PRINT name$; ", you idiot!  How do expect to win with a girly "; weapon(wnum); "?"
  692. END IF
  693. IF wnum > x% THEN
  694.    PRINT "What a joke:  A "; weapon$(wnum); " against Bill's "; weapon$(x%); "?"
  695. END IF
  696. IF wnum < x% THEN
  697.    PRINT "Yikes!  Bill couldn't come up with anything better than a "; weapon$(x%); "."
  698. END IF
  699. IF wnum = x% THEN
  700.    PRINT "Bushwick Bill matched your "; weapon$(wnum); " with his own."
  701. END IF
  702. IF x% >= wnum THEN
  703.    PRINT "Talk about luck!  That won't last much longer!"
  704. END IF
  705. RETURN
  706.  
  707. s17:
  708. GOSUB W17
  709. IF k < 5 THEN
  710.    PRINT "Getting rid of your spare change early, eh?"
  711. END IF
  712. IF k > 15 THEN
  713.    PRINT "Well, you had to get rid of this piece of junk eventually!"
  714. END IF
  715. SLEEP 1
  716. GOSUB fight
  717. IF wnum - x% > 12 THEN
  718.    PRINT name$; ", you bozo!  You used a girly little "; weapon(wnum); "."
  719. END IF
  720. IF wnum > x% THEN
  721.    PRINT "Ha!  A "; weapon$(wnum); " against Bill's "; weapon$(x%); "?"
  722. END IF
  723. IF wnum < x% THEN
  724.    PRINT "Yeow!  The best Bill could do was a "; weapon$(x%); "."
  725. END IF
  726. IF wnum = x% THEN
  727.    PRINT "Bill has matched your "; weapon$(wnum); " with his own."
  728. END IF
  729. IF x% >= wnum THEN
  730.    PRINT "No one's that lucky!  Your luck's about to run out!"
  731. END IF
  732. RETURN
  733.  
  734. s18:
  735. GOSUB W18
  736. IF wnum - x% > 12 THEN
  737.    PRINT name$; ", you bozo!  You selected a girly "; weapon(wnum); "."
  738. END IF
  739. IF k < 5 THEN
  740.    PRINT "Getting rid of your worthless stuff right away, eh?"
  741. END IF
  742. IF k > 15 THEN
  743.    PRINT "About time you got rid of that piece of junk!"
  744. END IF
  745. SLEEP 1
  746. GOSUB fight
  747. IF wnum > x% THEN
  748.    PRINT "You can't be serious!  A "; weapon$(wnum); " against Bill's "; weapon$(x%); "?"
  749. END IF
  750. IF wnum < x% THEN
  751.    PRINT "Ouch!  The best Bill could come up with was a "; weapon$(x%); "."
  752. END IF
  753. IF wnum = x% THEN
  754.    PRINT "Bill has matched your "; weapon$(wnum); " with his own."
  755. END IF
  756. IF x% >= wnum THEN
  757.    PRINT "Unbelievable!  That'll never happen again!"
  758. END IF
  759. RETURN
  760.  
  761. s19:
  762. GOSUB W19
  763. IF wnum - x% > 12 THEN
  764.    PRINT name$; ", you bozo!  You selected a girly "; weapon(wnum); "."
  765. END IF
  766. IF k < 5 THEN
  767.    PRINT "Getting rid of your worst stuff right away, eh?"
  768. END IF
  769. IF k > 15 THEN
  770.    PRINT "Well, it's about time you got rid of that worthless piece of junk!"
  771. END IF
  772. SLEEP 1
  773. GOSUB fight
  774. IF wnum > x% THEN
  775.    PRINT "Why bother?  A "; weapon$(wnum); " is no match for Bill's "; weapon$(x%); "?"
  776. END IF
  777. IF wnum < x% THEN
  778.    PRINT "Ouch!  The best Bill could come up with was a "; weapon$(x%); "."
  779. END IF
  780. IF wnum = x% THEN
  781.    PRINT "Oh, no.  Bill could only come up with a "; weapon$(wnum); ", too."
  782.    PRINT "Unbelievable!  That'll never happen again!"
  783. END IF
  784. RETURN
  785.  
  786. fight:
  787. PRINT ""
  788. scale$ = "BAGFEDC"            'Reverse scale
  789. PLAY "T190"
  790. PLAY "L64"                    'Set note length to 1/64
  791. SLEEP 1
  792. SCREEN 12
  793.  
  794. IF wnum = x% THEN
  795.    FOR i = 1 TO 15
  796.       CIRCLE (320, 240), 20 * i, i
  797.       LET i% = i - 1
  798.       IF i% <= 6 THEN    'Play reverse scale in 7 different octaves
  799.          PLAY "O" + STR$(i%)
  800.          PLAY "X" + VARPTR$(scale$)
  801.       END IF
  802.    NEXT i
  803. END IF
  804.  
  805. IF wnum > x% THEN
  806.    FOR i = 15 TO 1 STEP -1
  807.       CIRCLE (320, 240), 20 * i, i
  808.       FOR i% = 5 TO 1 STEP -1
  809.          PLAY "N" + STR$(i% * i)
  810.       NEXT i%
  811.    NEXT i
  812. END IF
  813.  
  814. IF x% > wnum THEN
  815.    FOR i = 1 TO 15
  816.       CIRCLE (320, 240), 20 * i, i
  817.       FOR i% = 1 TO 5
  818.          PLAY "N" + STR$(i% * i)
  819.       NEXT i%
  820.    NEXT i
  821. END IF
  822.  
  823. LOCATE 15, 12: PRINT "!@#$$%^&* WHAM!!! %$&# KAPOW!!! *&^$@%# KABLOOIE!!! #@)($^%"
  824. VIEW (0, 0)-(639, 479), 15
  825. VIEW (0, 0)-(639, 479), 0
  826. VIEW (0, 0)-(639, 479), 15
  827. VIEW (0, 0)-(639, 479), 0
  828. FOR kk = 37 TO 50             'Makes noise like tail-end of explosion
  829.    FOR kkk = 10 TO 1 STEP -1
  830.       SOUND kk * kkk, .025
  831.    NEXT kkk
  832. NEXT kk
  833. FOR kkkk = 1 TO 2
  834. FOR kk = 50 TO 37 STEP -1
  835.    FOR kkk = 1 TO 10
  836.       SOUND kk * kkk, .025
  837.    NEXT kkk
  838. NEXT kk
  839. NEXT kkkk                      'End of exploding noise
  840. GOSUB face
  841. SLEEP 1
  842. CLS
  843. ON x% GOSUB W1, W2, W3, W4, W5, W6, W7, W8, W9, W10, W11, W12, W13, W14, W15, W16, W17, W18, W19
  844. LOCATE 5, 12: PRINT USING "Bill used his &."; weapon(x%)
  845. SLEEP 1
  846. SCREEN 0
  847. COLOR 13
  848. PRINT ""
  849. SYSTEM
  850.  
  851. W1:
  852. SCREEN 12
  853. CIRCLE (280, 280), 50, 1
  854. CIRCLE (280, 280), 25, 1
  855. CIRCLE (280, 280), 5, 1
  856. DRAW "BM210,250 M+150,-50 M-10,-30 M-150,+40 M210,250"
  857. DRAW "BM355,183 M+180,-50 M-3,-12 M-180,+50"
  858. DRAW "BM532,120 M-2,-3 M+50,-12 M+5,+20 M-48,+12 M-2,-3"
  859. CIRCLE (560, 120), 5, 1
  860. DRAW "BM210,250 M-20,+50 M-100,+30 M+2,+5 M+115,-20 M+23,-38"
  861. PAINT (200, 300), 8, 1
  862. PAINT (300, 280), 8, 1
  863. PAINT (212, 248), 6, 1
  864. PAINT (380, 170), 8, 1
  865. PAINT (535, 125), 6, 1
  866. DRAW "C1 BM230,210 M+100,-28"
  867. DRAW "C1 BM235,236 M+100,-32"
  868. RETURN
  869.  
  870. W2:
  871. SCREEN 12
  872. LINE (120, 225)-(480, 255), 2, BF
  873. LINE (118, 223)-(120, 257), 2, BF
  874. LINE (480, 223)-(482, 257), 2, BF
  875. CIRCLE (310, 255), 10, 8, 3.2, 6.2
  876. CIRCLE (302, 255), 10, 8, 5.5, 6.2
  877. LINE (210, 255)-(213, 265), 6, BF
  878. LINE (250, 255)-(253, 265), 6, BF
  879. LINE (410, 255)-(415, 285), 6, BF
  880. LINE (280, 212)-(283, 225), 8, BF
  881. RETURN
  882.  
  883. W3:
  884. SCREEN 12
  885. DRAW "C1 BM220,300 M+20,-100 R180 D10 M-183,+8"
  886. DRAW "BM220,300 M+50,+5 M+7,-70 NM-3,-18 M+70,-8 U14 BD10 M+50,-3 U9"
  887. PAINT (225, 300), 6, 1
  888. REM DRAW "C1 BM225,300 M+20,-90"
  889. PAINT STEP(20, -90), 8, 1
  890. PAINT STEP(60, 20), 8, 1
  891. PAINT STEP(60, -10), 8, 1
  892. CIRCLE (285, 240), 10, 8
  893. CIRCLE (285, 240), 9, 8
  894. CIRCLE (285, 240), 8, 8, 1.5, 4
  895. CIRCLE (285, 240), 7, 8, 1.5, 4
  896. CIRCLE (285, 240), 6, 8, 1.5, 4
  897. CIRCLE (260, 294), 80, 1, 1.85, 2.1
  898. CIRCLE (190, 300), 80, 1, 1, 1.2
  899. PAINT (230, 225), 8, 1
  900. CIRCLE (262, 180), 40, 1, 3.6, 4.05
  901. CIRCLE (247, 164), 40, 1, 4.2, 4.5
  902. PAINT (233, 205), 8, 1
  903. REM LINE (400, 190)-(410, 200), 8, BF
  904. DRAW "C1 BM400,200 E5 R3 F5"
  905. PAINT (403, 198), 8, 1
  906. LINE (260, 190)-(330, 197), 1, B
  907. PAINT (261, 191), 8, 1
  908. LINE (270, 197)-(320, 199), 1, B
  909. PAINT (271, 198), 8, 1
  910. RETURN
  911.  
  912. W4:
  913. SCREEN 12
  914. DRAW "C6 BM310,250 M-160,+40 U35 M+130,-10 U5 M+30,+0 R160 D10 NM310,250 BU5 BR1"
  915. DRAW "C8 U5 R60 D5 L60"
  916. PAINT STEP(2, -2), 8, 8
  917. PAINT STEP(-5, 0), 6, 6
  918. LINE (280, 235)-(350, 240), 8, BF
  919. CIRCLE (310, 252), 10, 8, 3.2, 6.2
  920. CIRCLE (302, 252), 10, 8, 5.5, 6.2
  921. RETURN
  922.  
  923. W5:
  924. SCREEN 12
  925. DRAW "C6 BM310,250 M-160,+40 U40 M+140,-15 U5 M+20,+0 R160 D10 NM310,250 BU4 BR1"
  926. DRAW "C8 U6 R60 D6 L60"
  927. PAINT STEP(2, -2), 8, 8
  928. PAINT STEP(-5, 0), 6, 6
  929. LINE (280, 227)-(320, 235), 8, BF
  930. CIRCLE (265, 230), 15, 8, .1, .8
  931. CIRCLE (310, 252), 10, 8, 3.2, 6.2
  932. CIRCLE (302, 252), 10, 8, 5.5, 6.2
  933. RETURN
  934.  
  935. W6:
  936. SCREEN 12
  937. DRAW "C1 BM220,300 M+20,-100 R160 D10 M-163,+8"
  938. DRAW "BM220,300 M+50,+5 M+7,-70 NM-3,-18 M+70,-8 U14 BD10 M+50,-3 U9"
  939. PAINT (225, 300), 6, 1
  940. REM DRAW "C1 BM225,300 M+20,-90"
  941. PAINT STEP(20, -90), 8, 1
  942. PAINT STEP(60, 20), 8, 1
  943. PAINT STEP(60, -10), 8, 1
  944. CIRCLE (285, 240), 10, 8
  945. CIRCLE (285, 240), 9, 8
  946. CIRCLE (285, 240), 8, 8, 1.5, 4
  947. CIRCLE (285, 240), 7, 8, 1.5, 4
  948. CIRCLE (285, 240), 6, 8, 1.5, 4
  949. CIRCLE (260, 294), 80, 1, 1.85, 2.1
  950. CIRCLE (190, 300), 80, 1, 1, 1.2
  951. PAINT (230, 225), 8, 1
  952. CIRCLE (262, 180), 40, 1, 3.6, 4.05
  953. CIRCLE (247, 164), 40, 1, 4.2, 4.5
  954. PAINT (233, 205), 8, 1
  955. RETURN
  956.  
  957. W7:
  958. SCREEN 12
  959. DRAW "BM-150,-20"
  960. CIRCLE STEP(0, 0), 30, 1, 3.05, 6.25
  961. CIRCLE STEP(-8, 0), 20, 1, 2.95, 6.28, .75
  962. DRAW "BM-40,-4"
  963. DRAW "M+400,+18"
  964. DRAW "M-320,-23"
  965. DRAW "M-80,-2"
  966. DRAW "D7"
  967. PAINT STEP(10, -3), 7, 1
  968. PAINT STEP(60, 25), 4, 1
  969. DRAW "BM+8,-16"
  970. DRAW "C1 U10"
  971. PAINT STEP(-5, 5), 4, 1
  972. RETURN
  973.  
  974. W8:
  975. SCREEN 12
  976. CIRCLE (320, 300), 120, 1, .9, 3.15
  977. CIRCLE (330, 320), 130, 1, 1.05, 3
  978. DRAW "BM380,400 NM-110,-210 M365,407"
  979. DRAW "M365,407 M-100,-215 M+8,-2"
  980. PAINT (370, 390), 6, 1
  981. PAINT STEP(-100, -190), 8, 1
  982. PAINT STEP(-10, 5), 8, 1
  983. PAINT STEP(20, -10), 8, 1
  984. RETURN
  985.  
  986. W9:
  987. SCREEN 12
  988. LINE (180, 225)-(300, 255), 5, BF
  989. LINE (175, 222)-(180, 258), 5, BF
  990. LINE (300, 219)-(305, 261), 5, BF
  991. LET x = 180
  992. FOR n = 1 TO 23
  993.    x = x + 5
  994.    LINE (x, 230)-(x, 250), 0
  995. NEXT n
  996. DRAW "C8 BM305,240 NR185 D15 R140 BU30 L140 D15"
  997. CIRCLE (435, 156), 100, 8, 4.81, 5.3
  998. CIRCLE (435, 324), 100, 8, 1, 1.47
  999. PAINT (310, 245), 7, 8
  1000. PAINT (310, 235), 7, 8
  1001. RETURN
  1002.  
  1003. W10:
  1004. SCREEN 12
  1005. LINE (200, 230)-(300, 250), 4, BF
  1006. LINE (300, 225)-(305, 255), 4, BF
  1007. DRAW "C8 BM305,230 NR155 D20 R100"
  1008. CIRCLE (400, 150), 100, 8, 4.7, 5.35
  1009. PAINT (310, 240), 7, 8
  1010. RETURN
  1011.  
  1012. W11:
  1013. SCREEN 12
  1014. DRAW "BM-150,-30"
  1015. CIRCLE STEP(0, 0), 25, 1
  1016. CIRCLE STEP(0, 0), 15, 1
  1017. PAINT STEP(0, 20), 4, 1
  1018. DRAW "BD40"
  1019. CIRCLE STEP(0, 0), 25, 1
  1020. CIRCLE STEP(0, 0), 15, 1
  1021. PAINT STEP(20, 0), 4, 1
  1022. DRAW "BF5 C1 M+280,-80"
  1023. DRAW "M-40,-5"
  1024. DRAW "M-241,+70"
  1025. DRAW "BU55 M+280,+80"
  1026. DRAW "M-40,+5"
  1027. DRAW "M-241,-70"
  1028. DRAW "BM+95,+20"
  1029. CIRCLE STEP(0, 0), 4, 1
  1030. PAINT STEP(0, 0), 7, 1
  1031. PAINT STEP(-10, 0), 1, 1
  1032. PAINT STEP(-10, -5), 4, 1
  1033. REM DRAW "M+0,+15"
  1034. PAINT STEP(0, 15), 4, 1
  1035. PAINT STEP(80, 0), 7, 1
  1036. PAINT STEP(0, -30), 7, 1
  1037. RETURN
  1038.  
  1039. W12:
  1040. SCREEN 12
  1041. REM DRAW "BM-40,+10"
  1042. LINE (180, 220)-(260, 240), 1, B
  1043. PAINT STEP(-1, -1), 14, 1
  1044. LINE (180, 225)-(260, 230), 1, B
  1045. LINE (180, 230)-(260, 235), 1, B
  1046. CIRCLE (180, 230), 10, 1, 1.6, 4.65
  1047. PAINT STEP(-5, 0), 1, 1
  1048. DRAW "BM260,227"
  1049. DRAW "C1 M+150,-3"
  1050. DRAW "M+18,+3"
  1051. DRAW "D6"
  1052. DRAW "M-18,+3"
  1053. DRAW "M-150,-3"
  1054. PAINT STEP(2, -2), 8, 1
  1055. RETURN
  1056.  
  1057. W13:
  1058. SCREEN 12
  1059. LINE (150, 300)-(190, 320), 1, B
  1060. PAINT (151, 301), 6, 1
  1061. DRAW "BM150,300"
  1062. DRAW "C1 M+300,-50"
  1063. DRAW "R40"
  1064. DRAW "C1 ND20"
  1065. DRAW "M-300,+50"
  1066. DRAW "BM190,320"
  1067. DRAW "M+300,-50"
  1068. PAINT STEP(-10, -3), 6, 1
  1069. REM DRAW "C1 M-30,-13"
  1070. PAINT STEP(-30, -13), 6, 1
  1071. RETURN
  1072.  
  1073. W14:
  1074. SCREEN 12
  1075. CIRCLE (359, 200), 100, 8, 3, 3.45
  1076. CIRCLE (360, 200), 100, 8, 3, 3.45
  1077. CIRCLE (361, 200), 100, 8, 3, 3.45
  1078. LINE (200, 200)-(230, 280), 6, BF
  1079. LINE (230, 200)-(450, 215), 6, BF
  1080. CIRCLE (260, 208), 2, 8
  1081. LINE (441, 190)-(444, 200), 8, BF
  1082. CIRCLE (253, 194), 4, 8
  1083. PAINT (253, 194), 8, 8
  1084. LINE (248, 193)-(444, 195), 4, BF
  1085. RETURN
  1086.  
  1087. W15:
  1088. SCREEN 12
  1089. LINE (200, 220)-(400, 260), 7, BF
  1090. LINE (340, 215)-(360, 220), 5, BF
  1091. DRAW "C1 BM400,240 M+0,-28 M+40,+3 M+0,+50 M-40,+3 M+0,-28"
  1092. PAINT STEP(10, 1), 8, 1
  1093. DRAW "C14 BM440,240 M+0,-20 M+180,-40 M+0,+120 M-180,-40 M+0,-20"
  1094. PAINT STEP(10, 1), 14, 14
  1095. LINE (210, 240)-(390, 240), 1
  1096. LINE (210, 230)-(390, 230), 1
  1097. LINE (210, 250)-(390, 250), 1
  1098. RETURN
  1099.  
  1100. W16:
  1101. SCREEN 12
  1102. CIRCLE (320, 240), 60, 1
  1103. CIRCLE (305, 240), 35, 1
  1104. PAINT STEP(0, 0), 15, 1
  1105. CIRCLE (300, 233), 7, 0
  1106. CIRCLE (300, 247), 7, 0
  1107. CIRCLE (300, 233), 6, 0
  1108. CIRCLE (300, 247), 6, 0
  1109. CIRCLE (300, 233), 5, 0
  1110. CIRCLE (300, 247), 5, 0
  1111. CIRCLE (300, 233), 4, 0
  1112. CIRCLE (300, 247), 4, 0
  1113. LINE (150, 100)-(500, 400), 1, B
  1114. PAINT STEP(-1, -1), 8, 1
  1115. RETURN
  1116.  
  1117. W17:
  1118. SCREEN 12
  1119. LINE (150, 235)-(380, 245), 14, BF
  1120. CIRCLE (434, 240), 5, 2, 2, 4
  1121. CIRCLE (438, 240), 5, 2, 2, 4
  1122. CIRCLE (442, 240), 5, 2, 2, 4
  1123. CIRCLE (446, 240), 5, 2, 2, 4
  1124. CIRCLE (450, 240), 5, 2
  1125. PAINT STEP(0, 0), 2, 2
  1126. REM LINE (385, 240)-(420, 240), 2, BF
  1127. DRAW "BM385,240"
  1128. DRAW "C2 NM+35,-3"
  1129. DRAW "C2 NM+35,3"
  1130. RETURN
  1131.  
  1132. W18:
  1133. SCREEN 12
  1134. DRAW "C4 BM280,200 M+20,+150 R40 M+20,-150 L80"
  1135. PAINT STEP(1, 1), 15, 4
  1136. LINE (286, 240)-(354, 250), 4, BF
  1137. LINE (292, 280)-(348, 290), 4, BF
  1138. CIRCLE (320, 200), 38, 4, 0, 3.13
  1139. PAINT (320, 195), 12, 4
  1140. DRAW "C12 BM345,173 M+15,-70 M+5,+1 M-15,+72"
  1141. PAINT (346, 172), 15, 12
  1142. RETURN
  1143.  
  1144. W19:
  1145. SCREEN 12
  1146. CIRCLE (220, 240), 40, 8, , , 2
  1147. PAINT (220, 240), 6, 8
  1148. CIRCLE (220, 240), 30, 15, , , 2
  1149. CIRCLE (220, 240), 20, 15, , , 2
  1150. CIRCLE (220, 240), 10, 15, , , 2
  1151. PAINT (220, 240), 15, 15
  1152. CIRCLE (380, 240), 40, 8, 4.7, 1.52, 2
  1153. DRAW "C8 BM220,200 R160 BD80 L160"
  1154. PAINT (380, 240), 6, 8
  1155. RETURN
  1156.  
  1157.  
  1158.