home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1985 Spring / rerun-1985-spring.d64 / tag (.txt) < prev   
Commodore BASIC  |  2022-09-20  |  4KB  |  121 lines
  1. 0 rem tag program by gerald coddington (214-725-5489)
  2. 10 printchr$(142):printchr$(8):poke53280,0:poke53281,0:sr=1:goto90
  3. 20 pokev+16,16:pokev+43,ff:pokev+8,40:pokev+9,150
  4. 30 print"                             it";
  5. 40 print"                                 [163][163]"
  6. 50 print"                                 time[157][157][157][157]not[157][157][157]it:[157][157][157]"right$(ti$,3)
  7. 60 ifh1$>"000200"orh2$>"000200"then620
  8. 70 forl=54272to54296:pokel,0:next:s=54272
  9. 80 pokes+24,15:pokes+19,138:pokes+15,xx:pokes+18,17:pokev+30,0:return
  10. 90 print"[147]":ff=5:poke53280,254:ti$="000000":h1$="000000":h2$="000000"
  11. 100 v=53248:x=15:y=47:z=255:pokev+30,0:
  12. 110 pokev+21,19
  13. 120 poke2040,13:poke2041,13:poke2044,13
  14. 130 pokev+23,255:pokev+29,255
  15. 140 forn=0to62:readq:poke832+n,q:next:goto900
  16. 150 pokev+39,2:pokev+40,5
  17. 160 ifsr=1then310
  18. 170 pokev+0,255:pokev+1,215:pokev+2,15:pokev+3,47:poke53280,5
  19. 180 fori=1to25:print"[152] ":next:q=215
  20. 190 gosub20
  21. 200 poke2018,160
  22. 210 ifff=2thenh1$=ti$
  23. 220 print"                                 time[157][157][157][157]not[157][157][157]it:[157][157][157][153]"right$(h1$,3)
  24. 230 ifh1$>"000199"orh2$>"000199"then620
  25. 240 ifpeek(v+30)and3=3andff=5thenff=2:xx=30:ti$=h1$:poke53280,2:gosub20
  26. 250 ifff=5thenh2$=ti$
  27. 260 print""
  28. 270 print"                                 time[157][157][157][157]not[157][157][157]it:[157][157][157]"right$(h2$,3)
  29. 280 ifpeek(v+30)and3=3andff=2thenff=5:xx=68:ti$=h2$:poke53280,5:gosub20
  30. 290 ifh1$>"000199"orh2$>"000199"then620
  31. 300 goto210
  32. 310 v=53248:pokev+30,0:print"[147]       [166][166][166][166][166][166][166][166] [153]  [166][166][166][166][166]   [166][166][166][166][166][166][166]
  33. 320 [153]"          spc(spc(  print   spc(spc(spc(spc(spc(spc(spc(  spc(spc(
  34. 330 print"          [166][166]  [153]   [166][166]   [166][166]  [166][166]
  35. 340 [153]"          spc(spc(  print   spc(spc(spc(spc(spc(spc(spc(  spc(spc(  spc(spc(spc(
  36. 350 print"          [166][166]  [153]   [166][166]   [166][166]  [166][166]   [166][166]
  37. 360 [153]"          spc(spc(  print   spc(spc(   spc(spc(  spc(spc(spc(spc(spc(spc(spc(
  38. 370 print"           by gerald  coddington"
  39. 380 print""tab(4)"do you need instructions? y or n"
  40. 390 aa=-35:fori=35to245
  41. 400 pokev+0,i:pokev+1,180
  42. 410 pokev+2,i-aa:pokev+3,180
  43. 420 geta$:ifa$=""then450
  44. 430 ifa$="n"thenrestore:clr:goto90
  45. 440 ifa$="y"then770
  46. 450 aa=aa+.07:pokev+30,0
  47. 460 ifpeek(v+30)and3=3thenprint""tab(22)"got you!":goto480
  48. 470 next
  49. 480 fori=1to1000:next:printtab(11)"[145][145]yea but now i am chasing you!"
  50. 490 aa=-30:fori=1to1800:next:print"[145][145]                                        "
  51. 500 print"[145]                                    "
  52. 510 fori=245to35step-1
  53. 520 pokev+0,i+aa:pokev+1,180
  54. 530 pokev+2,i:pokev+3,180
  55. 540 geta$:ifa$=""then570
  56. 550 ifa$="n"thenrestore:clr:goto90
  57. 560 ifa$="y"then770
  58. 570 pokev+30,0
  59. 580 ifpeek(v+30)and3=3thenprinttab(9)"[145]darn you got me.":goto610
  60. 590 aa=aa+.06
  61. 600 next
  62. 610 fori=1to1000:next:print"[145]                                      [145]":run310
  63. 620 fori=vtov+9:pokei,0:next:print"[147]              [152]game over"
  64. 630 print"time:":print"[153]player 1 time-"h1$:print"player 2 time-"h2$
  65. 640 hs=1:ifh2$>h1$thenhs=2
  66. 650 print"player"hs"wins!"
  67. 660 print"press button on joystick 1 to play again[157][145]"
  68. 670 wait56321,16,16:clr:restore:goto90
  69. 680 end
  70. 690 restore:clr:goto90
  71. 700 data0,0,0,0,126,0,0,255,0
  72. 710 data1,255,128,3,255,192,3,255,192
  73. 720 data3,153,192,3,153,192,3,153,192
  74. 730 data3,255,192,1,255,128,0,255,0
  75. 740 data0,255,0,0,66,0,0,66,0
  76. 750 data0,66,0,0,231,0,0,0,0
  77. 760 data0,0,0,0,0,0,0,0,0
  78. 770 fori=vtov+9:pokei,0:next:print"[147]"tab(12)"welcome to tag!"
  79. 780 print"[150] the object of the game is to not be    "chr$(34)"it"chr$(34);
  80. 790 print" for 2 minutes. the first person    to do so wins."
  81. 800 print"[151] you get the other person "chr$(34)"it"chr$(34)" by "
  82. 810 print"running in";
  83. 820 print"to his man. when you do,      your timer starts counting. if the "
  84. 830 print"other person tags you back then your    timer stops and his starts.
  85. 840 [153]"this keeps going on until one of the":[153]"timers reaches 2 minutes."
  86. 850 [153]"print this game requires two joysticks,one   to move each man."
  87. 860 [153]"cont if you forget who is it,look under     the timers ";
  88. 870 [153]"or at the border color.":[153]"list"[163]7)"good luck to both of you!"
  89. 880 [153]"   press button on joystick 1 to play"
  90. 890 [137]670
  91. 900 [129]adres[178]49152[164]49305:[135]datta:[151]adres,datta:[130]adres
  92. 909 [143]***data for machine language***
  93. 910 [131] 120, 173, 21, 3, 201, 234
  94. 920 [131] 208, 13, 169, 33, 141, 20
  95. 930 [131] 3, 169, 192, 141, 21, 3
  96. 940 [131] 76, 31, 192, 169, 49, 141
  97. 950 [131] 20, 3, 169, 234, 141, 21
  98. 960 [131] 3, 88, 96, 173, 0, 220
  99. 970 [131] 201, 123, 240, 15, 201, 119
  100. 980 [131] 240, 20, 201, 126, 240, 25
  101. 990 [131] 201, 125, 240, 30, 76, 94
  102. 1000 [131] 192, 206, 0, 208, 206, 0
  103. 1010 [131] 208, 76, 94, 192, 238, 0
  104. 1020 [131] 208, 238, 0, 208, 76, 94
  105. 1030 [131] 192, 206, 1, 208, 206, 1
  106. 1040 [131] 208, 76, 94, 192, 238, 1
  107. 1050 [131] 208, 238, 1, 208, 238, 7
  108. 1060 [131] 208, 76, 94, 192, 173, 1
  109. 1070 [131] 220, 201, 251, 240, 15, 201
  110. 1080 [131] 247, 240, 20, 201, 254, 240
  111. 1090 [131] 25, 201, 253, 240, 30, 76
  112. 1100 [131] 49, 234, 206, 2, 208, 206
  113. 1110 [131] 2, 208, 76, 49, 234, 238
  114. 1120 [131] 2, 208, 238, 2, 208, 76
  115. 1130 [131] 49, 234, 206, 3, 208, 206
  116. 1140 [131] 3, 208, 76, 49, 234, 238
  117. 1150 [131] 3, 208, 238, 3, 208, 76
  118. 1160 [131] 49, 234, 96, 0,0,0
  119. 1170 [139][194](789)[178]234[167][158]49152
  120. 1180 [137]150
  121.