650 print "{yellow}{up}{space*3}premi fire in porta 2 per giocare{space*3}"
655 if(peek(56320) and 16)=0 goto 665:rem attente pressione fire
660 goto 655
665 poke 53269,0:poke 53280,15:poke 53281,0:poke 646,1:rem colore sfondo,bordo scritte
670 d=2:print"{clear}{down*11}{right*9}{green}quanti dischi ? (1-8)"
675 print "{yellow}{right*11}{down*3}(joystick up/down)"
680 print"{home}{down*11}{right*31}{space*2}<{up}"
685 print"{home}{down*10}":print tab(31);d:j=peek(56320)
690 if(d<=7 and (j and 1)=0) then d=d+1
695 if(d>=2 and (j and 2)=0) then d=d-1
700 if(j and 16)=0 then 715
705 for i=1 to 25:next i
710 poke 56320,255:goto 685
715 gm$="g":print "{clear}"
720 poke 56320,255
725 if(gm$="g") then print"{home}{down*9}{space*11}{yellow}>{reverse on}{space*4}giocare{space*5}{reverse off}<"
730 if(gm$="g") then print"{home}{down*11}{space*11}{green}>vedere soluzione<"
735 if(gm$="s") then print"{home}{down*9}{space*11}{green}>{space*4}giocare{space*5}<"
740 if(gm$="s") then print"{home}{down*11}{space*11}{yellow}>{reverse on}vedere soluzione{reverse off}<"
745 print "{yellow}{right*11}{down*3}(joystick up/down)"
750 poke 56320,255:j=peek(56320)
755 if(gm$="s" and (j and 1)=0) then gm$="g":goto 720
760 if(gm$="g" and (j and 2)=0) then gm$="s":goto 720
765 if(j and 16)=0 then 780
770 for i=1 to 50:next i
775 goto 750
780 rem