home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 60 / 060.d81 / capture (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  8KB  |  211 lines
  1. 10 print"[147]":gosub61000:goto130
  2. 20 ifl>1thenreturn
  3. 30 pokevi,13:pokew,32:sysn:ifti$>"000100"thenprint" 0":te=1:return
  4. 40 print""60-val(ti$)-40*(ti$=>"000100")"[157] ":te=0:return
  5. 50 s=54272:pokes+24,15:pokes,251:pokes+1,5:pokes+5,17:pokes+6,74
  6. 60 pokes+4,129:fore=1to175:next
  7. 70 pokes+4,128:return
  8. 80 rr=0
  9. 82 poke214,18:print:print"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  10. 83 print"[221]   (p)lay again   (l)oadstar   [221]"
  11. 84 print"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  12. 85 geta$:ifa$="p"thenrun130
  13. 86 ifa$="l"then60000
  14. 90 fork=1to30:pokelc-120*(wi=2)+asc(mid$(f$,k,1)),m:rem     ifpeek(197)=4thenrun
  15. 100 rem   ifpeek(197)=3thenrr=1
  16. 110 next:ifrr=1thenifm=7thenrs=1:goto310
  17. 120 m=13-m:goto85
  18. 130 dimc(8,8):lc=55480:m=7
  19. 140 f$="rstuvwxyz[\]^[134][174][173][172][171][170][169][168][167][166][165][164][163][162][161]"+chr$(121)+"q"
  20. 150 e$="[157][213][195][195][195][195][195][195][195][195][195][195][195][195][201][157][157][157][157][157][157][157][157][157][157][157][157][157][157][194][157][202][195][195][195][195][195][195][195][195][195][195][195][195][203][145][157][194]":w=782:vi=781
  21. 160 n=65520:poke53264,0:poke53287,1:poke53288,0:v=53269
  22. 170 poke2040,254:poke2041,254
  23. 180 f$(1)="1[146][156]-player-2[157][157][157][157][157][157][157][157][157][157]":f$(2)="1[156]-player-2[146][157][157][157][157][157][157][157][157][157][157]"
  24. 190 j8=56321:a$="[157][157][157][157][157][157][157][157]":c$(1)="[156] timed  ":c$(2)="[156] normal "
  25. 200 c$(3)="[156] turns  ":c$(4)="[156]together"
  26. 210 a$(1)="cz":a$(2)="dmjggpse":a$(3)="efenpsf":a$(4)="ks":fork=1to4:h$=""
  27. 220 forj=1tolen(a$(k)):h$=h$+chr$(asc(mid$(a$(k),j,1))-1)
  28. 230 next:a$(k)=h$:next:j9=56320
  29. 240 g$(1)="[156]timed   ":g$(2)="[156]normal  ":g$(3)="[156]turns   ":g$(4)=c$(4)
  30. 250 e$(1)="":d$(1)="[146]":g$="12345678":fork=1to8
  31. 260 b$(k)="[146][207][183][208][157][157][157][180]"+mid$(g$,k,1)+"[170][157][157][157][204][175][186]"
  32. 270 next:b$="[207][183][208][157][157][157][180] [170][157][157][157][204][175][186][145][145][146]"
  33. 280 c$="[158][195][195][195][195][195][195][195][195][195][195][195][195]":d$="[157][157][157][157][157][157][157][157][157][157][157][157][157][157]"
  34. 290 pokev,0:ifpeek(16370)=64then310
  35. 300 fork=1to704:reada:poke15679+k,a:next
  36. 310 x=int(rnd(1)*8)+1:y=int(rnd(1)*8)+1:c(x,y)=9
  37. 320 fork=1to8:forj=1to8:ifk=xthenifj=ythen400
  38. 330 t=int(rnd(1)*8)+1:ift>6thenc(k,j)=11:goto400
  39. 340 ift>4thengoto360
  40. 350 o=abs(x-k):p=abs(y-j):c(k,j)=p*(o<=p)+o*(o>p):goto400
  41. 360 ifk=xthenc(k,j)=-5*(j<y)-6*(j>y):goto400
  42. 370 ifj=ythenc(k,j)=-8*(k<x)-7*(k>x):goto400
  43. 380 ifk<xthenc(k,j)=-4*(j<y)-3*(j>y):goto400
  44. 390 c(k,j)=-(j<y)-2*(j>y)
  45. 400 nextj:nextk:pokev,0:poke53248,23:poke53249,52:poke53250,191
  46. 410 poke53251,220:ifw1thenw1=0:ti$=ty$:goto730
  47. 415 poke53281,14:poke53280,6:printchr$(9)chr$(142)""
  48. 420 print"[147]";:fork=1to8:forj=1to8:printb$;:next:ifrs=0then450
  49. 430 pokew,32:pokevi,13:sysn:print"   ";:pokew,33:pokevi,7:sysn:print"   "
  50. 440 pokew,33:pokevi,10:sysn:print"   ":tq=0:s1=0:s2=0:rs=0:goto730
  51. 450 print"":next:print"[158][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"tab(24);
  52. 460 fork=1to24:print"[170][157]";:next
  53. 470 print""tab(25)"[158][213][195][195][195][195][195][178][195][195][195][195][195][195][201]"d$"[213][201][213][201][213][201][194][201][201][176][201][213][201] "d$"[194] [171][179][171][203][194][194][194][194][179][171]  ";
  54. 480 printd$"[202][203][203][203][203] [194][202][203][203][202][202][203] "d$"[213][195][195][195][195][195][203][157][157][157][157][157][157][157][173]"c$"[195]"d$"[213]"c$"[201]"d$"[194]scor";
  55. 490 print"e:      [158][194]"d$"[202]"c$"[203]"d$"[213]"c$"[201]"d$"[194]score:      [158][194]"d$"[202]"c$"[203]";
  56. 500 printd$"[213]"c$"[201]"d$"[194]time:       [158][194]"d$"[202]"c$"[203]"d$"[213]"c$"[201]"d$"[194] [156]1-pla";
  57. 510 print"yer-2 [158][194]"d$"[171]"c$"[179]"d$"[194]  "g$(1)"  [158][194]"d$"[194]  "g$(2)"  [158][194]"d$;
  58. 520 print"[194]  "g$(3)"  [158][194]"d$"[194]  "g$(4)"  [158][194]"d$"[202]"c$;
  59. 530 print"[203]"d$"              "d$"[145][145][145][145][145][145][145][145]";
  60. 540 pl=1
  61. 550 printf$(pl);:jy=peek(j8):if(jyand16)=0then590
  62. 560 if(jyand8)=0thenpl=2
  63. 570 if(jyand4)=0thenpl=1
  64. 580 goto550
  65. 590 if(peek(j8)and16)=0then590
  66. 600 print"";:ifpl=1thenlo=1:u=2:ll=0:r=3:l=1
  67. 610 ifpl=2thenlo=3:u=4:ll=2:r=5:l=3
  68. 620 l=-lo*(l=r)-u*(l=ll)-l*(l<randl>ll)
  69. 630 q=0:forz=1to4:q=-(z=l):printe$(q)g$(z)d$(q)a$;:next:print"[145][145][145][145]";
  70. 640 ifl=0thenprint"[157][145][145]";:goto540
  71. 650 ifpeek(197)=4thenl=0:goto630
  72. 660 jy=peek(j8):if(jyand16)=0then700
  73. 670 if(jyand1)=0thenl=l-1
  74. 680 if(jyand2)=0thenl=l+1
  75. 690 goto620
  76. 700 print"[157][157][157][145][145][145][158][213]"c$"[201]"d$"[194] [156]players:"pl"[158][194]"d$"[171]"c$"[179]"d$"[194]  "c$(l)"  ";
  77. 710 print"[158][194]"d$"[171]"c$"[179]"d$"[194]     [156]"a$(1)"     [158][194]"d$"[194]  [156]"a$(2)"  [158][194]"d$"[194]";
  78. 720 print" [156]"a$(3)" "a$(4)" [158][194]"d$"[202]"c$"[203]";
  79. 730 if(peek(j8)and16)=0then730
  80. 740 j=1:k=1:k1=8:j1=8:pokev,0:poke53248,23:poke53249,52
  81. 750 poke53250,191:poke53251,220:pokev,1
  82. 760 ifl=3thenh=1
  83. 770 u1=1:u2=0:ifpl=2thenpokev,3
  84. 780 iftq=0thenti$="000000":tq=1
  85. 790 ifpeek(197)=4thenpokev,0:run
  86. 800 ifpeek(197)=3thenpokev,0:rs=1:goto310
  87. 810 gosub20:iftethen80
  88. 820 a=peek(j8):b=peek(j9):ifl=3andu1=1then880
  89. 830 if(aand16)=0theniff=0then880
  90. 840 if(aand16)=16thenf=0
  91. 850 h=1
  92. 860 poke2040,254:pokev,peek(v)or1:pokevi,(k-1)*3
  93. 870 pokew,(j-1)*3:sysn:printb$;:iffthen980
  94. 880 ifpl=1oru2=1then940
  95. 890 if(band16)=0thenifg=0then940
  96. 900 if(band16)=16theng=0
  97. 910 i=1
  98. 920 poke2041,254:pokev,peek(v)or2:pokevi,(k1-1)*3
  99. 930 pokew,(j1-1)*3:sysn:printb$;
  100. 940 gosub20:iftethen80
  101. 950 if(aand16)+(band16)=0then1100
  102. 960 if(aand16)=0or(u1=0andl=3)then990
  103. 970 kk=k:jj=j
  104. 980 k=k-((aand2)=0)+((aand1)=0):j=j-((aand8)=0)+((aand4)=0)
  105. 990 if(band16)=0orpl=1or(u2=0andl=3)then1020
  106. 1000 d=k1:k1=k1-((band2)=0)+((band1)=0):c=j1:j1=j1-((band8)=0)+((band4)=0)
  107. 1010 j1=j1+8*(j1=9)-8*(j1=0):k1=k1+8*(k1=9)-8*(k1=0)
  108. 1020 k=k+8*(k=9)-8*(k=0):j=j+8*(j=9)-8*(j=0):ifd=k1andc=j1then1060
  109. 1030 d=k1:c=j1:pokev,peek(v)andnot2
  110. 1040 poke53250,23+(j1-1)*24:poke53251,52+(k1-1)*24
  111. 1050 ifpl<>1thenpokev,peek(v)or2
  112. 1060 ifkk=kandj=jjthen1090
  113. 1070 kk=k:jj=j:pokev,peek(v)andnot1:poke53248,23+(j-1)*24
  114. 1080 poke53249,52+(k-1)*24:pokev,peek(v)or1
  115. 1090 gosub20:iftethen80
  116. 1100 if(aand16)+(band16)=32then790
  117. 1110 l1=0:p1=c(k,j):if(aand16)=0andf=0thenl1=1
  118. 1120 ifpl=1then1140
  119. 1130 l2=0:p2=c(k1,j1):if(band16)=0thenifg=0thenl2=1
  120. 1140 ifl1then1270
  121. 1150 ifl2=0orpl=1then790
  122. 1160 ifl=3thenifu2=0then790
  123. 1170 u2=0:u1=1:ifi=0then1190
  124. 1180 i=0:s2=s2+1:pokevi,10:pokew,33:sysn:print"[144]"s2
  125. 1190 gosub20:iftethen80
  126. 1200 ifp2>0then1230
  127. 1210 pokevi,(k1-1)*3:pokew,(j1-1)*3:sysn
  128. 1220 printb$(abs(p2));:pokev,peek(v)andnot2:goto790
  129. 1230 poke2041,244+p2:ifp2<9then790
  130. 1240 ifp2=11then1260
  131. 1250 wi=2:goto80
  132. 1260 gosub50:k1=8:j1=8:g=1:goto920
  133. 1270 ifl=3thenifu1=0then1150
  134. 1280 u1=0:u2=1:ifh=0then1310
  135. 1290 h=0:ifl=1then1310
  136. 1300 s1=s1+1:pokevi,7:pokew,33:sysn:print""s1:ifw1thenreturn
  137. 1310 gosub20:iftethen80
  138. 1320 ifp1>0then1350
  139. 1330 pokevi,(k-1)*3:pokew,(j-1)*3:sysn:printb$(abs(p1));
  140. 1340 pokev,peek(v)andnot1:goto1150
  141. 1350 poke2040,244+p1:ifp1<9then1150
  142. 1360 ifp1=11then1390
  143. 1370 w1=0:ifl=1thenty$=ti$:w1=1:gosub1300:goto310
  144. 1380 goto80
  145. 1390 gosub50:k=1:j=1:f=1:goto860
  146. 1400 data 0,0,0,0,0,0,0,31,252,0,7,252,0,1,252,0,0
  147. 1410 data 252,0,1,188,0,3,28,0,6,12,0,12,4,0,24,0,0
  148. 1420 data 48,0,0,96,0,0,192,0,1,128,0,3,0,0,6,0,0
  149. 1430 data 12,0,0,24,0,0,0,0,0,0,0,0,0,0,0,0,0
  150. 1440 data 0,0,63,248,0,63,224,0,63,128,0,63,0,0,61,128,0
  151. 1450 data 56,192,0,48,96,0,32,48,0,0,24,0,0,12,0,0,6
  152. 1460 data 0,0,3,0,0,1,128,0,0,192,0,0,96,0,0,48,0
  153. 1470 data 0,24,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  154. 1480 data 24,0,0,48,0,0,96,0,0,192,0,1,128,0,3,0,0
  155. 1490 data 6,0,0,12,0,0,24,0,32,48,0,48,96,0,56,192,0
  156. 1500 data 61,128,0,63,0,0,63,128,0,63,224,0,63,248,0,0,0
  157. 1