home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 226 / 226.d81 / countdown (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  11KB  |  276 lines
  1. 0 rem**********************************  ****                               ***
  2. 1 rem            jeopardy           ***  ****    designed by   shibley      ***
  3. 2 rem                               ***  **************************************
  4. 3 rem
  5. 4 rem
  6. 5 dv=peek(186):ifdv<8thendv=8
  7. 6 print"[147]"
  8. 7 d=peek(186):sys57812"qs driver c000",d,0:poke780,0:poke781,0:poke782,192:sys65493
  9. 8 sys57812"q.jeapordy",d,0:poke780,0:poke781,0:poke782,202:sys65493
  10. 10 printchr$(142)chr$(8):gosub5000:goto100
  11. 14 z$="":qt=ti+10000:poke198,.
  12. 15 print"[209][157]";:forj=1to40:getx$:ifx$=""thennext:ifti<qtthen18
  13. 16 ifqt<tithenprint" [157]";:return
  14. 17 j=40:next:goto20
  15. 18 print" [157]";:forj=1to40:getx$:ifx$=""thennext:ifti<qtthen15
  16. 19 ifqt<tithenprint" [157]";:return
  17. 20 if(x$="[157]"orx$=chr$(20))andlen(z$)=.then15
  18. 21 ifx$=chr$(13)orti>qtthenprint" [157]";:z1$=z$:return
  19. 22 ifx$="[157]"orx$=chr$(20)thenz$=left$(z$,len(z$)-1):print"[157]  [157][157]";:goto15
  20. 24 ifx$>"z"orx$<" "orx$=chr$(34)orx$=","orx$=":"orx$=";"orlen(z$)=zthen15
  21. 25 print"[152]"x$;:z$=z$+x$:goto15
  22. 30 x1=.:x2=.:x3=.:l=len(ww$):forj=1tol:x$=mid$(ww$,j,1):ifx$<>"\"then35
  23. 31 ifx1=.thenx1=j:goto35
  24. 32 ifx2=.thenx2=j:goto35
  25. 33 ifx3=.thenx3=j
  26. 35 next:an$=left$(ww$,x1-1):tc=val(mid$(ww$,x1+1,1)):p2$=right$(ww$,l-x3)
  27. 37 qu$=mid$(ww$,x1+2,x2-x1-2):p1$=mid$(ww$,x2+1,x3-x2-1):return
  28. 50 rr=.:ifz$=qu$orz$=p1$orz$=p2$thenrr=1:goto79
  29. 52 l=len(qu$):iflen(z$)<4orl<4then79
  30. 54 ifl=len(z$)then68
  31. 56 iflen(z$)>lthen64
  32. 58 x=.:forj=1tol-len(z$)+1:ifz$=mid$(qu$,j,len(z$))thenx=j
  33. 60 next:ifx>.thenrr=1:goto79
  34. 62 goto68
  35. 64 x=.:forj=1tolen(z$)-l+1:ifqu$=mid$(z$,j,l)thenx=j
  36. 66 next:ifx>.thenrr=1:goto79
  37. 68 iftc>1orleft$(z$,1)<>left$(qu$,1)then79
  38. 70 x=.:forj=lto1step-1:ifmid$(qu$,j,1)=" "thenx=j:j=1
  39. 72 next:y=.:forj=len(z$)to1step-1:ifmid$(z$,j,1)=" "theny=j:j=1
  40. 74 next:ifx=.ory=.then79
  41. 76 x$=right$(z$,len(z$)-y):ifx$=p1$orx$=p2$orx$=right$(qu$,l-x)thenrr=1
  42. 79 return
  43. 80 u=54272:pokeu+1,20:pokeu+5,9:pokeu+6,9:pokeu+24,15:pokeu+4,17
  44. 81 fork=1to10:next:pokeu+4,16:return
  45. 84 u=54272:pokeu+1,220:pokeu+5,9:pokeu+6,9:pokeu+24,15:pokeu+4,17
  46. 85 fork=.to4:next:pokeu+4,16:return
  47. 88 u=54272:pokeu+1,6:pokeu+5,9:pokeu+6,9:pokeu+24,15:pokeu+4,3
  48. 89 fork=.to10:next:pokeu+4,16:return
  49. 92 u=54272:pokeu+1,50:pokeu+5,9:pokeu+6,9:pokeu+24,15:pokeu+4,7
  50. 93 fork=.to4:next:pokeu+4,16:return
  51. 100 poke53280,.:poke53265,peek(53265)and139
  52. 101 poke53281,7:print"[147]                                        ";
  53. 105 forj=.to22:print"  ";:next
  54. 110 print"                                       [157][148] "
  55. 115 print"                       "
  56. 116 print"[145] [154]                      "
  57. 118 print" [154]  [157]  question please  [154]  "
  58. 120 print"[145] [154]                      "
  59. 125 print"                       "
  60. 130 printspc(18)"[152]from":print"[144]shibley software"
  61. 133 poke53265,peek(53265)or16:gosub80
  62. 134 gosub20000
  63. 135 print"[152]name of player 1 ? ";:z=8:gosub14:ifz$=""thenz$="player 1"
  64. 136 z$=left$(sp$,8-len(z$))+z$+" ":p$(1)=z$:print
  65. 137 z1$=z1$+"'s choice":s9$=left$(sp$,(20-len(z1$))/2)
  66. 138 pc$(1)=s9$+z1$+s9$
  67. 140 print"[152]name of player 2 ? ";:z=8:gosub14:ifz$=""thenz$="player 2"
  68. 141 z$=left$(sp$,8-len(z$))+z$+" ":p$(2)=z$:print
  69. 142 z1$=z1$+"'s choice":s9$=left$(sp$,(20-len(z1$))/2)
  70. 143 pc$(2)=s9$+z1$+s9$
  71. 145 print"[145][145][145][145][152]"p$(1)"select response key;       [157][157][157][157][157][157]";:z=1:gosub14
  72. 146 print:r$(1)=z$:ifz$=""thenr$(1)="z"
  73. 150 print"[152]"p$(2)"select response key;       [157][157][157][157][157][157]";:gosub14
  74. 151 r$(2)=z$:print:ifz$=""thenr$(2)="/"
  75. 175 poke53280,15:poke53281,15:print"[147]":c$(1)=".":t=62
  76. 180 z=1:open2,dv,2,"0:abc,s,r":input#2,z:close2:open15,dv,15:print#15,"s0:abc"
  77. 181 ifz>t-5thenz=int(rnd(.)*4+1)
  78. 185 close15:open3,dv,3,"0:abc,s,w":print#3,z+6:close3
  79. 190 y=.:forj=ztoz+5:y=y+1
  80. 200 c$(y)=ca$(j):print"loading category"y"- "c$(y)"":gosub80
  81. 210 open2,dv,2,"0:"+c$(y)+",s,r":input#2,t(y):ifst=.then215
  82. 211 close2:print"**** check disk":forl=1to4000:next:goto200
  83. 215 fork=1tot(y):input#2,cb$(y,k):nextk:close2
  84. 220 fork=1to5
  85. 225 x=int(rnd(.)*val(right$(ti$,1))*t(y)):ifx<1orx>t(y)then225
  86. 226 ifcb$(y,x)=""then225
  87. 228 w$(y,k)=cb$(y,x):cb$(y,x)="":nextk
  88. 245 nextj:h=1:hh=h
  89. 249 h=1
  90. 250 gosub4050
  91. 251 gosub4000:th=.:tg=3
  92. 252 rem  printbo$"[146][223]"p$(h)"[157]'s   choice[146][169]":stop
  93. 253 printbo$"[146][223]"pc$(h)"[146]"chr$(169)
  94. 255 printbc$"[146]category = ";:z=1:gosub14:ifz$="c"then250
  95. 257 ifz$="q"thenprint"[147]":goto800
  96. 260 ifz$<"1"orz$>"6"orz$=""then255
  97. 261 ca=val(z$):forj=1to5:ifa$(ca,j)<>"   "thenj=5:goto263: rem   it is ok!
  98. 262 next:goto255:  rem   loadstar code       [not allow wrong category]
  99. 263 :
  100. 265 ca=val(z$):print"[146]"spc(39+ca*6)z$
  101. 285 printbc$spc(18)"question amt. = ";
  102. 290 z=3:gosub14:ifz$<>""then295
  103. 291 forj=1to5:ifa$(ca,j)<>"   "thenz$=right$(str$(j),1)+"00":j=5
  104. 292 next
  105. 295 am=val(z$):ifz$="c"then250
  106. 299 ifam>500oram<100then285
  107. 300 ifam<>val(a$(ca,am/100))then285
  108. 310 print"[146]"spc(37+ca*6);:aa=am/100:forj=1toaa:print"";:next:print"[145][145]";
  109. 315 print"[156]     [157][157][157][157][157] "a$(ca,aa)" [157][157][157][157][157]     ";:forj=1to300:next
  110. 320 print"[157][157][157][157][157][145][145]     [157][157][157][157][157] "a$(ca,aa)" [157][157][157][157][157]     ";:forj=1to300:next
  111. 330 print"[146][157][157][157][157][157][145][145]     [157][157][157][157][157] "a$(ca,aa)" [157][157][157][157][157]     ":ww$=w$(ca,aa)
  112. 335 gosub30:a$(ca,aa)="   "
  113. 350 poke53280,6:print"[147][156]"spc(20-(len(c$(ca))/2))c$(ca)""
  114. 355 printspc(15)"for  "am"":print"[159] [197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][144]"
  115. 375 x=39:iflen(an$)<40thenprintan$"":goto385
  116. 380 x=x-1:ifmid$(an$,x,1)<>" "then380
  117. 381 print" "left$(an$,x):printright$(an$,len(an$)-x)""
  118. 385 qt=ti+(len(an$)*7)+(tg*40):gosub92:poke198,.
  119. 387 getx$:ifx$=r$(1)andth<>1thenhh=1:goto400
  120. 390 ifx$=r$(2)andth<>2thenhh=2:goto400
  121. 392 ifti<qtthen387
  122. 394 forj=1to10:gosub92:next
  123. 395 print"[144]"pr$(tc)": [152]"qu$:forj=1to1000:next:goto575
  124. 400 print""spc(16)p$(hh)""
  125. 405 print"[144]"pr$(tc)": ";:
  126. 420 qt=ti+300+(len(an$)*9):z=25:z$="":poke198,.:gosub15:print
  127. 425 gosub50:ifrr=.then550
  128. 545 gosub84:print"[145]"spc(len(pr$(tc))+3)qu$sp$""
  129. 546 printspc(17)"[150]right":forj=1to2000:next:m(hh)=m(hh)+am:h=hh
  130. 549 goto575
  131. 550 gosub88:m(hh)=m(hh)-am
  132. 560 print:printspc(17)"wrong":forj=1to500:next:tg=.5:ifth>.then570
  133. 565 th=hh:print""sp$""sp$"":printsp$"":goto385
  134. 570 print"[145][145][145][144]"pr$(tc)": [152]"qu$sp$
  135. 575 x=.:forj=1to6:fork=1to5:ifa$(j,k)<>"   "thenx=1
  136. 580 next:next:ifx>.thenforj=1to3000:next:goto251
  137. 585 gosub80:poke53280,15:poke53281,.:print"[147][154]                      "
  138. 590 printspc(9)" [159]  question please!  [154] "
  139. 595 printspc(9)"                      "
  140. 600 print"[158] the final category is : ";
  141. 605 f=int(rnd(.)*val(right$(ti$,1))*t):iff>t orf=.then605
  142. 610 y=.:forj=1to6:ifc$(j)=ca$(f)theny=1
  143. 620 next:ify=1then605
  144. 625 gosub80:printca$(f)"[150]":printp$(1)" has[159]"m(1)"   [150]"p$(2)" has[159]"m(2)""
  145. 630 xx=.:b(1)=.:b(2)=.:ifm(1)<1andm(2)<1then770
  146. 631 ifm(1)<1thenxx=1:goto650
  147. 632 ifm(2)<1thenxx=1:goto640
  148. 635 ifm(1)>m(2)then650
  149. 640 print"[154]"p$(1)" what's your wager ";
  150. 641 sysd9+12:sysd9+15:poked9+40,1:sysd9,202,1
  151. 642 z=len(str$(m(1)))-1:gosub14:print""
  152. 645 b(1)=val(z$):xx=xx+1:ifxx>1then660
  153. 650 print"[154]"p$(2)" what's your wager ";:z=len(str$(m(2)))-1:gosub14:print""
  154. 655 b(2)=val(z$):xx=xx+1:ifxx<2then640
  155. 660 ifb(1)>m(1)thenb(1)=m(1)
  156. 662 ifb(2)>m(2)thenb(2)=m(2)
  157. 663 gosub20010
  158. 665 open2,dv,2,"0:"+ca$(f)+",s,r":input#2,t(7):ifst=.then670
  159. 666 close2:print"[150]check disk";:goto665
  160. 670 x=int(rnd(.)*val(right$(ti$,1))*t(7)):ifx>=t(7)then670
  161. 675 ifx>.thenforj=1tox:input#2,x$:next
  162. 680 input#2,ww$:close2:gosub30
  163. 685 poke53280,4:print"[147][158]"spc(20-(len(ca$(f))/2))ca$(f)"":gosub80
  164. 690 x=39:xx=.:iflen(an$)<40thenprintan$"":goto700
  165. 695 x=x-1:ifmid$(an$