home *** CD-ROM | disk | FTP | other *** search
- to "poly :d :a
- forward :d
- right :a
- poly :d :a
- end
-
- to "mystery
- CLEARTEXT
- SPACE 5
- PR [The list of suspects:]
- SPACE 2
- PR [John]
- PR [Harry]
- PR [Martha]
- PR [Clyde]
- PR [George]
- SPACE 1
- PR [Press "s" if you think you have the]
- PR [crime solved.]
- PR [Press "q" to question the suspects.]
- MAKE "COM RQ
- IF :COM = "s [CRIMESOLVED]
- IF :COM = "q [QUESTION]
- end
-
- to "question
- CT
- SPACE 3
- PR [Who do you want to question?]
- MAKE "COM RQ
- IF :COM = "j [John]
- IF :COM = "g [George]
- IF :COM = "m [Martha]
- IF :COM = "c [Clyde]
- IF :COM = "h [Harry]
- end
-
- to "check
- MAKE "T ( 1 + INTEGER RANDOM 6 )
- IF :T = 0 [MAKE "T 12]
- end
-
- to "start
- CLEARTEXT
- SPACE 5
- SPACE 5
- PR [Thomas Magnum was killed at]
- PR "
- CHECK
- PRINT SE [the following time: ] WORD :T [ o'clock.]
- WAIT 10
- MYSTERY
- end
-
- to "crimesolved
- CLEARTEXT
- SPACE 5
- PR [0 = Martha]
- PR [1 = George]
- PR [2 = Clyde]
- PR [3 = Harry]
- PR [4 = John]
- PR [Well, smart guy, who dunnit?]
- MAKE "COM RQ
- IF :COM = :T [SOLVED STOP]
- STUPID
- end
-
- to "solved
- CLEARTEXT
- SPACE 5
- PR [You solved the crime!]
- PR [Congratulations. You advance to the Pros!]
- SPACE 2
- PR [Want to solve another crime?]
- IF RQ = "Y [START] [TOPLEVEL STOP]
- end
-
- to "stupid
- CLEARTEXT
- SPACE 5
- PR [You are a lousy Private Eye!]
- IF :T = 0 [PR [Martha dunnit!] TOPLEVEL ]
- IF :T = 1 [PR [George dunnit!] TOPLEVEL ]
- IF :T = 2 [PR [Clyde dunnit!] TOPLEVEL ]
- IF :T = 3 [PR [Harry dunnit!] TOPLEVEL ]
- IF :T = 4 [PR [John dunnit!] TOPLEVEL ]
- end
-
- to "dick
- CLEARTEXT
- SPACE 5
- PR [12:00 In bedroom sleeping..]
- PR [1:00 ?]
- PR [1:30 Eating in kitchen.]
- PR [2:30 Helping Martha clean.]
- PR [3:00 Playing games in the arcade.]
- PR [6:00 Thomas was dead, everybody left.]
- PR [Press any key:]
- IGNORE RC
- MYSTERY
- end
-
- to "clyde
- CLEARTEXT
- SPACE 5
- PR [12:00 In the lounge.]
- PR [1:00 Eating in kitchen.]
- PR [2:00 ?]
- PR [2:30 Playing games in the arcade.]
- PR [6:00 Thomas was dead, everybody left.]
- PR [Press any key:]
- IGNORE RC
- MYSTERY
- end
-
- to "martha
- CLEARTEXT
- SPACE 5
- PR [12:00 ?]
- PR [12:30 Preparing lunch.]
- PR [1:00 in kitchen eating.]
- PR [2:00 cleaning up.]
- PR [3:00 resting in bedroom.]
- PR [5:00 in the TV room.]
- PR [6:00 Thomas was dead, everybody left.]
- PR [Press any key:]
- IGNORE RC
- MYSTERY
- end
-
- to "harry
- CLEARTEXT
- SPACE 5
- PR [12:00 in lounge with John.]
- PR [1:00 in the kitchen eating.]
- PR [2:00 watching TV.]
- PR [3:00 ?]
- PR [3:30 in the arcade.]
- PR [6:00 Thomas was dead, everybody left.]
- PR [Press any key:]
- IGNORE RC
- MYSTERY
- end
-
- to "john
- CLEARTEXT
- SPACE 5
- PR [12:00 in lounge.]
- PR [1:00 in kitchen eating.]
- PR [2:30 playing cards in the den.]
- PR [4:00 blinking mad at my losses.]
- PR [5:00 ?]
- PR [6:00 Thomas was dead, everybody left.]
- PR [Press any key:]
- IGNORE RC
- MYSTERY
- end
-
- to "pr :LIST
- PRINT :LIST
- end
-
- to "space :SIZE
- REPEAT :SIZE [PR []]
- end
-
- to "wait :TIME
- IF :TIME = 0 STOP
- MAKE "TIME :TIME - 1
- WAIT :TIME
- end
-
- to "ignore :KEY
- end
-
- to "george
- CLEARTEXT
- SPACE 5
- PR [12:00 In bedroom sleeping..]
- PR [1:00 ?]
- PR [1:30 Eating in kitchen.]
- PR [2:30 Helping Martha clean.]
- PR [3:00 Playing games in the arcade.]
- PR [6:00 Thomas was dead, everybody left.]
- PR [Press any key:]
- IGNORE RC
- MYSTERY
- end
-
- make "t "'2
- ames in the arcade.]
- PR [6:0