home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 171 / 171.d81 / b.daffy-nitions (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  8KB  |  249 lines
  1. 10 poke56,56:clr
  2. 20 poke788,49:tq=ti:poke53371,0
  3. 30 dv=peek(186):ifdv<8thendv=8
  4. 40 poke53280,0:poke53281,0:print"[147]":gosub60000
  5. 50 sys57812"daffy font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  6. 60 ifti<tq+100then60
  7. 70 z=0:deffna(x)=(40-len(q$(q(z))))/2
  8. 80 s=54272
  9. 90 dimc$(50),q$(50),q(50)
  10. 97 :
  11. 98 :rem title screen
  12. 99 :
  13. 100 printch"[147]"chr$(142):poke53272,31
  14. 110 print"[144] [223][169]      [223] [169] [223][169] [223] "
  15. 120 print" [146][223][169]  [146][185]    [185]   "
  16. 130 print"       [184] [185]  "
  17. 140 print"       [146][169] [146][223] [146][169]     "
  18. 150 print""
  19. 160 print"[178][192][201][213][192][201] [178][192] [178][192] [178] [178]   [178] [178] [178][176][178][174][178][213][192][201][178] [178][213][192][201]"
  20. 170 print"[194] [194][171][192][179] [171][179] [171][179] [202][178][203] [192] [194][205][194] [194] [194] [194][194] [194][194][205][194][202][192][201]"
  21. 180 print"[177][192][203][177] [177] [177]  [177]   [177]    [177] [177] [177] [177] [177][202][192][203][177] [177][202][192][203]"
  22. 190 fori=55376to55456:pokei,8:next:fori=55457to55537:pokei,7:next
  23. 200 fori=55538to55618:pokei,8:next
  24. 210 fori=55696to55735:pokei,3:next
  25. 220 fori=55736to55775:pokei,13:next:fori=55776to55815:pokei,14:next
  26. 230 printtab(18)"[155]by"
  27. 240 printtab(13)"wm. o. nelson"
  28. 247 :
  29. 248 :rem setup
  30. 249 :
  31. 260 gosub1080
  32. 270 fori=832to1023:readj:pokei,j:next
  33. 280 fori=704to767:readj:pokei,j:next
  34. 290 poke2040,13:poke2041,14:poke2042,15:poke2043,11:v=53248
  35. 300 fori=39to42:pokev+i,1:next:pokev,68:pokev+2,68:pokev+4,68:pokev+6,68
  36. 310 pokev+1,176:pokev+3,176:pokev+5,176:pokev+7,176
  37. 320 geta$:ifa$=""and(ti<tq+300)then320
  38. 327 :
  39. 328 :rem help screen
  40. 329 :
  41. 330 print"[147][154]impress your doctors with your know-
  42. 340 [153]"ledge of medical terms, but don't blame
  43. 350 print"us if they look at you as if they think
  44. 360 [153]"you are nuts.
  45. 370 print"press f1[154] to bring up a daffy-nition,
  46. 380 [153]"then type in the name.
  47. 390 print"press f3[154] for a hint if you don't know
  48. 400 [153]"what the letter is.
  49. 410 print"each medical word or phrase is worth
  50. 420 [153]"30 points, less the number of times you
  51. 430 print"press f3.
  52. 440 [153]"open    press a key for your first word
  53. 450 geta$:ifa$=""then450
  54. 457 :
  55. 458 :rem randomize questions
  56. 459 :
  57. 470 nq=30:z=0:sc=0
  58. 472 fori=1tonq:q(i)=i:next
  59. 480 fori=1tonq
  60. 490 r=int(rnd(0)*nq+1)
  61. 500 rr=int(rnd(0)*nq+1)
  62. 510 te=q(r):q(r)=q(rr)
  63. 520 q(rr)=te
  64. 530 next
  65. 547 :
  66. 548 :rem play screen
  67. 549 :
  68. 550 print"[147]":gosub760
  69. 552 z=z+1:ifz>nqthen2000
  70. 560 poke214,16:poke211,29-(sc<1000):sys58732:print"[158]"sc
  71. 562 l=1:ll=(42-(3*len(c$(q(z)))))/2
  72. 570 poke214,4:sys58732:printtab(fna(x))q$(q(z))
  73. 580 poke214,11:poke211,ll:sys58732
  74. 590 fori=1tolen(c$(q(z))):print"[155][192]  ";:next
  75. 600 poke214,10:poke211,ll:sys58732
  76. 610 dl=20
  77. 620 print"?";:gosub920;:print"[157] ";:gosub920;:print"[157]";
  78. 630 getb$:ifb$=""then620
  79. 640 ifb$=chr$(135)then1780:rem quit?
  80. 650 ifb$=chr$(133)then550
  81. 660 dl=100
  82. 670 ifb$=chr$(134)thenprintmid$(c$(q(z)),l,1):gosub920:printtab(ll)"[145] ":goto1030
  83. 680 ifb$<>mid$(c$(q(z)),l,1)thenprintb$:gosub980:rem wrong
  84. 690 ifb$=mid$(c$(q(z)),l,1)thenprintb$:gosub1000:rem correct
  85. 700 print"[145]                 ":rem erase
  86. 710 ifl<=len(c$(q(z)))then750
  87. 720 print"[145][158]yea!!!"
  88. 730 fori=0to5:pt=int(rnd(0)*50)+200:gosub1830:next
  89. 740 sc=sc+30:gosub1050:dl=40:gosub920:goto550
  90. 750 goto600
  91. 757 :
  92. 758 :rem draw game screen
  93. 759 :
  94. 760 print"[147]"
  95. 770 print"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  96. 780 fori=0to2
  97. 790 print"[194]                                [194]"
  98. 800 next
  99. 810 print"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  100. 820 poke214,13:poke211,30:sys58732:print"score"
  101. 830 poke214,15:poke211,4:sys58732:print"[153][207][183][183][183][183][208]"spc(18)"[207][183][183][183][183][183][183][208]"
  102. 840 print"[180]    [170]"spc(18)"[180]      [170]"
  103. 850 print"[180]    [170]"spc(18)"[180]      [170]"
  104. 860 print"[204][175][175][175][175][186]"spc(18)"[204][175][175][175][175][175][175][186]"
  105. 870 print"f3[154] - get a hint    f1[154] - a new term
  106. 880 [153]"f5cont - return to loadstar
  107. 890 return
  108. 917 :
  109. 918 :rem delay loop
  110. 919 :
  111. 920 tq=ti
  112. 930 ifti<tq+dlthen930
  113. 940 return
  114. 947 :
  115. 948 :rem erase
  116. 949 :
  117. 950 pokev+21,0:print"[145]                      ":return
  118. 977 :
  119. 978 :rem faces and messages
  120. 979 :
  121. 980 pokev+21,4:print"sorry !":pt=8:gosub1830
  122. 990 dl=100:gosub920:pokev+21,0:return
  123. 1000 pokev+21,1:print"good guess!":pt=200:gosub1830
  124. 1010 dl=70:gosub920:pokev+21,0:l=l+1
  125. 1020 ll=ll+3:return
  126. 1030 sc=sc-1:print"you peeked !":pokev+21,8
  127. 1040 gosub920:gosub950:goto600
  128. 1050 poke214,16:poke211,29-(sc<1000):sys58732:print"[158]"sc
  129. 1060 dl=60:pokev+21,1:gosub920:pokev+21,2:gosub920:pokev+21,1:gosub920
  130. 1070 pokev+21,0:return
  131. 1077 :
  132. 1078 :rem words and definitions
  133. 1079 :
  134. 1080 c$(1)="barium":q$(1)="what to do after cpr fails"
  135. 1090 c$(2)="artery":q$(2)="collection of paintings
  136. 1100 c$(3)[178]"bacteria":q$(3)[178]"cafeteria's back door"
  137. 1110 c$(4)[178]"benign":q$(4)[178]"after you be eight"
  138. 1120 c$(5)[178]"bowel":q$(5)[178]"a letter like a,e,i,o,u"
  139. 1130 c$(6)[178]"caesarian":q$(6)[178]"pertaining to a roman emperor"
  140. 1140 c$(7)[178]"cat scan":q$(7)[178]"searching for kitty"
  141. 1150 c$(8)[178]"colic":q$(8)[178]"a breed of dog"
  142. 1160 c$(9)[178]"coma":q$(9)[178]"a punctuation mark"
  143. 1170 c$(10)[178]"congenital":q$(10)[178]"being friendly"
  144. 1180 c$(11)[178]"lumbar":q$(11)[178]"used to build houses"
  145. 1190 c$(12)[178]"dilate":q$(12)[178]"have a long life"
  146. 1200 c$(13)[178]"enema":q$(13)[178]"the opposite of friend"
  147. 1210 c$(14)[178]"fester":q$(14)[178]"another word for quicker"
  148. 1220 c$(15)[178]"genital":q$(15)[178]"not jewish"
  149. 1230 c$(16)[178]"g.i. series":q$(16)[178]"ball games for soldiers"
  150. 1240 c$(17)[178]"grippe":q$(17)[178]"a suitcase"
  151. 1250 c$(18)[178]"hangnail":q$(18)[178]"a coat hook"
  152. 1260 c$(19)[178]"impotent":q$(19)[178]"distinguished, well known"
  153. 1270 c$(20)[178]"labor pain":q$(20)[178]"getting hurt at work"
  154. 1280 c$(21)[178]"medical staff":q$(21)[178]"doctor's cane"
  155. 1290 c$(22)[178]"morbid":q$(22)[178]"a higher offer"
  156. 1300 c$(23)[178]"nitrate":q$(23)[178]"opposite of day rate"
  157. 1310 c$(24)[178]"organic":q$(24)[178]"a type of church music"
  158. 1320 c$(25)[178]"outpatient":q$(25)[178]"the patient fainted"
  159. 1340 c$(26)[178]"recovery room":q$(26)[178]"where upholstering is done"
  160. 1350 c$(27)[178]"rectum":q$(27)[178]"what the car did to the dog
  161. 1360 c$(28)="seizure":q$(28)="famous roman emperor"
  162. 1380 c$(29)="tumor":q$(29)="an extra pair"
  163. 1390 c$(30)="urine":q$(30)="opposite of mine"
  164. 1430 return
  165. 1457 :
  166. 1458 :rem sprite data
  167. 1459 :
  168. 1460 data008,145,016,004,255,032,007,255
  169. 1470 data224,031,255,248,063,255,252,120
  170. 1480 data126,030,123,126,222,248,126,031
  171. 1490 data255,255,255,255,231,255,255,195
  172. 1500 data255,255,219,255,255,255,255,255
  173. 1510 data255,255,124,127,030,127,028,126
  174. 1520 data063,193,252,031,255,248,007,255
  175. 1530 data224,000,255,000,000,000,000,000
  176. 1540 data008,145,016,004,255,032,007,255
  177. 1550 data224,031,255,248,063,255,252,120
  178. 1560 data127,254,123,126,030,248,127,255
  179. 1570 data255,255,255,255,231,255,255,195
  180. 1580 data255,255,219,255,255,255,255,255
  181. 1590 data255,255,124,127,030,127,028,126
  182. 1600 data063,193,252,031,255,248,007,255
  183. 1610 data224,000,255,000,000,000,000,000
  184. 1620 data008,145,016,004,255,032,007,255
  185. 1630 data224,031,255,248,063,255,252,120
  186. 1640 data126,030,123,126,222,248,126,031
  187. 1650 data255,255,255,255,231,255,255,195
  188. 1660 data255,255,219,255,255,255,255,255
  189. 1670 data255,255,127,193,254,127,028,126
  190. 1680 data062,127,060,031,255,248,007,255
  191. 1690 data224,000,255,000,000,000,000,000
  192. 1700 data008,145,016,004,255,032,007,255
  193. 1710 data224,031,255,248,063,255,252,120
  194. 1720 data126,030,123,126,222,248,126,031
  195. 1730 data255,255,255,255,231,255,255,195
  196. 1740 data255,255,219,255,255,255,255,255
  197. 1750 data000,127,124,127,030,127,028,126
  198. 1760 data063,193,252,031,255,248,007,255
  199. 1770 d