home *** CD-ROM | disk | FTP | other *** search
/ Light / Light_Vol.1_June_1992_Datasphere_Publications_Disk_1_of_2_Side_A.d64 / puzz (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  112 lines
  1. 1 poke53280,0:poke53281,0
  2. 2 dimps(24),ch(24),sq(120):q=0:ctr=1603:cc=1:d=0:w=0:sk=0:gosub80:gosub55
  3. 3 forx=0to23:readps(x):ch(x)=x+2:pokeps(x),ch(x):next
  4. 4 forx=0to7:readja(x):next
  5. 5 geta$:ifa$=""then5
  6. 6 print"[145][145]                                        "
  7. 7 gosub45:goto16
  8. 8 ifd1 thenreturn
  9. 9 tmp=js
  10. 10 iftmp<=14thentmp=tmp+16:goto12
  11. 11 tmp=tmp-16
  12. 12 sq(sc)=tmp
  13. 13 sc=sc+1:gosub95:ifa$="q"then107
  14. 14 ifdthenreturn
  15. 15 ifwthengoto93
  16. 16 geta$:ifa$="q"then107
  17. 17 js=peek(56320)and31
  18. 18 ifjs=31then16
  19. 19 ifjs=30thenb=0:t=6:goto29
  20. 20 ifjs=23thenb=6:t=12:goto29
  21. 21 ifjs=29thenb=12:t=18:goto29
  22. 22 ifjs=27thenb=18:t=23:goto29
  23. 23 ifjs=14thenb=0:t=6:goto28
  24. 24 ifjs=7 thenb=6:t=12:goto28
  25. 25 ifjs=13thenb=12:t=18:goto28
  26. 26 ifjs=11thenb=18:t=23:goto28
  27. 27 goto8
  28. 28 gosub30:gosub50:goto8
  29. 29 gosub36:gosub50:goto8
  30. 30 x=b:tmp=cc:cc=ch(x):pokectr,cc
  31. 31 ch(x)=ch(x+1):pokeps(x),ch(x)
  32. 32 x=x+1:ifx<>tthen31
  33. 33 ift=23thenx=0:ch(23)=ch(x):pokeps(23),ch(x)
  34. 34 ch(x)=tmp:pokeps(x),ch(x)
  35. 35 return
  36. 36 x=t:tmp=cc
  37. 37 ifx=23thencc=ch(0):goto39
  38. 38 cc=ch(x)
  39. 39 pokectr,cc
  40. 40 ift=23thench(0)=ch(x):pokeps(0),ch(0)
  41. 41 ch(x)=ch(x-1):pokeps(x),ch(x)
  42. 42 x=x-1:ifx<>bthen41
  43. 43 ch(x)=tmp:pokeps(x),ch(x)
  44. 44 return
  45. 45 d=1
  46. 46 js=ja(int(rnd(0)*7)):gosub19
  47. 47 ifsc<>slthen46
  48. 48 d=0
  49. 49 return
  50. 50 x=0
  51. 51 ifch(x)<>x+2thenw=0:goto54
  52. 52 x=x+1:ifx<>24then51
  53. 53 w=1
  54. 54 return
  55. 55 print"[147][150]      joystick    clock     anti "
  56. 56 print"      [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]
  57. 57 [153]"      up          without   with
  58. 58 print"      right       fire      fire
  59. 59 [153]"      down        button    button
  60. 60 print"      left
  61. 61 [153]"      tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(
  62. 62 printspc(19)"[154]e"
  63. 63 printspc(18)"[154]d[209][154]f"
  64. 64 printspc(18)"[154]c[209][154]g"
  65. 65 printspc(16)"[154]xyb[209][154]hij"
  66. 66 printspc(15)"[154]w[209][209][209][154]a[209][209][209][154]k"
  67. 67 printspc(16)"[154]vut[209][154]nml"
  68. 68 printspc(18)"[154]s[209][154]o"
  69. 69 printspc(18)"[154]r[209][154]p"
  70. 70 printspc(19)"[154]q"
  71. 71 print"[150][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  72. 72 print"       this is the open[150] combination"
  73. 73 print"[155]        * press any key to start *"
  74. 74 return
  75. 75 data1562,1522,1482,1443,1484,1524,1564
  76. 76 data1565,1566,1607,1646,1645,1644
  77. 77 data1684,1724,1763,1722,1682,1642
  78. 78 data1641,1640,1599,1560,1561
  79. 79 data30,23,29,27,14,7,13,11
  80. 80 print"[147][150]           the combination lock"
  81. 81 print"[154]         [213][192][201] [178] [178] [192][192][201] [192][192][201] [178]   [176][192][192]"
  82. 82 print"[155]         [221] [221] [221] [221]  [213][203]  [213][203] [221]   [221] "
  83. 83 print"[151]         [171][192][203] [221] [221] [213][203]  [213][203]  [221]   [171][192]"
  84. 84 print"[152]         [221]   [221] [221] [221]   [221]   [221]   [221] "
  85. 85 print"         [177]   [202][192][203][160][202][192][203] [202][192][203][160][173][192][192] [173][192][192]"
  86. 86 print"[158]      best of luck...it isn't easy!"
  87. 87 print"         select difficulty level "
  88. 88 print"             < keys 1 to 5 >  "
  89. 89 geta$:a=val(a$)
  90. 90 ifa<1or a>5then89
  91. 91 sl=5:sl=sl*a
  92. 92 return
  93. 93 print"[145]  well done you have managed it!":forx=0to3000:next
  94. 94 end
  95. 95 ifsc=slthenprint"[145][158]      to quit tap 'q' for quitters
  96. 96 [139]sc[178]sl[170]25[167][153]"on  not as easy as you first thought !!! "
  97. 97 [139]sc[178]sl[170]45[167][153]"onsys  not getting any easier either !!!   "
  98. 98 [139]sc[178]sl[170]60[167][153]"on              still at it???          "
  99. 99 [139]sc[178]sl[170]70[167][153]"onsys        frustrating, isn't it ????    "
  100. 100 [139]sc[178]sl[170]78[167][153]"on     come on, how much longer ??????  "
  101. 101 [139]sc[178]sl[170]84[167][153]"onsys i really do suggest you press 'q' !!! "
  102. 102 [139]sc[178]sl[170]88[167][153]"on time for me to show you, me thinks !!!":[142]
  103. 103 [139]sc[179][177]sl[170]90[167] [142]
  104. 104 [153]"onsys okay, like it or not, you have failed!":[129]x[178]0[164]1500:[130]
  105. 105 [153]"onon     i'll show you how it's done!!!     ":a$[178]"q":sk[178]1:
  106. 106 [142]
  107. 107 [139]sk[167]109
  108. 108 [153]"onopenokay so you gave up - watch this, matey"
  109. 109 d1[178]1:[129]c[178]sc[164]0[169][171]1:js[178]sq(c):[141]19:[129]c1[178]1[164]500:[130]c1,c
  110. 110 [153]"      ... and so the door opens...   "
  111. 111 [153]"deftototototototototototototototototototototototototototototototototototototototo":[128]
  112.