OPLObjectFile**
 LOC::M:\OPL\MONTANA\MONTANA.OPL
Montana.ODB
\APP\
NDEAL%
HOLE%
NOGO%
WAITG%
NEWG%
QUITG%
MAXG%
PARS%
STUB$
NAME$
SCORE&
TABLEFL$
SCWIDTH%
DRAWINIT
HSINIT
RANDCARD
DRAWDEAL
DRAWBRD
REMVACE
CALCSC
PLAYGAME
REMVBAD
HSADD%
HSSHOW
GETKEY%
ENDIT
mongraph.libKW
An error has occured
+#Montana was unable to find the fileO
mongraph.libKO
SorryO
mongraph.libK
montana.scoKO
+	Game overO
An error has occured
Montana will now quitO
SorryO
+	ShufflingO
O4|RWBO
O4|RWBO
DRAWCARD
DealingO
RANK%
SETHOLE
DRAWINVT
GETKEY%
MOVECRD%
NEWG%
CARDPOS%
RANK%
DRAWCARD
SETHOLE
CALCSC
SUIT%
MAKECRD%
MAPXY
NOGO%
HOLE%
CARDPOS%
SUIT%
MAKECRD%
RANK%
DRAWCARD
HOLE%
NOGO%
NEWG%
NDEAL%
MAXG%
+	GatheringO
L@`d[
+	ShufflingO
L|RWBO
L|RWBO
ENDIT
DOMENU%
REALLY%
ABOUT
DOHELP
HSSHOW
NEWG%
WAITG%
H@`[d
+&Abandon this game and start a new one?
YesOy+
W7Oy@[
HOLE%
NOGO%
HOLE%
NOGO%
MAPXY
RANK%
DRAWCARD
HOLE%
NOGO%
CARDPOS%
SUIT%
MAKECRD%
RANK%
DRAWSC
NDEAL%
NEWG%
WAITG%
Congratulations
+	I did it!O
Bonus
+&Have 40 points for not redealing once!
+	Thank youO
Bonus
+'Have 20 points for only redealing once!
+	Thank youO
PMENU%
NDEAL%
MAXG%
Game+
New GameOn+
High ScoresOs+	Exit GameOx
First Re-deal
Second Re-deal
Give Up
Game+
New GameOn
High ScoresOs+	Exit GameOx
Help+
PlayingOh+
About...Oa
Really exit Montana?
YesOy+
HSDONE
DRAWDONE
STUB$
mongraph.libK
About Montana V1.0
+)Single pack patience written by Ian HeathO
(ih@ecs.soton.ac.uk)O
This program is shareware!O
+	More InfoOi
To register, send 
S.P. ServicesO
P.O.Box 456O
SouthamptonO
SO9 7XGO
sphipps@cix.compulink.co.ukO
Credit cards acceptedO
MONHELP
STUB$
montana.hlpKW
montana.hlpK
montana.hlpK
Montana Quick Help
+%All cards are dealt face up in a 13x4
+"formation and the aces removed. By
+%moving cards into the holes left, try
and arrange the cards from 2-K
+"in each suit. You have 2 re-deals.
HSCLEAR
TABLEFL$
SCWIDTH%
NAME$
SCORE&
TABLEFL$
NAME$
SCORE&
SCWIDTH%
NAME$
SCORE&
HSFMT$
NAME$
SCORE&
High Scores
SCORE&
NAME$
You've got a High Score
+	Your NameO
Please type in your name
ContinueO
MONTANA
RANDCARD8
DRAWBRD
MAPXY=
CARDPOS%w
MAKECRD%
REMVACE
PLAYGAME
MOVECRD%
REMVBAD
GETKEY%R
SUIT%	
RANK%K
SETHOLE
CALCSC
DOMENU%
REALLY%
ENDITJ
ABOUT
DOHELP
HSINITP
HSDONE
HSFMT$q
HSCLEAR
HSSHOW
HSADD%w