SQR1 1/2 $ 1 BD $ 2 SD $ 3 $ 4 $ 5 $ 6 $ 7 $ 8 $ 11 SWITCH $ 12 $ 13 $ 14 $ 15 $ 16 $ 17 GRID SETUP $ 18 HANDLE BUTTON PRESS PN 3 0 FIRST SCENE PN 3 1 NB SCENES PN 3 2 SWITCH LEN PN 3 3 DISP LEN PN 3 4 DISP DIV (TMP) PN 3 5 NEXT SCENE (TMP) #1 IF ! G.BTN.V 1: BRK IF ! % T 6: SC.TR.P 1 #2 IF ! G.BTN.V 2: BRK I BGET 64 Y TO.CV 4 RND V 5 IF ! I: BRK DEL.R << 1 RND 2 M: TO.TR.P 4 #3 #4 #5 J ? * == % T 3 2 RND 2 8 1 IF ! G.BTN.V 4: J 1 TO.CV 1 N.B J K || ! % T 3 ! RND 2 IF * G.BTN.V 5 K: TO.TR.P 1 CV 4 ? > % T 6 3 RND V 9 0 #6 TO.CV 2 N.B + B 2 #7 PROB 30: CV 1 RND V 5 PROB 10: J 5 PROB 10: J + J 4 PROB 10: J - J 3 IF G.BTN.V 7: TO.CV 3 N.B J #8 #M G.REC 0 6 16 1 0 0; J PN 3 3 G.REC 0 6 J 1 5 5; Y % T J G.LED % / T PN 3 4 PN 3 3 6 15 L 11 16: $ I L 1 8: $ I T + T 1 #I M 100; T 0; $ 17 L 2 4: TR.TIME I 20 L 1 8: TO.TR.TIME I 20 TR.TIME 1 120 N.B 5 -5 #A G.GBTN.V 1 0 G.BTN.V + SCENE 32 1 IF == SCENE PN 3 5: BRK G.BTN.V + PN 3 5 32 % T 2 IF % T PN 3 2: BRK SCENE.G PN 3 5; $ 10 #B IF != % T 3 1: TR.P 4 IF || ! % T 6 ! RND 6: TR.P 3 TR.P 1 #C TO.TR 3 G.BTN.V 6 #D #E #F #H M.RESET; PN 3 5 SCENE J + 32 PN 3 0; K PN 3 1 G.GBX 0 1 0 7 1 1 1 5 0 9 1 G.GBX 1 J 10 7 1 1 1 5 18 K 1 G.GBT 0 0 15 7 1 1 1 5 18 PN 3 4 / PN 3 2 PN 3 3 #J J G.GRPI; K * J ! M.ACT IF J: PN 3 5 - G.BTNI 32 IF K: SCENE.G PN 3 5 IF J: G.BTN.SW G.BTNI; BRK M.ACT G.BTN.V 0; $ 10 #P 0 0 0 6 1 1 1 1 0 0 0 0 63 63 63 63 0 0 0 1 0 0 0 2 0 0 0 48 0 0 0 12 0 0 0 4 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 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 1000000000000000 0000000000000000 0100000000000000 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