'Program : Music (Khodanegahdar)
'Programer : FARZAD BADILI(FDB@bigfoot.com)
'http://www.inernettrash.com/users/fdb/ 

b:
READ A$: PRINT A$: PLAY "t150"
IF A$ = "end" THEN END
IF A$ = "stop" AND A = 0 THEN A = 1: GOTO b
IF A$ = "stop" AND A = 1 THEN STOP
IF A$ = "again" AND b = 1 THEN GOTO b
IF A$ = "again" AND b = 0 THEN b = 1: RESTORE: GOTO b
PLAY A$: GOTO b
DATA o3l2p4,p4,p4,p4,p8l8ddf,l2a,p8l8ao4do3b-,l2a
DATA o3l8p8ab-a,o4co3b-l4a,fp4,l8p8gag,b-al4g,ep4
DATA o3l8p8def,b-.l16al8gf,dfl4a,l1a
DATA p8l8ddf,l2a,p8l8ao4do3b-,l2a
DATA o3l8p8ab-a,o4co3b-l4a,fp4,l8p8gag,b-al4g,ep4
DATA o3l8p8def,b-.l16al8gf,l8efl2d,o2a,l2o3d
DATA o4l2d,dl8p8ddc,l4de-,l8e-ddc,co3b-b-a,p8o4cco3b
DATA o4l4cd,l8dcco3b-,b-aag,p8b-b-a,l4b-o4c,l8co3b-b-a,aggf
DATA o3p8l8aag,l4ab-,l8b-aag,gffe,l8p8b-b-a,l2g,p8l8aag,l2f
DATA l8p8b-b-a,l2g,p8l8aag,l2f
DATA o3l8p8b-b-a,gfl2b-,a,p4,l8p8aag,fel4a,ag,gp4
DATA o3l8p8ggf,edl4g,gf,fp4
DATA o3p8l8ddf,l2a,p8l8ao4do3b-,l2a
DATA o3l8p8ab-a,o4co3b-l4a,fp4,l8p8gag,b-al4g,ep4
DATA o3l8p8def,b-.l16al8gf,dfl4a,l2a,l2a
DATA o3l8p8aaa,afp8g,agb-agep8f
DATA o3l8gafg,fdp8e,efga,o3b-l16o4co3b-l2a.
DATA o3l8p8aaa,afp8g,agb-agep8f
DATA o3l8gafg,fdp8e,efga,o3b-l16o4co3b-l2a.
DATA o3l8el16,fel2d.
DATA o3p8l8ddf,l2a,p8l8ao4do3b-,l2a
DATA o3l8p8ab-a,o4co3b-l4a,fp4,l8p8gag,b-al4g,ep4
DATA o3l8p8def,b-.l16al8gf,dfl4a,l2a,l2a,again,end