home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_121_(06-1985).d64 / concentration.c3 (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  14KB  |  528 lines
  1. 1 GOTO910
  2. 2 REM ** ML STOP KEY DISABLE **
  3. 3 PRINT"x[169]=[141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X`
  4. 4 [153]"xhhh+hNOThhhhhhhPRINT#HRUNHX`111"
  5. 5 [153]"hhhhhhh`1"
  6. 6 [143] ** 4 - POP ML SUBROUTINE **
  7. 10 [143] **GENERAL INPUT ROUTINE **
  8. 35 [143] +++ INPUT SECTION +++
  9. 40 [151]UO,0:UR$[178]"":UI$[178]""
  10. 42 [139]UL[178]0[167]UL[178]80
  11. 45 [153]"  CMDCMD";:[151]UC,0
  12. 50 [161]UI$:[139]UI$[178]""[167]50
  13. 55 [139]UI$[178][199](13)[175][195](UR$)[177][178]1[167][151]UC,1:[153]" CMD";:[137]85
  14. 60 [139]UI$[178][199](20)[167]105
  15. 62 [139] [195](UR$)[178][177]UL[167]50
  16. 65 [141]120:[143] CHECK FOR VALID CHARACTER
  17. 70 UR$[178]UR$[170]UI$
  18. 75 [153]UI$;
  19. 80 [137]50
  20. 85 [143] +++ CHECK FOR HELP REQUEST +++
  21. 90 [139]UR$[178]UX$[167]195:[143] EXIT TO HELP ROUTINE
  22. 95 [139]UF[178]1[167][141]240
  23. 100 UF[178]0:[153]:[142]
  24. 102 [143] ++ CHECK DELETE ++
  25. 105 [139][195](UR$)[179]1[167]50
  26. 110 UR$[178][200](UR$,[195](UR$)[171]1)
  27. 115 [153]"CMD  CMDCMD";:[137]50
  28. 120 [143] ++ CHECK FOR VALID CHARACTERS ++
  29. 125 [139][195](US$)[178]0[167]150
  30. 127 US$[178]US$[170]UX$
  31. 130 [129]US[178]1[164][195](US$)
  32. 135 [139]UI$[178][202](US$,US,1)[167][142]
  33. 140 [130]
  34. 145 UI$[178]"":[142]
  35. 150 [143] ** STANDARD INPUT **
  36. 152 [139][198](UI$)[178]46[167][142]
  37. 155 [139]UI$[178][199](32)[167][142]
  38. 160 [139][198](UI$)[179]48[176][198](UI$)[177]57[167]170
  39. 165 [142]
  40. 170 [139][198](UI$)[179]65[176][198](UI$)[177]90[167]180
  41. 175 [142]
  42. 180 [139][198](UI$)[179]193[176][198](UI$)[177]218[167]UI$[178]"":[142]
  43. 185 [139][194](UT)[178]UU%[167]UI$[178][199]([198](UI$)[171]128):[142]
  44. 187 [142]
  45. 190 UI$[178]"":[142]
  46. 195 UF[178]1:[143] +++ HELP ROUTINE EXIT +++
  47. 197 [141]250
  48. 200 [141]245
  49. 205 [129]UQ[178]UB[164](U2%[172]256[170]U1%[170]U3%[171]2)
  50. 210 UQ%(UQ[171]UB)[178][194](UQ):[130]:[153]"LOAD"
  51. 215 UZ[178]1:UV%[178][194](UT)
  52. 216 [137]300
  53. 217 UZ[178]0:US$[178]UJ$:UG$[178]UK$:UP[178]UJ:UL[178]UK
  54. 218 [139][194](50003)[178]0[167][151]53281,1:[153]"LOAD";:[151]53281,6:[151]53280,14:[137]220
  55. 219 [153]"LOAD";
  56. 220 UT$[178]UL$:[151]UT,UV%:[129]UQ[178]UB[164](U2%[172]256[170]U1%[170]U3%[171]3)
  57. 225 [151]UQ,UQ%(UQ[171]UB):[130]
  58. 230 [151]U1,U1%
  59. 232 [151]U2,U2%
  60. 233 [151]U4,U4%
  61. 234 [151]U3,U3%[171]1
  62. 235 [137]35
  63. 240 UD%[178]((U2%[172]256[170]U1%[170]U3%)[171]UB)[173]40:[153][200](UD$,UD%[170]1):[142]
  64. 245 [153][200](UD$,23);"                       HELP COMING WAIT  ":[142]
  65. 250 U1%[178][194](U1):U2%[178][194](U2):U3%[178][194](U3):U4%[178][194](U4)
  66. 251 UJ$[178]US$:UK$[178]UG$:UL$[178]UT$:UJ[178]UP:UK[178]UL
  67. 255 [142]
  68. 300 [143] ** MENU **
  69. 301 :
  70. 302 [153]"LOAD":[151]UT,UU%:[139][194](50003)[178]0[167][151]53281,9:[151]53280,8
  71. 303 :
  72. 305 [153]"                MENU"
  73. 310 [153]" --------------------------------------"
  74. 315 [153]"       1.   CONCENTRATION"
  75. 320 [153]"       2.   STUDENT INSTRUCTIONS"
  76. 325 [153]"       3.   TEACHER INSTRUCTIONS"
  77. 330 [153]"       4.   MODIFICATION OF PROGRAM"
  78. 335 [153]"       5.   QUIT"
  79. 340 [153]" --------------------------------------"
  80. 345 [153]"       PRESS A NUMBER KEY (1-5) ";
  81. 350 UL[178]1:US$[178]"12345":[141]35:[143] INPUT ROUTINE
  82. 351 [139][195](UR$)[177]1[167]300
  83. 352 US$[178]""
  84. 355 [145][197](UR$)[141]1000,400,500,600,396
  85. 360 [137]300
  86. 395 [143] ** RE-ENABLE STOP KEY AND END **
  87. 396 [139][194](50003)[179][177]1[175][194](50003)[179][177]160[175][194](50003)[179][177]0[167]399
  88. 397 [158]UU[170]71:[139][194](50003)[178]0[167][151]53281,6:[151]53280,14
  89. 398 [153]"CONTLOAD":[128]
  90. 399 [141]875:[142]
  91. 400 [143] ** STUDENT INSTRUCTIONS **
  92. 405 [153]"LOAD":[151]UT,UL%:[139][194](50003)[178]0[167][151]53281,0:[151]53280,0
  93. 410 UT$[178]" LEN(null)(null)LENVAL(null)(null)(null)ATN(null)RIGHT$(null)(null)":UP[178]0:UG$[178]"(null)TUDENT RIGHT$NST":[141]850
  94. 411 [153]"    (null)HE LEN(null)(null)LENVAL(null)(null)(null)ATN(null)RIGHT$(null)(null)CLOSEBOARD WILL BE"
  95. 412 [153]" DISPLAYED WITH 20 SECTIONS.  PEEKEHIND"
  96. 413 [153]" EACH PANEL IS A WORD. (null)HEN YOU
  97. 414 PRINT" CHOOSE A NUMBER (1-20) A WORD IS
  98. 415 [153]" REVEALED.  (null)N YOUR SECOND CHOICE, YOU
  99. 416 PRINT" TRY TO MAKE A MATCH BY FINDING THE
  100. 417 [153]" SAME WORD SOMEWHERE ELSE.  (null)HERE
  101. 418 PRINT" ARE 10 MATCHES TO BE MADE.
  102. 419 [141]835:[141]850
  103. 420 [153]"     (null)HEN YOU HAVE COMPLETED ALL THE
  104. 421 PRINT" MATCHES THE WHOLE BOARD WILL BE"
  105. 423 PRINT" DISPLAYED AND THE GAME WILL BE OVER.
  106. 424 [153]"(null)OU MAY HAVE ONE OR TWO PLAYERS.
  107. 425 PRINT" [212]HE AIM FOR ONE IS TO OPEN THE BOARD
  108. 426 [153]" WITH AS FEW TRIES AS POSSIBLE.  (null)HE
  109. 427 PRINT" AIM FOR TWO PLAYERS IS TO MAKE MORE
  110. 428 [153]" MATCHES THAN YOUR OPPONENT.
  111. 429 GOSUB835
  112. 490 IFUZ=1THENSYSUP%:GOTO217
  113. 498 UG$=""
  114. 499 RETURN
  115. 500 REM ** TEACHER INSTRUCTIONS **
  116. 501 PRINT"[147]":POKEUT,UL%:IFPEEK(50003)=0THENPOKE53281,2:POKE53280,10
  117. 502 UT$=" [195][207][206][195][197][206][212][210][193][212][201][207][206]":UP=0:UG$="[212]EACHER [201]NST":GOSUB850
  118. 503 PRINT"      [212]O THE BEST OF OUR KNOWLEDGE,"
  119. 504 PRINT"   THIS PROGRAM IS IN THE PUBLIC"
  120. 505 PRINT"   DOMAIN.  [201]F THIS IS NOT THE CASE"
  121. 506 PRINT"   PLEASE CONTACT:"
  122. 507 PRINT"      [195]OMMODORE [194]USINESS [205]ACHINES"
  123. 508 PRINT"          3370 [208]HARMACY [193]VE.
  124. 509 [153]"          ATNGINCOURT, (null)NTARIO"
  125. 510 [153]"          LENANADA   (null)1(null) 2(null)4"
  126. 511 [153]"          (416) 499-4292"
  127. 512 [141] 835:[141] 850:
  128. 513 [153]"     (null)ROGRAM (null)AME: LENONCENTRATION
  129. 514 PRINT"     [215]RITTEN [194]Y  : [198]REDD [195]HRISTIE
  130. 515 [153]"     (null)PGRADED PEEKY :          
  131. 516 PRINT"     [212]HIS PROGRAM WILL RUN ON ANY
  132. 519 [153]"         (null)VAL(null) 64 LEN(null)(null)(null)(null)(null)VAL(null)
  133. 520 PRINT"         [195][207][205][205][207][196][207][210][197] 64 [195][207][205][208][213][212][197][210]
  134. 521 [141]835:[141]850
  135. 530 [153]" (null)HIS GAME IS DESIGNED FOR ANYONE WHO"
  136. 532 [153]" CAN READ.  RIGHT$T IS AN EXERCISE IN PAYING"
  137. 534 [153]" ATTENTION TO DETAIL AND CONCENTRATING"
  138. 536 [153]" ON WHAT YOU SEE AND CAN REMEMBER."
  139. 538 [153]" (null)LAYERS CAN REVEAL SECTIONS OF THE"
  140. 540 [153]" BOARD FOR SHORT PERIODS OF TIME, BUT"
  141. 542 [153]" THEY HAVE TO REMEMBER WHAT THEY SAW"
  142. 544 [153]" AND WHERE THEY SAW IT."
  143. 580 [141]835
  144. 590 [139]UZ[178]1[167][158]UP%:[137]217
  145. 598 UG$[178]""
  146. 599 [142]
  147. 600 [143] ** PROGRAM MODIFICATION INST **
  148. 601 [153]"LOAD":[151]UT,UL%
  149. 605 UT$[178]" LEN(null)(null)LENVAL(null)(null)(null)ATN(null)RIGHT$(null)(null)":UP[178]0:UG$[178]"(null)ROGRAM (null)OD":[141]850
  150. 663 [153]" (null)INE 2200 HOLDS DATA.
  151. 664 PRINT" [212]HE GAME CAN BE EASILY CHANGED BY"
  152. 665 PRINT" LISTING AND TYPING IN 10 DIFFERENT"
  153. 666 PRINT" WORDS WHICH ARE SUITABLE FOR THE"
  154. 667 PRINT" PEOPLE PLAYING THE GAME."
  155. 670 GOSUB835
  156. 690 IFUZ=1THENSYSUP%:GOTO217
  157. 698 UG$=""
  158. 699 RETURN
  159. 700 REM ** TO USE 8032 LOAD CBM4032 **
  160. 710 PRINT"[147]BEFORE RUNNING THIS PROGRAM ON AN 8032  
  161. 720 [153]"      LOAD THE 'CBM 4032' PROGRAM"
  162. 730 [158]UU[170]71
  163. 740 [128]
  164. 797 [143] ** TO USE 8032 LOAD CBM4032 **
  165. 798 [153]"LOADBEFORE RUNNING THIS PROGRAM ON AN 8032  LOAD CBM 4032 PROGRAM"
  166. 799 [158]1093:[128]
  167. 800 [143] ** T I T L E   P A G E **
  168. 802 [153]"LOAD";:[151]UT,UU%:[139][194](50003)[178]0[167][151]53280,14:[151]53281,6
  169. 804 [129]I[178]1[164]38:[153]"SPC(WAIT";:[130]
  170. 806 [129]I[178]1[164]22:[153]"CMDSPC(WAIT";:[130]
  171. 808 [129]I[178]1[164]37:[153]"CMDCMDSPC(WAIT";:[130]
  172. 810 [129]I[178]1[164]22:[153]"ONCMDSPC(WAIT";:[130]
  173. 812 [153]"STEP  WAIT
  174. 814 PRINT" [146]   [146][169]
  175. 816 [153]" WAIT  TAB((null)
  176. 818 PRINT"[223]  [146]
  177. 820 [153]"C O M M O D O R E
  178. 822 PRINT"EDUCATIONAL
  179. 824 [153]"SOFTWARE
  180. 826 REM ** COMMODORE LOGO **
  181. 827 PRINTLEFT$(UD$,24);"PRESS SPACE BAR OR WAIT[146]":I=0
  182. 828 GETA$:IFA$<>" "THENI=I+1:IFI<250THEN828
  183. 830 T1$="":T2$="":T3$="":T4$="":I=0
  184. 832 GOTO300
  185. 835 REM ** SPACE BAR PRESS **
  186. 840 POKEUO,0:PRINTLEFT$(UD$,24);"PRESS SPACE BAR TO CONTINUE[146]"
  187. 844 GETUI$:IFUI$<>" "THEN844
  188. 846 RETURN
  189. 850 REM ** PAGE DESIGN ROUTINE **
  190. 852 UP=UP+1
  191. 855 PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)
  192. 860 PRINT" --------------------------------------"
  193. 864 IFUH<>0THEN870
  194. 865 PRINTLEFT$(UD$,24);LEFT$(UP$,7);"HELP - PRESS   H <RETURN>"
  195. 870 POKEUO,0:PRINT"":RETURN
  196. 875 REM ** PLEASE WAIT REMARK **
  197. 880 PRINTLEFT$(UD$,24);"           ONE MOMENT PLEASE...     "
  198. 885 RETURN
  199. 900 REM ** SET UP VARIABLES **
  200. 901 UX$="H":DIMUQ%(1000):UB=32768:U1=196:U2=197:U3=198:U4=216:UC=167:UU=1024
  201. 902 UT=59468:UU%=12:UL%=14:UP%=1146:UM=32768:UO=158:POKE 50003,0
  202. 903 IFPEEK(50003)=0THENUB=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UU=2048
  203. 904 IFPEEK(50003)=0THENUT=53272:UU%=21:UL%=23:UP%=2139:UM=1024:UO=198
  204. 905 UD$=""
  205. 906 UP$="                                       "
  206. 907 UT$=" [195][207][206][195][197][206][212][210][193][212][201][207][206]":REM PROGRAM TITLE
  207. 908 DIMA$(20),B$(20):RETURN
  208. 910 REM ** SET VARIABLES **
  209. 915 GOSUB900
  210. 920 REM ** CHECK FOR 8032 **
  211. 925 PRINT"[147]":PRINT"[160]":REM SHIFTED SPACE
  212. 930 IFPEEK(UB+40)<>96THENGOSUB700
  213. 931 REM ** MEMORY CHECK **
  214. 932 IF FRE(0)>2000THEN937
  215. 933 PRINT"[147]THIS MACHINE DOES NOT HAVE ENOUGH"
  216. 934 PRINT"MEMORY TO RUN THIS PROGRAM !"
  217. 935 SYSUU+71
  218. 936 END
  219. 937 PRINT"[147]":IFPEEK(50003)=0THEN962
  220. 940 REM ** BASIC 2.0  OR  4.0  OR  C-64 SETUP **
  221. 941 POKE1075,133:POKE1076,144:POKE1077,234:POKE1079,4:POKE1080,133:POKE1081,145
  222. 942 POKE1091,155:POKE1098,133:POKE1099,144:POKE1100,234:POKE1103,133
  223. 943 POKE1104,145:POKE1105,234:POKE1082,234
  224. 945 IFPEEK(50003)<>160THEN955
  225. 950 POKE1093,88:POKE1094,228:POKE1097,85:POKE1102,228:GOTO965
  226. 955 IFPEEK(50003)<>1THEN990
  227. 960 POKE1093,49:POKE1094,230:POKE1097,46:POKE1102,230:GOTO965
  228. 962 POKE2099,141:POKE2100,20:POKE2101,3:POKE2103,8:POKE2104,141:POKE2105,21
  229. 963 POKE2106,3:POKE2115,145:POKE2117,52:POKE2118,234:POKE2121,49:POKE2122,141
  230. 964 POKE2123,20:POKE2124,3:POKE2126,234:POKE2127,141:POKE2128,21:POKE2129,3
  231. 965 SYSUU+48:REM DISABLE STOP KEY
  232. 970 GOSUB800:REM TITLE
  233. 980 GOTO300:REM MENU
  234. 990 PRINT"[147]THE PGM WILL NOT WORK ON THIS MACHINE!":END
  235. 1000 IFUZ=1THENSYSUP%:SYSUP%:UZ=0:REM ** PROGRAM STARTS HERE **
  236. 1001 PRINT"[147]";:RESTORE:IFPEEK(50003)=0THENPOKE53281,6:POKE53280,6
  237. 1630 UP=0:M=0:NN=O:UT$=" CONCENTRATION"
  238. 1650 RR$=""
  239. 1660 DD$=""
  240. 1670 ST$=""+LEFT$(DD$,20)+LEFT$(RR$,4)
  241. 1790 POKEUT,UU%
  242. 1810 GOSUB850:PRINT" HOW MANY PLAYERS ARE THERE ? ";
  243. 1815 UL=1:US$="12":GOSUB35:Z$=UR$
  244. 1820 IFZ$="2"THEN 1920
  245. 1900 PRINT:PRINT:PRINT"WHAT IS YOUR NAME ? ";
  246. 1910 UL=15:US$="":GOSUB35
  247. 1915 NA$=UR$:GOTO1960
  248. 1920 PRINT"WHO IS PLAYER #1 ? ";
  249. 1930 UL=15:US$="":GOSUB35
  250. 1935 NM$=UR$
  251. 1940 PRINT:PRINT:PRINT"WHO IS PLAYER #2 ? ";
  252. 1950 UL=15:US$="":GOSUB35
  253. 1955 NE$=UR$
  254. 1960 PRINT"GREAT! LET'S PLAY CONCENTRATION![146]"
  255. 1970 GOSUB835
  256. 1980 GOSUB850:REMPRINT"[145][145][145]"
  257. 1990 A$="[176][192][192][192][192][192][178][192][192][192][192][192][178][192][192][192][192][192][178][192][192][192][192][192][178][192][192][192][192][192][174]"
  258. 2000 B$="[221]     [146][221]     [146][221]     [146][221]     [146][221]     [146][221]"
  259. 2010 BP$="[221]  1  [146][221]  2  [146][221]  3  [146][221]  4  [146][221]  5  [146][221]"
  260. 2020 BQ$="[221]  6  [146][221]  7  [146][221]  8  [146][221]  9  [146][221] 10  [146][221]"
  261. 2030 BR$="[221] 11  [146][221] 12  [146][221] 13  [146][221] 14  [146][221] 15  [146][221]"
  262. 2040 BS$="[221] 16  [146][221] 17  [146][221] 18  [146][221] 19  [146][221] 20  [146][221]"
  263. 2050 C$="[171][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][179]"
  264. 2060 D$="[173][192][192][192][192][192][177][192][192][192][192][192][177][192][192][192][192][192][177][192][192][192][192][192][177][192][192][192][192][192][189]"
  265. 2070 PRINTA$:PRINTB$:PRINTBP$:PRINTB$:PRINTC$:PRINTB$:PRINTBQ$:PRINTB$:PRINTC$
  266. 2080 PRINTB$:PRINTBR$:PRINTB$:PRINTC$
  267. 2090 PRINTB$:PRINTBS$:PRINTB$:PRINTD$
  268. 2100 REM SET DISPLAYS FOR GAME
  269. 2110 GOSUB875
  270. 2111 FORX=1TO10:READA$(X):NEXT
  271. 2120 RESTORE
  272. 2130 FORX=11TO20:READA$(X):NEXT
  273. 2140 FORZ=1TO20
  274. 2150 K$=A$(Z)
  275. 2160 L=INT(20*RND(TI)+1)
  276. 2170 A$(Z)=A$(L)
  277. 2180 A$(L)=K$
  278. 2190 NEXTZ
  279. 2200 DATA SAW,WAS,NIP,PIN,TIN,THIN,LAP,LIP,PAN,PAT
  280. 2210 RESTORE
  281. 2220 REM ONE OR TWO PLAYERS
  282. 2230 REM ONE PLAYER  (4020)
  283. 2240 REM TWO PLAYERS  (5000)
  284. 2250 PRINTLEFT$(UD$,24);"                                       ";
  285. 2255 IF NA$=""THEN2820
  286. 2260 FORN=1TO800:NEXT
  287. 2270 PRINT""+LEFT$(DD$,20)+LEFT$(RR$,4);"FIRST CHOICE     (1-20): ";
  288. 2280 UL=2:US$="0123456789":GOSUB35
  289. 2285 A=VAL(UR$)
  290. 2290 IFA<1OR A>20 THENPRINT "[145]                                [145][145][145]":GOTO2270
  291. 2300 PRINT"[145]                                      "
  292. 2320 GOSUB 3470
  293. 2330 GOSUB 3540
  294. 2340 GOSUB 3760
  295. 2350 GOSUB3980
  296. 2370 PRINT""+LEFT$(DD$,20)+LEFT$(RR$,4);"SECOND CHOICE: ";
  297. 2380 UL=2:US$="0123456789":GOSUB35
  298. 2385 B=VAL(UR$)
  299. 2387 IFB<1OR B>20ORB=ATHENPRINT "[145]                                [145][145][145]":GOTO2370
  300. 2390 PRINT""+LEFT$(DD$,20)+LEFT$(RR$,4);"                     "
  301. 2400 GOSUB 4050
  302. 2410 GOSUB 4190
  303. 2420 GOSUB 4410
  304. 2430 GOSUB4120
  305. 2440 NN=NN+1
  306. 2450 IFA$(A)=A$(B)THEN A$(A)="":GOTO2470
  307. 2460 GOTO2480
  308. 2470 A$(B)=""
  309. 2480 IF A$(A)=A$(B)THENPRINT""+LEFT$(DD$,20)+LEFT$(RR$,4);"THAT'S A MATCH!"
  310. 2490 IF A$(A)=A$(B)THEN M=M+1
  311. 2500 IFM=10 THEN FORX=1TO500:NEXT:GOTO 2640
  312. 2510 FORX=1TO3000:NEXT
  313. 2520 IF A$(A)<>A$(B) THEN 2540
  314. 2530 GOTO 2580
  315. 2540 IFA<10THENGOSUB 4630
  316. 2550 IFA>9THENGOSUB 4680
  317. 2560 IFB<10THENGOSUB 4720
  318. 2570 IFB>9THENGOSUB 4760
  319. 2580 GOTO2260
  320. 2590 REM
  321. 2600 REM
  322. 2610 REM PATCH UP THE BOARD
  323. 2620 FORX=1TO2000:NEXT    :REM PROGRAM
  324. 2630 GOTO2260             :REM PROGRAM
  325. 2640 GOSUB835:GOSUB850:PRINT" WELL DONE, "NA$"!"
  326. 2660 PRINT" YOU HAVE OPENED THE WHOLE BOARD."
  327. 2680 PRINT" YOU HAD ";NN;" TRIES TO MAKE 10 MATCHES."
  328. 2710 PRINT" CAN YOU BEAT";NN;"?"
  329. 2720 GOTO 835
  330. 2800 M=0:NN=0
  331. 2810 GOTO 1980
  332. 2820 REM TWO PLAYERS
  333. 2830 FORN=1TO1000:NEXT
  334. 2840 X=INT(2*RND(1))+1:T=X:GOTO2860
  335. 2850 X=T
  336. 2860 IF X=1THENPRINT" ";ST$;NM$;:GOTO2880
  337. 2870 PRINT" ";ST$;NE$;
  338. 2880 REMFORN=1TO750:NEXT
  339. 2890 PRINT", YOUR CHOICE  (1-20): ";
  340. 2895 UL=2:US$="0123456789":GOSUB35:A=VAL(UR$)
  341. 2900 BLANK$="[145]                                      "
  342. 2910 REM
  343. 2920 IFA<1OR A>20 THENPRINT BLANK$:PRINT"[145][145][145][145]":GOTO 2860
  344. 2930 PRINTBLANK$
  345. 2940 FORN=1TO800:NEXT
  346. 2950 GOSUB 3470
  347. 2960 GOSUB 3540
  348. 2970 GOSUB 3760
  349. 2980 GOSUB 3980
  350. 2990 PRINT""+LEFT$(DD$,20)+LEFT$(RR$,4);"SECOND CHOICE: ";
  351. 3000 UL=2:US$="0123456789":GOSUB35
  352. 3005 B=VAL(UR$)
  353. 3010 IF B <1ORB>20ORB=A  THEN 2990
  354. 3020 PRINT BLANK$
  355. 3030 GOSUB4050
  356. 3040 GOSUB4190
  357. 3050 GOSUB4410
  358. 3060 GOSUB4120
  359. 3070 IFA$(A)<>A$(B)AND T=1 THEN T=2:GOTO3120
  360. 3080 IFA$(A)<>A$(B)AND T=2 THEN T=1
  361. 3090 IFA$(A)=A$(B)THENA$(A)="":GOTO3110
  362. 3100 GOTO3120
  363. 3110 A$(B)=""
  364. 3120 IFA$(A)=A$(B)THENPRINTST$:PRINTBLANK$:PRINTST$;"THAT'S A MATCH":GOTO3140
  365. 3130 GOTO3160
  366. 3140 FORX=1TO1500:NEXT
  367. 3150 PRINTBLANK$
  368. 3160 IFA$(A)=A$(B)ANDT=1THENM1=M1+1
  369. 3170 IFA$(A)=A$(B) ANDT=2THENM2=M2+1
  370. 3180 IFM1+M2=10THENGOSUB835:GOTO3270
  371. 3190 FORX=1TO3000:NEXT
  372. 3200 IFA$(A)<>A$(B) THEN 3220
  373. 3210 GOTO3260
  374. 3220 IFA<10THENGOSUB 4630
  375. 3230 IFA>9THEN GOSUB 4680
  376. 3240 IFB<10THENGOSUB 4720
  377. 3250 IFB>9THEN GOSUB 4760
  378. 3260 GOTO2850
  379. 3270 FORX=1TO500:NEXT
  380. 3280 GOSUB850
  381. 3290 FORX=1TO500:NEXT
  382. 3300 PRINT"FINAL SCORE[146]"
  383. 3320 PRINT"";NM$;"     ";M1;" MATCHES"
  384. 3340 PRINT"";NE$;"     ";M2;" MATCHES"
  385. 3360 PRINT"";
  386. 3370 IFM1>M2THENPRINT" THE WINNER IS ";NM$;"!":GOTO3400
  387. 3380 IFM1=M2THENPRINT" THIS GAME IS A STALEMATE!":GOTO3400
  388. 3390 PRINT" THE WINNER IS ";NE$;"!"
  389. 3400 GOSUB835
  390. 3460 RETURN
  391. 3470 REM ALIGNMENT OF VARIABLE STRINGS
  392. 3480 IFA$(A)=""AND NA$<>"" THEN 2270
  393. 3490 IFA$(A)=""ANDNA$=""THEN PRINTBLANK$:GOTO2860
  394. 3500 FOR I=1TO20
  395. 3510 IF I=A THEN G$=A$(I)
  396. 3520 NEXT I
  397. 3530 RETURN
  398. 3540 REM CURSOR VALUES
  399. 3550 IFA=1 THEN RR=1
  400. 3560 IFA=2 THEN RR=7
  401. 3570 IFA=3 THEN RR=13
  402. 3580 IFA=4 THEN RR=19
  403. 3590 IFA=5 THEN RR=25
  404. 3600 IFA=6 THEN RR=1
  405. 3610 IFA=7 THEN RR=7
  406. 3620 IFA=8 THEN RR=13
  407. 3630 IFA=9 THEN RR=19
  408. 3640 IFA=10THEN RR=25
  409. 3650 IFA=11THEN RR=1
  410. 3660 IFA=12THEN RR=7
  411. 3670 IFA=13THEN RR=13
  412. 3680 IFA=14THEN RR=19
  413. 3690 IFA=15THEN RR=25
  414. 3700 IFA=16THEN RR=1
  415. 3710 IFA=17THEN RR=7
  416. 3720 IFA=18THEN RR=13
  417. 3730 IFA=19THEN RR=19
  418. 3740 IFA=20THEN RR=25
  419. 3750 RETURN
  420. 3760 REM DD VALUES
  421. 3770 IFA=1 THEN DD=3
  422. 3780 IFA=2 THEN DD=3
  423. 3790 IFA=3 THEN DD=3
  424. 3800 IFA=4 THEN DD=3
  425. 3810 IFA=5 THEN DD=3
  426. 3820 IFA=6 THEN DD=7
  427. 3830 IFA=7 THEN DD=7
  428. 3840 IFA=8 THEN DD=7
  429. 3850 IFA=9 THEN DD=7
  430. 3860 IFA=10 THEN DD=7
  431. 3870 IFA=11 THEN DD=11
  432. 3880 IFA=12 THEN DD=11
  433. 3890 IFA=13 THEN DD=11
  434. 3900 IFA=14 THEN DD=11
  435. 3910 IFA=15 THEN DD=11
  436. 3920 IFA=16 THEN DD=15
  437. 3930 IFA=17 THEN DD=15
  438. 3940 IFA=18 THEN DD=15
  439. 3950 IFA=19 THEN DD=15
  440. 3960 IFA=20 THEN DD=15
  441. 3970 RETURN
  442. 3980 REM DISPLAY HIDDEN A$(A)
  443. 3990 PRINT""+LEFT$(DD$,DD)+LEFT$(RR$,RR+4);"     "
  444. 4000 PRINTLEFT$(RR$,RR+4);"     "
  445. 4010 PRINTLEFT$(RR$,RR+4);"     "
  446. 4020 PRINT""+LEFT$(DD$,DD)+LEFT$(RR$,RR+4);"     "
  447. 4030 PRINTLEFT$(RR$,RR+4);SPC(-(LEN(A$(A))<4));A$(A)
  448. 4040 RETURN
  449. 4050 REM ALIGNMENT OF VARIABLE STRINGS
  450. 4060 IFA$(B)=""ANDNA$<>""THEN 2370
  451. 4070 IFA$(B)=""ANDNA$=""THEN2990
  452. 4080 FOR I=1TO20
  453. 4090 IF I=B THEN G2$=A$(I)
  454. 4100 NEXT I
  455. 4110 RETURN
  456. 4120 REM DISPLAY HIDDEN WORD [A$(B)]
  457. 4130 PRINT""+LEFT$(DD$,D1)+LEFT$(RR$,R1+4);"     "
  458. 4140 PRINTLEFT$(RR$,R1+4);"     "
  459. 4150 PRINTLEFT$(RR$,R1+4);"     "
  460. 4160 PRINT""+LEFT$(DD$,D1)+LEFT$(RR$,R1+4);"     "
  461. 4170 PRINTLEFT$(RR$,R1+4);SPC(-(LEN(A$(B))<4));A$(B)
  462. 4180 RETURN
  463. 4190 REM CURSOR VALUES
  464. 4200 IFB=1 THEN R1=1
  465. 4210 IFB=2 THEN R1=7
  466. 4220 IFB=3 THEN R1=13
  467. 4230 IFB=4 THEN R1=19
  468. 4240 IFB=5 THEN R1=25
  469. 4250 IFB=6 THEN R1=1
  470. 4260 IFB=7 THEN R1=7
  471. 4270 IFB=8 THEN R1=13
  472. 4280 IFB=9 THEN R1=19
  473. 4290 IFB=10THEN R1=25
  474. 4300 IFB=11THEN R1=1
  475. 4310 IFB=12THEN R1=7
  476. 4320 IFB=13THEN R1=13
  477. 4330 IFB=14THEN R1=19
  478. 4340 IFB=15THEN R1=25
  479. 4350 IFB=16THEN R1=1
  480. 4360 IFB=17THEN R1=7
  481. 4370 IFB=18THEN R1=13
  482. 4380 IFB=19THEN R1=19
  483. 4390 IFB=20THEN R1=25
  484. 4400 RETURN
  485. 4410 REM D1 VALUES
  486. 4420 IFB=1 THEN D1=3
  487. 4430 IFB=2 THEN D1=3
  488. 4440 IFB=3 THEN D1=3
  489. 4450 IFB=4 THEN D1=3
  490. 4460 IFB=5 THEN D1=3
  491. 4470 IFB=6 THEN D1=7
  492. 4480 IFB=7 THEN D1=7
  493. 4490 IFB=8 THEN D1=7
  494. 4500 IFB=9 THEN D1=7
  495. 4510 IFB=10 THEN D1=7
  496. 4520 IFB=11 THEN D1=11
  497. 4530 IFB=12 THEN D1=11
  498. 4540 IFB=13 THEN D1=11
  499. 4550 IFB=14 THEN D1=11
  500. 4560 IFB=15 THEN D1=11
  501. 4570 IFB=16 THEN D1=15
  502. 4580 IFB=17 THEN D1=15
  503. 4590 IFB=18 THEN D1=15
  504. 4600 IFB=19 THEN D1=15
  505. 4610 IFB=20 THEN D1=15
  506. 4620 RETURN
  507. 4630 REM PATCH UP THE BOARD  0<A<10
  508. 4640 PRINT""+LEFT$(DD$,DD)+LEFT$(RR$,RR+4);"     [146]"
  509. 4650 PRINTLEFT$(RR$,RR+4);" "A"[157]  [146]"
  510. 4660 PRINTLEFT$(RR$,RR+4);"     [146]"
  511. 4670 RETURN
  512. 4680 PRINT""+LEFT$(DD$,DD)+LEFT$(RR$,RR+4);"     "
  513. 4690 PRINTLEFT$(RR$,RR+4);""A"[157]  [146]"
  514. 4700 PRINTLEFT$(RR$,RR+4);"     [146]"
  515. 4710 RETURN
  516. 4720 PRINT""+LEFT$(DD$,D1)+LEFT$(RR$,R1+4);"     [146]"
  517. 4730 PRINTLEFT$(RR$,R1+4);" "B"[157]  [146]"
  518. 4740 PRINTLEFT$(RR$,R1+4);"     [146]"
  519. 4750 RETURN
  520. 4760 PRINT""+LEFT$(DD$,D1)+LEFT$(RR$,R1+4);"     [146]"
  521. 4770 PRINTLEFT$(RR$,R1+4);""B"[157]  [146]"
  522. 4780 PRINTLEFT$(RR$,R1+4);"     [146]"
  523. 4790 RETURN
  524. 5050 GOTO 1790
  525. 6000 A$="123"
  526. 6010 PRINTSPC(10)"^     ^[145]"
  527. 6020 PRINTSPC(11-(LEN(A$)<4*1));A$
  528.