home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 226 / 226.d81 / 14-15 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2003-01-01  |  8.8 KB  |  235 lines
  1. 5 dv=peek(186):ifdv<8thendv=8
  2. 10 print"[144][147]":poke53280,0:poke53281,0
  3. 20 sys57812"14-15.font",dv,0:poke780,0:poke781,0:poke782,200:sys65493
  4. 30 sys57812"tod.o",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  5. 40 print"[144][147]":poke56576,4:poke53272,18:poke648,196:poke53265,27
  6. 50 poke53280,0:poke53281,0:print"[154][147][155]"
  7. 60 open1,dv,2:close1:q=st:ifq=0then70
  8. 61 forx=1to5:hi$(1,x)="-------":hi$(2,x)="-------"
  9. 62 hi(1,x)=99:hi(2,x)=3835:next:goto90
  10. 70 open1,dv,2,"14-15.hi,s,r":forx=1to2:fory=1to5:input#1,hi$(x,y),hi(x,y)
  11. 80 next:next:close1
  12. 90 dimn$(15),gd(16)
  13. 100 forx=0to15:readn$(x):next
  14. 110 data"[179][180][181][157][157][157][182][183][184]","[146][193][194][195][157][157][157][196][197][198]","[146][199][200][201][157][157][157][202][203][204]","[146][205][206][207][157][157][157][208][209][210]"
  15. 120 data"[146][211][212][213][157][157][157][214][215][216]","[146][161][162][163][157][157][157][164][165][166]","[146][167][168][169][157][157][157][170][171][172]","[146][173][174][175][157][157][157][176][177][178]"
  16. 130 data"[146][179][180][181][157][157][157][182][183][184]","[193][194][195][157][157][157][196][197][198]","[199][200][201][157][157][157][202][203][204]","[205][206][207][157][157][157][208][209][210]"
  17. 140 data"[211][212][213][157][157][157][214][215][216]","[161][162][163][157][157][157][164][165][166]","[167][168][169][157][157][157][170][171][172]","[173][174][175][157][157][157][176][177][178]"
  18. 150 s$="[157][145][157][157][157][145][145][157][157]"
  19. 160 forx=1to6:readq$(x):next
  20. 170 data"1.[160]14-15[160]puzzle","2.[160]reverse[160]puzzle","3.[160]random[160]puzzle"
  21. 180 data"4.[160]14-15[160]solution","5.[160]instructions","6.[160]quit"
  22. 190 print"[154][147]"tab(6)"@aaaaaaaaaaaaaaaaaaaaaaaaaab"
  23. 200 printtab(6)"c[146][158]reverse[160]puzzle[160]best[160]scoresd[146] "
  24. 210 printtab(6)"effffffffffffffffffffffffffg[146] "
  25. 220 printtab(7)"                            "
  26. 230 print"[156]"tab(5)"@aaaaaaaaaaaaaaaaaaaaaaaaaaaab":forx=1to15
  27. 240 printtab(5)"[156]c[146][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]d[146] ":next
  28. 250 printtab(5)"[156]effffffffffffffffffffffffffffg[146] "
  29. 260 printtab(6)"                              "
  30. 270 print"[159]"
  31. 280 forx=1to5:b$=mid$(str$(hi(1,x)),2):printtab(7)hi$(1,x)tab(33-len(b$))b$
  32. 290 next:print"";:forx=1to5:m=int(hi(2,x)/64):s=(hi(2,x)and63)
  33. 300 a$=mid$(str$(m),2):ifm<10thena$="0"+a$
  34. 310 b$=mid$(str$(s),2):ifs<10thenb$="0"+b$
  35. 320 printtab(7)hi$(2,x)tab(28)a$":"b$:next
  36. 330 printtab(7)"[158]press[160]any[160]key[160]to[160]continue"
  37. 340 gosub2180
  38. 350 print"[154][147]"tab(10)"@aaaaaaaaaaaaaaaab"
  39. 360 printtab(10)"c[146][158]the[160]14-15[160]puzzled[146] "
  40. 370 printtab(10)"effffffffffffffffg[146] "
  41. 380 printtab(11)"                  "
  42. 390 print""tab(8)"@aaaaaaaaaaaaaaaaaaaab"
  43. 400 printtab(8)"c[146][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]d[146] "
  44. 410 printtab(8)"c[146][153][160]"q$(1)"[160][160][160][160]d[146] "
  45. 420 printtab(8)"c[146][153][160]"q$(2)"[160][160]d[146] "
  46. 430 printtab(8)"c[146][153][160]"q$(3)"[160][160][160]d[146] "
  47. 440 printtab(8)"c[146][153][160]"q$(4)"[160][160]d[146] "
  48. 450 printtab(8)"c[146][153][160]"q$(5)"[160][160][160][160]d[146] "
  49. 460 printtab(8)"c[146][153][160]"q$(6)"[160][160][160][160][160][160][160][160][160][160][160][160]d[146] "
  50. 470 printtab(8)"c[146][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]d[146] "
  51. 480 printtab(8)"effffffffffffffffffffg[146] "
  52. 490 printtab(9)"                      "
  53. 500 print""tab(8)"@aaaaaaaaaaaaaaaaaaaab"
  54. 510 printtab(8)"c[146][158][160][160][160]by[160]brian[160]boese[160][160][160]d[146] "
  55. 520 printtab(8)"c[146][158][160][160](c)1991[160]softdisk[160][160]d[146] "
  56. 530 printtab(8)"effffffffffffffffffffg[146] "
  57. 540 printtab(9)"                      ":a=1
  58. 550 b$=chr$(a+48)
  59. 560 print""tab(10);:forx=1toa:print"";:next:printq$(a)
  60. 570 gosub2180
  61. 580 if(z$<>""andz$<>"[145]"andz$<>chr$(13))and(z$<"1"orz$>"6")then560
  62. 590 ifz$=chr$(13)then650
  63. 600 ifz$>"0"andz$<"7"thenb$=z$:goto650
  64. 610 print"[153]"tab(10);:forx=1toa:print"";:next:printq$(a)
  65. 620 ifz$=""thena=a+1:ifa=7thena=1
  66. 630 ifz$="[145]"thena=a-1:ifa=0thena=6
  67. 640 goto550
  68. 650 ifb$="6"then3000
  69. 660 ifb$="5"thengosub1690:goto190
  70. 670 forx=1to13:gd(x)=x:next:gd(14)=15:gd(15)=14:gd(16)=0:ps=16:mv=0
  71. 680 ifb$<>"2"then700
  72. 690 forx=2to16:gd(x)=17-x:next:gd(1)=0:ps=1:mv=0
  73. 700 ifb$<>"3"then740
  74. 710 ps=1:forx=16to2step-1:q=int(rnd(0)*x+1):z=gd(x):gd(x)=gd(q):gd(q)=z
  75. 720 ifgd(x)=0thenps=x
  76. 730 next
  77. 740 print"[154][147]"tab(10)"@aaaaaaaaaaaaaaaab"
  78. 750 printtab(10)"c[146][158]the[160]14-15[160]puzzled[146] "
  79. 760 printtab(10)"effffffffffffffffg[146] "
  80. 770 printtab(11)"                  "
  81. 780 printtab(12)"@aaaaaaaaaaaab"
  82. 790 forx=1to8:printtab(12)"c[146][160][160][160][160][160][160][160][160][160][160][160][160]d[146] ":next
  83. 800 printtab(12)"effffffffffffg[146] ":printtab(13)"              "
  84. 810 print""tab(8)"@aaaaaaaaaaaaaaaaaaaab"
  85. 820 printtab(8)"c[146][158][160]return[160]-[160]timer[160]off[160]d[146] "
  86. 830 printtab(8)"c[146][158][160][160]q[160]-[160]quit[160]to[160]menu[160][160]d[146] "
  87. 840 printtab(8)"effffffffffffffffffffg[146] "
  88. 850 printtab(9)"                      [155]"
  89. 860 forx=1to16:gosub1670:next
  90. 870 ifb$="4"thengosub1590:goto190
  91. 880 print"[156]"tab(29)"@aaaaaaab"
  92. 890 printtab(29)"c[146][159][160]00:00[160][156]d[146] [156]":printtab(29)"c[146][159][160][160][160][160]0[160][160][156]d[146] [156]"
  93. 900 printtab(29)"efffffffg[146] ":printtab(30)"         [155]"
  94. 910 sys49152,31,11,3,"##:##"
  95. 920 gosub1260:ifb$<>"2"ort<15then190
  96. 930 m=peek(49160):m=int(m/16)*10+(mand15):s=peek(49159):s=int(s/16)*10+(sand15)
  97. 940 tm=64*m+s:if(tm>hi(2,5)andmv>hi(1,5))or(peek(49161)>0)then190
  98. 950 print"[154][147]"tab(7)"@aaaaaaaaaaaaaaaaaaaaaab"
  99. 960 printtab(7)"c[146][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]d[146] "
  100. 970 printtab(7)"c[146][159][160][160]you[160]made[160]the[160]high[160][160][160]d[146] "
  101. 980 printtab(7)"c[146][159][160][160]score[160]list![160]enter[160][160][160]d[146] "
  102. 990 printtab(7)"c[146][159][160][160]your[160]name:[160][160][160][160][160][160][160][160][160][160]d[146] "
  103. 1000 printtab(7)"c[146][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]d[146] "
  104. 1010 printtab(7)"c[146][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]d[146] "
  105. 1020 printtab(7)"c[146][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]d[146] "
  106. 1030 printtab(7)"effffffffffffffffffffffg[146] "
  107. 1040 printtab(8)"                        "
  108. 1050 print"[145][145][145][145][156]"tab(9)"[160][146][157]";:a$="":ln=0
  109. 1060 gosub2180:if(z$>="a"andz$<="z")or(z$>="0"andz$<="9")then1080
  110. 1070 ifz$<>" "andz$<>chr$(13)andz$<>chr$(20)then1060
  111. 1080 ifz$=" "thenz$="[160]"
  112. 1090 ifz$=chr$(13)then1140
  113. 1100 if(z$=chr$(20))and(ln>0)thena$=left$(a$,ln-1):print"[157][160][146][160][157][157]";
  114. 1110 if(z$=chr$(20))and(ln>0)thenln=ln-1:goto1060
  115. 1120 if(ln<20)and(z$<>chr$(20))thena$=a$+z$:printz$"[160][146][157]";:ln=ln+1
  116. 1130 goto1060
  117. 1140 ps=6
  118. 1150 ps=ps-1:iftm>hi(2,ps)then1180
  119. 1160 hi(2,ps+1)=hi(2,ps):hi$(2,ps+1)=hi$(2,ps):hi(2,ps)=tm:hi$(2,ps)=a$
  120. 1170 ifps>1then1150
  121. 1180 ps=6
  122. 1190 ps=ps-1:ifmv>hi(1,ps)then1220
  123. 1200 hi(1,ps+1)=hi(1,ps):hi$(1,ps+1)=hi$(1,ps):hi(1,ps)=mv:hi$(1,ps)=a$
  124. 1210 ifps>1then1190
  125. 1220 open1,dv,2:close1:q=st:ifq<>0then1250
  126. 1230 open15,dv,15,"s0:14-15.hi":close15:open1,dv,2,"14-15.hi,s,w"
  127. 1240 forx=1to2:fory=1to5:print#1,hi$(x,y):print#1,hi(x,y):next:next:close1
  128. 1250 goto190
  129. 1260 t=1:lw=gd(1):forx=1to16:ifgd(x)>lwthent=t+1:lw=lw+1
  130. 1270 next:ift<15then1360
  131. 1280 sys49155
  132. 1290 print""tab(11)"[156]@aaaaaaaaaaaaaaab"
  133. 1300 printtab(11)"[156]c[146][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]d"
  134. 1310 printtab(11)"[156]c[146][159][160][160]you[160]got[160]it![160][160][156]d"
  135. 1320 printtab(11)"[156]c[146][159][160]press[160]any[160]key[160][156]d"
  136. 1330 printtab(11)"[156]c[146][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]d"
  137. 1340 printtab(11)"[156]efffffffffffffffg"
  138. 1350 gosub2180:return
  139. 1360 gosub2180:a$=z$
  140. 1370 ifa$<>chr$(13)then1400
  141. 1380 sys49155:poke49161,1:print""tab(30)"[160]timer[160][157][157][157][157][157][157][157][160][160]off[160][160]"
  142. 1390 b$="4"
  143. 1400 ifa$="q"thensys49155:return
  144. 1410 gosub1430
  145. 1420 goto1260
  146. 1430 q=0:if(a$<>"")or(ps<5)then1460
  147. 1440 gd(ps)=gd(ps-4):gd(ps-4)=0:ps=ps-4:q=-1
  148. 1450 x=ps:gosub1670:x=ps+4:gosub1670:goto1550
  149. 1460 if(a$<>"[145]")or(ps>12)then1490
  150. 1470 gd(ps)=gd(ps+4):gd(ps+4)=0:ps=ps+4:q=-1
  151. 1480 x=ps:gosub1670:x=ps-4:gosub1670:goto1550
  152. 1490 if(a$<>"")or((psand3)=1)then1520
  153. 1500 gd(ps)=gd(ps-1):gd(ps-1)=0:ps=ps-1:q=-1
  154. 1510 x=ps:gosub1670:x=ps+1:gosub1670:goto1550
  155. 1520 if(a$<>"[157]")or((psand3)=0)then1550
  156. 1530 gd(ps)=gd(ps+1):gd(ps+1)=0:ps=ps+1:q=-1
  157. 1540 x=ps:gosub1670:x=ps-1:gosub1670
  158. 1550 ifqthenmv=mv+1
  159. 1560 ifb$="4"then1580
  160. 1570 mv$=mid$(str$(mv),2):print"[159]"tab(35-len(mv$))mv$"[155]"
  161. 1580 return
  162. 1590 forz=1to20:a$=mid$(s$,z,1):gosub1430
  163. 1600 forx=1to400:next:next:forx=1to2000:next
  164. 1610 print""tab(11)"[156]@aaaaaaaaaaaaaaab"
  165. 1620 printtab(11)"[156]c[146][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]d"
  166. 1630 printtab(11)"[156]c[146][159][160]press[160]any[160]key[160][156]d"
  167. 1640 printtab(11)"[156]c[146][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]d"
  168. 1650 printtab(11)"[156]efffffffffffffffg"
  169. 1660 gosub2180:return
  170. 1670 print"":fora=0toint((x-1)/4):print"";:next:print"";
  171. 1680 fora=0tox-4*int((x-1)/4):print"";:next:printn$(gd(x)):return
  172. 1690 print"[154][147]@aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaab"
  173. 1700 print"c[146][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]d[146] "
  174. 1710 print"c[146][156][160][160][160][160][160][160][160][160]the[160]14-15[160]puzzle[160][160][160][160][160][160][160][160][160]d[146] "
  175. 1720 print"c[146][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]d[146] "
  176. 1730 print"c[146][159][160]this[160]game[160]is[160]based[160]on[160]the[160][160][160][160][160][160][160]d[146] "
  177. 1740 print"c[146][159][160]original[160]14-15[160]puzzle[160]invented[160][160]d[146] "
  178. 1750 print"c[146][159][160]by[160]sam[160]loyd[160]over[160]100[160]years[160]ago.[160]d[146] "
  179. 1760 print"c[146][159][160]the[160]object[160]is[160]to[160]place[160]all[160]of[160][160][160]d[146] "
  180. 1770 print"c[146][159][160]the[160]tiles[160]into[160]numerical[160]order[160][160]d[146] "
  181. 1780 print"c[146][159][160]from[160]1[160]to[160]15.[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]d[146] "
  182. 1790 print"c[146][159][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]d[146] "
  183. 1800 print"c[146][159][160]the[160]only[160]difference[160]between[160][160][160][160][160]d[146] "
  184. 1810 print"c[146][159][160]this[160]puzzle[160]and[160]the[160]original[160][160][160][160]d[146] "
  185. 1820 print"c[146][159][160]is[160]that[160]the[160]space[160]does[160]not[160][160][160][160][160][160]d[146] "
  186. 1830 print"c[146][159][160]count[160]and[160]may[160]be[160]placed[160][160][160][160][160][160][160][160][160]d[146] "
  187. 1840 print"c[146][159][160]anywhere[160]as[160]long[160]as[160]all[160]of[160]the[160][160]d[146] "
  188. 1850 print"c[146][159][160]other[160]tiles[160]are[160]in[160]numerical[160][160][160][160]d[146] "
  189. 1860 print"c[146][159][160]order.[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]d[146] "
  190. 1870 print"c[146][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]d[146] "
  191. 1880 print"c[146][158][160][160][160][160]press[160]any[160]key[160]to[160]continue[160][160][160][160]d[146] "
  192. 1890 print"c[146][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]d[146] "
  193. 1900 print"efffffffffffffffffffffffffffffffffg[146] "
  194. 1910 print"[146]                                   "
  195. 1920 gosub2180
  196. 1930 print"[154][147]@aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaab"
  197. 1940 print"c[146][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]d[146] "
  198. 1950 print"c[146][156][160][160][160][160][160][160][160][160]the[160]14-15[160]puzzle[160][160][160][160][160][160][160][160][160]d[146] "
  199. 1960 print"c[146][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]d[146] "
  200. 1970 print"c[146][159][160]this[160]program[160]also[160]has[160]a[160]reverse[160]d[146] "
  201. 1980 print"c[146][159][160]puzzle,[160]where[160]all[160]of[160]the[160]tiles[160][160]d[146] "
  202. 1990 print"c[146][159][160]start[160]in[160]reverse[160]order.[160]the[160][160][160][160][160]d[146] "
  203. 2000 print"c[146][159][160]best[160]5[160]times[160]and[160]scores[160]are[160][160][160][160][160]d[146] "
  204. 2010 print"c[146][159][160]saved[160]for[160]this[160]puzzle.[160]there[160]is[160]d[146] "
  205. 2020 print"c[146][159][160]also[160]a[160]random[160]start[160]available[160][160][160]d[146] "
  206. 2030 print"c[146][159][160]so[160]that[160]you[160]can[160]still[160]have[160]a[160][160][160][160]d[146] "
  207. 2040 print"c[146][159][160]challenge[160]when[160]you[160]have[160]solved[160][160]d[146] "
  208. 2050 print"c[146][159][160]both[160]puzzles.[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]d[146] "
  209. 2060 print"c[146][159][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]d[146] "
  210. 2070 print"c[146][159][160]to[160]play,[160]a[160]joystick[160]in[160]port[160]two[160]d[146] "
  211. 2080 print"c[146][159][160]or[160]the[160]cursor[160]keys[160]are[160]used[160]to[160][160]d[146] "
  212. 2090 print"c[146][159][160]push[160]tiles[160]into[160]the[160]empty[160][160][160][160][160][160][160]d[146] "
  213. 2100 print"c[146][159][160]space.[160]fire[160]button[160]or[160]return[160][160][160][160]d[146] "
  214. 2110 print"c[146][159][160]turns[160]off[160]the[160]timer.[160][160][160][160][160][160][160][160][160][160][160][160]d[146] "
  215. 2120 print"c[146][159][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]d[146] "
  216. 2130 print"c[146][158][160][160][160][160]press[160]any[160]key[160]to[160]continue[160][160][160][160]d[146] "
  217. 2140 print"c[146][159][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]d[146] "
  218. 2150 print"efffffffffffffffffffffffffffffffffg[146] "
  219. 2160 print"[146]                                   "
  220. 2170 gosub2180:return
  221. 2180 js=peek(56320)and31:getz$:ifjs=31andz$=""then2180
  222. 2190 ifjs=15thenz$=chr$(13)
  223. 2200 ifjs=29thenz$=""
  224. 2210 ifjs=30thenz$="[145]"
  225. 2220 ifjs=23thenz$=""
  226. 2230 ifjs=27thenz$="[157]"
  227. 2240 return
  228. 3000 print"[147]":poke648,4:print"[147]":poke56576,(peek(56576)and252)or3:poke53272,21
  229. 3010 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  230. 3020 ifer<>63thenend
  231. 3030 print"[147][144]load"chr$(34)"hello connect"chr$(34)",8"
  232. 3040 print"run"
  233. 3050 poke631,13:poke632,13:poke198,2:end
  234. 10000 open15,8,15,"s0:14-15":close15:save"14-15",8:end
  235.