home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 32 / 032.d81 / b3 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  6.1 KB  |  255 lines
  1. 0 poke53280,.:poke53281,.:print"[147]"
  2. 1 dimvt$(24),ht$(40):vt$(1)="":ht$(1)=""
  3. 3 bk$="[164]"
  4. 4 fori=2to24:vt$(i)=vt$(i-1)+"":next
  5. 5 fori=2to40:ht$(i)=ht$(i-1)+"":next
  6. 6 dimd(75),hi(75)
  7. 7 dimbl$(5),bn$(10)
  8. 8 gosub5000
  9. 10 remtext
  10. 15 printchr$(147);
  11. 35 s=54272
  12. 40 lx=0:ct=0:lf=0
  13. 45 printchr$(147);
  14. 70 d$=chr$(4)
  15. 100 gosub4000
  16. 370 printvt$(10);
  17. 375 printht$(4);
  18. 400 print"  [215]ould you like a short intro? ";
  19. 430 poke198,0:wait198,1:getit$
  20. 435 ifit$<>"[147]"thenprintit$
  21. 440 ifit$="y"thengosub4000:gosub2920:goto490
  22. 460 ifit$<>"n"then370
  23. 490 gosub4000
  24. 495 printvt$(10);
  25. 500 printht$(10);
  26. 505 rem
  27. 520 print": [211]tirring the pot :"
  28. 550 printchr$(146);
  29. 580 rem
  30. 610 remrandomize
  31. 700 num=rnd(peek(160))
  32. 710 fori=1to75:d(i)=i:next
  33. 750 k=0
  34. 760 fori=1to75
  35. 790 j=int(rnd(.)*75)+1
  36. 795 t=d(i)
  37. 800 d(i)=d(j):d(j)=t
  38. 825 next
  39. 850 printvt$(10);
  40. 855 printht$(10);
  41. 860 printchr$(18);
  42. 880 print":    [208]ot stirred   :"
  43. 910 printchr$(146);
  44. 940 printvt$(16);
  45. 970 print"[155][206]umber of seconds delay [6]:";bk$;
  46. 971 mo=2:nc=2:gosub60500:ifa$=""thena$="6"
  47. 972 ns$=a$
  48. 973 if(len(ns$)>2)or(len(ns$)<1)then940
  49. 974 ifasc(ns$)>57orasc(ns$)<48then940
  50. 975 ns=val(ns$)
  51. 1000 ifns<0thengoto940
  52. 1020 ifns>59thengoto940
  53. 1030 remns=ns*55
  54. 1040 printvt$(20)"[215]ould you like a tone between calls?";
  55. 1050 gettb$:iftb$<>"y"andtb$<>"n"then1050
  56. 1060 printchr$(147);
  57. 1090 forn=1to75
  58. 1120 ifd(n)>60thenca$="[207]"+str$(d(n)):goto1270
  59. 1150 ifd(n)>45thenca$="[199]"+str$(d(n)):goto1270
  60. 1180 ifd(n)>30thenca$="[206]"+str$(d(n)):goto1270
  61. 1210 ifd(n)>15thenca$="[201]"+str$(d(n)):goto1270
  62. 1240 ifd(n)>0thenca$="[194]"+chr$(abs((d(n)<10))*32)+str$(d(n))
  63. 1270 rem
  64. 1300 printvt$(1);
  65. 1305 printht$(5);
  66. 1310 rem
  67. 1330 print"[157][149][193]nd the next number is ... ";
  68. 1360 printchr$(18);
  69. 1365 print" ";ca$;" "
  70. 1370 printchr$(146);
  71. 1390 gosub4500:gosub5500:gosub1660
  72. 1420 printvt$(21);
  73. 1425 remcall-868
  74. 1450 gosub2860
  75. 1480 ti$="000000":getke$:ifke$="[133]"then1570
  76. 1485 poke198,0
  77. 1490 tq=val(ti$):printvt$(13)ht$(29)"[129][212]imer: [149]";:ifns-tq<10thenprint" ";
  78. 1495 printns-tq
  79. 1497 getke$:ifke$<>""then1570
  80. 1500 iftq<nsthen1490
  81. 1570 ifke$="[133]"thenke$="":gosub2680
  82. 1630 nextn
  83. 1660 if lx=1then1750
  84. 1670 lx=1
  85. 1690 printvt$(3);
  86. 1700 ifke$="[133]"thengosub2680
  87. 1720 print"       [194]   [201]   [206]   [199]   [207]"
  88. 1725 print:fori=1to15:print"       .   .   .   .   .":next:print"[129]";
  89. 1750 ifn>75then2350
  90. 1760 ifke$="[133]"thengosub2680
  91. 1780 nu=d(n)
  92. 1840 v=int((nu-1)/15)
  93. 1870 vt=v*4+8
  94. 1900 h=15*v
  95. 1930 h=nu-h
  96. 1960 printvt$(h+4);
  97. 1965 printht$(vt);
  98. 2080 print"[157][129]"nu
  99. 2170 ct=ct+1
  100. 2175 lf=75-ct
  101. 2200 printvt$(11);
  102. 2205 printht$(29);
  103. 2230 print"[129][195]alled:[149]";
  104. 2235 ifct<10thenprint" ";
  105. 2240 printct
  106. 2260 printvt$(12);
  107. 2265 printht$(29);
  108. 2290 print"[129][204]eft:  [149]";
  109. 2295 iflf<10thenprint" ";
  110. 2300 printlf
  111. 2320 return
  112. 2350 remallnumberscalled
  113. 2380 printvt$(21);
  114. 2385 printht$(1);
  115. 2410 print"[149]    [193]ll numbers have been called!"
  116. 2440 print:print"    [215]ould you like to play again? ";
  117. 2470 poke198,0:wait198,1:getan$
  118. 2475 printan$
  119. 2500 ifan$="y"thengoto40
  120. 2530 ifan$<>"n"then2380
  121. 2560 printchr$(147);
  122. 2565 printvt$(10);
  123. 2590 printht$(11);
  124. 2620 print"[195]ome again soon !!!"
  125. 2650 rempr#0
  126. 2655 remin#0
  127. 2660 remcall1002
  128. 2665 pokes+24,0
  129. 2670 clr:load"bingo",8
  130. 2680 rempause
  131. 2710 printvt$(21);
  132. 2740 print"[151]'[209]' [209]uits; [193]ny other key resumes -> "
  133. 2750 print"[151]                                    "
  134. 2770 poke198,0:wait198,1:getit$
  135. 2800 ifit$="q"then2440
  136. 2830 printvt$(21);
  137. 2835 remcall-868
  138. 2860 print"[149][208]ress [198]1 to pause; any other key      "
  139. 2870 print"[149]to call the next number."
  140. 2890 return
  141. 2920 reminstructions
  142. 2950 printvt$(10);
  143. 2980 print"[129]'[194]ingo caller[129]' is an automated version"
  144. 3010 print"of a bingo hopper and guy or gal"
  145. 3040 print"calling out those magical numbers to a"
  146. 3070 print"crowd of anxious participants.  [208]rovis-"
  147. 3100 print"ions are made at the beginning of each"
  148. 3130 print"game for a player-selected pause of"
  149. 3160 print"approximately how many seconds to wait"
  150. 3190 print"between calls (default is about six"
  151. 3220 print"seconds).  [208]lay may be paused (then"
  152. 3250 print"restarted) during the fill-in process"
  153. 3280 print"of the scorekeeper's board by pressing"
  154. 3290 print"the <[198]1> key."
  155. 3310 printvt$(23);
  156. 3340 print"([208]ress any key) -> ";
  157. 3345 poke198,0:wait198,1:getit$
  158. 3350 printit$
  159. 3370 gosub4000:printvt$(10);
  160. 3375 remcall-958
  161. 3400 print"[193]dvantages:  [129][212]he program frees at least"
  162. 3430 print"             one other person to play"
  163. 3460 print"             along, and provides a "
  164. 3490 print"             scapegoat (the [195]-64) for"
  165. 3520 print"             [200]aving a '[194][193][196]' caller!"
  166. 3550 print
  167. 3555 print
  168. 3580 printht$(8);
  169. 3610 print"[204]et's play [194]-[201]-[129][206]-[156][199]-[149][207] [129]!!!"
  170. 3640 printvt$(23);
  171. 3670 print"([208]ress any key) -> ";
  172. 3675 poke198,0:wait198,1:getit$
  173. 3680 printit$
  174. 3700 remcall928
  175. 3705 remcall-958
  176. 3710 return
  177. 4000 print"[147]"vt$(3);
  178. 4010 printht$(12);
  179. 4020 print"                "
  180. 4030 printht$(12);
  181. 4040 print": [194]ingo [195]aller :"
  182. 4050 printht$(12);
  183. 4060 print"                "
  184. 4070 print
  185. 4080 printht$(6);
  186. 4090 print"(c) 1985 [194]arney [202]. [198]ontenot"
  187. 4099 return
  188. 4500 bl$=left$(ca$,1)
  189. 4510 bn$=right$(ca$,2)
  190. 4520 fori=1to5:ifbl$=mid$("[194][201][206][199][207]",i,1)thenbl=i:goto4540
  191. 4530 next
  192. 4540 bn$=right$(str$(val(bn$)),len(str$(val(bn$)))-1)
  193. 4550 nb=len(bn$)
  194. 4555 printvt$(3)ht$(31)el$
  195. 4556 printvt$(15)ht$(30)en$
  196. 4560 printvt$(3)ht$(31);"";bl$(bl)
  197. 4565 print"[154]";
  198. 4570 ifnb=1thenprintvt$(15)ht$(32)bn$(val(bn$)):return
  199. 4580 fori=1to2:printvt$(15)ht$(26+i*4)bn$(val(mid$(bn$,i,1)))
  200. 4590 next
  201. 4599 print"[129]";:return
  202. 5000 bl$(1)="    [146][187][157][157][157][157][157] [157] [157]    [146][161][157][157][157][157][157] [157] [157]    [146][190][145][157][157][172]"
  203. 5010 bl$(1)=bl$(1)+" [145][157][157][146][188] [145][145][157][157][146][172] [145][157][157][146][188] [146]"
  204. 5020 bl$(2)="   [157][157] [157] [157] [157] [157] [157][157]   [146]"
  205. 5030 bl$(3)="[161] [157][157][157][157][157] [146][187] [157][157][157][157][157]  [146][187] [157][157][157][157][157] [146][188] [146][187] [157][157][157][157][157] [146][188]  "
  206. 5040 bl$(3)=bl$(3)+"[157][157][157][157][157] [146][188] [157][157][157][157][157] [161]"
  207. 5050 bl$(4)="[172]   [146][187][157][157][157][157][157] [146][190][188] [157][157][157][157][157] [157] [146][162][162][157][157][157][157][157]  [157][157][157][157][157]"
  208. 5060 bl$(4)=bl$(4)+" [146][187][172] [157][157][157][157][157][146][188]   [146][190]"
  209. 5070 bl$(5)="[172]   [146][187][157][157][157][157][157] [146][190][188] [157][157][157][157][157]  [157][157][157][157][157]  [157][157][157][157][157]  [157][157][157][157][157]"
  210. 5080 bl$(5)=bl$(5)+" [146][187][172] [157][157][157][157][157][146][188]   [146][190]"
  211. 5090 bn$(1)=" [157][157]  [157] [157] [157][157]   "
  212. 5100 bn$(2)="   [157] [157][157][157]   [157][157][157] [157]   "
  213. 5110 bn$(3)="   [157] [157][157]  [157] [157][157][157]   "
  214. 5120 bn$(4)="  [157][157][157]  [157][157][157]   [157] [157] "
  215. 5130 bn$(5)="   [157][157][157] [157]   [157] [157][157][157]   "
  216. 5140 bn$(6)="   [157][157][157] [157]   [157][157][157]  [157][157][157]   "
  217. 5150 bn$(7)="   [157] [157] [157] [157] "
  218. 5160 bn$(8)="   [157][157][157]  [157][157][157]   [157][157][157]  [157][157][157]   "
  219. 5170 bn$(9)="   [157][157][157]  [157][157][157]   [157] [157][157][157]   "
  220. 5180 bn$(0)="   [157][157][157]  [157][157][157]  [157][157][157]  [157][157][157]   "
  221. 5185 el$="     [157][157][157][157][157]     [157][157][157][157][157]     [157][157][157][157][157]     [157][157][157][157][157]     [157][157][157][157][157]     [157][157][157][157][157]"
  222. 5186 el$=el$+"     "
  223. 5190 en$="       [157][157][157][157][157][157][157]       [157][157][157][157][157][157][157]       [157][157][157][157][157][157][157]       [157][157][157][157][157][157][157]       "
  224. 5199 return
  225. 5500 iftb$="n"thenreturn
  226. 5510 poke s+24,12:pokes+3,8
  227. 5520 poke s+5,11
  228. 5530 poke s+6,8
  229. 5540 pokes+1,30
  230. 5550 poke s+4,65
  231. 5560 poke s+4,64
  232. 5570 return
  233. 60500 forz8=1tonc
  234. 60501 geta$:ifa$=""then60501
  235. 60503 ifa$="[147]"ora$=""ora$="[148]"ora$="[145]"ora$="[157]"ora$=""ora$=""then60501
  236. 60504 ifa$=chr$(13)ora$=chr$(141)thenprint"[157] ":goto60544
  237. 60506 ifa$=" "ora$="[160]"then60540
  238. 60508 ifa$=chr$(20)andz8=1then60501
  239. 60510 ifa$=chr$(20)thenz8=z8-1:print"[157][157]  [157][157]";bk$;:goto60501
  240. 60520 ifa$>"/"anda$<":"and(moand2)then60540:numbers
  241. 60522 ifa$>" "anda$<"*"and(moand4)then60540:shift numbers
  242. 60524 ifa$>"[192]"anda$<"[219]"and(moand8)then60540:uppercase characters
  243. 60526 ifa$>"@"anda$<"["and(moand16)then60540:lowercase characters
  244. 60528 ifa$>chr$(160)anda$<chr$(192)and(moand32)then60540:commodore characters
  245. 60530 ifa$>=chr$(0)anda$<""and(moand64)then60540:ctrl characters
  246. 60532 ifa$>")"anda$<"0"and(moand128)then60540:misc characters group 1
  247. 60534 ifa$>"9"anda$<"a"and(moand128)then60540:misc characters group 2
  248. 60536 ifa$>"z"anda$<"[129]"and(moand128)then60540:misc characters group 3
  249. 60538 goto60501
  250. 60540 print"[157]";a$;:poke212,.:printbk$;
  251. 60542 g$(z8)=a$:next
  252. 60544 print"[157][146] "
  253. 60546 a$="":fora=1toz8-1:a$=a$+g$(a):next:ifz8=1thena$=""
  254. 60548 return
  255.