Softdisk G-S 140/SGDS 140.2mg/SDGS.140/B/MANOR.2

Applesoft BASIC Source Code | 1993-03-23 | 9.8 KB | 240 lines | [FC] Applesoft BASIC Program (0x0801)

10  HOME
20  REM  *----------------------*
30  REM  *---                ---*
40  REM  *---CROSSROADS MANOR---*
50  REM  *---                ---*
60  REM  *---   "solution"   ---*
70  REM  *---                ---*
80  REM  *----------------------*
90  REM
100  DIM HT$(23),LT(23)
110  REM
120  REM  *ACCESS 80-COLUMN*
130  REM
140  PRINT  CHR$(4);"PR#3"
150  REM
160  GOSUB 1730: GOSUB 260: GOSUB 1490
170  GOSUB 1730: GOSUB 470: GOSUB 1490
180  GOSUB 1730: GOSUB 680: GOSUB 1490
190  GOSUB 1730: GOSUB 870: GOSUB 1490
200  GOSUB 1730: GOSUB 1070: GOSUB 1490
210  GOSUB 1730: GOSUB 1260: GOSUB 1820
220  VTAB (22): PRINT "{ SPACE } = Repeat            >>- END -<<            { ESCAPE } = Quit";
230  GOSUB 1670
240  IF GG = 27  THEN  HOME : PRINT : PRINT  CHR$(4);"BYE"
250  GOTO 160
260 HT = 20
270  REM
280 HT$(1) = "                  THE INCIDENT AT CROSSROADS MANOR                 "
290 HT$(2) = "                            < solution >"
300 HT$(4) = "Jonathan Sumner was seen alive by several people during the previous"
310 HT$(5) = "afternoon; he was heard practicing with his shotgun at the skeet range"
320 HT$(6) = "for a half-hour during the late afternoon; he apparently consumed the"
330 HT$(7) = "contents of a dinner tray left outside his room at 6:35 PM; he talked"
340 HT$(8) = "on the phone to James Simpson at 8:00 PM and to Max Faraday at about"
350 HT$(9) = "11:00 PM.  A shotgun blast was then heard by most of the staff at 7:00"
360 HT$(10) = "AM, shortly after which the body of Jonathan Sumner and the murder wea-"
370 HT$(11) = "pon were discovered in the ballroom, along with a lingering smell of"
380 HT$(12) = "burned gunpowder.  It would seem that the only step necessary in deter-"
390 HT$(13) = "mining the Killer's identity would be to find out who was available to"
400 HT$(14) = "commit this 7:00 AM murder.  Unfortunately, this would include most of"
410 HT$(15) = "the staff."
420 HT$(17) = "Fortunately, a close examination of the evidence will prove that Jona-"
430 HT$(18) = "than Sumner could NOT have died in the ballroom.  Therefore, he could"
440 HT$(19) = "not have been killed by the shotgun blast that was heard at 7:00 AM."
450  RETURN
460  REM
470 HT = 20
480  REM
490 HT$(1) = "                                 - 2 -                                 "
500 HT$(3) = "The first, and most singularly significant, piece of evidence to consid-"
510 HT$(4) = "er is the pattern of wounds on the body.  Sumner was clearly killed by"
520 HT$(5) = "a shotgun blast, the gun being of sufficient distance from him to allow"
530 HT$(6) = "the buckshot to spread and cover an area from his forehead to his hips."
540 HT$(7) = "If the pellets could spread enough to cover a vertical area of this"
550 HT$(8) = "distance, they would spread a similar distance HORIZONTALLY -- allowing"
560 HT$(9) = "some of the pellets to go past Sumner and embed themselves in the wall"
570 HT$(10) = "of the ballroom, or in the hallway outside the door if the weapon had"
580 HT$(11) = "been pointed that way.  Nothing like this was found by the police.  The"
590 HT$(12) = "walls were devoid of any unusual marks.  Therefore, the shotgun pellets"
600 HT$(13) = "that flew past Jonathan Sumner at the moment of his death had no ball-"
610 HT$(14) = "room walls to obstruct their flight."
620 HT$(16) = "The next bit of evidence to be examined is the blood found at the scene."
630 HT$(17) = "The blood was spattered to the floor in a manner that would be consis-"
640 HT$(18) = "tent with a living body being struck by multiple projectiles.  However,"
650 HT$(19) = "the fact that these spatterings of blood formed a clear outline of the"
660  RETURN
670  REM
680 HT = 20
690  REM
700 HT$(1) = "                                 - 3 -                                 "
710 HT$(3) = "body when the body was removed proves that the blood was spattered on"
720 HT$(4) = "the floor AFTER the body was already lying in place and could not have"
730 HT$(5) = "come when the wounds were originally made."
740 HT$(7) = "Therefore, the inappropriately spattered blood and the lack of buckshot"
750 HT$(8) = "pellets in the wall of the ballroom, prove that Sumner had been killed"
760 HT$(9) = "someplace other than the ballroom, obviously earlier, and the body"
770 HT$(10) = "placed in the ballroom to be discovered in the early morning hours."
780 HT$(12) = "But if Jonathan Sumner was not killed at 7:00 AM in the ballroom, where"
790 HT$(13) = "and when was he killed?"
800 HT$(15) = "The only time prior to 7:00 AM that a shotgun had been heard was when"
810 HT$(16) = "Sumner was practicing his skeet shooting between 5:00 PM and 5:30 PM"
820 HT$(17) = "the previous afternoon.  Since he was actually seen alive not long be-"
830 HT$(18) = "fore that, this is the only time his death could have occurred -- and"
840 HT$(19) = "the place of his death had to be the skeet-shooting range."
850  RETURN
860  REM
870 HT = 20
880  REM
890 HT$(1) = "                                 - 4 -                                 "
900 HT$(3) = "Any evidence leading one to believe that Jonathan Sumner was alive fol-"
910 HT$(4) = "lowing 5:30 PM the previous afternoon would have to be evidence that"
920 HT$(5) = "was specifically manufactured for that purpose by the Killer."
930 HT$(7) = "It is only necessary now to determine whose whereabouts can be verified"
940 HT$(8) = "during the half-hour skeet-shooting session of the previous day.  Ted"
950 HT$(9) = "Dunbar and Max Faraday were together in Pleasantville during this en-"
960 HT$(10) = "tire time.  Steven Monroe and Clyde Augger were together cooking the"
970 HT$(11) = "evening meal.  Felix Flange and Kenneth Mason were together drinking"
980 HT$(12) = "lemonade."
990 HT$(14) = "The only two people whose whereabouts cannot be independently verified"
1000 HT$(15) = "at the time of the killing are James Simpson and Joe MacDougall.  Simp-"
1010 HT$(16) = "son claims to have been resting in his room.  MacDougall claims to have"
1020 HT$(17) = "been searching for a new mower blade in the machine shop.  But Sumner's"
1030 HT$(18) = "Killer had to accomplish a few other things besides being available to"
1040 HT$(19) = "commit the murder.  The Killer had to have a previously existing wound"
1050  RETURN
1060  REM
1070 HT = 19
1080  REM
1090 HT$(1) = "                                 - 5 -                                 "
1100 HT$(3) = "on his body; the Killer had to leave the dinner table early; the Killer"
1110 HT$(4) = "couldn't be encumbered with the presence of a room-mate.  The Killer"
1120 HT$(5) = "could only be James Simpson."
1130 HT$(7) = "                    HOW THE CRIME WAS ACCOMPLISHED"
1140 HT$(9) = "James Simpson deliberately cut his wrist in order to have a ready"
1150 HT$(10) = "source of blood the next morning.  He had himself treated by the doctor"
1160 HT$(11) = "so the presence of the wound would be known to the others and wouldn't"
1170 HT$(12) = "be discovered for the first time the next day and be considered suspi-"
1180 HT$(13) = "cious.  After leaving the doctor's room, he went to the skeet-shooting"
1190 HT$(14) = "range and watched Sumner practice until nearly 5:30 PM.  He had to al-"
1200 HT$(15) = "low the shooting session to last its normal length of time.  He then"
1210 HT$(16) = "gained possession of the weapon, either by subterfuge or force, and"
1220 HT$(17) = "shot Jonathan Sumner.  He quickly took the body into Sumner's room"
1230 HT$(18) = "through the nearby private entrance and kept it there."
1240  RETURN
1250  REM
1260 HT = 20
1270  REM
1280 HT$(1) = "                                 - 6 -                                 "
1290 HT$(3) = "He feigned illness at the dinner table -- another purpose of the self-"
1300 HT$(4) = "inflicted cut -- in order to leave the table early and empty the food"
1310 HT$(5) = "tray that had been left outside Sumner's door.  The only other suspect,"
1320 HT$(6) = "MacDougall, was still in the dining room looking for a second helping"
1330 HT$(7) = "of dessert after Augger had picked up the empty tray.  Simpson stayed"
1340 HT$(8) = "in Sumner's room, playing the TV set softly and responding with a gar-"
1350 HT$(9) = "bled voice to Faraday's 11:00 PM phone call.  He simply lied about mak-"
1360 HT$(10) = "ing an 8:00 PM call to Sumner himself."
1370 HT$(12) = "He slept a bit, but was sure to be awake shortly before six the follow-"
1380 HT$(13) = "ing morning.  He took Sumner's body and shotgun to the ballroom.  He"
1390 HT$(14) = "placed the body on the floor, re-opened his wrist wound and spattered"
1400 HT$(15) = "the body and floor with fresh blood.  Then, in order to give the im-"
1410 HT$(16) = "pression that the killing had just taken place and establish the smell"
1420 HT$(17) = "of burned gunpowder in the room, he fired the shotgun upward through"
1430 HT$(18) = "the open skylight.  Placing the gun on the floor, he hurried to his own"
1440 HT$(19) = "room in order to join the others later in the discovering of the body."
1450  RETURN
1460  REM
1470  REM  *PRINT AND POST PRINT*
1480  REM
1490  GOSUB 1820: GOSUB 1570: GOSUB 1670
1500  REM
1510  REM  *MAKE CLICK*
1520  REM
1530  FOR AB = 1 TO 4:BU =  PEEK(49200): NEXT : RETURN
1540  REM
1550  REM  *FLIP INSTRUCTION*
1560  REM
1570  VTAB (VV): POKE 36,H +ZZ -41: PRINT "{ Press <SPACE> For More, <ESC> To Quit }": RETURN
1580  RETURN
1590  REM
1600  REM  *CHOICE INSTRUCTION*
1610  REM
1620  VTAB (VV): POKE 36,H +ZZ -23: PRINT "{ END - Press <SPACE> }"
1630  RETURN
1640  REM
1650  REM  *KEY INPUT*
1660  REM
1670  POKE 49168,0: VTAB (VV): POKE 36,H +ZZ +1: GET A$
1680 GG =  PEEK(49152): IF GG = 27  THEN  HOME : PRINT : PRINT  CHR$(4);"BYE"
1690  RETURN
1700  REM
1710  REM  *NULL STUFF*
1720  REM
1730  FOR Q = 1 TO 23
1740 HT$(Q) = ""
1750 LT(Q) = 0
1760  NEXT
1770 ZZ = 0
1780  RETURN
1790  REM
1800  REM  *BOX PRINTING ROUTINE*
1810  REM
1820  HOME : PRINT :HT = HT +3
1830  REM
1840  REM  *MEASURE LENGTH OF
1850  REM        LONGEST LINE*
1860  REM
1870  FOR Q = 1 TO HT
1880 LT(Q) =  LEN(HT$(Q))
1890  IF LT(Q) >ZZ  THEN ZZ = LT(Q)
1900  NEXT
1910  REM  *FIND UPPER LEFT
1920  REM   80-COLUMN START*
1930  REM
1940 V =  INT(13 -(HT/2))
1950 H =  INT(39 -(ZZ/2))
1960  REM
1970  REM  *MEASURE FOR INSTRUCTION*
1980  REM
1990 VV = V +(HT -2)
2000 HH = ZZ -20
2010  REM
2020  REM  *DRAW HORIZONTAL
2030  REM      TOP & BOTTOM*
2040  REM
2050  FOR Q = V TO (V +HT)  STEP HT -1
2060  FOR Z = (H -1) TO (H +ZZ +4)
2070  VTAB (Q): POKE 1403,(Z -1): PRINT "";
2080  NEXT Z: NEXT Q
2090  REM
2100  REM  *DRAW VERTICAL SIDES*
2110  REM
2120  FOR Q = V +1 TO (V +HT -2)
2130  VTAB (Q): POKE 1403,(H -2): PRINT "|";: POKE 1403,(H +ZZ +2): PRINT "|";
2140  NEXT
2150  REM
2160  REM  *PRINT CONTENTS
2170  REM           OF BOX*
2180  REM
2190 Z = 1
2200  GOSUB 1530: REM  - CLICK
2210  FOR Q = (V +1) TO (V +HT -1)
2220  VTAB (Q): POKE 1403,(H +1): PRINT HT$(Z);
2230 Z = Z +1
2240  NEXT
2250  GOSUB 1530: REM  - CLICK
2260  RETURN
2270  REM
2280  REM  *END OF PRINTING ROUTINE*
2290  REM
2300  REM  --------------------
2310  REM
2320  REM   SAMUEL W. DAVIS
2330  REM   2341 MCCOIG AVENUE
2340  REM   LAS VEGAS, NEVADA
2350  REM   89119
2360  REM
2370  REM   1-702-736-0072
2380  REM
2390  REM  --------------------
2400  REM