home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 19 / 019.d81 / letter-getter (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  134 lines
  1. 10 diml$(100):ad=0:ac=0:bc=0:ac=48:bc=ac:wf=1:gosub 185
  2. 15 poke53281,15:poke53280,0
  3. 20 printchr$(142)"[144][147]type name of player 1 (joy/port 2)":inputp1$
  4. 25 print"type name of player 2 (joy/port 1)":inputp2$
  5. 30 l%=(10-len(p1$))/2:ll%=(10-len(p2$))/2
  6. 35 mn=4:input"minimum word length";mn
  7. 40 print"[147]"spc(l%)p1$,,,""spc(ll%)p2$
  8. 45 ifad>1thenfort=0to39:poke1024+t,peek(50000+t):poke55296+t,0:next
  9. 50 sc=1024:c=55296:r=int(rnd(0)*100)+1
  10. 55 fort=1to100:reada$:l$(t)=a$:next
  11. 60 print"[154]":fort=1to10:print"         ";:fortt=1to9:printl$(r)" ";
  12. 65 r=int(rnd(0)*100)+1:next
  13. 70 printl$(r):print:next
  14. 75 fort=1to1000:next
  15. 80 data a,a,a,a,a,a,a,a,a,b,b,c,c,d,d,d,d,e,e,e,e,e,e,e,e,e,e,e,e,f,f
  16. 85 data g,g,h,h,i,i,i,i,i,i,i,i,i,j,k,k,l,l,l,l,m,m
  17. 87 data n,n,n,n,n,n,o,o,o,o,o,o,o,o,p,p,q,r,r,r,r,r,r
  18. 90 data s,s,s,s,t,t,t,t,t,t,t,t,u,u,u,u,v,v,w,w,x,y,y,z
  19. 95 poke53281,14:print"[144]"
  20. 100 print"";:print,"[155][157][175][175][175][175][175]  t i m e  [146][175][175][175][175][175]":print,"[157][194]",,"[157][194]"
  21. 105 fort=1to10:print,"[157][194]",,"[157][194]":print,"[157][194][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][194]":next
  22. 110 print,"[145][157][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  23. 115 print"bonus 2 = f h k y   [144]   j q x z = bonus 5[146][155]";
  24. 120 print,,"[145][145][145][145][145][145][145][145][145][145][145][145][145][157][157]   [157][157][157]   [157][157][157]   [146]"
  25. 125 forsp=12288to12350:reads:pokesp,s:next
  26. 130 forsp=12352to12369:pokesp,255:next
  27. 135 forsp=12370to12414:pokesp,0:next
  28. 140 v=53248:pokev+21,12:pokev+39, 1:pokev+40, 0:pokev+1,106:pokev+3,106
  29. 145 pokev+4,38:pokev+6,86:pokev+5,58:pokev+7,58:poke2042,193:poke2043,193
  30. 150 pokev+41,14:pokev+42,14
  31. 155 pokev,117:pokev+2,197:poke2040,192:poke2041,192:pokev+27,3:pokev+29,15
  32. 160 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,255,0,7,255,192,15,255,224
  33. 165 data 31,255,240,63,255,248,63,255,248,63,255,248,31,255,240,15,255,224
  34. 170 data 7,255,192,1,255,0,0,0,0,0,0,0,0,0,0,0,0,0
  35. 175 ifad=0thenfort=49152to49597:ready:poket,y:next
  36. 180 pokev+21,15:sys49555:wf=2
  37. 185 s=54272:forl=stos+24:pokel,0:next
  38. 190 pokes+5,15:pokes+1,7:pokes,112:pokes+24,15:pokes+6,250
  39. 195 pokes+4,33:fori=15to0step-5
  40. 200 fort=1to255step5:pokes,t:next
  41. 205 fort=255to1step-32:pokes,t:next
  42. 210 pokes+24,i:nexti:pokes+4,32
  43. 215 pokes+24,15:ifwf=1then15
  44. 220 poke198,0:pokev+21,0
  45. 225 print"":fort=1to19:print,"                   ":next
  46. 230 print"[144]","   follow pointer  "
  47. 235 print      ,"   to check words  "
  48. 240 print:print,"     press  s [146]   "
  49. 245 print      ,"   to remove word: "
  50. 250 print:print,"   any other  key  "
  51. 255 print      ,"      if okay      "
  52. 260 x=8:g=188:d=0:h=80
  53. 265 pokesc+h+x,g:pokec+h+x,.
  54. 270 ifpeek(sc+h+40)=32thenh=h+40:ifh<875then270
  55. 275 geta$:ifa$=""then275
  56. 280 ifa$="s"thenfort=0to7:pokesc+h+t,32:next
  57. 285 ifh>875thenh=72:d=d+2:g=190:x=-1
  58. 290 ifd>2then300
  59. 295 h=h+40:goto265
  60. 300 h=80:sr=0
  61. 305 cc=0:fortt=1to22:g=0:b=0
  62. 310 fort=0to8:pl=peek(sc+h+t)
  63. 315 ifpl>26andg>0thencc=cc+(g-mn)*2+g+b:t=8:goto335
  64. 320 ifpl>26thent=8:goto335
  65. 325 g=g+1:ifpl=10orpl=24orpl=26orpl=17thenb=b+5
  66. 330 ifpl=6orpl=8orpl=11orpl=25thenb=b+2
  67. 335 next
  68. 340 h=h+40:next
  69. 345 ifsr=0thenaa=cc:print"","   [157][157][157]"aa:h=112:sr=sr+1:goto305
  70. 350 bb=cc:print"",,,"[157][157][157]   [157][157][157]"bb
  71. 355 print"            play again?  y/n          "
  72. 360 ifaa>bbthenac=ac+1:poke1040,ac:poke55310,2
  73. 365 ifbb>aathenbc=bc+1:poke1048,bc:poke55322,1
  74. 370 geta$:ifa$="n"thenprint"":load"hello connect",8
  75. 375 ifa$<>"y"then370
  76. 380 fort=0to39:poke50000+t,peek(sc+t):next
  77. 385 print"[147]":restore:ad=2:goto45
  78. 390 data 169,0,133,82,133,83,169,4
  79. 395 data 133,94,133,96,169,80,133,93
  80. 400 data 169,112,133,95,169,117,133,81
  81. 405 data 169,17,133,80,169,255,133,79
  82. 410 data 76,60,192,198,79,165,79,208
  83. 415 data 18,234,169,255,133,79,238,4
  84. 420 data 208,238,6,208,173,4,208,197
  85. 425 data 81,240,97,96,162,2,160,1
  86. 430 data 185,0,220,41,31,201,31,208
  87. 435 data 13,76,133,192,162,0,136,240
  88. 440 data 239,160,1,76,60,192,201,15
  89. 445 data 208,3,32,182,192,201,30,240
  90. 450 data 15,201,29,240,17,201,27,240
  91. 455 data 19,201,23,240,21,76,133,192
  92. 460 data 222,1,208,76,133,192,254,1
  93. 465 data 208,76,133,192,222,0,208,76
  94. 470 data 133,192,254,0,208,32,35,192
  95. 475 data 132,78,160,8,232,208,253,136
  96. 480 data 208,250,164,78,173,4,208,201
  97. 485 data 128,208,179,96,165,80,201,17
  98. 490 data 240,6,141,4,212,76,76,192
  99. 495 data 141,4,212,169,32,133,80,169
  100. 500 data 118,133,81,76,76,192,169,0
  101. 505 data 133,89,133,91,169,4,133,90
  102. 510 data 169,216,133,92,132,78,189,0
  103. 515 data 208,56,233,2,74,74,74,133
  104. 520 data 88,189,1,208,56,233,39,74
  105. 525 data 74,74,133,87,168,24,165,89
  106. 530 data 105,40,133,89,165,90,105,0
  107. 535 data 133,90,24,165,91,105,40,133
  108. 540 data 91,165,92,105,0,133,92,136
  109. 545 data 208,227,164,88,177,91,41,15
  110. 550 data 208,7,224,0,208,14,164,78
  111. 555 data 96,201,1,208,7,224,0,240
  112. 560 data 3,164,78,96,138,201,0,240
  113. 565 data 2,169,1,145,91,177,89,201
  114. 570 data 160,240,81,201,64,240,34,201
  115. 575 data 32,240,14,224,0,208,13,164
  116. 580 data 82,192,8,240,20,145,93,230
  117. 585 data 82,164,78,96,164,83,192,8
  118. 590 data 240,7,145,95,230,83,164,78
  119. 595 data 96,24,181,93,105,40,149,93
  120. 600 data 181,94,105,0,149,94,224,0
  121. 605 data 240,2,162,1,169,0,149,82
  122. 610 data 192,8,240,185,169,0,149,82
  123. 615 data 169,32,145,89,164,78,224,1
  124. 620 data 208,1,232,96,224,2,208,1
  125. 625 data 202,180,82,240,19,214,82,180
  126. 630 data 82,224,0,240,7,169,32,145
  127. 635 data 95,164,78,96,169,32,145,93
  128. 640 data 164,78,96,169,32,133,78,169
  129. 645 data 216,133,79,162,23,160,0,169
  130. 650 data 1,145,78,200,192,16,208,247
  131. 655 data 24,165,78,105,40,133,78,165
  132. 660 data 79,105,0,133,79,160,0,202
  133. 665 data 208,229,76,0,192,0
  134.