home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 201 / 201.d81 / b.samwise (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  54 lines
  1. 1 rem (c)2000 dave moorman+ roger gouin
  2. 4 gosub1000
  3. 5 ifpeek(56)<>125thenpoke56,125:run
  4. 10 dv=peek(186):ifdv<8thenstop
  5. 15 ifpeek(125*256)=93then35
  6. 20 sys57812"bmfh",dv:poke780,0:poke781,0:poke782,149:sys65493:rem "b-loading"
  7. 30 sys57812"reciter",dv:poke780,0:poke781,0:poke782,125:sys65493
  8. 35 poke39440,1:rem light (screen on)
  9. 36 poke39439,64:rem pitch
  10. 37 poke39438,72:rem speed
  11. 38 poke38880,128:sys38882:rem mouth
  12. 39 poke38881,128:sys38882:rem throat
  13. 40 rem                                           say with english text
  14. 41 sa$="this is a test":sys39430:fory=1to800:next
  15. 60 rem                                           say with phonetic text
  16. 61 readsa$:sys39424:fory=1to800:next
  17. 62 readsa$:sys39424:fory=1to800:next
  18. 64 readsa$:sys39424:fory=1to1500:next
  19. 65 poke38880,105:poke38881,110:sys38882:poke39438,82:poke39439,72
  20. 66 readsa$:sys39424:fory=1to1200:next
  21. 67 poke38880,145:poke38881,145:sys38882:poke39438,82:poke39439,32
  22. 68 readsa$:sys39424:fory=1to1200:next
  23. 69 poke38880,190:poke38881,190:sys38882:poke39438,92:poke39439,60
  24. 70 readsa$:sys39424:fory=1to800:next
  25. 71 readsa$:sys39424:fory=1to1200:next
  26. 72 poke38880,128:poke38881,128:sys38882:poke39438,72:poke39439,64
  27. 73 readsa$:sys39424
  28. 75 goto40000
  29. 82 data"/heh3low2, /haw ah yux2 tuxdey. ay /hoh3p yux ah fiylihnx ow4 key."
  30. 83 data"ay5 aem ey tao4lxkihnx kax4mpyux4tah.gow4 ah/heh3d pahnk.meyk may8 dey."
  31. 85 data"/hey2, dhihs ih3z grey2t. /hah /hah /hah. ayl biy5 baek."
  32. 87 data"ey /hoh3rsq.ey /hoh3rsq.may kihnxgdax4m faar ey /hohoh5rsq"
  33. 89 data"dheh kwihk, braeawn faa2ks jahmps ohver, dheh leyzih dohohg."
  34. 91 data"shael wih pley ey gey4m ohf ther6maxaxl nxuhkleh5axax2r dohmihnohoh5sq"
  35. 93 data"aa.kahm aan3. yux sehd yux wuhd2
  36. 95 [131]"bay3bay2 fohr naw1."
  37. 1000 [153]"loadfor":[151]53280,0:[151]53281,0:[151]53272,22
  38. 1010 [151]214,10:[153]
  39. 1020 [153]"(NULL).atn.(NULL). -- (NULL)our len-64for is (NULL)alking to (NULL)ou!
  40. 1030 return
  41. 10000 goto60000
  42. 40000 fori=0to21:poke828+i,8+i:next
  43. 40010 ifdv<8ordv>29ordv=8then40030
  44. 40020 a=peek(828):b=peek(828+dv-8):poke828,b:poke828+dv-8,a
  45. 40030 a$="hello connect":forj=8to29:i=peek(828+j-8):ifi=14thennext
  46. 40040 close2:open2,i,2:close2:ifstthen40060
  47. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  48. 40060 next:print"[147]":poke53272,23:poke186,8:end
  49. 40070 q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  50. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  51. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  52. 59999 end
  53. 60000 dv=peek(186):n$="b.samwise":open15,dv,15,"s0:"+n$:close15:saven$,dv:end
  54.