Notes

Disk info for 370a_The_Phrase_That_Pays.dsk:

File Name: 3d0g_370a_The_Phrase_That_Pays/370a_The_Phrase_That_Pays.dsk
Disk Name: DISK VOLUME #254
Physical Size (bytes): 143360
Free Space (bytes): 5376
Used Space (bytes): 137984
Physical Size (KB): 140
Free Space (KB): 5
Used Space (KB): 134
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 21
Used Sectors: 539
Tracks On Disk: 35
Sectors On Disk: 16

Disk directory for 370a_The_Phrase_That_Pays.dsk:

3d0g_370a_The_Phrase_That_Pays/370a_The_Phrase_That_Pays.dsk DISK VOLUME #254
T 004 ABOUT.THE PHRASE THAT PAYS
A 051 THE PHRASE THAT PAYS
B 007 Q & D HIRES STRINGS
T 046 PHRASE MAKER.DATA
B 026 PHRASE MAKER.BDATA
T 005 PHRASE HISTORY
T 013 PHRASE.INSTRUCTIONS
* A 003 HELLO-C
* S 158 SERPENT.CODE
* B 042 SERPENTINE
* B 137 SPY'S DEMISE
DOS 3.3 format; 5,376 bytes free; 137,984 bytes used.

Text found in 370a_The_Phrase_That_Pays.dsk/ABOUT.THE PHRASE THAT PAYS.txt:


THE PHRASE THAT PAYS

WRITTEN BY: Henry Heatwole

Henry Heatwole has supplied us with
the lead programs for both Side 1 and
Side 3 this month.

THE PHRASE THAT PAYS is more fun,
although a lot less lucrative, than
Wheel of Fortune; and you won't have
to worry about stage fright.

It's a word-oriented game for two or
three players, although you can play
solitaire by answering for two players.

This one's brought us hours of fun
in testing and we think you'll love it
too!

Files Used:
THE PHRASE THAT PAYS
PHRASE MAKER.DATA
PHRASE MAKER.BDATA
PHRASE HISTORY
PHRASE.INSTRUCTIONS
Q & D HIRES STRINGS
QT
!

Text found in 370a_The_Phrase_That_Pays.dsk/HELLO-C.bas:

10 HOME
20 PRINT : PRINT "CHOOSE ONE:"
30 PRINT : PRINT "1. THE PHRASE THAT PAYS"
40 PRINT : PRINT "2. SERPENTINE"
50 PRINT : PRINT "3. SPY'S DEMISE"
60 PRINT : PRINT "4. EXIT TO BASIC"
70 VTAB 2: HTAB 13: GET RE$
75 PRINT
80 IF RE$ <"1" OR RE$ >"4" THEN PRINT "": GOTO 10
90 ON VAL(RE$) GOTO 110,120,130,140
100 END
110 PRINT CHR$(4)"RUNTHE PHRASE THAT PAYS"
115 END
120 PRINT CHR$(4)"BRUNSERPENTINE"
125 END
130 PRINT CHR$(4)"BRUNSPY'S DEMISE"
135 END
140 HOME
142 PRINT CHR$(4)"CATALOG"
145 NEW : END

Text found in 370a_The_Phrase_That_Pays.dsk/PHRASE HISTORY.txt:

206
1
2
3
4
5
6
226
213
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
208
227
27
28
29
211
210
32
33
34
35
36
37
38
209
40
41
42
43
44
45
46
47
231
49
50
51
52
243
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
248
70
233
72
73
74
75
76
77
228
79
80
81
82
83
84
85
86
87
88
89
90
91
92
246
218
95
96
97
98
99
100
101
102
103
104
105
106
216
108
225
110
111
112
113
114
115
116
117
118
119
120
121
247
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
241
230
140
141
229
143
221
145
146
147
238
149
150
151
215
153
154
155
156
217
234
214
160
161
245
163
164
165
166
167
168
237
170
171
172
173
174
175
242
177
178
179
244
181
182
183
184
185
186
187
188
222
190
191
192
193
194
195
220
197
212
232
200
201
202
203
204
205
206
213
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
247
245
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250

Text found in 370a_The_Phrase_That_Pays.dsk/PHRASE MAKER.DATA.txt:

250
THING
2
"A BUMP"
"ON A LOG"
FOOD
2
"A HEAD"
"OF LETTUCE"
PHRASE
2
"A SENSE"
"OF HUMOR"
BIG CHILL
2
ABSOLUTE
ZERO

PLANT
3
"AMERICAN"
"BEAUTY"
"ROSE"
EXPRESSION
3
"AROUND"
"ROBIN HOOD'S"
"BARN"
TORT
3
ASSAULT
AND
BATTERY
ATTERY"
FOOD
2
"BAKED"
"ALASKA"
NOTICE
3
"BATTERY"
"NOT"
"INCLUDED"
EVENT
3
"BATTLE"
"OF"
"HASTINGS"
REQUEST
2
"BE MY"
"VALENTINE"
MUSIC
3
BEETHOVEN'S
FIFTH
SYMPHONY

"SYMPHONYEVENT
2
"BIRTHDAY"
"PARTY"
PERSON
2
"BLEEDING-HEART"
"LIBERAL"
PHRASE
3
"BULK"
"RATE"
"POSTAGE"
PHRASE
2
"BURDEN"
"OF PROOF"
FOOD
3
"CAMPBELL'S"
"TOMATO"
"SOUP"
PLACE
2
"CAPE OF"
"GOOD HOPE"
THING
2
"CHECKING"
"ACCOUNT"
PLACE
2
"CHINESE"
"RESTAURANT"
POLITICAL ACTION
2
CIVIL
DISOBEDIENCE
OCCUPATION
2
CIVIL
ENGINEER
ARTIFACT
2
COMMUNICATIONS
SATELLITE
TE"
TRAUMA
2
COMPOUND
FRACTURE
E"
PHRASE
2
"COMPUTER"
"LITERACY"
PLACE
2
"CONCENTRATION"
"CAMP"
PHRASE
3
"CONFLICT"
"OF"
"INTEREST"
FOOD
3
"CORN"
"ON THE"
"COB"
FOOD
3
"CORNED BEEF"
"AND"
"CABBAGE"
PHRASE
3
"DAYLIGHT"
"SAVING"
"TIME"
PHRASE
2
"DEFENSE"
"SPENDING"
AGENCY
3
DEPARTMENT
OF
COMMERCE
ERCE"
PHRASE
3
"DIAMOND"
"IN THE"
"ROUGH"
ADVICE
3
DON'T TAKE
ANY WOODEN
NICKELS
KELS"
PHRASE
2
"DOUBLE"
"CROSS"
LUCKY ONE
2
DOUBLE
DIPPER

DOCUMENT
3
ENVIRONMENTAL
IMPACT
STATEMENT
T"
THING
2
"EXPENSE"
"ACCOUNT"
SPECIALTY
3
"EYE, EAR,"
NOSE AND
THROAT

PERSON
2
"FAIR-WEATHER"
"FRIEND"
THING
3
"FIRST"
"NATIONAL"
"BANK"
LIQUID
3
FLUORIDATED
DRINKING
WATER
ATER"
NOTICE
3
"FOR SALE"
"OR RENT"
"BY OWNER"
PHRASE
3
"FREEDOM"
"OF"
"CHOICE"
ARTIFACT
3
"GEORGE"
"WASHINGTON"
"BRIDGE"
FOOD
3
"GIRL"
"SCOUT"
"COOKIES"
EVENT
3
GOLDEN
WEDDING
ANNIVERSARY
PHRASE
2
"GRANDFATHER"
"CLAUSE"
ARTIFACT
2
"GRANDFATHER"
"CLOCK"
THING
2
"HALLEY'S"
"COMET"
PLANT
2
"HARDY"
"PERENNIAL"
PHRASE
2
"HAVE"
"A HEART"
PLACE
2
"HAWAIIAN"
"ISLANDS"
PLACE
3
"HOLLYWOOD"
"AND"
"VINE"
PERSON
2
"HOMICIDAL"
"MANIAC"
PHRASE
3
"HOOK,"
"LINE,"
"AND SINKER"
ANIMAL
3
HORSE OF A
DIFFERENT
COLOR
OLOR"
ARTIFACT
2
"HUMMINGBIRD"
"FEEDER"
THING
2
"HUNDRED-WATT"
"BULB"
TITLE
2
"IF I HAD"
"MY WAY"
PHRASE
2
"INDUSTRIAL"
"STRENGTH"
PHRASE
2
"INTELLECTUAL"
"CURIOSITY"
AGENCY
3
INTERNAL
REVENUE
SERVICE
VICE"
PEST
2
JAPANESE
BEETLE
ETLE"
PUBLIC BUILDING
2
"JEFFERSON"
"MEMORIAL"
THING
2
"JIGSAW"
"PUZZLE"
ORGANIZATION
3
JUNIOR
CHAMBER
OF COMMERCE
PERSON
2
"JUVENILE"
"DELINQUENT"
NOTICE
2
"KEEP OFF"
"THE GRASS"
PLANT
2
"KENTUCKY"
"BLUEGRASS"
TITLE
3
"KING"
"OF THE"
"ROAD"
THING
3
"KITTY"
"LITTER"
"BOX"
PLANT
2
"LADYSLIPPER"
"ORCHID"
PEOPLE
3
"LAUREL"
"AND"
"HARDY"
STRUCTURE
3
"LEANING"
"TOWER"
"OF PISA"
PHRASE
3
"LEAPS"
"AND"
"BOUNDS"
PERSON
3
"LITTLE"
"RED"
"RIDING HOOD"
PHRASE
2
"LIVE OFF"
"THE LAND"
PHRASE
2
"LONG-DISTANCE"
"CALL"
PHRASE
3
LOWEST
COMMON
DENOMINATOR
ATOR"
TITLE
3
"MAN"
"WITHOUT A"
"COUNTRY"
PHRASE
3
"MEMBER"
"OF THE"
"OPPOSITE SEX"
PHRASE
3
MILITARY
INDUSTRIAL
COMPLEX
PLEX"
PHRASE
2
"MINIMUM"
"WAGE"
SAYING
3
"MISERY"
"LOVES"
"COMPANY"
PLACE
3
"MISSISSIPPI"
"RIVER"
"DELTA"
FOOD
3
"MOCK"
"TURTLE"
"SOUP"
INVESTMENT
3
MONEY
MARKET
CERTIFICATE

PERSON
2
"MONTGOMERY"
"WARD"
PERSON
2
"NAPOLEON"
"BONAPARTE"
PEOPLE
3
"NATIONAL"
"RIFLE"
"ASSOCIATION"
THINGS
2
"NITROGEN-FIXING"
"BACTERIA"
NOTICE
2
"NO TURN"
"ON RED"
THING
2
NON-PROFIT
ORGANIZATION
ION"
NOTICE
3
"ONLY ONE"
"TO A"
"CUSTOMER"
ARTIFACT
2
"ORIENTAL"
"CARPET"
FOOD
3
"OYSTERS"
"ON THE"
"HALF-SHELL"
FOOD
2
"PEACHES"
"AND CREAM"
FOOD
3
"PEANUT"
"BUTTER"
"SANDWICH"
PHRASE
2
"PEER"
"PRESSURE"
FOOD
2
"PEPPERMINT"
"CANDY CANE"
THING
2
"PERIODIC"
"TABLE"
PHRASE
2
"PHYSICAL"
"ATTRACTION"
ANIMAL
2
"PILEATED"
"WOODPECKER"
NOTICE
2
"PLEASE"
"STAND BY"
THING
2
"PNEUMATIC"
"TIRE"
EVENT
2
"PRESIDENTIAL"
"PRIMARY"
SAYING
3
"PRETTY"
"AS A"
"PICTURE"
THING
2
"PROHIBITION"
"AMENDMENT"
PERSON
3
"PUBLIC"
"HEALTH"
"OFFICIAL"
PHRASE
2
"PURSUIT OF"
"HAPPINESS"
STUFF
2
"RADIOACTIVE"
"FALLOUT"
ORDER
3
"READY,"
"AIM,"
"FIRE"
PHRASE
3
"READY,"
"WILLING,"
"AND ABLE"
THING
2
"RECHARGEABLE"
"BATTERY"
PHRASE
2
"RIGHT-TO-LIFE"
"MOVEMENT"
EVENT
3
"ROSE"
"BOWL"
"PARADE"
MUSICAL GROUP
3
SALVATION
ARMY
BAND
THING
2
"SELF-ADDRESSED"
"ENVELOPE"
PERSON
2
"SENIOR"
"CITIZEN"
PHRASE
3
"SHARE"
"THE"
"WEALTH"
PLACE
2
"SHENANDOAH"
"VALLEY"
MALADY
3
SICKLE
CELL
ANEMIA
EMIA"
PHRASE
3
"SOCIAL"
"WELFARE"
"PROGRAMS"
TITLE
2
"SOPHISTICATED"
"LADY"
PLACE
3
"SOUTH"
"OF THE"
"BORDER"
PHRASE
2
"SOUTHERN"
"EXPOSURE"
PHRASE
2
"STATE OF"
"THE ART"
PHRASE
3
"STATE"
"OF THE"
"UNION"
PHRASE
2
"SUB-ZERO"
"TEMPERATURE"
THING
2
"TEN-GALLON"
"HAT"
THING
2
"THE ACE"
"OF SPADES"
ANIMAL
2
"THE BIG"
"BAD WOLF"
THING
3
"THE"
"BLARNEY"
"STONE"
EXPRESSION
2
"THE BLINK"
"OF AN EYE"
PROMISE
3
THE CHECK
IS IN
THE MAIL
AIL"
ORGANIZATION
3
THE
FORD
FOUNDATION
TITLE
2
"THE GRAPES"
"OF WRATH"
BLUE THING
3
THE
HOPE
DIAMOND

TIME
2
"THE IDES"
"OF MARCH"
MUSICAL GROUP
3
THE
METROPOLITAN
OPERA
ERA"
MEDIUM
3
THE
NEW YORK
TIMES
RK"
"TIMES"
EXPRESSION
3
"THE PROOF"
"OF THE"
"PUDDING"
TITLE
3
"THREE"
"BLIND"
"MICE"
EVENT
2
"THREE-MARTINI"
"LUNCH"
THING
2
"THREE-RING"
"CIRCUS"
ADVICE
2
THROW A LOSER
ON A LOSER
ER"
TITLE
3
"TIME"
"ON MY"
"HANDS"
QUOTATION
3
"TO BE"
"OR NOT"
"TO BE"
TITLE
2
"TO KILL A"
"MOCKINGBIRD"
EXPRESSION
3
"TOP"
"OF THE"
"MORNING"
PEOPLE
3
"TWEEDLEDEE"
"AND"
"TWEEDLEDUM"
FOOD
2
"TWO EGGS"
"OVER EASY"
SAYING
3
"TWO HEADS"
"ARE BETTER"
"THAN ONE"
FOOD
2
"TWO PEAS"
"IN A POD"
THING
3
"VIDEO"
"CASSETTE"
"RECORDER"
ARTIFACT
2
WEATHER
SATELLITE
TE"
PHRASE
2
"WELFARE"
"STATE"
EXPRESSION
3
WHEN
MY SHIP
COMES IN
"
PEOPLE
3
"WHITE"
"HOUSE"
"STAFF"
STUFF
2
"WHITE"
"LIGHTNING"

PERSON
2
"WILD MAN"
"OF BORNEO"
PHRASE
2
"WIND-CHILL"
"FACTOR"
SAYING
2
"WISH YOU"
"WERE HERE"
EXPRESSION
2
"WITH MY HEART"
"ON MY SLEEVE"
PERSON
2
"YOUNG"
"WHIPPERSNAPPER"
THING
3
"SOCIAL"
"SECURITY"
"CARD"
PLACE
3
"NAVAJO"
"INDIAN"
"RESERVATION"
FOOD
3
"KENTUCKY"
"FRIED"
"CHICKEN"
CHARACTER
2
WINNIE
THE POOH
OH"
PHRASE
3
SKELETON
IN THE
CLOSET
OSET"
EXPRESSION
3
"WHEN PUSH"
"COMES TO"
"SHOVE"
POLITICAL ACTION
2
"PASSIVE"
"RESISTANCE"
PLACE
3
"YOSEMITE"
"NATIONAL"
"PARK"
SAYING
1
"SOME LIKE IT HOT"
TITLE
3
"PETER"
"AND"
"THE WOLF"
THING
2
"A NEEDLE"
"IN A HAYSTACK"
PHRASE
3
PLAIN
AS THE NOSE
ON YOUR FACE
FACE"EXPRESSION
2
IN THE NICK
OF TIME
PHRASE
2
WHERE ANGELS
FEAR TO TREAD
AD"
INQUIRY
2
YOUR PLACE
OR MINE?
E"
EXPRESSION
2
"A FOOL"
"AND HIS MONEY"
TITLE
1
"HAIL TO THE CHIEF"
SAYING
3
"JUST WHAT"
"THE DOCTOR"
"ORDERED"
TITLE
3
"JACK"
"AND THE"
"BEANSTALK"
PERSON
1
"OLD MOTHER HUBBARD"
FOOD
1
"DANISH PASTRY"
TITLE
3
"MILLION"
"DOLLAR"
"BABY"
PLACE
1
"WILDLIFE REFUGE"
FOOD
3
"CHOCOLATE"
"CHIP"
"COOKIE"
CHARACTER
2
"KERMIT"
"THE FROG"
AGENCY
2
CORPS
OF ENGINEERS
NGINEERS"
AGENCY
3
NATIONAL
PARK
SERVICE
"
"SERVICE"
PERSON
2
"SPEAKER"
"OF THE HOUSE"
DATE
2
"THE FIRST"
"DAY OF SPRING"
THING
2
"INTRACOASTAL"
"WATERWAY"
ANIMAL
2
"SACRED"
"SCARAB"
EVENT
3
"THE"
"FRENCH"
"REVOLUTION"
EXPRESSION
3
ACCELERATION
DUE TO
GRAVITY
VITYTREATMENT
1
"CHEMOTHERAPY"
PROCEDURE
2
EXPLORATORY
SURGERY
Y"
CONDITION
2
"UNDER"
"THE WEATHER"
PRODUCT
1
THREE-IN-ONE OIL
"
ORDER
2
"ALL ASHORE"
"THAT'S GOING ASHORE"
BARGAIN
3
"TWO FOR"
"THE PRICE"
"OF ONE"
FOOD
2
"THE STAFF"
"OF LIFE"
CONNECTOR
2
"INTERSTATE"
"HIGHWAY"
THING
2
"MICROWAVE"
"OVEN"
TITLE
1
"SONG OF SOLOMON"
PERSON
2
"HUCKLEBERRY"
"FINN"
AGREEMENT
2
"OUT-OF-COURT"
"SETTLEMENT"
STUFF
1
"SILLY PUTTY"
PERSON
3
"RALPH"
"WALDO"
"EMERSON"
PERSON
3
"HENRY"
"DAVID"
"THOREAU"
NON-PERSON
2
"THE MAN"
"IN THE MOON"
PERSON?
2
"FRANKENSTEIN'S"
"MONSTER"
DURATION
3
"A THOUSAND"
"AND ONE"
"NIGHTS"
CHARACTER
2
"POPEYE"
"THE SAILOR MAN"
INJURY
2
"THIRD-DEGREE"
"BURN"
EXPRESSION
3
"A DRUG"
"ON THE"
"MARKET"
QUOTE
2
SING A SONG
OF SIXPENCE
CE"
SAYING
2
"YOU CAN'T FIGHT"
"CITY HALL"
REVENUE
3
"EXCESS"
"PROFITS"
"TAX"
THING
1
"BIRCH BARK CANOE"
TITLE
2
"THE SOUND"
"OF MUSIC"
TITLE
1
"THE MAGIC FLUTE"
TITLE
3
"YOUNGER"
"THAN"
"SPRINGTIME"
PEOPLE
3
RODGERS
AND
HAMMERSTEIN
EIN"
TITLE
2
"THERE IS NOTHING"
"LIKE A DAME"
PERSON
1
"THE UNKNOWN SOLDIER"
INQUIRY
3
WHOM
SHALL I SAY
IS CALLING?
ING"
PERSON
3
"WORLD'S"
"HEAVYWEIGHT"
"CHAMPION"
TITLE
3
AROUND
THE WORLD
IN EIGHTY DAYS
DAYS"ORGANIZATION
2
"NEW YORK"
"STOCK EXCHANGE"
PERSON
2
"USED CAR"
"SALESMAN"
DOCTRINE
2
"A TOOTH"
"FOR A TOOTH"
ANIMAL
2
"ORGAN GRINDER'S"
"MONKEY"
ANIMAL
2
"MONKEY"
"ON MY BACK"
ANIMALS
2
"BARREL"
"OF MONKEYS"
SAYING
2
"THE RICH"
"GET RICHER"
THING
2
"MALPRACTICE"
"SUIT"
THING
2
"WALL-TO-WALL"
"CARPET"
ORGANIZATION
3
SAVINGS
AND LOAN
COMPANY
PANY"PERSON
2
"THE SECRETARY"
"OF LABOR"
PEOPLE
2
"BLUE-RIBBON"
"JURY"
COMPARISON
2
"HIGH AS AN"
"ELEPHANT'S EYE"
EXPRESSION
2
"POUND"
"OF FLESH"
PERSON
3
RICHARD
MILHOUS
NIXON
IXON"
THINGS
3
"JAPANESE"
"CHERRY"
"BLOSSOMS"
NOTICE
3
VOID
WHERE PROHIBITED
BY LAW
LAW"

Text found in 370a_The_Phrase_That_Pays.dsk/PHRASE.INSTRUCTIONS.txt:

~THE PHRASE THAT PAYS~ selects a
phrase at random from the 250 phrases
in its data file. It will not use any
phrase twice until all phrases have
been used once.
For each letter in the phrase, the
program draws a box on the screen and
fills in any punctuation that is used.
THE PHRASE THAT PAYS is a game for
two or three players. If you are
playing alone, choose the two-player
mode and enter a fictitious name for
your opponent. Then play against
yourself. (There's no way to play
against the computer, because it knows
all the answers.)


~THE PLAY~
Play is by rounds, with each new
phrase representing a new round. Each
player scores points for the round as
described below. Only the player who
correctly guesses the phrase has
his points added to his game score.
The game continues until the players
agree to terminate it.

~GETTING STARTED~
The first player may choose to guess
a letter, guess the phrase, or
exercise other options. If the player
chooses the guess a letter option, a
random number between 0 and 999 is
generated and assigned as the point
value for the guess.
If the guess is correct, the player
gains that number of points for each
occurrence of the letter and gets to
play again.

~TERMINATING A TURN~
If the guess is incorrect, the turn
is ended.
The turn may also be terminated if
the value assigned to the guess is
negative. In two-player mode, there is
a one-in-seven chance of a negative
value being assigned to the guess. In
the three-player mode, the chances are
one-in-thirteen.

~GUESSING THE PHRASE~
At any time, you may choose to guess
the entire phrase. If you are correct,
your score for that round is added to
your game score. If you are incorrect,
your turn is ended but there is no
penalty levied against your score.

~GUESSING A VOWEL~
A special case occurs if you
correctly guess a vowel. Then you must
attempt to guess the phrase. If you
are incorrect, your turn is ended.

~THE SCORING~
Scores are kept by round and by
game. Highest game score at quitting
time is the winner.

~ROUND SCORING~
Each time you correctly guess a
letter in the phrase, your round score
is incremented by the point value for
that guess times the number of
occurrences of the letter in the
phrase.
If the value assigned to your guess
turns up negative, that amount is
deducted from your score and your turn
ends. Under no circumstances is your
score ever reduced below 0.

~GAME SCORING~
Only the winner of a round scores
points for the game. Points scored by
other contestants during the play of a
round are lost. There is never a
deduction from your game score.

~THE CUTTHROAT CUT-OFF~

While the list of options is on the
screen, pressing the Escape key (Esc)
will cut off the puzzle, show the
answer, and zero out the scores for
the round in progress.
Use the cut-off when it is your turn
and you think an opponent will guess
the phrase on the next turn.
Using the cut-off makes for a
cutthroat game, so it's best to
determine before the start of a game
whether its use will be permitted.
/

Text found in 370a_The_Phrase_That_Pays.dsk/THE PHRASE THAT PAYS.bas:

10 REM PTP 8-21-85
20 REM COPYRIGHT 1985 BY H.HEATWOLE
50 HIMEM: 16384
60 D$ = CHR$(4): DIM A%(250)
70 PRINT D$;"BLOAD Q & D HIRES STRINGS,A36864"
200 PRINT D$;"BLOAD PHRASE MAKER.BDATA,A24576"
250 NR = 250:M = NR
300 FOR I = 1 TO 250:A%(I) = I: NEXT
310 FOR I = 1 TO 28: READ J: POKE 770 +I,J: NEXT
320 DATA 165,2,136,208,11,56,233,1,208,6,165,2,198,1
330 DATA 240,11,202,208,239,174,48,192,166,0,76,5,3,96
340 SCALE= 1: ROT= 0: HCOLOR= 3
350 HGR2 : POKE 230,64: POKE 232,0: POKE 233,96
360 GOTO 10000
399 REM
400 PI = 255:D = 10: FOR I0 = 1 TO 10: GOSUB 500
410 NEXT : RETURN
430 PI = 100:D = 10: FOR I0 = 1 TO 15
440 PI = PI +10: GOSUB 500
450 NEXT : RETURN
460 PI = 65:D = 4: FOR I0 = 1 TO 2: GOSUB 500
470 NEXT : RETURN
480 PI = 100:D = 10: FOR I0 = 1 TO 13
490 PI = PI -7: GOSUB 500
495 NEXT : RETURN
500 POKE 0,PI: POKE 1,1: POKE 2,D: CALL 771: RETURN
1000 REM
1010 FOR K = 1 TO LEN(F$)
1020 XDRAW ASC( MID$ (F$,K,1)) -30
1040 NEXT : RETURN
1050 REM
1060 POKE 5,Y -5: POKE 9,X/256: POKE 10,X - PEEK(9) *256
1070 CALL 36864,F$
1080 POKE 232,0: POKE 233,96:SP = 0
1082 X = X +7 * LEN(F$)
1085 RETURN
1090 REM
1100 H$ = A$:Y = 20: GOSUB 1150:A$ = H$
1110 IF N >1 THEN H$ = B$:Y = 40: GOSUB 1150:B$ = H$
1120 IF N >2 THEN H$ = C$:Y = 60: GOSUB 1150:C$ = H$
1130 RETURN
1150 L = LEN(H$)
1160 FOR I = 1 TO L:CH = ASC( MID$ (H$,I,1))
1170 IF CH = 32 OR CH >64 THEN NEXT : RETURN
1180 REM
1220 X = (I +Z -1) *14
1230 XDRAW CH +65 AT X,Y -1
1240 GOSUB 460
1250 GOTO 4350
1300 REM
1320 GOSUB 1400
1330 F$ = A$:Y = 20: GOSUB 1600
1340 IF N >1 THEN F$ = B$:Y = 40: GOSUB 1600
1350 IF N >2 THEN F$ = C$:Y = 60: GOSUB 1600
1360 RETURN
1400 REM
1410 L = LEN(A$)
1420 IF N >1 THEN IF LEN(B$) >L THEN L = LEN(B$)
1430 IF N >2 THEN IF LEN(C$) >L THEN L = LEN(C$)
1440 Z = INT(20 -L)/2: RETURN
1590 REM
1600 L = LEN(F$)
1610 FOR I = 1 TO L:X = (I +Z -1) *14
1620 DRAW 1 AT X,Y
1630 IF MID$ (F$,I,1) < >" " THEN FOR J = 1 TO 8: DRAW 61: NEXT
1640 NEXT : RETURN
2000 REM
2020 F$ = A$:Y = 20: GOSUB 2300
2030 IF N >1 THEN F$ = B$:Y = 40: GOSUB 2300
2040 IF N >2 THEN F$ = C$:Y = 60: GOSUB 2300
2050 RETURN
2290 REM
2300 L = LEN(F$)
2310 FOR I = 1 TO L:X = (I +Z -1) *14
2320 CH$ = MID$ (F$,I,1)
2330 IF CH$ = " " THEN NEXT : RETURN
2340 XDRAW ASC(CH$) +65 AT X +1,Y -1
2390 IF INS = 0 THEN GOSUB 460
2400 NEXT : RETURN
2590 REM
3400 ZA = INT( RND(1) *M) +1
3401 PRINT : PRINT CHR$(4)"OPENPHRASE HISTORY,L4": PRINT CHR$(4)"READPHRASE HISTORY,R"ZA: INPUT RN: PRINT CHR$(4)"READPHRASE HISTORY,R0": INPUT M: PRINT CHR$(4)"READPHRASE HISTORY,R"M: INPUT TQ%: PRINT CHR$(4)"WRITEPHRASE HISTORY,R"ZA: PRINT TQ%:M = M -1
3402 PRINT D$"WRITEPHRASE HISTORY,R0": PRINT M: PRINT D$"CLOSEPHRASE HISTORY"
3411 IF M >0 THEN 3415
3412 M = NR: PRINT D$"OPENPHRASE HISTORY,L4": PRINT D$"WRITE PHRASE HISTORY,R0": PRINT M: FOR I = 1 TO M: PRINT D$"WRITEPHRASE HISTORY,R"I: PRINT I: NEXT : PRINT D$"CLOSEPHRASE HISTORY"
3415 PRINT CHR$(1)
3420 PRINT CHR$(13)D$;"OPEN PHRASE MAKER.DATA,L45"
3430 PRINT CHR$(13)D$;"READ PHRASE MAKER.DATA,R";RN
3440 INPUT CA$: INPUT N: INPUT A$:AA$ = A$
3450 IF N >1 THEN INPUT B$:BB$ = B$
3460 IF N >2 THEN INPUT C$:CC$ = C$
3470 PRINT CHR$(13)D$;"CLOSE": RETURN
3600 REM
3610 HCOLOR= 2: HPLOT 0,0 TO 279,0 TO 279,191 TO 0,191 TO 0,1
3620 HPLOT TO 278,1 TO 278,190 TO 1,190 TO 1,2: HCOLOR= 3
3630 RETURN
4200 REM
4210 F$ = P$(PL):H = 5:V = 14: GOSUB 8000
4220 GOSUB 8145: GOSUB 8150
4230 F$ = STR$(SC(PL,0)): GOSUB 1060
4240 GOSUB 8155:F$ = STR$(SC(PL,1)): GOSUB 1060
4250 RETURN
4280 REM
4300 L = LEN(H$): FOR I = 1 TO L
4310 IF MID$ (H$,I,1) < >LT$ THEN 4380
4320 GOSUB 460:F$ = MID$ (H$,I,1): GOSUB 4410
4350 IF I = 1 THEN H$ = " " + RIGHT$(H$,L -1): GOTO 4380
4360 IF I = L THEN H$ = LEFT$(H$,L -1) +" ": GOTO 4380
4370 H$ = LEFT$(H$,I -1) +" " + RIGHT$(H$,L -I)
4380 NEXT : RETURN
4400 REM
4410 X = (I +Z -1) *14
4420 XDRAW ASC(LT$) +65 AT X +1,Y -1
4440 GOSUB 460: RETURN
4500 REM
4510 GOSUB 8135
4530 GOSUB 8210: GOSUB 8215
4540 XDRAW P -30 AT XA,YA
4550 Y = 183: FOR I = 0 TO 3:X = 203 +I *14
4560 XDRAW ASC( MID$ (VL$,I +1,1)) +65 AT X,Y
4570 NEXT : RETURN
4999 REM
5000 Y = 184: FOR X = 203 TO 245 STEP 14
5020 DRAW 1 AT X,Y: FOR I = 1 TO 8
5040 XDRAW 61: NEXT : NEXT : RETURN
5099 REM
5100 DL = 10: FOR J = 1 TO 4
5120 C = INT( RND(1) *10): DRAW 1 AT X,Y -1
5140 XDRAW C +113: GOSUB 460
5160 IF J <4 THEN XDRAW C +113 AT X,Y -1
5200 DL = DL +18: NEXT J
5220 VL = VL +C *10 ^T:T = T +1:VL$ = STR$(C) +VL$
5240 XDRAW 63 AT X,Y -16: RETURN
5299 REM
5300 HPLOT 201,167 TO 258,167 TO 258,186
5310 HPLOT TO 201,186 TO 201,168
5315 HPLOT 259,186 TO 259,167: RETURN
5499 REM
5500 GOSUB 8135: GOSUB 5000: HCOLOR= 5: GOSUB 5300: HCOLOR= 3
5520 T = 0:VL = 0:VL$ = "": FOR X = 245 TO 217 STEP -14
5540 XDRAW 63 AT X,Y -16: GOSUB 460
5550 GOSUB 5100
5560 NEXT X
5580 XDRAW 63 AT X,Y -16
5600 S = INT( RND(1) *7): IF NP = 3 THEN S = INT( RND(1) *14)
5620 S$ = "+": IF S = 0 THEN S$ = "-"
5630 VL$ = S$ +VL$
5640 XDRAW ASC(S$) +65 AT X,Y -1
5660 GOSUB 460
5670 XDRAW 63 AT X,Y -16:VL = VAL(VL$)
5680 GOSUB 5000
5700 HCOLOR= 0: GOSUB 5300: HCOLOR= 3
5710 IF VL = >0 THEN RETURN
5749 REM
5750 POP : FOR I = 1 TO 3: GOSUB 430: GOSUB 8340
5760 GOSUB 8345: FOR J = 1 TO 200: NEXT
5780 GOSUB 5900
5840 GOSUB 8340: GOSUB 8345
5860 GOSUB 8135: GOSUB 4550: GOTO 10910
5899 REM
5900 F$ = STR$(SC(PL,0)):VF = VAL(F$)
5910 XX = 112 +7 * LEN(F$):YY = 140
5920 FOR J = 1 TO 4: XDRAW 125 AT XX,YY
5930 FOR K = 1 TO 100: NEXT K: NEXT J
5940 X = 112:Y = 135: GOSUB 1060
5950 VF = VF +VL
5960 IF VF <0 THEN VF = 0
5970 SC(PL,0) = VF:X = 112:Y = 135
5980 F$ = STR$(VF): GOSUB 1060
5990 RETURN
6000 XDRAW 156 AT XA,YA: FOR I = 1 TO 12
6010 GOSUB 6030: NEXT
6020 GOTO 6000
6030 RR = RND(1): IF PEEK(49152) <128 THEN RETURN
6040 POP :P = PEEK(49152) -128: POKE 49168,0: IF P >90 THEN P = P -32
6050 HCOLOR= 0: DRAW 156 AT XA,YA: HCOLOR= 3
6060 IF P >48 THEN IF P <91 THEN DRAW P -30 AT XA,YA
6070 IF P >90 THEN 6000
6080 IF P <49 THEN IF P < >27 THEN 6000
6090 RETURN
6498 REM
6500 G$ = ""
6510 QD = 0
6520 IF QD = 6 OR QD = 12 THEN XDRAW 156 AT X,Y
6521 QD = QD +1
6522 IF QD >12 THEN QD = 0
6523 IF PEEK(49152) <128 THEN 6520
6524 IF QD >6 THEN XDRAW 156 AT X,Y
6525 QD = 0: GET X$: IF X$ >"Z" THEN X$ = CHR$( ASC(X$) -32)
6526 IF X$ = CHR$(13) THEN 6660
6530 IF X = >264 THEN RETURN
6540 IF X$ > CHR$(31) THEN G$ = G$ +X$: XDRAW ASC(X$) -30 AT X,Y:X = X +7: GOTO 6520
6550 IF X$ < > CHR$(8) THEN 6520
6560 IF G$ = "" THEN 6520
6580 R$ = RIGHT$(G$,1): IF LEN(G$) = 1 THEN G$ = "": GOTO 6620
6600 G$ = LEFT$(G$, LEN(G$) -1)
6620 X = X -7: XDRAW ASC(R$) -30 AT X,Y: GOTO 6520
6660 IF G$ = "" THEN 6520
6680 RETURN
8000 X = (H -1) *7:Y = (V *8) -1
8010 DRAW 1 AT X,Y: ON SP +1 GOTO 1010,1060
8099 REM
8100 SP = 1:F$ = "HOW MANY PLAYERS? (2 OR 3)":H = 6:V = 19: GOTO 8000
8105 SP = 1:F$ = "TYPE THEIR NAMES":H = 6:V = 16: GOTO 8000
8110 SP = 1:F$ = "FIRST PLAYER: ":H = 8:V = 18: GOTO 8000
8115 SP = 1:F$ = "SECOND PLAYER: ":H = 8:V = 19: GOTO 8000
8120 SP = 1:F$ = "THIRD PLAYER: ":H = 8:V = 20: GOTO 8000
8135 SP = 1:F$ = "THE NEXT LETTER IS WORTH":H = 4:V = 23: GOTO 8000
8140 SP = 1:F$ = "PLAYER:":H = 3:V = 13: GOTO 8000
8145 SP = 1:F$ = "YOUR SCORE:":H = 3:V = 16: GOTO 8000
8150 SP = 1:F$ = "THIS ROUND: ":H = 5:V = 17: GOTO 8000
8155 SP = 1:F$ = "THIS GAME: ":H = 5:V = 18: GOTO 8000
8160 SP = 1:F$ = "DEAD LETTERS:":H = 3:V = 20: GOTO 8000
8165 SP = 1:F$ = "OPTIONS:":H = 24:V = 13: GOTO 8000
8170 SP = 1:F$ = "1. GUESS A":H = 25:V = 15: GOTO 8000
8172 SP = 1:F$ = "LETTER":H = 31:V = 16: GOTO 8000
8175 SP = 1:F$ = "2. SOLVE IT":H = 25:V = 17: GOTO 8000
8180 SP = 1:F$ = "3. INSTRUCTIONS":H = 25:V = 18: GOTO 8000
8185 SP = 1:F$ = "5. QUIT":H = 25:V = 20: GOTO 8000
8190 SP = 1:F$ = "WHICH? ":H = 30:V = 21: GOTO 8000
8205 SP = 1:F$ = "DEAD LETTERS:":H = 3:V = 20: GOTO 8000
8210 SP = 1:F$ = "TYPE A":H = 27:V = 13: GOTO 8000
8215 SP = 1:F$ = "LETTER ":H = 29:V = 14: GOTO 8000
8220 SP = 1:F$ = "'" +LT$ +"' IS A DEAD":H = 26:V = 13: GOTO 8000
8230 SP = 1:F$ = "'" +LT$ +"' IS A VOWEL":H = 25:V = 13: GOTO 8000
8235 SP = 1:F$ = "'" +LT$ +"' HAS BEEN":H = 26:V = 13: GOTO 8000
8240 SP = 1:F$ = "USED":H = 28:V = 14: GOTO 8000
8250 SP = 1:F$ = "THERE " +VERB$ +NC$ +" " +LT$ +PLU$:H = 22:V = 20: GOTO 8000
8260 F$ = DL$:H = 5:V = 21: GOTO 8000
8265 SP = 1:F$ = "PRESS ANY KEY":H = 23:V = 23: GOTO 8000
8280 SP = 1:F$ = "TYPE YOUR ANSWER EXACTLY, ON ONE LINE:":H = 2:V = 21: GOTO 8000
8285 SP = 1:F$ = "CORRECT!":H = 27:V = 13: GOTO 8000
8290 SP = 1:F$ = "WRONG!":H = 27:V = 13: GOTO 8000
8330 F$ = G$:H = 2:V = 23: GOTO 8000
8340 F$ = "VALUE IS":H = 27:V = 13: GOTO 8000
8345 F$ = "NEGATIVE":H = 29:V = 14: GOTO 8000
8355 SP = 1:F$ = "YOU MUST NOW SOLVE THE PUZZLE":H = 2:V = 22: GOTO 8000
8357 SP = 1:F$ = "4. CHECK SCORES":H = 25:V = 19: GOTO 8000
8360 ST = 30613: GOSUB 8400:ST = 30653: GOSUB 8400
8370 ST = 30675: GOSUB 8400
8380 ST = 30702: GOSUB 8400: RETURN
8400 X = PEEK(ST):Y = PEEK(ST +1)
8410 LF = PEEK(ST +2): DRAW 1 AT X,Y: FOR I = 1 TO LF
8420 XDRAW PEEK(ST +2 +I): NEXT : RETURN
9990 REM
9999 REM
10000 GOSUB 3600:N = 1:A$ = "THE PHRASE THAT PAYS"
10005 GOSUB 1300: GOSUB 2000
10010 GOSUB 8360
10025 XA = 245:YA = 151: GOSUB 6000
10030 :
10032 IF P >48 THEN IF P <91 THEN XDRAW P -30 AT XA,YA
10035 IF P < >78 THEN IF P < >89 THEN 10025
10037 IF P = 89 THEN GOSUB 13000: GOSUB 15000: GOTO 10010
10040 :
10050 GOSUB 8380: GOSUB 8100
10055 REM
10060 XA = 235:YA = 151: GOSUB 6000
10062 IF P <50 OR P >51 THEN IF P >48 THEN XDRAW P -30 AT XA,YA
10063 IF P <50 OR P >51 THEN PRINT "": GOTO 10060
10065 GOSUB 8100
10070 XDRAW P -30 AT XA,YA
10190 NP = P -48: GOSUB 8105
10200 REM
10210 GOSUB 8110:P$(1) = ""
10230 X = 154:Y = 143: GOSUB 6500:P$(1) = G$
10255 REM
10260 GOSUB 8115:P$(2) = ""
10270 X = 154:Y = 151: GOSUB 6500:P$(2) = G$
10295 IF NP = 2 THEN 10530
10305 REM
10310 GOSUB 8120:P$(3) = ""
10320 X = 154:Y = 159: GOSUB 6500:P$(3) = G$
10525 REM
10530 X = FRE(0): GOSUB 3400: GOSUB 3600: CALL 54915
10540 HGR2 : GOSUB 3600: GOSUB 1300
10560 V = N *3 +1
10565 H = Z *2 +2:F$ = CA$: GOSUB 8000
10570 E$ = A$: IF N >1 THEN E$ = E$ +" " +B$
10580 IF N >2 THEN E$ = E$ +" " +C$
10582 LL = LEN(E$): FOR I = 1 TO LEN(E$)
10583 IF ASC( MID$ (E$,I,1)) <65 THEN LL = LL -1
10584 NEXT
10585 GOSUB 1100
10590 DL$ = "":LU$ = "": GOSUB 8140
10600 REM
10610 PL = PL +1: IF PL >NP THEN PL = 1
10670 GOSUB 4200: GOSUB 8205
10672 :
10675 REM
10680 GOSUB 8165: GOSUB 8170: GOSUB 8172: GOSUB 8175
10690 GOSUB 8180: GOSUB 8357: GOSUB 8185: GOSUB 8190
10695 XA = 252:YA = 167: GOSUB 6000: IF P = 27 THEN GOSUB 50000: IF P = 27 THEN 10720
10696 IF P = 255 THEN 10695
10700 IF P <49 OR P >53 THEN XDRAW P -30 AT XA,YA: PRINT "": GOTO 10695
10705 IF P <49 OR P >53 THEN PRINT "": GOTO 10695
10710 :
10715 REM
10720 GOSUB 8165: GOSUB 8170: GOSUB 8172: GOSUB 8175
10722 GOSUB 8180: GOSUB 8357: GOSUB 8185: GOSUB 8190
10725 IF P < >27 THEN 10731
10727 FOR J = 1 TO NP:SC(J,0) = 0: NEXT
10729 GOSUB 2020: GOSUB 8265: GET Y$: GOTO 10530
10731 XDRAW P -30 AT XA,YA
10732 ON P -48 GOTO 10740,11620,14000,20000,16000
10740 GOSUB 5500
10755 REM
10760 GOSUB 8210: GOSUB 8215:XA = 248:YA = 111
10765 GOSUB 6000: IF P = 27 THEN PRINT "": GOTO 10765
10767 IF P <65 OR P >90 THEN XDRAW P -30 AT XA,YA: GOTO 10765
10770 LT$ = CHR$(P)
10780 REM
10790 IF DL$ = "" THEN 11110
10800 FOR I = 1 TO LEN(DL$): IF LT$ = MID$ (DL$,I,1) THEN 10820
10810 NEXT : GOTO 11110
10820 GOSUB 4510
10840 REM
10850 GOSUB 400: GOSUB 8220: GOSUB 8215
10860 FOR I = 1 TO 1000: NEXT
10870 GOSUB 8220: GOSUB 8215
10900 REM
10910 GOSUB 8265: GET X$: GOSUB 8265
10920 GOSUB 4200
10930 PL = PL +1: IF PL >NP THEN PL = 1
10940 GOSUB 4200: GOTO 10680
11100 REM
11110 FOR I = 1 TO LEN(LU$)
11120 IF LT$ = MID$ (LU$,I,1) THEN 11170
11130 NEXT : GOTO 11270
11160 REM
11170 PRINT CHR$(7): GOSUB 4510: GOSUB 8235: GOSUB 8240: FOR I = 1 TO 1000
11180 NEXT : GOSUB 8235: GOSUB 8240
11190 GOTO 10910: REM
11250 REM
11260 REM
11270 NC = 0: FOR I = 1 TO LEN(E$)
11280 IF MID$ (E$,I,1) = LT$ THEN NC = NC +1:LL = LL -1
11290 NEXT :NC$ = STR$(NC):VERB$ = "ARE "
11300 IF NC = 1 THEN VERB$ = "IS "
11305 NC$ = STR$(NC): IF NC = 0 THEN GOSUB 400:NC$ = "NO"
11310 PLU$ = "'S": IF NC = 1 THEN PLU$ = ""
11320 GOSUB 8250: REM
11330 IF NC >0 THEN 11400
11335 GOSUB 8205: IF DL$ < >"" THEN GOSUB 8260
11337 :
11340 DL$ = DL$ +LT$: GOSUB 8205: GOSUB 8260
11350 FOR K = 1 TO 200: NEXT
11370 GOSUB 8250: GOSUB 4500
11380 GOTO 10910
11390 REM
11400 H$ = A$:Y = 20: GOSUB 4300:A$ = H$
11410 IF N >1 THEN H$ = B$:Y = 40: GOSUB 4300:B$ = H$
11420 IF N >2 THEN H$ = C$:Y = 60: GOSUB 4300:C$ = H$
11430 FOR I = 1 TO NC: GOSUB 5900: NEXT
11440 LU$ = LU$ +LT$
11460 GOSUB 8250: GOSUB 4500
11469 REM
11470 IF LL >0 THEN 11490
11475 GOSUB 8285: GOSUB 480: GOSUB 8160: GOSUB 8260: GOSUB 11900
11480 SC(PL,1) = SC(PL,1) +SC(PL,0): FOR J = 1 TO NP:SC(J,0) = 0: NEXT
11485 GOSUB 11900: GOSUB 8265: GET X$: GOTO 10530
11489 REM
11490 IF LT$ = "A" OR LT$ = "E" OR LT$ = "I" OR LT$ = "O" OR LT$ = "U" THEN 11580
11500 GOTO 10680: REM
11579 REM
11580 GOSUB 8230: GOSUB 17000: GOSUB 8355
11590 GOSUB 17000
11600 GOSUB 8230: GOSUB 8355
11615 REM
11620 GOSUB 8205: IF DL$ < >"" THEN GOSUB 8260
11630 GOSUB 8280
11640 X = 7:Y = 183: GOSUB 6500
11680 IF G$ = E$ THEN 11800
11690 GOSUB 8290: GOSUB 400: REM
11700 GOSUB 17000
11710 GOSUB 19000
11715 GOSUB 8160: IF DL$ < >"" THEN GOSUB 8260
11720 GOSUB 8280: GOSUB 8290: GOTO 10910
11800 REM
11810 GOSUB 8285: GOSUB 480
11815 GOSUB 2020
11820 GOSUB 11900
11830 REM
11840 SC(PL,1) = SC(PL,1) +SC(PL,0)
11850 FOR J = 1 TO NP:SC(J,0) = 0: NEXT
11860 GOSUB 11900
11870 GOSUB 8280: GOSUB 8330: GOSUB 8265
11880 GET X$: GOTO 10530
11900 REM
11910 GOSUB 8150:F$ = STR$(SC(PL,0)): GOSUB 1060
11920 GOSUB 8155:F$ = STR$(SC(PL,1)): GOSUB 1060
11930 RETURN
12995 REM
13000 PG = 1
13005 GOTO 61000
13010 HGR2 : GOSUB 3610: DRAW 1 AT 45,10
13020 X = 45:Y = 10:F$ = "INSTRUCTIONS - PAGE OF 4": GOSUB 1060
13030 HPLOT 2,12 TO 277,12: HPLOT 2,179 TO 277,179
13040 DRAW 1 AT 29,187:X = 29:Y = 187:F$ = "ARROWS MOVE TO QUIT": GOSUB 1060
13050 DRAW PG +18 AT 185,10
13100 POKE 800,PG: CALL 30070
13105 XDRAW 30 AT 110,187: GOSUB 13150
13110 XDRAW 30 AT 110,187: GOSUB 13150
13115 XDRAW 32 AT 151,187
13120 GOSUB 13150
13130 XDRAW 32 AT 151,187: GOTO 13105
13150 IF PEEK(49152) <128 THEN RETURN
13160 PK = PEEK(49152) -128: POKE 49168,0
13170 POP : IF PK = 27 THEN RETURN
13180 IF PK < >8 THEN 13210
13190 PG = PG -1: IF PG = 0 THEN PG = 1: GOTO 13105
13200 GOTO 13010
13210 IF PK < >21 THEN 13105
13220 PG = PG +1: IF PG = 5 THEN PG = 4: GOTO 13105
13230 GOTO 13010
13590 REM
14000 GOSUB 13000
14005 HGR2 : GOSUB 3610
14010 H$ = AA$:Y = 20: GOSUB 14100
14020 IF N >1 THEN H$ = BB$:Y = 40: GOSUB 14100
14030 IF N >2 THEN H$ = CC$:Y = 60: GOSUB 14100
14035 V = N *3 +1:H = Z *2 +2:F$ = CA$: GOSUB 8000
14040 GOSUB 8140: GOSUB 4210: GOSUB 8205
14050 IF DL$ < >"" THEN GOSUB 8260
14060 GOTO 10680
14100 FOR I = 1 TO LEN(H$):X = (I +Z -1) *14
14110 A = ASC( MID$ (H$,I,1)): IF A = 32 THEN 14160
14115 DRAW 1 AT X,Y: FOR J = 1 TO 8: DRAW 61: NEXT
14120 IF A <65 THEN XDRAW A +65 AT X +1,Y -1: GOTO 14160
14130 IF LU$ = "" THEN 14160
14140 FOR J = 1 TO LEN(LU$)
14150 IF A = ASC( MID$ (LU$,J,1)) THEN XDRAW A +65 AT X +1,Y -1
14155 NEXT
14160 NEXT : RETURN
15000 INS = 1: HGR2 : GOSUB 3600:N = 1:A$ = "THE PHRASE THAT PAYS"
15010 GOSUB 1300: GOSUB 2000
15020 INS = 0: RETURN
15995 REM
16000 TEXT : HOME : GOSUB 460: GOSUB 460
16001 PRINT " WARNING! "
16002 PRINT " YOU HAVE CHOSEN TO QUIT PLAYING": PRINT : PRINT " THE PHRASE THAT PAYS!"
16003 PRINT : FOR C = 1 TO 39: PRINT "-";: NEXT : PRINT : PRINT "IF YOU WANT TO RETURN TO THE GAME, PRESS. PRESS ANY OTHER KEY TO QUIT."
16004 GOSUB 460: GOSUB 460: POKE 49168,0: GET K$: IF K$ = CHR$(27) THEN POKE 49232,0: POKE 49237,0: GOTO 10680
16005 HGR2 : TEXT : HOME : INVERSE
16010 PRINT " THE PHRASE THAT PAYS "
16020 NORMAL : VTAB 8: HTAB 12: PRINT "THE GAME IS OVER."
16030 VTAB 11: PRINT "FINAL SCORES:": PRINT
16032 FOR I = 1 TO NP
16035 SC$ = RIGHT$(" " + STR$(SC(I,1)),8)
16040 PRINT " "P$(I); MID$ ("...................", LEN(P$(I)) +1);SC$
16050 NEXT
16070 VTAB 20: HTAB 18: PRINT "PRESS ANY KEY ";
16080 GET X$: HOME : PRINT CHR$(1): HIMEM: 38400
16090 ONERR GOTO 16110
16100 PRINT : PRINT D$;"RUN MENU"
16110 POKE 216,0: END
17000 POKE 49168,0: FOR I = 1 TO 12: GOSUB 18000: NEXT : RETURN
18000 GOSUB 460: IF PEEK(49152) >128 THEN POKE 49168,0:I = 100000
18010 RETURN
19000 HCOLOR= 0: FOR C = 174 TO 189: HPLOT 2,C TO 277,C: NEXT : HCOLOR= 3: RETURN
19999 REM
20000 HGR2 : GOSUB 3610
20001 F$ = "SCORE SYNOPSIS:":X = 16:Y = 18: GOSUB 1060
20002 HCOLOR= 5
20003 HPLOT 9,30 TO 161,30 TO 161,108 TO 9,108 TO 9,30: HPLOT 9,68 TO 161,68: IF NP = 3 THEN HPLOT 9,108 TO 9,150 TO 161,150 TO 161,108
20004 HCOLOR= 3
20005 FOR I = 1 TO NP
20010 F$ = P$(I):H = 5:V = I *5: GOSUB 8000: GOSUB 20110: GOSUB 20120
20030 F$ = STR$(SC(I,0)): GOSUB 1060
20033 GOSUB 20130
20035 F$ = STR$(SC(I,1)): GOSUB 1060
20040 NEXT
20050 GOSUB 8265: POKE 49168,0: GET QD$
20090 GOSUB 14005
20100 GOTO 10680
20110 SP = 1:F$ = "YOUR SCORE:":H = 3:V = I *5 +1: GOTO 8000
20120 SP = 1:F$ = "THIS ROUND: ":H = 5:V = I *5 +2: GOTO 8000
20130 SP = 1:F$ = "THIS GAME: ":H = 5:V = I *5 +3: GOTO 8000
50000 X = 15:Y = 188:F$ = "DID YOU REALLY WANT TO 'ESC'?": GOSUB 1060: PRINT ""
50010 GET K$: IF K$ < >"Y" THEN IF K$ < >"y" THEN P = 255
50020 X = 15:Y = 188:F$ = "DID YOU REALLY WANT TO 'ESC'?": GOSUB 1060
50030 RETURN
61000 PRINT : PRINT CHR$(4)"CLOSE"
61002 TEXT : HOME :F$ = "* INSTRUCTIONS *": INVERSE : FOR I = 1 TO 40: PRINT " ";: NEXT : VTAB 1: HTAB (40 - LEN(F$))/2: PRINT F$: NORMAL : PRINT CHR$(4)"BLOADQT": VTAB 5: PRINT "SEND TO PRINTER?";: GET F$: PRINT F$: POKE 0,0
61010 IF F$ = "Y" THEN POKE 0,1: PRINT CHR$(4)"PR#1"
61012 PRINT CHR$(4)"READPHRASE.INSTRUCTIONS"
61020 CALL 39000: PRINT : PRINT CHR$(4)"PR#0": PRINT CHR$(4)"CLOSE": HGR2 : RETURN