home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 June / 1984-06.d64 / d (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  83 lines
  1. 1 printchr$(147);chr$(144):s1=36874:s2=s1+1:s3=s1+2:s4=s1+3:v=s1+4:sb=s1+5:cl=s1-5
  2. 2 c=30720:l=7680:mw=59:fc=0:pc=33:bt=8182:fv=15:fp=0:cs=0:pokesb,8:r=37154:af=0:kf=0
  3. 3 pokev,15:pokecl,255:forj=ltol+505:pokej+c,0:pokej,32:next
  4. 4 readd:ifd=-1then6
  5. 5 pokel+d,mw:l=l+d:goto4
  6. 6 l=7680:forj=1to9:readd:pokel+d,34:next
  7. 7 forj=1to46:readd:pokel+d,33:next
  8. 8 forj=1to3:gosub67:pokeb+l,63:next
  9. 9 forj=1to9:gosub67:pokeb+l,36:next
  10. 10 pc=32:gosub67:pokeb+l,61
  11. 11 gosub67:pokeb+l,35
  12. 12 forj=1to3:gosub67:pokeb+l,60:next
  13. 13 gosub67:m=b+l:ti$="000000"
  14. 14 poker,127:js=(peek(37137)and28)or(peek(37152)and128):js=abs(js-100)/4-7:poker,255
  15. 15 ifti$>"000500"then48
  16. 16 ifjs=6thendr=-22
  17. 17 ifjs=5thendr=22
  18. 18 ifjs=3thendr=-1
  19. 19 ifjs=11thendr=1
  20. 20 ifjs=7thendr=0
  21. 21 p=peek(dr+m):ifp=59thendr=0
  22. 22 ifp=35thencs=1:pokebt,35:pokebt+c,5:bt=bt+1
  23. 23 ifp=36then78
  24. 24 ifp=34andkf=0thengosub73
  25. 25 ifp=61thenkf=1:poke8181,61:poke8181+c,5
  26. 26 getl$:ifl$="l"thenls=1:gosub82
  27. 27 ifp=60andls<>1thenfp=1
  28. 28 ifp=60andls=1thenfp=2:pit=m+dr
  29. 29 ifp=63thenaf=af+1:pokebt,63:pokebt+c,5:bt=bt+1:gosub75
  30. 30 ifdr=0andfc=1then44
  31. 31 pokem,32:pokem+c,7:pokem+dr+c,7:pokem+dr,58
  32. 32 pokem+dr+c-22,7:pokem+dr+c+22,7:pokem+dr+c+1,7:pokem+dr+c-1,7
  33. 33 pokem+dr+c-23,7:pokem+dr+c+23,7:pokem+dr+c+21,7:pokem+dr+c-21,7:fc=1
  34. 34 ifp=35orp=61thengosub70
  35. 35 iffp=1thenpokem+dr,60:goto76
  36. 36 ifps=1thenpokepit,60:ps=0
  37. 37 iffp=2thenps=1:fp=0
  38. 38 ls=0:ifdr=0then44
  39. 39 pokes3,240:fort=1to2:next:pokes3,0
  40. 40 ifdr=-22thenpokem+c+23,0:pokem+c+22,0:pokem+c+21,0:goto44
  41. 41 ifdr=1thenpokem+c-23,0:pokem+c-1,0:pokem+c+21,0:goto44
  42. 42 ifdr=-1thenpokem+c-21,0:pokem+c+1,0:pokem+c+23,0:goto44
  43. 43 pokem+c-23,0:pokem+c-22,0:pokem+c-21,0
  44. 44 m=m+dr:fc=1:ifaf=3then46
  45. 45 goto14
  46. 46 pokesb,27:fort=1to3000:next:pokecl,240:printchr$(147):print" you saved the castle"
  47. 47 print:print:print" play again?":goto52
  48. 48 pokes4,220:forj=15to0step-.5:pokesb,127:pokev,j:fort=1to10:next
  49. 49 pokesb,42:fort=1to10:next:next:pokes4,0
  50. 50 fort=1to5000:next
  51. 51 pokecl,240:printchr$(147):print"play again? y/n"
  52. 52 geta$:ifa$=""then52
  53. 53 ifa$="y"thenrestore:goto1
  54. 54 ifa$<>"n"then52
  55. 55 end
  56. 56 data0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3,4,6,8,1,3,4,2,1,1,2,2,1,1,1,1,2
  57. 57 data1,2,1,1,1,2,2,4,2,4,2,1,2,5,2,2,1,1,2,1,3,2,1,2,3,2,2,3,4,2,1,2,1,5,2,2,1,2,4,5
  58. 58 data1,1,1,1,1,1,2,3,2,1,1,1,1,2,1,1,1,1,7,3,6,2,3,1,2,1,1,2,1,1,1,1,2,1,1,1,1,2,3,1
  59. 59 data2,6,2,2,4,2,1,2,1,2,3,3,4,2,7,1,2,1,1,1,1,1,1,1,1,4,1,2,1,1,2,1,12,2,3,2,2,1,1,1
  60. 60 data2,1,2,2,1,2,2,3,2,2,1,2,2,3,3,2,1,1,1,1,1,2,2,1,2,2,1,1,1,3,3,4,2,2,1,4,3,1,1,1
  61. 61 data1,2,2,1,1,4,1,2,2,9,6,2,1,2,1,1,1,1,1,1,1,1,1,2,1,1,2,1,1,1,1,1,4,2,5,2,8,1,6
  62. 62 data3,4,3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,-1
  63. 63 data67,72,102,127,140,240,280,316,419
  64. 64 data23,24,26,27,28,45,46,48,49,50,82,83,84,105,106,123,124,125,145,146,147,162,163
  65. 65 data184,185,195,196,217,218,301,302,323,324,338,339,360,361,441,442,443,445
  66. 66 data463,464,465,466,467
  67. 67 b=int(rnd(1)*501)+0
  68. 68 ifpeek(b+l)<>pcthen67
  69. 69 return
  70. 70 pokes3,185:pokes2,202:pokes1,202:forj=15to0step-.5:pokev,j:next:pokes3,210
  71. 71 pokes1,232:pokes2,232:forj=15to0step-.05:pokev,j:next
  72. 72 forj=0to2:pokes1+j,0:next:pokev,15:return
  73. 73 pokem,32:pokem+dr,37:pokes4,130:forj=15to0step-1:pokev,j:next:pokes4,0:pokem+dr,34
  74. 74 pokem,58:pokev,15:dr=0:fort=1to500:next:return
  75. 75 pokes3,220:fort=1to50:next:pokes3,0:return
  76. 76 forj=254to180step-.5:pokes2,j:pokes3,j:pokev,fv:fv=fv-.1:next:pokes2,0:pokes3,0
  77. 77 pokecl,240:printchr$(147):print" you fell into a pit":goto81
  78. 78 forg=190to235:pokes4,g:fort=1to10:next:next:forg=235to220step-1:pokes4,g:fort=1to20
  79. 79 next:next:forj=15to5step-.1:pokev,j:next:pokes4,0:pokev,15:ifcs=1then24
  80. 80 pokecl,240:printchr$(147):print" you lost to a beast!!"
  81. 81 pokesb,27:fort=1to3000:next:goto51
  82. 82 fori=0to3:forj=0to15:pokev,j:n=180+i*j:pokes3,n:nextj,i:pokes3,0:return
  83.