home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 1 #3 / Commodore_Disk_User_Vol.1_3_1988_-.d64 / levels (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  78 lines
  1. 0 poke53280,0:poke53281,0:print"[147][158]"
  2. 1 print"this program is for viewing
  3. 2 [153]"it will not run, so get
  4. 3 print"      to"
  5. 4 print"list 10-[145][145][145]"
  6. 5 end
  7. 6 :
  8. 7 :
  9. 8 :
  10. 9 :
  11. 10 locations:
  12. 11 :
  13. 12 :
  14. 20 :
  15. 30 :
  16. 40 block number = screen block counter
  17. 50 level = game level * 2
  18. 60 level table = starts of level maps
  19. 70 table = start of current map
  20. 80 blocks = block definition locations
  21. 90 curblock = current block
  22. 100 scrloc = table of screen positions
  23. 110 screen = current screen location
  24. 120 :
  25. 130 :
  26. 140 :
  27. 150 generalised routine:
  28. 160 :
  29. 170 :
  30. 1000 lda #$3d
  31. 1010 sta block number
  32. 1020 ldy level
  33. 1030 lda level table,y
  34. 1040 sta table
  35. 1050 iny
  36. 1060 lda level table,y
  37. 1070 sta table+1
  38. 1080 dec block number
  39. 1090 bmi program
  40. 1100 clc
  41. 1110 lda block number
  42. 1120 asl
  43. 1130 tay
  44. 1140 lda screen loc,y
  45. 1150 sta screen
  46. 1160 iny
  47. 1170 lda screen loc+1,y
  48. 1180 sta screen+1
  49. 1190 ldy block number
  50. 1200 ldy table,y
  51. 1210 asl
  52. 1220 tay
  53. 1230 lda blocks,y
  54. 1240 sta curblock
  55. 1250 iny
  56. 1260 lda blocks,y
  57. 1270 sta curblock+1
  58. 1280 ldx #$04
  59. 1290 ldy #$04
  60. 1300 lda curblock,y
  61. 1310 sta screen,y
  62. 1320 dey
  63. 1330 bne line 1300
  64. 1340 dex
  65. 1350 beq line 1080
  66. 1360 clc
  67. 1370 lda curblock+1
  68. 1380 adc #$28
  69. 1390 bcc line 1420
  70. 1400 inc curblock
  71. 1410 clc
  72. 1420 lda screen+1
  73. 1430 adc #$28
  74. 1440 bcc line 1460
  75. 1450 inc screen
  76. 1460 jmp line 1290
  77. 1470 rem"list10-
  78.