Greeting message from the Long Island Timex Sinclair Group’s July 1985 meeting. Will say words if Zebra Talker is attached.
Appears on
Capital Area Timex Sinclair User Groupโs Library Tape.
Gallery
Source Code
8 BORDER 1: PAPER 6: INK 9: CLEAR 31980: PRINT AT 10,9;"STILL LOADING" 10 LOAD ""CODE 31983: LOAD ""CODE 59000: LOAD ""CODE 11 RANDOMIZE USR 59206 12 CLS : FOR b=3 TO 17: PRINT AT b,b;"STOP THE TAPE": NEXT b 14 FOR a=0 TO 1: BEEP .65,14: BEEP .65,16: BEEP .65,12: BEEP .65,0: BEEP 1.2,7: PAUSE 20: NEXT a 15 CLS : POKE 23609,30 16 POKE 23607,223 18 RESTORE 78: LET q$="GREETINGS from": GO SUB 70: PRINT #4;"GREETINGS FROM": RESTORE 79: LET q$="L.I.S.T": GO SUB 70: PRINT #4;"LIST": RESTORE 80: LET q$="THE LONG ISLAND": GO SUB 70: PRINT #4;"THE LONG ISLAND": RESTORE 81: LET q$="SINCLAIR TIMEX": GO SUB 70: RESTORE 83: PRINT #4;"SINCLAIR TIMEX": LET q$="GROUP": GO SUB 70: PRINT #4;"GROUP" 20 PAUSE 150: CLS : RESTORE 78: LET q$="AND": GO SUB 70: PRINT #4;"AND": RESTORE 79: LET q$="WELCOME": GO SUB 70: RESTORE 80: LET q$="TO THE": GO SUB 70: RESTORE 81: LET q$="JULY 1985": GO SUB 70: RESTORE 83: LET q$="MEETING": GO SUB 70 21 PRINT #4;"WELCOME TO THUGH JULIGH MEETING" 45 PAUSE 150: RESTORE 78: LET q$="THIS DEMO IS": GO SUB 70: RESTORE 79: LET q$="BROUGHT TO YOU": GO SUB 70: RESTORE 80: LET q$="THANKS TO": GO SUB 70: RESTORE 81: LET Q$="SPECTRUM ": GO SUB 70: RESTORE 83: LET q$="COMPUTING": GO SUB 70 46 PRINT #4;"THIS DEMo IS BROUGHT TO YOU THANKS TO SPECTRUM COMPUTING " 60 PAUSE 150: CLS : RESTORE 78: LET q$="AND": GO SUB 70: RESTORE 79: LET q$="ZEBRA-TALKER": GO SUB 70: RESTORE 80: LET q$=" ": GO SUB 70: RESTORE 81: LET Q$="NOW TRY ": GO SUB 70: RESTORE 83: LET q$="YOUR LUCK.": GO SUB 70 61 PRINT #4;"AND ZEBRA TALKER NOW TRY YOUR LUCK" 63 PAUSE 150: CLS : RESTORE 78: INPUT q$: GO SUB 70: PRINT #4;q$: RESTORE 79: INPUT q$: GO SUB 70: RESTORE 80: PRINT #4;q$: INPUT q$: GO SUB 70: PRINT #4;q$: RESTORE 81: INPUT q$: GO SUB 70: RESTORE 83: PRINT #4;q$: LET q$="Bye-Bye": GO SUB 70: PRINT #4;q$ 65 PAUSE 150: CLS : RESTORE 78: LET q$="S/C PROVIDED": GO SUB 70: RESTORE 79: LET q$="FOLLOWING": GO SUB 70: RESTORE 80: LET q$="PROGRAM FOR": GO SUB 70: RESTORE 81: LET q$="THOSE WHO ENJOY": GO SUB 70: RESTORE 83: LET q$="SPECTRO-GRAPHICS": GO SUB 70 66 PAUSE 150: CLS : RESTORE 79: LET Q$=" ## NEXT ## ": GO SUB 70: RESTORE 80: LET Q$=" SPIRO-GRAPHICS ": GO SUB 70 67 PAUSE 160: RANDOMIZE USR 31983 68 CLS : GO TO 180 70 FOR n=1 TO 5: READ a: IF n=1 THEN LET b=a 71 POKE 32224+n,a: NEXT n 72 RANDOMIZE USR 32209 73 LET c=PEEK 32005 74 FOR n=1 TO LEN q$ 75 POKE 32005,(b*(n-1)+c): POKE 32000,CODE q$(n) 76 RANDOMIZE USR 32020: BEEP .01,n*4: NEXT n: RETURN 78 DATA 2,2,196,2,0 79 DATA 2,2,79,6,0 80 DATA 2,2,199,10,0 81 DATA 2,2,180,14,0 83 DATA 2,2,244,18,0 180 LET X=202.5: GO SUB 8090: RESTORE 80: LET q$=" AMAZING ISNT IT": GO SUB 70: PAUSE 100 182 CLS : GO SUB 8050 190 RESTORE 80: LET q$="--AGAIN? .Y/N.--": GO SUB 70: PAUSE 0 195 IF INKEY$="Y" OR INKEY$="y" THEN GO TO 182 200 IF INKEY$="N" OR INKEY$="n" THEN GO TO 900 205 RESTORE 80: LET q$=" PRESS 'Y or N'": GO SUB 70: PAUSE 50: GO TO 190 910 PRINT #0;" PRESS A KEY": PAUSE 0 930 CLS : PRINT INVERSE 1;AT 8,7;"'R' TO READ AGAIN";AT 16,6;"'L'TO LOAD NEXT ITEM": PAUSE 0 940 IF INKEY$="R" OR INKEY$="r" THEN CLS : GO TO 18 945 IF INKEY$<>"l" AND INKEY$<>"L" THEN GO TO 930 950 PAPER 7: INK 9: BORDER 7: CLEAR 32599: FOR b=2 TO 18: PRINT AT b,b;"BYE FOR NOW.": PAUSE 1: NEXT b: PRINT #1;" START TAPE TO LOAD NEXT PROG.": LOAD "" 1000 LET wipe=PEEK 23637+256*PEEK 23638+5: RANDOMIZE USR wipe: RETURN 1001 REM >!pY CLS v OR w+ CLS w CLS STR$ PRINT >!LN (!>EXP ( LET OR w# CLS wPI GO SUB R RANDOMIZE STR$ PRINT >EXP ( LET TO LET PRINT NEW OPEN # RETURN LET AND RETURN H ASN STEP kNOT ?........... 1002 RETURN 7000 INPUT Q$: PRINT #4;Q$ 7005 GO TO 7000 8050 REM SPIRO-GRAPHICS ROUTINE: BORDER 0: PAPER 0: INK INT (RND*7) 8060 PRINT INK 2;AT 5,0;"TYPE AND ENTER ONE OF THE FOLLOWING NUMBERS.";AT 10,0;"90 90.5 160 181 193.8 194 195 196 197 198 200 202.5 206 210 212 216 225 240 270 271 280 288 300 310 330 350 495 500 600 601 629 631 648 662 668 712 714 716 710 726 730 780 792 810 812 840 " 8070 INPUT "MAGIC NUMBER: ";x 8080 CLS : PRINT INVERSE 1;"NO SELECTED.:";x 8085 IF x=662 THEN PRINT #1;" LANCASHIRE ROSE" 8090 PLOT 128,88: FOR y=0 TO 40800 STEP x 9000 LET r=0.12*(y/180*PI) 9010 BEEP .006,x/16 9020 DRAW OVER 1;128+r*COS (y/180*PI)-PEEK 23677,88+r*SIN (y/180*PI)-PEEK 23678 9030 NEXT y 9040 PAUSE 250 9045 REM eliminate the REM in 9050 if you have a spectrum 9050 REM GO SUB 1000 9060 RETURN 9080 STOP 9999 SAVE "GREETING" LINE 8: SAVE "BIG"CODE 31983,784: SAVE "ZT"CODE 59000,6200: SAVE "sf"CODE 57344,768