'SIX JOVIAL MEN ON THE FLYING TRAPEZE QUAKE WHEN CROWDS BOO 'A LARGE FAWN JUMPED QUICKLY OVER WHITE ZINC BOXES 'THE QUICK ONYX GOBLIN JUMPS OVER THE LAZY DWARF 'JACK AMAZED A FEW GIRLS BY DROPPING THE ANTIQUE ONYX VASE 'BUCH MAXWELL QUIETLY SERVED PIZZA TO A GANG OF JOVIAL KIDS 'THE FIVE BOXING WIZARDS JUMP QUICKLY 'PACK MY BOX WITH FIVE DOZEN LIQUOR JUGS 'THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG 'JINXED WIZARDS PLUCK IVY FROM THE BIG QUILT 'FREDRICK BOUGHT A VERY EXQUISITE ZOOM OPAL JEWEL 'WE PROMPTLY JUDGED ANTIQUE IVORY BUCKLES FOR THE NEXT PRIZE. 'A MAD BOXER SHOT A QUICK, GLOVED JAB TO THE JAW OF HIS DIZZY OPPONENT 'JADED ZOMBIES ACTED QUAINTLY BUT KEPT DRIVING THEIR OXEN FORWARD 'THE JOB REQUIRES EXTRA PLUCK AND ZEAL FROM EVERY YOUNG WAGE EARNER 'SIXTY ZIPPERS WERE QUICKLY PICKED FROM THE WOVEN JUTE BAG 'A WIZARDS JOB IS TO VEX CHUMPS QUICKLY IN FOG 'BROWN JARS PREVENTED THE MIXTURE FROM FREEZING TOO QUICKLY 'MY JAY, HEN, PIG, FOX, AND ZEBRA DO NOT QUACK 'FARMER JACK REALIZED THAT BIG YELLOW QUILTS WERE EXPENSIVE 'SHE SELLS SEASHELLS BY THE SEASHORE 'HOW CAN A CLAM CRAM IN A CLEAN CREAM CAN 'I SCREAM, YOU SCREAM, WE ALL SCREAM FOR ICE CREAM 'I SAW SUSIE SITTING IN A SHOESHINE SHOP 'WHERE SHE SHINES SHE SITS AND WHERE SHE SITS SHE SHINES 'I HAVE GOT A DATE AT THE GATE AT A QUARTER TO EIGHT 'YOU KNOW AND NEED UNIQUE NEW YORK 'I SAW A KITTEN EATING CHICKEN IN THE KITCHEN 'IF A DOG CHEWS SHOES WHOSE SHOES DOES HE CHOOSE 'I THOUGHT I THOUGHT OF THINKING OF THANKING YOU 'I WISH TO WASH MY IRISH WRISTWATCH WHICH WRISTWATCHES ARE SWISS WRISTWATCHES 'NEAR AN EAR A NEARER EAR A NEARLY EERIE EAR 'EDDIE EDITED IT BECAUSE WILLIE IS REALLY WEARY 'A BIG BLACK BEAR SAT ON A BIG BLACK RUG 'TOM THREW TIM THREE THIN THUMBTACKS 'HE THREW THREE FREE THROWS 'NINE NICE NIGHT NURSES NURSING NICELY 'SO THIS IS THE SUSHI CHEF 'FOUR FINE FRESH FISH FOR YOU 'WAYNE WENT TO WALES TO WATCH WALRUSES IN WATER 'SIX STICKY SKELETONS SANG SIX SILLY SONGS 'WHICH WITCH IS WHICH THAT IS EATING THE SANDWICH 'SNAP CRACKLE POP AND BEE BOO BOP 'A FLASH MESSAGE FLASHED BRIEFLY ON THE BULLETIN 'RED BUICK, BLUE BUICK ON A RED LORRY, YELLOW LORRY. 'THIN STICKS AND THIN BRICKS IS THE WALL THAT WILL FALL QUICK 'STUPID SUPERSTITION SAY STUPID SUPER FICTIONS 'ELEVEN BENEVOLENT ELEPHANTS BRING TWO TRIED AND TRUE TRIDENTS 'RIDING ROLLING RED WAGONS WAS BIG BLACK BACK BATS 'SHE SEES TRULY RURAL SWISS CHEESE AND PRE SHRUNK SILK SHIRTS 'IF ED HAD EDITED IT THEN SURELY SHALL THE SUN SHINE SOON AT NIGHT 'FRED FED TED SOME REAL RYE BREAD BUT TED FED FRED SOME REALLY WRY BREAD 'I SLIT THE SHEET THE SHEET I SLIT AND ON THE SLITTED SHEET I SIT 'A SKUNK ON A STUMP THUNK THE STUMP STUNK BUT THE STUMP THUNK THE SKUNK STUNK 'LESSER LEATHER NEVER WEATHERED WETTER WEATHER BETTER '. 01234567890123456789012345689012345679 01234567901234577901234568901234567890" T$="TESTING TESTING TEST ONE TEST TWO TEST THREE TEST FOUR END OF TEST" GLOBAL LNCOUNT, CY FONT 0 'DO SOME MAGIC ON RASTER (DRAWING SCREEN) ON RASTER CALL MICROROWS KEYBOARD ON TOUCHSCREEN SPRITE 0,0,0,65 SPRITE 0 PAL 7 SPRITE 1,1,,64 IKEY=1 CALL PRINTT(T$) DO IF TOUCH THEN SPRITE 1,TOUCH.X,TOUCH.Y,1 IF SPRITE HIT(0) THEN ADD IKEY,1,0 TO 1 IF IKEY=1 THEN KEYBOARD ON ELSE KEYBOARD OFF PLAY 0,90,1 WAIT 15 END IF END IF IF IKEY=1 THEN K$=INKEY$ IF K$<>"" THEN PRINT K$; END IF WAIT VBL LOOP SUBS: 'TINY TEXT BY TIMO AND ALICE '****************************************************************** SUB PRINTT(TXT$) 'PRINTS LINES WITHIN WIDTH AN HEIGHT OF SCREEN WITH CONTINUE 'WHEN AT THE BOTTOM 'TXT$ : TEXT TO DISPLAY 'TEMP_TXT$: AVOID MODIFICATIONS TO TXT$ 'SW : SCREEN WIDTH 'CY : Y POSITION 'X : X POSITION OF CHARACTER BEING HANDLED TEMP_TXT$=TXT$ SW=42 CY=2 WHILE LEN(TEMP_TXT$)>0 'CHECK IF AT BOTTOM OF SCREEN IF CY = 19 THEN END IF 'CHECK IF STRING FITS ON LINE IF LEN(TEMP_TXT$)" " AND X>-1 ADD X, -1 WEND 'DISPLAY STRING PART THAT FITS ON LINE IF X>-1 THEN CALL MICRO(LEFT$(TEMP_TXT$,X-1)) 'REMOVE STRING PART PRINTED TEMP_TXT$=MID$(TEMP_TXT$,X+1,LEN(TEMP_TXT$)-X) ELSE 'WORD LONGER THAN SCREEN WIDTH CALL MICRO("") END END IF END IF WEND END SUB SUB MICRO(T$) 'DISPLAYS MICRO TEXT 4X6 'L : LENGTH OF STRING 'CX : X POSITION OF CHARACTER 'CY : Y POSITION OF CHARACTER 'P : POSITION OF CHARACTER BEING HANDLED 'C$ : CHARACTER BEING HANDLED 'B : BACKGROUND 0 OR 1 L=LEN(T$) CX=0 V=0 FOR P=1 TO L C$=MID$(T$,P,1) B=(P-1) MOD 2 BG B TEXT CX,CY,C$ ADD V,1,0 TO 3 PLAY V,30,1 'HERE'S PART OF THE MAGIC...OVERPRINT A CHARACTER 'MOVE X POSITION (CX) ONLY WHEN ON ONE OF TWO BACKGROUNDS IF B=1 THEN CX=CX+1 WAIT 1 NEXT P CY=CY+1 END SUB SUB MICROROWS 'HANDLES WHAT ROW IS BEING DRAWN 'AND WHERE THE NEXT CHARACTER IS DISPLAYED 'Y : Y POSITION Y=(RASTER\6)*2-1 SCROLL 0,0,Y 'HERE'S THE OTHER PART OF THE MAGIC...MOVE BACKGROUND 'TO OVERPRINT THE CHARACTER. SCROLL 1,-4,Y END SUB #1:MAIN PALETTES 003F000000300000000C000000030000 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 40404000400000000000000000000000 A0A00000000000000000000000000000 A0E0A0E0A00000000000000000000000 40E040E0400000000000000000000000 A0204080A00000000000000000000000 0040E040000000000000000000000000 40400000000000000000000000000000 20404040200000000000000000000000 80404040800000000000000000000000 00A040A0000000000000000000000000 0040E040000000000000000000000000 00000040400000000000000000000000 0000E000000000000000000000000000 00000000400000000000000000000000 20204080800000000000000000000000 E0A0A0A0E00000000000000000000000 40C04040E00000000000000000000000 E020E080E00000000000000000000000 E0206020E00000000000000000000000 A0A0E020200000000000000000000000 E080E020E00000000000000000000000 E080E0A0E00000000000000000000000 E0202020200000000000000000000000 E0A0E0A0E00000000000000000000000 E0A0E020200000000000000000000000 00400040000000000000000000000000 00400040800000000000000000000000 20408040200000000000000000000000 00E000E0000000000000000000000000 80402040800000000000000000000000 C0204000400000000000000000000000 608060A0C00000000000000000000000 40A0E0A0A00000000000000000000000 C0A0C0A0C00000000000000000000000 60808080600000000000000000000000 C0A0A0A0C00000000000000000000000 E080C080E00000000000000000000000 E080C080800000000000000000000000 6080A0A0600000000000000000000000 A0A0E0A0A00000000000000000000000 E0404040E00000000000000000000000 E0202020C00000000000000000000000 A0A0C0A0A00000000000000000000000 80808080E00000000000000000000000 E0E0A0A0A00000000000000000000000 C0A0A0A0A00000000000000000000000 40A0A0A0400000000000000000000000 C0A0C080800000000000000000000000 40A0A0A0600000000000000000000000 C0A0C0A0A00000000000000000000000 60804020C00000000000000000000000 E0404040400000000000000000000000 A0A0A0A0600000000000000000000000 A0A0A0A0400000000000000000000000 A0A0A0E0E00000000000000000000000 A0A040A0A00000000000000000000000 A0A06020C00000000000000000000000 E0204080E00000000000000000000000 60404040600000000000000000000000 80804020200000000000000000000000 C0404040C00000000000000000000000 40A00000000000000000000000000000 00000000E00000000000000000000000 00000000000000008000000000000000 FFC3BDBDBDBDC3FF003C5A66665A3C00