script "Infinite Credits"  
run:
    poke $6064762 $09
script " "  
script "P1 Infinite Time"  
run:
    dpoke $6064BEA $0000
script "P1 Select Perm Current Shape" \
 "0x02/Red --"\
 "0x03/Green Z"\
 "0x04/Purple Z"\
 "0x05/Dark Blue L"\
 "0x06/Orange L"\
 "0x07/Yellow square"\
 "0x08/Light Blue T" 
run:
    poke $6064BF7 param
script "P1 Select Perm Next Shape" \
 "0x02/Red --"\
 "0x03/Green Z"\
 "0x04/Purple Z"\
 "0x05/Dark Blue L"\
 "0x06/Orange L"\
 "0x07/Yellow square"\
 "0x08/Light Blue T" 
run:
    poke $6064BF9 param
script "P1 Select Current Shape Now!" \
 "0x02/Red --"\
 "0x03/Green Z"\
 "0x04/Purple Z"\
 "0x05/Dark Blue L"\
 "0x06/Orange L"\
 "0x07/Yellow square"\
 "0x08/Light Blue T" 
change:
    poke $6064BF7 param
script "P1 Select Next Shape Now!" \
 "0x02/Red --"\
 "0x03/Green Z"\
 "0x04/Purple Z"\
 "0x05/Dark Blue L"\
 "0x06/Orange L"\
 "0x07/Yellow square"\
 "0x08/Light Blue T" 
change:
    poke $6064BF9 param
script " "  
script "P2 Infinite Time"  
run:
    dpoke $6064F82 $0000
script "P2 Select Perm Current Shape" \
 "0x02/Red --"\
 "0x03/Green Z"\
 "0x04/Purple Z"\
 "0x05/Dark Blue L"\
 "0x06/Orange L"\
 "0x07/Yellow square"\
 "0x08/Light Blue T" 
run:
    poke $6064F8F param
script "P2 Select Perm Next Shape" \
 "0x02/Red --"\
 "0x03/Green Z"\
 "0x04/Purple Z"\
 "0x05/Dark Blue L"\
 "0x06/Orange L"\
 "0x07/Yellow square"\
 "0x08/Light Blue T" 
run:
    poke $6064F91 param
script "P2 Select Current Shape Now!" \
 "0x02/Red --"\
 "0x03/Green Z"\
 "0x04/Purple Z"\
 "0x05/Dark Blue L"\
 "0x06/Orange L"\
 "0x07/Yellow square"\
 "0x08/Light Blue T" 
change:
    poke $6064F8F param
script "P2 Select Next Shape Now!" \
 "0x02/Red --"\
 "0x03/Green Z"\
 "0x04/Purple Z"\
 "0x05/Dark Blue L"\
 "0x06/Orange L"\
 "0x07/Yellow square"\
 "0x08/Light Blue T" 
change:
    poke $6064F91 param
