home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 162 / 162.d81 / b.quizbang (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  95 lines
  1. 1 poke52,155:poke56,155:clr:poke53371,0:poke53281,0:poke53280,0:gosub60000
  2. 2 dv=peek(186):ifdv<8thendv=8
  3. 4 sys57812"qb.ml",dv,0:poke780,0:poke781,0:poke782,155:sys65493:gosub122
  4. 5 sys57812"qb.gr",dv,0:poke780,0:poke781,0:poke782,197:sys65493
  5. 6 poke56576,196:poke648,192:poke53272,3
  6. 7 poke53280,.:poke53281,.:print"[147][159]   [169]  [223]"tab(21)"[150]    "
  7. 8 print"[159]             [150] [146][164][164][169]     [223]   [182]"
  8. 10 print"[154]    [223]    [169] [146][169]  [129] [146][163][163][223] [146][192]     [146] [174]"
  9. 12 print"   [223] [146][223][223]                [146][223]   [182]"
  10. 14 gosub110
  11. 16 printtab(6)"[154][208]layer [159]1 [154]use [208]ort [159]1 [154][202]oystick"
  12. 18 printtab(6)"[129][208]layer [150]2 [129]use [208]ort [150]2 [129][202]oystick"
  13. 20 printtab(11)"[208]ress [153][198]ire to [208]lay":i=.
  14. 21 poke53370,0
  15. 22 if(peek(56320)and16)+(peek(56321)and16)<32then28
  16. 24 i=i+1:ifi>5theni=.
  17. 26 poke53280,c(i):goto22
  18. 28 t=.:printtab(10)"[145][154][199]ive answers [[159]y[154]/[159]n[154]]?":poke198,.
  19. 30 geta$:ifa$="y"thent=1:goto34
  20. 32 ifa$<>"n"then30
  21. 34 ifn=.thenfori=.to17:pokev(.)+i,n(r,i+1):next:syss(.):goto38
  22. 36 syss(1)
  23. 37 poke53280,0
  24. 38 p=peek(780):q=peek(781):printtab(16)"[153][208]layer"p"[155]":a=int(q/6):c=20*a+r(r,q)
  25. 40 a=q-6*a:ifa=.thenc=c-20:a=int(rnd(1)*5+1)
  26. 42 q$=q$(a,c):a$=a$(a,c)
  27. 44 printtab(5)left$(q$,30):printtab(5)mid$(q$,31)"":fori=.to3:j=12*i+1
  28. 46 printtab(5)"[160][160][160][160][160][160][160][160][160]"mid$(a$,j,12)"[160][160][160][160][160][160][160][160][160]":next
  29. 48 c=.:a=val(right$(a$,1))
  30. 50 poke780,c+11:syss(2)
  31. 52 i=peek(56322-p):j=c:if(iand16)=.then60
  32. 54 if(iand1)=.thenj=c-1:ifj<.thenj=3
  33. 56 if(iand2)=.thenj=c+1:ifj>3thenj=.
  34. 58 poke780,c+11:syss(2):c=j:goto50
  35. 60 j=c*40+55750:fori=.to11:pokej+i,7:next:ifc<>athengosub82:goto64
  36. 62 gosub78:i=int(q/6):p(p-1)=p(p-1)+1+i+(i*6=q):pokev(p+2),p(p-1)
  37. 64 n=n+1:ifn<15then36
  38. 66 r=r+1:n=.:ifr=3then90
  39. 68 print"[147]"tab(7)"[153][217]ou have completed round"r"[157]!"
  40. 70 printtab(14)"[158][208]layer 1:"p(.):printtab(14)"[158][208]layer 2:"p(1)
  41. 72 printtab(13)"[153][208]ress [198]ire..."
  42. 74 if(peek(56320)and16)+(peek(56321)and16)=32then74
  43. 76 pokev(1),peek(v(1))-5:goto34
  44. 78 poke54277,9:poke54278,22:poke54273,50:fori=1to3:poke54276,17:poke54276,16
  45. 80 forj=1to110:next:next:return
  46. 82 poke54277,9:poke54278,22:poke54273,6:poke54276,33:fori=1to150:next
  47. 84 poke54276,32:poke54273,3:poke54276,33:fori=1to150:next:poke54276,32
  48. 86 ift=1thenj=a*40+55750:fori=.to11:pokej+i,10:next:fori=1to1000:next
  49. 88 return
  50. 90 poke53269,.:print"[147]"tab(15)"[199]ame [207]ver!":gosub78:poke198,.
  51. 92 printtab(14)"[158][208]layer 1:"p(.):printtab(14)"[158][208]layer 2:"p(1)"[153]"
  52. 94 ifp(.)=p(1)thenprinttab(17)"[193] tie!":goto100
  53. 96 i=1:ifp(1)>p(.)theni=2
  54. 98 printtab(8)"[208]layer"i"is victorious!"
  55. 100 printtab(12)"[159][208]ress [209] to [209]uit":printtab(7)"[193]ny [207]ther [203]ey to [195]ontinue"
  56. 102 geta$:ifa$=""then102
  57. 104 ifa$<>"q"then7
  58. 106 poke56576,199:poke648,4:poke53272,21:print"[154][147]";:goto40000
  59. 110 r=.:q=.:n=.:p(.)=.:p(1)=.:pokev(1),40:fori=2to5:pokev(i),.:next
  60. 112 fori=.to2:forj=1to18:k(j)=.:next:forj=1to18
  61. 114 c=int(rnd(1)*18+1):ifk(c)>.then114
  62. 116 k(c)=1:n(i,j)=c:nextj,i:fori=1to18:forj=1to20:k(j)=.:next:forj=.to2
  63. 118 c=int(rnd(1)*20+1):ifk(c)>.then118
  64. 120 k(c)=1:r(j,i)=c:next:next:return
  65. 122 a=.:c=.:j=.:n=.:p=.:q=.:r=.:dimc(5),k(20),n(2,18),p(1),r(2,18),s(2),v(5)
  66. 124 i=rnd(-ti):a$="":q$="":dimq$(5,60),a$(5,60)
  67. 126 s(.)=39680:s(1)=s(.)+3:s(2)=s(.)+6:v(.)=s(.)+9:fori=1to5:v(i)=v(.)+i+17
  68. 128 next:fori=.to5:readc(i):next:data7,10,2,4,14,5
  69. 130 open15,dv,15:fori=1to5
  70. 132 a$="0:qb.d"+right$(str$(i),1)+",s,r":open2,dv,2,(a$):input#15,en,em$,et,es
  71. 134 ifen>.thenprint"[147]"en,em$,et,es:close2:close15:stop
  72. 136 forj=1to60:input#2,q$(i,j):input#2,a$(i,j):next:close2:next:close15:return
  73. 162 poke631,13:poke632,13:poke198,2:new
  74. 10000 d=peek(186):n$="b.quizbang":open15,d,15,"s0:"+n$:close15:saven$,d:end
  75. 40000 fori=8to29:poke820+i,i:next:ifdv>8anddv<30thenpoke828,dv:poke820+dv,8
  76. 40010 a$="presenter":gosub40030:a$="hello connect":gosub40030
  77. 40020 print"[147]":poke53272,23:poke186,8:poke2048,0:poke44,8:poke43,1:end
  78. 40030 forj=8to29:i=peek(820+j):ifi=14thennext
  79. 40040 close2:open2,i,2:close2:ifstthen40060
  80. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  81. 40060 next:return
  82. 40070 a$="hello connect":q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  83. 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
  84. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  85. 60000 print"[147]":z$=" [152]                                      ":poke214,10:print
  86. 60010 print" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":fori=0to11:printz$:next
  87. 60020 print" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
  88. 60030 z$(0)="[209] [213] [201] [218]   [194] [193] [206] [199]
  89. 60040 z$(2)[178]"by mid$on (NULL)attson
  90. 60050 z$(4)="(c) 1997 by [202] & [198] [208]ublishing, [201]nc."
  91. 60060 z$(6)="[212]his program is not shareware
  92. 60070 z$(7)[178]"or in the public domain."
  93. 60080 z$(9)[178]"1-800-594-3370 or 1-318-221-8718
  94. 60090 poke214,12:print:fori=0to9:printtab(20-(len(z$(i))/2))""z$(i):next:return
  95.