home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / LoResGraphics / CHRISTMAS-CARD (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.8 KB  |  77 lines
  1. 2 FORL=54272TO54296:POKEL,0:NEXT
  2. 4 POKE54277,9:POKE54278,128:W=54276
  3. 5 POKE 54296,15:SH=54273:SL=54272:POKE53281,0:POKE53280,0:GOTO10
  4. 6 POKEW,17:FORD=1TO200:NEXT:GOTO8
  5. 7 POKEW,17
  6. 8 FORD=1TO200:NEXT:RETURN
  7. 10 PRINT"ôÉ":PRINTTAB(11);"ÜFROM  MISSINGBYTE :) "
  8. 11 POKE53282,21
  9. 15 POKESH,25:POKESL,30:GOSUB6
  10. 20 PRINT TAB(19);"₧╬═":PRINT TAB(19);"═╬"
  11. 25 POKESH,33:POKESL,135:GOSUB6
  12. 27 POKEW,16:POKESH,33:POKESL,135:GOSUB7
  13. 30 PRINT TAB(19);"⌐▀"
  14. 35 POKESH,37:POKESL,162:GOSUB7
  15. 40 PRINT TAB(18);"⌐  ▀"
  16. 45 POKESH,33:POKESL,135:GOSUB7
  17. 50 PRINT TAB(18);"⌐  ▀"
  18. 55 POKESH,31:POKESL,165:GOSUB7
  19. 60 PRINT TAB(17);"⌐    ▀"
  20. 65 POKESH,28:POKESL,49:GOSUB6
  21. 70 PRINT TAB(17);"⌐     ▀"
  22. 75 POKEW,16:POKESH,28:POKESL,49:GOSUB6
  23. 80 PRINT TAB(16);"⌐      ▀"
  24. 85 POKEW,16:POKESH,28:POKESL,49:GOSUB6
  25. 90 PRINT TAB(16);"⌐      ▀"
  26. 95 POKESH,37:POKESL,162:GOSUB6
  27. 100 PRINT TAB(15);"⌐        ▀"
  28. 105 POKEW,16:POKESH,37:POKESL,162:GOSUB7
  29. 110 PRINT TAB(15);"⌐        ▀"
  30. 115 POKESH,42:POKESL,62:GOSUB7
  31. 120 PRINT TAB(14);"⌐          ▀"
  32. 125 POKESH,37:POKESL,162:GOSUB7
  33. 130 PRINT TAB(14);"⌐          ▀"
  34. 135 POKESH,33:POKESL,135:GOSUB7
  35. 140 PRINT TAB(13);"⌐            ▀"
  36. 145 POKESH,31:POKESL,165:GOSUB6
  37. 150 PRINT TAB(19);"ªª"
  38. 155 POKESH,25:POKESL,30:GOSUB6
  39. 160 PRINT TAB(19);"ªª"
  40. 165 POKEW,16:POKESH,25:POKESL,30:GOSUB6
  41. 166 POKESH,42:POKESL,62:GOSUB6
  42. 167 POKEW,16:POKESH,42:POKESL,62:GOSUB7
  43. 168 POKESH,44:POKESL,193:GOSUB7
  44. 169 POKESH,42:POKESL,62:POKEW,17
  45. 170 PRINTTAB(4);"ÿM E Rá";
  46. 172 GOSUB8:POKESH,37:POKESL,162:POKEW,17
  47. 174 PRINT "R Y   ";
  48. 175 GOSUB8:POKESH,33:POKESL,135:POKEW,    
  49. 176 PRINT "C H R I S T ";
  50. 177 GOSUB6:POKESH,28:POKESL,49:POKEW,17
  51. 178 PRINT "M A S ! '94'"
  52. 179 GOSUB6:POKESH,25:POKESL,30:GOSUB7
  53. 180 POKESH,25:POKESL,30:GOSUB7
  54. 182 POKESH,28:POKESL,49:POKEW,17
  55. 184 PRINT TAB(5);"H A P ";
  56. 186 GOSUB6:POKESH,37:POKESL,162:POKEW,17
  57. 188 PRINT "P Yáá";
  58. 190 GOSUB6:POKESH,31:POKESL,165:POKEW,17
  59. 192 PRINT "N E W   ";
  60. 194 GOSUB6:POKESH,33:POKESL,135:POKEW,17
  61. 196 PRINT "Y E A R !"
  62. 200 POKE1284,170
  63. 201 POKE1363,170
  64. 202 POKE1405,170
  65. 203 POKE1442,170
  66. 204 POKE1484,170
  67. 205 POKE1521,170
  68. 206 POKE1526,170
  69. 207 POKE1563,170
  70. 208 POKE1600,170
  71. 209 POKE1606,170
  72. 210 POKE1642,170
  73. 211 POKE1647,170
  74. 220 GOSUB6:GOSUB6
  75. 230 POKE54296,0:POKESH,0:POKESL,0
  76. 240 B=53280    
  77.