home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / LoResGraphics / LO-RES-ART-1 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  11.3 KB  |  220 lines
  1. 0 PRINT"[147]"
  2. 2 GOTO 10
  3. 5 GETY$:IFY$<>" "THEN5
  4. 6 RETURN
  5. 10 POKE53280,14:POKE53281,6:PRINTCHR$(142)"[147]";
  6. 20 PRINT"[154]@                                       ";
  7. 30 PRINT"[154]74,DRIVE NOT READY,00,00                ";
  8. 40 PRINT"[154]>#8                                     ";
  9. 50 PRINT"[154]$                                       ";
  10. 60 PRINT"[154]0 ' ONLINE STUFF   ' 03 3D[146]              ";
  11. 70 PRINT"[154]9    'Ko[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]p[154][146]        ";
  12. 80 PRINT"[154]4    '1[165]                       [167][154][146]        ";
  13. 90 PRINT"[154]42   'F[165]   [146] LO-RES GRAPHICS    [167][154][146]        ";
  14. 100 PRINT"[154]57   '1[165]                       [167][154][146]        ";
  15. 110 PRINT"[154]70   '1l[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][154][146]        ";
  16. 120 PRINT"[154]50   'FLAGSHIP.10.26'   SEQ             ";
  17. 130 PRINT"[154]68   '[158]                           [154][146]       ";
  18. 140 PRINT"[154]17   '[158]      BY PAUL MCALEER      [154][146]       ";
  19. 150 PRINT"[154]2    '[158]                           [154][146]       ";
  20. 160 PRINT"[154]11   'MAIL CALL 111'    SEQ             ";
  21. 170 PRINT"[154]48   [162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][154]      ";
  22. 180 PRINT"[154]191  [153] VOLUME ONE - CHRISTMAS PIX! [154][146]      ";
  23. 190 PRINT"[154]2591 [162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][154][146]      ";
  24. 200 PRINT"[154]        [176]````````````````````[174][154]          ";
  25. 210 PRINT"[154]OPEN3,8,}  PRESS SPACE BAR!  }[154]          ";
  26. 220 PRINT"[154]        [173]````````````````````[189][154]          ";
  27. 230 PRINT"[154]READY.                                  ";
  28. 240 PRINT"[154]GET#3,A$:PRINTA$;                       ";
  29. 250 PRINT"[154]                                        ";
  30. 260 PRINT"[154]                                       [157][148] ";:GOSUB5
  31. 270 POKE53280,2:POKE53281,0:PRINTCHR$(14)"[147]";
  32. 280 PRINT"";
  33. 290 PRINT"                                      ";
  34. 300 PRINT" [158]wELCOME TO MY WORLD OF GRAPHICS!     ";
  35. 310 PRINT"                                      ";
  36. 320 PRINT" [155]sEVEN YEARS AGO, WHEN i STARTED      ";
  37. 330 PRINT" [155]COMPUTING WITH MY vic-20, i IMAGINED ";
  38. 340 PRINT" [155]IT WOULD JUST BE A SMALL HOBBY. yOU  ";
  39. 350 PRINT" [155]KNOW, SOMETHING ON THE SIDE. tODAY   ";
  40. 360 PRINT" [155]COMPUTING IS [155]MY LIFE. iT PROVIDES    ";
  41. 370 PRINT" [155]SOME OF MY INCOME, EDUCATION, AND    ";
  42. 380 PRINT" [155]OTHER NECESSITIES. :)  lAST YEAR i   ";
  43. 390 PRINT" [155]STARTED FOOLING AROUND WITH LO-RES   ";
  44. 400 PRINT" [155](TEXT MODE) GRAPHICS. mY FRIEND jIM  ";
  45. 410 PRINT" [155]gREEN HAD BEEN CREATING THEM FOR A   ";
  46. 420 PRINT" [155]WHILE, AND HE DID A BANG-UP JOB. sO  ";
  47. 430 PRINT" [155]i TRIED IT. [155]i JUST GRABBED A SCREEN  ";
  48. 440 PRINT" [155]CAPTURE PROGRAM AND TYPED. nOW IT'S  ";
  49. 450 PRINT" [155]SECOND NATURE TO ME. i CAN ALMOST    ";
  50. 460 PRINT" [155]AUTOMATICALLY CREATE PICTURES (HAH!) ";
  51. 470 PRINT"                                      ";
  52. 480 PRINT" [155]pRESS THE space[160]bar FOR MORE...      ";
  53. 490 PRINT"                                      ";
  54. 500 PRINT"                                      ";
  55. 510 PRINT"";
  56. 520 PRINT"[223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223] [146][157][148][223]";
  57. 530 POKE2023,ASC("[223]"):POKE2024,ASC("[223]"):GOSUB5
  58. 540 POKE53280,2:POKE53281,0:PRINT"[147]";
  59. 550 PRINT"";
  60. 560 PRINT"                                      ";
  61. 570 PRINT" [155]eVERYONE ASKS ME [158]THE BASICS[155] OF       ";
  62. 580 PRINT" [155]SCREEN DOODLING, AS i CALL IT. i'VE  ";
  63. 590 PRINT" [155]UPLOADED A FILE TO geNIE (#9219)     ";
  64. 600 PRINT" [155]CALLED fancy 64 screens WHICH SOME-  ";
  65. 610 PRINT" [155]WHAT DESCRIBES MY TECHNIQUES.        ";
  66. 620 PRINT" [155]                                     ";
  67. 630 PRINT" [155]nOW FOR YOUR VIEWING PLEASURE, A     ";
  68. 640 PRINT" [155]COLLECTION OF MY cHRISTMAS aRT. i    ";
  69. 650 PRINT" [155]HOPE TO UPLOAD ART COLLECTIONS IN    ";
  70. 660 PRINT" [155]THE FUTURE, FOR THE HECKUVIT. :)     ";
  71. 670 PRINT" [155]                                     ";
  72. 680 PRINT" [155]iF YOU ENJOY THIS ART, AND WANT TO   ";
  73. 690 PRINT" [155]CONTACT THE AUTHOR/ARTIST...eMAIL    ";
  74. 700 PRINT" [155]d.mcaleer1 ON geNIE.  i WAS jcRYPTAH ";
  75. 710 PRINT" [155]ON qlINK BUT THAT'S BEEN DROPPED.    ";
  76. 720 PRINT"                                      ";
  77. 730 PRINT" [155]tHANKS, AND KEEP ON CHUGGING THE     ";
  78. 740 PRINT" [155]8-BITS!                              ";
  79. 750 PRINT"                                      ";
  80. 760 PRINT"[154] [155]sLAM space[160]TO BEGIN THE SHOW...[154]      ";
  81. 770 PRINT"                                      ";
  82. 780 PRINT"";
  83. 790 PRINT" [157][148]";
  84. 800 GOSUB5:PRINTCHR$(142)
  85. 810 POKE53280,0:POKE53281,0:PRINT"[147]";
  86. 820 PRINT"                  [158]m [158]n                   ";
  87. 830 PRINT"                   [158]*                    ";
  88. 840 PRINT" [156]   [146] [156]  [146]   [146] [156]    [146]  [156]   [146] [156]        [146]   [156]   [170][181]  [146] ";
  89. 850 PRINT"[156]  [146]   [156]  [146]   [146] [156]  [146] [156]  [146] [158]n[167] [146][180][158]m  [156][165] [146] [156]   [146] [156]   [146]   [146] [156]  ";
  90. 860 PRINT"[156]  [146]   [156]     [146] [156]    [146]  [156][182][161] [182][156]  [146] [156][165] [146] [156]  [146] [156] [146] [156]       [146] ";
  91. 870 PRINT"[156]  [146]   [156]  [146] [156]  [146] [156]  [146] [156]  [146] [156][182]  [129][146]q [156]  [165] [146] [156]  [146]   [156]  [146] [156] [146] [156]   ";
  92. 880 PRINT"[146] [156]      [146] [156]     [146] [156]   [182]   [156][181] [146] [156][165] [146] [156]  [146]   [156]  [146] [156]    [146]
  93. 890 [153]"                 GET   ABSWAIT                 CLR ";
  94. 900 [153]"                 FN SYSWAITq THENWAIT                  ";
  95. 910 [153]"                      WAIT                  ";
  96. 920 [153]"                GET     ABSWAIT                 ";
  97. 930 [153]"                FN PRINTWAITq  OPENWAITqTHENWAIT                 ";
  98. 940 [153]"                       WAIT                 ";
  99. 950 [153]"               GET       ABSWAIT                ";
  100. 960 [153]"               GET LISTWAITq  WAITq  ABSWAIT                ";
  101. 970 [153]"               SGN       THENWAIT                ";
  102. 980 [153]"               SGN       THENWAIT                ";
  103. 990 [153]"                     WAITq  WAIT                ";
  104. 1000 [153]"                 VERIFYWAITq       WAIT               ";
  105. 1010 [153]"                    CLRWAITq      } WAIT           ";
  106. 1020 [153]"             WAIT     VERIFYTAB(TAB(THENWAIT  PRINT``{ } WAIT           ";
  107. 1030 [153]"            CLR     WAIT VERIFY FN WAIT SYS pPRINT }`*`WAIT           ";
  108. 1040 [153]"            CLR     WAIT VERIFY THEN WAIT SYSTOSQRPRINT } } WAIT        POKEPM ";
  109. 1050 [153]"                                        ";
  110. 1060 [153]"                                       CMDSAVE ";:[141]5
  111. 8014 [151]53280,0:[151]53281,0:[153]"LOAD";
  112. 8024 [153]"POKEHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHO";
  113. 8034 [153]"POKEHOHOHOHOHOHOHOHOHOHOHOHOHLISTuddiPOKEOHOHOHOHOHO";
  114. 8044 [153]"POKEHOHOHOHOHOHOHOHOHOHOHOHOHLISTgPOKEHOLISThPOKEOHOHOHOHOHO";
  115. 8054 [153]"POKEHOHOHOHOHOHOHOHOHOHOHOHOHLISTj==kPOKEOHOHOHOHOHO";
  116. 8064 [153]"POKEHOHOHO   POKEWAITOHOHOH  CLOSEPOKEWAITHOHOH     PRINT   POKEWAITOHOHOHOHO";
  117. 8074 [153]"POKEHOHOHO   POKEWAITOHOHOH  CLOSEPOKEWAITHOHO       PRINT   POKEWAITHOHOHOHO";
  118. 8084 [153]"POKEHOHOHO   POKEWAITOHOHOH  CLOSEPOKEWAITHOHO````````PRINT``POKEWAITHOHOHOHO";
  119. 8094 [153]"POKEHOHOHO   POKEWAITOHOHOH  CLOSEPOKEWAITHOHmmmmmmmmmmPRINTmmPOKEWAITOHOHOHO";
  120. 8104 [153]"POKEHOHOHO   POKEWAITOHOHOH  CLOSEPOKEWAITHOH```````````PRINT`POKEWAITOHOHOHO";
  121. 8114 [153]"POKEHOHOHO   POKEWAITOHOHOH   POKEWAITHO            PRINT  POKEWAITHOHOHO";
  122. 8124 [153]"POKEHOHOHO            POKEWAITHO  } g h } } PRINTg POKEWAITHOHOHO";
  123. 8134 [153]"POKEHOHOHO            POKEWAITHO qgwhq}w}qgwhPRINTqPOKEWAITHOHOHO";
  124. 8144 [153]"POKEHOHOHO   POKEWAITOHOHOH   POKEWAITHO qhw}q}wgqhw}PRINTqPOKEWAITHOHOHO";
  125. 8154 [153]"POKEHOHOHO   POKEWAITOHOHOH   POKEWAITHOCLOSE } } g h } }PRINT POKEWAITHOHOHO";
  126. 8164 [153]"POKEHOHOHO   POKEWAITOHOHOH   POKEWAITHOPRINT             PRINT POKEWAITHOHOHO";
  127. 8174 [153]"POKEHOHOHO   POKEWAITOHOHOH   POKEWAITHOHPRINT````````````POKEWAITHHOHOHO";
  128. 8184 [153]"POKEHOHOHO   POKEWAITOHOHOH   POKEWAITHOHPRINTnnnnnnnnnnnnPOKEWAITOHOHOHO";
  129. 8194 [153]"POKEHOHOHO   POKEWAITOHOHOH   POKEWAITHOHOPRINT``````````POKEWAITHOHOHOHO";
  130. 8204 [153]"POKEHOHOHO   POKEWAITOHOHOH   POKEWAITHOHOPRINT          POKEWAITHOHOHOHO";
  131. 8214 [153]"POKEHOHOHO   POKEWAITOHOHOH   POKEWAITHOHOHPRINT        POKEWAITOHOHOHOHO";
  132. 8224 [153]"POKEHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHO";
  133. 8234 [153]"POKEHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHO";
  134. 8244 [153]"POKEHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHO";
  135. 8254 [153]"POKEHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHOHO";
  136. 8264 [141]5
  137. 8274 [151]53280,3:[151]53281,0:[153]"LOAD";
  138. 8284 [153]"POKE                                        ";
  139. 8294 [153]"POKE                  udiPOKE                   ";
  140. 8304 [153]"POKE           SINPOKE      g*WAIThPOKE      SINPOKEWAIT            ";
  141. 8314 [153]"POKE            SINPOKE     j=kPOKE     SINPOKEWAIT             ";
  142. 8324 [153]"POKE             SINPOKE     }POKE     SINPOKEWAIT        .POKE     ";
  143. 8334 [153]"POKE              SINPOKE    }POKE    SINPOKEWAIT               ";
  144. 8344 [153]"POKE   m=nPOKE         oed```depPOKE                ";
  145. 8354 [153]"POKE   -v<POKE         gSINRNDLOGqCOS*SINWAIThPOKE          ANDPOKE     ";
  146. 8364 [153]"POKE   n>mPOKE         bINTPOKEWAIT ORd^POKE GETbPOKE         OR>^POKE    ";
  147. 8374 [153]"POKE               bwuEXPNEW/iwbPOKE        ABS<SQRWAIT-SGNPOKE   ";
  148. 8384 [153]"POKE           USRUSRUSRUSRbwj^NEWWAITORkwbUSRUSRUSRUSRPOKE     /=EXPPOKE    ";
  149. 8394 [153]"POKE               bGETPOKE /fEXPPOKE INTWAITbPOKE          USRPOKE     ";
  150. 8404 [153]"POKE               gSINWAITRNDLOGqCOS*SINhPOKE                ";
  151. 8414 [153]"POKE               lrf```frSQRPOKE                ";
  152. 8424 [153]"POKE       xPOKE      SINPOKEWAIT    }POKE    SINPOKE               ";
  153. 8434 [153]"POKE             SINPOKEWAIT     }POKE     SINPOKE              ";
  154. 8444 [153]"POKE            SINPOKEWAIT     u>iPOKE     SINPOKE             ";
  155. 8454 [153]"POKE           SINPOKEWAIT      gLOGWAIThPOKE      SINPOKE            ";
  156. 8464 [153]"POKE                  jfkPOKE                   ";
  157. 8474 [153]"POKE     *POKE                                  ";
  158. 8484 [153]"POKE               .POKE                        ";
  159. 8494 [153]"POKE                         xPOKE              ";
  160. 8504 [153]"POKE                                 .POKE      ";
  161. 8514 [153]"POKE                                    PPRINT#MPOKE  ";
  162. 8524 [141]5
  163. 8534 [151]53280,0:[151]53281,0:[153]"LOAD";
  164. 8544 [153]"                                        ";
  165. 8554 [153]"                                        ";
  166. 8564 [153]"       PRINT#```````POKE`     CLOSECLOSEPRINT#WAIT```````           ";
  167. 8574 [153]"       PRINT#``````POKE`     CLOSECLOSE  PRINT#WAIT``````           ";
  168. 8584 [153]"       PRINT#`````POKE`     CLOSECLOSE  CLOSECLOSEPRINT#WAIT`````           ";
  169. 8594 [153]"       PRINT#````POKE`     POKEWAIT``` CLOSECLOSE  PRINT#WAIT````           ";
  170. 8604 [153]"       PRINT#````POKE`    POKEWAIT`PRINT#```POKE`CLOSE  CLOSEPRINT#WAIT````           ";
  171. 8614 [153]"       PRINT#````POKE`   CLOSEPOKEWAIT`PRINT#```POKE`  CLOSECLOSEPRINT#WAIT````           ";
  172. 8624 [153]"       PRINT#````POKE``````PRINT#```POKE` CLOSECLOSE PRINT#WAIT````           ";
  173. 8634 [153]"       PRINT#`````````````POKE`CLOSECLOSE  PRINT#WAIT````           ";
  174. 8644 [153]"       PRINT#`````````````POKE`CLOSE  CLOSEPRINT#WAIT````           ";
  175. 8654 [153]"       PRINT#`````````````POKE`  CLOSECLOSEPRINT#WAIT````           ";
  176. 8664 [153]"       PRINT#`````````````POKE` CLOSECLOSE PRINT#WAIT````           ";
  177. 8674 [153]"       PRINT#`````````````POKE`CLOSECLOSE  PRINT#WAIT````           ";
  178. 8684 [153]"       PRINT#`````````````POKE`CLOSE  CLOSEPRINT#WAIT````           ";
  179. 8694 [153]"       PRINT#`````````````POKE`  CLOSECLOSEPRINT#WAIT````           ";
  180. 8704 [153]"       PRINT#`````````````POKE` CLOSECLOSE PRINT#WAIT````           ";
  181. 8714 [153]"       PRINT#`````````````POKE`CLOSECLOSE  PRINT#WAIT````           ";
  182. 8724 [153]"       PRINT#`````````````POKE`CLOSE  CLOSEPRINT#WAIT````           ";
  183. 8734 [153]"       PRINT#`````````````POKE`  CLOSE PRINT#WAIT````           ";
  184. 8744 [153]"       PRINT#`````````````POKE` CLOSE  PRINT#WAIT````           ";
  185. 8754 [153]"       PRINT#`````````````POKE`    PRINT#WAIT````POKEP          ";
  186. 8764 [153]"       PRINT#`````````````POKE`    PRINT#WAIT````POKEM          ";
  187. 8774 [141]5
  188. 8784 [151]53280,1:[151]53281,1:[153]"LOAD";
  189. 8794 [153]"                                        ";
  190. 8804 [153]"                   ABS  WAIT                  ";
  191. 8814 [153]"                  INT    WAIT                 ";
  192. 8824 [153]"                INT       WAIT                ";
  193. 8834 [153]"               GET        WAIT                ";
  194. 8844 [153]"             GET           WAIT               ";
  195. 8854 [153]"           GET              WAIT              ";
  196. 8864 [153]"                           WAIT             ";
  197. 8874 [153]"                                        ";
  198. 8884 [153]"            DEFANDANDANDPOSPOSPOSPOSPOSPOSNEWPOSANDANDAND              ";
  199. 8894 [153]"            DEF  `d`    `d`  WAIT              ";
  200. 8904 [153]"            DEF  <w>    <w>  WAIT              ";
  201. 8914 [153]"            DEF CLOSE    g       WAIT DEFABSWAIT            ";
  202. 8924 [153]"            DEF      FN       WAIT DEF WAIT            ";
  203. 8934 [153]"            DEF      TAB(USR     WAIT               ";
  204. 8944 [153]"            DEF FREFREUSRUSRUSRUSRUSRUSRFREWAITNEWPOS                ";
  205. 8954 [153]"            DEF   OR`````^ WAIT                 ";
  206. 8964 [153]"             DEFABS jfffffkWAITGET                 ";
  207. 8974 [153]"          TOANDTO DEFLOG      WAITGET  TOTOANDANDTO           ";
  208. 8984 [153]"              WAIT                WAIT          ";
  209. 8994 [153]"            CLOSE WAIT                  WAIT        ";
  210. 9004 [153]"               WAIT                  WAIT       ";
  211. 9014 [153]"               WAIT       CLOSE           WAIT      ";
  212. 9024 [153]"                WAIT                  CONTWAITPM    ";
  213. 9034 [141]5
  214. 9040 [141]5
  215. 9050 [151]53280,14:[151]53281,6:[153]"LOAD";
  216. 9060 [153]"CONT D.MCALEER1 ON GENIE WAIT                   ";
  217. 9070 [153]"CONT                                        ";
  218. 9080 [153]"CONTTHANKS FOR CHECKING THIS OUT!           ";
  219. 9090 [128]
  220.