home *** CD-ROM | disk | FTP | other *** search
- 1 PRINTCHR$(8)CHR$(142):GOTO10
- 2 POKE198,0
- 3 GETY$:IFY$<>" "THEN3
- 4 RETURN
- 10 POKE53280,0:POKE53281,0:PRINT"[147]";
- 20 PRINT" [158] [154] [146] [154][172] [146][187] [154] [146] [146] [154][172] [146][187] [154] [146] [146] [154] ";
- 30 PRINT"[158] [154] [151][146] [154] [146] [146] [154] [146] [154] [146] [146] [154] [146] [154][146] ";
- 40 PRINT"[158] [154] [146] [146] [146] [146] [146] [188] [146][190] [154] ";
- 50 PRINT"[154] [151][146] [146] [146] [146] [146] [146] [182] [146][181] [154] [160] ";
- 60 PRINT"[154] [154][146] [154][146] [154][146] [154][146] [154][146] [154][146] [154][146] [182] [146][181][154] ";
- 70 PRINT"[154] [146] [146] [146] [146] [146] [188] [146][190] [182] [146][181] [154] ";
- 80 PRINT" [151] [158] ";
- 90 PRINT"[158] [129]BY PAUL MC ALEER[149] [146] [158] ";
- 100 PRINT"[158] [146] ";
- 110 PRINT"[158] [146] ";
- 120 PRINT"[158] [146] [158] [146] [158] [146] [158] [146] [158] [146] [158] [146][187] [146] [146] ";
- 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] ";
- 140 PRINT"[158] [158] [146] [160] [146] [158] [146] [158] [146] [158] [146] [158] [146][188] [146] [146] ";
- 150 PRINT"[158] [146] [146] [158] [146] [158] [146] [158] [146] [158] [146] [158] [146] [158][188] [146] [158] [146] ";
- 160 PRINT" [159] [164] [159][164] [159][164] [158] ";
- 170 PRINT" [154]I[159][146] [154]N[159][146] [154]A[146] ";
- 180 PRINT" [163] [163] [163] [150] [159] ";
- 190 PRINT" udddddddddddddddddddddddi ";
- 200 PRINT" [150] g[166][166][166][166] [166] [166] [166][166][166][166][166] [166][166][166][166] [166]h ";
- 210 PRINT"[150] g[150][166] [166][166] [166] [166] [166][160][166] [150][166] [166]h [150] ";
- 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 ";
- 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] ";
- 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] ";
- 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] ";
- 260 GOSUB2
- 270 POKE53280,0:POKE53281,0:PRINT"";
- 280 PRINT"[158] [146] [146] [154] [158][146] ";
- 290 PRINT"[158] [167][154] MANY PEOPLE THAT I MEET [158][146] ";
- 300 PRINT"[158] [146] [167][154] HAVE ASKED ME HOW I CREATE [158][146] ";
- 310 PRINT"[158] [146] [167][154] THE GRAPHIC-INTENSIVE SCREENS[158][146] ";
- 320 PRINT"[158] [146] [167][154] FEATURED ON MY DISKS. THIS [158][146] ";
- 330 PRINT"[158] [167][154] DEMO WILL SHOW YOU HOW I [158][146] ";
- 340 PRINT"[158] [146] [146] [167][154] MAKE THEM. FIRST, YOU WILL [158][146] ";
- 350 PRINT"[158] [146] [146] [167][154] NEED A SCREEN GRABBER[154] PROGRAM[158][146] ";
- 360 PRINT"[158] [146] [146] [167][154] WHICH WILL TAKE YOUR SCREEN [158][146] ";
- 370 PRINT"[158] [146] [167][154] AND CONVERT IT TO A BASIC [158][146] ";
- 380 PRINT"[158] [167][154] PROGRAM. MY FAVORITE IS [158][146] ";
- 390 PRINT"[158] [146] [167][154] [156]SCREEN MASTER[154] FROM LOADSTAR [158][146] ";
- 400 PRINT"[158] [146] [167][154] ISSUE #70. THE FIRST STEP [158][146] ";
- 410 PRINT"[158] [146] [167][154] IS TO EXPERIMENT! TRY A FEW [158][146] ";
- 420 PRINT"[158] [146] [167][154] TEXT-ONLY SCREENS, AND 'GRAB'[158][146] ";
- 430 PRINT"[158] [167][154] THEM. SEE IF YOU LIKE THE [158][146] ";
- 440 PRINT"[158] [146] [167][154] RESULTS. IF YOU FIND THEM [158][146] ";
- 450 PRINT"[158] [146] [146] [167][154] SATISFACTORY, YOU'RE READY [146] ";
- 460 PRINT"[158] [154][146] [158] [154][146] [167][154] TO BEGIN! [146] ";
- 470 PRINT"[158] [146] [167][154] [158][146] ";
- 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] ";
- 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] ";
- 500 PRINT"[158] [146] [146] PRESS <SPACE> TO CONTINUE... [158][146] [150] ";
- 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] ";
- 520 PRINT"[158] [157][148] ";
- 530 GOSUB2
- 540 POKE53280,0:POKE53281,0:PRINT"";
- 550 PRINT"[153] [158][146] [153] [158][146] [153] [158][146] THE FIRST STEP TO ";
- 560 PRINT"[153] [158][146] [153] [158][146] [153] [158][146] [153] [158][146] [153] [158][146] MAKING OVERSIZED ";
- 570 PRINT"[153] [158][146] [153] [158][146] [153] [158][146] [153] [158][146] LETTERS, IS TO ";
- 580 PRINT"[153] [158][146] [153] [158][146] [153] [158][146] [153] [158][146] PICTURE IN YOUR MIND ";
- 590 PRINT"[153] [158][146] [153] [158][146] [153] [158][146] [153] [158][146] [153] [158][146] A CHARACTER SET YOU ";
- 600 PRINT"[153] [158][146] [153] [158][146] [153] [158][146] [153] [158][146] [153] [158][146] LIKE. THEN, CLEAR ";
- 610 PRINT"[153] [158][146] [153] [158][146] [153] [158][146] THE SCREEN AND START ";
- 620 PRINT"[158] DRAWING IT WITH ";
- 630 PRINT" L E T T E R S ! [158][146] REVERSED SPACES. FOR ";
- 640 PRINT"[158] THIS DEMO, WE'LL TRY ";
- 650 PRINT"[158]THE LETTER A. I'LL USE THE NORMAL 64 ";
- 660 PRINT"[158]FONT. [146] ";
- 670 PRINT"[158] [164][164][164][164][164][164][164] [146] ";
- 680 PRINT"[158] NORMAL.[146] [146] [160][146] [164][164][164][164][164][164][164][164] ";
- 690 PRINT"[158] [163][163][163]}[163][163][163] [146] _ENLARGED[146] ";
- 700 PRINT"[158] [146] [146] [163][163][163][163][163][163][163][163] ";
- 710 PRINT"[158] A [146] [146] ";
- 720 PRINT"[158] [146] [160][146] ";
- 730 PRINT"[158] ";
- 740 PRINT"[158]AS YOU MAY KNOW, ALL CHARACTERS ARE MADE";
- 750 PRINT"[158]ON AN 8 X 8 PIXEL GRID. WE'LL MAKE ";
- 760 PRINT"[158]1 SQUARE = 1 PIXEL. ";
- 770 PRINT"[158] ";
- 780 PRINT" PRESS THE <SPACE BAR> TO CONTINUE... [158][146] ";
- 790 PRINT"[158] [157][148] ";
- 800 GOSUB2
- 810 POKE53280,0:POKE53281,0:PRINT"";
- 820 PRINT"[153] [158][146] [153] [158][146] [153] [158][146] HMMM. THE EDGES ON ";
- 830 PRINT"[153] [158][146] [153] [158][146] [153] [158][146] [153] [158][146] [153] [158][146] OUR 'A' ARE PRETTY ";
- 840 PRINT"[153] [158][146] [153] [158][146] [153] [158][146] [153] [158][146] 'ROUGH.' LET'S ";
- 850 PRINT"[153] [158][146] [153] [158][146] [153] [158][146] [153] [158][146] SMOOTH THEM OUT. ";
- 860 PRINT"[153] [158][146] [153] [158][146] [153] [158][146] [153] [158][146] [153] [158][146] ";
- 870 PRINT"[153] [158][146] [153] [158][146] [153] [158][146] [153] [158][146] [153] [158][146] [129]YOU MAY USE THE[158] ";
- 880 PRINT"[153] [158][146] [153] [158][146] [153] [158][146] ";
- 890 PRINT"[153][158] [129] [146] [169] AND [169][146] [158] [129] [129] ";
- 900 PRINT" L E T T E R S ! [158][146] ";
- 910 PRINT"[158] [129]CHARACTERS, BUT FOR ";
- 920 PRINT"[129]EDGES THAT AREN'T TRULY DIAGONAL, I ";
- 930 PRINT"[129]USE COMMODORE D, F, C, AND V.[158] [129] ";
- 940 PRINT"[158] ";
- 950 PRINT"[158] [172] [146][187] COMMODORE D AND F WERE USED ";
- 960 PRINT"[158] [172] [172][187] [146][187] FOR THE TOP. ON THE INSIDE ";
- 970 PRINT"[158] [146] [146] I USED REVERSED D AND F. ";
- 980 PRINT"[158] [146] ";
- 990 PRINT"[158] [146] [146] [169] [146] _THIS MAY SEEM ";
- 1000 PRINT"[158] [146] [146] [169] [146][169] [146] SMOOTHER, BUT IT ";
- 1010 PRINT"[158] [146] [146] [146] [146] ISN'T 'CORRECT.' ";
- 1020 PRINT"[164][164][164][164][164][164][164][164][164][164] [158] [146] AVOID USING THE ";
- 1030 PRINT"[150]SPACE BAR[146] [158] [146] [146] SLANTS EXCEPT FOR ";
- 1040 PRINT" TO [146] [158] [146] [146] THE LETTERS X AND N. ";
- 1050 PRINT" CONTINUE [146] [158] [146] [146] ";
- 1060 PRINT"[158] [157][148] ";
- 1070 GOSUB2
- 1080 POKE53280,0:POKE53281,0:PRINT"";
- 1090 PRINT"[154] mmmmmm[146] [158] CHARACTER GRAPHICS ";
- 1100 PRINT"[154]m mmmmm[165][158][146] ARE THE MOST EXCITING ";
- 1110 PRINT"[154]mmCHARACTER mmmm[165][158][146] PART OF SCREEN DESIGN.";
- 1120 PRINT"[154]m[154]mm GRAPHICSmmm[165][158][146] I LIKE TO USE THE ";
- 1130 PRINT"mm[154]mm mm[165][158][146] UPPERCASE MODE BECAUSE";
- 1140 PRINT"mmm[154]mm m[165][158][146][160]IT OFFERS MORE ";
- 1150 PRINT"[158][160][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] [158][146] GRAPHICS. HERE ARE ";
- 1160 PRINT"[158] SOME DESIGNS YOU MAY ";
- 1170 PRINT"[158]CHECKERBOARD } WANT TO TRY OUT.... ";
- 1180 PRINT"[158] FADE } ";
- 1190 PRINT"[191][191][191][191][191][191][191][191][191][191][191][191][191][158] } LINE } SMALL GRAPHICS ";
- 1200 PRINT"[191][191][191][191][191][191][191][191][191][191][191][191][191][158] } FADE } ";
- 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] ";
- 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] ";
- 1230 PRINT"[158] [155][191] [158] [155][191][158] } }}[158] } [151] } [158][146] [146][187][158] [158][146] [159][170] [180][158] [159] ";
- 1240 PRINT"[158] [155][191][158] [155][191][158] [155][191][158] } [159]}}[158] } [188] [158][146] [159] [158] ";
- 1250 PRINT"[158] } [159]}}[158] } [159][175][158] [159][175][158] [159] [158] ";
- 1260 PRINT"[155][191][158] [152][191][158] } [154]}}[158] } [159]w[158] [159]w[158] [153][176]```[174][158] [159] ";
- 1270 PRINT"[158] [155][191][158] } [154]}}[158] }[159] [158] [159]q[158] [159] [158] [153]}o[183]p}[158] [159]^^^^[158] ";
- 1280 PRINT"[158] } }}[158] } [159]jfk[158] [153]}l[175][186]}[158] [159]LwwK[158] ";
- 1290 PRINT"[158] [152][191][158] [152][191][158] } }}[158] } [153][173]```[189][158] [159]AT[158] ";
- 1300 PRINT"[158] } }}[158] } [159]THIS[158] ";
- 1310 PRINT"[152][187][158] [152][187][158] [151][191][158] } [156]}}[158] } ";
- 1320 PRINT"[158] PRESS THE <SPACE BAR> TO CONTINUE... [158][146] ";
- 1330 PRINT"[158] [157][148] ";
- 1340 GOSUB2
- 1350 POKE53280,0:POKE53281,0:PRINT"";
- 1360 PRINT"[154] [146] [146] [146] [146] [146] [146] [146] [146][187] [146] ";
- 1370 PRINT"[154] [146] [146] [146] [146] [146] [146] [146] [146] [146] [146] [146] [146][188] [146] [146] ";
- 1380 PRINT"[154] [146] [146] [146] [146] [146] [146] [146] [146] [146] [146] [146] [146] ";
- 1390 PRINT"[154] [146] [146] [146] [146] [146] [146] [146] [146] [146] [146] [146][172] [146] [146] ";
- 1400 PRINT"[154] [146] [146] [146] [146] [146] [146] [146] [146] [146] [146][190] [146] ";
- 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] ";
- 1420 PRINT"[158]DUE TO THE 64'S COLOR CHOICES, YOU CAN ";
- 1430 PRINT"[158]CREATE SOME INTERESTING COLOR FADES. ";
- 1440 PRINT"[158]HERE ARE SOME EXAMPLES...[154] [158] ";
- 1450 PRINT"[154] ";
- 1460 PRINT"[154] [150] [154][146] [154][146] [154][146] [154][146] [154][146] [154][146] ";
- 1470 PRINT"[150] [154] [159] [154][146] [153] [154][146] [158] [154][146] [155] [154][146] [150] [154][146] [153] [154][146] ";
- 1480 PRINT"[150] [154] [146] [154][146] [129] [154][146] [152] [154][146] [154][146] [159] [154][146] ";
- 1490 PRINT"[150] [154] [154][146] [154][146] [151] [154][146] [146] ";
- 1500 PRINT"[150] [154] [149] [154][146] [154][146] ";
- 1510 PRINT"[154] [156] [154][146] ";
- 1520 PRINT"[154] [154][146] ";
- 1530 PRINT"[154] ";
- 1540 PRINT"[154] ";
- 1550 PRINT"[158]THE LAST COLOR ON JUST ABOUT ALL COLOR ";
- 1560 PRINT"[158]SCALES IS BLACK. BE SURE TO USE IT IF ";
- 1570 PRINT"[158]YOUR BACKGROUND IS ANOTHER COLOR![154] ";
- 1580 PRINT"[154] ";
- 1590 PRINT" PRESS THE <SPACE BAR> TO CONTINUE... [154][146] ";
- 1600 PRINT"[154] [157][148] ";
- 1610 GOSUB2
- 1620 POKE53280,0:POKE53281,0:PRINT"";
- 1630 PRINT"[154] ";
- 1640 PRINT"[158] [154][146] [158] [154][146] [158] [154][146] [158] [154][146] AND THAT ENDS OUR [158] ";
- 1650 PRINT"[154] [158] [154][146] [158] [154][146] [158] [146][162][162][162][162][154] TUTORIAL ON FANCY [158] ";
- 1660 PRINT"[154] [158] [154][146] [158] [154][146] [158] [154][146] [158] [154][146] SCREENS. IF YOU [158] ";
- 1670 PRINT"[154] [158] [154][146] [158] [154][146] [158] [154][146] [158] [154][146] HAVE ANY QUESTIONS[158] ";
- 1680 PRINT"[154] OR COMMENTS, SEND ";
- 1690 PRINT"[158] [154][146] [158] [154][146] [158] [154][146] [158] [146][187][154] THEM IN. AND, IF ";
- 1700 PRINT"[158] [146][162][162][162][162][154] [158] [154][146] [158] [154][146] [158] [154][146] YOU CREATE A TRULY ";
- 1710 PRINT"[158] [154][146] [158] [146] [154][146] [158] [154][146] [158] [154][146] UNIQUE SCREEN, I'D ";
- 1720 PRINT"[158] [154][146] [158] [154][146] [158] [154][146] [158] [146][190][154] LIKE TO SEE IT! ";
- 1730 PRINT"[154] ";
- 1740 PRINT"``````````````[189][154] [173]```````````````";
- 1750 PRINT"[158][172] [146][187][154] [152] [154] [172] [146][187][154] ";
- 1760 PRINT"[158] [146][169][154] [146]q [146]q [152][146] m}n";
- 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`";
- 1780 PRINT"[158] [146] [154] [152] [154] [152][146] n}m";
- 1790 PRINT"[158] [154][146] [152][146] ";
- 1800 PRINT"[158][188] [146][190][154] [152] [154] [190][188][190][188][190][188][154] ";
- 1810 PRINT"````````````````````````````````````````";
- 1820 PRINT"[154] [129] [158]E N D O F D E M O :[154] [158] ";
- 1830 PRINT"[154] ";
- 1840 PRINT"[129] PRESS THE SPACE BAR TO VIEW ONCE AGAIN[154] ";
- 1850 PRINT"[154] [149][164][164][164][164][164][164][164][154] ";
- 1860 PRINT"[149] OR PRESS Q TO QUIT TO BASIC [146] .... ";
- 1870 PRINT"[154] [157][148] ";
- 1880 GETY$:IFY$=""THEN1880
- 1890 IFY$=" "THENRUN
- 1990 IFY$="Q"THEN2000
- 1995 GOTO 1880
- 2000 POKE53280,14:POKE53281,6:PRINT"[147]"CHR$(9)CHR$(142)" D.MCALEER1 ON GENIE [146]"
- 2002 END
- 9999 STOP
- 10000 OPEN15,8,15,"S0:FANCY SCRNS":CLOSE15:SAVE"FANCY SCRNS",8:END
-