home *** CD-ROM | disk | FTP | other *** search
/ UpTime Volume 1 #3 / utv1n3s1.d64 / longevity (.txt) < prev    next >
Commodore BASIC  |  2022-08-28  |  1KB  |  36 lines
  1. 10 if peek(44)=8 then poke 44,16:poke 4096,0:clr:load"0:longevity",8
  2. 19 poke 53281,15:poke 53280,14
  3. 20 print"[146][147]            [213]p[212]ime [208]resents:"
  4. 30 print"                [204]ongevity":print"          (c)1987 [204]ance [196]ooley"
  5. 40 print" [208]ublished by [211]oftdisk [208]ublishing, [201]nc."
  6. 50 poke 53269,0
  7. 60 poke 53287,11
  8. 70 poke 53288,11
  9. 80 poke 53289,11:rem sprite color
  10. 90 poke 53271,0:poke 53277,4:rem sprite expansion
  11. 100 poke 53248,160:poke 53249,160:rem position
  12. 110 poke 53250,184:poke 53251,160
  13. 120 poke 53252,160:poke 53253,181
  14. 130 poke 2040,32
  15. 140 poke 2041,33
  16. 150 poke 2042,34
  17. 200 for i=0 to 62:read d:poke i+(32*64),d:next
  18. 210 for i=0 to 62:read d:poke i+(33*64),d:next
  19. 220 for i=0 to 62:poke i+(34*64),255:next
  20. 230 poke 53269,7
  21. 240 print"               [166][166][166][166][166][166][166][166][166][166]
  22. 245 [153]"               spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(
  23. 250 load"0:longevity.exe",8
  24. 300 data 0,0,15, 0,0,127, 0,3,255, 0,31,255
  25. 310 data 0,255,255, 3,255,255, 7,255,255, 15,255,252
  26. 320 data 31,255,254, 31,255,254, 31,240,126, 63,243,62
  27. 330 data 63,243,62, 63,240,126, 127,240,252, 127,242,127
  28. 340 data 127,243,63, 127,255,255, 255,255,255, 255,255,255
  29. 350 data 255,255,255
  30. 400 data 240,0,0, 254,0,0, 255,192,0, 255,248,0
  31. 410 data 255,255,0, 255,255,192, 255,255,224, 63,255,240
  32. 420 data 127,255,248, 127,255,248, 124,31,248, 124,207,252
  33. 430 data 124,207,252, 124,31,252, 60,255,254, 252,255,254
  34. 440 data 252,255,254, 255,255,254, 255,255,255, 255,255,255
  35. 450 data 255,255,255
  36.