home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / MISCBAS.ZIP / 15PUZ.ASC < prev    next >
Encoding:
Text File  |  1987-01-11  |  6.4 KB  |  154 lines
  1. 100 REM WRITTEN BY W.A.BURTON
  2. 101 WIDTH 80 : PRINT CHR$(26)
  3. 102 DIM A$(5,5), NM$(5,5), RV$(4,4), A(4,4) : BL$="    "
  4. 103 GOSUB 148
  5. 104 PRINT TAB(15); "WHAT IS YOUR LUCKY NUMBER (1 TO 25000)"; : INPUT X
  6. 105 IF X<1 OR X>25000 OR X<>INT(X) THEN PRINT "WRONG !!"; : GOTO 104
  7. 106 X=X MOD 197 : FOR Y=1 TO X
  8. 107 X9=RND(1) : X9=RND(-Y)
  9. 108 NEXT Y : X9=0 : PRINT CHR$(26)
  10. 109 PRINT TAB(20); "***   15 PUZZLE   ***" : PRINT : PRINT : PRINT
  11. 110 INPUT "                 DO YOU WANT INSTRUCTIONS"; R$
  12. 111 IF LEFT$(R$,1)="Y" THEN GOSUB 220
  13. 112 PRINT CHR$(26) : X9=1
  14. 113 PRINT "WAIT A FEW MOMENTS FOR PUZZLE TO BE CREATED"
  15. 114 GOSUB 172
  16. 115 GOSUB 179
  17. 116 GOSUB 159
  18. 117 PRINT : PRINT
  19. 118 REM 'COMMANDS' CHECKED HERE
  20. 119 R$="TRAP" : INPUT "YOUR PLAY"; R$
  21. 120 IF R$<>"HELP" THEN 125
  22. 121 PRINT : GOSUB 228 : PRINT
  23. 122 IF NM=1 THEN F$=" NORMAL " ELSE F$=" REVERSE "
  24. 123 PRINT TAB(15); "YOU ARE ATTEMPTING A"; F$; "SOLUTION"
  25. 124 PRINT : GOTO 119
  26. 125 IF LEN(R$)=1 THEN GOSUB 133
  27. 126 IF R$=A$(I+1,J) THEN SWAP A$(I,J), A$(I+1,J) : GOTO 131
  28. 127 IF R$=A$(I-1,J) THEN SWAP A$(I,J), A$(I-1,J) : GOTO 131
  29. 128 IF R$=A$(I,J+1) THEN SWAP A$(I,J), A$(I,J+1) : GOTO 131
  30. 129 IF R$=A$(I,J-1) THEN SWAP A$(I,J), A$(I,J-1) : GOTO 131
  31. 130 PRINT "INVALID COMMAND - TRY AGAIN !!" : GOTO 119
  32. 131 PRINT : PRINT : GOSUB 159 : TU=TU+1
  33. 132 GOTO 119
  34. 133 REM 'PAD' SINGLE CHARACTER ENTRIES
  35. 134 PD$=" " : PD$=PD$+R$
  36. 135 SWAP PD$, R$ : RETURN
  37. 136 REM DATA TABLES
  38. 137 DATA -1, -1, -1, -1, -1, -1, -1
  39. 138 DATA " 1", " 2", " 3", " 4", -1
  40. 139 DATA -1, " 5", " 6", " 7", " 8"
  41. 140 DATA -1, -1, " 9", 10, 11, 12
  42. 141 DATA -1, -1, 13, 14, 15, **, -1
  43. 142 DATA -1, -1, -1, -1, -1, -1
  44. 143 DATA 1, 2, 3, 4, 5, 6, 7, 8, 9
  45. 144 DATA 10, 11, 12, 13, 14, 15, 16
  46. 145 DATA 15, 14, 13, 12, 11, 10, " 9"
  47. 146 DATA " 8", " 7", " 6", " 5", " 4"
  48. 147 DATA " 3", " 2", " 1", **
  49. 148 REM LOAD EACH MATRIX
  50. 149 FOR X=0 TO 5 : FOR Y=0 TO 5
  51. 150 READ A$(X,Y) : NEXT Y,X : RESTORE
  52. 151 FOR X=0 TO 5 : FOR Y=0 TO 5
  53. 152 READ NM$(X,Y) : NEXT Y,X
  54. 153 FOR X=1 TO 4 : FOR Y=1 TO 4
  55. 154 READ A(X,Y)
  56. 155 NEXT Y, X
  57. 156 FOR X=1 TO 4 : FOR Y=1 TO 4
  58. 157 READ RV$(X,Y)
  59. 158 NEXT Y, X : RETURN
  60. 159 REM LOCATE THE BLANK (**)
  61. 160 FOR I1=1 TO 4
  62. 161 FOR J1=1 TO 4
  63. 162 IF A$(I1,J1)="**" THEN I=I1 : J=J1
  64. 163 NEXT J1, I1
  65. 164 IF (NM=1) AND (A$(4,4)="**") AND (A$(1,1)=" 1") THEN GOSUB 199
  66. 165 IF (RV=1) AND (A$(4,4)="**") AND (A$(1,1)="15") THEN GOSUB 210
  67. 166 REM PRINT OUT A$(ARRAY)
  68. 167 FOR X=1 TO 4
  69. 168 FOR Y=1 TO 4
  70. 169 PRINT BL$; A$(X,Y);
  71. 170 NEXT Y : PRINT : PRINT
  72. 171 NEXT X : PRINT : RETURN
  73. 172 REM 'SHUFFLE' A$(ARRAY) & A(ARRAY)
  74. 173 FOR X=1 TO 4 : FOR Y=1 TO 4
  75. 174 R8=INT(RND(1)*4)+1 : R9=INT(RND(1)*4)+1
  76. 175 IF X=R8 AND Y=R9 THEN 174
  77. 176 SWAP A$(X,Y), A$(R8,R9)
  78. 177 SWAP A(X,Y), A(R8,R9)
  79. 178 NEXT Y, X : RETURN
  80. 179 REM IS PUZZLE TO BE SOLVED IN 'NORMAL' OR 'REVERSE' FASHION
  81. 180 CO=0
  82. 181 IF A(1,2)=16 OR A(1,4)=16 THEN 186
  83. 182 IF A(2,1)=16 OR A(2,3)=16 THEN 186
  84. 183 IF A(3,2)=16 OR A(3,4)=16 THEN 186
  85. 184 IF A(4,1)=16 OR A(4,3)=16 THEN 186
  86. 185 GOTO 187
  87. 186 CO=CO+1
  88. 187 FOR X1=1 TO 4 : FOR X2=1 TO 4
  89. 188 FOR X3=1 TO 4 : FOR X4=1 TO 4
  90. 189 IF A(X1,X2) > A(X3,X4) THEN 191
  91. 190 NEXT X4, X3 : GOTO 192
  92. 191 CO=CO+1
  93. 192 A(X1,X2)=16
  94. 193 NEXT X2, X1
  95. 194 IF CO-(2*INT(CO/2))<>0 THEN 197
  96. 195 PRINT CHR$(26) : PRINT "THIS PUZZLE CAN BE SOLVED IN NORMAL ORDER"
  97. 196 NM=1 : PRINT : RETURN
  98. 197 PRINT CHR$(26) : PRINT "THIS PUZZLE CAN ONLY BE SOLVED IN REVERSE ORDER !! !"
  99. 198 RV=1 : PRINT :  RETURN
  100. 199 REM CHECK FOR 'NORMAL' WIN
  101. 200 FOR X=1 TO 4 : FOR Y=1 TO 4
  102. 201 IF A$(X,Y)<>NM$(X,Y) THEN 203
  103. 202 NEXT Y, X : GOTO 204
  104. 203 RETURN
  105. 204 REM WIN
  106. 205 GOSUB 166 : PRINT : PRINT
  107. 206 PRINT TAB(25); "***   WINNER   ***"
  108. 207 FOR X=1 TO 6 : PRINT : NEXT X
  109. 208 PRINT TAB(22); "YOU SOLVED IT IN"; TU; "MOVES"
  110. 209 GOTO 215
  111. 210 REM CHECK FOR 'REVERSE' WIN
  112. 211 FOR X=1 TO 4 : FOR Y=1 TO 4
  113. 212 IF A$(X,Y)<>RV$(X,Y) THEN 214
  114. 213 NEXT Y, X : GOTO 204
  115. 214 RETURN
  116. 215 REM GAME EXIT
  117. 216 PRINT : PRINT : R$="TRAP"
  118. 217 INPUT "DO YOU WANT TO TRY AGAIN"; R$
  119. 218 IF LEFT$(R$,1)="Y" THEN CLEAR : RUN 101
  120. 219 PRINT CHR$(26) : RESET
  121. 220 REM INSTRUCTIONS
  122. 221 PRINT CHR$(26)
  123. 222 PRINT "THE NUMBERS IN A '15 PUZZLE' (ZERO-15, PLUS THE BLANK '**') CAN BE ARRANGED"
  124. 223 PRINT "IN APPROXIMATELY 21,000,000,000,000 DIFFERENT WAYS..." : PRINT
  125. 224 PRINT "HOWEVER, ANY SINGLE ARRANGEMENT OF THE NUMBERS CAN ONLY BE REARRANGED"
  126. 225 PRINT "IN HALF THAT MANY WAYS. THEREFORE TO DEAL WITH ALL THE POSSIBILITIES, WE NEED"
  127. 226 PRINT "TWO MUTUALLY EXCLUSIVE OBJECTIVES. THE COMPUTER WILL GENERATE A PUZZLE TO BE"
  128. 227 PRINT "SOLVED AND TELL YOU WHICH OF TWO 'SOLUTIONS' TO ATTEMPT." : PRINT
  129. 228 PRINT"NORMAL:   1     2     3     4          REVERSE:  15    14    13    12" : PRINT
  130. 229 PRINT"          5     6     7     8                    11    10     9     8" : PRINT
  131. 230 PRINT"          9    10    11    12                     7     6     5     4" : PRINT
  132. 231 PRINT"         13    14    15    **                     3     2    1    **" : PRINT
  133. 232 IF X9=1 THEN RETURN
  134. 233 PRINT "REMEMBER THESE TWO DIAGRAMS, BECAUSE ONE (AND ONLY ONE) WILL REPRESENT THE"
  135. 234 PRINT "CORRECT SOLUTION TO A GIVEN PUZZLE. NOTE ALSO THAT IN BOTH CASES THE BLANK '**'"
  136. 235 PRINT "OCCUPIES THE LOWER RIGHT HAND CORNER." : PRINT
  137. 236 PRINT "HIT RETURN KEY FOR MORE" : WAIT 0,1,1
  138. 237 PRINT CHR$(26)
  139. 238 PRINT "A MOVE IS MADE BY SELECTING A NUMBER WHICH IS ADJACENT TO THE BLANK, AND MOVING"
  140. 239 PRINT "THAT NUMBER INTO THE SPACE WHICH THE BLANK OCCUPIED. TO DO SO, MERELY ENTER"
  141. 240 PRINT "THE NUMBER WHEN ASKED, 'YOUR MOVE ?'. " : PRINT
  142. 241 PRINT "IN THE CONTEXT OF THIS GAME, AN ADJACENT NUMBER IS ONE WHICH IS DIRECTLY"
  143. 242 PRINT "ABOVE, BELOW, TO THE RIGHT OF OR TO THE LEFT OF THE BLANK (THERE IS NO SUCH"
  144. 243 PRINT "THING AS DIAGONALLY ADJACENT)..." : PRINT
  145. 244 PRINT "     EXAMPLE:     1    13     3    11" : PRINT
  146. 245 PRINT "                  9     7     2     5" : PRINT
  147. 246 PRINT "                  4    **    12     8" : PRINT
  148. 247 PRINT "                  6    14    10    15" : PRINT
  149. 248 PRINT "IN ABOVE EXAMPLE, THE ONLY LEGAL MOVES ARE: 4 - 7 - 12 - 14. THE COMPUTER"
  150. 249 PRINT "WILL REJECT INVALID MOVES. IF YOU FORGET POSITION THAT YOU ARE TRYING TO REACH,"
  151. 250 PRINT "ENTER 'HELP' WHEN ASKED, 'YOUR MOVE ?'. THIS WILL DISPLAY BOTH THE 'NORMAL'"
  152. 251 PRINT "AND 'REVERSE' OBJECTIVES." : PRINT
  153. 252 PRINT "HIT RETURN TO PLAY" : WAIT 0,1,1 : PRINT CHR$(26) : RETURN
  154.