home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / PETMAN.64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  5.4 KB  |  168 lines
  1. 0 REM   TPUG(C)T7  MARCH 84
  2. 1 GOTO192
  3. 2 S=0:P1=3:P2=100
  4. 4 LV=.92:F=1
  5. 7 PRINT"[147][129]                                       "
  6. 8 PRINT"                                       "
  7. 9 PRINT"  [146]................[129]    [146]................[129] "
  8. 10 PRINT"  [146].[129]   [146].[129]     [146].[129]    [146].[129]    [146].[129]    [146].[129]     [146].[129]   [146].[129] "
  9. 11 PRINT"  [146].[129]   [146].[129]     [146].[129]    [146].[129]    [146].[129]    [146].[129]     [146].[129]   [146].[129] "
  10. 12 PRINT"  [146].......*[129]  [146]......[129]    [146]......[129]  [146]*.......[129] "
  11. 13 PRINT"  [146].[129]      [146].[129]  [146].[129]    [146].[129]    [146].[129]    [146].[129]  [146].[129]      [146].[129] "
  12. 15 PRINT"  [146].[129]      [146].[129]  [146].[129]    [146].[129]    [146].[129]    [146].[129]  [146].[129]      [146].[129] "
  13. 16 PRINT"  [146].....[129]  [146]....[129]    [146].[129]    [146].[129]    [146]....[129]  [146].....[129] "
  14. 17 PRINT"      [146].[129]  [146].[129]     [146]..........[129]     [146].[129]  [146].[129]     "
  15. 18 PRINT"      [146].[129]  [146].[129]     [146].[129]        [146].[129]     [146].[129]  [146].[129]     "
  16. 19 PRINT"      .[129]  [146].......[129]  [146][158]    [129]  [146].......[129]  [146].     "
  17. 20 PRINT"[129]      [146].[129]  [146].[129]     [146].[129]        [146].[129]     [146].[129]  [146].[129]     "
  18. 21 PRINT"      [146].[129]  [146].[129]     [146]..........[129]     [146].[129]  [146].[129]     "
  19. 22 PRINT"  [146].....[129]  [146]....[129]    [146].[129]    [146].[129]    [146]....[129]  [146].....[129] "
  20. 23 PRINT"  [146].[129]      [146].[129]  [146].[129]    [146].[129]    [146].[129]    [146].[129]  [146].[129]      [146].[129] "
  21. 24 PRINT"  [146].[129]      [146].[129]  [146].[129]    [146].[129]    [146].[129]    [146].[129]  [146].[129]      [146].[129] "
  22. 25 PRINT"  [146].......*[129]  [146]......[129]    [146]......[129]  [146]*.......[129] "
  23. 26 PRINT"  [146].[129]   [146].[129]     [146].[129]    [146].[129]    [146].[129]    [146].[129]     [146].[129]   [146].[129] "
  24. 27 PRINT"  [146].[129]   [146].[129]     [146].[129]    [146].[129]    [146].[129]    [146].[129]     [146].[129]   [146].[129] "
  25. 28 PRINT"  [146]................[129]    [146]................[129] "
  26. 29 PRINT"                                       "
  27. 30 PRINT"                                       "
  28. 31 PRINT"SCORE:[146]";S
  29. 32 NX=39:FORNY=1TO22:IFNY<>11THENPOKEFNB(0),160:POKEFNC(0),8
  30. 33 NEXTNY:A=0:POKE1063,160:POKE55335,8
  31. 34 ZX=65:FORY=1TOGN
  32. 35 NX=INT(RND(1)*6+17)
  33. 36 NY=11
  34. 37 IFFNA(0)<>32GOTO35
  35. 38 B(Y)=FNA(0):POKEFNB(0),ZX
  36. 39 RX(Y)=NX:RY(Y)=NY:D(Y)=8
  37. 40 NEXTY
  38. 41 N=O+L+42:N0=N:POKEN,C(15)
  39. 42 R=PEEK(56320)AND15:R2=T(R)
  40. 46 N0=N+R2
  41. 47 N1=PEEK(N0)
  42. 48 IFN0=N8THENN0=N0+38:GOTO47
  43. 49 IFN0=N9THENN0=N0-38:GOTO47
  44. 50 IFN1=160THENN0=N:N1=32
  45. 51 IFN1=42THENGOSUB104
  46. 52 IFN1=46THENS=S+P1:A=A+1:PRINT"[145]"S
  47. 53 IFN1=65GOTO84
  48. 54 IFN1=88THEN111
  49. 57 Q=N-O
  50. 58 PY=INT(Q/L):PX=Q-PY*L
  51. 59 U=0:FORY=1TOGN
  52. 60 IFRND(1)<LVGOTO68
  53. 61 RX=RX(Y):IFRX=0GOTO68
  54. 62 NX=RX+SGN(PX-RX)
  55. 63 NY=RY(Y)+SGN(PY-RY(Y))
  56. 64 C%=FNA(0):IFC%=ZXGOTO68
  57. 65 IFC%(C%)THENU=Y:Y=GN:GOTO68
  58. 66 SC=O+RX(Y)+L*RY(Y):POKESC,B(Y):POKESC+54272,D(Y)
  59. 67 B(Y)=C%:RX(Y)=NX:RY(Y)=NY:D(Y)=PEEK(FNC(0)):POKEFNC(0),7:POKEFNB(0),ZX
  60. 68 NEXTY:IFUTHENY=U:GOTO82
  61. 69 IFZX=88THENGOSUB123
  62. 70 POKEN,32:POKEN0,C(R):POKES1+23,3:IFABS(N1-44)>3THEN75
  63. 71 X=129:Y=40:IFN1=42THENX=33:Y=300:POKES1+23,15
  64. 72 POKES1+3,0:POKES1+3,X:POKES1,15:FORX=1TOY:NEXT:POKES1+3,128
  65. 75 POKES1+23,0:POKEN0,O(R):N=N0
  66. 76 IFA<275GOTO42
  67. 77 LV=LV-.02-F/50:P1=P1*2:P2=P2+100
  68. 78 F=F+1
  69. 79 POKES1+23,15:FORX=20TO50:POKES1+3,0:POKES1+3,33:POKES1,X:NEXTX
  70. 80 FORX=250TO220STEP-1:POKES1+3,0:POKES1+3,33:POKES1,X:NEXTX
  71. 81 GOTO7
  72. 82 IFZX=88GOTO116
  73. 83 REM SUICIDE
  74. 84 POKES1+23,15:FORK=1TO8
  75. 85 FORX=30TO80STEP2:POKES1+3,0:POKES1+3,33:POKES1,X:NEXTX
  76. 86 IFK/2<>INT(K/2)THEN89
  77. 87 PRINT"CAPTURE[146]":POKEN,214:POKES1+3,0:POKES1+3,33:POKES1,15:GOTO90
  78. 88 POKES1+3,0:POKES1+3,33:POKES1,158:GOTO90
  79. 89 PRINT"CAPTURE":POKEN,86:POKES1+3,0:POKES1+3,33:POKES1,50
  80. 90 NEXTK
  81. 91 POKES1+23,0
  82. 92 PRINT"[147]","  P E T M A N"
  83. 93 PRINT,"[129]YOUR SCORE:  "S""
  84. 94 IFHS=0THENHS=S:GOTO98
  85. 95 IFS>HSTHENPRINT,"[158] A NEW HIGH SCORE! ":HS=S:GOTO98
  86. 96 PRINT,"HIGH SCORE:  "HS
  87. 98 PRINT"DO YOU WANT TO PLAY AGAIN?"
  88. 99 GETW$:IFW$=""THEN99
  89. 100 IFW$="N"THENEND
  90. 101 IFW$<>"Y"THEN99
  91. 102 GOTO2
  92. 103 REM EAT A PILL
  93. 104 ZX=88:FORY=1TOGN
  94. 105 NX=RX(Y):NY=RY(Y):IFNX=0GOTO107
  95. 106 POKEFNB(0),ZX
  96. 107 NEXTY
  97. 108 T0=TI+720
  98. 109 RETURN
  99. 110 REM CHOMP A GHOST
  100. 111 U=0:FORY=1TOGN
  101. 112 IFN0=RX(Y)+RY(Y)*L+OTHENU=Y:Y=GN
  102. 113 NEXTY:IFUTHENY=U:GOTO116
  103. 114 STOP
  104. 115 REM: WIPE A GHOST
  105. 116 S=S+P2:PRINT"[145]"S
  106. 117 PRINT"[145]"S
  107. 119 POKES1+23,15:FORX=150TO250STEP6:POKES1+3,0:POKES1+3,33:POKES1,X:NEXTX
  108. 120 SC=O+RX(Y)+L*RY(Y):POKESC,B(Y):N0=N:N1=B(Y):POKESC+54272,D(Y):D(Y)=8
  109. 121 RX(Y)=0
  110. 122 GOTO47
  111. 123 IFTI>T0GOTO133
  112. 124 Y=T0-TI:IFY>180THEN139
  113. 125 IFY>50THEN131
  114. 126 FORY=1TOGN:RX=RX(Y):IFRXGOTO130
  115. 127 NX=Y+17:NY=11:IFFNA(0)=65GOTO129
  116. 128 POKEFNB(0),65
  117. 129 POKEFNB(0),160
  118. 130 NEXTY
  119. 131 POKES1,230:POKES1+14,130:POKES1+23,15:POKES1+3,21:FORY=1TO200:NEXT
  120. 132 POKES1+3,20:FORY=1TO200:NEXT:POKES1+14,0:POKES1+23,0:RETURN
  121. 133 ZX=65:FORY=1TOGN
  122. 134 IFRX(Y)GOTO136
  123. 135 RX(Y)=Y+17:RY(Y)=11:B(Y)=160
  124. 136 NX=RX(Y):NY=RY(Y)
  125. 137 POKEFNB(0),ZX
  126. 138 NEXTY
  127. 139 RETURN
  128. 140 POKE53280,9:POKE53281,9
  129. 141 PRINT"[147][142]    [167][207][183][205] [170][183][183]  [183][208][207][183] [182][205]  [206][181]  [206][183][205]  [182][205]  [181]
  130. 142 [153]"    THEN(null)AND(null) +TAN    +SGN  ABS (null)(null) INT  (null)ANDSQR  ABS (null) INT
  131. 143 PRINT"    [167][180]   [170][175][175]   [170][180]  [182]    [181]  [181] [170]  [182]  [205][181]
  132. 145 [153],"DEFWRITTEN FOR THE PET
  133. 146 PRINTTAB(17)"BY
  134. 147 [153],"PAUL GUMMERSALL
  135. 148 PRINT,"[150]ADAPTED FOR THE 64
  136. 149 [153][163]17)"BY
  137. 150 PRINT,"STEVEN DARNOLD
  138. 151 [153],"P.O. BOX 201
  139. 152 PRINT,"ALEXANDRA, NEW ZEALAND";
  140. 153 FORI=1TO4000:NEXT
  141. 157 PRINT"[147]","  P E T M A N"
  142. 158 PRINT"[129]EAT THE LITTLE DOTS IN THE MAZE AS FAST
  143. 159 [153]"AS YOU CAN.  THERE ARE FOUR GUARDS THAT
  144. 160 PRINT"LOOK LIKE THIS: [158][193][129].   IF ONE CATCHES YOU,
  145. 161 [153]"YOU ARE FINISHED.
  146. 164 PRINT"USE THE JOYSTICK TO MOVE.  IT SHOULD
  147. 165 [153]"BE PLUGGED INTO PORT 2.
  148. 170 PRINT"PRESS SHIFT[146] FOR MORE INSTRUCTIONS.";:WAIT653,1
  149. 172 PRINT"[147]","  P E T M A N
  150. 173 [153]"FORYOU CAN TURN THE TABLES ON THE GUARDS BY
  151. 174 PRINT"EATING AN ENERGIZER (*[129]).  THEN, FOR TEN
  152. 175 [153]"SECONDS THE GUARDS ARE WEAKENED AND YOU
  153. 176 PRINT"CAN EAT THEM.  THEY LOOK LIKE THIS [158][216][129].
  154. 177 [153]"YOU GET A BIG BONUS FOR EVERY GUARD YOU EAT.
  155. 181 PRINT"PRESS SHIFT[146] TO BEGIN.":WAIT653,1,1:WAIT 653,1:RETURN
  156. 192 DIM C%(255),C(15),O(15),RX(4),RY(4),T(15)
  157. 193 O=1024:S1=54273:L=40:POKE54277,10
  158. 194 C%(60)=1:C%(62)=1:C%(22)=1:C%(1)=1:C%(93)=1:C%(64)=1:C%(87)=1:C%(81)=1
  159. 195 FORX=5TO15:READC(X):NEXTX:DATA60,22,60,,1,62,62,,1,22,87
  160. 196 FORX=5TO15:READO(X):NEXTX:DATA64,93,64,,93,64,64,,93,93,81
  161. 198 DEF FNB(Z)=O+NX+L*NY:DEF FNA(Z)=PEEK(FNB(0)):DEF FNC(Z)=54272+FNB(0)
  162. 199 GN=4
  163. 200 GOSUB140
  164. 201 T(13)=L:T(11)=-1:T(7)=1:T(14)=-L:T(9)=L:T(10)=-1:T(5)=1:T(6)=-L
  165. 202 N8=O+11*L:N9=N8+39
  166. 203 GOTO2
  167. 6682 
  168.