home *** CD-ROM | disk | FTP | other *** search
/ Audio 4.94 - Over 11,000 Files / audio-11000.iso / msdos / speech / talk / talk.bas < prev   
Encoding:
BASIC Source File  |  1994-03-16  |  11.3 KB  |  106 lines
  1. 10 CLS:KEY OFF
  2. 20 CLEAR ,&H8000:TALK=&HE000:DIM A$(36)
  3. 30 FOR I=0 TO 71:READ J:POKE TALK+I,J:NEXT I
  4. 40 DATA &H55,&H8B,&HEC,&H8B,&H76,&H6,&H8A,&H4,&H8A,&HC8
  5. 50 DATA &H46,&H8B,&H3C,&H8A,&HE9,&HE4,&H61,&H24,&HF7,&HE6,&H61
  6. 60 DATA &H8A,&H3D,&H80,&HFF,&H20,&H74,&H25,&HB6,&H6,&HFE,&HC6
  7. 70 DATA &HD0,&HE7,&H32,&HE4,&HD0,&HE7,&HD0,&HD4,&HD0,&HD4,&HE4
  8. 80 DATA &H61,&H24,&HFC,&H2,&HC4,&HE6,&H61,&HB3,&H25,&HFE,&HCB
  9. 90 DATA &H75,&HFC,&HFE,&HCE,&H75,&HE6,&H47,&HFE,&HCD,&H75,&HD4
  10. 100 DATA &H5D,&H58,&H5B,&H59,&H53,&H50,&HCB
  11. 110 A$(1)="°ÇêÇâ├≡ÄçüÇ╛çâßα■â┴≡░ƒüα°ÉÅ└≡╝ǃ└░╝èÅ└£₧çÅα£Åüç≡çç└ß≡â├α°■â├≡° üπ≡°┐âπ≡╕ üß≡╝┐üß°£┐┴≡°₧ƒ└≡ⁿăα°╛çÅα°╝ÅÅα°₧ç╟α╝ƒç├≡╝ƒçß≡╛Åâß≡╛Åâ±α╝Å├∙└°ƒç÷ü°╛çⁿâ≡ⁿÅ≡Å┴°┐└╛â≡ⁿü°ƒ╟≡Å└ⁿ╛üⁿÅ≈αƒ└ ■üⁿç αƒ└ ⁿâ°Å Ç┐â ≡çα ⁿâ°ƒ ÇⁿÅ Ç╝ŠǣŠǣŠÇäÅ ÇÇ┐ⁿÇÇ °"
  12. 120 A$(2)="■Çÿîüⁿâ ≡â≡Åπ└ƒ└╝Äüⁿâ≡°ç≡Åç└ƒ└╝₧Çⁿüαⁿâ°â┴≡ç≡çâαÅα₧ç└ƒ└£ÅÇ┐Ç╕ƒÇ╛Ç≡╛Çⁿüα■ÇⁿÇÇ■ÇⁿÇÇ■Ç■ÇÇ■Ç■ÇÇ■Ç■ÇÇ╛Ç┐ÇÇ■Ç■ÇÇ╛Ç ÇÇ₧Ç┐ÇäÄÇ┐Ç£îÇ■Ç£ÿÇⁿÇⁿÉâ°üßÇÅ└ÅÇÇ╛Ç°ÇçαîÇÇ╕ÇÇÇåÇ└ÇÇÇöÇÇÇÄÇÇÇÄÇÇÇèÇÇÇé"
  13. 130 A$(3)="└ÇÇÇÇÇäÇÇÇÇÇÇÇåÇÇÇÇÇÇÇÇëÇÇÇÇÇéÇÇÇÇÇÇÇÇÇÇÇ└ÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÅ⌠Çç°┐Çâⁿƒ■Ç╛ç ÇÅ┴ αç≡┐°â°ƒⁿÇ■â Çƒ└ ≡ç°Å■Ç┐ü αç°Å■Ç┐└ ≡âⁿâ■Ç┐└ƒ°ü■ü αç°ç Çƒαƒ■Ç┐Ç┐°ü■ü ≡âⁿü αÅ≡â Çƒαç Çƒ└Å■Ç┐└Å■Ç ÇçⁿÇ ÇÅ°ü■Çù≡ç°â╟└ƒα£₧Ç■Ç≡≡ç≡ÅÄÇ╛ü≡≡ç└ÇÄÇ╕éÇ└â"
  14. 140 A$(4)="└ÇÇÇÜÇìÇâ≡ü°└ÅαÅ└ü■ÇⁿáÅ≡Å≥Ç Ç ░ç≡ç√Ç Ç┐ÿç°ü·└Å└Å∞âⁿDzáÅ≡â²└ƒ└Å■Ç╛ǃ°ÇⁿÇ ░ç°üⁿ≡Å≡â°└ƒ└Åπǃǃ╓Ç╛Ç┐¼ÇⁿÇ■ÿü°üⁿáç≡â°ÇÅαÅαÇ■Ç áâ°â Çƒ└ƒ°üⁿü Çƒ└ç≡â°ü■Ç╛Ç┐ÇÅ└ÇÇâαÇÇÇ╕ÇÇÇé"
  15. 150 A$(5)="ⁿÇⁿǃÇÅ└Åαçαç≡â°â°üⁿüⁿÇ■ü■Ç╛Ç■Ç┐Ç┐└ÅαÅ≡â°âⁿÇ Ç └Å≡Å°âⁿâ■Ç┐└┐αç≡çⁿü■Ç └Å≡çⁿü■Ç └Å≡çⁿü■Ç┐└Å≡çⁿÇ■Ç┐└ƒαç°ü■Ç └Å≡çⁿü■Ç┐└Å≡çⁿÇ■Ç┐└Å≡çⁿü■ǠǃαÅ≡âⁿü Ç┐└ƒαç≡âⁿü■Ǡǃ└┐αÅαÅ°â≡ç°ü°üⁿÇ╛Ç░ÇÇÇÇÇÇÇÇÇÇÇä"
  16. 160 A$(6)="ααα≡ÿ╕í╟âçåÄ°░≡├╧çÅ░°ßτ├çå₧ⁿÿ°ßτ├çå£ⁿ░°ß∩├ç£│°ß≤╞¢åÄ╕≤╕ß├Ä╗åî░π°░τåƒå£°º∙╙ºê┐═ö≡╦°╤├å╧┼îÿÉⁿ¿Θß▐ΓçΣƒ÷Çåç±└ÇÇⁿÇÇÇÇ└"
  17. 170 A$(7)="└Ç└ÇóÇäÇ└└▒ÇÇÇÇÇä┬¼éäÇ╣ÇÇüÉà⌠é╚äü üñÉü üαÇü■âαÉâⁿç└ÇÅ≡ƒüǃα■äÇ üⁿêü■ü°Çâⁿâ≡áç°ç≡└Å°ç∙└Å°â²└Å°â └ç°ü αçⁿü αç°ü └çⁿÇ αçⁿÇ αçⁿÇ αç°Ç αç°Ç └Å≡ü Çƒαç■Ç Ç┐≡âⁿü └ƒαÅ°üⁿü■Ç₧Ç╕└Å└ÿÇÇαÇÇÇÉÇÇÇÇÇÇÇÇÇÇÇÇÇÉÇÇÇÇÇÇÇê"
  18. 180 A$(8)="ⁿçâα≡■ç╟ß≡ⁿÅç├≡°₧Å├ß≡╝Åç├α°╝Åçâ≡°╛ÿÅ╟α°Φ▐çâ÷ü≡╕ƒ░Åâ≡ ÇⁿÅ╟≡Å┴°ⁿâ°ƒ▀└£â ≡Å└»°çαàⁿâⁿÇ▀ǃÇÇÇÇÉÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇüÇäíüÇÉäê┬ÇêÉÉëåüäáäÇÇ┬ä└üÑÇ░üáÇ┬╚êÇ╥┬êê└Çê└ÇÇÇ¥ûÇÇÑ░ÇÇÇÇ╒Çè╒≡ü¬└ÇåÄÇÇå"
  19. 190 A$(9)="╟Çó▓âê┤æ│üê╛îΦΓåäúï£└─î≤ú£│éÿ┘╞êπî∞πîπî¼πê┬ÿ∙µ£├ÿ∙πîßî∞α╞┬î╝αåúå₧░é▒├èÿÇÿΘ╟╠üî£ΓµÇºîÿ±└æ╞åä░ä▒╚┴╠üîôÿ│┬ÇÇúå╕╞ÿë├ûü╠ó░πÇí┴è┤αä░ú╩£É╚╨ß╞éê╕▒±┬äê┤░┴åê╕°áÄÉ≡°ÉƒÇ░╝êÅÇ°╕£Å└≡ⁿÄÅüα°£₧ç┴≡╕≡₧çü±Ç≡╕çêÅâ└╣Ç≡╕çÇÄçÇ░üÇÉÇÇÇÇÇÇÇÇâ└ÇÇü└ÇÇäÇÇÇá"
  20. 200 A$(10)="éÇÇÇÇÇéêü─áÇÉéñÆΦüⁿÇ╘Éâⁿç≡≡â°Åß≡ƒα┐ç└┐â°╛üⁿÅ├ⁿçαⁿƒêÅ┴≡ⁿ░ƒçß°≡₧Å┴≡°₧Åâß°₧ç├ß·âπ≡°╝Ç°╝₧Åÿ₧Åç├÷ç╟ß≡²üß°°┐ü≡°╝ƒα°╝₧ç╨╝₧Åâ°₧Åç┴°₧Å├ßⁿç╟ß≡╝ç├≡≡╛âß°╝₧ü≡ⁿ₧çü°╛ççÇ°ƒçπÇⁿƒâπÇ°ƒâⁿü≡ⁿÅαÅ┴°┐ÇⁿÅ┴°çαⁿƒÇⁿÅ├αƒâ≡°çßⁿ╛Ç°┐┐Ç≡┐■ÇÇ┐ⁿÇÇ┐ΦÇÇ┐αÇÇ┐αÇÇ┐áÇÇ£"
  21. 210 A$(11)="└åÇáÇÇÇÇÇÇ└ÉÉÇÇÿÇÇç ⁿÇÇÇ┐°Çü■Ç■ⁿÇ ÇÇé αâ°ç ∙≡ƒ╟≡·ü°╛ƒ≡₧Åπ√ü≡ⁿ┐ÿÅçß∙α╝ƒç╟ü≡ⁿ₧₧âπ≡°╝Åç├≡°ÄÅ╟ß°₧Åçâ≡₧ƒÅâ°ÄÅç├ⁿçç├ß âπß≡ └≡°╕┐≡╝╛₧çⁿÄÅç├ⁿç╟┴≡ ü±°╝ƒα╕╛ÅçⁿÅçß≡ ü≡°₧ç≡₧Å├ßⁿÅπ≡╝Åü°╛çπα╛çα■≡Åß°ƒ°ç≡ⁿÅⁿâ≡╛ç°â≡╛ç≡ÅαⁿÅαƒ┴°ƒÇ╛â≡ⁿü°ƒç≡çß°┐ǃç ≡üπ"
  22. 220 A$(12)="└αÇçü├├Ççü├├âÅü├├Çîü├ßÇåÇßß┬ÄÇ░±πÅÇ░∙α├äÿ░α├Γîÿ░í√Äî╕æ╜çÄ£░╬╟╟îêºú┬îäºß├├éÖ╪αααä°░╕ÿα╝££¼▒₧ÄåÜî∩çâ─å│çâ┬â£├┴ßÇ╬ßα≡α│α≡╕░Åα≡╝ÿç≡°£îç≡°₧Äçα≡╝Äçß≡╝Äç┴≡╝Åç┴≡╝Åçâα╕Äåç└≡££Åâα░α°Åüπâα╝ç╚Åüα₧Ç°ÄÇⁿçüαîα≡£ü°êçÇç├üαÇ≡äÉÇ╝ÇäÇ│ÇÇÇëÇÇÇÇÇÇÇåÇÇüî"
  23. 230 A$(13)="αââ├çÇ££îîÇî₧Çì─Ä₧êâ┴â╟┬ÇÇ░ß±┴¿äî╝ÿíÇ┴ç├ä╨äÿ╕É╬ÇâçÉë└Çß≥Ç╪åî£░ÑÇí├┬ä°ÿ╕°ÉÅâ┼╟┴ü╪ÿ╪ⁿêƒåçÅ└α≡└°ⁿçαêç└└ç┐└┐ÇÇ╛ÇÇ ÇâÇǃαÇÇÇÅ≡ÇâÇÅ°ÇüÇÅ≡ÇéÇÅ≡ÇÇǃαÇÇÇ └Çáü■ÇÇÇÅ≡ÇÇÇ┐└ÇÇâ ÇÇǃ°ÇÇü └ÇÇ┐╧└≡Å┴°₧ü°╛Åα╝Å┴°Åâ≡■âα°ƒÇ≡╛Åα╕Å╟α£Åτ≡£ÅταîÅ └ǃ√Çǃ⌠"
  24. 240 A$(14)="┴τßßτÇ∩ßßτÇ∩┴ú∩ü ├├╬ü àà£à╛ÄÅ╕à■èÄ°ïⁿö₧≡ƒ°╕╜░ƒ≡≡■á┐α░■â üαⁿç■ǃⁿüⁿÇ ≡ç≡â └┐└Å■üⁿÇ┐°Å≡â └┐ǃⁿç°ü α┐└Å■üⁿÇ ≡ƒαç■üⁿÇ αƒ└çⁿç°ü ü■Ç┐≡ƒ└ÅⁿÅ≡ü âⁿÇ α■ǃ≡┐ÇÅ°ƒαç■Å≡â Å≡â ç≡ü ç≡ü■╟≡ü╛╧≡ü┐▀≡Çⁿ┐α└ÿƒ Ç└ °åâ αîÅ └░┐■Ç└■ⁿââ ≡äç αÇÅ ÇÇ┐ⁿÇü ≡Çç "
  25. 250 A$(15)="≡╕áÇââåéÇÄÄîÇÉ£ÄîÇá£Äêäá£ÄîäÇ£ÄÄåÇÄçåâÇçâ├üÇçüß└αâ└≡≡áÇ≡╕£êÇ╕ÄâåÇçâ┴ααá≡╕╕ÿî£çåâ└ßα°░ÿîÄç├┴α░≡£îçâ├α≡░îäÅâßα░É╕Äçüα┴≡╝îçüâα°£Äéçüαÿ£äÄâα░╕ê£çÇßαá°₧â┴└ü≡£çâ└âα╕ÄâÇç└≡îåÇÅüα£îÇ₧âα°£Ç╝ç└≡ÇÇ°ÅÇ≡Çü≡₧üαÇçα╝â└ǃÇ≡ÄÇü°çüαÇ╛üαîǃǰçǃÇ╕çαƒ"
  26. 260 A$(16)="└ÿë°Çü ⁿÇü└ƒ≡ÇÅ  ÇÇÇÅ≡ÅÇ┐αÇǃ ≡Çǃ°Ç·ƒ└ƒ┴ⁿüⁿÅαÅα Ç┐âⁿüⁿç≡ç≡ƒ└Åα┐└ƒ└ └ƒ└ └Å└┐αçαƒ≡â°çⁿÇ■Dz└ÅαÅ╪ü■ü°αç°âαǃαç┴ǃαçü└Å≡ÇÇÉü■ÇÇÇÇÅαÇÇÇÇ ÇÇÇÇÇ■ÇÇÇÇÇ ÇÇÇÇǃ└ÇÇÇÇâ°ÇÇÇÇǃÇÇÇÇÇÇⁿÇÇÇÇÇâ≡ÇÇÇÇÇâ≡ÇÇÇÇÇü≡"
  27. 270 A$(17)="└ÇÇÇÇÇÇÇÇÇÇÇÇäÇÉÇÇÇÇÇÇÇÇÇÇÇÇÇéÇÇüÇÇÇêÇÇÇÇáÇǃ°Ç┐╧≡çⁿ╛ǃ ≡⠠ǃ⌡°ü »└Å·■Ç■├≡â°»αƒα■Ç■ç°â°Å°â°ƒ°â°ƒⁿüⁿÅ Ç â ≡Å└ⁿ üⁿÅπ°ç≡╝Åαƒ┴≡ƒαƒ├°Å°çαⁿç Çⁿç└┐₧ü°ÅÇ■ƒÇⁿç└£çαÅ└Çâ╚░ÇÄÇÇü ≡ÇÇâ ▄ÇÇÇÇÅ■ÇÇÇÇ£"
  28. 280 A$(18)="└αÿ╝░Ç₧âÅ╞êƒ├╟πåÅ┴πτă┴├πåÅßππ╟Å≡±±π╞°╕╝≡π₧ÄÄÿ╕∩├â╬î╗╤┴πâ¥Σ╕£α│Ö╞çîå╖╕≡±└µτ╞ç£î┐°░▒╨┴▌╟â¢ÿ¢╠░╣°┴╠πâ╔┴═ε££îîε≡Φααµ∩╞╞åååⁿ╝╕░░ºπππâé╛₧ƒ£ÿ¢±±±±├■₧ƒåèƒ┴πααº≡░°ÿƒ≡╕£îÅ°£Äçâ°Äçâß°Äçâα°ÄÅçß≡£ÄÅ├α≡╝₧₧çâα≡≡╝₧ç÷ââα²αÇ╕┐ÇÇü ÇÇü ÇÇÇ áÇü■ÇÇâⁿ"
  29. 290 A$(19)="°ÇäÇÇ°╕╕░╛├├┬è∞££░≤ßπ╟Å╛₧£╕≤±≤├╞ƒ╟Ä£Öⁿ░±├╟ß╟╞Ä┐à£ÿ≤ⁿ┤≡π╧ßπ╟Ä┐ì£ÿ√°╕░╥ âç╩»≡╕╝ƒ â├ß ≡££ƒεüÇü αÇÅ ≡Çç ÇÇ£ÇÇâ■ÇÇÇåÇÇÇÇáÇöÇÇÇåüÇÇÇé╘ÇÇÇÉüÉÇÇÉÇÇÇÇì┬ÇÇɬÉÇüÑêÇÇÇäÇ▓ÇÇÇäÇóÇÇÇÇÇáÇÇäíÇÇÇ▐ÇÇåÇÇÇô║éöÇÇáÉÇÇüÇöÇè▄ÇÇÇáÇÇÇÇûÇÇÇ└üαÇÇáÇñÇÇÇ┴"
  30. 300 A$(20)="└Çá┴╜É╠áÇÇ╟╧⌡ÇÇ┐╩ÇⁿÇ┐≡äÇåÅÇ┐αÇç²└ÇÇç╚ÇÇÇÇâ αÅ┴■ÇⁿÅ≡ç≡┐Ç┐ü°â°ÅαÅα┐└ƒ└■Ç╛ü■Ç■âⁿÇⁿâ■Ç╛â ÇƒÇ αç≡┐°üⁿç≈ǃα╛ÿü■â±αç≡Å┴ǃα╛åÇ┐└ⁿåÇ Çⁿîü■Ç°îÇ Ç╕ÄÇ┐└£ÅÇ┐└Äç└ƒαçâ└Å≡Äçαç≡ÄçαÅα₧ç└ƒ└°ÅÇ╛âα╝â≡₧âαƒüα╝üα╕Å└ÇåüαÇüüÇÇÇäÇÇÇ╝ÇÇÇ≡ÇÇüα"
  31. 310 A$(21)="ⁿÇÇÇÇüⁿÇÇÇǃαÇÇÇâⁿÇÇÇü■ÇÇÇÇ ÇÇÇÇ┐└ÇÇÇ └êÇÇ └ûÇÇ Ç╛áü■üⁿ└Å°ç·Ç┐α┐°ü■ü αÅ°Å Ç┐└ ⁿü■â ≡Å≡ƒ └┐└ ■ü■â ⁿâ°ç °â°Å∩°ç°ç≈ⁿâ°ç∩ⁿüⁿç≤■Ç■âⁿ Ç┐└╝ αƒαƒÅ≡ç°ç≤°âⁿâ ⁿâⁿü∙°âⁿü°≡ç°çß└Åα╛ÇÇ╛â└ÇâαÇÇ°ÇÇ ⁿÇÇÅ≡ÇÇüⁿÇÇÇ┐ÇÇǃ≡ÇÇÇÇ╝"
  32. 320 A$(22)=" αÇÇÇç ÇÇÇÇ┐ΦÇÇÇâ■ÇÇÇÇçσÇÇÇǃ╚ÇÇÇé╥ÇÇÇÇåαÇÇÇÇû└ÇÇÇÇÇÇǿǃ└ÇÇÇü«ÇÇ└ÇÿÇüôÇà²åäÇÅⁿÇîÇÅ°Å≡ǃ≡┐πÇ └ ╕üⁿç └ƒα┐■Ç ü °â■â ≡çⁿç αç°ç αç°ç ≡çⁿâ ≡çⁿâ °ü■Ç┐■Ç Çç Çƒ≡ü ≡âⁿÇ┐ⁿÇ └ç └Å≡Ç ≡â■Çç Ç┐αÇ┐≡âⁿÇç■Ç┐└Ç┐αÅ≡ÉÅ°üⁿÄü■Ç┐ç└┐ǃâαƒ└ç├≡ÄÇââ≡éÇÇç≡î"
  33. 330 A$(23)="╨ÇÇ■Ç░ç°Åç├≡╕£ƒ╚╕╝ƒα≡≡√±ßßτß±≡╖≡°°╜°╝₧Å╬ç├α≡Ç╕áÇÿÇÅÇÇÇÇÇÇäÇÇÇÇÇÇÇǃÇÇ└â≡₧ç├°Å├≡ⁿâß°ƒ└°£ÅαÄç┴°âß≡┐└╛ç└╛Ç■ü≤°â°â └Åαç Ç┐└ç■Ç┐└çⁿÇ └âⁿǃαDzÇçⁿÇÅ≡â°ÇÇⁿÇ■Çá╛Ç Çǃǃ└èÅ└ƒαåçαç≡éâ°â°â┴ⁿüⁿâ└■Çⁿâα┐Ç■â≡ƒ└╛âαƒÇ■â≡ƒÇ■âα╛ü°ç└°ç≡₧âαƒÇ°₧Ç°çα≡ç└ÿ£"
  34. 340 A$(24)="≡░α─╝ÿ≡ß╟ßçÄî┐å£╕▒ⁿÿ±ß╟≡π├ă├Åî╕■Üÿ±τ±±ßç■û£ïƒâ├α≡ÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇ╝ÇÇ≡âèα╕òáêÇÇéÇÇÇé┴êüäÇáÇÇÇêÇÇÇáüÇÇüëÉÇÇÇÇá└éÇÇÇÇÇÇ└ÇêÇÇÇáÇüÇ¡ÇÇñÇ└êÇä└ÇÇäá"
  35. 350 A$(25)="°ÇÇÇÇÇ╝ÇÇÇÇÇⁿÇÇÇÇüⁿÇáÇáç≡âαƒÇ■ü≡ƒÇƒ┴α╝ç┴≡╝₧Äî₧ƒçç└ßπ±πÄÄî₧£▒├≡π±╞ÿ≤Ä₧ÿπÄ░π≤╞îτÄ«╕Ö╠╕π≤üêτ╞₧╕æî°Γτå│τÄî▒─╣±├╠ÿτƒÿ╣≤î│±ç₧░τ╛ɱτî╖Γ╬ÿ░╧╕╣≤╞ÿ■Äÿ░âƒ├╟╧åÅ≡≡±ßπ°╝╝£ç╪£ƒçâ≡₧Åâ├≡╝ƒç╟└°╛ç°çß°ƒ└╝Å┴ⁿâαⁿÅ└╝Å┴°ç┴°₧ü≡₧ç└╕Åâα£ç┴ⁿÇÇ╕àÇÇäéÇÇüε└ÇÇ»└"
  36. 360 A$(26)="╨ÇÇÇÇÇΘÇÇÇÇÇ╨ÇÇÇÇ┐ÇÇÇÇÅαÇáÉçα╕ αÅ└ⁿ └ⁿç├ⁿâß°┐Ç╝₧ŵⁿÇⁿǃÇÅ└Åαçαç≡â°â°üⁿüⁿÇ■ü■Ç╛Ç■Ç┐Ç┐└ÅαÅ≡â°âⁿÇ Ç └Å≡Å°âⁿâ■Ç┐└┐αç≡çⁿü■Ç └Å≡çⁿü■Ç └Å≡çⁿü■Ç┐└Å≡çⁿÇ■Ç┐└ƒαç°ü■Ç └Å≡çⁿü■Ç┐└Å≡çⁿÇ■Ç┐└"
  37. 370 A$(27)="└ÇÇǃÇÇ└ÇÇâ≡ÇéÇÇü⌠ÇéÇÇÇ╕ÇéüÇÇ₧Çé▓É└┐└Çα┴ÇⁿÇå└£ç°ü¡íü■Ç°Çá┐└▐Ç≡ƒα┐ü≡ƒ└┐ü░ƒ└┐ü≡▀Çⁿàß╛ü≡ù├ⁿïΣ┘â°Åéß╦·«ï┴┴°ƒâ≡α■Å┴Σ°ƒâ┴∙₧ù╤≡╛ù┼≡■çµ≡■çα°╛ç≡·Åçé┐â└°ⁿÿⁿåâ╙≡±ⁿεÄåâ≤°ⁿ╢ƒï╤°≡╕£Ä¿■ÿÄçæâÄ╟ü├≡ÿ▒⌠╕ăêτÅú└±≡╕î£çüßα╕î£ç└±≡╕ÄÄüα╕╕Äüâα£çç└Ç░╝â└┴α"
  38. 380 A$(28)="■ÇÇÇǃ└ü└ç└åÇåÇÇÇÇÇÇüÇüⁿÇ≡â≡₧â■Ç╛çα╝Å°Å┴°Çⁿâα╛â├≡₧çßⁿ₧ƒ├π≡ππ°±τî╕εÿ≤τÄùîîπçï╬Ä││╔╞╞║╣ßπτîñ⌠ßπ╠▄╕°ß╟ª╝°±τ─╝ÿ▒≈╩╝₧¿▒≤å╦䣰ß≥Φå▐ÇŵÇå°á αÇ┐└â■Ççⁿǃ°Çƒ≡á┐≡Ç┐αÇ┐╨ǃαǃ≡ÇÅ°éâ■Çü ÇɃαÇÅαéü■ÇÇ┐ÇÇâⁿÇÇ ÇÇâⁿÇü■ÇÇâⁿÇÇ┐ÇÇü■ÇǃÇÇÇ┐ÇÇÄÇÇÇÇⁿÇÇë"
  39. 390 A$(29)="└Çâê≡╡ÇüÇÇá╚┴üüÇüαÇ┬└é≥ÇÇöüíÉÇÇÇÇùÇöêÇç°₧½°ƒ┴≡┐α■ç┴∙ç°₧Å⌠ƒα°ƒα┐┴≡╛α âα É╛┴≡╛╚ƒÇ⌠Å┬â≡₧űá■çα²èâ≡₧â≡ÿÅαⁿçα≡┐ü°Åα≡ƒ└ⁿƒ└°Åα╕Åα╝ç≡ƒÇ■çα üⁿç≡¢âⁿâ≡ƒ└░âⁿâαƒαÇü■ü≡Åα░ǃαîÇⁿÇÇ░┐└ÇÇÇÇÇÇÇÇÇçⁿÇÇü≡ÇÇÇÿÇÇÇÇ≡ÇÇÇÇÇåÇÇÇä"
  40. 400 A$(30)="└ÇÇÇÇÇÇÇÇÇÇÇÇÇÇüÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇ░ÇÇäüáÇÇÇé╨áÇÅαÇ┴°Åäåç⌠ü¬ïâ≡ä°îÅ└ï≡α■Ç∞╦â≡çα░ƒü╛ââ°â≡Öƒ└ƒâ┴²â≡£╧≡»╔ñ▀à·«ï≡╧Ñ≡ ü⌡╓ï⌠₧╓≡╛├°δï°ƒà░ƒ┬·█┴ⁿç╨▄Åα┐ï≡ƒü╝ï└■ü⌠ƒ┴²ü°Åü■â°ƒü■â°ƒ└ üⁿÅα┐└ⁿç°Å≡Å└ⁿÇ■üⁿÅαâ°Ç≡ÅÇü■Çⁿç└Ç┐└ƒÇ≡åâⁿü°ç└êâ°üαÇÇÇÇⁿ"
  41. 410 A$(31)="└ÇÇÇÇÇÇÇáÉÇ▒Çü░ÉáΓêÇä±êåÇÇ┐°α■Åç≡ⁿç├≡ⁿç├≡╛ç├≡ⁿçπ≡╛âß°ƒü°╝Å└ⁿƒâ≡₧Åα°ç├Φ₧ü≡°çα╝╛ü≡Åç└₧üß∙çα╝₧ê╝ç├ß├α╕╛î₧âπ≡▒°₧Åâ╟└≡ⁿ╛Åâ└≡■₧ç┴±°Äú└≤°π°≡╕╝î┐₧çâ┴π±α≡⌠║¥Ä╟â±╬┐¥Äçπ▓ƒ¥╞╟µú╧τπ≤√ÿ±°ⁿ╝╛╢çƒÅ╟├π└°ⁿ╝₧ççÇπ∙°£Åî┴π±°£₧îâπ°°îÅüÇ≡ⁿÄåçαÇîç≡áå₧ÇÇ¢Çÿ"
  42. 420 A$(32)="└ÇÉÇÇÇêá£Çτ■Çⁿ╕╕╕îíç│├â├╟£╞ÿ╕▒╥Ö╞Ä£│╚╞Ä£╣╠τî╝∙ÖÖß╟Ä╖µÿ░π╠∙πåî╣╓£░ß├£π╧£ÿ▒╬╣≤π╠╗╟₧╕░πⁿ≤π╟çƒå╝£╕╕≡íπß├╟╞₧╛₧₧⌐ß≡≡╣ⁿî₧Åç├ß├≡°ƒâîÅ┴╨╣Ç░ƒ└ÇÇ└░ƒ└ÇëÉ░ƒ└ÇâäÿÅαÇáÇîç°ÇÇÇÇü■ÇÇÉÇÇ┐└ÇäÇÇç°ÇéªåüⁿÇê╚ÇÇ ÇÇ─éáƒΦÇù╨ÿÅ°Çèÿåâ°ÇÅΦü┴ⁿÇç°â├°╝Å╧üßⁿ₧ç╟α£Åπ"
  43. 430 A$(33)="└┴äáÉñ╚Ç░ÉäÇÇëÇÇÇ┴ÇêÇΓäÇÇêÆñäÇ┴öÿü└└ôä└éÇë╚└üÇêáÉ┬êÇüñ¿ÇüÉ└⌐àüñÇÇêáÇÇâαÇ■ƒ└Åßⁿ₧ÿƒ├ß°ßⁿ£ƒ├├≡°╛ÅÅß≡°╕╛Åçßßⁿ╝Åâ├≡╝ƒç½Φ£çâ┴°ÄÇç└ÇΩÇÇêÇÇÇÇáÇÇÇÇÇ└ÇÇÇÇÇÇÇÇÇÇÇÇ└ÇÇéÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇöÇ└┤ÆÖ┤°èßäàä├ê╤Æèܼ└àüóö╓¿┴αß─«╘µ█⌐ü┤ΘààæÇí"
  44. 440 A$(34)="└Ç└ÇÇüÇÇéÇÇáÇüêÇÇ└üÿêáÇáÇÉ░üìöñë╚áêÉï╥ñ─╔ë┬úäª╠ÿ─└─éääéÇÇÇÇÇÇ└Çâ■Ç├≡╝ÄäƒåÅß±°≡°₧╧ç╟àα°╕°∞│ßßπ┴╟╟çÄç₧££╝£╝╕╕≡╕°≡±≡±≡±≤Γ≤ßßπ╟τßαⁿÄæ╗îääê└ⁿáÇ╕á└┐ÿÇ¥└ɃαÇ«Çêƒ└Ç≈┴±°╝Å╟├╟π≡╝£₧ƒÅâé≡£╝₧à├α°ⁿ╝âτ└≡ⁿåÇÅ└ÿÅ≡ÇÅ≡îÅ°Çâ°åü■ÇÇ╛ÇáƒαÇç°åü■ÇÇ■ÇÉÅ≡Çü°"
  45. 450 A$(35)="┬èüüöîçü°°₧űΦⁿ£ÅçÅ├ß°≡ⁿ₧Å╟âß≡ⁿ£Åç├≡°╛Åçßα°₧Å├┴°ⁿƒåçß≡╛£Å├αⁿ░■çâ≡ßⁿÅçßâ°ƒçπç°₧ç╞ç°ƒâ┬ç°ƒâ╞ç°çα╨üⁿâ°çα┐αƒé┬â■üⁿèäâⁿü·ÇÅ°üÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇ╤ÄÇΦÿÉßÉ░Å╔╬Çâ╣éç°░ƒαÖδ╚ÿǃ╬äÇ₧ü÷É£òǃ╨Å⌠Ç┐└ü≡╝â°çⁿÇ╜ⁿ╕Çâ≡ÇÇü°Ç▀"
  46. 460 A$(36)=" ÇÇÇ └ü■Ç└ƒ≡â≡åü ÇçαÉÅ°Ç₧îç°çÄçâσ≡╝ƒτπΣÅ┤┘≥ß├«Ä╛ⁿÉτ╔╧₧¼Ö±≤τ▐î∙┘≤σ├₧╢╝∙░τ╚╟▀öî√Ö√⌠├₧▓╝∙Éτ╔╧₧¼Ö√│τ╥ä₧Σ∙╜┴τ├å╧öÜ·░δßü▀╞ƒ╜Çò°íß≡ü┐äƒ┐Ç√≡╟⌡≡ç■êƒ╧└ °ßⁿ▄â ╞ç⌡≡ç Çƒß└Å·êƒßÇÅ°îÅ°Çâ■éâⁿÇü ü└ └ÇÅ≡ÿÅ≡Çâⁿâü■ÇÇ┐Ç░ƒαÇâⁿÇÇ ÇÇÅ≡êç°░Ç┐└Çç⌠Çü■Çüâ·Çä└"
  47. 470 LENHOLD=0
  48. 480 COLOR 7,0,0:CLS
  49. 490 INPUT "Please tell me your name";UNAME$
  50. 500 IF UNAME$="" THEN 830
  51. 510 SHOW$="I am an IBM PC and you are Ok!!":TEMP$="IMNIBMPC NUROK":NOSHOW$="Y":GOSUB 840
  52. 520 FOR X=1 TO 2000:NEXT:CLS
  53. 530 PRINT"Who comes first, ";UNAME$;" or me";:INPUT JUNK$
  54. 540 SHOW$="I am before you, ok???":TEMP$="IM B4U OK":NOSHOW$="Y":GOSUB 840
  55. 550 FOR X=1 TO 2000:NEXT
  56. 560 CLS:INPUT "Are you having fun";JUNK$:IF LEFT$(JUNK$,1)="Y" OR LEFT$(JUNK$,1)="y" THEN 610
  57. 570 SHOW$="Uh oh!":TEMP$="FO":NOSHOW$="Y":GOSUB 840
  58. 580 FOR X=1 TO 3000:NEXT
  59. 590 SHOW$="Why, yes you are!!!":TEMP$="Y SUR":NOSHOW$="Y":GOSUB 840
  60. 600 FOR X=1 TO 1000:NEXT
  61. 610 SHOW$="Gee, I am too!!!!":TEMP$="G IM2":NOSHOW$="Y":GOSUB 840
  62. 620 FOR X=1 TO 1000:NEXT
  63. 630 CLS:PRINT "Have you eaten yet today ";UNAME$;:INPUT JUNK$
  64. 640 SHOW$="Ha Ha Ha!!!  I ate for you today!!!":TEMP$="FFF  I84U2A":NOSHOW$="Y":GOSUB 840
  65. 650 FOR X=1 TO 2000:NEXT
  66. 660 SHOW$="Get ready ... here we go ....":TEMP$="":NOSHOW$="Y":GOSUB 840
  67. 670 FOR X=1 TO 2000:NEXT
  68. 680 FOR COUNT=9 TO 0 STEP -1
  69. 690 TEMP$=STR$(COUNT):COLOR COUNT+4:GOSUB 840
  70. 700 FOR X=1 TO 100:NEXT
  71. 710 NEXT COUNT:COLOR 14
  72. 720 LENHOLD=20
  73. 730 TEMP$="Hello there "+UNAME$+"!!!":GOSUB 840
  74. 740 FOR X=1 TO 1000:NEXT
  75. 750 TEMP$="You have a TALKING program from the NOCHANGE BBS!":GOSUB 840
  76. 760 FOR X=1 TO 1000:NEXT
  77. 770 TEMP$="NOCHANGE'S phone number is (404) 587-4198 in Atlanta, Georgia.":GOSUB 840
  78. 780 FOR X=1 TO 1000:NEXT
  79. 790 TEMP$="If you think this is good, call NOCHANGE because he says:":GOSUB 840
  80. 800 FOR X=1 TO 1000:NEXT
  81. 810 SHOW$="`I am an IBM BBS for YOU!!!!'":TEMP$="IMAIBM BBS 4 U":NOSHOW$="Y":GOSUB 840
  82. 820 FOR X=1 TO 1000:NEXT
  83. 830 LOCATE 17:COLOR 13:PRINT TAB(10);"Please give me a word or sentence to spell or QUIT ...";:INPUT TEMP$:GOSUB 840:GOTO 830
  84. 840 CLS
  85. 850 IF TEMP$="QUIT" OR TEMP$="quit" THEN TEMP$="Good-bye "+UNAME$+"!!!":DONE$="Y"
  86. 860 IF RIGHT$(TEMP$,1)="@" THEN CLS:REPEAT$="Y":TEMP$=LEFT$(TEMP$,LEN(TEMP$)-1)
  87. 870 IF NOSHOW$="Y" THEN COLUMN=40-(LEN(SHOW$)/2):LOCATE 12,COLUMN:PRINT SHOW$:GOTO 890
  88. 880 COLUMN=40-(LEN(TEMP$)/2):LOCATE 12,COLUMN
  89. 890 FOR X=1 TO LEN(TEMP$)
  90. 900 FOR HOLD=1 TO LENHOLD:NEXT HOLD
  91. 910 I$=MID$(TEMP$,X,1)
  92. 920 COLUMN=40-(LEN(TEMP$)/2)
  93. 930 IF NOSHOW$="Y" THEN 940 ELSE PRINT I$;
  94. 940 IF I$=" " THEN FOR HOLD=1 TO 200:NEXT HOLD ELSE GOTO 1000
  95. 950 NEXT X
  96. 960 IF DONE$="Y" THEN COLOR 7,0,0:CLS:SYSTEM
  97. 970 NOSHOW$="N":NOUSE=FRE(X$):RETURN
  98. 980 IF REPEAT$="Y" THEN FOR HOLD=1 TO 500:NEXT HOLD:CLS:GOTO 880
  99. 990 IF DONE$="Y" THEN SYSTEM
  100. 1000 A=ASC(I$)
  101. 1010 IF A>96 AND A<123 THEN A=A-32
  102. 1020 IF A>64 AND A<91 THEN T=A-64:GOTO 1050
  103. 1030 IF A>47 AND A<58 THEN T=A-47+26:GOTO 1050
  104. 1040 SOUND 800,.1:GOTO 950
  105. 1050 CALL TALK(A$(T)):GOTO 950
  106.