home *** CD-ROM | disk | FTP | other *** search
/ Commodore Computer Club 13 / Commodore_Computer_Club_13_19xx_-_es.d64 / pregunton (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  151 lines
  1. 1 rem          (c) 1985
  2. 2 rem   prog. f. moreno-torres camy
  3. 3 rem
  4. 100 clr:print"[147]"
  5. 120 poke53280,6:poke53281,6
  6. 130 restore
  7. 350 print"[147]       cuantos jugadores ? (1-3)[144]";
  8. 400 getg$:ifg$=""then400
  9. 420 nc=asc(g$)-48
  10. 430 if(nc<1)or(nc>3)then400
  11. 440 printnc
  12. 500 fort=0to1000:next
  13. 850 print"[147]           espera un momento"
  14. 900 goto2000
  15. 1000 print"                                    [145]"
  16. 1020 printtab(20-la/2)a$"[145]"
  17. 1030 return
  18. 1900 fort=0to4000:next
  19. 1930 h=1:gosub5700
  20. 1950 goto3300
  21. 2000 rem
  22. 2020 dima$(15,10),b$(15,10),d$(10)
  23. 2050 forpr=1to10
  24. 2080 readd$(pr)
  25. 2100 next
  26. 2120 forpr=1to10
  27. 2140 forre=1to15
  28. 2160 reada$(re,pr)
  29. 2180 b$(re,pr)=right$(a$(re,pr),1)
  30. 2200 next
  31. 2220 next
  32. 2301 c$(1)="primer"
  33. 2302 c$(2)="segundo"
  34. 2303 c$(3)="tercer"
  35. 2350 c2=c2+1:c=c2-int((c2-1)/nc)*nc
  36. 2400 print"[147][144]             ";c$(c);" jugador"
  37. 2450 print"               preparado"
  38. 2460 print"[154]                [164][164][164][164][164][164][164]"
  39. 2470 print"                  key  "
  40. 2490 poke198,0
  41. 2500 getg$:ifg$=""then2500
  42. 2540 goto3000
  43. 2600 print"[147][144]             ";c$(c);" jugador"
  44. 2620 p(c)=p(c)+p
  45. 2630 print"       puntos[158]";p(c),"   ronda[158]";int((c2-1)/nc)+1
  46. 2640 ifc2=3*ncthen2700
  47. 2645 ifnc=1then2690
  48. 2650 print"[154]           siguiente jugador"
  49. 2690 fort=0to3000:next:goto2350
  50. 2700 fort=0to3000:next:goto4000
  51. 2999 end
  52. 3000 print"[147][144]"
  53. 3020 poke53280,15
  54. 3150 pr=int(10*rnd(0))+1
  55. 3160 ifd$(pr)="x"then3150
  56. 3180 a$=d$(pr):d$(pr)="x"
  57. 3200 la=len(a$)
  58. 3220 gosub1000
  59. 3250 fort=0to4000:next
  60. 3260 print"[158]":a$="s      n":la=8:gosub1000
  61. 3280 print"[145][145][145][145][145][145][145][145]"
  62. 3290 tm=0:p=0
  63. 3300 re=int(15*rnd(0)+1)
  64. 3320 ifa$(re,pr)="x"then3300
  65. 3340 la=len(a$(re,pr))-1
  66. 3360 a$=mid$(a$(re,pr),1,la)
  67. 3370 a$(re,pr)="x":q=0
  68. 3380 gosub1000
  69. 3390 poke198,0
  70. 3400 poke1829+tm,81
  71. 3410 tm=tm+1:iftm=29then3900
  72. 3430 getg$
  73. 3450 ifg$="s"then3600
  74. 3460 ifg$="n"then3700
  75. 3470 ifpeek(56320)and16then3472
  76. 3471 goto3600
  77. 3472 ifpeek(56321)and16then3480
  78. 3473 goto3600
  79. 3480 if(peek(56320)and15)<>15then3700
  80. 3481 if(peek(56321)and15)<>15then3700
  81. 3490 q=q+1:ifq=8thenq=0:goto3400
  82. 3500 goto3430
  83. 3600 ifb$(re,pr)="s"then3800
  84. 3680 goto3900
  85. 3700 ifb$(re,pr)="n"then3800
  86. 3780 goto3900
  87. 3800 poke53280,5
  88. 3820 fort=0to500:next
  89. 3885 tm=tm-1:p=p+25:ifp>350then4500
  90. 3890 poke53280,14:goto3300
  91. 3900 poke53280,2
  92. 3910 fort=0to1000:next
  93. 3920 goto2600
  94. 3999 rem
  95. 4000 print"[147][144]              puntuaciones"
  96. 4010 print"              [163][163][163][163][163][163][163][163][163][163][163][163]"
  97. 4030 forc=1tonc
  98. 4040 print"      ";c$(c)" jugador[158]",p(c)
  99. 4060 next
  100. 4100 print"[154]                  [164][164][164][164][164][164][164]"
  101. 4110 print"                    key  "
  102. 4130 getg$:ifg$=""then4130
  103. 4200 print"[147]             otra partida ?"
  104. 4230 getg$:ifg$=""then4230
  105. 4250 ifg$="s"then100
  106. 4270 ifg$="n"thenend
  107. 4499 rem
  108. 4500 poke53280,14
  109. 4520 a$="enhorabuena"
  110. 4530 la=len(a$)
  111. 4550 gosub1000
  112. 4850 fort=0to1000:next
  113. 4900 goto2600
  114. 5500 a$=c$(c)+" concursante"
  115. 5520 la=len(a$)
  116. 5540 gosub1000
  117. 5550 print""
  118. 5690 return
  119. 7000 data microordenadores,musculos,platos de cocina,ciudades europeas,mamiferos
  120. 7010 data compositores,partes de un avion,ciudades olimpicas,razas de perros
  121. 7020 data deportes olimpicos
  122. 7030 data jupiter aces,spectrums,orics,commodores,spectravideos,new brains
  123. 7040 data bbcs,toshibas,apple cs,kaypros
  124. 7050 data cbbn,driven,cad cann,controlern,columbian
  125. 7060 data bicepss,sartorios,deltoidess,trapecios,iliacos,frontals,soleos
  126. 7070 data gluteos,risorios,temporals,piramidals,alevinn,codaln,descoidesn
  127. 7080 data cuadrangularn
  128. 7090 data paellas,cocidos,holla noruegas,foundes,gazpachos,minestrones,calloss
  129. 7100 data pastel de arrozs,fabadas,roastbeefs,spaghetiss,pavo asados
  130. 7110 data besugo al hornos,pollo en su tintan,jarchasn
  131. 7120 data manchesters,pariss,bristols,lyons,leedss,burdeoss,londress,pragas
  132. 7130 data leningrados,nueva yorkn,brisbanen,el cairon,seattlen,kabuln
  133. 7140 data liman
  134. 7150 data delfins,monos,gatos,murcielagos,caballos,hombres,gorilas,ballenas
  135. 7160 data perros,hienas,dinosaurion,pitufon,guanaminon,hombre lobon,gallinan
  136. 7170 data beethovens,brahmss,verdis,sibeliuss,dvoraks,mozarts,purcels
  137. 7180 data fallas,vivaldis,albenizs,shuberts,turinas,valle inclann,molieren
  138. 7190 data orwelln
  139. 7200 data helices,cabinas,fuselajes,flaps,altimetros,horizonte artifials
  140. 7210 data tren de aterrizajes,aleroness,timons,radios,piloton,paracaidasn
  141. 7220 data manual de basicn,azafatan,maleteron
  142. 7230 data pariss,londress,san luiss,mexicos,atenass,estocolmos,los angeless
  143. 7240 data melbournes,munichs,barcelonan,nueva yorkn,benidormn,lisboan
  144. 7250 data lyonn,madridn
  145. 7260 data dobermans,dalmatas,collies,boxers,gran daness,pastor alemans
  146. 7270 data setters,afganos,pointers,bob tails,pequiness,snoopyn,lassien
  147. 7280 data persan,siamesn
  148. 7290 data remos,halterofilias,natacions,hipicas,gimnasias,marchas,maratons
  149. 7300 data futbols,baloncestos,lanzamiento de discos,teniss,wall contactn
  150. 7310 data squashn,golfn,petancan
  151.