'***************************************************************** '** TINY TIMO TEXT : PRINTT(TXT$) '** '** I JUST ADDED A FEW THINGS BUT TIMO IS THE AUTHOR OF THE MICRO '** CODE. I ADDED: '** - ADDED MISSING CHARACTERS '** - ADDED HANDLING OF LONG STRINGS '** - ADDED CORRECT LINE BREAKS ACCORDING TO WORD LENGTH '** - ADDED END OF SCREEN HANDLING '** - ADDED TO PROCEED TO NEXT SCREEN '** - ADDED ERROR CHECKING FOR WORDS THAT DON'T FIT ON ONE LINE '** '** THANKS TIMO! ~ALICE '** '***************************************************************** GLOBAL LNCOUNT, CY FONT 0 'DO SOME MAGIC ON RASTER (DRAWING SCREEN) ON RASTER CALL MICROROWS KEYBOARD ON TOUCHSCREEN DUMMY$ = "ABCDEFG HIJKLMNOP QRSTUV WXYZ 1234567890 @#$&*()' %-+=/;:!? IN NO IMPRESSION ASSISTANCE CONTRASTED. MANNERS SHE WISHING JUSTICE HASTILY NEW ANXIOUS. AT DISCOVERY DISCOURSE DEPARTURE OBJECTION WE. FEW EXTENSIVE ADD DELIGHTED TOLERABLY SINCERITY HER. LAW OUGHT HIM LEAST ENJOY DECAY ONE QUICK COURT. EXPECT WARMLY ITS TENDED GARDEN HIM ESTEEM HAD REMOVE OFF. EFFECTS DEAREST STAYING NOW SIXTEEN NOR IMPROVE. SAME AN QUIT MOST AN. ADMITTING AN MR DISPOSING SPORTSMEN. TRIED ON CAUSE NO SPOIL ARISE PLATE. LONGER LADIES VALLEY GET ESTEEM USE LED SIX. MIDDLETONS RESOLUTION ADVANTAGES EXPRESSION THEMSELVES PARTIALITY SO ME AT. WEST NONE HOPE IF SING OH SENT TELL IS. FINISHED HER ARE ITS HONOURED DRAWINGS NOR. PRETTY SEE MUTUAL THROWN ALL NOT EDWARD TEN. PARTICULAR AN BOISTEROUS UP HE REASONABLY FREQUENTLY. SEVERAL ANY HAD ENJOYED SHEWING STUDIED TWO. UP INTENTION REMAINDER SPORTSMEN BEHAVIOUR YE HAPPINESS. FEW AGAIN ANY ALONE STYLE ADDED ABODE ASK. NAY PROJECTING UNPLEASING BOISTEROUS EAT DISCOVERED SOLICITUDE. OWN SIX MOMENTS PRODUCE ELDERLY PASTURE FAR ARRIVAL. HOLD OUR YEAR THEY TEN UPON. GENTLEMAN CONTAINED SO INTENTION SWEETNESS IN ON RESOLVING. TALKING CHAMBER AS SHEWING AN IT MINUTES. TREES FULLY OF BLIND DO. EXQUISITE FAVOURITE AT DO EXTENSIVE LISTENING. IMPROVE UP MUSICAL WELCOME HE. GAY ATTENDED VICINITY PREPARED NOW DIVERTED. ESTEEMS IT YE SENDING REACHED AS. LONGER LIVELY HER DESIGN SETTLE TASTES ADVICE MRS OFF WHO. ENDEAVOR BACHELOR BUT ADD EAT PLEASURE DOUBTFUL SOCIABLE. AGE FORMING COVERED YOU ENTERED THE EXAMINE. BLESSING SCARCELY CONFINED HER CONTEMPT WONDERED SHY. DASHWOODS CONTENTED SPORTSMEN AT UP NO CONVINCED CORDIALLY AFFECTION. AM SO CONTINUED RESEMBLED FRANKNESS DISPOSING ENGROSSED DASHWOODS. EARNEST GREATER ON NO OBSERVE FORTUNE NORLAND. HUNTED MRS HAM WISHES STAIRS. CONTINUED HE AS SO BREAKFAST SHAMELESS. ALL MEN DREW ITS POST KNEW. OF TALKING OF CALLING HOWEVER CIVILLY WISHING RESOLVE. HE MOONLIGHT DIFFICULT ENGROSSED AN IT SPORTSMEN. INTERESTED HAS ALL DEVONSHIRE DIFFICULTY GAY ASSISTANCE JOY. UNAFFECTED AT YE OF COMPLIMENT ALTERATION TO. PLACE VOICE NO ARISE ALONG TO. PARLORS WAITING SO AGAINST ME NO. WISHING CALLING ARE WARRANT SETTLED WAS LUCKILY. EXPRESS BESIDES IT PRESENT IF AT AN OPINION VISITOR. PRESERVED DEFECTIVE OFFENDING HE DAUGHTERS ON OR. REJOICED PROSPECT YET MATERIAL SERVANTS OUT ANSWERED MEN ADMITTED. SPORTSMEN CERTAINTY PREVAILED SUSPECTED AM AS. ADD STAIRS ADMIRE ALL ANSWER THE NEARER YET LENGTH. ADVANTAGES PROSPEROUS REMARKABLY MY INHABITING SO REASONABLY BE IF. TOO ANY APPEARANCE ANNOUNCING IMPOSSIBLE ONE. OUT MRS MEANS HEART HAM TEARS SHALL POWER EVERY. TILED SAY DECAY SPOIL NOW WALLS MEANT HOUSE. MY MR INTEREST THOUGHTS SCREENED OF OUTWEIGH REMOVING. EVENING SOCIETY MUSICAL BESIDES INHABIT YE MY. LOSE HILL WELL UP WILL HE OVER ON. INCREASING SUFFICIENT EVERYTHING MEN HIM ADMIRATION UNPLEASING SEX. AROUND REALLY HIS USE UNEASY LONGER HIM MAN. HIS OUR PULLED NATURE ELINOR TALKED NOW FOR EXCUSE RESULT. ADMITTED ADD PECULIAR GET JOY DOUBTFUL. SHE WHO ARRIVAL END HOW FERTILE ENABLED. BROTHER SHE ADD YET SEE MINUTER NATURAL SMILING ARTICLE PAINTED. THEMSELVES AT DISPATCHED INTERESTED INSENSIBLE AM BE PROSPEROUS REASONABLY IT. IN EITHER SO SPRING WISHED. MELANCHOLY WAY SHE BOISTEROUS USE FRIENDSHIP SHE DISSIMILAR CONSIDERED EXPRESSION. SEX QUICK AROSE MRS LIVED. MR THINGS DO PLENTY OTHERS AN VANITY MYSELF WAITED TO. ALWAYS PARISH TASTES AT AS MR FATHER DINING AT. IT AS ANNOUNCING IT ME STIMULATED FREQUENTLY CONTINUING. LEAST THEIR SHE YOU NOW ABOVE GOING STAND FORTH. HE PRETTY FUTURE AFRAID SHOULD GENIUS SPIRIT ON. SET PROPERTY ADDITION BUILDING PUT LIKEWISE GET. OF WILL AT SELL WELL AT AS. TOO WANT BUT TALL NAY LIKE OLD. REMOVING YOURSELF BE IN ANSWERED HE. CONSIDER OCCASION GET IMPROVED HIM SHE EAT. LETTER BY LIVELY OH DENOTE AN." MAIN: '****************************************************************** CALL PRINTT(DUMMY$) REPEAT UNTIL INKEY$ = " " END SUBS: '****************************************************************** SUB CONTINUE ' PAUSES UNTIL SPACE IS PRESSED, CLEARS THE SCREEN ' CY : Y POSITION (LINE) CALL MICRO(" ") CALL MICRO(" ") REPEAT UNTIL INKEY$ = " " OR TOUCH CLS CY=0 END SUB SUB PRINTT(TXT$) 'PRINTS LINES WITHIN WIDTH AN HEIGHT OF SCREEN WITH CONTINUE 'WHEN AT THE BOTTOM 'TXT$ : TEXT TO DISPLAY 'SW : SCREEN WIDTH 'CY : Y POSITION 'X : X POSITION OF CHARACTER BEING HANDLED SW=42 WHILE LEN(TXT$)>0 'CHECK IF AT BOTTOM OF SCREEN IF CY = 19 THEN CALL CONTINUE END IF 'CHECK IF STRING FITS ON LINE IF LEN(TXT$)" " AND X>-1 ADD X, -1 WEND 'DISPLAY STRING PART THAT FITS ON LINE IF X>-1 THEN CALL MICRO(LEFT$(TXT$,X-1)) 'REMOVE STRING PART PRINTED TXT$=MID$(TXT$,X+1,LEN(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 FOR P=1 TO L C$=MID$(T$,P,1) B=(P-1) MOD 2 BG B TEXT CX,CY,C$ 'HERE'S PART OF THE MAGIC...OVERPRINT A CHARACTER 'MOVE X POSITION (CX) ONLY WHEN ON ONE OF TWO GACKGROUNDS 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