home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 89 / 089.d81 / 14-15 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  9KB  |  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 pri