home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 204 / 204.d81 / extemporaneous (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  92 lines
  1. 0 poke53280,.:poke53281,.:poke646,13::printchr$(14)"[147][208]rogram by [203]enneth [194]arsky":goto100
  2. 1 data "[212]o clear from charge of fault or guilt", a. exculpate
  3. 2 data "[193] treasury as of a state or country",b. exchequer
  4. 3 data "[199]rowing abnormally from something else",c. excresent
  5. 4 data "[212]o think out -devise - invent",d. excogiate
  6. 5 data "[212]o strip off or remove the skin from",e. excoriate
  7. 6 data "[212]o inflict severe pain",f. excruciate
  8. 7 data "[212]o think out - devise - ",g. excogitate
  9. 8 data "[213]tterly detestable",h. execrable
  10. 9 data "[201]nterpretaion of [211]cripture",i. exegesis
  11. 10 data "[193]pparently",j. exfacie
  12. 11 data "[212]o go off stage",k. exeunt
  13. 12 data "[213]rgent",l. exigent
  14. 13 data "[212]o urge - advise -caution",m. exhort
  15. 14 data "[211]canty - meager - small",n. exiguous
  16. 15 data "[198]rom the library of",o. ex libris
  17. 16 data "[211]uitable for public communication",p. exoteric
  18. 17 data "[193] profane word or expression",q. expletive
  19. 18 data "[212]o develop in principle",r. explicate
  20. 19 data "[205]ade or done subsequently",s. ex post facto
  21. 20 data "[212]o dry - remove moisture from",t. exsiccate
  22. 21 data "[194]loodless",u. exsanguine
  23. 22 data "[212]o erase - strike out - blot out",v. expunge
  24. 23 data "[196]one without preparation",w. extemporaneous
  25. 24 data "[212]o force money from by violence",x. extort
  26. 25 data "[212]o surrender a prisoner", y. extradite
  27. 26 data "[212]o go beyond bounts of propriety",z. extravagate
  28. 99 d=peek(186):save"@0:extemporaneous",d:end
  29. 100 s$="        [163][163][163]":t=26:gosub20100
  30. 102 dimq$(t),a$(t),wa$(t)
  31. 105 forx=1tot:readq$(x),a$(x):next
  32. 199 if t=0 then print"[147][217]ou got them all!":gosub500:goto20150
  33. 200 gosub20120
  34. 201 if q$(z)=""then200
  35. 202 gosub2200:print"           [197][216][212][197][205][208][207][210][193][206][197][207][213][211][160][160][160]           "
  36. 203 print"[154][205]atch the words that begin with the"
  37. 204 print"prefix [197][216] (and there are plenty of"
  38. 205 print"them!) with dictionary definitions."
  39. 206 forl=1to40:print"[164]";:next:print"[153]"
  40. 207 forv=1to13:printa$(v)tab(20)a$(v+13):next
  41. 208 print:print">[158]"q$(z):
  42. 209 gosub20000   :ifg$=""then209
  43. 210 if g$=left$(a$(z),1)thengosub400:goto 212
  44. 211 print"[206][207]! [212]hats wrong!":gosub300:print"[212]he answer is [153]"a$(z)
  45. 212 print"[158][208]ress any key for next word."
  46. 213 get any$:ifany$=""then 213
  47. 214 goto199
  48. 300 forx=54272to54295:pokex,0:next:poke54296,15
  49. 305 poke54277,45:poke54272,20:poke54273,5:poke54276,33
  50. 310 ford=1to150:next:poke54276,32:ford=1to30:next
  51. 315 forx=54272to54295:pokex,0:next:return
  52. 400 print"[217][197][211]! [212]hats right!!!":q$(z)="":a$(z)="":t=t-1
  53. 402 s=54272:for l=s to s+24:pokel,0:next:pokes+24,15:rem ding
  54. 405 s=54272:pokes+1,50:pokes+5,9:pokes+15,30:pokes+4,17:forss=1to1200
  55. 410 next:pokes+4,16
  56. 415 s=54272:for l=s to s+24:pokel,0:return
  57. 500 s=54272:for l=s to s+24:pokel,0:next:pokes+24,15:rem ding
  58. 505 t=87:n$="251331421502421502"
  59. 510 pokes+6,96:pokes+24,15
  60. 515 fori=1to18step3
  61. 520 pokes+1,val(mid$(n$,i,2)):pokes+4,33
  62. 525 forj=1tot*val(mid$(n$,i+2,1)):next
  63. 530 pokes+4,0:next
  64. 535 s=54272:for l=s to s+24:pokel,0:return
  65. 1011 to12:readq$(x),wa$(x),a$(x):printa$(x):next:end
  66. 2200 print"[147]":poke214,23:print:printtab(11)"[150]'_' to [197]xit";:return
  67. 20000 poke198,0:wait198,1:getg$:ifg$="_"then20200
  68. 20001 return
  69. 20100 dimz(26):forx=1to26:z(x)=x:next
  70. 20102 forx=1to26:z=int(rnd(1)*26+1)
  71. 20104 zz=z(x):z(x)=z(z):z(z)=zz:next
  72. 20106 zz=0:return
  73. 20120 zz=zz+1:ifzz>26thenzz=1
  74. 20122 z=z(zz):return
  75. 20150 t=ti+240
  76. 20155 ift<tithen20155
  77. 20160 goto40000
  78. 20200 poke214,23:print:printtab(10)"[197]xit this [209]uiz? ([217]/[206])[158]";
  79. 20202 poke198,0:wait198,1:getz$:ifz$="y"then40000
  80. 20204 poke214,23:print:printtab(10)"                     ";
  81. 20206 poke214,20:print:g$="":return
  82. 40000 fori=0to21:poke828+i,8+i:next
  83. 40010 ifdv<8ordv>29ordv=8then40030
  84. 40020 a=peek(828):b=peek(828+dv-8):poke828,b:poke828+dv-8,a
  85. 40030 a$="hello connect":forj=8to29:i=peek(828+j-8):ifi=14thennext
  86. 40040 close2:open2,i,2:close2:ifstthen40060
  87. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  88. 40060 next:print"[147]":poke53272,23:poke186,8:end
  89. 40070 q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  90. 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
  91. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  92.