Greeting

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