home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 3 #7 / Commodore_Disk_User_Vol.3_7_1990_-.d64 / plat.bas (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  6KB  |  147 lines
  1. 1 ifk=1then5
  2. 2 k=1:load"plat.mc",8,1
  3. 5 cb=39380:rem plat condition base
  4. 6 c2=36864:sys32830:rem zero object table
  5. 60 v=53248:pokev+21,1:poke2040,128:pokev+39,1
  6. 80 poke679,0:n1=0:n2=28672:n3=0
  7. 120 readj:if j=-4then150
  8. 130 poke39552+n3,j:n3=n3+1:if n3<128 then120:rem jump table
  9. 140 print"  warning !![157][157][157][157][157]jump right/left data is greater"
  10. 142 printtab(7)"than 128 bytes - please reduce":stop
  11. 150 ti$="000000":s=1
  12. 160 reada:if a=-1thengoto170
  13. 161 if a<888thenpoken2,a:n2=n2+1:goto160
  14. 163 if f9=0then pt=n2:n2=n2+2:f9=1:goto160
  15. 164 if a=999thenprint"screen:"s:s=s+1:goto167
  16. 165 n2=n2-2
  17. 166 pokept+1,n2/256:pokept,n2-int(n2/256)*256:n2=n2+4:pt=n2-2:goto160
  18. 167 pokept+1,(n2-1)/256:pokept,(n2-1)-int((n2-1)/256)*256:pt=n2+8:f9=0:goto160
  19. 169 :
  20. 170 ob=36864
  21. 172 read o:if o<>-2thenpokeob,o:ob=ob+1:goto172
  22. 178 :
  23. 180 print"time="mid$(ti$,4,1)":"right$(ti$,2),,,,"sys32771":end
  24. 1320 rem *** jump left/right data ****
  25. 1340 data 0,0,5,0,5,0,1,0,1,1,0,1,5,1,5,5,5,1,5,5,1,5,5,5,1,5,1,1,2,1
  26. 1341 data 2,1,2,1,3,2,1,3,1,3,1,2,3,1,1,3,2,3,3,2,6
  27. 1360 data -4
  28. 1380 rem **** screen1 data (1,0) ****
  29. 1400 data 1,0,250,204,1
  30. 1401 rem screen x,y,sprite start x,y,msb
  31. 1420 data 204,888,1,1,44,0,1,126,197,0,11,1,61,254,0,0
  32. 1440 data 196,888,1,38,255,0,11,1,1,255,0,0
  33. 1460 data 180,888,1,1,43,0,1,71,250,0,0
  34. 1480 data 164,888,1,1,74,0,1,103,250,0,0
  35. 1500 data 148,888,1,71,255,0,0
  36. 1510 data 151,888,1,1,255,0,2,145,145,195,3,0
  37. 1511 data 2,177,177,195,3,0,11,1,1,255,0,0
  38. 1520 data 132,888,2,24,34,100,1,0,1,39,99,0,12,128,1,60,68,1,0
  39. 1521 data 11,2,67,75,100,1,0,0
  40. 1525 data 100,888,2,24,34,132,3,0,7,36,247,40,1,0,1,246,255,0
  41. 1527 data 11,1,1,19,0,7,19,65,40,2,0,2,67,75,132,3,0,0
  42. 1530 data 68,888,8,146,160,1,0,8,178,192,1,0,8,210,224,1,0,7,143,229,50,1,0
  43. 1532 data 11,13,38,1,3,1,1,0,9,999
  44. 1539 :
  45. 1540 rem **** screen2 data (2,0) ****
  46. 1560 data 2,0,18,212,1
  47. 1580 data 212,888,13,16,1,2,1,2,37,68,2,0,1,44,164,0,0
  48. 1582 data 196,888,1,1,250,0,11,1,24,254,0,0
  49. 1584 data 188,888,1,1,254,0,11,1,1,34,0,0
  50. 1586 data 172,888,1,1,255,0,11,1,1,59,0,0
  51. 1587 data 158,888,1,1,255,0,2,25,25,205,3,0,2,58,58,188,3,0,2,89,89,193,3,0
  52. 1588 data 2,122,122,193,3,0,2,154,154,205,3,0,11,1,1,255,0,0
  53. 1590 data 156,888,1,1,255,0,11,1,1,35,0,1,57,255,0,0
  54. 1591 data140,888,13,17,1,4,1,1,0,6,228,245,99,1,1,50,0,1,248,255,0,11,1,1,59,0,0
  55. 1592 data 124,888,1,1,255,0,11,1,1,59,0,0
  56. 1594 data 108,888,1,1,255,0,11,1,1,35,0,1,57,255,0,0
  57. 1595 data 99,888,1,1,197,0,6,228,245,140,2,1,50,0,1,248,255,0,11,1,1,255,0,0
  58. 1596 data 92,888,1,1,86,0,7,86,120,40,2,0,1,120,255,0,11,1,1,35,0,1,57,254,0,0
  59. 1598 data 76,888,1,1,255,0,11,1,1,35,0,1,57,254,0,0
  60. 1599 data 68,888,4,27,58,0,4,37,58,0,6,42,50,140,2,1,50,0
  61. 1600 data 1,64,196,0,11,1,40,255,0,0
  62. 1602 data 47,888,1,1,255,0,2,82,82,92,3,0,2,146,146,100,3,0,2,178,178,69,3,0
  63. 1603 data 11,1,1,255,0,9,999
  64. 1698 :
  65. 1699 rem **** screen3 data (3,0) ****
  66. 1700 data 3,0,30,91,2
  67. 1715 data 67,888,1,215,234,0,11,1,47,255,0,0
  68. 1717 data 76,888,1,1,255,0,11,1,1,63,0,0
  69. 1720 data 91,888,1,1,44,0,7,44,255,35,2,0,11,7,1,55,35,2,0,1,55,255,0,0
  70. 1722 data 100,888,1,29,255,0,11,1,1,255,0,0
  71. 1725 data 115,888,1,1,36,0,8,211,223,1,0,8,237,247,1,0
  72. 1726 data 7,36,255,30,1,0,11,7,1,47,30,1,0,8,5,15,1,0,1,47,255,0,0
  73. 1727 data 124,888,1,1,255,0,11,1,1,63,0,0
  74. 1728 data 132,888,1,29,255,0,11,1,1,255,0,0
  75. 1730 data 139,888,1,1,44,0,7,44,255,30,2,0,11,7,1,55,30,2,0,1,55,255,0,0
  76. 1733 data 156,888,1,29,255,0,11,1,1,255,0,0
  77. 1735 data 163,888,1,1,36,0,7,36,255,30,1,0,11,7,1,47,30,1,0,1,47,255,0,0
  78. 1737 data 172,888,1,1,255,0,11,1,1,63,0,0
  79. 1740 data 187,888,1,1,20,0,11,1,71,255,0,0
  80. 1745 data 211,888,13,52,1,5,1,1,0,1,78,124,0,2,162,170,247,3,0,1,215,255,0
  81. 1746 data 11,1,1,5,0,13,42,1,2,1,1,0,9,999
  82. 1799 rem **** screen4 data (4,0) ****
  83. 1800 data 4,0,185,59,1
  84. 1810 data 59,888,6,10,27,247,2,1,50,0,7,20,141,40,2,0,2,163,170,35,1,0
  85. 1812 data 7,192,255,40,1,0,8,66,80,1,0,8,82,96,1,0
  86. 1813 data 11,7,1,62,40,1,0,6,57,80,247,2,1,35,0,0
  87. 1820 data 90,888,1,1,55,0,7,55,95,50,0,1,95,116,1,0,7,116,159,50,1,0
  88. 1822 data 8,195,209,1,0,1,159,181,0,7,181,248,50,1,0
  89. 1823 data 11,14,3,0,1,15,255,0,0
  90. 1824 data 107,888,1,1,55,0,1,95,255,0,7,55,95,40,2,0,11,1,1,255,0,0
  91. 1825 data 124,888,1,1,55,0,1,95,255,0,7,55,95,40,1,0,11,1,1,255,0,0
  92. 1830 data 139,888,1,1,160,0,2,160,170,211,3,0,11,1,1,255,0,0
  93. 1832 data 141,888,1,1,55,0,1,95,255,0,7,55,95,40,1,0,11,1,1,255,0,0
  94. 1835 data 158,888,1,1,55,0,1,95,255,0,7,55,95,40,1,0,11,1,1,255,0,0
  95. 1840 data 171,888,1,1,226,0,2,227,227,110,1,0,1,229,255,0,11,1,1,255,0,0
  96. 1845 data 175,888,1,1,55,0,1,95,255,0,7,55,95,40,2,0,11,1,1,255,0,0
  97. 1850 data 179,888,1,1,214,0,11,1,16,255,0,0
  98. 1855 data 192,888,1,1,37,0,1,95,255,0,7,37,95,40,1,0,11,1,1,255,0,0
  99. 1860 data 211,888,1,1,160,0,2,160,170,139,1,0,12,203,1,150,50,1,0
  100. 1870 data 11,1,46,255,0,9,999
  101. 5000 data -1
  102. 5990 rem ****** object table ********
  103. 5991 rem **  77 bytes per screen   **
  104. 5992 rem ** (11 bytes per object)  **
  105. 5993 rem ** (7 objects per screen) **
  106. 5994 rem x1,x2,1/0,y1,y2,ch,cr,col,lb,hb,sc/0
  107. 5995 rem x1,x2,y1,y2=sprt coords of object. 0/1=msbx=0/1 to collect
  108. 5996 rem ch=original character
  109. 5997 rem cr=replaced char (once taken)
  110. 5998 rem col=col of replaced char
  111. 5999 rem lb,hb=screen coords of char       sc=score (if=0 then add 1 to lives)
  112. 6000 :
  113. 6001 rem ***** screen 1 *****
  114. 6010 data165,174,0,40,53,71,32,10,19,4,20
  115. 6020 data198,207,0,40,53,71,32,10,23,4,20
  116. 6025 data 68,79,1,57,67,82,32,3,119,4,20
  117. 6028 data77,86,0,83,93,71,32,10,208,4,20
  118. 6030 data125,134,0,83,93,71,32,10,214,4,20
  119. 6035 data29,38,1,83,93,71,32,10,234,4,20
  120. 6040 data157,166,0,148,165,71,32,10,66,6,20
  121. 6060 rem ***** screen 2 *****
  122. 6070 data 69,78,0,45,61,71,32,15,47,4,30
  123. 6072 data 221,230,0,45,61,71,32,15,66,4,30
  124. 6074 data 5,14,1,45,61,71,32,15,71,4,250
  125. 6075 data 197,206,0,95,102,82,32,3,47,5,30
  126. 6076 data 70,81,1,84,101,71,32,15,23,5,230
  127. 6078 data 69,78,0,155,173,71,32,15,95,6,30
  128. 6080 data 134,143,0,155,173,71,32,15,103,6,30
  129. 6090 rem ***** screen 3 *****
  130. 6100 data 93,102,0,45,61,71,32,15,50,4,40
  131. 6110 data 173,182,0,45,61,71,32,15,60,4,40
  132. 6120 data 28,38,0,63,68,82,32,3,122,4,40
  133. 6130 data 69,78,1,92,109,71,32,15,63,5,40
  134. 6140 data 13,22,0,109,125,71,32,15,104,5,40
  135. 6150 data 69,78,1,140,157,71,32,15,47,6,40
  136. 6160 data 132,143,0,207,212,82,32,3,87,7,40
  137. 6170 rem ***** screen 4 *****
  138. 6180 data 21,30,1,37,53,71,32,15,33,4,50
  139. 6190 data 77,86,0,69,85,71,32,15,168,4,50
  140. 6200 data 166,175,0,69,85,71,32,15,179,4,50
  141. 6210 data 237,246,0,156,173,71,32,15,116,6,50
  142. 6220 data 3,12,1,175,180,82,32,3,199,6,50
  143. 6230 data 214,223,0,189,205,71,32,15,17,7,50
  144. 6240 data 5,14,1,189,205,71,32,15,23,7,50
  145. 8999 :
  146. 9000 data -2
  147.