home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 August / 1993-08.d64 / chase (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-01-01  |  2.0 KB  |  79 lines
  1. 10 rem copyright 1993 - compute publications inlt ltd - all rights reserved
  2. 12 ifa=0thena=1:load"chase ml",8,1
  3. 14 poke56,39:clr:a=rnd(-ti):c=65520
  4. 16 s=54272:d=56576:e=53272:f=53265
  5. 18 pokef,0:poke53280,0:poke53281,0
  6. 20 forl=0to23:pokes+l,0:next
  7. 22 print"[147][153]";:a$="!#$%&()*+,"+chr$(34)
  8. 24 pokes+24,15:pokes+18,128
  9. 26 pokes+6,255:pokes+2,255:pokes+4,83
  10. 28 pokes+15,rnd(0)*5+1
  11. 30 poked,peek(d)or3:pokee,28:pokef,27
  12. 32 forw=0to3:forl=0tornd(0)*4
  13. 34 printmid$(a$,int(rnd(0)*11+1),1);
  14. 36 pokes+1,peek(s+27)/8:fort=1to50:next
  15. 38 nextl:print" ";:nextw
  16. 40 printchr$(13)chr$(145)tab(18);
  17. 42 readb$:ifb$<>"z"thenprintb$:goto32
  18. 44 readb$:printb$:pokes+18,0:pokes+4,0
  19. 46 poke198,0:wait198,1
  20. 48 :
  21. 50 poke820,0:poke821,0:sys10133
  22. 52 pokef,0:print"[147]"
  23. 54 poke781,9:poke782,9:poke783,0:sysc
  24. 56 printtab(9)"//////////////////////"
  25. 58 printtab(9)"player one's score:";
  26. 60 a=peek(820):printa:print
  27. 62 printtab(9)"[158]player two's score:";
  28. 64 b=peek(821):printb:print:printtab(9)
  29. 66 ifa>bthenprint"   player one wins["
  30. 68 ifa<bthenprint"   player two wins["
  31. 70 ifa=bthenprint"  the game is tied."
  32. 72 printtab(9)"//////////////////////"
  33. 74 poke781,24:poke782,8:poke783,0:sysc
  34. 76 a$="press fire to play again"
  35. 78 poked,peek(d)or3:pokee,28:pokef,27
  36. 80 printtab(8)"";
  37. 82 a=40:gosub90:ifb=1then50
  38. 84 printtab(8)"[144]";
  39. 86 a=10:gosub90:ifb=1then50
  40. 88 goto80
  41. 90 printa$;"[145]":b=0:x=1
  42. 92 if(peek(56320)and16)=0thenb=1
  43. 94 if(peek(56321)and16)=0thenb=1
  44. 96 ifb=0thenx=x+1:ifx<>athen92
  45. 98 return
  46. 100 data live broadcast with
  47. 102 data gazette's tachyon
  48. 104 data impulse copyright
  49. 106 data circa 1993. . .@@@@@@@
  50. 108 data greetings from the
  51. 110 data planet +#$%*&&$().@@@@
  52. 112 data we are well pleased
  53. 114 data to bring you this
  54. 116 data game played by the
  55. 118 data cool guys and gals
  56. 120 data on inhabited planets
  57. 122 data throughout the known
  58. 124 data stellar system.@@@@@@@
  59. 126 data within moments this
  60. 128 data two player marvel
  61. 130 data will be transferred
  62. 132 data to your remote 64.@@@@
  63. 134 data fortunately enough
  64. 136 data for you- we have made
  65. 138 data it possible to play
  66. 140 data on your primitive-
  67. 142 data albeit juggernaut-
  68. 144 data computer interface.@@@
  69. 146 data coincidentally- the
  70. 148 data authors also happen
  71. 150 data to be among you.@@@@@@
  72. 152 data their name's are. . .
  73. 154 data todd piltingsrud and
  74. 156 data jon  piltingsrud.@@@@@
  75. 158 data if you happen to run
  76. 160 data into them- tell them
  77. 162 data to phone home.@@@@@@@@
  78. 164 data z,. . .end of message
  79.