Tips from from listable programs, books, magazines, and newsletters.
Appears on
Library tape from the Sinclair Computer Users Society (SINCUS).
Gallery
Source Code
1 PRINT "LET TAPE RUN!": INK 9: PAPER 6: BORDER 6: LOAD "TIPBITSCR"SCREEN$
2 LET A=VAL ".05": FOR B=VAL "0" TO VAL "50" STEP VAL "5": BEEP A,B: NEXT B
3 REM *****PLEASE PERSONALIZE THIS ELECTRONIC TIPBOX;THAT IS THE ONLY WAY TO ENJOY A PROGRAM LIKE THIS!*****
5 POKE VAL "23658",VAL "8": INK VAL "2": FLASH VAL "1": PRINT AT VAL "8",VAL "8";" YOUR CAPS HAVE ";AT VAL "12",VAL "8";" BEEN TURNED ON "
6 PAUSE VAL "200": FLASH VAL "0": CLS
10 INK VAL "0": REM "TIPBITS" FROM LISTABLE PROGRAMS,BOOKS, MAGAZINES, & NEWSLETTERS
12 PRINT " VOLUME 1-TIPBITS A THROUGH M "
15 PRINT '"THESE TIPS ARE UNDERSTOOD TO BE PREFIXED WITH TO."
17 PRINT '"EXAMPLE:""TO BEEP"" OR ""TO TIMEX SERVICE"", BUT THE TO WILL NOT BEEXPRESSED FOR PURPOSES OF ALPHABETIZING"
20 PRINT '"INPUTING AT LEAST ONE ABOVE THE HIGHEST NUMBERED ENTRY AT EACH LETTER MENU WILL PERMIT PAGING THRU ALL TIPS."
21 INK 9: PRINT '"IF AT ANY TIME YOU WANT A TS2040COPY OF ANY TIPBIT, BREAK AND GOTO COPY OR WANT TO LOAD VOL. 2, BREAK AND GOTO LOAD."
22 GO SUB VAL "9996"
24 LET AL=VAL "25"
25 CLEAR : CLS : PRINT AT 0,0;"ALPHABITS--RETURN BY BREAKING AND TYPING""GOTO AL"""
26 LET LOAD=VAL "5999": LET COPY=VAL "9000": LET AL=VAL "25"
27 PRINT AT VAL "4",VAL "0";"ALL LETTERS HAVE THE SAME NUMBER AS THEIR ORDER IN THE ALPHABET."
29 INK 9: PRINT '"A--1","LOAD","B--2","VOLUME","C--3","TWO","D--4","IF","E--5","YOU","F--6","DO","G--7","NOT","H--8","FIND","I--9","TIP","J--10","SOUGHT","K--11","BY","L--12","PAGING","M--13","THROUGH"
30 INPUT "YOUR CHOICE BY NUMBER?";C$
32 LET LN=VAL C$*VAL "200"
33 CLS : GO TO LN
200 PRINT "A MENU": LET CH2=VAL "200": LET SN=VAL "250"
202 PRINT '"1. ACCESS BBS AROUND COUNTRY"
204 PRINT ''"2. ADD DECIMALS "
206 PRINT ''"3. ARRAY"
208 PRINT ''"4. ATTENTION--SAT. MATINEE WHISTLE"
220 GO SUB VAL "6500"
230 CLS : GO TO LN
260 PRINT "TO ACCESS BBS SEE ISHII-FISCHER GUIDE,SEND $5 TO P.O. BOX 2002,TEMPE, AZ 85281--FULLER THAN FREEBIE DISTRIBUTED TO TSUGS."
262 PRINT '"THE LONG-AWAITED GUIDE WAS READYIN TIME FOR COMPUTERFEST 5/2/87 AND PRE-PAID ORDERS HAVE BEEN MAILED OUT (AROUND 100) DURING MONTH OF MAY."
264 PRINT '"THIS BEAUTIFULLY PRODUCED GUIDE WAS WORTH WAITING FOR--HANDSOME PRINT, DARK, AND READABLE. EVENTHE COVER HAS AN INTERESTING STORY BEHIND IT--SYSOPS ALL OVERTHE COUNTRY DOWNLOADED THE DESIGN AND ADDED TO IT TILL IT BECAME A COLLAGE OF SYMBOLS."
265 GO SUB VAL "9996"
268 CLS : PRINT '"NO WAY COULD THIS HAVE BEEN A PROFIT-MAKING ENDEAVOR; RATHER, IT IS A SERVICE TO TS USERS. DONOT FAIL TO GET YOUR COPY!"
269 GO SUB VAL "7000"
270 PRINT "TO ADD DECIMALS, ONE FINGER BETWEEN M KEY AND SYMBOL SHIFT KEY MAKES DECIMAL POINT. MINI- MODULE: ";'"1 LET B=0";'"2 INPUT M";'"3 LET B=B+M";'"4 PRINT M,B";'"5 GOTO 2";'"PRINTS ENTRY AND CUMULATIVE TOTAL"
272 PRINT '"AFTER ADDITION OR ANY OPERATION,ROUND TO A CERTAIN NUMBER OF DECIMAL PLACES:"
273 PRINT '"LET X=INT (X*10^Y+.5)/10^Y";'"X IS NUMBER TO BE ROUNDED; Y IS NUMBER OF DECIMAL PLACES SOUGHT."
274 GO SUB VAL "9996"
275 CLS : PRINT '"MINIMOD TO USE DEF FN: ";'"1 DEF FN R(X,Y)=INT (X*10^Y+.5) /10^Y"
276 PRINT "2 INPUT ""ENTER A NUMBER "";A";'"3 INPUT ""ROUND OFF TO? "";B";'"5 PRINT FN R(A,B)"
279 GO SUB VAL "7000"
280 PRINT "TO ARRAY SEE BLECKMAN, ""BEGINNER/INTERMEDIATE GUIDE"", PP.103-107."
281 PRINT '"SINGLE DIMENSION ARRAYS MINI- MOD:";'"1 DIM A(5)";'"2 FOR X=1 TO 5";'"3 INPUT ""ENTER NUMBER"";A(X)";'"4 NEXT X"
282 PRINT '"2 DIMENSIONAL ARRAYS MINI-MOD:";'" 1 DIM A(4,5)";'"2 FOR X=1 TO 4:FOR Y=1 TO 5";'"3 INPUT ""ROWS"" A(X): INPUT ""COLUMNS"";A(Y)";'"4 NEXT X: NEXT Y"
284 PRINT "3RD DIMENSION-Z FOR DEPTH OF CUBE;LIMITED BY MEMORY, NOT IMAGI-NATION."
285 GO SUB VAL "7000"
300 PRINT "TO ATTENTION: SATURDAY MATINEE WHISTLE NOT RECOMMENDED FOR PROGOF GREAT DIGNITY, BUT IT ALWAYS WOKE THE PROJECTIONIST BEFORE HEBECAME A COMPUTER."
302 PRINT '"TO START A PROGRAM AFTER A LONG LOAD, MINIMOD:"
304 PRINT '"10 SOUND 8,15: SOUND 7,62:FOR N=255 TO 0 STEP -1: SOUND 0,N:NEXTN"
306 GO SUB VAL "7000"
400 PRINT "B MENU": LET CH2=VAL "400": LET SN=VAL "450"
402 PRINT ''"1. BEEP"
404 PRINT ''"2. BIGPRINT"
406 PRINT ''"3. BOLDPRINT"
408 PRINT ''"4. BORDERSWITCH"
410 PRINT ''"5. BRACE LEFT & RIGHT"
420 GO SUB VAL "6500"
430 CLS : GO TO LN
460 PRINT "TO BEEP THE KEYBOARD WITH EACH KEYSTROKE POKE 23609, N WHERE N = NUMBER FROM 30 TO 50. HELPS TO OVERCOME DEADENDED SPACEBAR."
461 PRINT '"TO BEEP GENERALLY, DURATION IS FIRST NUMBER; PITCH IS SECOND. MINI-MOD FOR BEEP FOR ATTENTIONIS ";'"1 LET A=.05";'"2 FOR B=0 TO 50 STEP 10";'"3 BEEP A,B";'"4 NEXT B": GO SUB 9996
462 CLS : PRINT '"OF COURSE, TIMES LIKE .03 OR EVEN .01 CAN BE USED BUT THE EFFECT CEASES TO SOUND MUSICAL. REMEMBER THAT 0 IS MIDDLE C."
463 PRINT '"FOR HELP IN TRANSCRIBING FROM MUSICAL NOTATION, SEE BLECKMAN, BEGINNER/INTERMEDIATE GUIDE OR YOU CAN BUY A THOROUGH PROGRAM, ""MUSICIAN ROYAL"" PURPOSELY DESIGNED TO OVERCOME SHORT- COMINGS IN ABILITY TO READ MUSIC."
465 GO SUB VAL "7000"
470 PRINT "TO BIGPRINT ON EITHER TS2068 OR SPECTRUM PER BRITISH ""PRACTICAL COMPUTING"", HERE IS A MINI-MOD."
472 PRINT '"20 CLS";'" 30 INPUT ""TEXT (MAX. 8 CHARACTERS): "",T$"
473 PRINT "40 PRINT AT 21,0;AT 0,0;";'"50 LET P$=""""";'"60 FOR I=7 TO 1 STEP -2"
474 PRINT "70 FOR J=1 TO 63 STEP 2";'"80 LET P$=P$+CHR$ (128+POINT (J,I)+2*POINT (J-1,I)+4*POINT (J,I-1)+8*POINT (J-1,I-1))"
476 PRINT "90 PRINT P$(LEN P$);"
478 PRINT "100 NEXT J:NEXT I: STOP "
479 GO SUB VAL "7000"
480 PRINT "TO BOLDPRINT ANY PROGRAM ON 2040PRINTER:"
481 PRINT '"9905 CLEAR 64499: RESTORE 9910: FOR N=65507 TO 65529:READ A:POKE N,A:NEXT N"
482 PRINT "9910 DATA 17,0,251,1,0,3,42,54,92,36,126,167,31,192,18,35,19,13,32,246,16,244,201"
483 PRINT '"TO ACCESS BOLD CHARACTERS, USE POKE 23607,250. TO RESTORE THE REGULAR CHARACTER SET, USE POKE 23607,60. BOTH POKES CAN BE USED IN IMMEDIATE MODE."
486 GO SUB VAL "7000"
490 PRINT "TO BORDERSWITCH FOR ATTENTION, TRY THIS MINI-MOD"
492 PRINT '"990 FOR T=1 TO 5:FOR X=0 TO 7"
493 PRINT "995 BORDER X: BEEP .05,X"
495 PRINT "999 NEXT X: NEXT T"
497 GO SUB VAL "7000"
500 PRINT "TO BRACE LEFT & RIGHT (LOOKS LIKE PROFILES GOSSIPING IF FACING EACH OTHER (SEE ""F"" FOR ""FACEDRAW"")"
501 PRINT '"BRACKETS ARE CONCEALED UNDER ON ERR AND SOUND (BENEATH R & G KEYS) AND ARE ONLY OBTAINABLE WITH L CURSOR, THENCE TO E MODE BY PRESSING CAPS SHIFT AND SYMBOL SHIFT SIMULTANEOUSLY; CONTINUE TO PRESS SYMBOL SHIFT; PRESS F ({) OR G (})"
504 GO SUB VAL "7000"
600 PRINT "C MENU": LET CH2=VAL "600": LET SN=VAL "650"
602 PRINT '" 1. CAPS SET/OFF";'" 2. CENTER ENTRY";'" 3. CHECK SPELLING";'" 4. CLOCK";'" 5. COLOR";'" 6. COMPARE STRINGS";'" 7. CONCATENATE STRINGS";'" 8. CONVERT OTHER BASICS";'" 9. CONVERT TS1000 PROGRAMS";'"10. COPY ON 80-COL. PRINTER";'"11. COPYRIGHT SYMBOL";'"12. CPM"
620 GO SUB VAL "6500"
630 CLS : GO TO LN
660 PRINT '"TO TURN CAPS ON, POKE 23658,8; TO TURN CAPS OFF, POKE 23658,0"
666 GO SUB VAL "7000"
670 PRINT "TO CENTER A TITLE, ETC.:"
671 PRINT '"PRINT TAB(32-LEN T$)/2;T$;"
672 PRINT ''"STRING SLICING WORKS--EXAMPLE: LET T$=""JOHN KELLY"":PRINT TAB(32-LEN T$(1 TO 4))/2;T$(1 TO 4) WOULD CENTER JOHN ON LINE AND T$( 6 TO ) COULD BE SUBSTITUTED TO CENTER KELLY ON NEXT LINE."
673 PRINT '"BUT ASSIGNING EACH NAME TO A STRING IS LESS COMPLEX."
674 PRINT ' "LETTING A$ =""THE HOUND """;'"B$= ""OF""";'"C$=""THE BASKERVILLES""";'"SUBSTITUTE EACH $ FOR T$ IN TOP STATEMENT.": PRINT '"<ENTER> WHEN READY": PAUSE 0: CLS
675 GO SUB VAL "8000": PRINT "LIST LINE 8000 TO CLARIFY VERTI-CAL SPACING WITH TAB. NOTE THAT ""THE HOUND"" HAD 9 SPACES SO FOR BALANCE ANOTHER SPACE (BLANK) WAS ADDED."
677 GO SUB VAL "7000"
680 PRINT "CHECK SPELLING BY MINI-MOD:"
682 PRINT '" 5 LET C=0";'"10 INPUT A$ (FURNISH DEFINITION)";'"15 LET B$ =""(CORRECT SPELLING)""";'"20 IF A$<>B$ THEN PRINT ""WRONG""";'"25 IF A$=B$ THEN PRINT ""CORRECT""";'"30 IF A$=B$ THEN LET C=C+1"
684 GO SUB VAL "7000"
690 PRINT "CLOCK CURRENT TIME ELAPSED IN MINUTES AND SECONDS WTH A MINI- MOD."
691 PRINT '" 5 DIM T$(6): LET T$="" :""";'"10 POKE 23673,0";'"15 POKE 23672,0"
692 PRINT "20 LET T=INT ((PEEK 23673*256+ PEEK 23672)/60)";'"25 LET M=INT (T/60):LET S=T-M* 60";'"30 LET T$( TO 2)=STR$ M:IF LEN STR$ M=1 THEN LET T$( TO 2)= ""0""+STR$ M"
693 PRINT "35 LET T$(4 TO 5)=STR$ S:IF LEN STR$ S=1 THEN LET T$(4 TO 5)= ""0""+STR$ S";'"40 PRINT AT 11,12;T$";'"45 GO TO 20"
697 GO SUB VAL "7000"
700 PRINT INK VAL "9"; PAPER VAL "1";" TO COLOR YOU NEED ";''''' PAPER VAL "2";" A COLORING BOOK! ";''''' PAPER VAL "3";" SIGH ";''''' PAPER VAL "4";" SOME FOOTNOTES TO A BOOK ": PAUSE VAL "300": CLS : GO SUB VAL "6000"
702 GO SUB VAL "8896": GO TO VAL "25"
710 PRINT "TO COMPARE WITH STRINGS THAT MAYHAVE PICKED UP SPACES AS WHEN CHECKING FOR A CORRECT ANSWER, HAVE USER'S REPLY STORED IN R$ (1) AND R$(2) HOLD EMPTY SPACES. OTHERWISE, ONE FINDS THAT, FOR EXAMPLE, ""WEIRD""<>""WEIRD""."
712 PRINT '"WHERE SHORTEST WORD WAS 6 LETTERS LONG AND LONGEST WAS 11,TO AVOID WEIRD ERRORS LIKE ABOVELET R$(2)=5 EMPTY SPACES. LET R$(1)=R$(1)+R$(2) THEN PERMITS CORRECT COMPARISONS. TRUNCATIONTAKES CARE OF OVERFLOW ON LONGERWORDS. THIS SEEMS TO OCCUR WHERECORRECT ANSWER IS PLUCKED FROM ADATA SEQUENCE TO BE COMPARED TO INPUT."
715 GO SUB VAL "7000"
720 PRINT "CONCATENATE STRINGS JUST MEANS ADD THEM TOGETHER; EXAMPLE: LET A$=""NO"":LET B$=""EXIT"":LET C$=A$+"" ""+B$:PRINT C$ BECOMES ""NO EXIT""."
724 GO SUB VAL "7000"
730 PRINT "CONVERT FROM OTHER BASICS:"
731 PRINT "BEST BET IS TO BUY BIRD'S BOOK, CONVERTING TO TIMEX/SINCLAIR BASIC"
732 PRINT "SOME COMMON EQUIVALENTS ARE GET$=INKEY$; LEFT$(A$,N)=A$(1 TO N); RIGHT$(A$,N)=A$(LEN (A$)-N+1 TO LEN (A$));MID$(A$,N,M)=A$(M TO N);TL$(A$)=A$(2 TO )"
734 PRINT "POKES AND PEEKS MAKE TRANSLATIONDIFFICULT. APPLE BASIC IS EASY FOR MOST PEOPLE TO CONVERT GIVENA FAMILIARITY WITH BOTH BASICS. PROGRAMS FOR SHARP POCKET COMPU-TERS ARE BARE BONES BUT EASY TO CONVERT TO SINCLAIR BASIC."
736 GO SUB VAL "7000"
740 PRINT "TO CONVERT TS1000 TO 2068 PROGS SHOULD BE EASIER THAN IT IS."
741 PRINT '"THE TS1000 DOES NOT FOLLOW ASCI AS DOES THE 2068. MEMORY LOCA- TIONS ARE NOT THE SAME, BUT WITHMANUALS FOR BOTH MACHINES, IT CAN BE DONE. THERE ARE AT LEAST2 PROGRAMS FOR THIS."
743 PRINT '"SUGGESTIONS: PLOT--MULTIPLY FIGURES BY 4 TO CONVERT LO-RES OF 1000 TO HIGHER RES OF 2068."
744 PRINT '"ELIMINATE FAST & SLOW; ** = ^ FOR EXPONENTS; MANY STRINGS AND ARRAYS BECOME READ & DATA INFO INSTEAD."
747 GO SUB VAL "7000"
750 PRINT "TO COPY TO 80 COLUMN PRINTER, AFTER DRIVER IN PLACE AND ?"
751 PRINT '"SERIAL GORILLA BANANA IGNORED THIS."
752 PRINT '"10 FOR X=0 TO 21";'"20 FOR I=0 TO 31";'"30 LPRINT SCREEN$ (X,I);";'"40 NEXT I:NEXT X"
754 GO SUB VAL "7000"
760 PRINT "TO COPYRIGHT SYMBOL POSSIBLE ONLY FROM L CURSOR; GET TO E MODE, THEN HOLD SYMBSHIFT DOWN WHILE TOUCHING P. LOOKS LIKE CAULIFLOWER EAR"
764 GO SUB VAL "7000"
770 PRINT "TO CPM OR NOT TO C;RPM FROM AERCO APPARENTLY."
771 PRINT '"QUESTION IS HOW TO TRANSFER FROMCPM. DAVE FRANSON OF TOPS OFFERS3 PROGRAMS FOR BLANK 3 INCH DISK& $5 TO HELP ZEBRA DRIVERS IN QUEST."
772 PRINT "FRANSON'S ADDRESS:3534A E. SQUIRE AVE., CUDAHY,WI 53110. HEIS EDITOR OF TOPS."
773 PRINT '"ALSO TRY PUBLIC DOMAIN, INC., 5025 S.RANGELINE RD., WEST MILTON, OH 45383"
775 PRINT '"ALL DDS FOR TS2068 CLAIM CPM COMPATIBILITY NOW."
777 GO SUB 7000
800 PRINT "D MENU": LET CH2=VAL "800": LET SN=VAL "850"
802 PRINT '"1. DARKEN SCREENPRINT";'"2. DEFINE FUNCTIONS";'"3. DEGREES FROM RADIANS";'"4. DELETE COMMANDS,ETC.";'"5. DISK DRIVES"
820 GO SUB VAL "6500"
830 CLS : GO TO LN
860 PRINT "DARKEN PRINT FROM WITHIN A PROG RATHER THAN LOADING CODE:"
862 PRINT '"TO ACCESS THE BOLD CHARACTERS, POKE 23607, 250; TO RESTORE REG-ULAR PRINTFACE, POKE 23607, 60 AS IN THE LOAD CODE METHOD."
864 PRINT '"9905 CLEAR 64499: RESTORE 9910: FOR N=65597 TO 65529: READ A: POKE N,A: NEXT N";'"9910 DATA 17,0,251,1,0,3,42,54,92,36,126,167,31,192,18,35,19,13,32,246,16,244,201"
866 PRINT '"CALLING THE ROUTINE REPEATEDLY IS REPORTED TO CAUSE CHAR SET TOBE THICKER EACH TIME."
868 GO SUB VAL "7000"
870 PRINT "TO DEFINE FUNCTIONS, USE DEF FN (BELOW 1 KEY) & FN (BELOW 2 KEY)SEE BLECKMAN BEG./INT. GUIDE, P.93."
872 PRINT '"UNDERUSED FOR UNKNOWN REASONS INPROGRAMMING T/S: NO 6 FUNCTION KEYS ON BOARD AND RARE USE IN PROGRAMS."
874 PRINT '"WHY? SHOULD BE SHORTCUT?"
875 PRINT '"FORM: DEF FN F(A)=(10*A+5)/7: INPUT A:PRINT FN F(A)"
876 PRINT '"SO ABOVE PRINTS COMPUTATION, WHAT WAS POTENTIAL OF 6 FN KEYS,PLEASE?!?"
878 GO SUB VAL "7000"
880 PRINT "TO DEGREES FROM RADIANS, LET DEGREES=(RADIANS*360)/(2*PI)"
882 GO SUB VAL "7000"
890 PRINT "TO DELETE AFTER K CURSOR HARD TODO SO FOR COMMAND WORDS OR LINE NUMBERS, QUOTES CAN BE PLACED AROUND : THEN TRY DELETE KEY;FORLINE NUMBERS MOVING THE K TO LEFT OF ALL NUMERALS AND TRY THEDELETE KEY."
892 GO SUB VAL "7000"
900 PRINT "DISK DRIVES, 3 COMPANIES REMAIN IN PRODUCTION OF SYSTEMS FOR THETS2068: AERCO, LARKEN, AND OLIGER. A PRODUCER/ IMPORTER OFMANY DISK DRIVES--ZEBRA SYSTEMS WITHDREW JAN. 1987."
902 PRINT '"AS OF EARLY MARCH '87, ZEBRA REPINDICATED WILLINGNESS TO SERVICEZEBRA DRIVES AND RUMOR THAT ZEBRA WILL WITHDRAW FROM TS SUPPORT VEHEMENTLY DENIED LONG DISTANCE (5/1/87)."
904 PRINT '"PERTINENT ADDRESSES ARE AERCO, BOX 18093,AUSTIN,TX78760; LARKENELECTRONICS, R R #2, NAVAN, ONTARIO K4B 1H9, CANADA; AND JOHN OLIGER CO., 11601 WHIDBEY DR., CUMBERLAND, IN 46229."
907 GO SUB VAL "7000"
1000 PRINT "E MENU": LET CH2=1000: LET SN=1050
1002 PRINT '"1. EDIT CARTRIDGE SOFTWARE";'"2. ELIMINATE SCROLL";'"3. ERASE";'"4. EXTRACT ROOTS OTHER THAN SQR "
1020 GO SUB VAL "6500"
1030 CLS : GO TO LN
1060 PRINT "TO EDIT CARTRIDGE SOFTWARE, BREAK( IF POSSIBLE), ENTER OWN BASIC LINES INTO RAM BY POKE 23750,0; RETURN TO CARTRIDGE ROMWARE WITH POKE 3750,128."
1063 GO SUB VAL "7000"
1070 PRINT "TO ELIMINATE SCROLL, POKE 23692,255 WHICH MEANS PRINT 255 LINES BEFORE ""SCROLL?"""
1074 GO SUB VAL "7000"
1080 PRINT "TO ERASE, 2 POSSIBLE COMMANDS: 1. PLOT INVERSE 1";'"2. DRAW INVERSE 1"
1081 PRINT '"1 REPRESENTS ""ON"" STATE."
1082 PRINT '"THESE ARE CLOSEST EQUIVALENT TO TS1000'S ""UNPLOT""."
1085 GO SUB VAL "7000"
1090 PRINT "TO EXTRACT ROOTS OTHER THAN SQR"
1092 PRINT '"PRINT 256^(1/8) GIVES THE 8TH ROOT OF 256=2--REVERSE OF 2^8."
1094 PRINT '"WRITE ANY FRACTIONAL ROOT IN ( )AFTER ^ ; CUBE ROOT IS ^(1/3); 4TH IS ^(1/4), ETC."
1095 GO SUB VAL "7000"
1200 PRINT "F MENU": LET CH2=VAL "1200": LET SN=VAL "1250"
1202 PRINT '"1. FACEDRAW";'"2. FIND STARTING ADDRESS";'"3. FLASH FASTIDIOUSLY";'"4. FRAME PICTURE"
1220 LET Z=VAL "0": GO SUB VAL "6500"
1230 CLS : GO TO LN
1260 PRINT ''"TO MEET FLATTOP FRED & HORSESHOE HARRY, LIST 1260 THROUGH 1268";AT 15,7;"USING NO UDGS"
1261 PRINT AT VAL "10",VAL "10";"(} {)": REM SYMBOL SHIFT 8, BRACKET AT G WITH E MODE, SPACE, BRACKET AT F WITH E MODE, SS 9
1262 OVER VAL "1": PRINT AT VAL "10",VAL "10";"__ __": REM SYMBOL SHIFT 0
1263 OVER VAL "1": PRINT AT VAL "10",VAL "10";"\:' \':": REM GRAPHIC 7, SPACE, GRAPHIC 4 WITH CS,G8 WITH CS
1264 OVER 1: PRINT AT 9,10;"\.. \..": REM GRAPHIC 3 WITH CAPS SHIFT, SPACE THRICE, AND G3 WITH CS
1265 OVER VAL "1": PRINT AT VAL "9",VAL "10";" \. ": REM GRAPHIC 7 WITH CS
1266 PRINT AT VAL "20",VAL "2";"CAN YOU IMPROVE THE HAIR?"
1267 GO SUB VAL "9996"
1268 IF Z=VAL "999" THEN GO TO VAL "3282"
1269 GO SUB VAL "8996": GO TO VAL "25"
1270 PRINT "TO FIND STARTING ADDRESS, PRINT PEEK 23635+256*PEEK 23636; UNLIKE TS1000, STARTING ADDRESS MOVES ABOUT ON TS2068."
1272 GO SUB VAL "7000"
1280 PRINT "TO FLASH LISTINGS GET E MODE BY DEPRESSING CAP & SYMBOL SHIFTS; STILL HOLDING CAP SHIFT, PRESS 9 KEY; THE NEXT CHARACTER ENTERED WILL FLASH. TURN OFF INSAME MANNER FROM E MODE BUT USE 8 KEY."
1285 GO SUB VAL "7000"
1290 PRINT "TO FRAME A PICTURE WITHOUT HEAVYBORDER:"
1292 PRINT '"(ANY LINE NUMBERS)";'"10 PLOT 0,0";'"20 DRAW 255,0";'"30 DRAW 0,175";'"40 DRAW -255,0";'"50 DRAW 0,-175"
1294 GO SUB VAL "7000"
1400 PRINT "G MENU": LET CH2=VAL "1400": LET SN=VAL "1450"
1402 PRINT '"1. GRAPHICS OF SPRITELY SORT";'"2. GREATER CLEVELAND TSUG";'"3. GROUP USING TIMEX-SINCLAIR"
1420 GO SUB VAL "6500"
1430 CLS : GO TO LN
1460 PRINT "TO GRAPHIC SPRITES:";'"2 PROGRAMS:""SPRITES2068"" AND ""CHARACTER FONT GENERATOR"".";'"THE PATH IS NOT NIMBLY TROD-- GREAT GRAPHICS LIKE SOUND REQUIRE STUDY AND PRACTICE."
1462 GO SUB VAL "7000"
1470 PRINT "TO GCTSUG AND ESPECIALLY RAMTOP,THE CONTRIBUTOR-FRIENDLIEST NEWSLETTER, SEND C/O JAMES DUPUY, EDITOR AT 6514 BRADLEY AVE. (DOWN), PARMA, OH 44129."
1472 PRINT '"UNCRITICAL GROUP, APPRECIATIVE, BROAD INTERESTS, NOT A FAULT- FINDER IN THE PACK."
1474 PRINT '"TSU-BBS RUN BY SYSOP CHRIS RAY- NAK, PHONE (216)-327-1099, PAR- AMETERS 7/1/0"
1475 PRINT '"SUBSCRIPTIONS ($12 PER YEAR AND BY DANG, YOU GET 12 ISSUES!) TO ROBERT PARISH, 12706 LEEILA AVE.CLEVELAND, OH 44135"
1477 GO SUB VAL "9996"
1478 CLS : PRINT '"THIS TSUG HAS BOTH A EAST & WESTSIDE GROUP AND MIGHT BE A CANDI-DATE FOR COMPUTERFEST SITE (IF ISTUG JUSTLY PLEADS EXHAUSTION) ALONG WITH WEST COAST AND DC AREA CLUB, CATS."
1479 GO SUB VAL "7000"
1480 PRINT "GUTS IS AFFILIATED WITH EBZUG, PUG, SVSTUG (OR EAST BAY Z80 USER GROUP, PENINSULA USER GROUP AND SILICON VALLEY SINCLAIR TECHNOLOGY USER GROUP). CLEAR? TOGETHER THEY PUBLISH TIMELINEZ,OUTSTANDING NEWSLETTER, 2ND BESTIN NATION;MANY WILL SAY BEST."
1482 PRINT '"ANY NEWSLETTER RECOMMENDED HAS AN ESTABLISHED RECORD OF 12 PROMPT ISSUES TO MAIL ORDER SUBSCRIBERS. IN ADDITION, THIS NEWSLETTER IS PRINTED CLEARLY & CARRIES THE MOST CURRENT OF DEVELOPMENTS WITHOUT RECOURSE TORUMORS. SOURCES ARE ACCURATE."
1483 PRINT '"TOO MANY ADDRESSES TO LIST SO TOBILL MILLER, 6675 CLIFFORD DR., CUPERTINO,CA 95014-4530."
1484 GO SUB VAL "7000"
1600 PRINT "H MENU": LET CH2=VAL "1600": LET SN=VAL "1650"
1601 PRINT '"1. HATS OFF TO DB";'"2. HEADEREADERS"
1605 PRINT "3. HOSTILE-UP USER"
1611 PRINT "4. ""HOT Z"""
1612 PRINT "5. HOTWIRE TO A DYNAMO"
1620 GO SUB VAL "6500"
1630 CLS : GO TO LN
1660 PRINT "TO HATS WITH ESPECIAL APPRECIA- TION TO DAVE BENNETT, 329 WALTON ST. (REAR), LEMOYNE, PA, 17043,WHO TAKES DONATIONS FOR HIS NEWSLETTER."
1662 PRINT '"TALK ABOUT A ZEALOT--ALMOST NOTHING TO PRINT FROM CONTRIBU- TORS FOR MONTHS; YET YOU SHOULD SURELY SEE WHAT A SMART-LOOKING NEWS LETTER DAVE IS PUBLISHING--HIGH-QUALITY PRINT, SHARP FORMAT& 6 KEEN TS2068 PROGRAMS IN ONE EDITION."
1663 PRINT '"DAVE SHARES DOWNLOADS FROM COMP-USERVE WHEN CONTRIBUTIONS GET SCARCE."
1664 GO SUB VAL "9996"
1665 CLS : PRINT '"SEND $10 OR $12 DONATION FOR A SUBSCRIPTION TO ""HATS"" NOW SO NODAY PASSES WITHOUT AT LEAST ONE TS NEWSLETTER IN YOUR MAIL."
1667 PRINT '"THE HARRISBURG AREA TS USERS GROUP WILL BE IN SEPT. 19,'87 (ALL BRANDS) COMPUTER SHOW IN LANCASTER, PA., WORKING FOR A MORE POSITIVE IMAGE FOR TS COM- PUTERS."
1668 GO SUB VAL "7000"
1670 PRINT "TO HEADEREAD,SEND FOR LIST TAPE LIBRARY, ESP. 3.1. MEMBERS ONLY SO JOIN FOR $12 PER YR. INCLU. NEWSLETTER. ONE OF BEST HEADER PROGRAMS PUBLISHED BY TDM, JUNE/JULY '86"
1672 GO SUB VAL "7000"
1680 PRINT "TO HOSTILE-UP USER:";''"NO DIRECTIONS";''"OR---21 LINES OF INSTRUCTIONS: PAUSE 300";''"10 ""INPUT Y/N"";A$";'"20 IF A$=""y"" OR A$=""n""THEN GO ON WITH THE SHOW."
1681 PRINT ''"GIVE NO WARNING THAT RUN WILL ERASE A CRITICAL STRING."
1682 PRINT ''"ANY PAUSE THAT IS NOT TOO SHORT SHOULD BE TOO LONG.": PAUSE 1280: PRINT '"THE SALESMAN LUNGED TOWARD THE FARMER'S DAUGHTER AND PUT": PAUSE 90: CLS
1683 PRINT "GUARD ALL INPUTS WITH ON ERR GO TO": BEEP 7,-30: PRINT '"MEET ATTEMPTS TO LIST WITH BLACK ON BLACK";''"M/C AGIN TRIES TO MERGE AND A PASSWORD RND*20 TEXTS FROM OLD TESTAMENT IN THE ORIGINAL ARAMAIC."
1684 PRINT ''"TANTALIZING SCREEN MUST VANISH AT SAME INSTANT PROGRAM SAVED; A MEMORABLE SCREEN CAN HAUNT FOR MONTHS."
1685 PRINT ''"NEVER BE THWARTED BY THE DOGGED OPTIMISM OF OTHERS."
1686 GO SUB VAL "7000"
1690 PRINT "TO HOT-Z, LEGENDARY DISASSEMBLER-MONITOR-ASSEMBLER COMES IN 9(?)PERMUTATIONS. AUTHOR RAY KINGSLEY, SINWARE, BOX 8032, SANTA FE,NM 87504."
1694 GO SUB VAL "7000"
1700 PRINT INK VAL "2";"HOTWIRED TSUG"; INK VAL "8";'"CATS OR CAPITAL AREA TIMEX SINCLAIR--A CORPORATION THIS AGGRESSIVE WOULD OWN GM IN SIX MONTHS."
1702 PRINT PAPER VAL "4";"ACCOMPLISHMENTS"; PAPER VAL "8";"--4 OR 5 MEMBERS TO THE FIRST MIDWEST COMPUTER- FEST LAST YEAR AND AT VERY LEASTTHAT NUMBER IN '87;";'"MASS ORDER OF QLs;";'"MASS ORDER OF SCLDs BEING SHARED WITH OTHER TSUGS AND TS FANS ACROSS THE U.S.;";'"VIDEO TAPES OF THE QL ASSEMBLY WORKSHOP AND WORKSHOP SOLDERING SCLD SOCKET (APPARENTLY LENDABLETO OTHER TSUGS);";'"7 VOLUME LIBRARY TAPE AVAILABLE TO NON-MEMBERS AS WELL AS MEMBERS;";'"AND ONE OF THE BEST NEWSLETTERS."
1703 GO SUB VAL "9996"
1704 CLS : PRINT "FOR THE CATS NEWLETTER, JOIN THECLUB, P.O. BOX 725,BLADENSBURG, MD 20710 OR WRITE THE SECRETARY--RUTH FEGLEY, 5736 RIDGEDALE RD,BALTIMORE, MD 21209 FOR CONTACT PERSONS FOR TAPE LIBRARY OR SCLD PURCHASE."
1706 GO SUB VAL "7000"
1800 PRINT "I MENU": LET CH2=VAL "1800": LET SN=VAL "1850"
1802 PRINT '"1. INCREASE WP OR GAME SPEED";'"2. INDENT DIAGONALLY";'"3. INQUIRE TURNAROUND TIME FROM TIMEX";'"4. I.S.T.U.G."
1820 GO SUB VAL "6500"
1830 CLS : GO TO LN
1860 PRINT "TO INCREASE WP OR GAME SPEED, POKE 23561,N (N=1 TO 35) WITH 10-15 RECOMMENDED FOR TEXT. POKE 23562,N(N=1 TO 5) WITH 3 RECOMMENDED FOR TEXT. YOU MAY ALSO CRASH YOUR PROGRAM."
1862 PRINT '"FOR GAMES POKE 23561, N WITH 1 TO 10 BEST;POKE 23562, 1 BEST, THOUGH RANGE AS SAME AS FOR WP."
1864 GO SUB VAL "7000"
1870 PRINT "TO INDENT DIAGONALLY FOR TITLE DISPLAY AS EASY EYECATCHER."
1872 PRINT '"10 LET X =0";'"20 PRINT TAB X;""HELLO""";'"25 LET X=X+1:IF X>22 THEN GO TO 20"
1874 PRINT '"REMEMBER MINIMODS ARE BARE & DO WELL WITH EMBELLISHMENT": GO SUB VAL "9996": GO SUB VAL "7001"
1875 GO SUB VAL "7000"
1880 PRINT "TO INQUIRE TURNAROUND TIME, ETC.FROM TIMEX, PHONE (501)-370-0534BUT FOR MORE INFO HAVE REPAIR ORDER # READY."
1882 PRINT '"LONG TURNAROUNDS CANNOT WELL BE CIRCUMVENTED BY SENDING A CHECK IN ENVELOPE SEALED TO PKG. LOST!WAIT FOR ESTIMATE; YOU ONLY MESSTHE BOOKKEEPING AND ADD TO OWN EXPENSE BY HAVING TO STOP PAY ONCHECK. EXPECT MONTH MINIMUM TO GET BACK COMPUTER, PRINTER, RAM-PAK."
1884 PRINT '"""WEEK TO 10 DAY TURNAROUND BUT WE ARE 3 WEEKS BEHIND"" IS A LIKELY RESPONSE TO INQUIRIES."
1885 GO SUB VAL "7000"
1890 PRINT "TO ISTUG, AN ESPECIAL HOMAGE FORSPONSORING MIDWEST TS COMPUTER FEST."
1892 PRINT '"THIS IS A VERY SMALL TSUG BEGUN IN LATE '86 AFTER NUCLEUS OF GROUP HOSTED FIRST MIDWEST FEST."
1894 PRINT '"SO FAR THE MAIN BUSINESS OF THE SMALL NEWSLETTER HAS BEEN ROUST-ING UP THE FEST, BUT ISTUG HAS ALSO A BBS; IN FACT, THEY ARE SELLING THEIR BBS PROGRAM FOR UNADORNED TS2068 AND INVITE TRIAL BY PHONING ANY OF 24 HRS."
1895 GO SUB VAL "9996"
1896 CLS : PRINT '"PHONE (317)898-3903 WITH MODEM SET FOR 7-1-E.";'"IF YOU LIKE IT,SEND $16 FOR YOURCOPY TO W. JONES, 10126 E. 33RD ST., INDIANAPOLIS, IN 46236."
1898 PRINT '"PER CAPITA THE HARDEST WORKING TSUG IN COUNTRY. SO FEW DO SO MUCH!"
1899 GO SUB VAL "7000"
2000 PRINT "J MENU": LET CH2=VAL "2000": LET SN=VAL "2050"
2002 PRINT '"1. JACK'S FAIRWARE";'"2. JOYSTICK FOR SPECTRUMIZED TS 2068 OR SPECTRUM"
2020 GO SUB VAL "6500"
2030 CLS : GO TO LN
2060 PRINT """JACK'S FAIRWARE"" INCLUDES THE PREMIER VERSION OF MSCRIPT--THE IDEA BEING THAT ONLY A LEGAL OWNER MAY SEND FOR IMPROVEMENTS & SEND JACK A DONATION FOR HIS HIGHLY-PRAISED ENHANCEMENTS."
2061 PRINT '"SEND LEGAL SIZE SASE TO JACK DOHANY, 390 RUTHERFORD AVE.,RED-WOOD CITY, CA 94061."
2062 GO SUB VAL "7000"
2070 PRINT "JOYSTICK WITH SPECTRUM AND SPECYSOFTWARE, USE KEMPSTON; SEE SWN,JAN-FEB '87, P. 21 FOR HOW TO INSTALL A CIRCUIT INSIDE THE TS 2068 TO PORT KEMPSTON."
2072 GO SUB VAL "7000"
2200 PRINT "K MENU": LET CH2=VAL "2200": LET SN=VAL "2250"
2202 PRINT "1. KEALY--DUE ALL IMPROVEMENTS";'"2. KOALA PAD"
2220 GO SUB VAL "6500"
2230 CLS : GO TO LN
2260 PRINT '"INITIATING AUTHOR-JOAN KEALY AT 3334 ZION, B-11, EL PASO, TX 77904 WANTS ALL ENHANCEMENTS OF THIS PROGRAM. IN RETURN SHE'LL SEND YOU LATER EDITIONS OF SAME."
2261 PRINT '"THE FORM IS HERE WAITING FOR UP-DATES, AMENDING, & IMPROVING--- AN ELECTRONIC TIPBOX TO REPLACE ALL THOSE SCRAPS."
2263 PRINT '"WITH NEW ADDRESSES, REVISIONS OFERRORS, PERTINENT & IMPERTINENT HOW-TO HINTS, DROP A POSTCARD ORA TS2040 PRINTOUT TO ABOVE ADDR."
2264 PRINT '"THIS IS EDITION 1.7 OF A 38K AMBITION."
2268 GO SUB VAL "7000"
2270 PRINT "KOALA TECHNOLOGY'S PRESSURE-SENS-ITIVE PAD WAS ADAPTED BY ZEBRA SYSTEMS FOR 2068; CAN BEST BE ENJOYED WITH A PRINTER USABLE WITH IT--NOT GB. SPRAY PATTERN PROBLEM CAN BE CURED THRU HARD- WARE MODIFICATION."
2272 PRINT '"NOT A REPLACEMENT FOR PENCIL & PAPER WITH COMMERCIAL COPIERS FOR ANYONE WITH ANY DRAWING KNACK. STILL AWAITING CHEAP OPTICAL SCAN DEVICE."
2274 GO SUB VAL "7000"
2400 PRINT "L MENU": LET CH2=VAL "2400": LET SN=VAL "2450"
2401 PRINT '"1. LISTing";'"2. LOWER RAMTOP"
2402 PRINT "3. LPRINT PRINT LINES";'"4. LPRINT WITH TS2040 & TASWORD"
2420 GO SUB VAL "6500"
2430 CLS : GO TO LN
2460 PRINT "TO LISTing, PUBLICATION OF THE ""PROS"", LONG ISLAND SINCLAIR TIMEX, ARGUABLY THE MOST TECH- NICALLY GIFTED GROUP IN US."
2461 PRINT "MAIL TO LIST, P.O. BOX 438, CENTERPORT, NY 11721-0438"
2462 PRINT '"REPORTEDLY, LIST WILL BE GIVING UP THEIR POSTAL BOX SO SEND MAILTO THEIR CORRESPONDING SECRETARYHARVEY RAIT, 5 PERI LANE, VALLEY STREAM, NY 11581."
2463 PRINT '"HARVEY RAIT IS ALSO TAPE LIBRAR-IAN OVER 7 VOLUMES (AS OF 5/87) OF OUTSTANDING PUBLIC DOMAIN PROGRAMS OF EVERY SORT INCLUDINGR-RATED!! NOTHING TOO SCANDALOUS"
2464 GO SUB VAL "7000"
2470 PRINT "TO LOWER RAMTOP TO PREVENT UDGs BEING OVERWRITTEN,ETC., CLEAR 63255"
2472 GO SUB VAL "7000"
2480 PRINT "TO LPRINT ALL LINES THAT ARE PRINT LINES, POKE 26697,80;TO RESTORE, POKE 26697,83"
2482 GO SUB VAL "7000"
2490 PRINT "TO LPRINT WITH TS2040 AFTER USE OF 80 COL. PRINTER, POKE 26703,0:POKE 26704,5 IN IMMEDIATE MODE OR AT LINE 29 IN TASWORD."
2492 GO SUB VAL "7000"
2500 PRINT "TO LOWER RAMTOP TO PREVENT UDGs BEING OVERWRITTEN,ETC., CLEAR 63255"
2600 PRINT "M MENU": LET CH2=VAL "2600": LET SN=VAL "2650"
2601 PRINT '"1. MAGAZINES";'"2. MIDI";'"3. MOSAIC";'"4. MOVE GRAPHICS";'"5. MSCRIPT"
2620 GO SUB VAL "6500"
2630 CLS : GO TO LN
2660 PRINT "TO MAGAZINES:";''"CTM,1704 SAM DR.,BIRMINGHAM,AL 35235, IS GENERAL SEMI-SLICK THAT USUALLY OFFERS 6 OR SO ARTICLES ON T/S MACHINES"
2662 PRINT '"SYNCWARE NEWS, C/0 THOMAS B. WOODS, P.O. BOX 64, JEFFERSON, NH 03583. HARDWARE ORIENTED MAGAZINE, TECHNICAL, GOOD PRO- GRAMMING INSTRUCTION ($16.95 FOR 6 ISS. PER YR.)"
2664 PRINT '"TIME DESIGNS, 29722 HULT RD., COLTON, OR 97017--VERY UPBEAT PUBLICATION RE WHAT FUTURE IS FOR TS ORPHANS,FULL OF POSITIVE ASPECTS AND NEW DEVELOPMENTS ($15 PER YR.--6 ISSUES)."
2665 GO SUB VAL "9996"
2666 CLS : PRINT '"EXTINCT BUT BACK ISSUES WORTHY: SUM, TS HORIZONS, AND SOME LAST ISSUES OF RESPECTED PREDECESSORSBUT LATTER MAINLY INVOLVED TS 1000."
2667 GO SUB VAL "7000"
2670 PRINT "TO MIDI INTERFACE, CONTACT LARKEN ELECTRONICS, RR#2 NAVAN, ONTARIO, CANADA K4B-1H9."
2672 PRINT '"PER FRED NACHBAUR IN SWN THE HEART OF MIDI IS A DIGITAL TO ANALOG CONVERTER REACHED THROUGHITS SERIAL PORT. PROBLEM IS AVAILABILITY OF SOFTWARE."
2674 PRINT '"CONTACT TIM WOODS OF TDM RE ANY-ONE'S DEVELOPING SOFTWARE FOR TS/MIDI; AS OF 4/87 NONE IS BEING ADVERTISED."
2676 GO SUB VAL "7000"
2680 PRINT "TO MOSAIC ALA MINIMOD:"
2681 PRINT '"THE TWO OTHER MACHINES HAVE SUPERIOR GRAPHICS BECAUSE THEY WERE DESIGNED MORE AS GAME MACHINES. SO WHAT EXPLAINS SUPERIOR GRAPHICS IN SPECCY PROGRAMS OVER 2068?"
2682 PRINT '"20 RANDOMIZE 0";'"30 LET X=RND*21:LET Y=RND*31";'"40 LET Z=RND*15+128";'"50 LET P=RND*7:LET I=RND*7";'"60 PAPER P: INK I:PRINT AT X,Y; CHR$ Z";'"70 G0 TO 30"
2684 GO SUB VAL "7000"
2690 PRINT "TO MOVE GRAPHICS PRINT PICTURE IN SUCCESSIVE SPOTS PRECEDED BY AN ERASING ACTION, PRINTING "" ""THE SIZE OF DOODLE. BEST DONE BY LOOPING. TS 2068 DOES HAVE SPRITE CAPACITY BUT LESS AGILE THAN IN ATARI OR COMMODORE."
2691 PRINT '"THE TWO OTHER MACHINES HAVE SUPERIOR GRAPHICS BECAUSE THEY WERE DESIGNED MORE AS GAME MACHINES. SO WHAT EXPLAINS SUPERIOR GRAPHICS IN SPECCY PROGRAMS OVER 2068?"
2692 PRINT '"COMMERCIAL GAMING MUST MEAN BESTGRAPHICS."
2694 GO SUB VAL "7000"
2700 PRINT "TO MSCRIPT IN DOHANY VERSION GOES HONOR OF BEING 1ST TS WP SERIOUSLY AND OFTEN COMPARED TO WORDSTAR."
2702 PRINT '"ONLY LEGAL OWNERS OF MSCRIPT CANBUY DOHANY MODIFICATIONS. WP IS AVAILABLE MANY TS COMPANIES LIKEE. ARTHUR BROWN. SEE J MENU FORDOHANY ADDRESS."
2704 GO SUB VAL "7000"
5990 CLS
5991 PRINT "SO ENDETH VOLUME 1.": INPUT "LOAD VOLUME 2 OR REVIEW VOL. 2? L/R?";Q$: IF Q$="" THEN GO TO 5991
5993 IF Q$="L" THEN GO TO 5999
5995 IF Q$="R" THEN GO TO 25
5997 STOP
5999 LOAD "TIPS-N-Z"
6000 PRINT "FOR PRO TECHNIQUE SEE""PRO TECH"" FROM LIST LIBRARY 3."
6001 BORDER 1: PRINT '"THEORETICALLY, BRIGHT 1 OR 0 CAN OFFER 16 COLORS; IN FACT, THE SAME TS2068 CAN BE COLOR- BLIND WITH A MONITOR & COLORFUL WITH A TV SET."
6004 INK 9: PRINT '"SET INK AT 9 FOR LEGIBILITY; IT WILL BE BLACK OR WHITE FOR CONTRAST WITH WHATEVER COLOR THEPAPER IS": PAPER 1
6005 INK 9: PRINT '"GIMMICKRY FOR AN ASSORTMENT OF COLORS--FOR EXAMPLE:LET P=RND*7:LET I=RND*7: PAPER P: INK I-- IS NOT RECOMMENDED. THE COMBIN-ATIONS MAY NOT BE ATTRACTIVE OR EVEN HAVE GOOD VISIBILITY."
6006 PRINT AT 20,3;"SEE BELOW IF YOU CAN": GO SUB VAL "9996": CLS : PRINT "NUMBER 8 LEAVES COLOR AS IT WAS AND IS CALLED TRANSPARENT; NO ONE SEEMS TO USE IT MUCH.;"'"USE FLASH SPARINGLY."
6007 PAPER VAL "7": INK VAL "9": PRINT '"FOR IMBEDDED COLOR COMMANDS, CLS, ENTER LINE #, GET AN E CURSOR, HOLD DOWN THE CAP SHIFT,PRESS ONE OF THE COLOR KEYS--4, SO YOU HAVE A GREEN COLORED K CURSOR, ANYTHING ENTERED WILL BE GREEN;THE NEXT STEP IS TO INVERT WITH THE 4 KEY AND CAPS SHIFT;TO ADD YELLOW INK TO THE GREEN BACKGROUND BRING UP AN E CURSOR AND WITHOUT TOUCHING ANY OTHER KEY, PRESS 6;CAPS SHIFT AND 3 BRINGS BACK TRUE VIDEO."
6008 PAPER VAL "7": INK VAL "0": PRINT "THIS SUBJECT IS ONLY GRAZED.": GO SUB VAL "9996": CLS
6009 INK VAL "9": PRINT '"FOR INSTANCE, TO COLOR WITHIN QUOTES, TYPE 10 PRINT ""; THEN PRESS THE CAPS SHIFT & SYMBOL SHIFT TO GET E CURSOR AND KEY NUMBER FOR PAPER COLOR DESIRED. DO NOT TYPE IN TOKEN WORD PAPER.WHEN FINISHED TYPING IN DESIRED COLOR YOU WILL NEED TO GET THE E CURSOR AGAIN AND TOUCH THE NUMBER FOR YOUR BACKGROUND. THIS I DID."
6010 PAPER VAL "7": INK VAL "9": PRINT '"SO WHAT WENT WRONG? A BLUE BORDER; AS THE LINES COME DOWN INTO THE EDIT AREA, THEY MAY BE AGAINST A CONTRASTING BORDER."
6011 PRINT '"PRESS COLOR FOR PAPER NOT BORDER"
6012 GO SUB VAL "9996": CLS : PRINT "INK IS DONE AS ABOVE BUT AFTER GETTING E CURSOR THE CAPS SHIFT SHOULD BE HELD DOWN."
6013 PAPER VAL "6": INK VAL "9": PRINT '"STICK WITH INK 9 ABOVE ALL, BUT FIND FOR YOURSELF THE MOST PLEASING BACKGROUND COLOR. IT IS RARELY WHITE!"
6017 BORDER VAL "6": GO SUB VAL "9996": RETURN
6500 INPUT "CHOICE BY NUMBER?";T$: LET LN=VAL T$*10+SN: RETURN
7000 GO SUB VAL "9996": GO SUB VAL "8996": GO TO VAL "25"
7001 CLS : LET Z=VAL "0"
7005 IF Z=VAL "3" THEN CLS : RETURN
7010 LET x=VAL "4"
7015 LET A$="HELLO"
7020 PRINT TAB x;A$
7030 LET X=X+1: IF X<26 THEN GO TO VAL "7020"
7040 POKE VAL "23692",VAL "255": FOR X=VAL "25" TO VAL "1" STEP -1: PRINT TAB X;A$
7045 NEXT X
7050 LET Z=Z+VAL "1": GO TO VAL "7005"
7500 PAPER VAL "0": PRINT "TO TITLE COLORFULLY,": PAUSE VAL "180": CLS
7501 FOR N=VAL "1" TO VAL "28": FOR P=VAL "0" TO VAL "7": PAPER P: PRINT " ";
7502 NEXT P: NEXT N: PRINT AT 10,11;"COMPUTUTOR"
7503 PRINT AT VAL "19",VAL "0";"SLOW-FORMING SCREENS SHOULD BE LOADED AS SCREEN$,OF COURSE."
7505 GO SUB VAL "9996"
7507 CLS : PRINT "VISUAL SYMBOL WITH TITLE,": PAUSE VAL "180": CLS
7509 PAPER VAL "0": LET X=VAL "0": BORDER VAL "6": INK VAL "9"
7510 PRINT TAB X;"CROSSWORD"
7511 LET X=X+VAL "1": IF X<VAL "22" THEN GO TO VAL "7510"
7513 LET X=VAL "22": LET Y=VAL "0": INK VAL "9"
7515 PRINT AT Y,X;"CROSSWORD": LET X=X-VAL "1": LET Y=Y+VAL "1"
7517 IF X>=VAL "0" AND Y<=VAL "21" THEN GO TO VAL "7515"
7519 PAUSE VAL "180"
7520 PAPER VAL "6": BORDER VAL "6": RETURN
8000 LET A$="THE HOUND ": LET B$="OF": LET C$="THE BASKERVILLES": PRINT '''': PRINT TAB (VAL "32"-LEN A$)/VAL "2";A$: PRINT '''': PRINT TAB (VAL "32"-LEN B$)/VAL "2";B$: PRINT '''': PRINT TAB (VAL "32"-LEN C$)/VAL "2";C$
8001 PAUSE VAL "360": CLS : RETURN
8997 CLS : INPUT '"RETURN TO (1) ALPHA OR ";'"(2) CURRENT LETTER MENU, 1 OR 2 ?";R$: IF R$="" THEN GO TO VAL "8997"
8998 IF R$="2" THEN GO TO CH2
8999 RETURN
9000 COPY : GO SUB VAL "7000"
9996 PRINT AT VAL "21",VAL "7"; INK VAL "2";"PRESS ANY KEY": PAUSE VAL "0": RETURN
9997 STOP
9998 SAVE "TIPS-A-M" LINE 1: PRINT "RE-LOAD ""TIPBITSCR""SCREEN$ ";'"GOTO 9999 WHEN READY.": STOP
9999 SAVE "TIPBITSCR"SCREEN$