home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / mus / bornfr.ba < prev    next >
Text File  |  2006-10-19  |  2KB  |  57 lines
  1. 0 'Club 100 Library - 415/939-1246 BBS     937-5039 NEWSLETTER, 932-8856 VOICE
  2. 1 CLS:BEEP:DEFINTA-Z'BORNFR' MU-24 1/19/85
  3. 2 ' by STAN KENDALL * Wilmette, IL
  4. 3 ' 1945 WASHINGTON AVE * WILMETTE, IL                  60091
  5. 10 A=50:B=30:C=190:D=30:M=0
  6. 12 FORZ1=1TO30:LINE(A,B)-(C,D),1,B
  7. 14 A=A-1:B=B-1:C=C+1:D=D+1:NEXT
  8. 16 LINE(A+2,B+2)-(C-2,D-2),M,B
  9. 20 FOR A=20TO50STEP10:LINE(40,A)-(200,A),M:NEXT
  10. 22 B=60:FORA=20TO50STEP10:LINE(B,A-2)-(B+4,A+2),M,BF:B=B+30
  11. 23 IF A=50THEN26
  12. 24 LINE(B-26,A-1)-(B-26,A+16),M:NEXTA
  13. 26 LINE(180,40)-(180,24),M:LINE(180,38)-(184,42),M,BF
  14. 28 FORV=1TO8:READW,X:SOUNDW,X:NEXTV
  15. 30 PRINT@45,"BORN FREE":PRINT@56,"<MU-24>":PRINT@65,"(P)lay (Q)"
  16. 35 DATA4697,40,6269,60,6269,20,5586,20,6269,10,7032,10,7456,40,9394,60
  17. 40 Y$=INKEY$:IFY$=""THEN40
  18. 50 IFY$="P"ORY$="p"THEN100
  19. 60 IFY$="Q"ORY$="q"THENMENU
  20. 70 GOTO40
  21. 100 N=81:DIMN$(N),L(N),WD$(N)
  22. 110 DATA H,40,G,60,G,20,A,20,G,20,F,20,E,40,C,60
  23. 120 DATAG,20,A,20,G,10,F,10,B,40,G,20,E,20,F,20,F,20,F,10,E,10,D,20,C,120
  24. 130 DATAH,40,G,60,G,20,A,20,G,10,F,10
  25. 140 DATAE,40,C,60,G,20,A,20,G,10,F,10,B,40,G,20,E,20
  26. 150 DATAG,20,G,20,G,20,A,10,G,10,B,120
  27. 160 DATAJ,20,A,60,A,20,B,10,A,10,G,10,E,40,H,60
  28. 170 DATAH,20,J,20,A,10,H,10,J,30,H,10,J,30,H,10,J,30,H,10,J,30,H,10,J,120,H,40,G,60
  29. 180 DATAG,20,A,20,G,10,F,10,E,40,C,60,G,20,A,20,G,10,F,10
  30. 190 DATAB,40,G,20,E,20,H,40,H,40,H,60
  31. 210 DATA BORN ,FREE- ,AS ,FREE ,AS ,THE ,WIND ,BLOWS-.
  32. 220 DATA AS ,FREE ,AS ,THE ,GRASS ,GROWS.
  33. 222 DATA BORN ,FREE ,TO ,FOL,LOW ,YOUR ,HEART.
  34. 230 DATA LIVE ,FREE- ,AND ,BEAU,TY ,SUR,ROUNDS ,YOU -.
  35. 232 DATA THE ,WORLD ,STILL ,AS,TOUNDS ,YOU ,EACH.
  36. 250 DATA TIME ,YOU ,LOOK ,AT ,A ,STAR-.
  37. 260 DATA STAY ,FREE - ,WHERE ,NO ,WALLS.
  38. 265 DATA WILL ,DIVIDE ,YOU-.
  39. 270 DATA YOU'RE ,FREE ,AS ,A ,ROAR,ING ,TIDE.
  40. 275 DATA SO ,THERE'S ,NO ,NEED ,TO ,HIDE-.
  41. 280 DATA BORN ,FREE- ,AND ,LIFE ,IS ,WORTH ,LIV,ING.
  42. 285 DATA BUT ,ON,LY ,WORTH ,LIV,ING ,'CAUSE.
  43. 290 DATA YOU'RE ,BORN ,FREE-----.
  44. 400 DATA"CDEFGABHJ"
  45. 410 DATA9394,8368,7456,7032,6269,5586,4976,4697,4184
  46. 420 FORI=1TON:READN$(I),L(I):NEXTI
  47. 430 FORI=1TON:READWD$(I):NEXTI
  48. 440 READTN$:FORI=1TOLEN(TN$):READFR(I):NEXTI
  49. 500 CLS
  50. 510 FORI=1TON:PRINTWD$(I);:SOUNDFR(INSTR(TN$,N$(I))),L(I)
  51. 520 IFRIGHT$(WD$(I),1)="."THENPRINT
  52. 530 IFI=50THENCLS
  53. 540 NEXTI:FORA1=1TO999:NEXT
  54. 550 RESTORE
  55. 560 CLS:M=1:A=20:B=0:GOTO16
  56. 570 END...............
  57.