63-THOMSON:(Fredo GIACHETTI)[DCmoto PASTE]
1 CLS:FORC=0TO320STEP8:FORL=0TO200STEP4:BOX(C,L)-(C+8*RND,L+8*RND),0:NEXTL:NEXTC:BOXF(10,10)-(30,15)" ":BOX(80,80)-(248,128),0:COLOR1:LOCATE12,11:PRINT"TAS DE FAINEANTS":LOCATE12,13:PRINT"DEUX CARRES SONT":LOCATE11,14:PRINT"IDENTIQUES:LESQUELS?"
2 FORI=0TO5:PLAY"A1T1O3L12DO#RE#DO#RE#DO#RE#MI#FA#SO#LAPPT3O2L24RE#MI#MI#":NEXT:LOCATE0,24,0