3D Snooker: 3DSNOOK.B

  10 BORDER NOT PI: INK NOT PI: PAPER NOT PI: CLS : CLEAR VAL "26999": RANDOMIZE USR VAL "23864": LOAD  "3DSNOOK.1"CODE : RANDOMIZE USR VAL "5e4": LOAD  "3DSNOOK.2"CODE : RANDOMIZE USR VAL "27700": PAUSE NOT PI: RANDOMIZE USR VAL "39495"
  65535 NEXT  STEP [C];; LLIST _ RESTORE  INK  MOVE  INK !P INK x RETURN   RETURN  RETURN  OGy INK w#xLEN   OVER !Z
  55672  RETURN  RETURN  OGy INK w#xLEN   OVER  CLS <> CLEAR h~>>>© COPY ~~©>©g COPY > CLEAR 3 FLASH  INK  INK  FLASH [I]USR  CLEAR [P][M] CAT [M] OUT  BRIGHT USR  CLEAR w RETURN g`n< RETURN gn`ngn RETURN g`<cc< CLEAR hgg`g`gg RETURN `w` CLEAR 3[J]USR [O] INK  INK  OUT [J]USR  CLEAR *© RETURN g~g`gg`|~g~<`©g>cc CLEAR hgg>g~gg~>~{> CLEAR 3[J]USR [O] INK  INK  OUT [J]USR  CLEAR *c~s~ps?p~©plpss8pc~?? CLEAR h~©ss`~~pp
  284404 BRIGHT USR  FLASH  BRIGHT  BRIGHT  FLASH  CLEAR *spsvpvfsvssvpvs8ssvs CLEAR hv RETURN sppvpspws CLEAR 4 BRIGHT USR  FLASH  BRIGHT  BRIGHT  FLASH  CLEAR *>sp>s©|?>ss>s©|~8>ss>>?>>? CLEAR hss RETURN >pps©>©s> CLEAR [P][J] CAT [J][P] OUT  CLEAR  INVERSE  INVERSE  BRIGHT  BRIGHT  INVERSE [M] CLEAR  MERGE [P][J] CAT [J][P] OUT  CLEAR  INVERSE  INVERSE  BRIGHT  BRIGHT  INVERSE [M] CLEAR  MERGE  FLASH  INK  INK  FLASH [I]USR  CLEAR [P][M] CAT [M] OUT  BRIGHT USR  CLEAR >g~>~ COPY ©|>~>>f©|~<=>g~>>>> CLEAR   RETURN ▞ RETURN