home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Demos / C-64-TRIBUTE / C-64-TRIBUTE.a7ae (.txt)
Encoding:
Commodore BASIC  |  2019-04-13  |  32.0 KB  |  90 lines
  1. 0 :FORK=1TO100*D:NEXT:IFD>0THENRETURN:    >:::COMMORORE 64 IS THE GREATEST:::<
  2. 5 :
  3. 10 REM  THE AUTHOR OF THE SPRITES IS               LOST IN THE JUNGLE OF
  4. 15 REM    COMMODORE PUBLIC DOMAIN.     >
  5. 20 REM    JIM GREEN SCREWED UP THE                  REST OF THE TRIBUTE.       >
  6. 25 :
  7. 30 POKE53280,5:POKE53281,15:POKE53272,28
  8. 35 PRINT"[147][142]       A TRIBUTE TO COMMODORE 64
  9. 40 D[178]20:[141]:[158]30120
  10. 45 [153]"ONPOKE       A TRIBUTE TO COMMODORE 64":D[178]20:[141]
  11. 50 B[178]53248:[151]B[170]23,255:[151]B[170]29,255
  12. 55 [129]I[178]0[164]62:[135]A:[151]12800[170]I,A:[130]
  13. 60 [151]2040,200:[151]2041,200:[151]2042,200:[151]2043,200:[151]2044,200
  14. 65 [151]2045,200:[151]2046,200:[151]2047,200
  15. 70 [151]B[170]39,1:[151]B[170]40,2:[151]B[170]41,10:[151]B[170]42,4:[151]B[170]43,5
  16. 75 [151]B[170]44,6:[151]B[170]45,7:[151]B[170]46,8:[151]B[170]47,9
  17. 80 [151]B[170]21,255:[151]B,160:[151]B[170]1,127
  18. 85 [131]0,0,0,0,124,0,1,254,0,3,254,0,7,254,0,15,130,0,30,1,255,60,1,254
  19. 90 [131]56,1,252,56,1,248,56,0,0,56,1,248,56,1,252,60,1,254,30,1,255,15,130,0
  20. 95 [131]7,254,0,3,254,0,1,254,0,0,124,0,0,0,0
  21. 100 X1[178][181](255[172][187](1)[170]1)
  22. 105 [151]B,X1
  23. 110 Y1[178][181](255[172][187](1)[170]1)
  24. 115 [151]B[170]1,Y1
  25. 120 X2[178][181](255[172][187](1)[170]1)
  26. 125 [151]B[170]2,X2
  27. 130 Y2[178][181](255[172][187](1)[170]1)
  28. 135 [151]B[170]3,Y2
  29. 140 X3[178][181](255[172][187](1)[170]1)
  30. 145 [151]B[170]4,X3
  31. 150 Y3[178][181](255[172][187](1)[170]1)
  32. 155 [151]B[170]5,Y3
  33. 160 X4[178][181](255[172][187](1)[170]1)
  34. 165 [151]B[170]6,X4
  35. 170 Y4[178][181](255[172][187](1)[170]1)
  36. 175 [151]B[170]7,Y4
  37. 180 X5[178][181](255[172][187](1)[170]1)
  38. 185 [151]B[170]8,X5
  39. 190 Y5[178][181](255[172][187](1)[170]1)
  40. 195 [151]B[170]9,Y5
  41. 200 X6[178][181](255[172][187](1)[170]1)
  42. 205 [151]B[170]10,X6
  43. 210 Y6[178][181](255[172][187](1)[170]1)
  44. 215 [151]B[170]11,Y6
  45. 220 X7[178][181](255[172][187](1)[170]1)
  46. 225 [151]B[170]12,X7
  47. 230 Y7[178][181](255[172][187](1)[170]1)
  48. 235 [151]B[170]13,Y7
  49. 240 X8[178][181](255[172][187](1)[170]1)
  50. 245 [151]B[170]14,X8
  51. 250 Y8[178][181](255[172][187](1)[170]1)
  52. 255 [151]B[170]15,Y8
  53. 260 NP[178]NP[170]1:[139]NP[177]8[167][141]420
  54. 265 [139]NP[178]32[167][141]440
  55. 270 [139]NP[178]40[167]280
  56. 275 [137]100
  57. 280 D[178]30:[141]
  58. 285 [129]T[178]39[164]46:[151]B[170]T,15:D[178]5:[141]:[130]:[151]B[170]21,0:[141]420:[141]440:D[178]30
  59. 290 [141]:[153]"LOAD";:[151]53280,0:[151]53281,0:[151]B[170]21,255:[129]D[178]1[164]21:[153]:[130]
  60. 295 [129]T[178]1[164]80:[151]B[170]21,0:::::::::::::::::::::::::::::::::::::[151]B[170]21,255:[130]
  61. 300 [151]B[170]21,7:D$[178]""
  62. 305 [151]B,220:[151]B[170]1,95:[151]B[170]2,60:[151]B[170]3,125:[151]B[170]4,140:[151]B[170]5,190
  63. 310 [141]:[153][163]25)"LIST(null)(null)-----RIGHT$":[153][163]25)"LIST(null)(null)VERIFY*FREFREFREWAITRND(null) R.I.P
  64. 315 PRINTTAB(25)" [173][184][184][184][184][184][146][189]":GOSUB:PRINT"[145][145]"TAB(27)"[151]I B M":D=20:GOSUB
  65. 320 PRINTD$+""TAB(17)"[159][215]":D=5:GOSUB:PRINTD$+""TAB(17)"[152]/"
  66. 325 PRINTD$TAB(19)"[152]CLUCK[157][157][157][157]CLUCK![157][157][157][157][157]/":D=5:GOSUB
  67. 330 PRINTD$+""TAB(17)"[159][215]":PRINTD$TAB(19)"     [157][157][157][157]      [157][157][157][157][157] "
  68. 335 :        :PRINT"[152]   THE MUSIC IS BLACK & WHITE RAG....
  69. 340 [153]"     PLAY AGAIN OR END IT ALL P / E
  70. 345 GETG$:IFG$<>"E"ANDG$<>"P"THEN320
  71. 350 IFG$="E"THEND=10:GOSUB:POKEB+21,PEEK(B+21)AND 255-3
  72. 355 IFG$="P"THENRESTORE:POKEB+21,0:CLR:GOTO30
  73. 360 FORT=1TO8:POKE781,T:SYS59903:NEXT
  74. 365 PRINT"[158]       CONTRARY TO SOME BELIEFS,
  75. 370 [153]"   DEFTHIS OLD CHICKEN AIN'T DEAD YET!!
  76. 375 FORT=1TO3:PRINTD$TAB(19)"[155]SQUAWK[157][157][157][157][157]SQUAWK![157][157][157][157][157][157]/":D=5:GOSUB
  77. 380 PRINTD$+""TAB(17)"[152]-":PRINTD$TAB(19)"      [157][157][157][157][157]       [157][157][157][157][157][157] ":GOSUB
  78. 385 PRINTD$+""TAB(17)"[158][215]":GOSUB:NEXT:D=10:GOSUB
  79. 395 PRINTD$+""TAB(17)" ":GOSUB:POKEB+21,0
  80. 400 FORA=679TO691:READB:POKEA,B:NEXT
  81. 405 DATA 120,169,49,141,20,3,169,234,141,21,3,88,96:REM NEUTRALIZE SYS30120.MUS
  82. 410 FORT=54272TO54296:POKET,0:NEXT:SYS679
  83. 415 G=20:GOSUB:POKE53280,14:POKE53281,6:PRINT"[147][154]":POKE53272,21:END
  84. 420 PRINT" SOME PEOPLE REFER TO THE COMMODORE 64
  85. 425 [153]"   AS THE DEAD CHICKEN HEAD COMPUTER.
  86. 430 PRINTTAB(10)"[151][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  87. 435 PRINT"                                     ":RETURN
  88. 440 PRINTTAB(13)"I WONDER WHY!
  89. 445 [153][163]13)"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(":[142]
  90.