%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1576
File Name:PM
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
10\->F
\ClrGraph
\ViewWindow 1,127,130,1,63,70
{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}\->\List 1
\Do
\Cls
\Text 5,10,"CREDITS:"
\Text 5,115-(\Int \log F)*4,F
\Text 12,10,"INSERT COINS (1-9)?"
\Text 1,1,""
0\->G:0\->M
\Do
\Getkey\->M
7-\Int (M/10)\->N
M-\Int (M/10)*10-2\->O
O*3+N+1\->G
\LpWhile M=0\ Or G>F\ Or G>9\ Or G<1
\Text 12,115,G
F-G\->F
{0,0,0,0,0}\->\List 3
\List 3\->\List 4
\For 1\->O \To 5
\Prog "PM.CRD"
C\->\List 3[O]
D\->\List 4[O]
O*20-4\->A
14\->B
\Prog "PM.GFX"
\Next 
\Prog "PM.WIN"
\List 2\->\List 3
\List 5\->\List 4
\Text 26,10,"F1-F5 = HOLD \@7C EXE = DRAW"
\Do
\Text 1,1,""
0\->M
\While M=0
\Getkey\->M
\WhileEnd
M=31\=>\Goto1
8-\Int (M/10)\->N
N>5\=>5\->N
\List 3[N]\->O
\If O<10
\Then O+10\->O
\Text 54,N*20-5,"HOLD"
\Else O-10\->O
\Text 54,N*20-5,"    "
\IfEnd
O\->\List 3[N]
\Lbl 1
\LpWhile M\<>31
\For 1\->O \To 5
\If \List 3[O]<10
\Then \Prog "PM.CRD"
C\->\List 3[O]
D\->\List 4[O]
\Else \List 3[O]-10\->\List 3[O]
\IfEnd
\Next 
\Cls
\For 1\->O \To 5
\List 3[O]\->C
\List 4[O]\->D
14\->B
O*20-4\->A
\Prog "PM.GFX"
\Next 
\Prog "PM.WIN"
\Text 5,10,"COINS INSIDE:"
\Text 5,115,G
\Text 12,10,"COINS PAID OUT:"
G*E\->G
\Text 12,115-(\Int \log (G+0.9))*4,G
\Text 26,10,"CREDITS:"
\Text 26,115-(\Int \log (G+F+0.9))*4,G+F
\Goto9
\Lbl 0
G+F\->F
\LpWhile F>0\ And M\<>47
\ClrGraph
\ClrList
\ClrText
\Stop
\Lbl 9
\Text 54,10,"EXE = NEW                "
G>0\=>\Text 54,53,"\@7C F6 = DOUBLE UP"
\Text 1,1,""
\For 1\->M \To 52
0\->\List 1[M]
\Next 
0\->M
\While M=0
\Getkey\->M
\WhileEnd
M\<>29\ Or G=0\=>\Goto0
\Cls
\Text 5,10,"DOUBLE UP"
\Text 12,10,"BET:"
\Text 12,115-(\Int \log G)*4,G
\Prog "PM.CRD"
{15,15,15,15,15}\->\List 3
\List 3\->\List 4
C\->\List 3[1]
D\->\List 4[1]
\For 1\->O \To 5
\List 3[O]\->C
\List 4[O]\->D
O*20-4\->A
14\->B
\Prog "PM.GFX"
\Next 
\For 2\->O \To 5
\Prog "PM.CRD"
C\->\List 3[O]
D\->\List 4[O]
\Next 
\Text 26,10,"F2-F5 = SELECT"
\Text 1,1,""
0\->M
\While M\<>39\ And M\<>49\ And M\<>59\ And M\<>69
\Getkey\->M
\WhileEnd
8-\Int (M/10)\->P
P>5\=>5\->P
\Text 54,P*20-5,"HOLD"
\For 2\->O \To 5
\List 3[O]\->C
\List 4[O]\->D
O*20-4\->A
14\->B
\Prog "PM.GFX"
\Next 
\If \List 4[P]<\List 4[1]
\Then 0\->G
\Text 19,10,"LOSER"
\IfEnd
\If \List 4[P]>\List 4[1]
\Then G*2\->G
\Text 19,10,"WINNER"
\IfEnd
\Text 26,10,"CREDITS:       "
\Text 26,115-(\Int \log (G+F+0.9))*4,G+F
\Goto9

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:75
File Name:PM.CRD
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
0\->M
\Do
\Int (\Ran#*52)+1\->N
\List 1[N]=0\=>1\->M
\LpWhile M=0
1\->\List 1[N]
\Int ((N-1)/13)\->C
N-C*13-1\->D

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:654
File Name:PM.GFX
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\F-Line A+1,B,A+12,B
\F-Line A+13,B+1,A+13,B+16
\F-Line A+12,B+17,A+1,B+17
\F-Line A,B+16,A,B+1
64-(B+6)\->M
D<9\=>\Text M,A+2,D+2
D=9\=>\Text M,A+2,"J"
D=10\=>\Text M,A+2,"Q"
D=11\=>\Text M,A+2,"K"
D=12\=>\Text M,A+2,"A"
\If C=0
\Then \F-Line A+8,B+15,A+10,B+13
\F-Line A+11,B+12,A+9,B+10
\F-Line A+8,B+9,A+6,B+11
\F-Line A+5,B+12,A+7,B+14
\IfEnd
\If C=1
\Then \PlotOn A+8,B+14
\F-Line A+9,B+15,A+10,B+15
\F-Line A+11,B+14,A+11,B+13
\F-Line A+10,B+12,A+8,B+10
\F-Line A+7,B+11,A+6,B+12
\F-Line A+5,B+13,A+5,B+14
\F-Line A+6,B+15,A+7,B+15
\IfEnd
\If C=2
\Then \F-Line A+8,B+8,A+8,B+10
\F-Line A+6,B+10,A+10,B+10
\F-Line A+11,B+11,A+11,B+12
\F-Line A+10,B+13,A+8,B+15
\F-Line A+7,B+14,A+6,B+13
\F-Line A+5,B+12,A+5,B+11
\IfEnd
\If C=3
\Then \F-Line A+10,B+11,A+10,B+13
\F-Line A+5,B+12,A+11,B+12
\F-Line A+6,B+11,A+6,B+13
\F-Line A+8,B+15,A+8,B+9
\F-Line A+7,B+14,A+9,B+14
\IfEnd

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:751
File Name:PM.WIN
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
0\->E
\List 3\->\List 2
\List 4\->\List 5
\For 1\->L \To 5
\For 1\->K \To 4
\If \List 4[K+1]>\List 4[K]
\Then \List 4[K]\->M
\List 4[K+1]\->\List 4[K]
M\->\List 4[K+1]
\IfEnd
\Next 
\Next 
\List 3[1]\->M
\List 3[2]\->N
\List 3[3]\->O
\List 3[4]\->P
\List 3[5]\->Q
\List 4[1]\->R
\List 4[2]\->S
\List 4[3]\->T
\List 4[4]\->U
\List 4[5]\->V
\If R=S+1\ And R=T+2\ And R=U+3\ And R=V+4
\Then \If M=N\ And M=O\ And M=P\ And M=Q
\Then \If R=12
\Then 300\->E
\Text 19,10,"ROYAL FLUSH"
\Else 50\->E
\Text 19,10,"STRAIGHT FLUSH"
\IfEnd
\Return
\IfEnd
5\->E
\Text 19,10,"STRAIGHT"
\Return
\IfEnd
\If M=N\ And M=O\ And M=P\ And M=Q
\Then 6\->E
\Text 19,10,"FLUSH"
\Return
\IfEnd
\If (R=S\ Or S=V)\ And S=T\ And S=U
\Then 25\->E
\Text 19,10,"FOUR OF A KIND"
\Return
\IfEnd
\If (R=S\ And S=T\ And U=V)\ Or (R=S\ And T=U\ And U=V)
\Then 7\->E
\Text 19,10,"FULL HOUSE"
\Return
\IfEnd
\If (R=S\ And S=T)\ Or (S=T\ And T=U)\ Or (T=U\ And U=V)
\Then 4\->E
\Text 19,10,"THREE OF A KIND"
\Return
\IfEnd
\If (R=S\ And (T=U\ Or U=V))\ Or (S=T\ And U=V)
\Then 2\->E
\Text 19,10,"TWO PAIRS"
\Return
\IfEnd
\If ((R=S\ Or S=T)\ And S>8)\ Or ((T=U\ Or U=V)\ And U>8)
\Then 1\->E
\Text 19,10,"JACKS OR BETTER"
\Return
\IfEnd

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:677
File Name:README
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
NAME  : POKER MACHINESIZE  : 3109AUTHOR: JOERG ROCKSTROHThis game is a poker machine. That means you must insert coinsto start. After starting the game you have 10 credits. You caninsert any amount between 1 \and 9, but of cause not m\ore thanyou own. \Then the first five cards appear. Use the F-keys to hold,press EXE to draw. \Then the cards are changed, \and you will see,if you win \or not. After winning a game you can double your win (press F6). Use F2,F3, F4 \or F5 to select one of the covered cards. \If this card ishigher than the left one your win is doubled. Now you can continuedoubling \or start a new game. \If you lose, all your won money isgone, \and you must return to the n\ormal game.
%End