More tips from listable programs, books, magazines, and newsletters.
Appears on
Library tape from the Sinclair Computer Users Society (SINCUS).
Source Code
1 INK 9: PAPER 6: BORDER 6: CLS
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 2-TIPBITS N THROUGH Z "
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. 1, BREAK AND GOTO LOAD": LET COPY=VAL "9000": LET LOAD=VAL "5999"
22 GO SUB VAL "9996"
24 LET AL=VAL "25"
25 CLS : PRINT AT 0,0;"ALPHABITS--RETURN BY BREAKING AND TYPING""GOTO AL"""
27 PRINT AT VAL "4",VAL "0";"ALL LETTERS HAVE THE SAME NUMBER AS THEIR ORDER IN THE ALPHABET."
29 INK 9: PRINT '"LOAD","N--14","VOLUME ","O--15","ONE","P--16","AND/OR","Q--17","ADD","R--18","YOUR","S--19","OWN","T--20","TIPS","U--21","FOR","V--22","YOUR","W--23","OWN","X--24","SPECIAL","Y--25","INTERESTS","Z--26"
30 INPUT "YOUR CHOICE BY NUMBER?";C$
32 LET LN=VAL C$*VAL "200"
33 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"
2800 PRINT "N MENU": LET CH2=VAL "2800": LET SN=VAL "2850"
2801 PRINT '"1. NOTABLES";'"2. NOVELSOFT";'"3. NUMBER ARRAYS IN PRINTOUT"
2820 GO SUB VAL "6500"
2830 CLS : GO TO LN
2860 PRINT "TO NOTABLES OF '87 MIDWEST COMP-UTOR FEST, APPRECIATION! THE FOLLOWING PRESENTED SEMINARS FORFELLOW TS USERS SOLELY TO BRING INFO TO CO-HOBBYISTS:"
2862 PRINT '"GARY GANGER","DAVE FRANSON","MARK FENDRICK", "BASIL WENTWORTH","HELEN GANGER", "TIM WOODS"
2863 PRINT "ROB CURRY","DEBBIE CURRY","TOM BENT","TOM WOODS","FRANK TOEMAY","PAT SPERA"
2864 PRINT "JACK ROBERTS","BILL PEDERSEN"," JOE NEWMAN"
2865 PRINT ''"A TEAM OF EDUCATIONAL SPEC- IALISTS THIS KNOWLEDGEABLE WOULDCHARGE A SCHOOL DISTRICT $40,000FOR A TWO-DAY SEMINAR. TRULY!"
2866 GO SUB VAL "9996"
2867 CLS : PRINT '"THERE'D BE LOTS MORE PAPER HAND-OUTS BUT NO DOOR PRIZES! THANKS TOO TO THE VENDORS WHO MADE THE GOODIES AVAILABLE."
2868 PRINT '"EVEN THE TS USERS WHO COULD NOT ATTEND THIS YEAR BENEFIT BY THE STIMULATION GIVEN TO TS INTEREST--BOTH AS A HOBBY FOR ALL & A BUSINESS FOR SOME."
2869 GO SUB VAL "7000"
2870 PRINT "TO NOVELSOFT--CANADIAN COMPANY, LIKE LARKEN--BRIDGING GAP TWEEN SPECTRUM AND TS2068 FOR AMERICANMARKET. PRODUCES PROGRAMS WITH SPECCY VERSION ON 1 SIDE AND TS VERSION ON OPPOSITE."
2872 PRINT '"NEIGHBORLY--ADDR.:NOVELSOFT, 1067TH ST., TORONTO, ONTARIO M8V 3B4, CANADA. PHONE (416)259-8682"
2874 PRINT '"PROGRAMS PRICED IN AMERICAN SO NO NEED TO WORRY ABOUT ` OR CAN-ADIAN EXCHANGE. THIS COMPANY ALSO RESPONDS TO INQUIRIES BETTER THAN SEVERAL US COMPANIES"
2876 GO SUB VAL "7000"
2880 PRINT "TO NUMBER ARRAYS OR STRINGS FOR ORDERLY PRINTOUTS:"
2882 PRINT '"AFTER DIMENSIONING STRING AND INPUTING TITLES, NAMES, OR SUCH,FOR ORDERLY PRINTOUTS, LINE # FOR X=1 TO 20:PRINT (OR LPRINT) X;"". "";A$(X):NEXT X"
2884 GO SUB VAL "7000"
3000 PRINT "O MENU": LET CH2=VAL "3000": LET SN=VAL "3050"
3002 PRINT '"1. ""ON A GOTO"" CONVERSION";'"2. OPEN CHANNELS (STREAMS)";'"3. OPTIMUM LITERARILY SPEAKING"
3020 GO SUB VAL "6500"
3030 CLS : GO TO LN
3060 PRINT "TO ""ON __ GOTO"" FROM OTHER BASICS:"
3061 PRINT '"FORM WOULD BE ""ON A GOTO 240, 480, 560"" WHERE A IS THE INPUT CHOICE OF 1, 2, OR 3."
3062 PRINT '"THIS FORM MET IN DEALING WITH INPUTS FOR SERIES OF CHOICES; FOR TS MACHINES USE N*100(OR * 1000)TO DIRECT PROGRAM TO SUB- ROUTINES--CLUMSY IF CONVERTING PROGRAM IF LINE CHOICES IN SOURCE PROGRAM NOT REGULAR MULTIPLES."
3063 GO SUB VAL "9996"
3064 CLS : PRINT '"DO NOT USE A SERIES LIKE ""IF A$=""1"" THEN GO TO 240:IF A$=""2""THEN GOTO 480.";'"WITH : IN-BETWEEN STATEMENTS, IF 1ST IS NOT TRUE, PROGRAM WILL JUMP TO NEXT LINE.";'"USE SEPARATE LINE# FOR EACH ""IF THEN GOTO""STATEMENT."
3065 GO SUB VAL "7000"
3070 PRINT "TO OPEN CHANNELS (STREAMS) NOT RELATED TO DISK DRIVE DATA STORAGE:"
3072 PRINT '"#0,1 ARE FOR EDIT LINES, THE LAST 2 AT BOTTOM OFSCREEN.";'"#2 NORMALLY FOR SCREEN.";'"#3 NORMALLY FOR PRINTER."
3074 PRINT '"STREAMS CAN BE RE-DIRECTED SO THAT PRINT CAN BE CHANGED TO LPRINT ALL THROUGH A PROGRAM BY TYPING OPEN #2,""P""."
3075 PRINT "BACK TO NORMAL AS ON CHART BY CLOSE #2"
3077 GO SUB VAL "7000"
3080 PRINT "TO OPTIMUM LITERARY ACHIEVEMENT,SEE TS2068 BASICS AND BEYOND BY SHARON Z. AKER. THIS BOOK HAS VIRTUALLY ALL THE NIFTIES YOU ENVIED IN THE WORK OF YOUR MOST POLISHED PEERS. SELLING AS OF SPRING/SUMMER '87 FOR $7 INCLU. SHP. FROM WMJ, HAUPPAGE, NY."
3089 GO SUB VAL "7000"
3200 PRINT "P MENU": LET CH2=VAL "3200": LET SN=VAL "3250"
3202 PRINT '"1. PASSWORD-PROTECT";'"2. PLACE RAMTOP HIGHEST";'"3. PLOTTING AGAINST FRED & HARRY";'"4. POTENT POKES";'"5. PRINT ALL OF STRING OF UNKNOWN LENGTH"
3204 PRINT "6. PRO/FILE";'"7. PROTO-PROS: AMARILLO TSUG"
3220 GO SUB VAL "6500"
3230 CLS : GO TO LN
3260 PRINT "TO PASSWORD-PROTECT YOUR PROGRAM:"
3261 PRINT "10 ON ERR GOTO 9010";'"9010 LET P$=""SECRET""";'"9020 BEEP 1,1";'"9030 LET Q$=""""";'"9040 LA$=INKEY$";'"9050 IF A$=INKEY$ THEN GO TO 9050";'"9060 LET Q$=Q$+A$";'"9070 IF LEN P$>LEN Q$ THEN GO TO 9040";'"9080 IF P$=Q$ THEN ON ERR RESET";'"9090 ON ERR CONTINUE"
3264 GO SUB VAL "7000"
3270 PRINT "TO PLACE RAMTOP AS HIGH AS POSS-IBLE:"
3272 PRINT '"POKE 23730,255.";'"THE PRINT FREE COMMAND WILL SHOWONLY 38534, BUT MACHINE CODE CAN GO BETWEEN 65259 & 65535; THIS CODE CAN BE PUT ON TAPE WITH ""SAVE """"CODE 65260,276."
3274 PRINT '"THIS WILL NOT WORK WITH UDGs HOWEVER."
3277 GO SUB VAL "7000"
3280 PRINT "YOU'VE MET HARRY & FRED IN ""FACEDRAW"" UNDER F MENU; YOU'RE GOINGBACK TO FETCH THEM SO WHEN ""PRESS ANY KEY"" SHOWS, DO!"
3281 LET Z=VAL "999": PAUSE VAL "460": CLS : GO TO VAL "1260"
3282 PRINT AT VAL "15",VAL "0";"\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::": PRINT AT VAL "16",VAL "5";"STILL USING NO UDGS": PRINT AT VAL "20",VAL "0";"\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::";AT VAL "17",VAL "0";" SEE THIS METHOD BY LISTING";AT VAL "18",VAL "0";" LINES 3280 THROUGH 3289"
3283 PRINT AT VAL "21",VAL "7";"PRESS ANY KEY": REM MAY USE XR OR XL IN PLOT STATEMENTS TO KEEP ORIENTATION CLEAR WHEN WORKING WITH 2 FIGURES
3285 LET y=VAL "100": FOR x=VAL "90" TO VAL "80" STEP -1: PLOT x,y: NEXT x: FOR x=VAL "110" TO VAL "120" STEP VAL "1": PLOT x,y: NEXT x
3286 LET y=VAL "101": FOR x=VAL "87" TO VAL "82" STEP -1: PLOT x,y: NEXT x: FOR x=VAL "112" TO VAL "118": PLOT x,y: NEXT x
3287 FOR x=VAL "79" TO VAL "78" STEP -1: FOR y=VAL "99" TO VAL "90" STEP -1: PLOT x,y: NEXT y: NEXT x
3288 FOR x=VAL "120" TO VAL "122" STEP 1: FOR y=VAL "99" TO VAL "90" STEP -1: PLOT x,y: NEXT y: NEXT x
3289 LET xl=VAL "77": FOR y=VAL "96" TO VAL "92" STEP -1: PLOT xl,y: NEXT y: LET XR=VAL "123": FOR Y=VAL "96" TO VAL "92" STEP -1: PLOT XR,Y: NEXT Y: LET X=VAL "109": FOR Y=VAL "100" TO VAL "97" STEP -1: PLOT X,Y: NEXT Y: GO SUB VAL "7000"
3290 PRINT "POKE POTENTLY WITH:"
3291 PRINT '"POKE 26697,80--ALL PRINT STATE- MENTS BECOME LPRINT; POKE 26697,83--BACK TO NORMAL."
3292 PRINT '"POKE 23692,255 TO DEFEAT THE SCROLL--THIS NEEDS TO BE BEFORE EACH PRINT STATEMENT. IF UNSAT- ISFIED WITH THIS RESULT NEWER HINT: RANDOMIZE USR 2361 (2068) OR USR 3582 (SPEC) TO DUPLICATE TS1000-TYPE SCROLL AT LINE AFTERSCREEN FILLED TO YOUR TASTE."
3293 PRINT '"POKE 23658,8 FOR CAPSLOCK ON OR 0 FOR OFF; POKE 23609,30 TO 50 (CHOICE OF RANGE) TO BEEP THE KEYBOARD WITH EACH KEYSTROKE"
3294 GO SUB VAL "9996"
3295 CLS : PRINT '"POKE 23561, N WHERE N CAN BE ANYNUMBER FROM 1 TO 35. TOUCH TYPISTS SHOULD LIKE 10 TO 15 FOR TEXT."
3298 PRINT '"THESE FREQUENTLY USED POKES ARE ON STICKERS ON MY KEYBOARD. CONSERVATIVES SIMPLY HAVE THEM TATOOED ON THE INNER WRIST OF THEIR LEFT HAND."
3299 GO SUB VAL "7000"
3300 PRINT "TO PRINT ALL OF A STRING OF UNKNOWN LENGTH:"
3302 PRINT "20 INPUT N$";'"30 CLS (OPTIONAL)";'"40 LET L=LEN N$";'"50 FOR K=1 TO L";'"60 PRINT N$(K)";'"70 NEXT K";'"80 GOTO 20 (FOR ADDITIONAL WORDS)"
3304 PRINT '"VARIATIONS INCLUDE 60 PRINT TAB K;N$(K) OR PRINT TAB K*3;N$(K)"
3305 GO SUB VAL "7000"
3310 PRINT '"TO PRO/FILE YOUR DATA, SEND TO THOMAS WOODS, P.O. BOX 64, JEFF-ERSON, NH 03583 INQUIRY OF NOW PRICE ON TAPE OR CARTRIDGE(?) OR EPROM. THIS & ""HOT Z"" ARE ETERNAL."
3312 PRINT '"FAMILY MAN WOODS INVITES PHONE CALLS AT DECENT HOURS--603-586- 7734."
3314 PRINT '"MOST INCREDIBLE 140+ PAGE MANUALEVER. STILL, PATCHES TO PRO/- FILE ARE VIRTUALLY A HOBBY IN THEMSELVES."
3316 GO SUB VAL "7000"
3320 PRINT "TO PROTO-PROS, THE AMARILLO TSUG"
3321 PRINT "THIS RELATIVELY NEW GROUP HAS TALENTED YOUNG PROGRAMMERS WHO ARE STILL TALKING UP NEWSLETTER POSSIBILITIES WITH 80 COLUMN PRINTER. THE BEST TS2068 POKER GAME IN THE COUNTRY CAME FROM THIS TSUG."
3322 PRINT '"VARIED INTEREST OF GROUP SHOULD MAKE FOR GOOD NEWSLETTER. NEW ACQUISITIONS OF QLs ARE PROVING MAIN ENTHUSIASM, BUT TS2068s STILL FLOURISHING."
3324 PRINT '"FOR MORE INFO & TO SPUR ON THE NEWSLETTER, WRITE JOE E. JENKINSAT 3100 MOCKINGBIRD, AMARILLO, TX 79109. TAPE LIBRARY IS DEVELOPING TOO."
3325 GO SUB VAL "9996"
3326 CLS : PRINT '"IF THIS GROUP CAN FIND TIME, THEY SHOULD EMERGE INTO FULL- FLEDGED HYPERACTIVES...WITH BBS,NEWSLETTER, TAPE LIBRARY, AND BLEARY EYES."
3329 GO SUB VAL "7000"
3400 PRINT "Q MENU": LET CH2=VAL "3400": LET SN=VAL "3450"
3402 PRINT '"1. QUERY FOR Y/N RESPONSE";'"2. QUERY FOR SELF-PACING";'"3. QUERY FOR MENU CHOICE"
3420 GO SUB VAL "6500"
3430 CLS : GO TO LN
3460 PRINT "TO QUERY FOR Y/N RESPONSE, POKE 23658,8 TO TURN ON CAPS LOCK OR BOTH CAPS AND LOWER CASE MUST BECOVERED WITH ""IF Q$=""Y"" OR Q$=""y""."
3462 PRINT '"FAILURE TO COVER BOTH RESULTS INPROGRAM STOPPING. THIS QUERY NEEDS ""IF Q$="""" THEN GOTO QUERY LINE AGAIN."
3463 PRINT '"ALTERNATIVE USES INKEY$; NO NEEDTO ENTER. MINIMOD:";'"20 LET I$=INKEY$";'"30 IF I$=""N"" THEN GO TO 1010";'"40 IF I$<>""Y"" THEN GO TO 20";'"50 GOTO N(RESTART OF GAME OR ?)";'"1010 STOP "
3464 PRINT '"NOTE THAT INKEY$ MOD ABOVE WILL NOT SHOW AN INPUT CURSOR."
3466 GO SUB VAL "7000"
3470 PRINT "TO QUERY FOR SELF-PACING, PRINT AT BOTTOM OF SCREEN ""PRESS ANY KEY"", ADD ""PAUSE 0""."
3472 PRINT "AT INPUT OF ANY KEY,CLS USUALLY AND CONTINUE TO NEXT PROCEDURE; THIS ELIMINATES GUESSING HOW LONG A READING REQUIRES OR TWO IF DIRECTIONS ARE DIFFICULT."
3474 GO SUB VAL "7000"
3480 PRINT "TO QUERY FOR MENU CHOICE, INPUT REQUESTED SHOULD BE BY NUMBER; N*100 OR *1000 WILL HELP IN STRUCTURING THE PROGRAM; IF MANYSUCH CHOICES ARE NECESSARY A GO-SUB TO MODULE AT END OF PROGRAM SAVES MEMORY AND TYPING."
3482 PRINT '"SEE LINE 220 FOR EXAMPLE...MOD USED AT 420,620,ETC., THRU 5220."
3484 GO SUB VAL "7000"
3600 PRINT "R MENU": LET CH2=VAL "3600": LET SN=VAL "3650"
3602 PRINT "1. RADIANS FROM DEGREES";'"2. RAMDISK";'"3. REPAIR";'"4. ROUND TO CENTS";'"5. RS232 TO MODEM"
3620 GO SUB VAL "6500"
3630 CLS : GO TO LN
3660 PRINT "TO RADIANS FROM DEGREES, RADIANS=DEGREES*(PI/180)"
3662 GO SUB VAL "7000"
3670 PRINT "TO RAMDISK WRITE LARKEN ELEC- TRONICS, RR#2 NAVAN, ONTARIO, CANADA K4B 1H9, NOW DEVELOPING A256K RAMDISK FOR TS2068."
3672 PRINT '"REALLY BELIEVE CANADIANS CAN BE SALVATION OF 2068 WITH THEIR EASIER ACCESS TO BOTH SPECTRUM & TS2068 MARKETS."
3675 GO SUB VAL "7000"
3680 PRINT "TO REPAIR BY MANUFACTURER: TIMEXPRODUCT SERVICE CENTER, P.O. BOXK, 7004 MURRAY ST.,LITTLE ROCK, AR,72203--(501)372-1111)"
3682 PRINT '"TWO OTHER REPAIRSHOPS ARE (1) CARVER TECHNOLOGIES--FORMERLY TSCONNECTION--3832 WATERSON, CIN- CINNATI, OH, 45227--(513)271- 5575";'"(2) SUNSET ELECTRONICS, 2254 TARAVAL ST, SAN FRANCISCO, CA 94116--(415)665-6161"
3685 GO SUB VAL "7000"
3690 PRINT "TO ROUND TO CENTS,PRINT INT(X*100+.5)/100 WHERE X IS # TO BE ROUNDED."
3692 GO SUB VAL "7000"
3700 PRINT "TO RS232 PORT IN 2050 MODEM, SEETIMELINEZ FOR APRIL '87 (BONUS EDITION)--VERY IMPRESSIVE PRINT-OUT TO MEMORYWRITER INLUDING GRAPHICS THAT APPEAR TO BE DONE BY SAME SETUP."
3702 PRINT '"FULL INSTRUCTIONS FOR BUILDING TAKE TWO AND A HALF PAGES & ARE VERY SPECIFIC."
3704 GO SUB VAL "7000"
3800 PRINT "S MENU": LET CH2=VAL "3800": LET SN=VAL "3850"
3802 PRINT "1. SAVE AN ARRAY";'"2. SAVE UDGs";'"3. SCAN AND PRINT PICTURES";'"4. SENIORNET--CONTINUED LEARNING";'"5. SINCUS SERENDIPITY"
3803 PRINT "6. SPURT SENTENCES ACROSS SCREEN";'"7. STICK IT";'"8. SWITCHABLE TAPE LOADS/SAVES"
3820 GO SUB VAL "6500"
3830 CLS : GO TO LN
3860 PRINT "TO SAVE AN ARRAY, SAVE""FILENAME"" DATA A() OR TO SAVE A STRING, DATA A$()."
3864 GO SUB VAL "7000"
3870 PRINT "TO SAVE UDGs, SAVE ""NAME""CODE USR ""A"",21*8."
3872 PRINT "IF YOU HAVE NOT CREATED THE MAX OF 21, THEN SUBSTITUTE THE # DONE. THE LOAD IS EXACTLY SAME AS ABOVE EXCEPT SPECIFY LOAD"
3874 GO SUB VAL "7000"
3880 PRINT "TO SCAN AND PRINT PICTURES, NEW PICTASCAN BY ORIN MCGILL, NOW ONLY FOR IBM BUT IT IS A SEPAR- ATE MACHINE AND CAN BE PRODUCED FOR TS2068 IF ENOUGH INTEREST ISEXPRESSED."
3882 PRINT '"PICTASCAN, COST $149.95, IS SOLDBY E. ARTHUR BROWN CO. TO FIT PRINTHEAD OF EPSON FX-80, FX-85,OR COMPATIBLE PRINTER."
3884 PRINT '"TO EXPRESS INTEREST PHONE ORRIN MCGILL AT HIS COMPANY, MIN-NY, (612)566-7094 OR EAB CO."
3887 GO SUB VAL "7000"
3890 PRINT '"TO SENIORNET, MEMBERSHIP IS $5 PER YEAR WITH NIGHTTIME USE OF DATABANK $8 PER HR. AS OF 3/87."
3892 PRINT '"TO JOIN SENIORNET, WRITE UNIVER-SITY OF SAN FRANCISCO, SCHOOL OFEDUCATION, SENIORNET PROJECT,SANFRANCISCO, CA, 94117, OR CALL 415J666-6505."
3894 PRINT '"MEMBERSHIP INCLUDES A NEWSLETTER"
3896 PRINT '"TO INTEREST OLDER RELATIVES IN NEW HOBBY, FREE CATALOG OF \iN- STITUTIONS OFFERING FOR MODEM- USERS INTRODUCTORY COURSES IN COMPUTERS: ELDERHOSTEL,80 BOYLE-STON ST., SUITE 400, BOSTON, MA."
3897 PRINT "ZIP CODE IS 02116."
3898 GO SUB VAL "7000"
3900 PRINT "TO SINCUS THE USE OF FREE ADS ASOFFERED BY CTM AND VARIOUS NEWS-LETTERS BROUGHT NEW MAIL SUB- SCRIBERS TO THEIR OWN NEWSLETTER...AT LEAST A DOZEN."
3902 PRINT '"SINCUS NEWS IS $8 PER 6 ISSUES & THEY GUARANTEE THAT ISSUES WILL COME OR UNUSED PORTION OF SUBSCRIPTION FEE WILL BE REFUNDED. THIS IS A GROUP WITH SOME DISTINGUISHED MEMBERS WHO ARE BONDING THE DELIVERY OF THE NEWSLETTER!"
3903 PRINT '"THIS IS A YEARLY SUBSCRIPTION FOR A NICE-SIZED BI-MONTHLY THATCATERS ESPECIALLY TO TS1000 & TS 2068."
3904 GO SUB VAL "9996"
3905 CLS : PRINT '"MAIL CHECK TO SINCUS, 1229 RHODES RD., JOHNSON CITY, NY 13790"
3906 PRINT '"HOW COME NONE OF US THOUGHT OF USING OUR FREE ADS TO TOUT OUR OWN TSUGS' PUBLICATIONS?!"
3907 PRINT ''" DO IT!"
3908 GO SUB VAL "7000"
3910 PRINT "TO SPURT A SENTENCE ACROSS SCREEN FOR ATTENTION,MINIMOD:"
3912 PRINT '"100 LET A$=""WATCHING MOVEMENT IS PRIMAL"""
3913 PRINT "110 PAUSE 240:GOSUB 200 (INTER- VENING LINES FOR ADDITIONAL SENTENCE MATERIAL)"
3914 PRINT "200 LET P=LEN A$:FOR I=1 TO P: LET Z=I+29:IF Z>=P THEN LET Z=P"
3915 PRINT "250 BEEP .005,22:PRINT AT 21,0; PAPER 0; INK 6;"" "";A$(I TO Z);"" """
3916 PRINT "260 PAUSE 10:NEXT I:RETURN"
3919 GO SUB VAL "7000"
3920 PRINT "TO STICK USE IN PLACE OF KEY MANIPULATION IN GAMES, MINIMOD:"
3922 PRINT '"1000 LET X=X-(STICK (1,1)=4)";'" -(STICK (1,1)=5)";'" -(STICK (1,1)=6)";'" +(STICK (1,1)=8)";'" +(STICK (1,1)=9)";'" +(STICK (1,1)=10)"
3923 PRINT "1010 LET Y=Y+(STICK (1,1)=1)";'" -(STICK (1,1)=2)";'" +(STICK (1,1)=5)";'" -(STICK (1,1)=6)";'" +(STICK (1,1)=9)";'" -(STICK (1,1)=10)"
3925 PRINT "1020 LET FIRE=STICK (2,1)"
3926 PRINT '"ABOVE WILL ENABLE LEFT JOYSTICK WITH FIRE BUTTON."
3929 GO SUB VAL "7000"
3930 PRINT "TO SWITCHABLE PERIPHERAL FOR TS TAPE LOADS AND SAVES, REQUEST KIT INFO FROM TSUG OF FORT WORTH(SEE T MENU);COST ABOUT $16 FROM RADIO SHACK PARTS EASILY ASSEMBLED FROM SPECS."
3932 PRINT '"THIS FRANK BOULDIN BLACK BOX IS CREDITED WITH ELIMINATING THE TUGGING ON TAPE RECORDER CONNEC-TIONS & THEREBY WEAR'N'TEAR. JUST FLIP A SWITCH! BOTH SAVE & LOAD FUNCTIONS ARE IMPROVED BY IMPEDANCE-MATCHING CIRCUITS INSIDE THE BOX."
3934 PRINT '"SEVERAL OTHER FEATURES LIKE LED FOR PROPER LOAD VOLUME AND A MINIMIKE FOR LISTENING IN ON LOAD."
3936 GO SUB VAL "7000"
4000 PRINT "T MENU": LET CH2=VAL "4000": LET SN=VAL "4050"
4002 PRINT '"1. TASMAN";'"2. TELELEARN";'"3. TIME IN SECONDS";'"4. TITLE TITILATINGLY";'"5. TOP OF SCREEN";'"6. TOPS & TIMEX OF PORTUGAL"
4005 PRINT "7. TSUG OF FORT WORTH"
4006 PRINT "8. TWENTY-SECOND & TWENTY-THIRD"
4020 GO SUB VAL "6500"
4030 CLS : GO TO LN
4060 PRINT "TO TASMAN, SPRINGFIELD HOUSE, HYDE TERRACE, LEEDS LS29LN, ENGLAND"
4065 GO SUB VAL "7000"
4070 PRINT "TELELEARN FROM AMERICAN OPEN UNI-VERSITY OF NEW YORK INSTITUTE OF TECHNOLOGY, CENTRAL ISLIP, NY11711--PHONE (516)348-3300 OR (800)222-6948. COURSES VIA TELE-NET, NO CLASSROOM TIME--ONLY BACHELORS LEVEL."
4071 PRINT '"MASTERS AVAILABLE FROM DISTANT LEARNING CENTER, C. U. OF WASH- INGTON, 16661 NORTHUP WAY, BELLEVUE, WA 98008. (800)426-5596"
4073 PRINT '"MS IN COMPUTER-BASED LEARNING---NOVA U. CENTER, 3301 COLLEGE AVE, FORT LAUDERDALE,FL 33314. (305)375-7047."
4075 GO SUB VAL "7000"
4080 PRINT "TO TIME IN SECONDS ELAPSED:"
4082 PRINT '"1 POKE 23672,0:POKE 23673,0";'"9999 PRINT INT (PEEK 23672+256*PEEK 23673+.5)*100/60.1145+.5)/100"
4085 GO SUB VAL "7000"
4090 PRINT "TO TITLE TITILATINGLY MEANS": PAUSE VAL "90": CLS : GO SUB VAL "7500"
4092 CLS : GO SUB VAL "8996"
4093 GO TO VAL "25"
4100 PRINT "TO TOP OF SCREEN WITH EDIT LINES:"
4102 PRINT '"POKE 26692,83; TO RESTORE: POKE 26692,75"
4105 GO SUB VAL "7000"
4110 PRINT "TO TOPS MAGAZINE FOR TIMEX-PORTU-GAL DISK SYSTEMS SOLD FORMERLY BY ZEBRA"
4112 PRINT '"C/O JOHN BYLANDER, 1203 N. OWENSST. #308, STILLWATER, MN 55082--$9 PER YR.-6 ISSUES"
4114 PRINT '"HOPES FOR THIS STAFF TO OFFER GROUP BUYS HAVE BEEN EXPRESSED."
4116 PRINT '"UNTIL THEY RALLY, TRY DIRECT BY WRITING ANTONIO GOMES, TIMEX PORTUGAL LTD., APARTADO 2, 2825 MONTE DA CAPARICA, ALMADA, PORT-UGAL. SECOND IN COMMAND, ALVAROOLIVERIA."
4118 PRINT "THE FORM OF ADDRESS (APARTADO) WOULD SEEM TO MEAN THIS IS A SALES AGENCY, RATHER THAN THE FACTORY."
4119 GO SUB VAL "7000"
4120 PRINT "TO TSUG OF FORT WORTH, PUBLISH- ING ""DATA EXPANSION"",AT $12 FOR 6 MONTHS."
4122 PRINT '"EDITOR, DAVID BAULCH, 4424 GEDDES AVE., FORT WORTH, TX, 76107. SOME CREATIVE MEMBERS LIKE CHARLES STELDING, AUTHOR OF""DESK- TOP PUBLISHING""."
4124 PRINT '"THIS GROUP IS VERY ACTIVE WITH BBS. TIMEX SUB-BOARD ON THE FWKUG MBBS & PSDE.(8/1/N)--2 AREA CODES--817 OR 214-540-4183,UP 24 HRS. FOR DOWNLOADS OF BOTHTS2068 AND SPECTRUM PROGRAMS."
4126 PRINT '"ADDITIONAL BOARD RUN BY TSUG MEMBER IS TYLER TIMEX BBS(8/1/N)AT 214-593-3331 FROM 6 PM WKDAYSAND 24 HRS. WEEKENDS. DOWNLOADS."
4128 GO SUB VAL "7000"
4130 PRINT "TO TWENTY-SECOND & TWENTY-THIRDLINE, NOT PSALM."
4132 PRINT '"NOT FOR INPUT BUT CAUSE YOU WANT TO! PRINT ON THE 2 BOTTOM-MOST LINES USUALLY IN THE BORDERAREA BY THIS COMMAND:"
4133 PRINT '" PRINT #1;AT 0,2;""YOUR MESSAGE"": PRINT #1;AT 1,5;""MORE OF SAME!"""
4134 PRINT '"IT WORKS WITHIN A PROGRAM BUT DONOT ASK A QUESTION WITH THIS SINCE PROGRAM WILL NOT WAIT."
4135 PRINT #1;AT 0,2;"TEMPORARY CONCESSION": PRINT #1;AT 1,5;"GIVE 'EM BACK!"
4138 PAUSE 470
4139 GO SUB VAL "7000"
4200 PRINT "U MENU": LET CH2=VAL "4200": LET SN=VAL "4250"
4202 PRINT '"1. UDG NO MORE";'"2. UPDATE GORILLA ROM";'"3. UNDERLINE WITH OVER"
4220 GO SUB VAL "6500"
4230 CLS : GO TO LN
4232 PRINT '"NOT FOR INPUT BUT CAUSE YOU WANT TO! PRINT ON THE 2 BOTTOM-MOST LINES USUALLY IN THE BORDERAREA BY THIS COMMAND:"
4260 PRINT "UDGs MAY BECOME OBSOLETE IF PICT-A-SCAN DEVELOPED FOR 2068; IT IS NOW READY FOR IBM PC AND CLONES FROM E. ARTHUR BROWN CO.--SEPARATE MACHINE FROM IBM-UNDER$150. WHY NOT FOR US?"
4264 GO SUB VAL "7000"
4270 PRINT "TO UPDATE GB EPROM FOR TRUE DES-CENDERS, REMOVE 5 SCREWS IN CASEAND LOOK FOR LARGEST CHIP ON CONTROL BOARD INSIDE."
4272 PRINT '"GORILLA BANANA & SEIKOSHA 100 ARE THE SAME PRINTER, BUT CHECK THAT LARGEST CHIP INSIDE FOR 4AE-0,3LE, OR 3AL-1. REPLACE- MENT EPROM (3.0) WAS $14.95 IN LATE 1986, SO WATCH FOR SPECIAL SINCE THIS PRODUCT HAS BEEN ON MARKET FOR OVER A YR."
4274 PRINT '"SEND A CHECK TO RMG ENTERPRISES,1419 1/2 7TH ST., OREGON CITY,OR97045. "
4279 GO SUB VAL "7000"
4280 PRINT "TO UNDERLINE MINI-MOD FROM TSUNAMI"
4281 PRINT '"25 EXAMPLE 1";'"30 PRINT AT 1,0;""NAME"";TAB 9; ""ADDRESS"";TAB 20;""CITY & STATE"""
4282 PRINT "40 PRINT AT 1,0;OVER 1;""_____""; TAB 9;""_______"";TAB 20;""______________"""
4283 PRINT '"THIS USE OF OVER IS RARELY MET BECAUSE MOST UNDERLINING OCCURS IN TEXT WHERE A WORD PROCESSOR EITHER HAS AN EASIER METHOD OR DOES NOT SUPPORT OVER 1. STILL,IT IS A NICE POINT."
4284 PRINT '"WHAT AND WHERE IS TSUNAMI?"
4289 GO SUB VAL "7000"
4400 PRINT "V MENU": LET CH2=VAL "4400": LET SN=VAL "4450"
4402 PRINT '"1. VAL N$ OR VAL$ N";'"2. VALUABLE MEMORY-SAVING";'"3. VIDCO"
4420 GO SUB VAL "6500"
4430 CLS : GO TO LN
4460 PRINT "VAL N$ IS VALUABLE; VAL$ N SEEMSNOT. AS LONG AS N$ CONTAINS NUMBERS,VAL N$ PERMITS COMPUTA- TION."
4462 PRINT "IF N$=""17""THEN PRINT 3*VAL N$ WILL GIVE 51, BUT PRINT VAL$ N IS REFUSED BY EDITOR."
4464 PRINT '"THE BEST EXPLANATIONS OF VAL$ SOUND LIKE DOUBLETALK."
4469 GO SUB VAL "7000"
4470 PRINT "TO VAL SAVINGS IN MEMORY, USE VAL ""N"" TO SAVE 3 BYTES EACH USE.";'"N CAN BE LINE NUMBER OR ANY NUMBER USED IN COMPUTATION. PROGRAM WILL SLOW A BIT SO USE ONLY WHEN NECESSARY."
4479 GO SUB VAL "7000"
4480 PRINT "TO VIDCO, AMSTRAD DEALER IN TEXAS, CURRENTLY PUSHING PC CLONE FROM AMSTRAD, BUT MAIN INTEREST TO 2068 USERS IS MAYBE SPECTRUM PLUS 3 WITH 3 IN. DISK DRIVE BUILT-IN MAY COME TO US. LOGICAL UPGRADE FOR DEVOUT TESSIE USERS."
4482 PRINT '"PHONE 1-800-237-3116 TO PUT IN GOOD WORD FOR THAT EVENTUALITY."
4484 PRINT "ALTERNATIVE AMSTRAD NUMBER IS PROBABLY US HOME OFFICE--1-800- 435-7729, BUT THIS NO. IS BUSY!"
4485 PRINT '"LATTER NUMBER GIVEN ME BY SEARS IN RESPONSE TO REQUEST FOR 3 IN.DRIVE-CLEANING DISK SINCE SEARS CARRYING AMSTRAD WP WITH 3 IN. DDS. NO CLUE AS OF 5/30/87 ON WHERE TO BUY THIS."
4489 GO SUB VAL "7000"
4600 PRINT "W MENU": LET CH2=VAL "4600": LET SN=VAL "4650"
4602 PRINT '"1. WEDNESDAY NIGHT FORUM";'"2. WHOLESALE +";'"3. WICKES TRACKBALL";'"4. WINKJET";'"5. WORKHORSE CHIP SCLD"
4620 GO SUB VAL "6500"
4630 CLS : GO TO LN
4660 PRINT "TO WEDNESDAY NIGHT FORUM FOR TS,PART OF COMPUTER CLUB FORUM SPONSORED BY FAMILY COMPUTING ONCOMPUSERVE."
4662 PRINT '"TYPE GO CLUB AT THE USER PROMPT.";'"TDM REPORTS LOTS OF ""DOWNLOADS""."
4664 PRINT '"THE LIVE CONFERENCE OCCURS ON WEDNESDAYS BUT CHECK OUT LOCAL TIME FOR YOUR OWN AREA;IT VARIESFROM 7:00 TO 10:00 PM."
4666 GO SUB VAL "7000"
4670 PRINT "TO WHOLESALE +, MAYBE LOTS LESS:"
4672 PRINT '"DAK INDUSTRIES INC., 8200 REMMETAVE., CANOGA PARK,CA 91304"
4674 PRINT '"WRITE FOR CATALOG OR PHONE 1-800-423-2866; THERE'S ALSO A CREDITCARD NUMBER AND FOR TECH INFO, CALL 1-800-272-3200."
4676 GO SUB VAL "7000"
4680 PRINT "WICKES TRACKBALL WAS MODIFIED BYZEBRA SYSTEMS TO ATTACH TO 2068,THUS VOIDING WARRANTY. NO PROBLEM;IT WORKS BUT NOT AS WELLAS A JOYSTICK FOR GAMES OR ESP. DRAWING. INEXPENSIVE CURE FOR TS DEPRIVATION SYNDROME."
4682 GO SUB VAL "7000"
4690 PRINT """WINKJET 1"" IS WIDJUP CO'S FIX FOR 2 UNSUPPORTED BUT EXCELLENT ORPHANS, WEDDING OLIVETTI'S PR2300 INKJET PRINTER TO 2068 WITH WINDOWS, HIGH ORDER GRAPHICCAPABILITY, ZOOM, ETC."
4692 PRINT "DAK MAY HAVE FEW PR2300s LEFT; PHONE 1-800-423-2866."
4694 PRINT '"WITH PROGRAM FROM CHARLES STEL- DING DESKTOP PUBLISHING WITH FINE GRAPHICS--SCREEN$ CAN BE PRINTED ANYWHERE ON PAGE."
4695 GO SUB VAL "7000"
4700 PRINT "WORKHORSE OF TS2068 IS DEEMED TOBE SCLD--NOT BEING MANUFACTURED IN US BUT AVAILABLE FROM PORTU- GUESE THRU CATS USER GROUP, C/O TOM BENT, 9016 FLICKER PL., COL-UMBIA, MD 21045. LIMITED TO 1 BATCH, SOME LEFT 3/87. PHONE (301) 730-7187"
4701 INK 9: PRINT "BEWARE--PORTUGUESE TC2068 TAKES PAL, NOT SAME AS TS2068 SCLD BUTCATS GOT RIGHT ONE(NCR# F808979)AFTER HASSLE."
4702 PRINT '"PAST NEWSLETTER EDITOR, MARK FISHER, HANDLED THIS TROUBLESOMEENDEAVOR BUT PRAISED TIMEX PORT-UGAL FOR FLEXIBILITY AND CON- CERN. OTHER TSUGS MAY WANT TO CONTACT FISHER RE WAY OF DEALINGWITH TIMEX PORTUGAL."
4703 GO SUB VAL "9996"
4704 CLS
4705 PRINT '"SO HOW TO KNOW SCLD IS AILING? IT HAS THESE KNOWN FUNCTIONS: SCREEN MAINTENANCE, KEYBOARD MONITORING, TAPE INPUT MONITOR- ING, TAPE OUTPUT AND BEEP, SOUND& JOYSTICK OPERATIONS, KEYBOARD INTERRUPT GENERATION, MEMORY FORHOME RAM, EXROM, THE DOCK,MEMORYREFRESH, AND MORE."
4707 PRINT '"W. PEDERSEN OF WIDJUP CO. HAS BEEN CIRCULATING WARNINGS OF FARSIMPLER AILMENTS THAT MIGHT SEEMTO BE THE SCLD."
4709 GO SUB VAL "7000"
4800 PRINT "X MENU": LET CH2=VAL "4800": LET SN=VAL "4850"
4801 PRINT '"1. XFER PATCH FOR PRO/FILE";'"2. XMODEM PROTOCOL"
4802 PRINT "3. XOR"
4804 PRINT "4. X OR Y:PLOT OR NOT"
4820 GO SUB VAL "6500"
4830 CLS : GO TO LN
4860 PRINT '"TO XFER DATA LESS EMPTY SPACES IN PROFILE, AS DESCRIBED IN LISTNEWSLETTER, CHECK WITH MYLES COHEN,10 E 95TH ST, APT 6, NYNY 10128--VERY BRIEF PATCH FOR DEFLATEDATA OR WRITE LIST FOR BACK ISS."
4862 PRINT '"IF YOU NEVER WAIT, PHONE MYLES AT 212-427-0179."
4864 GO SUB VAL "7000"
4870 PRINT "XMODEM = TS2050, SOFTWARE LIKE ""CASBOARD"" PERMITS TELECOM WITH OTHER COMPUTERS USING OTHER PROTOCOLS."
4872 PRINT '"CHECK VOL.1 FOR ISTUG AVAILABIL-ITY OF THEIR X-MODEM PROGRAM YOUCAN SAMPLE BEFORE BUYING."
4874 PRINT '"SEE CATS TAPE LIBRARY FOR ""TINY-BOARD"" FREE, BUT LACK OF DOCU- MENTATION MAY BE PROBLEM UNLESS YOU ARE ALREADY FAIRLY KNOWING ABOUT BOARD FUNCTIONS."
4878 GO SUB VAL "7000"
4880 PRINT "XOR=EXCLUSIVE OR;EITHER A OR B CAN BE TRUE BUT NOT BOTH."
4882 PRINT "SEE MAZUR, INTERMEDIATE/ADVANCEDGUIDE FOR TRUTH TABLES,pp. 20-24"
4885 GO SUB VAL "7000"
4890 PRINT "PLOT BASED ON 1ST QUADRANT OF CARTESIAN X-Y AXIS;0,0 POSITION IS THUS LEFT LOWER CORNER UNLIKEPRINT POSITION AT UPPER RIGHT CORNER FOR 0,0."
4892 PRINT '"MAX FOR X=255;MAX FOR Y=175 SO 128 FOR X & 87 FOR Y MAKES BEST MID-POINT ON SCREEN."
4894 PRINT '"ONE CHARACTER OCCUPIES A SQUARE 8 BY 8 PIXELS; THAT'S ONLY 64 OFTOTAL 45,056."
4896 PRINT ''"MINIMOD FOR QUICK SCREEN FILL:";'"10 FOR Y=0 TO 175";'"15 PLOT 0,Y";'"20 DRAW 255,0";'"25 NEXT Y"
4897 GO SUB VAL "9996": CLS
4898 PRINT '"MINIMOD TO WINDOW:";'"10 FOR Y=62 TO 122";'"15 PLOT 62,Y";'"20 DRAW 128,0";'"25 NEXT Y";''" OF COURSE, ADJUST TO TASTE."
4899 GO SUB VAL "7000"
5000 PRINT "Y MENU": LET CH2=VAL "5000": LET SN=VAL "5050"
5002 PRINT '"1. YOUR MAIL ORDER RIGHTS"
5020 GO SUB VAL "6500"
5030 CLS : GO TO LN
5060 PRINT "FROM THE POST OFFICE BULLETIN BYTHE SAME NAME:"
5062 PRINT "POSTAL REGULATIONS REQUIRE THAT ANY ITEM ORDERED THROUGH THE MAIL BE ELIGIBLE FOR A FULL REFUND, FOR ANY REASON, IF THE ITEM IS RETURNED IN THE SAME CONDITION AS SHIPPED, FOR A PERIOD OF 10 DAYS."
5063 PRINT "OTHER REGULATIONS FALL UNDER FTCALSO. WRITE FEDERAL TRADE COMMISSION, PENN. AVE AT SIXTH ST NW, WASHINGTON, DC 20580. FOR EXAM-PLE:"
5064 PRINT '"IF A COMPANY CANNOT SHIP PRODUCTWITHIN 31 DAYS AFTER RECEIVING AN ORDER, THEY MUST NOTIFY BUYEROF DELAY AND OFFER TO CANCEL & REFUND, IF CUSTOMER SO DESIRES."
5065 GO SUB VAL "9996"
5066 CLS : PRINT '"UNLESS ADS SAY 4-6 WKS. SHIPPINGTIME. READ BEFORE YOU WRITE."
5068 PRINT '"CREDIT CARDS ARE USEFUL BECAUSE YOU CAN NOTIFY ISSUER NOT TO PAYA DISPUTED BILL"
5069 PRINT ''"DESPITE DISCLAIMERS BY SOME SOFTWARE COs, MERCHANTABILITY LAW EXISTS IN NEARLY EVERY STATE=A PRODUCT MUST DO WHAT IT WAS DESIGNED TO DO.": GO SUB VAL "7000"
5200 PRINT "Z MENU": LET CH2=VAL "5200": LET SN=VAL "5250"
5202 PRINT '"1. ZEBRATE ""PRO/FILE""";'"2. ZEBRATE ""SPRITES 2068"""
5204 PRINT "3. ZEBRATE ""TIMACHINE""";'"4. Z88"
5205 PRINT "5. ZERO LINE NUMBER"
5220 GO SUB VAL "6500"
5230 CLS : GO TO LN
5260 PRINT "TO ZEBRA DRIVE WITH ""PRO/FILE"":"
5262 PRINT "REPLACE LOADER PROGRAM WITH LINE 9995:"
5264 PRINT '"9995 BORDER 0:PAPER 0: CLS: CLEAR 63487: LOAD *""P/F.COD"" CODE"
5266 PRINT '"YOU WILL HAVE ALREADY DONE SAVE *""P/F.COD"" CODE 63488,2046: SAVE*""PRO/FILE""LINE 9995 (NOT LINE 9996)"
5268 PRINT '"LINES 107 AND 5510 MUST HAVE * BEFORE LOAD AND SAVE COMMANDS."
5269 GO SUB VAL "7000"
5270 PRINT "TO ZEBRA DRIVE WITH ""SPRITES 2068"":"
5272 PRINT '"WHEN MENU APPEARS ON SCREEN, ENTER <STOP> & HOLD DOWN <BREAK>& <CAPS SHIFT>. THERE'S AN ON ERR RESET AT LINE 9997 SO BE PUSHY WITH BREAK EFFORT."
5273 PRINT '"BEFORE SAVING ADD * TO LOAD OR SAVE AT LINES 5 AND 110. YOU MAY WANT TO REMOVE VERIFICATION PROCEDURES."
5274 PRINT '"SAVE * ""DEMO.COD""CODE 60160,4487:SAVE*""SPRITES"" LINE 2.";'"THIS ORDER IS CRITICAL SINCE PROG CRASHES ON LOAD IN MORE USUAL SEQUENCE--PROG, THEN CODE.LOAD SAME ORDER: CODE, THEN PROGRAM."
5275 GO SUB VAL "9996"
5276 CLS : PRINT '"MAKING A DIRECTORY WITH LOADER THAT WON'T FORGET THIS ORDER & A SHORTENED VERSION FOR PRACTICEWITH ITS OWN CODE IS ONE GOOD IDEA--TOTAL OF 5 PROGS COUNTING 2 CODES, 2 BASICS, AND SHORT LOADER."
5277 PRINT '"AT LINES 9998 AND 9999, A READY-MADE DELETION AND SAVE COMMAND (ADD * TWICE IN LINE 9999) WILL GIVE THE PRACTICE THAT PROGRAM AND MANUAL SUGGEST."
5278 PRINT '"FOR M/C DEVOTEES ""MCSPRITES"" MAKES A 6TH PROGRAM FOR DIR."
5279 GO SUB VAL "7000"
5280 PRINT "TO ZEBRATE ""TIMACHINE"" PER NOVELSOFT:"
5282 PRINT "SAVING TO DISK IS NO PROBLEM, BUT ZEBRA USES THE * SAME AS THECOMPILER SO NEW DIRECTIONS ARE:"
5284 PRINT '"*c IS INVOKED BY TYPING RANDOM- IZE USR 37436:*t WILL NOT WORK;*x INVOKED BY RANDOMIZE USR 37476; ERASE BY RAND USR 37536; *d BY RAND USR 37460;*e BY RAND USR 37468; NEW WILL NO LONGER BETRAPPED."
5286 PRINT '"IS THE LOADING TIME OF DISK SO MUCH BETTER THAN CASSETTE? YES, BUT EASE IS SACRIFICED A BIT."
5288 GO SUB VAL "7000"
5290 PRINT "TO Z88, NEWEST SINCLAIR MACHINE,GOES DISTINCTION OF BEING FIRST CAMBRIDGE COMPUTER SINCE SALE OFSINCLAIR NAME TO AMSTRAD."
5292 PRINT '"CONFUSING, YES. Z88 HAS NO MICRODRIVES BUT THE NEW CART- RIDGE SETUP FOR RAMS & EPROMS OF32K & 128K ARE STILL UNKNOWNS & SO DIFFERENT FROM DISK DRIVES. SEE ELECTRONIC ENGINEERING TIMESFOR 2/23/87."
5294 GO SUB VAL "7000"
5300 PRINT "TO ZERO LINE NUMBER, POKE 26711,0. POKE 26711,1 TO CHANGE LINE OTO 1."
5305 GO SUB VAL "7000"
5990 CLS
5991 PRINT "SO ENDETH VOLUME 2.": INPUT "LOAD VOLUME 1 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-A-M"
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"
7500 INK 9: 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
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-N-Z" LINE 1