FROM Q-LINK DISK # 154dA$"ѠѠѠѠѠѠ":G$"":(8) B$"ѠѠѠѠѠѠ":53281,0:"";C$"ѠѠѠѠѠѠ ":53280,0:(142); D$"ѠѠѠѠѠѠ "M E$"ѠѠѠѠѠѠ " F$"ѠѠѠѠѠ ":X0 #"  S P O T S O F T ' S" ("  - - - - - - - - - - -" -"  GRAPHICS DEMONSTRATION":"  "I 2" I)NSTRUCTIONS"l 7" S)TART DEMO" <" Q)UIT" A" CHOOSE AN OPTION, PLEASE";:646,7:198,0 FF$G$A$"";:E$G$B$"";:D$G$C$"";6 KC$G$D$"";:B$G$E$"";:A$G$F$"";:X$:X$""70F PX$"I"120V UX$"S"230f ZX$"Q"100n _70 d" ARE YOU SURE ? NO";X$:X$(X$,1) iX$"N"" YEAH, I THOUGHT SO...":DL01500:: nX$"Y"65126 s:100A x(14);" ' Ӡ"i }" " " ' RAPHICS EMO IS A" "COLLECTION OF 20 OR SO STRANGE AND ODD" "-64 GRAPHICS ROUTINES THAT HAVE USED" "OVER THE YEARS. OME OF THESE ROUTINES"O "ARE WRITTEN IN Ù, SOME IN MACHINE"{ "LANGUAGE, BUT MOST USE A COMBINATION" "OF THE TWO." " ANY OF THESE TRICKS WERE WRITTEN" "BY ME, AND A FEW HAVE BEEN CULLED""FROM OTHER PROGRAMS. LL ARE BROKEN"3"DOWN HERE INTO USEABLE FORM."a" O USE ANY OF THESE ROUTINES, JUST""COPY THE PORTION OF THIS PROGRAM THAT""CONTAINS THE SPECIFIC ROUTINE YOU WANT-""IT WILL BE IN A COLORED ͙ STATEMENT-""AND DO WHATEVER YOU WANT WITH IT."B" F YOU HAVE ANY QUESTIONS, JUST "b"-AIL ԙ ON -INK.""  RESS <> TO ONTINUE "198,0:198,1:53280,0:53281,0:(147);" *** CBARSA$"        "[J14:A$:J:646,7:" 0) BLK 1) WHT 2) RED 3) CYNf295;A$"        " J14:A$:J:646,7:" 4) PRP 5) GRN 6) BLU 7) YLW':A$"        "hJ14:A$:J:646,7:" 8) ORN 9) BRN 10) PNK 11) GY1:A$"        "J14:A$:J:646,7:" 12) GY2 13) LGN 14) LBU 15) GY3"320'" "," "-1" "A6" "G;@" ADJUST COLOR, THEN PRESS ":198,0:198,1E"J ***** SPLIT WIPEOJ4915249259:X:J,X:T169,20,133,250,169,0,162,4,160,216,133,251,133,253,134,252,132KY254,162,24,160,38,177,251,200,145,251,136,177,253,200,145,253,136^136,192,20,176,239,160,20,169,32,145,251,160,1,177,251,136,145c251,200,177,253,136,145,253,200,200,192,21,144,239,160,19,169,32h145,251,165,251,24,105,40,133,251,144,2,230,252,165,253,24,105]m40,133,253,144,2,230,254,202,16,181,160,10,202,208,253,136,208yr250,198,250,208,153,96w" S P L I T W I P E"|" THIS EFFECT IS A SIMPLE MACHINE"" LANGUAGE WIPE. IT DIVIDES THE SCREEN"+" INTO TWO HALVES, THEN SHUTTLES EACH"R" HALF OFF OF THE SCREEN."" TO WIPE, PRESS NOW."198,0:198,1:198,0:49152" ******* TRIPLE WIPE" T R I P L E W I P E"" THIS IS A SHORT AND SIMPLE BASIC"N" WIPE. IT TAKES THREE QUICK PASSES"x" TO CLEAR ANY LO-RES SCREEN"D14642023:D,208:" TO WIPE, HIT NOW":198,0:198,1:198,0D202310243:D,96: T102520233:T,96:%H202210243:H,96:."H ******* CIRCLE WIPEq" C I R C L E W I P E"" YES, ANOTHER WIPE. THIS ONE CLEARS""ANY LO-RES SCREEN IN A SPIRAL PATTERN""FROM THE OUTSIDE IN."D13842023:D,208:G" TO WIPE, PRESS NOW.":198,0:198,1:198,0yA0:B39:C1024:D0:E23:F1063:G2023:H1984NAB:CN,32::NDE:F(40N),32:NAB:GN,32::NDE:H(40N),32:AA1:BB1:CC40:DD1:EE1:FF1:GG40:HH1  A12535510W"":12)" THAT'S ALL ":D01500:`"|! ******* FADE OUT & IN&" F A D E O U T & I N"+J4915249254:X:J,X:0162,0,160,0,189,33,192,153,0,216,153,0,217,153,0,218,153E50,219,200,208,241,32,41,192,232,224,5,208,228,96,234,234,1:15,12,11,0,4,0,0,140,39,192,142,38,192,141,40,192,162?0,160,0,200,208,253,232,224,64,208,246,174,38,192,172,39,192D173,40,192,96,140,39,192,142,38,192,141,40,192,162,0,160,0JI200,208,253,232,224,16,208,246,174,38,192,172,39,192,173,40,192,96cN A(X)(40(M$))2SM$"THIS IS A ROUTINE THAT WILL FADE-IN":635XM$"ONE SCREEN OF LO-RES GRAPHICS,":635]M$"THEN FADE IT OUT FOR ANOTHER,":635bM$"ENTIRELY DIFFERENT SCREEN.":635<gM$"THE FADEOUT ROUTINE IS":635\lM$"MACHINE LANGUAGE;":635qM$"THE FADE-IN PART IS BASIC.":635v650{C$(151)(152)(155)(5)I14:A(X))(C$,I,1)M$(145)J150:J,I:"":D03500::49152"0 ******* PUSH DOWN, PULL UP[J4915249251:X:J,X::198,0:49205" P U S H D O W N, P U L L U P"" PRETTY NEAT, EH? THIS MACHINE"" LANGUAGE ROUTINE CAN DROP ANY LO-RES"" SCREEN, CHANGE IT AROUND WHILE IT'S"=" DOWN, THEN PULL IT BACK UP"" TO DROP, PRESS NOW":49152:198,1:198,0169,24,133,252,120,169,0,133,251,166,251,173,18,208,208,251,17318,208,205,18,208,240,251,41,7,5,252,141,17,208,232,208,238M230,251,230,251,165,251,201,207,144,221,165,252,9,27,141,17,20888,96,120,169,207,133,251,166,251,173,18,208,208,251,173,18,208205,18,208,240,251,41,7,5,252,141,17,208,232,208,238,198,251 198,251,165,251,201,2,176,221,169,11,141,17,208,88,96& 49205:"":49152/ "P  ******* SPARKLE CHARACTERS{ J4915249211:X:J,X::198,0:49152 " S P A R K L E C H A R A C T E R" " "!" THIS PROGRAM--WHICH LOOKS BEST ON"3!"A DARK SCREEN--WILL MAKE ALL THE"p!"CHARACTERS ON THE SCREEN SHIMMER WITH":"COLOR."!" BE SURE TO FILL THE SCREEN WITH "! "REVERSE SPACE CHARACTERS FIRST, THEN"!"PRINT YOUR MESSAGES IN REVERSE, ALSO."0"" PRESS TO CONTINUE":49191g"160,0,169,160,153,0,4,153,0,5,153,0,6,153,0,7,200" 208,241,160,0,169,0,153,0,216,153,0,217,153,0,218,153,0"%219,200,208,241,96,238,33,208,165,198,240,249,169,0,141,33,208#*133,198,96,141,33,208,133,198,96#/":#4 ******* SPARKLE CHARACTERS 2p#9J4915249193:X:J,X::53280,0:53281,0:198,0#>" S P A R K L E C H A R A C T E R S 2"#C" "$H" THIS IS, OF COURSE, ANOTHER ROUTINE"0$M"THAT MAKES THE CHARACTERS ON THE SCREEN"_$R"SPARKLE, BUT THIS ONE WORKS BY CYCLING"y$W"COLOR ROM ITSELF."$\" PRESS TO CONTINUE"'LR07:53270,((53270)248)LR:LR:RL701'53270,((53270)248)RL::X$:X$""945'"' ******* ROUND'N'ROUND(J4915249342:X:J,X:5(" R O U N D ' N ' R O U N D"f(" I TOLD YOU SO! IF YOU PLAN ON USING"(" THIS ROUTINE, BE SURE AND ADVISE YOUR"(" USERS TO TAKE A COUPLE OF DOZEN EXTRA"(" STRENGTH EXCEDRIN TABLETS.")" AS IN THE PREVIOUS EXAMPLE, THIS"K)" ROUTINE IS BEST WHEN TAKEN IN EXTREME"{)" MODERATION. SURE CATCHES THE EYE, EH?")" PRESS TO CONTINUE")49152:198,0:198,1:49155)76,49,192,76,112,192,1,0,1,2,3,4,5,6,7,7,7,7,7 *6,5,4,3,2,1,0,0,0,4,5,6,7,7,7K*7,6,5,4,3,2,1,0,0,0,0,1,2,3,4,120,169* 88,141,20,3,169,192,141,21,3,169,1,141,26,208,169,0,141*18,208,173,17,208,41,119,141,17,208,173,22,208,41,247,141,22+208,88,96,173,25,208,41,1,240,11,169,1,141,25,208,32,150M+192,76,49,234,104,168,104,170,104,64,120,169,128,141,26,208,169+49,141,20,3,169,234,141,21,3,173,22,208,41,240,9,8,141+$22,208,173,17,208,41,240,9,11,141,17,208,88,96,174,6,192,)173,22,208,41,248,29,7,192,141,22,208,173,17,208,41,248,29R,.28,192,141,17,208,238,6,192,173,6,192,201,21,144,5,169,0,141,6,192,96[,3"{,8 ******* FAST-COLOR-CYCLER,=J4915249222:X:J,X::53281,1,B"  F A S T C O L O R C Y C L E R "-G"  "3-L"  THE BORDER IS CYCLING COLORS "a-Q"  NOW. TO CYCLE THE SCREEN, PRESS "-V"  . PRESS AGAIN, & "-["  BOTH BORDER & SCREEN WILL "-`"  CYCLE. PRESS AGAIN TO ".e"  GO ON TO THE NEXT ROUTINE. "N.j"  ":49152.o173,32,208,141,0,193,173,33,208,141,1,193,169,0,133,198,238.t32,208,165,198,240,249,173,0,193,141,32,208,169,0,133,198,238/y33,208,165,198,240,249,169,0,133,198,238,32,208,238,33,208,165b/~198,240,246,173,0,193,141,32,208,173,1,193,141,33,208,169,0,133,198,96k/"/ ******* RANDOM SCROLL/J4915249216:X:J,X:/53281,0:53280,0:" R A N D O M S C R O L L"0" THIS ONE DOESN'T NEED EXPLAINING..."D0"BUT IT WORKS BY RANDOMLY CYCLING COLOR"p0"ROM ON A LINE-BY-LINE BASIS. THIS"0"MAY NOT BE PRACTICAL, BUT IT'S CUTE."0" PRESS TO STOP"0D15042023:D,208::198,0:49152.1206,4,192,169,4,208,48,169,255,141,4,192,162,24,189,240,236p1141,35,192,181,217,41,15,24,105,212,141,36,192,160,39,169,611153,0,216,136,16,250,206,33,192,202,16,224,173,33,192,24,10518,141,33,192,169,1,141,25,208,165,198,240,192,961" 2 ******* SCRAMBLED ROMQ2V1:M$" ":CR6:B(M$):WA(40B)21:""{2646,7:AB11:M1$(M$,A,1):(19)2M1$" "T1CR2:WAA)M1$(145):WAA)" "2:WAA)M1$:2V1V0:M$"HERE IS SCRAMBLED ROM!":CR5:1240,3646,0:" THIS IS ANOTHER ONE OF THOSE FLASHY"\3" ROUTINES. THIS ONE RANDOMLY SCRAMBLES"3" EACH INDIVIDUAL BYTE IN COLOR ROM."3" NOW, WHILE I DON'T SHOW IT HERE, THIS"3" ROUTINE LOOKS A BIT BETTER WHEN USED"4" WITH LARGER GRAPHIC IMAGES."D4 " PRESS TO CONTINUE":646,7o4J4915249215:X:J,X::198,0:491524169,255,141,14,212,141,15,212,169,128,141,18,212,162,0,173,27,212,15750,216,157,0,217,157,0,218,157,0,219,232,224,0,208,236,165,198,240,230N5173,134,2,160,0,153,0,216,153,0,217,153,0,218,153,0,219,200,208,241d5#169,0,133,198,96m5("5- ******* MOVING DIAMOND52J4915249202:X:J,X:57" M V I N G D I A M N D"6<" THIS EFFECT IS MACHINE LANGUAGE AND"36A"BASIC. THE BASIC LAYS THE COLOR ROM"`6F"DOWN IN A SPECIFIC PATTERN, THEN THE"6K"MACHINE LANGUAGE TAKES OVER TO CHANGE"6P"COLOR ROM, CREATING THE ILLUSION"6U"OF MOTION. I HAVE INCLUDED TWO DIFF-"7Z"ERENT PATTERNS, BUT MAKING YOUR OWN IS"V7_"VERY EASY.":" PRESS NOW TO SEE THE FIRST"7d"PATTERN. THEN, PRESS AGAIN TO SEE THE"7i"SECOND. PRESS ONE MORE TIME TO GO ON"7n"TO THE NEXT ROUTINE.":198,0:198,1:198,08s49183:G55296:C0:S0 8xSC:L019:GL,S:SS1:P8}GG40:CC1:G55736G55316:C0:S0:1415Z814008SC:L1901:GL,S:SS1::GG40:CC1:G557561425814158G55776:C255:S2558SC:L1901:GL,S:SS1::GG40:CC1:G562761440914309G55796:C255:S25579SC:L019:GL,S:SS1:V9GG40:CC1:G562951460`914459X$:X$""J045::49152:14609X15:198,0:A0:B39:C55296:D0:E23:F55335:G56295:H562569NAB:CN,X::NDE:F(40N),X::NAB:GN,X::NDE:H(40N),X:V:AA1:BB1:CC40:DD1:EE1:FF1:GG40:HH1:XX1f: A121495p:1470:X$:X$""J050::49152:1495:173,18,208,208,251,160,0,132,253,162,4,169,216,133,254,177,253;24,105,1,145,253,136,208,246,230,254,202,208,241,96,160,0,169U;208,153,0,4,153,0,5,153,0,6,153,0,7,200,208,241,96^;"|; ******* RASTER SCROLLER;" R A S T E R S C R O L L E R";"  " <"  THIS NIFTY INTERRUPT-DRIVEN "7<"  ROUTINE USES THE C-64'S RASTER "d< "  CONTROL CAPABILITIES. YOU CAN "<"  EASILY USE THIS ROUTINE WITH "<"  MOST BASIC PROGRAMS TO CATCH "<"  AND HOLD THE USER'S INTEREST. "="  "E=""  "r='"  PRESS TO CONTINUE "=,"  "=1J4915249298:X:J,X::2,0:792,0:793,192>649196,1,11,12,15: *****CHANGE THESE NUMBERS TO CHANGE THE COLORSX>;56580,100:56581,1:56582,0:56583,0: **** 56580 IS SPEED>@56589,130:56590,17:56591,81:198,0:198,1>E198,0:49273:646,7>J72,138,72,152,72,164,2,200,192,16,208,2,160,0,132,2,185?O28,192,141,33,208,141,33,208,76,81,254,1,3,6,14,1,3N?T6,14,1,3,6,14,1,3,6,14,32,155,183,134,251,32,155?Y183,134,252,32,155,183,134,253,32,155,183,134,254,165,251,141,28?^192,141,32,192,141,36,192,141,40,192,165,252,141,29,192,141,33@c192,141,37,192,141,41,192,165,253,141,30,192,141,34,192,141,38`@h192,141,42,192,165,254,141,31,192,141,35,192,141,39,192,141,43@m192,96,120,169,71,141,24,3,169,254,141,25,3,88,169,0,141@r32,208,141,33,208,169,147,32,210,255,96@w"@| ******* MESSAGE CRAWLERAJ4940849494:X:J,X: TO QUIT":198,0:198,1:49201J{120,169,127,141,13,220,169,1,141,26,208,169,40,141,18,208,169,27,141$K17,208,169,81,141,20,3,169,192,141,21,3,88,96,173,18,208,201,38,208oK249,173,17,208,73,16,141,17,208,96,120,169,49,141,20,3,169,234,141,21K3,169,240,141,26,208,169,129,141,13,220,173,120,195,141,32,208,141,33L208,88,96,169,1,141,25,208,174,18,208,224,0,240,20,189,80,195,141,33PL208,141,32,208,232,232,142,18,208,104,168,104,170,104,64,169,40,141,18cL208,76,49,234lL"L ******* CHARACTER EFFECTSLJ4915249296:X:J,X::53280,0:53281,0:49152L" C H A R A C T E R E F F E C T S":198,0(M" THIS NEXT GROUP OF EFFECTS IS ON A BIT"WM" HIGHER PLANE THAN MOST YOU HAVE SEEN"vM" SO FAR"M" THIS FIRST ONE PLAYS WITH THAT PART OF"M" CHARACTER RAM WHERE THE BITS FOR THE"M" SPACE CHARACTER LIE"2N" PRESS TO CONTINUE":X1^NJ2892828935:J,X:J:XX2:X128X1NDL025:DL:X$:X$""2005NJ2892828935:J,0:N ***** FIRST DISSOLVE *****NJ2867228888:J,0:DL05:DL:JO"";:646,7:" THIS IS THE FIRST OF TWO DISSOLVES"NO" THIS ONE WORKS BY A METHOD SIMILAR TO"qO" THE PREVIOUS ONE"O" THE ROUTINE FILLS CHARACTER RAM WITH"O" ZEROS CAUSING THE SCREEN TO BLANK OUT"O" THEN THE SCREEN IS UPDATED AND ",P " CHARACTER ROM IS SWITCHED BACK IN"VP" ABCDEFGHIJKLMNOPQRSTUVWXYZ"~P" ZYXWVUTSRQPONMLKJIHGFEDCBA"P" PRESS TO CONTINUE"P 56334,(56334)254:1,(1)251:J28888:G53464Q%J,(G):JJ1:GG1:J286722095Q*2085.Q/1,(1)4:56334,(56334)1GQ4198,0:198,1:198,0kQ9 ***** SECOND DISSOLVE ******wQ>S28672QCES288884:E,0:DL015:DL:QHSS1:S286752130QM2115QR"";:646,14:" HERE IS THE SECOND DISSOLVE"'RW" THIS ONE WORKS ALMOST EXACTLY LIKE THE"UR\" LAST ONE ONLY WHEN IT ZEROES OUT "Ra" CHARACTER RAM IT DOES SO BY STEPS OF "Rf" FOUR WHICH MAKES FOR A SOMEWHAT"Rk" SMOOTHER WIPE"Rp" ABCDEFGHIJKLMNOPQRSTUVWXYZ"'Su" ZYXWVUTSRQPONMLKJIHGFEDCBA"XSz" PRESS TO CONTINUE":X1S56334,(56334)254:1,(1)251:L28672:H53248SBL:THSB,(T):BB4:TT4:B28888LL1:HH1:2180SH532512200S2185T1,(1)4:56334,(56334)1:198,0:198,1:198,0(TS28672MTES288884:E,0:DL015:DL:eTSS1:S286752225oT2210zT49281T173,0,221,41,252,9,2,141,0,221,169,237,141,24,208,169,120,141,136,2U173,14,220,41,254,141,14,220,165,1,41,251,133,1,160,0,185,0,208,153,0YU112,185,0,209,153,0,113,185,0,210,153,0,114,185,0,211,153,0,115,185,0U212,153,0,116,185,0,213,153,0,117,185,0,214,153,0,118,185,0,215,153,0U119,200,208,205,165,1,9,4,133,1,173,14,220,9,1,141,14,220,169,0,133,55;V169,112,133,56,160,0,169,32,153,0,120,153,0,121,153,0,122,153,232,122V200,208,241,96,169,151,141,0,221,169,21,141,24,208,169,4,141,136,2,96V"V ******* SHIFTED FLASHERV(14):" àРɠԠ̠Ơ̠ӠȠŠ" W" - - - - - - - - - - - - - -"X " NOPQRSTUVWXYZ"qX " PRESS TO CONTINUE":646,7X J4915249188:X:J,X::49152:"":(142)X 169,0,133,198,173,17,208,9,64,141,17,208,238,34,208,162,0,2320Y 208,253,165,198,240,244,169,0,133,198,173,17,208,41,223,141,17,208,969Y$ "TY) "":53280,0:53281,0Y. "WELL, FOLKS, THAT'S ABOUT IT. I HOPE"Y3 "THAT YOU ARE ABLE TO USE AT LEAST ONE"Y8 "OR TWO OF THESE ROUTINES IN YOUR OWN"Z= "PROGRAMS. WITH COMMODORE PRETTY MUCH"/ZB "ABANDONING US 64 AND 128 USERS,"VZG "WE'RE LEFT WITH OUR OWN FERTILE"~ZL "IMAGINATIONS TO COME UP WITH NEW"ZQ "IDEAS TO KEEP OUR PROGRAMS LOOKING AT"ZV "LEAST A LITTLE BIT NICE IN THIS ERA OF"[[ "THE -386,-486 (112 MHZ!), AND THE AMIGA"6[` "IF YOU HAVE ANY QUESTIONS, FEEL FREE"Y[e "TO E-MAIL SPOT ON Q-LINK."[j "OH, AND BY THE WAY, ALSO FEEL FREE TO"[o "USE THIS PROGRAM HOWEVER YOU WISH."[t "THAT IS, UPLOAD IT WHEREVER YOU WANT." \y "JUST PLEASE DON'T CLAIM CREDIT FOR"7\~ "THIS, OR I'LL HUNT YOU DOWN AND--WELL,"H\ "YOU KNOW."{\ " PRESS TO CONTINUE":646,7\ 198,0:198,1:65126