home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Demos / EYE-STRAIN-DEMO (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  10.1 KB  |  117 lines
  1. 100 PRINT"[147]"
  2. 110 POKE53280,2:POKE53281,2
  3. 120 PRINTCHR$(142);CHR$(8)
  4. 130 FORX=0TO2:POKE2040+X,13:NEXTX
  5. 140 FORX=832TO832+63:READY:POKEX,Y:NEXTX
  6. 150 POKE53269,7
  7. 160 FORX=53287TO53287+2:POKEX,0:NEXTX
  8. 170 POKE53277,7
  9. 180 POKE53271,7
  10. 190 POKE53248,35:POKE53249,60
  11. 200 POKE53250,37:POKE53251,62
  12. 210 POKE53252,39:POKE53253,64
  13. 220 FORDL=1TO1000:NEXTDL
  14. 230 FORX=39TO35STEP-1
  15. 240 POKE53252,X
  16. 250 FORDL=1TO150:NEXTDL,X
  17. 260 FORX=64TO196STEP4:POKE53253,X:FORDL=1TO050:NEXTDL,X
  18. 270 FORX=37TO35STEP-1:POKE53250,X:FORDL=1TO150:NEXTDL,X
  19. 280 FORX=62TO128STEP4:POKE53251,X:FORDL=1TO50:NEXTDL,X
  20. 290 DATA 127,0,254,99,0,198,99,0
  21. 300 DATA 198,99,0,198,99,0,198,99
  22. 310 DATA 0,198,99,0,198,99,0,198
  23. 320 DATA 99,255,198,96,0,6,96,0
  24. 330 DATA 6,96,0,6,99,255,198,99
  25. 340 DATA 0,198,99,0,198,99,0,198
  26. 350 DATA 99,0,198,99,0,198,99,0
  27. 360 DATA 198,99,0,198,127,0,254,224
  28. 370 PRINT"        [144]OLLAND"
  29. 380 FORDL=1TO250:NEXTDL
  30. 390 PRINT"        EIGHTS"
  31. 400 FORDL=1TO250:NEXTDL
  32. 410 PRINT"        ACKERS"
  33. 420 FORDL=1TO500:NEXTDL
  34. 430 PRINT"                         [159]P";
  35. 440 GOSUB460
  36. 450 GOTO480
  37. 460 FORDL=1TO250:NEXTDL
  38. 470 RETURN
  39. 480 PRINT"R";
  40. 490 GOSUB460
  41. 500 PRINT"E";
  42. 510 GOSUB460
  43. 520 PRINT"S";
  44. 530 GOSUB460
  45. 540 PRINT"E";
  46. 550 GOSUB460
  47. 560 PRINT"N";
  48. 570 GOSUB460
  49. 580 PRINT"T";
  50. 590 GOSUB460
  51. 600 PRINT"                            PRESS SPACE";
  52. 610 X=INT(RND(0)*8)
  53. 620 Y=INT(RND(0)*8)
  54. 630 POKE53270,(PEEK(53270)AND248)+X
  55. 635 PRINT"                                       ";
  56. 640 GETA$:IFA$=CHR$(32)THEN670
  57. 650 POKE53265,(PEEK(53265)AND248)+Y
  58. 660 GOTO600
  59. 670 POKE53280,0:POKE53281,0:POKE53269,0
  60. 680 POKE53270,(PEEK(53270)AND248)+0
  61. 690 POKE53265,(PEEK(53265)AND248)+3
  62. 700 PRINTCHR$(14);"[147][151]      [207][213][210] [198][201][210][211][212] [197][217][197] [211][212][210][193][201][206][201][206][199][160][196][197][205][207]"
  63. 710 DATA 255,0,255,255,0,255,255,0
  64. 720 DATA 255,255,0,255,255,0,255,255
  65. 730 DATA 0,255,255,0,255,255,0,255
  66. 740 DATA 255,255,255,255,255,255,255,255
  67. 750 DATA 255,255,255,255,255,255,255,255
  68. 760 DATA 0,255,255,0,255,255,0,255
  69. 770 DATA 255,0,255,255,0,255,255,0
  70. 780 DATA 255,255,0,255,255,0,255,32
  71. 790 FORX=0TO2:POKE2040+X,14:NEXTX
  72. 800 FORX=832+64TO832+127:READY:POKEX,Y:NEXTX
  73. 810 POKE53287,2:POKE53288,1:POKE53289,6
  74. 820 POKE53277,0
  75. 830 POKE53271,0
  76. 840 POKE53248,122:POKE53249,100
  77. 850 POKE53250,172:POKE53251,100
  78. 860 POKE53252,222:POKE53253,100
  79. 870 POKE53269,7
  80. 880 SYS4524
  81. 890 SYS49152
  82. 900 FORX=100 TO 125STEP5
  83. 910 POKE53249,X
  84. 920 POKE53251,X
  85. 930 POKE53253,X
  86. 940 NEXTX
  87. 945 FORY=1TO10
  88. 950 FORX=125TO75STEP-5
  89. 960 POKE53249,X
  90. 970 POKE53251,X
  91. 980 POKE53253,X
  92. 990 NEXTX
  93. 1000 FORX=75TO125STEP5
  94. 1010 POKE53249,X
  95. 1020 POKE53251,X
  96. 1030 POKE53253,X
  97. 1040 NEXTX
  98. 1050 NEXTY
  99. 1060 FORDL=1TO1000:NEXTDL
  100. 1070 FORX=122TO24STEP-1
  101. 1080 POKE53248,X:NEXTX
  102. 1085 FORDL=1TO1000:NEXTDL
  103. 1090 FORX=172TO112STEP-1
  104. 1095 POKE53250,X:NEXTX
  105. 1100 FORDL=1TO1000:NEXTDL
  106. 1110 FORX=222TO200STEP-1
  107. 1120 POKE53252,X:NEXTX
  108. 1130 PRINT"   OLLAND     EIGHTS     ACKERS"
  109. 1140 FORDL=1TO1000:NEXTDL
  110. 1150 POKE2040,13
  111. 1160 FORDL=1TO1000:NEXTDL
  112. 1170 POKE2041,13
  113. 1180 FORDL=1TO1000:NEXTDL
  114. 1190 POKE2042,13
  115. 1200 FORDL=1TO1000:NEXTDL
  116. 1210 GOTO 1210
  117.