home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 May / 64er_Magazin_86-05_1986_Markt__Technik_de.d64 / demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  62 lines
  1. 1 v=53248
  2. 5 poke53280,5
  3. 10 fori=24576to24665:reada:pokei,a:next
  4. 20 fori=832to 895:reada:pokei,a:next
  5. 30 sys6*4096
  6. 100 print"[147]"
  7. 110 print" weiss     [146]"
  8. 120 print"[158] gelb      [146]"
  9. 130 print"[153] hellgruen [146]"
  10. 140 print"[159] tuerkis   [146]"
  11. 150 print"[155] grau 3    [146]"
  12. 160 print"[150] hellrot   [146]"
  13. 170 print" gruen     [146]"
  14. 180 print"[154] hellblau  [146]"
  15. 190 print"[152] grau 2    [146]"
  16. 200 print"[129] orange    [146]"
  17. 210 print"[156] violett   [146]"
  18. 220 print" rot       [146]"
  19. 230 print"[151] grau 1    [146]"
  20. 240 print" blau      [146]"
  21. 250 print"[149] braun     [146]"
  22. 260 print"[144] schwarz   [146]"
  23. 270 print""
  24. 300 printtab(12)"abcdefghijklmnopqrstuvwxyz":print
  25. 310 printtab(12)"[193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212][213][214][215][216][217][218]":print
  26. 320 printtab(12)"[176][191][188][172][177][187][165][180][162][181][161][182][167][170][185][175][171][178][174][163][184][190][179][189][183][173]":print
  27. 330 printtab(12)"das super-hardcopy-programm":print
  28. 340 printtab(12)"liefert eine orginalgetreue":print
  29. 350 printtab(12)"bildwiedergabe und berueck-":print
  30. 360 printtab(12)"sichtigt dabei auch sprites":print
  31. 370 printtab(12)"und rasterzeilen-interrupts":print
  32. 372 print:print:print:print
  33. 374 fori=1to3:print"               [146]             [146]        ":next
  34. 376 print"[145][145][145][145][145][145][145]";
  35. 380 pokev+21,1:poke2040,13:pokev,180:pokev+1,225
  36. 390 pokev+39,0:pokev+23,0:pokev+29,1:pokev+28,0
  37. 400 print
  38. 410 print"         press restore[146] to print"
  39. 420 fori=60to160step.4:pokev,i:next:pokev+27,1
  40. 422 print"[145]         press restore to print[145]"
  41. 425 fori=161to255step.4:pokev,i:next:pokev+27,0
  42. 430 print"         press restore[146] to print"
  43. 440 fori=255to161step-.4:pokev,i:next:pokev+27,1
  44. 442 print"[145]         press restore to print[145]"
  45. 445 fori=160to60step-.4:pokev,i:next:pokev+27,0:goto410
  46. 1000 goto1000
  47. 2000 data120,169,40,141,20,3,169,96
  48. 2002 data141,21,3,169,0,141,18,208,173
  49. 2004 data17,208,41,127,141,17,208,169
  50. 2006 data129,141,26,208,169,0,141,33
  51. 2008 data208,169,4,133,2,88,96,173,25
  52. 2010 data208,141,25,208,48,7,173,13
  53. 2012 data220,88,76,49,234,166,2,189
  54. 2014 data80,96,141,18,208,189,85,96
  55. 2016 data141,33,208,202,16,2,162,4,134
  56. 2018 data2,76,129,234,0,210,170,130
  57. 2020 data90,0,7,14,4,2,1
  58. 10000 data255,255,255,0,0,0,103,57,119,148,165,36,132,165,36,103
  59. 10010 data57,38,20,49,36,148,41,36,100,37,39,0,0,0,255,255
  60. 10020 data255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  61. 10030 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  62.