[P0]
1 FOR C=C TO 2:IF B*SGN C>=3EX4;C=C-A:A=0
2 MODE 4+C:PRINT B:FOR P=1 TO 9:F(P)=INT(RAN#*8:NEXT P:FOR D=0 TO P
3 PRINT MID(G+4,1);D;CSR 4;:Q=2:R=8:T=8
4 FOR E=0 TO 7:S=T:T=H(E):FOR F=E TO 6:U=I(F):IF T>U;H(E)=U:I(F)=T:T=U
5 NEXT F:Q=Q+SGN(T-S:PRINT MID(T+4,1);:R=R-ABS SGN(T-G:NEXT E
6 S$=KEY:S$="0"+S$:S=VAL(S$):GOTO 6+SGN S
7 PRINT:GOTO 9+S/9
8 PRINT E*1EX3:B=B+E*1EX3:RETURN
9 G(S)=INT(RAN#*8:NEXT D:PRINT "Draw":NEXT C:PRINT "End",B:GOTO #1
10 S=B:IF Q=8;E=5:PRINT "F.A";:GOTO 20
11 FOR E=2 TO 8 STEP 2:IF F(E)<>G(E) THEN 3
12 NEXT E:IF Q=1;PRINT "All";:GOSUB 8
13 E=1:PRINT "F.P";:GOSUB 8:IF Q>2 THEN 30
14 E=3:IF K=L;PRINT "Six";:GOSUB 8:GOTO 15*Q
15 PRINT "F.Q";
20 GOSUB 8
30 IF D=P;E=1:PRINT "L.C";:GOSUB 8
40 IF D=0;E=5:PRINT "1st";:GOSUB 8
50 E=R:PRINT MID(G+4,1);:GOSUB 8:PRINT "Plus";B-S:GOTO 1

[P1]
1 VAC:A=1:$="FA\LE\PIbQ\DI\OM#\HT$\GE":PRINT $:GOTO #0
