home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / soc / culture / indian / 37134 < prev    next >
Encoding:
Internet Message Format  |  1992-11-15  |  1.3 KB
  1. Path: sparky!uunet!pmafire!mica.inel.gov!ux1!fcom.cc.utah.edu!park.uvcc.edu!ns.novell.com!newsun!sgiblab!zaphod.mps.ohio-state.edu!caen!kuhub.cc.ukans.edu!parsifal.umkc.edu!UMSLVMA.UMSL.EDU!C1935
  2. Newsgroups: soc.culture.indian
  3. Subject: INDIAN ANTHEM TUNE IN BASICA for IBM PC
  4. Message-ID: <168A0E781.C1935@UMSLVMA.UMSL.EDU>
  5. From: C1935@UMSLVMA.UMSL.EDU (KAILASH JOSHI)
  6. Date: Sun, 15 Nov 1992 22:27:45 GMT
  7. Sender: root@parsifal.umkc.edu (Parsifal Administration)
  8. Organization: UM ST. LOUIS
  9. Lines: 23
  10.  
  11. This program when run in GWBASIC or BASICA plays
  12. the tune of Indian Anthem on IBM PCs. Once you type it in
  13. you can issues the command: BASICA ANTHEM.BAS, if
  14. anthem.bas is the name of file where you store it.
  15. Have fun.  The loop at end is to delay the execution of system.
  16. _______________CUT_HERE_______________________________________
  17.  
  18.  
  19. 5 CLS
  20. 10 REM anthem
  21. 20 A1$="mb l8 t120 mn o3cdeee4eedef4e4eed4ddo2mlbo3dmnc2"
  22. 30 A2$="mn c4g4ggg4ggg4ggmlgf+agmnf4ffe4eedmlfmne2"
  23. 40 A3$="e4eee4edggg4f4f4e4eed4ddo2bo3dc1"
  24. 50 A4$="cdeee4eedef2efggg4fedfe1"
  25. 60 A5$="e4e4d4ddo2bo3dc1"
  26. 70 A6$="ggggg4ggg4ggmlgf+agmnf4ffe4eedfe1"
  27. 80 A7$="o4co3bo4c1o3bab1aga1cdeee4eedef1"
  28. 90 PLAY "xa1$;xa2$;xa3$;xa4$;xa5$;xa6$;":PLAY "xa7$;"
  29. 92 A=.99999:FOR C=1 TO 7000:A=A^1.0001:NEXT C
  30. 93 CLS
  31. 95 PRINT "THANK YOU!"
  32. 100 SYSTEM
  33.  
  34.