home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1991 December / 1991-12.d64 / desdemona (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  4KB  |  103 lines
  1. 10 poke56,140:clr:dimgb(9,9),dx(7),dy(7),p(7)
  2. 20 def fn ps(c)=55221+3*x+120*y
  3. 30 def fn xs(x)=61+x*24
  4. 40 def fn ys(y)=31+y*24
  5. 50 poke53281,3:poke53280,6
  6. 60 poke53280,6:printchr$(142)"[147]";
  7. 65 printtab(5)"[176][195][195][201]
  8. 70 [153][163]5)"peekget peek        peek
  9. 80 printtab(5)"[194][161] [194][213][195][201][213][195][201][213][195][194][213][195][201][213][201][201][213][195][201][213][201][213][195][201]
  10. 90 [153][163]5)"peekget peekpeeklen(NULL)mid$lenright$peek peekpeeklen(NULL)peekpeekpeekpeek peekpeekpeekpeek peek
  11. 95 printtab(5)"[173][195][195][203][202][195][203][202][195][203][202][195][203][202][195][203][194][194][194][202][195][203][194][194][202][195][202]
  12. 110 [153][163]12)"tab(usrfrenewposusrfrefrefrefrefrefreusrandposnewwaitfreusrtab("
  13. 120 [153][163]19)"by matt morgan"
  14. 125 [133]"oncloseclosecloseclosecloseclosecloseclosecloseclosehow many players  1cmdcmdcmd";a$:[139]a$[177]"2"[176]a$[179]"0"[167] 125
  15. 130 [151]53270,[194](53270)[176]16:[151]53282,7:[151]53283,9:c[178][171]1:[141] 850
  16. 150 pl[178][197](a$)
  17. 180 [151]53265,11:[153]"load";:[129]y[178]1[164]25:a[178]35839[170]40[172]y:[151]a,160:[151]a[170]19456,6:[130]
  18. 190 [153][163]7)"listwaitortantan=tantan=tantan=tantan=tantan=tantan=tantan=tantan^":[129]t[178]1[164]8:[129]u[178]1[164]2
  19. 200 [153][163]7)"(NULL)  (NULL)  (NULL)  (NULL)  (NULL)  (NULL)  (NULL)  (NULL)  (NULL)" :[130]
  20. 210 [153][163]7)"-tantan(NULL)tantan(NULL)tantan(NULL)tantan(NULL)tantan(NULL)tantan(NULL)tantan(NULL)tantan<";:[139]t[179][177]8[167][153]
  21. 220 [130]:[153]"on":[153][163]7)"/tantan>tantan>tantan>tantan>tantan>tantan>tantan>tantanexp"
  22. 230 l$[178]"cmdcmdcmdcmdcmdcmdcmd":[153]ws$"cmdcmdononwait#     wait%"l$" (NULL)hite "l$"       "l$"wait$     wait&"
  23. 240 [153]bs$"cmdcmdononwait#     wait%"l$" peeklack "l$"       "l$"wait$     wait&":[151]36203,122
  24. 250 [151]36235,122:ws[178]0:bs[178]0:x[178]4:y[178]4:c[178]1:[141]670:y[178]5:c[178]0:[141]670
  25. 260 x[178]5:c[178]1:[141]670:y[178]4:c[178]0:[141]670:pt[178]1:[151]53265,27:sx[178]1:sy[178]1
  26. 270 [153]ws$ws"cmd "bs$bs"cmd ":t[178]ws[170]bs:[139] pt[178]1 [167][153]ws$"onon";:[137]290
  27. 280 [153]bs$"onon";
  28. 290 [139]t[178]64[176]t[178]ws[176]t[178]bs[176]fp[178]2[176]nt[178]2[167]560
  29. 300 [151]647,pt:[151]204,0:[139](pt[178]0[175]pl[178]1)[176]pl[178]0[167][151]v[170]21,0:[141]490:[137]450
  30. 310 [151]v[170]21,1:j[178]56321:[139]pt[178]0[175]pl[178]2[167]j[178]j[171]1
  31. 320 [137]420
  32. 330 [139]([194](j)[175]16)[178]0[167]430
  33. 340 a$[178]"":[161]a$:[139]a$[178]"p"[167]pf[178]1:[141]490:[139]ll[167]440
  34. 350 [139]a$[178]"p"[167]450
  35. 360 [139]a$[178]"q"[167][151]v[170]21,0:[153]:fq[178]1:[137]470
  36. 370 o[178]15[171]([194](j)[175]15):[139]o[178]0[167]330
  37. 380 [139]o[178]1[175]sy[177]1[167]sy[178]sy[171]1
  38. 390 [139]o[178]2[175]sy[179]8[167]sy[178]sy[170]1
  39. 400 [139]o[178]4[175]sx[177]1[167]sx[178]sx[171]1
  40. 410 [139]o[178]8[175]sx[179]8[167]sx[178]sx[170]1
  41. 420 [151]v,[165] xs(sx):[151]v[170]1,[165] ys(sy):[137]330
  42. 430 x[178]sx:y[178]sy:[141]740:[139]ll[167]450
  43. 440 [151]ss[170]1,7:[151]ss[170]4,33:[129]q[178]1[164]500:[130]:[151]ss[170]4,0:[137]330
  44. 450 [151]ss[170]1,99:[151]ss[170]4,17:[129]q[178]1[164]99:[130]:[151]ss[170]4,0
  45. 460 [139]a$[179][177]"p"[167]nt[178]0:[141]820
  46. 470 pt[178]1[171]pt:[151]204,1:[151]36203,122:[151]36235,122:[139]fq[167]fq[178]0:[137]620
  47. 480 [137]270
  48. 490 bm[178]0:bx[178]0:by[178]0:qp[178]2[171]pt:a[178]9:[129]x[178]1[164]8:[129]y[178]1[164]8:[139]gb(x,y)[179][177]qp[167]540
  49. 500 z[178]x:r[178]y:[129]q[178].[164]7:x[178]z[170]dx(q):y[178]r[170]dy(q):[139]gb(x,y)[176]x[178]a[176]y[178]a[176]x[178].[176]y[178].[167]530
  50. 510 [141]740:[139]tt[177]bm[176](tt[178]bm[175][187](1)[177].5)[167]bm[178]tt:bx[178]x:by[178]y
  51. 520 [139]ll[175]pf[167]q[178]a:z[178]a:r[178]a:pf[178].
  52. 530 [130]:x[178]z:y[178]r
  53. 540 [130]:[130]:[139]bm[178]0[167]a$[178]"p":ll[178]0:nt[178]nt[170]1:[142]
  54. 550 a$[178]"":x[178]bx:y[178]by:[141]740:[142]
  55. 560 [151]v[170]21,0:wn[178]1:[139]bs[177]ws[167]wn[178]0
  56. 570 [139]bs[178]ws[167]wn[178]2
  57. 580 [145] wn[170]1 [141]640 ,650,660
  58. 590 [153]"atnnothercmdcmdcmdcmdcmdcmdgame?cmdcmdcmdcmdcmd((NULL)/(NULL))"
  59. 600 [161]a$:[139]a$[179][177]"n"[175]a$[179][177]"y"[167]600
  60. 610 [139]a$[178]"n"[167][158]64738
  61. 620 [151]49,[194](47):[151]50,[194](48):[134]gb(9,9),dx(7),dy(7),p(7)
  62. 630 [151]65,dl:[151]66,dh:[129]a[178]0[164]7:[135]dx(a),dy(a):[130]:[137]10
  63. 640 [153]"wait"[163]33)"stoppeeklackcmdcmdcmdcmdcmdwins!":[153][163]32);:[142]
  64. 650 [153]"wait(NULL)hitecmdcmdcmdcmdcmdwins!":[142]
  65. 660 [153]"waitatncmdcmdtieon"[163]32)"atncmdcmdtie":[142]
  66. 670 a[178][165] ps(c):b[178]gb(x,y)[171]1:[151]a,c:[151]a[170]1,c:[151]a[170]40,c:[151]a[170]41,c:a[178]a[171]19456
  67. 680 [151]a,35:[151]a[170]1,37:[151]a[170]41,38:[151]a[170]40,36:gb(x,y)[178]c[170]1
  68. 690 [139]b[178]1[167]ws[178]ws[171]1
  69. 700 [139]b[178]0[167]bs[178]bs[171]1
  70. 710 [139]c[178]1[167]ws[178]ws[170]1:[137]730
  71. 720 bs[178]bs[170]1
  72. 730 [142]
  73. 740 tt[178]0:ll[178]0:[139]gb(x,y)[167][142]
  74. 750 p[178]pt[170]1:o[178]2:[139]pt[167]o[178]pt
  75. 760 [129]l[178]0[164]7:p(l)[178]0:[139]gb(x[170]dx(l),y[170]dy(l))[179][177]o[167]810
  76. 770 tx[178]x[170]dx(l):ty[178]y[170]dy(l):co[178]0
  77. 780 co[178]co[170]1:tx[178]tx[170]dx(l):ty[178]ty[170]dy(l):[139]gb(tx,ty)[178]0[167]810
  78. 790 [139]gb(tx,ty)[178]p[167]ll[178]1:p(l)[178]co:tt[178]tt[170]co:[137]810
  79. 800 [137]780 
  80. 810 [130]:[142]
  81. 820 qx[178]x:qy[178]y:c[178]pt:[141]670:[129]l[178]0[164]7:[139]p(l)[178]0[167]840
  82. 830 x[178]qx:y[178]qy:[129]t[178]1[164]p(l):x[178]x[170]dx(l):y[178]y[170]dy(l):[141]670:[130]
  83. 840 [130]:[142]
  84. 850 [153]"load"[163]13)"(NULL)lease wait..."
  85. 860 [129] x[178]0[164]32:[135] j:[151]49152[170]x,j:[130]:[151]56334,[194](56334)[175]254
  86. 870 [151]1,[194](1)[175]251:[158]49152:[129]t[178]584[164]607:[151]40960[170]t,[194](53248[170]t):[130]
  87. 880 [129]t[178]680[164]687:[151]40960[170]t,[194](53248[170]t):[130]:[151]1,[194](1)[176]4
  88. 890 [151]56334,[194](56334)[176]1:[151]56578,[194](56578)[176]3
  89. 900 [151]648,140:[153]"load"[163]13)"(NULL)lease wait..."
  90. 910 [151]56576,([194](56576)[175]252)[176]1:[151]53272,56
  91. 920 [129] t[178]280[164]311:[135]a:[151]40960[170]t,a:[130]:[129]t[178]43011[164]43070:[151]t,255:[130]
  92. 930 [129]t[178]43008[164]43010:[151]t,0:[130]:dn$[178]"":rt$[178]"":[129]t[178]1[164]6:dn$[178]dn$[170]dn$:[130]
  93. 940 ws$[178]""[170][200](dn$,11)[170]"":bs$[178]""[170][200](dn$,12)[170]"cmdcmdcmdcmdcmdcmdstop"
  94. 950 q[178][184](0)[170][187]([171]ti[173]37):[129]t[178]41936[164]41943:[151]t,255:[130]:v[178]53248:[151]v[170]39,14
  95. 960 [151]v[170]27,1:[151]36856,160:dl[178][194](65):dh[178][194](66):[129]a[178]0[164]7
  96. 970 [135]dx(a),dy(a):[130]:ss[178]54272:[129]t[178]ss[164]ss[170]23:[151]t,0:[130]:[151]ss[170]24,15
  97. 980 [151]ss[170]5,15:[151]ss[170]6,240:[142]
  98. 990 [131] 169,0,133,253,133,251,169,216,133,252,169,160,133,254,162,8,160,0
  99. 1000 [131] 177,251,145,253,136,208,249,230,252,230,254,202,208,240,96,0,3,15,31
  100. 1010 [131] 63,127,127,255,255,127,127,63,31,15,3,0,0,192,240,248,252,254,254
  101. 1020 [131] 255,255,254,254,252,248,240,192,0
  102. 1030 [131] 0,-1,1,-1,1,0,1,1,0,1,-1,1,-1,0,-1,-1
  103.