home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / DigitalSounds / XMAS.ARC / XMAS (.txt) < prev   
Commodore BASIC  |  2019-04-13  |  2KB  |  61 lines
  1. 9 REM  ***********************
  2. 10 REM ** SEASONS GREETINGS ** T
  3. 20 REM **                   ** H  R
  4. 30 REM ** BY GREGORY GRESH  ** E  O
  5. 40 REM **                   **    C
  6. 50 REM **      12/20/87     **    K
  7. 60 REM ***********************
  8. 65 POKE53281,6
  9. 70 PRINT"[147]"
  10. 90 PRINT"HI !! PLEASE TYPE YOUR NAME AND PRESS"
  11. 100 PRINT"              RETURN[146]"
  12. 105 INPUTA$
  13. 106 GOSUB500
  14. 107 PRINT"[147]"
  15. 110 PRINT"HELLO, "A$". MERRY CHRISTMAS !!!"
  16. 115 POKE53281,1
  17. 120 PRINT"":PRINT""
  18. 125 PRINT"                  [158][218]"
  19. 130 PRINT"                  [193]"
  20. 140 PRINT"                 [193][194][193]"
  21. 150 PRINT"                [193][209][193][206][193]"
  22. 160 PRINT"               [193][205][193][194][193][209][193]"
  23. 170 PRINT"              [193][209][193][205][193][206][193][206][193]"
  24. 180 PRINT"             [193][205][193][205][193][194][193][209][193][206][193]"
  25. 190 PRINT"            [193][205][193][209][193][205][193][206][193][206][193][206][193]"
  26. 200 PRINT"              [193][205][193][205][193][209][193][206][193]"
  27. 210 PRINT"             [193][205][193][205][193][209][193][206][193][206][193]"
  28. 220 PRINT"            [193][209][193][205][193][205][193][206][193][206][193][209][193]"
  29. 230 PRINT"              [193][205][193][209][193][206][193][206][193]"
  30. 240 PRINT"             [193][205][193][205][193][194][193][209][193][206][193]"
  31. 250 PRINT"            [193][209][193][205][193][205][193][206][193][206][193][209][193]"
  32. 260 PRINT"                [223]   [146][169]"
  33. 270 PRINT"[154]"
  34. 280 FORI=1TO5000:NEXTI
  35. 281 Z=INT(RND(1)*3)+1
  36. 282 IFZ=1THENGOSUB285:GOTO290
  37. 283 IFZ=2THENGOSUB286:GOTO290
  38. 284 IFZ=3THENGOSUB287:GOTO290
  39. 285 PRINT"          SEASONS GREETINGS":RETURN
  40. 286 PRINT"            HAPPY HOLIDAYS":RETURN
  41. 287 PRINT"                 NOEL":RETURN
  42. 290 FORI=1TO3000:NEXTI
  43. 300 PRINT"        FROM YOUR COMMODORE 64"
  44. 310 FORI=1TO5000:NEXTI:GOTO107
  45. 500 PRINT"[147][153]":POKE53281,2:POKE53280,2
  46. 510 PRINT""
  47. 520 PRINT"  H  H   A   PP   PP   Y   Y"
  48. 530 PRINT"  H  H  A A  P P  P P   Y Y"
  49. 540 PRINT"  HHHH  AAA  PP   PP     Y"
  50. 550 PRINT"  H  H  A A  P    P      Y"
  51. 560 PRINT"  H  H  A A  P    P      Y"
  52. 570 PRINT"  H  H  A A  P    P      Y"
  53. 580 PRINT""
  54. 590 PRINT" H  H   O   L   III  DDDD     A   Y   Y"
  55. 600 PRINT" H  H  O O  L    I   D   D   A A   Y Y"
  56. 610 PRINT" HHHH O   O L    I   D    D  AAA    Y"
  57. 620 PRINT" H  H  O O  L    I   D   D   A A    Y"
  58. 630 PRINT" H  H   O   LLL III  DDDD    A A    Y"
  59. 635 FORI=1TO3500:NEXTI
  60. 640 RETURN
  61.