home *** CD-ROM | disk | FTP | other *** search
/ Computer Club 1 / Computer_Club_1_1988_Systems_Editoriale.d64 / borderkiller.bas (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  793 b   |  32 lines
  1. 1 rem *----------------*
  2. 2 rem * border  killer *
  3. 3 rem * (c) by systems *
  4. 4 rem *----------------*
  5. 5 :
  6. 10 fori=0to99:reada:poke53097+i,a:next
  7. 15 :
  8. 20 fori=0to63:poke832+i,255:next
  9. 30 fori=0to7
  10. 40 :poke53248+i*2,85+24*i
  11. 50 :poke53248+i*2+1,20
  12. 60 :poke2040+i,13
  13. 70 next:poke53280,1:poke53281,0
  14. 80 poke53269,255
  15. 85 :
  16. 90 sys 53097:rem activate routine
  17. 95 :
  18. 100 rem ************* data ************
  19. 110 data 234,234,234,120,173,20,3
  20. 120 data 141,3,207,173,21,3,141,4
  21. 130 data 207,169,151,141,20,3,169,207
  22. 140 data 141,21,3,173,17,208,41,127
  23. 150 data 141,17,208,169,1,141,26,208
  24. 160 data 88,169,200,141,18,208,96,234
  25. 170 data 173,25,208,41,1,208,6,104
  26. 180 data 168,104,170,104,64,32,171,207
  27. 190 data 108,3,207,234,141,25,208,169
  28. 200 data 248,205,18,208,16,251,169,19
  29. 210 data 141,17,208,169,32,205,18,208
  30. 220 data 208,251,169,27,141,17,208,169
  31. 230 data 200,141,18,208,96
  32.