home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / HEARTYPE.ZIP / HEARTYPE.BAS next >
Encoding:
BASIC Source File  |  1980-01-01  |  10.5 KB  |  114 lines
  1. 10 CLS:KEY OFF
  2. 20 ' Talk machine load routine.
  3. 30 CLEAR ,&H4000:TALK=&HE000:DIM A$(36)
  4. 40 FOR I=0 TO 71:READ J:POKE TALK+I,J:NEXT I
  5. 50 ' the machine language subroutine
  6. 60 DATA &H55,&H8B,&HEC,&H8B,&H76,&H6,&H8A,&H4,&H8A,&HC8
  7. 70 DATA &H46,&H8B,&H3C,&H8A,&HE9,&HE4,&H61,&H24,&HF7,&HE6,&H61
  8. 80 DATA &H8A,&H3D,&H80,&HFF,&H20,&H74,&H25,&HB6,&H6,&HFE,&HC6
  9. 90 DATA &HD0,&HE7,&H32,&HE4,&HD0,&HE7,&HD0,&HD4,&HD0,&HD4,&HE4
  10. 100 DATA &H61,&H24,&HFC,&H2,&HC4,&HE6,&H61,&HB3,&H25,&HFE,&HCB
  11. 110 DATA &H75,&HFC,&HFE,&HCE,&H75,&HE6,&H47,&HFE,&HCD,&H75,&HD4
  12. 120 DATA &H5D,&H58,&H5B,&H59,&H53,&H50,&HCB
  13. 130 ' set voice definitions
  14. 140 A$(1)="°ÇêÇâ├≡ÄçüÇ╛çâßα■â┴≡░ƒüα°ÉÅ└≡╝ǃ└░╝èÅ└£₧çÅα£Åüç≡çç└ß≡â├α°■â├≡° üπ≡°┐âπ≡╕ üß≡╝┐üß°£┐┴≡°₧ƒ└≡ⁿăα°╛çÅα°╝ÅÅα°₧ç╟α╝ƒç├≡╝ƒçß≡╛Åâß≡╛Åâ±α╝Å├∙└°ƒç÷ü°╛çⁿâ≡ⁿÅ≡Å┴°┐└╛â≡ⁿü°ƒ╟≡Å└ⁿ╛üⁿÅ≈αƒ└ ■üⁿç αƒ└ ⁿâ°Å Ç┐â ≡çα ⁿâ°ƒ ÇⁿÅ Ç╝ŠǣŠǣŠÇäÅ ÇÇ┐ⁿÇÇ °"
  15. 150 A$(2)="■Çÿîüⁿâ ≡â≡Åπ└ƒ└╝Äüⁿâ≡°ç≡Åç└ƒ└╝₧Çⁿüαⁿâ°â┴≡ç≡çâαÅα₧ç└ƒ└£ÅÇ┐Ç╕ƒÇ╛Ç≡╛Çⁿüα■ÇⁿÇÇ■ÇⁿÇÇ■Ç■ÇÇ■Ç■ÇÇ■Ç■ÇÇ╛Ç┐ÇÇ■Ç■ÇÇ╛Ç ÇÇ₧Ç┐ÇäÄÇ┐Ç£îÇ■Ç£ÿÇⁿÇⁿÉâ°üßÇÅ└ÅÇÇ╛Ç°ÇçαîÇÇ╕ÇÇÇåÇ└ÇÇÇöÇÇÇÄÇÇÇÄÇÇÇèÇÇÇé"
  16. 160 A$(3)="└ÇÇÇÇÇäÇÇÇÇÇÇÇåÇÇÇÇÇÇÇÇëÇÇÇÇÇéÇÇÇÇÇÇÇÇÇÇÇ└ÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÅ⌠Çç°┐Çâⁿƒ■Ç╛ç ÇÅ┴ αç≡┐°â°ƒⁿÇ■â Çƒ└ ≡ç°Å■Ç┐ü αç°Å■Ç┐└ ≡âⁿâ■Ç┐└ƒ°ü■ü αç°ç Çƒαƒ■Ç┐Ç┐°ü■ü ≡âⁿü αÅ≡â Çƒαç Çƒ└Å■Ç┐└Å■Ç ÇçⁿÇ ÇÅ°ü■Çù≡ç°â╟└ƒα£₧Ç■Ç≡≡ç≡ÅÄÇ╛ü≡≡ç└ÇÄÇ╕éÇ└â"
  17. 170 A$(4)="└ÇÇÇÜÇìÇâ≡ü°└ÅαÅ└ü■ÇⁿáÅ≡Å≥Ç Ç ░ç≡ç√Ç Ç┐ÿç°ü·└Å└Å∞âⁿDzáÅ≡â²└ƒ└Å■Ç╛ǃ°ÇⁿÇ ░ç°üⁿ≡Å≡â°└ƒ└Åπǃǃ╓Ç╛Ç┐¼ÇⁿÇ■ÿü°üⁿáç≡â°ÇÅαÅαÇ■Ç áâ°â Çƒ└ƒ°üⁿü Çƒ└ç≡â°ü■Ç╛Ç┐ÇÅ└ÇÇâαÇÇÇ╕ÇÇÇé"
  18. 180 A$(5)="ⁿÇⁿǃÇÅ└Åαçαç≡â°â°üⁿüⁿÇ■ü■Ç╛Ç■Ç┐Ç┐└ÅαÅ≡â°âⁿÇ Ç └Å≡Å°âⁿâ■Ç┐└┐αç≡çⁿü■Ç └Å≡çⁿü■Ç └Å≡çⁿü■Ç┐└Å≡çⁿÇ■Ç┐└ƒαç°ü■Ç └Å≡çⁿü■Ç┐└Å≡çⁿÇ■Ç┐└Å≡çⁿü■ǠǃαÅ≡âⁿü Ç┐└ƒαç≡âⁿü■Ǡǃ└┐αÅαÅ°â≡ç°ü°üⁿÇ╛Ç░ÇÇÇÇÇÇÇÇÇÇÇä"
  19. 190 A$(6)="ααα≡ÿ╕í╟âçåÄ°░≡├╧çÅ░°ßτ├çå₧ⁿÿ°ßτ├çå£ⁿ░°ß∩├ç£│°ß≤╞¢åÄ╕≤╕ß├Ä╗åî░π°░τåƒå£°º∙╙ºê┐═ö≡╦°╤├å╧┼îÿÉⁿ¿Θß▐ΓçΣƒ÷Çåç±└ÇÇⁿÇÇÇÇ└"
  20. 200 A$(7)="└Ç└ÇóÇäÇ└└▒ÇÇÇÇÇä┬¼éäÇ╣ÇÇüÉà⌠é╚äü üñÉü üαÇü■âαÉâⁿç└ÇÅ≡ƒüǃα■äÇ üⁿêü■ü°Çâⁿâ≡áç°ç≡└Å°ç∙└Å°â²└Å°â └ç°ü αçⁿü αç°ü └çⁿÇ αçⁿÇ αçⁿÇ αç°Ç αç°Ç └Å≡ü Çƒαç■Ç Ç┐≡âⁿü └ƒαÅ°üⁿü■Ç₧Ç╕└Å└ÿÇÇαÇÇÇÉÇÇÇÇÇÇÇÇÇÇÇÇÇÉÇÇÇÇÇÇÇê"
  21. 210 A$(8)="ⁿçâα≡■ç╟ß≡ⁿÅç├≡°₧Å├ß≡╝Åç├α°╝Åçâ≡°╛ÿÅ╟α°Φ▐çâ÷ü≡╕ƒ░Åâ≡ ÇⁿÅ╟≡Å┴°ⁿâ°ƒ▀└£â ≡Å└»°çαàⁿâⁿÇ▀ǃÇÇÇÇÉÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇüÇäíüÇÉäê┬ÇêÉÉëåüäáäÇÇ┬ä└üÑÇ░üáÇ┬╚êÇ╥┬êê└Çê└ÇÇÇ¥ûÇÇÑ░ÇÇÇÇ╒Çè╒≡ü¬└ÇåÄÇÇå"
  22. 220 A$(9)="╟Çó▓âê┤æ│üê╛îΦΓåäúï£└─î≤ú£│éÿ┘╞êπî∞πîπî¼πê┬ÿ∙µ£├ÿ∙πîßî∞α╞┬î╝αåúå₧░é▒├èÿÇÿΘ╟╠üî£ΓµÇºîÿ±└æ╞åä░ä▒╚┴╠üîôÿ│┬ÇÇúå╕╞ÿë├ûü╠ó░πÇí┴è┤αä░ú╩£É╚╨ß╞éê╕▒±┬äê┤░┴åê╕°áÄÉ≡°ÉƒÇ░╝êÅÇ°╕£Å└≡ⁿÄÅüα°£₧ç┴≡╕≡₧çü±Ç≡╕çêÅâ└╣Ç≡╕çÇÄçÇ░üÇÉÇÇÇÇÇÇÇÇâ└ÇÇü└ÇÇäÇÇÇá"
  23. 230 A$(10)="éÇÇÇÇÇéêü─áÇÉéñÆΦüⁿÇ╘Éâⁿç≡≡â°Åß≡ƒα┐ç└┐â°╛üⁿÅ├ⁿçαⁿƒêÅ┴≡ⁿ░ƒçß°≡₧Å┴≡°₧Åâß°₧ç├ß·âπ≡°╝Ç°╝₧Åÿ₧Åç├÷ç╟ß≡²üß°°┐ü≡°╝ƒα°╝₧ç╨╝₧Åâ°₧Åç┴°₧Å├ßⁿç╟ß≡╝ç├≡≡╛âß°╝₧ü≡ⁿ₧çü°╛ççÇ°ƒçπÇⁿƒâπÇ°ƒâⁿü≡ⁿÅαÅ┴°┐ÇⁿÅ┴°çαⁿƒÇⁿÅ├αƒâ≡°çßⁿ╛Ç°┐┐Ç≡┐■ÇÇ┐ⁿÇÇ┐ΦÇÇ┐αÇÇ┐αÇÇ┐áÇÇ£"
  24. 240 A$(11)="└åÇáÇÇÇÇÇÇ└ÉÉÇÇÿÇÇç ⁿÇÇÇ┐°Çü■Ç■ⁿÇ ÇÇé αâ°ç ∙≡ƒ╟≡·ü°╛ƒ≡₧Åπ√ü≡ⁿ┐ÿÅçß∙α╝ƒç╟ü≡ⁿ₧₧âπ≡°╝Åç├≡°ÄÅ╟ß°₧Åçâ≡₧ƒÅâ°ÄÅç├ⁿçç├ß âπß≡ └≡°╕┐≡╝╛₧çⁿÄÅç├ⁿç╟┴≡ ü±°╝ƒα╕╛ÅçⁿÅçß≡ ü≡°₧ç≡₧Å├ßⁿÅπ≡╝Åü°╛çπα╛çα■≡Åß°ƒ°ç≡ⁿÅⁿâ≡╛ç°â≡╛ç≡ÅαⁿÅαƒ┴°ƒÇ╛â≡ⁿü°ƒç≡çß°┐ǃç ≡üπ"
  25. 250 A$(12)="└αÇçü├├Ççü├├âÅü├├Çîü├ßÇåÇßß┬ÄÇ░±πÅÇ░∙α├äÿ░α├Γîÿ░í√Äî╕æ╜çÄ£░╬╟╟îêºú┬îäºß├├éÖ╪αααä°░╕ÿα╝££¼▒₧ÄåÜî∩çâ─å│çâ┬â£├┴ßÇ╬ßα≡α│α≡╕░Åα≡╝ÿç≡°£îç≡°₧Äçα≡╝Äçß≡╝Äç┴≡╝Åç┴≡╝Åçâα╕Äåç└≡££Åâα░α°Åüπâα╝ç╚Åüα₧Ç°ÄÇⁿçüαîα≡£ü°êçÇç├üαÇ≡äÉÇ╝ÇäÇ│ÇÇÇëÇÇÇÇÇÇÇåÇÇüî"
  26. 260 A$(13)="αââ├çÇ££îîÇî₧Çì─Ä₧êâ┴â╟┬ÇÇ░ß±┴¿äî╝ÿíÇ┴ç├ä╨äÿ╕É╬ÇâçÉë└Çß≥Ç╪åî£░ÑÇí├┬ä°ÿ╕°ÉÅâ┼╟┴ü╪ÿ╪ⁿêƒåçÅ└α≡└°ⁿçαêç└└ç┐└┐ÇÇ╛ÇÇ ÇâÇǃαÇÇÇÅ≡ÇâÇÅ°ÇüÇÅ≡ÇéÇÅ≡ÇÇǃαÇÇÇ └Çáü■ÇÇÇÅ≡ÇÇÇ┐└ÇÇâ ÇÇǃ°ÇÇü └ÇÇ┐╧└≡Å┴°₧ü°╛Åα╝Å┴°Åâ≡■âα°ƒÇ≡╛Åα╕Å╟α£Åτ≡£ÅταîÅ └ǃ√Çǃ⌠"
  27. 270 A$(14)="┴τßßτÇ∩ßßτÇ∩┴ú∩ü ├├╬ü àà£à╛ÄÅ╕à■èÄ°ïⁿö₧≡ƒ°╕╜░ƒ≡≡■á┐α░■â üαⁿç■ǃⁿüⁿÇ ≡ç≡â └┐└Å■üⁿÇ┐°Å≡â └┐ǃⁿç°ü α┐└Å■üⁿÇ ≡ƒαç■üⁿÇ αƒ└çⁿç°ü ü■Ç┐≡ƒ└ÅⁿÅ≡ü âⁿÇ α■ǃ≡┐ÇÅ°ƒαç■Å≡â Å≡â ç≡ü ç≡ü■╟≡ü╛╧≡ü┐▀≡Çⁿ┐α└ÿƒ Ç└ °åâ αîÅ └░┐■Ç└■ⁿââ ≡äç αÇÅ ÇÇ┐ⁿÇü ≡Çç "
  28. 280 A$(15)="≡╕áÇââåéÇÄÄîÇÉ£ÄîÇá£Äêäá£ÄîäÇ£ÄÄåÇÄçåâÇçâ├üÇçüß└αâ└≡≡áÇ≡╕£êÇ╕ÄâåÇçâ┴ααá≡╕╕ÿî£çåâ└ßα°░ÿîÄç├┴α░≡£îçâ├α≡░îäÅâßα░É╕Äçüα┴≡╝îçüâα°£Äéçüαÿ£äÄâα░╕ê£çÇßαá°₧â┴└ü≡£çâ└âα╕ÄâÇç└≡îåÇÅüα£îÇ₧âα°£Ç╝ç└≡ÇÇ°ÅÇ≡Çü≡₧üαÇçα╝â└ǃÇ≡ÄÇü°çüαÇ╛üαîǃǰçǃÇ╕çαƒ"
  29. 290 A$(16)="└ÿë°Çü ⁿÇü└ƒ≡ÇÅ  ÇÇÇÅ≡ÅÇ┐αÇǃ ≡Çǃ°Ç·ƒ└ƒ┴ⁿüⁿÅαÅα Ç┐âⁿüⁿç≡ç≡ƒ└Åα┐└ƒ└ └ƒ└ └Å└┐αçαƒ≡â°çⁿÇ■Dz└ÅαÅ╪ü■ü°αç°âαǃαç┴ǃαçü└Å≡ÇÇÉü■ÇÇÇÇÅαÇÇÇÇ ÇÇÇÇÇ■ÇÇÇÇÇ ÇÇÇÇǃ└ÇÇÇÇâ°ÇÇÇÇǃÇÇÇÇÇÇⁿÇÇÇÇÇâ≡ÇÇÇÇÇâ≡ÇÇÇÇÇü≡"
  30. 300 A$(17)="└ÇÇÇÇÇÇÇÇÇÇÇÇäÇÉÇÇÇÇÇÇÇÇÇÇÇÇÇéÇÇüÇÇÇêÇÇÇÇáÇǃ°Ç┐╧≡çⁿ╛ǃ ≡⠠ǃ⌡°ü »└Å·■Ç■├≡â°»αƒα■Ç■ç°â°Å°â°ƒ°â°ƒⁿüⁿÅ Ç â ≡Å└ⁿ üⁿÅπ°ç≡╝Åαƒ┴≡ƒαƒ├°Å°çαⁿç Çⁿç└┐₧ü°ÅÇ■ƒÇⁿç└£çαÅ└Çâ╚░ÇÄÇÇü ≡ÇÇâ ▄ÇÇÇÇÅ■ÇÇÇÇ£"
  31. 310 A$(18)="└αÿ╝░Ç₧âÅ╞êƒ├╟πåÅ┴πτă┴├πåÅßππ╟Å≡±±π╞°╕╝≡π₧ÄÄÿ╕∩├â╬î╗╤┴πâ¥Σ╕£α│Ö╞çîå╖╕≡±└µτ╞ç£î┐°░▒╨┴▌╟â¢ÿ¢╠░╣°┴╠πâ╔┴═ε££îîε≡Φααµ∩╞╞åååⁿ╝╕░░ºπππâé╛₧ƒ£ÿ¢±±±±├■₧ƒåèƒ┴πααº≡░°ÿƒ≡╕£îÅ°£Äçâ°Äçâß°Äçâα°ÄÅçß≡£ÄÅ├α≡╝₧₧çâα≡≡╝₧ç÷ââα²αÇ╕┐ÇÇü ÇÇü ÇÇÇ áÇü■ÇÇâⁿ"
  32. 320 A$(19)="°ÇäÇÇ°╕╕░╛├├┬è∞££░≤ßπ╟Å╛₧£╕≤±≤├╞ƒ╟Ä£Öⁿ░±├╟ß╟╞Ä┐à£ÿ≤ⁿ┤≡π╧ßπ╟Ä┐ì£ÿ√°╕░╥ âç╩»≡╕╝ƒ â├ß ≡££ƒεüÇü αÇÅ ≡Çç ÇÇ£ÇÇâ■ÇÇÇåÇÇÇÇáÇöÇÇÇåüÇÇÇé╘ÇÇÇÉüÉÇÇÉÇÇÇÇì┬ÇÇɬÉÇüÑêÇÇÇäÇ▓ÇÇÇäÇóÇÇÇÇÇáÇÇäíÇÇÇ▐ÇÇåÇÇÇô║éöÇÇáÉÇÇüÇöÇè▄ÇÇÇáÇÇÇÇûÇÇÇ└üαÇÇáÇñÇÇÇ┴"
  33. 330 A$(20)="└Çá┴╜É╠áÇÇ╟╧⌡ÇÇ┐╩ÇⁿÇ┐≡äÇåÅÇ┐αÇç²└ÇÇç╚ÇÇÇÇâ αÅ┴■ÇⁿÅ≡ç≡┐Ç┐ü°â°ÅαÅα┐└ƒ└■Ç╛ü■Ç■âⁿÇⁿâ■Ç╛â ÇƒÇ αç≡┐°üⁿç≈ǃα╛ÿü■â±αç≡Å┴ǃα╛åÇ┐└ⁿåÇ Çⁿîü■Ç°îÇ Ç╕ÄÇ┐└£ÅÇ┐└Äç└ƒαçâ└Å≡Äçαç≡ÄçαÅα₧ç└ƒ└°ÅÇ╛âα╝â≡₧âαƒüα╝üα╕Å└ÇåüαÇüüÇÇÇäÇÇÇ╝ÇÇÇ≡ÇÇüα"
  34. 340 A$(21)="ⁿÇÇÇÇüⁿÇÇÇǃαÇÇÇâⁿÇÇÇü■ÇÇÇÇ ÇÇÇÇ┐└ÇÇÇ └êÇÇ └ûÇÇ Ç╛áü■üⁿ└Å°ç·Ç┐α┐°ü■ü αÅ°Å Ç┐└ ⁿü■â ≡Å≡ƒ └┐└ ■ü■â ⁿâ°ç °â°Å∩°ç°ç≈ⁿâ°ç∩ⁿüⁿç≤■Ç■âⁿ Ç┐└╝ αƒαƒÅ≡ç°ç≤°âⁿâ ⁿâⁿü∙°âⁿü°≡ç°çß└Åα╛ÇÇ╛â└ÇâαÇÇ°ÇÇ ⁿÇÇÅ≡ÇÇüⁿÇÇÇ┐ÇÇǃ≡ÇÇÇÇ╝"
  35. 350 A$(22)=" αÇÇÇç ÇÇÇÇ┐ΦÇÇÇâ■ÇÇÇÇçσÇÇÇǃ╚ÇÇÇé╥ÇÇÇÇåαÇÇÇÇû└ÇÇÇÇÇÇǿǃ└ÇÇÇü«ÇÇ└ÇÿÇüôÇà²åäÇÅⁿÇîÇÅ°Å≡ǃ≡┐πÇ └ ╕üⁿç └ƒα┐■Ç ü °â■â ≡çⁿç αç°ç αç°ç ≡çⁿâ ≡çⁿâ °ü■Ç┐■Ç Çç Çƒ≡ü ≡âⁿÇ┐ⁿÇ └ç └Å≡Ç ≡â■Çç Ç┐αÇ┐≡âⁿÇç■Ç┐└Ç┐αÅ≡ÉÅ°üⁿÄü■Ç┐ç└┐ǃâαƒ└ç├≡ÄÇââ≡éÇÇç≡î"
  36. 360 A$(23)="╨ÇÇ■Ç░ç°Åç├≡╕£ƒ╚╕╝ƒα≡≡√±ßßτß±≡╖≡°°╜°╝₧Å╬ç├α≡Ç╕áÇÿÇÅÇÇÇÇÇÇäÇÇÇÇÇÇÇǃÇÇ└â≡₧ç├°Å├≡ⁿâß°ƒ└°£ÅαÄç┴°âß≡┐└╛ç└╛Ç■ü≤°â°â └Åαç Ç┐└ç■Ç┐└çⁿÇ └âⁿǃαDzÇçⁿÇÅ≡â°ÇÇⁿÇ■Çá╛Ç Çǃǃ└èÅ└ƒαåçαç≡éâ°â°â┴ⁿüⁿâ└■Çⁿâα┐Ç■â≡ƒ└╛âαƒÇ■â≡ƒÇ■âα╛ü°ç└°ç≡₧âαƒÇ°₧Ç°çα≡ç└ÿ£"
  37. 370 A$(24)="≡░α─╝ÿ≡ß╟ßçÄî┐å£╕▒ⁿÿ±ß╟≡π├ă├Åî╕■Üÿ±τ±±ßç■û£ïƒâ├α≡ÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇ╝ÇÇ≡âèα╕òáêÇÇéÇÇÇé┴êüäÇáÇÇÇêÇÇÇáüÇÇüëÉÇÇÇÇá└éÇÇÇÇÇÇ└ÇêÇÇÇáÇüÇ¡ÇÇñÇ└êÇä└ÇÇäá"
  38. 380 A$(25)="°ÇÇÇÇÇ╝ÇÇÇÇÇⁿÇÇÇÇüⁿÇáÇáç≡âαƒÇ■ü≡ƒÇƒ┴α╝ç┴≡╝₧Äî₧ƒçç└ßπ±πÄÄî₧£▒├≡π±╞ÿ≤Ä₧ÿπÄ░π≤╞îτÄ«╕Ö╠╕π≤üêτ╞₧╕æî°Γτå│τÄî▒─╣±├╠ÿτƒÿ╣≤î│±ç₧░τ╛ɱτî╖Γ╬ÿ░╧╕╣≤╞ÿ■Äÿ░âƒ├╟╧åÅ≡≡±ßπ°╝╝£ç╪£ƒçâ≡₧Åâ├≡╝ƒç╟└°╛ç°çß°ƒ└╝Å┴ⁿâαⁿÅ└╝Å┴°ç┴°₧ü≡₧ç└╕Åâα£ç┴ⁿÇÇ╕àÇÇäéÇÇüε└ÇÇ»└"
  39. 390 A$(26)="╨ÇÇÇÇÇΘÇÇÇÇÇ╨ÇÇÇÇ┐ÇÇÇÇÅαÇáÉçα╕ αÅ└ⁿ └ⁿç├ⁿâß°┐Ç╝₧ŵⁿÇⁿǃÇÅ└Åαçαç≡â°â°üⁿüⁿÇ■ü■Ç╛Ç■Ç┐Ç┐└ÅαÅ≡â°âⁿÇ Ç └Å≡Å°âⁿâ■Ç┐└┐αç≡çⁿü■Ç └Å≡çⁿü■Ç └Å≡çⁿü■Ç┐└Å≡çⁿÇ■Ç┐└ƒαç°ü■Ç └Å≡çⁿü■Ç┐└Å≡çⁿÇ■Ç┐└"
  40. 400 A$(27)="└ÇÇǃÇÇ└ÇÇâ≡ÇéÇÇü⌠ÇéÇÇÇ╕ÇéüÇÇ₧Çé▓É└┐└Çα┴ÇⁿÇå└£ç°ü¡íü■Ç°Çá┐└▐Ç≡ƒα┐ü≡ƒ└┐ü░ƒ└┐ü≡▀Çⁿàß╛ü≡ù├ⁿïΣ┘â°Åéß╦·«ï┴┴°ƒâ≡α■Å┴Σ°ƒâ┴∙₧ù╤≡╛ù┼≡■çµ≡■çα°╛ç≡·Åçé┐â└°ⁿÿⁿåâ╙≡±ⁿεÄåâ≤°ⁿ╢ƒï╤°≡╕£Ä¿■ÿÄçæâÄ╟ü├≡ÿ▒⌠╕ăêτÅú└±≡╕î£çüßα╕î£ç└±≡╕ÄÄüα╕╕Äüâα£çç└Ç░╝â└┴α"
  41. 410 A$(28)="■ÇÇÇǃ└ü└ç└åÇåÇÇÇÇÇÇüÇüⁿÇ≡â≡₧â■Ç╛çα╝Å°Å┴°Çⁿâα╛â├≡₧çßⁿ₧ƒ├π≡ππ°±τî╕εÿ≤τÄùîîπçï╬Ä││╔╞╞║╣ßπτîñ⌠ßπ╠▄╕°ß╟ª╝°±τ─╝ÿ▒≈╩╝₧¿▒≤å╦䣰ß≥Φå▐ÇŵÇå°á αÇ┐└â■Ççⁿǃ°Çƒ≡á┐≡Ç┐αÇ┐╨ǃαǃ≡ÇÅ°éâ■Çü ÇɃαÇÅαéü■ÇÇ┐ÇÇâⁿÇÇ ÇÇâⁿÇü■ÇÇâⁿÇÇ┐ÇÇü■ÇǃÇÇÇ┐ÇÇÄÇÇÇÇⁿÇÇë"
  42. 420 A$(29)="└Çâê≡╡ÇüÇÇá╚┴üüÇüαÇ┬└é≥ÇÇöüíÉÇÇÇÇùÇöêÇç°₧½°ƒ┴≡┐α■ç┴∙ç°₧Å⌠ƒα°ƒα┐┴≡╛α âα É╛┴≡╛╚ƒÇ⌠Å┬â≡₧űá■çα²èâ≡₧â≡ÿÅαⁿçα≡┐ü°Åα≡ƒ└ⁿƒ└°Åα╕Åα╝ç≡ƒÇ■çα üⁿç≡¢âⁿâ≡ƒ└░âⁿâαƒαÇü■ü≡Åα░ǃαîÇⁿÇÇ░┐└ÇÇÇÇÇÇÇÇÇçⁿÇÇü≡ÇÇÇÿÇÇÇÇ≡ÇÇÇÇÇåÇÇÇä"
  43. 430 A$(30)="└ÇÇÇÇÇÇÇÇÇÇÇÇÇÇüÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇ░ÇÇäüáÇÇÇé╨áÇÅαÇ┴°Åäåç⌠ü¬ïâ≡ä°îÅ└ï≡α■Ç∞╦â≡çα░ƒü╛ââ°â≡Öƒ└ƒâ┴²â≡£╧≡»╔ñ▀à·«ï≡╧Ñ≡ ü⌡╓ï⌠₧╓≡╛├°δï°ƒà░ƒ┬·█┴ⁿç╨▄Åα┐ï≡ƒü╝ï└■ü⌠ƒ┴²ü°Åü■â°ƒü■â°ƒ└ üⁿÅα┐└ⁿç°Å≡Å└ⁿÇ■üⁿÅαâ°Ç≡ÅÇü■Çⁿç└Ç┐└ƒÇ≡åâⁿü°ç└êâ°üαÇÇÇÇⁿ"
  44. 440 A$(31)="└ÇÇÇÇÇÇÇáÉÇ▒Çü░ÉáΓêÇä±êåÇÇ┐°α■Åç≡ⁿç├≡ⁿç├≡╛ç├≡ⁿçπ≡╛âß°ƒü°╝Å└ⁿƒâ≡₧Åα°ç├Φ₧ü≡°çα╝╛ü≡Åç└₧üß∙çα╝₧ê╝ç├ß├α╕╛î₧âπ≡▒°₧Åâ╟└≡ⁿ╛Åâ└≡■₧ç┴±°Äú└≤°π°≡╕╝î┐₧çâ┴π±α≡⌠║¥Ä╟â±╬┐¥Äçπ▓ƒ¥╞╟µú╧τπ≤√ÿ±°ⁿ╝╛╢çƒÅ╟├π└°ⁿ╝₧ççÇπ∙°£Åî┴π±°£₧îâπ°°îÅüÇ≡ⁿÄåçαÇîç≡áå₧ÇÇ¢Çÿ"
  45. 450 A$(32)="└ÇÉÇÇÇêá£Çτ■Çⁿ╕╕╕îíç│├â├╟£╞ÿ╕▒╥Ö╞Ä£│╚╞Ä£╣╠τî╝∙ÖÖß╟Ä╖µÿ░π╠∙πåî╣╓£░ß├£π╧£ÿ▒╬╣≤π╠╗╟₧╕░πⁿ≤π╟çƒå╝£╕╕≡íπß├╟╞₧╛₧₧⌐ß≡≡╣ⁿî₧Åç├ß├≡°ƒâîÅ┴╨╣Ç░ƒ└ÇÇ└░ƒ└ÇëÉ░ƒ└ÇâäÿÅαÇáÇîç°ÇÇÇÇü■ÇÇÉÇÇ┐└ÇäÇÇç°ÇéªåüⁿÇê╚ÇÇ ÇÇ─éáƒΦÇù╨ÿÅ°Çèÿåâ°ÇÅΦü┴ⁿÇç°â├°╝Å╧üßⁿ₧ç╟α£Åπ"
  46. 460 A$(33)="└┴äáÉñ╚Ç░ÉäÇÇëÇÇÇ┴ÇêÇΓäÇÇêÆñäÇ┴öÿü└└ôä└éÇë╚└üÇêáÉ┬êÇüñ¿ÇüÉ└⌐àüñÇÇêáÇÇâαÇ■ƒ└Åßⁿ₧ÿƒ├ß°ßⁿ£ƒ├├≡°╛ÅÅß≡°╕╛Åçßßⁿ╝Åâ├≡╝ƒç½Φ£çâ┴°ÄÇç└ÇΩÇÇêÇÇÇÇáÇÇÇÇÇ└ÇÇÇÇÇÇÇÇÇÇÇÇ└ÇÇéÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇöÇ└┤ÆÖ┤°èßäàä├ê╤Æèܼ└àüóö╓¿┴αß─«╘µ█⌐ü┤ΘààæÇí"
  47. 470 A$(34)="└Ç└ÇÇüÇÇéÇÇáÇüêÇÇ└üÿêáÇáÇÉ░üìöñë╚áêÉï╥ñ─╔ë┬úäª╠ÿ─└─éääéÇÇÇÇÇÇ└Çâ■Ç├≡╝ÄäƒåÅß±°≡°₧╧ç╟àα°╕°∞│ßßπ┴╟╟çÄç₧££╝£╝╕╕≡╕°≡±≡±≡±≤Γ≤ßßπ╟τßαⁿÄæ╗îääê└ⁿáÇ╕á└┐ÿÇ¥└ɃαÇ«Çêƒ└Ç≈┴±°╝Å╟├╟π≡╝£₧ƒÅâé≡£╝₧à├α°ⁿ╝âτ└≡ⁿåÇÅ└ÿÅ≡ÇÅ≡îÅ°Çâ°åü■ÇÇ╛ÇáƒαÇç°åü■ÇÇ■ÇÉÅ≡Çü°"
  48. 480 A$(35)="┬èüüöîçü°°₧űΦⁿ£ÅçÅ├ß°≡ⁿ₧Å╟âß≡ⁿ£Åç├≡°╛Åçßα°₧Å├┴°ⁿƒåçß≡╛£Å├αⁿ░■çâ≡ßⁿÅçßâ°ƒçπç°₧ç╞ç°ƒâ┬ç°ƒâ╞ç°çα╨üⁿâ°çα┐αƒé┬â■üⁿèäâⁿü·ÇÅ°üÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇ╤ÄÇΦÿÉßÉ░Å╔╬Çâ╣éç°░ƒαÖδ╚ÿǃ╬äÇ₧ü÷É£òǃ╨Å⌠Ç┐└ü≡╝â°çⁿÇ╜ⁿ╕Çâ≡ÇÇü°Ç▀"
  49. 490 A$(36)=" ÇÇÇ └ü■Ç└ƒ≡â≡åü ÇçαÉÅ°Ç₧îç°çÄçâσ≡╝ƒτπΣÅ┤┘≥ß├«Ä╛ⁿÉτ╔╧₧¼Ö±≤τ▐î∙┘≤σ├₧╢╝∙░τ╚╟▀öî√Ö√⌠├₧▓╝∙Éτ╔╧₧¼Ö√│τ╥ä₧Σ∙╜┴τ├å╧öÜ·░δßü▀╞ƒ╜Çò°íß≡ü┐äƒ┐Ç√≡╟⌡≡ç■êƒ╧└ °ßⁿ▄â ╞ç⌡≡ç Çƒß└Å·êƒßÇÅ°îÅ°Çâ■éâⁿÇü ü└ └ÇÅ≡ÿÅ≡Çâⁿâü■ÇÇ┐Ç░ƒαÇâⁿÇÇ ÇÇÅ≡êç°░Ç┐└Çç⌠Çü■Çüâ·Çä└"
  50. 500 ' get input
  51. 510 I$=INKEY$: IF I$="" THEN 510
  52. 520 IF POS(0)=70 THEN GOSUB 1050
  53. 530 IF CSRLIN=24 THEN GOSUB 1070
  54. 540 IF I$=CHR$(27) THEN CLS:END
  55. 550 IF I$=CHR$(32) THEN 850
  56. 560 IF I$=CHR$(13) THEN 870
  57. 570 IF I$=CHR$(46) THEN 880
  58. 580 IF I$=CHR$(44) THEN 890
  59. 590 IF I$=CHR$(63) THEN 900
  60. 600 IF I$=CHR$(34) THEN 910
  61. 610 IF I$=CHR$(45) THEN 930
  62. 620 IF I$=CHR$(58) THEN 940
  63. 630 IF I$=CHR$(40) THEN 960
  64. 640 IF I$=CHR$(41) THEN 970
  65. 650 IF I$=CHR$(43) THEN 980
  66. 660 IF I$=CHR$(61) THEN 990
  67. 670 IF I$=CHR$(47) THEN 1000
  68. 680 IF I$=CHR$(33) THEN 1010
  69. 690 IF I$=CHR$(39) THEN 1020
  70. 700 IF I$=CHR$(9) THEN 1030
  71. 710 IF I$=CHR$(36) THEN 1040
  72. 720 IF I$=CHR$(42) THEN 1080
  73. 730 IF I$=CHR$(60) THEN 1090
  74. 740 IF I$=CHR$(62) THEN 1100
  75. 750 IF I$=CHR$(59) THEN 1110
  76. 760 IF I$=CHR$(91) THEN 1120
  77. 770 IF I$=CHR$(93) THEN 1130
  78. 780 A=ASC(I$)
  79. 790 IF A>96 AND A<123 THEN A=A-32
  80. 800 IF A>64 AND A<91 THEN T=A-64:GOTO 830
  81. 810 IF A>47 AND A<58 THEN T=A-47+26:GOTO 830
  82. 820 CALL TALK(A$(28)): GOTO 500
  83. 830 ' talk!
  84. 840 PRINT CHR$(A);:CALL TALK(A$(T)):GOTO 500
  85. 850 PRINT CHR$(7); : PRINT " ";
  86. 860 GOTO 500
  87. 870 PRINT "":GOTO 510
  88. 880 PRINT ".";:GOTO 510
  89. 890 PRINT ",";:GOTO 510
  90. 900 PRINT "?";:GOTO 510
  91. 910 PRINT "'";:GOTO 510
  92. 920 PRINT ":";: GOTO 510
  93. 930 PRINT "-";:GOTO 510
  94. 940 PRINT ":";: GOTO 510
  95. 950 PRINT "!";: GOTO 510
  96. 960 PRINT "(";: GOTO 510
  97. 970 PRINT ")": GOTO 510
  98. 980 PRINT "+";: GOTO 510
  99. 990 PRINT "=";: GOTO 510
  100. 1000 PRINT "/";:GOTO 510
  101. 1010 PRINT "!";: GOTO 510
  102. 1020 PRINT "'";: GOTO 510
  103. 1030 PRINT "    ";: GOTO 510
  104. 1040 PRINT "$";:GOTO 510
  105. 1050 CALL TALK(A$(28)): CALL TALK(A$(28))
  106. 1060 RETURN
  107. 1070 CALL TALK(A$(28)): CALL TALK(A$(28)): INPUT;"",QQ$: INPUT;"",QQ$: CLS: GOTO 510
  108. 1080 PRINT "*";: GOTO 510
  109. 1090 PRINT "<";: GOTO 510
  110. 1100 PRINT ">";: GOTO 510
  111. 1110 PRINT ";";: GOTO 510
  112. 1120 PRINT "[";: GOTO 510
  113. 1130 PRINT "]";: GOTO 510
  114.