home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 214 / 214.d81 / persuasion (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  94 lines
  1. 5 print"[147]":    poke53265,27
  2. 10 poke 53269,0:poke 53280,7:poke 53281,7:print"[147]"
  3. 20 print"[161]  [146][157][157][157][161]  [146][157][157][157][161][146][161][161][146][161][157][157][157][157][161][146][161][161][146][161][157][157][157][157][161][146][161][161][146][161][157][157][157][157][161][146][161][161][146][161]";
  4. 30 print"[157][157][157][157][161]  [146][157][157][157][161]  [146][157][157][157][161][146][161][157][157][161][146][161][157][157][161][146][161][157][157][161][146][161][157][157][161][146][161][157][157][161][146][161][145][145][145][145][145][145]"
  5. 40 print"[145][161][146][161] [161]  [146][161][161]  [146]    [146] [161][146][161][161][146][161] [161][146][161]    [146]    [146]    [146] [161][146][161][161][146][161] [161]";
  6. 50 print"[146][161] [161][146][161]  [161][146][161][161][146][161][161][146][161][161][146][161][161][146][161][161][146][161]   [146] [161][146][161][161][146][161] [161][146][161] [161][146][161][161][146][161][161] [161][146][161]";
  7. 60 print" [161][146][161] [161][146][161]  [161][146][161][161][146][161][161][146][161]  [161][146][161][161][146][161][161][146][161][161][146][161][161][146][161]   [161][146][161] [161][146][161][161][146][161][161]  ";
  8. 70 print"[146][161] [161][146][161] [161] [146][161] [161]  [146]    [146] [161][146][161][161][146][161][161]  [146][161]   [146]  [161][146][161] [161][146][161][161][146][161][161]  [146][161]";
  9. 80 print" [161][146][161] [161][146][161]  [161] [146][161]   [161][146][161][161][146][161][161][146][161][161][146][161][161][146][161]  [161][146][161] [161][146][161] [161][146][161][161][146][161][161][146][161] [146]";
  10. 90 print"[161] [161][146][161] [161][146][161]  [161][146][161] [146] [161][146][161][161][146][161][161][146][161][161][146][161][161][146][161][161][146][161][161][146][161][161][146][161] [161][146][161] [161][146][161][161][146][161]";
  11. 100 print"[161][146][161][161][146][161] [161][146][161] [161]  [146][161][161][146][161][161][146][161]   [146]    [146] [161][146][161][161][146][161]   [146]    [146]    [146] ";
  12. 110 print"[161][146][161][161][146][161]"chr$(8)
  13. 120 poke 53269,0:poke 53249,0:poke 53251,0:pl=1
  14. 130 for i=828 to 892:read a:poke i,a:next
  15. 140 dim c(1,15):for a=1to 6:read p:read c(0,p),c(1,p):next:for a=0 to 6
  16. 150 read x1(a),x2(a):next:for a=896 to 959:read b:poke a,b:next:poke 2040,14
  17. 160 poke 2041,14:poke 53269,3:x(0)=5:y(0)=0:x(1)=5:y(1)=6:w(0)=6:w(1)=11
  18. 170 poke 53288,7:poke 53287,0
  19. 180 print"[147]":sys 828:pc=1063:cp=55335
  20. 190 dn$="[151]       ":d$="p[157]e[157]r[157]s[157]u[157]a[157]s[157]i[157]o[157]n"
  21. 200 e$=" [157] [157] [157] [157] [157] [157] [157] [157] [157] "
  22. 210 a$="  [157][157]  [146]":b$="[158][206]  [205]":c$="[158][205]  [206]":sp=13:ac=3:for x=1 to 4:printspc(sp);
  23. 220 for i=1 to ac:printa$"[157][157][157]"b$"[145][145]   ";:next:sp=sp-3:ac=ac+1:print"":nextx
  24. 230 goto 260
  25. 240 sp=sp+6:ac=ac-2:print"[145][145]":for x=1 to 3:print spc(sp);:for i=1 to ac
  26. 250 print a$"[157][157][157]"b$"[145][145]   ";:next:sp=sp+3:ac=ac-1:print"":next
  27. 260 sp=sp+5:ac=ac-2:print"[145][145][145]":for i=1 to 3:print spc(sp);:for x=1 to ac
  28. 270 print c$"[157][157][157]"a$"   [145][145]";:next:sp=sp+3:ac=ac-1:print"":next
  29. 280 print"                                       ":mt$=" [146]":poke pc,160
  30. 290 poke cp,6:t=12:m=11:ae=14:for z=1 to 10
  31. 300 for i=1 to t:print mt$;:next:print"[169]"spc(ae);:print"[223]";
  32. 310 for i=1 to m:print mt$;:next
  33. 320 pc=pc+40:cp=cp+40:poke pc,160:poke cp,6:t=t-1:m=m-1:ae=ae+2:print
  34. 330 print"[145]":next:print"   "spc(34)"  [146]":print:poke pc+40,160:poke cp+40,6
  35. 340 poke pc+80,160:poke cp+80,11:pc=pc+80:cp=cp+80:print"[145][145]";
  36. 350 print"[151]   "spc(34)"  [146]":t=t+1:m=m+1:ae=ae-2:for z=1 to 10:for i=1 tot
  37. 360 print mt$;:next:print"[223]"spc(ae);:print"[169]";:for i=1 to m:print mt$;:next
  38. 370 pc=pc+40:cp=cp+40:poke pc,160:poke cp,11:t=t+1:m=m+1:ae=ae-2:print:print"[145]"
  39. 380 next:print"                                       "
  40. 390 print"                                       "
  41. 400 poke 1983,160:poke 2023,160:poke 56255,11:poke 56295,11
  42. 410 poke 53281,0:sp=53248:print" north[157][157][157][157]"sc(0)"[157] "
  43. 420 print"[151] south[157][157][157][157]"sc(1)"[157] "
  44. 430 jx(5)=-1:jy(5)=-1:jx(6)=-1:jy(6)=1:jx(9)=1:jy(9)=-1:jx(10)=1:jy(10)=1
  45. 440 gosub 730
  46. 450 pl=-(pl=0):ts=peek(53287):poke 53287,peek(53288):poke 53288,ts
  47. 460 ifpl=1thenpf=11:print""spc(39)e$:print"[151]"spc(39);:goto 480
  48. 470 print"[151]"spc(39)e$:pf=6:print""spc(39);
  49. 480 poke 646,pf:print d$""
  50. 490 jv=peek(56320):j=15-(jvand15):x=x(pl):y=y(pl):x=x+jx(j):y=y+jy(j)
  51. 500 if y<0 or y>6 then 490
  52. 510 if x<x1(y) or x>x2(y) or jy(j)=0 then 490
  53. 520 x(pl)=x:y(pl)=y:s=55380+x*3+y*120:c=peek(s)and15:qq=1:gosub 730
  54. 530 if c(pl,c)=w(pl) then sc(pl)=sc(pl)+1:qq=2
  55. 540 if c(pl,c)=2 then sc(pl)=sc(pl)-1
  56. 550 gosub 690
  57. 560 if c(pl,c)=15 then poke s,15:poke s+1,15:poke s+40,11:poke s+41,11:goto 590
  58. 570 if c(pl,c)=14 then poke s,14:poke s+1,14:poke s+40,6:poke s+41,6:goto 590
  59. 580 for a=0 to 1:for b=0 to 1:poke s+a+b*40,c(pl,c):nextb,a
  60. 590 print" north[157][157][157][157]"sc(0)"[157] "
  61. 600 print"[151] south[157][157][157][157]"sc(1)"[157] "
  62. 610 if sc(0)=15 and sc(1)=15 then 680
  63. 620 if sc(0)=16 or sc(1)=16 then 640
  64. 630 goto 450
  65. 640 if sc(1)>sc(0) then printdn$" the south is the winner            ":goto660
  66. 650 print dn$" the north is the winner            "
  67. 660 print dn$"[157]press any key to play again":poke 198,0:wait 198,1
  68. 670 print"[147]":poke 53281,7:run 120
  69. 680 print dn$"        it's a tie":goto 660
  70. 690 for o=1 to qq:for l=54272 to 54295
  71. 700 poke l,0:next:poke 54296,15:poke 54277,8:poke 54278,255:poke 54276,23
  72. 710 poke 54287,40:poke 54278,15:for i=1 to 10:poke 54273,i:nexti,o:return
  73. 720 poke 646,pf:return
  74. 730 h1=51+x(0)*24:h2=51+x(1)*24:poke sp+1,0:poke sp+3,0
  75. 740 poke sp,h1 and 255:poke sp+2,h2 and 255:ms=int(h1/255)+2*int(h2/255)
  76. 750 poke sp+16,ms:poke sp+1,64+y(0)*24:poke sp+3,64+y(1)*24:return
  77. 760 data 169,27,141,17,208,169,127,141,13,220,169
  78. 770 data 86,141,20,3,169,3,141,21,3,169,129
  79. 780 data 141,26,208,96,169,1,141,25,208,162,5
  80. 790 data 160,11,173,18,208,201,10,176,4,162,146
  81. 800 data 160,6,140,32,208,142,18,208,173,13,220
  82. 810 data 41,1,240,3,76,49,234,76,188,254
  83. 820 data 2,5,5,5,14,15,14,6,5,15,5,11,6,2,6,11,11
  84. 830 data 2,3,7,2,8,1,9,0,10,1,9,2,8,3,7
  85. 840 data 0,0,0,0,0,0,31,255
  86. 850 data 252,31,255,252,28,0,28,28
  87. 860 data 255,156,28,193,156,28,193,156
  88. 870 data 28,193,156,28,193,156,28,255
  89. 880 data 156,28,192,28,28,192,28,28
  90. 890 data 192,28,28,192,28,28,192,28
  91. 900 data 28,0,28,31,255,252,31,255
  92. 910 data 252,0,0,0,0,0,0,0
  93. 10000 d=peek(186):n$="persuasion":open15,d,15,"s0:"+n$:close15:saven$,d:end
  94.