home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_06_(08-1984).d64 / octopus (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  3KB  |  89 lines
  1. 5 PRINT"[147]"
  2. 10 Z=1024:V=53248:C=55296:B=53280:K=53281:SS=54272
  3. 15 POKEB,14:POKEK,6
  4. 20 PRINT"MOVE THE MONSTER INTO HIS LAIR WITHOUT TOUCHING THE MAGIC WALLS"
  5. 25 PRINT"IF A WALL IS TOUCHED, THE MONSTER WILL ESCAPE AND YOU MUST START AGAIN
  6. 30 [153]"PUSH THE FIRE BUTTON TO START"      
  7. 35 [146]56464,16,16
  8. 40 [153]"LOAD"
  9. 45 [143]--THE MAZE
  10. 50 [129]A1[178]Z[170]6[164]Z[170]726[169]40:[151]A1,102:[130]
  11. 55 [129]D1[178]C[170]6[164]C[170]726:[151]D1,3:[130]
  12. 60 [129]A2[178]Z[170]253[164]Z[170]973[169]40:[151]A2,102:[130]
  13. 65 [129]D2[178]C[170]253[164]C[170]973[169]40:[151]D2,3:[130]
  14. 70 [129]A3[178]Z[170]254[164]Z[170]273:[151]A3,102:[130]
  15. 75 [129]D3[178]C[170]254[164]C[170]273:[151]D3,3:[130]
  16. 80 [129]A4[178]Z[170]306[164]Z[170]706[169]40:[151]A4,102:[130]
  17. 85 [129]D4[178]C[170]306[164]C[170]706[169]40:[151]D4,3:[130]
  18. 90 [129]A5[178]Z[170]740[164]Z[170]751:[151]A5,102:[130]
  19. 95 [129]D5[178]C[170]740[164]C[170]751:[151]D5,3:[130]
  20. 100 [129]A6[178]Z[170]553[164]Z[170]559:[151]A6,102:[130]
  21. 105 [129]D6[178]C[170]553[164]C[170]559:[151]D6,3:[130]
  22. 110 [151]V[170]30,0:[151]V[170]31,0
  23. 115 [143]--THE SPRITE LAIR
  24. 120 [151]2041,193:[151]V[170]40,10:[151]V[170]23,2
  25. 125 F[178]12352
  26. 130 [135]Q%:[139]Q%[178][171]1[167]145
  27. 135 [151]F,Q%
  28. 140 F[178]F[170]1:[137]130
  29. 145 [151]V[170]29,2:[151]V[170]2,175:[151]V[170]3,135
  30. 150 [143]--THE SPRITE MONSTER
  31. 155 [151]2040,192:[151]V[170]39,7
  32. 160 X[178]30:Y[178]60:DX[178]0:DY[178]0
  33. 165 P[178]12288
  34. 170 [135]E%:[139]E%[178][171]1[167]180
  35. 175 [151]P,E%:P[178]P[170]1:[137]170
  36. 180 [151]V[170]21,3:[137]235
  37. 185 [143]--ROUTINE FOR TOUGHING WALLS
  38. 190 [151]V[170]21,0:[129]L[178]SS[164]SS[170]24:[151]L,0:[130]
  39. 195 [139]([194](V[170]16)[175]1)[178]1[167][151]V[170]16,0
  40. 200 [151]SS[170]24,143:[151]SS[170]6,240:[151]SS[170]4,33
  41. 205 [129]T[178]1[164]50:[151]SS,223:[151]SS[170]1,39:[130]
  42. 210 [129]T[178]1[164]75:[151]SS,71:[151]SS[170]1,5:[130]
  43. 215 [129]L[178]SS[164]SS[170]24:[151]L,0:[130]
  44. 220 [153]"LOAD"[166]122)"CMDSORRY BUT YOU TOUCHED THE WALL"
  45. 225 [153][166]202)"CMDTRY AGAIN? PUSH FIRE BUTTON"
  46. 230 [146]56464,16,16:[140]:[137]40
  47. 235 [143]--POSITION INDICATORS
  48. 240 [151]SS,16:[151]SS[170]1,39:[151]SS[170]4,129:[151]SS[170]6,240:[151]SS[170]24,95
  49. 245 [129]T[178]1[164]5:[129]M[178]95[164]0[169][171]5:[151]SS[170]24,M:[130]:[130]
  50. 250 S[178]15[171]([194](56320)[175]15)
  51. 255 [139]S[178]0[167]DX[178]0[175]DY[178]0
  52. 260 [139]S[178]1[167]DY[178][171]2
  53. 265 [139]S[178]2[167]DY[178]2
  54. 270 [139]S[178]4[167]DX[178][171]3
  55. 275 [139]S[178]8[167]DX[178]3
  56. 280 [139]X[178]255[175]DX[178]3[167]X[178]0:[151]V[170]16,1
  57. 285 [139]X[178]0[175]DX[178][171]3[175]([194](V[170]16)[175]1)[178]1[167]X[178]255:[151]V[170]16,0
  58. 290 [143]--COLLISION INDICATORS
  59. 295 [139]([194](V[170]30)[175]1)[178]1[167]350
  60. 300 [139]X[177]30[175]Y[177]60[175]([194](V[170]31)[175]1)[178]1[167]190
  61. 305 [139]X[179]25[175]DX[178][171]3[175][194](V[170]16)[178]0[167]190
  62. 310 [139]X[177]65[175]DX[178]3[175][194](V[170]16)[178]1[167]190
  63. 315 [139]Y[179]51[175]DY[178][171]2[167]190
  64. 320 [139]Y[177]229[175]DY[178]2[167]190
  65. 325 [143]--SPRITE MOVEMENT
  66. 330 X[178]X[170]DX:Y[178]Y[170]DY
  67. 335 [151]V,X:[151]V[170]1,Y
  68. 340 [137]250
  69. 350 [143]--ENDING FOR WINNING GAME
  70. 355 [129]L[178]SS[164]SS[170]24:[151]L,0:[130]
  71. 360 [151]SS[170]4,33:[151]SS[170]24,143:[151]SS[170]6,240:[151]SS[170]5,190
  72. 365 [129]T[178]1[164]30:[151]SS,162:[151]SS[170]1,37:[130]
  73. 370 [129]T[178]1[164]40:[151]SS,60:[151]SS[170]1,50:[130]
  74. 375 [129]T[178]1[164]30:[151]SS,162:[151]SS[170]1,37:[130]
  75. 380 [129]T[178]1[164]100:[151]SS,15:[151]SS[170]1,67:[130]
  76. 385 [129]L[178]SS[164]SS[170]24:[151]L,0:[130]:[151]V[170]21,0
  77. 390 [153]"LOAD"[166]90)"CMDCONGRATULATIONS"
  78. 395 [153][166]175)"CMDYOU DID IT"
  79. 400 [153][166]205)"CMDPLAY AGAIN? PUSH THE FIRE BUTTON"
  80. 405 [146]56464,16,16:[140]:[151]V,30:[151]V[170]1,60:[137]40
  81. 1000 [131]0,124,0,1,254,0,7,255,128,31,255,224,63,255,240,56,120,120,120,120
  82. 1100 [131]120,120,120,124,255,75,252,255,207,254,255,255,254,250,202,175
  83. 1200 [131]250,202,167,224,136,39,224,0,39,100,75,135,100,170,134,116
  84. 1300 [131]235,142,118,170,95,-1
  85. 1400 [131]0,63,128,0,127,192,0,255,224,48,255,240,57,255,240,227,196,120
  86. 1500 [131]131,206,120,135,255,252,131,255,248,227,255,240,31,213,112,1,192,120
  87. 1600 [131]1,241,252,3,191,196,12,47,199,8,98,103,112,198,32,96,132,48,1
  88. 1700 [131]132,28,7,31,7,7,27,7,-1
  89.