home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / FANCY-64-SCREENS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  10.5 KB  |  200 lines

  1. 1 PRINTCHR$(8)CHR$(142):GOTO10
  2. 2 POKE198,0
  3. 3 GETY$:IFY$<>" "THEN3
  4. 4 RETURN
  5. 10 POKE53280,0:POKE53281,0:PRINT"[147]";
  6. 20 PRINT" [158] [154]       [146] [154][172]   [146][187] [154]  [146]   [146] [154][172]   [146][187] [154]  [146]   [146]   [154]   ";
  7. 30 PRINT"[158] [154]      [151][146]   [154]  [146]   [146] [154]     [146] [154]  [146]   [146] [154]  [146]   [154][146]      ";
  8. 40 PRINT"[158] [154]        [146]      [146]   [146]   [146]   [146]    [188]   [146][190]  [154]    ";
  9. 50 PRINT"[154]       [151][146]     [146]   [146]   [146]   [146]   [146]     [182] [146][181] [154]   [160]  ";
  10. 60 PRINT"[154]       [154][146]     [154][146]   [154][146]   [154][146]    [154][146]   [154][146]   [154][146]  [182] [146][181][154]       ";
  11. 70 PRINT"[154]       [146]     [146]   [146]   [146]    [146] [188]   [146][190]  [182] [146][181]  [154]     ";
  12. 80 PRINT"    [151]                                   [158] ";
  13. 90 PRINT"[158]            [129]BY PAUL MC ALEER[149]        [146]  [158]  ";
  14. 100 PRINT"[158]   [146]                                     ";
  15. 110 PRINT"[158]   [146]                                     ";
  16. 120 PRINT"[158]      [146] [158]    [146] [158]    [146]  [158]    [146] [158]    [146] [158]  [146][187]   [146]     [146] ";
  17. 130 PRINT"[158]    [158]  [146] [158]  [146]   [158]  [146] [158]  [146] [158]  [146][162][162] [158]  [146][162][162] [158]   [146][187]  [146]   [146][162][162] ";
  18. 140 PRINT"[158]   [158]   [146] [160] [146]   [158]    [146]  [158]  [146]   [158]  [146]   [158]  [146][188]   [146]     [146] ";
  19. 150 PRINT"[158]      [146]     [146] [158]  [146] [158]  [146] [158]    [146] [158]    [146] [158]  [146] [158][188]  [146] [158]    [146] ";
  20. 160 PRINT"            [159] [164]  [159][164]     [159][164]      [158]           ";
  21. 170 PRINT"             [154]I[159][146]  [154]N[159][146]     [154]A[146]                 ";
  22. 180 PRINT"             [163]  [163]     [163]     [150] [159]           ";
  23. 190 PRINT"      udddddddddddddddddddddddi         ";
  24. 200 PRINT" [150]     g[166][166][166][166] [166]   [166] [166][166][166][166][166] [166][166][166][166] [166]h         ";
  25. 210 PRINT"[150]      g[150][166]    [166][166]  [166] [166]   [166][160][166]  [150][166] [166]h       [150]  ";
  26. 220 PRINT"   [150][160][160][160]g[150][166][166][166][166][160][166][160][166][160][166][160][166][166][166][166][166][160][166][166][166][166][160][166]h         ";
  27. 230 PRINT"    [150][160][160]g[150][160][160][160][166][160][166][160][160][166][166][160][166][160][160][160][166] [150][166]    [150] h     [150]    ";
  28. 240 PRINT"[150] PRESS[199][166][166][166][166][150] [166][150]  [160][166][150][160][166][150][160][160][160][166][150][160][166][150][160]   [166][200]         ";
  29. 250 PRINT"[150][160]SPACE[202][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][203] [151]        ";
  30. 260 GOSUB2
  31. 270 POKE53280,0:POKE53281,0:PRINT"";
  32. 280 PRINT"[158]    [146]  [146]   [154]                              [158][146] ";
  33. 290 PRINT"[158]        [167][154] MANY PEOPLE THAT I MEET      [158][146] ";
  34. 300 PRINT"[158]   [146]     [167][154] HAVE ASKED ME HOW I CREATE   [158][146] ";
  35. 310 PRINT"[158]      [146]  [167][154] THE GRAPHIC-INTENSIVE SCREENS[158][146] ";
  36. 320 PRINT"[158]   [146]     [167][154] FEATURED ON MY DISKS.   THIS [158][146] ";
  37. 330 PRINT"[158]        [167][154] DEMO WILL SHOW YOU HOW I     [158][146] ";
  38. 340 PRINT"[158]  [146]   [146]   [167][154] MAKE THEM.  FIRST, YOU WILL  [158][146] ";
  39. 350 PRINT"[158] [146]     [146]  [167][154] NEED A SCREEN GRABBER[154] PROGRAM[158][146] ";
  40. 360 PRINT"[158] [146]     [146]  [167][154] WHICH WILL TAKE YOUR SCREEN  [158][146] ";
  41. 370 PRINT"[158]     [146]   [167][154] AND CONVERT IT TO A BASIC    [158][146] ";
  42. 380 PRINT"[158]        [167][154] PROGRAM.  MY FAVORITE IS     [158][146] ";
  43. 390 PRINT"[158]      [146]  [167][154] [156]SCREEN MASTER[154] FROM LOADSTAR  [158][146] ";
  44. 400 PRINT"[158]   [146]     [167][154] ISSUE #70.  THE FIRST STEP   [158][146] ";
  45. 410 PRINT"[158]  [146]      [167][154] IS TO EXPERIMENT!  TRY A FEW [158][146] ";
  46. 420 PRINT"[158]      [146]  [167][154] TEXT-ONLY SCREENS, AND 'GRAB'[158][146] ";
  47. 430 PRINT"[158]        [167][154] THEM.  SEE IF YOU LIKE THE   [158][146] ";
  48. 440 PRINT"[158]      [146]  [167][154] RESULTS.  IF YOU FIND THEM   [158][146] ";
  49. 450 PRINT"[158] [146]  [146]     [167][154] SATISFACTORY, YOU'RE READY   [146] ";
  50. 460 PRINT"[158] [154][146] [158] [154][146]     [167][154] TO BEGIN!                    [146] ";
  51. 470 PRINT"[158]      [146]  [167][154]                              [158][146] ";
  52. 480 PRINT"[158]         [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][158][146]   ";
  53. 490 PRINT"[158] [146]  [146]     [150][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][158] [150] ";
  54. 500 PRINT"[158] [146]  [146]      PRESS <SPACE> TO CONTINUE... [158][146] [150] ";
  55. 510 PRINT"[158]      [146]  [150][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][158] [150] ";
  56. 520 PRINT"[158]                                       [157][148] ";
  57. 530 GOSUB2
  58. 540 POKE53280,0:POKE53281,0:PRINT"";
  59. 550 PRINT"[153]    [158][146]  [153]    [158][146]  [153]    [158][146]   THE FIRST STEP TO    ";
  60. 560 PRINT"[153]  [158][146] [153]  [158][146]  [153]  [158][146]  [153]  [158][146]  [153]  [158][146]  MAKING OVERSIZED     ";
  61. 570 PRINT"[153]  [158][146] [153]  [158][146]  [153]  [158][146]  [153]  [158][146]      LETTERS, IS TO       ";
  62. 580 PRINT"[153]    [158][146]   [153]  [158][146]  [153]  [158][146] [153]   [158][146]  PICTURE IN YOUR MIND ";
  63. 590 PRINT"[153]  [158][146] [153]  [158][146]  [153]  [158][146]  [153]  [158][146]  [153]  [158][146]  A CHARACTER SET YOU  ";
  64. 600 PRINT"[153]  [158][146] [153]  [158][146]  [153]  [158][146]  [153]  [158][146]  [153]  [158][146]  LIKE.  THEN, CLEAR   ";
  65. 610 PRINT"[153]    [158][146]  [153]    [158][146]  [153]    [158][146]   THE SCREEN AND START ";
  66. 620 PRINT"[158]                   DRAWING IT WITH      ";
  67. 630 PRINT" L E T T E R S ! [158][146]  REVERSED SPACES. FOR ";
  68. 640 PRINT"[158]                   THIS DEMO, WE'LL TRY ";
  69. 650 PRINT"[158]THE LETTER A.  I'LL USE THE NORMAL 64   ";
  70. 660 PRINT"[158]FONT.                    [146]               ";
  71. 670 PRINT"[158]    [164][164][164][164][164][164][164]               [146]              ";
  72. 680 PRINT"[158]    NORMAL.[146]            [146]   [160][146]   [164][164][164][164][164][164][164][164]  ";
  73. 690 PRINT"[158]    [163][163][163]}[163][163][163]                [146]  _ENLARGED[146]  ";
  74. 700 PRINT"[158]                       [146]    [146]   [163][163][163][163][163][163][163][163]  ";
  75. 710 PRINT"[158]       A               [146]    [146]             ";
  76. 720 PRINT"[158]                       [146]   [160][146]             ";
  77. 730 PRINT"[158]                                        ";
  78. 740 PRINT"[158]AS YOU MAY KNOW, ALL CHARACTERS ARE MADE";
  79. 750 PRINT"[158]ON AN 8 X 8 PIXEL GRID.  WE'LL MAKE     ";
  80. 760 PRINT"[158]1 SQUARE = 1 PIXEL.                     ";
  81. 770 PRINT"[158]                                        ";
  82. 780 PRINT"  PRESS THE <SPACE BAR> TO CONTINUE... [158][146] ";
  83. 790 PRINT"[158]                                       [157][148] ";
  84. 800 GOSUB2
  85. 810 POKE53280,0:POKE53281,0:PRINT"";
  86. 820 PRINT"[153]    [158][146]  [153]    [158][146]  [153]    [158][146]   HMMM. THE EDGES ON   ";
  87. 830 PRINT"[153]  [158][146] [153]  [158][146]  [153]  [158][146]  [153]  [158][146]  [153]  [158][146]  OUR 'A' ARE PRETTY   ";
  88. 840 PRINT"[153]  [158][146] [153]  [158][146]  [153]  [158][146]  [153]  [158][146]      'ROUGH.'  LET'S      ";
  89. 850 PRINT"[153]    [158][146]   [153]  [158][146]  [153]  [158][146] [153]   [158][146]  SMOOTH THEM OUT.     ";
  90. 860 PRINT"[153]  [158][146] [153]  [158][146]  [153]  [158][146]  [153]  [158][146]  [153]  [158][146]                       ";
  91. 870 PRINT"[153]  [158][146] [153]  [158][146]  [153]  [158][146]  [153]  [158][146]  [153]  [158][146]  [129]YOU MAY USE THE[158]      ";
  92. 880 PRINT"[153]    [158][146]  [153]    [158][146]  [153]    [158][146]                        ";
  93. 890 PRINT"[153][158]                   [129] [146] [169] AND [169][146] [158]   [129]     [129] ";
  94. 900 PRINT" L E T T E R S ! [158][146]                       ";
  95. 910 PRINT"[158]                   [129]CHARACTERS, BUT FOR  ";
  96. 920 PRINT"[129]EDGES THAT AREN'T TRULY DIAGONAL, I     ";
  97. 930 PRINT"[129]USE COMMODORE D, F, C, AND V.[158]        [129]   ";
  98. 940 PRINT"[158]                                        ";
  99. 950 PRINT"[158]    [172]  [146][187]    COMMODORE D AND F WERE USED ";
  100. 960 PRINT"[158]   [172] [172][187] [146][187]   FOR THE TOP.  ON THE INSIDE ";
  101. 970 PRINT"[158]     [146]    [146]   I USED REVERSED D AND F.    ";
  102. 980 PRINT"[158]         [146]                               ";
  103. 990 PRINT"[158]     [146]    [146]   [169]  [146]  _THIS MAY SEEM        ";
  104. 1000 PRINT"[158]     [146]    [146]  [169] [146][169] [146]  SMOOTHER, BUT IT     ";
  105. 1010 PRINT"[158]     [146]    [146]    [146]    [146]  ISN'T 'CORRECT.'     ";
  106. 1020 PRINT"[164][164][164][164][164][164][164][164][164][164] [158]      [146]  AVOID USING THE      ";
  107. 1030 PRINT"[150]SPACE  BAR[146] [158]  [146]    [146]  SLANTS EXCEPT FOR    ";
  108. 1040 PRINT"    TO    [146] [158]  [146]    [146]  THE LETTERS X AND N. ";
  109. 1050 PRINT" CONTINUE [146] [158]  [146]    [146]                       ";
  110. 1060 PRINT"[158]                                       [157][148] ";
  111. 1070 GOSUB2
  112. 1080 POKE53280,0:POKE53281,0:PRINT"";
  113. 1090 PRINT"[154]          mmmmmm[146] [158] CHARACTER GRAPHICS    ";
  114. 1100 PRINT"[154]m          mmmmm[165][158][146] ARE THE MOST EXCITING ";
  115. 1110 PRINT"[154]mmCHARACTER mmmm[165][158][146] PART OF SCREEN DESIGN.";
  116. 1120 PRINT"[154]m[154]mm  GRAPHICSmmm[165][158][146] I LIKE TO USE THE     ";
  117. 1130 PRINT"mm[154]mm          mm[165][158][146] UPPERCASE MODE BECAUSE";
  118. 1140 PRINT"mmm[154]mm          m[165][158][146][160]IT OFFERS MORE        ";
  119. 1150 PRINT"[158][160][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] [158][146] GRAPHICS.  HERE ARE   ";
  120. 1160 PRINT"[158]                  SOME DESIGNS YOU MAY  ";
  121. 1170 PRINT"[158]CHECKERBOARD  }   WANT TO TRY OUT....   ";
  122. 1180 PRINT"[158]         FADE }                         ";
  123. 1190 PRINT"[191][191][191][191][191][191][191][191][191][191][191][191][191][158] } LINE } SMALL GRAPHICS   ";
  124. 1200 PRINT"[191][191][191][191][191][191][191][191][191][191][191][191][191][158] } FADE }                  ";
  125. 1210 PRINT"[191][191][191][191][158] [191][191][158]  [191][158]  [191][158] }      } [151]  [172][158][146] [172]  [158][146]   [159][186][175]l[158]  [159]  ";
  126. 1220 PRINT"[155][191][191][158] [155][191][158] [155][191][158]  [155][191][158] [155][191][191][158]  }  }}[158]  } [151] w.[158][146]  [146][190][158]  [146][169][158] [159][186][175]l[158]    ";
  127. 1230 PRINT"[158]  [155][191] [158]  [155][191][158]       }  }}[158]  } [151] } [158][146]  [146][187][158]  [158][146] [159][170] [180][158] [159]   ";
  128. 1240 PRINT"[158] [155][191][158]       [155][191][158]  [155][191][158] }  [159]}}[158]  }     [188]  [158][146]   [159]   [158]    ";
  129. 1250 PRINT"[158]              }  [159]}}[158]  } [159][175][158] [159][175][158]        [159]  [158]    ";
  130. 1260 PRINT"[155][191][158]   [152][191][158]         }  [154]}}[158]  } [159]w[158] [159]w[158]  [153][176]```[174][158]    [159]   ";
  131. 1270 PRINT"[158]          [155][191][158]   }  [154]}}[158]  }[159] [158] [159]q[158] [159] [158] [153]}o[183]p}[158] [159]^^^^[158]  ";
  132. 1280 PRINT"[158]              }  }}[158]  } [159]jfk[158]  [153]}l[175][186]}[158] [159]LwwK[158]  ";
  133. 1290 PRINT"[158]     [152][191][158]     [152][191][158]  }  }}[158]  }      [153][173]```[189][158]  [159]AT[158]   ";
  134. 1300 PRINT"[158]              }  }}[158]  }            [159]THIS[158]  ";
  135. 1310 PRINT"[152][187][158]   [152][187][158]   [151][191][158]     }  [156]}}[158]  }                  ";
  136. 1320 PRINT"[158]  PRESS THE <SPACE BAR> TO CONTINUE... [158][146] ";
  137. 1330 PRINT"[158]                                       [157][148] ";
  138. 1340 GOSUB2
  139. 1350 POKE53280,0:POKE53281,0:PRINT"";
  140. 1360 PRINT"[154]    [146]    [146]  [146]      [146]    [146]      [146]    [146]   [146][187]    [146]  ";
  141. 1370 PRINT"[154]  [146]    [146]  [146]  [146]    [146]  [146]  [146]  [146]    [146]    [146]  [146]  [146][188] [146]  [146]    ";
  142. 1380 PRINT"[154]  [146]    [146]  [146]  [146]    [146]  [146]    [146]      [146]    [146]  [146]  [146]    [146]  ";
  143. 1390 PRINT"[154]  [146]    [146]  [146]  [146]    [146]  [146]   [146]     [146]    [146]  [146]  [146][172] [146]  [146]    ";
  144. 1400 PRINT"[154]    [146]    [146]    [146]    [146]  [146]  [146]    [146]    [146]  [146]   [146][190]    [146]  ";
  145. 1410 PRINT"[154] [163][163][163] [163][163][163] [163][163][163] [163][163][163] [163] [163]   [163]   [163] [163] [163][163]  [163][163][163]  ";
  146. 1420 PRINT"[158]DUE TO THE 64'S COLOR CHOICES, YOU CAN  ";
  147. 1430 PRINT"[158]CREATE SOME INTERESTING COLOR FADES.    ";
  148. 1440 PRINT"[158]HERE ARE SOME EXAMPLES...[154]            [158]   ";
  149. 1450 PRINT"[154]                                        ";
  150. 1460 PRINT"[154] [150]           [154][146]   [154][146]   [154][146]   [154][146]   [154][146]   [154][146]             ";
  151. 1470 PRINT"[150]         [154] [159]  [154][146] [153]  [154][146] [158]  [154][146] [155]  [154][146] [150]  [154][146] [153]  [154][146]             ";
  152. 1480 PRINT"[150]         [154]   [146]   [154][146] [129]  [154][146] [152]  [154][146]   [154][146] [159]  [154][146]             ";
  153. 1490 PRINT"[150]         [154]   [154][146]      [154][146] [151]  [154][146]      [146]             ";
  154. 1500 PRINT"[150]         [154]       [149]  [154][146]         [154][146]             ";
  155. 1510 PRINT"[154]                         [156]  [154][146]             ";
  156. 1520 PRINT"[154]                           [154][146]             ";
  157. 1530 PRINT"[154]                                        ";
  158. 1540 PRINT"[154]                                        ";
  159. 1550 PRINT"[158]THE LAST COLOR ON JUST ABOUT ALL COLOR  ";
  160. 1560 PRINT"[158]SCALES IS BLACK.  BE SURE TO USE IT IF  ";
  161. 1570 PRINT"[158]YOUR BACKGROUND IS ANOTHER COLOR![154]       ";
  162. 1580 PRINT"[154]                                        ";
  163. 1590 PRINT"  PRESS THE <SPACE BAR> TO CONTINUE... [154][146] ";
  164. 1600 PRINT"[154]                                       [157][148] ";
  165. 1610 GOSUB2
  166. 1620 POKE53280,0:POKE53281,0:PRINT"";
  167. 1630 PRINT"[154]                                        ";
  168. 1640 PRINT"[158]      [154][146] [158]  [154][146]  [158]  [154][146] [158]      [154][146] AND THAT ENDS OUR [158] ";
  169. 1650 PRINT"[154]  [158]  [154][146]   [158]      [154][146] [158]  [146][162][162][162][162][154] TUTORIAL ON FANCY [158] ";
  170. 1660 PRINT"[154]  [158]  [154][146]   [158]  [154][146]  [158]  [154][146] [158]  [154][146]     SCREENS.  IF YOU  [158] ";
  171. 1670 PRINT"[154]  [158]  [154][146]   [158]  [154][146]  [158]  [154][146] [158]      [154][146] HAVE ANY QUESTIONS[158] ";
  172. 1680 PRINT"[154]                     OR COMMENTS, SEND  ";
  173. 1690 PRINT"[158]      [154][146] [158]  [154][146] [158]  [154][146] [158]     [146][187][154] THEM IN.  AND, IF  ";
  174. 1700 PRINT"[158]  [146][162][162][162][162][154] [158]     [154][146] [158]  [154][146]  [158]  [154][146] YOU CREATE A TRULY ";
  175. 1710 PRINT"[158]  [154][146]     [158]  [146]   [154][146] [158]  [154][146]  [158]  [154][146] UNIQUE SCREEN, I'D ";
  176. 1720 PRINT"[158]      [154][146] [158]  [154][146] [158]  [154][146] [158]     [146][190][154] LIKE TO SEE IT!    ";
  177. 1730 PRINT"[154]                                        ";
  178. 1740 PRINT"``````````````[189][154]         [173]```````````````";
  179. 1750 PRINT"[158][172]    [146][187][154]        [152]        [154]        [172]    [146][187][154]    ";
  180. 1760 PRINT"[158]     [146][169][154]                         [146]q  [146]q [152][146] m}n";
  181. 1770 PRINT"[158]    [146][169] [154] q[154]   q[154]  [152][160]q[152]   q[152]   q[154]   q[154]   [163]  [163] [154][146] `q`";
  182. 1780 PRINT"[158]    [146] [154]       [152] [154]                      [152][146] n}m";
  183. 1790 PRINT"[158]     [154][146]                              [152][146]    ";
  184. 1800 PRINT"[158][188]    [146][190][154]        [152]        [154]        [190][188][190][188][190][188][154]    ";
  185. 1810 PRINT"````````````````````````````````````````";
  186. 1820 PRINT"[154]      [129]  [158]E N D   O F   D E M O :[154]     [158]    ";
  187. 1830 PRINT"[154]                                        ";
  188. 1840 PRINT"[129] PRESS THE SPACE BAR TO VIEW ONCE AGAIN[154] ";
  189. 1850 PRINT"[154]                         [149][164][164][164][164][164][164][164][154]        ";
  190. 1860 PRINT"[149]   OR PRESS Q TO QUIT TO  BASIC [146] ....   ";
  191. 1870 PRINT"[154]                                       [157][148] ";
  192. 1880 GETY$:IFY$=""THEN1880
  193. 1890 IFY$=" "THENRUN
  194. 1990 IFY$="Q"THEN2000
  195. 1995 GOTO 1880
  196. 2000 POKE53280,14:POKE53281,6:PRINT"[147]"CHR$(9)CHR$(142)" D.MCALEER1 ON GENIE [146]"
  197. 2002 END
  198. 9999 STOP
  199. 10000 OPEN15,8,15,"S0:FANCY SCRNS":CLOSE15:SAVE"FANCY SCRNS",8:END
  200.