PACHINKO



#1
IF EZ G.BTNV: BREAK
PN.PUSH 1 0; PN.PUSH 2 G.BTNY
PN.PUSH 3 15

#2
X PN 1 I; Y PN 2 I; Z PN 3 I
IF < G.LED X Y 9: G.LED X Y -3
IF EZ PN 3 I: $ 3; BREAK
G.LED PN 1 I PN 2 I 4
PN.- 3 I 1

#3
X + 1 PN 1 I; Y PN 2 I
B G.LED X Y
IF LTE B 1: PN.+ 1 I 1
IF LTE B 1: PN 3 I - 15 X
ELSE: $ 4

#4
A * 4 Y; A + A X; CV 1 N A
Y ? TOSS + Y 1 - Y 1
IF > G.LED PN 1 I Y 1:
ELSE: PN 2 I Y; TR.P 1
PN 3 I 15

#5
G.BTN.PR 3 1; G.BTN.PR 3 0

#6
G.BTN.PR RRAND 100 220 1

#7
IF GTE PN 1 I 16: PN.RM 3 I
IF GTE PN 1 I 16: PN.RM 2 I
IF GTE PN 1 I 16: PN.RM 1 I

#8
IF EZ G.BTNV: D -3
ELSE: D 9
G.LED G.BTNX G.BTNY D

#M
M! PARAM; TR.TIME / M 2
IF EZ PN.L 1: BREAK
L 0 - PN.L 1 1: $ 2
L 0 - PN.L 1 1: $ 7

#I
INIT.P.ALL; INIT.DATA; G.RST
PARAM.SCALE 4 50
G.BTX 0 0 0 1 1 0 0 1 1 8
G.BTX 100 1 0 1 1 1 0 8 15 8

#P
0	0	0	0
1	1	1	1
0	0	0	0
63	63	63	63

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
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
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
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
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

#G
0000000000000000
0000000000000000
0000000000000000
0000000000000000
0000000000000000
0000000000000000
0000000000000000
0000000000000000
0000000000000000
0000000000000000
0000000000000000
0000000000000000
0000000000000000
0000000000000000
0000000000000000
0000000000000000

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	0	0	0	0	0	0	0	0	0	0	0	0