home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun: Strategy Games 2 / rerun-strategygamesII.d64 / puzzles (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  61 lines
  1. 2 printchr$(147)"would you like instructions (y/n)?
  2. 4 [161] a$: [139] a$[179][177] "y" [175] a$[179][177]"n" [167] 4
  3. 6 [139] a$[178]"n" [167] 92
  4. 8 [153]"instructions on screen or printer (s/p)?
  5. 10 get b$: if b$<> "s" and b$<>"p" then 10
  6. 12 if b$="s"then  d=3
  7. 14 if b$="p" then d=4
  8. 16 open d,d
  9. 18 print#d,"
  10. 20 [152]d,"puzzler's choice by daniel miller
  11. 22 print#d,"
  12. 24 [152]d,"run it right: c-64
  13. 26 print#d,"
  14. 28 [152]d,"alphabet puzzle is a version of the old
  15. 30 print#d,"slide-the-blocks game. here the game
  16. 32 [152]d,"board is a four-by-four matrix of 15
  17. 34 print#d,"tiles and one space. you must maneuver
  18. 36 [152]d,"the tiles into the arrangement shown to
  19. 38 print#d,"the right of the gameboard. only tiles
  20. 40 [152]d,"next to the space will move. just enter
  21. 42 print#d,"the letter of the tile that you want to
  22. 44 [152]d,"move.":[139] d[178]4 [167] 50
  23. 45 [152]d,"
  24. 46 print"press a key to continue"
  25. 47 get dd$:if dd$="" then 47
  26. 48 print#d,"
  27. 49 [152]d,"
  28. 50 print#d,"
  29. 51 [152]d,"juggernaut consists of a line of eight
  30. 52 print#d,"alternating red and yellow checkers,
  31. 53 [152]d,"with 2 spaces at the right end. you
  32. 54 print#d,"must get all the yellow to the right,
  33. 56 [152]d,"all the red to the left and the spaces
  34. 58 print#d,"to the far left by moving two adjacent
  35. 60 [152]d,"checkers at a time. letters are below
  36. 62 print#d,"and between the checkers. enter a
  37. 64 [152]d,"letter and the two checkers above it
  38. 66 print#d,"will move to the spaces, leaving their
  39. 68 [152]d,"old positions as new spaces. press f1
  40. 70 print#d,"for auto solve.
  41. 72 [152]d,"
  42. 74 print#d,"in checkers switch, red and black
  43. 76 [152]d,"checkers are arrayed on opposite sides
  44. 78 print#d,"of the board. using only legal checkers
  45. 80 [152]d,"moves, move each piece to the other
  46. 82 print#d,"side. make a move by entering row and
  47. 84 [152]d,"column coordinates (with no space
  48. 86 print#d,"between) for the "chr$(34)"from"chr$(34)" and "chr$(34)"to"chr$(34)"
  49. 88 [152]d,"squares. again, press f1 for auto solve.
  50. 90 print#d,"":closed
  51. 92 print"press any key to begin the program..."
  52. 94 get e$:if e$="" then 94
  53. 96 clr
  54. 100 print"
  55. 102 n$[178]"puzzled"
  56. 104 [153]"load"[199](34)n$[199](34)","8"  ononon"
  57. 106 a$[178]"run"
  58. 108 a$[178]a$[170][199](13)
  59. 110 [151]631,13:[129]b[178]1[164][195](a$):[151]631[170]b,[198]([202](a$,b,1)):[130]:[151]198,10
  60. 112 [162]
  61.