Message Center – Timex/Sinclair Computers

S & S Company, The

Products: Message Center

Date: 198X

Type: Cassette

Platform(s): TS 1000

Billboard, Horizontal Scroll, Verti-Scroll.

Content

Appears On

Related Products

Message Center

Three message screen scrolling routines: Billboard, Horizontal Scroll, Verti-Scroll.

Image Gallery

Source Code

10 REM \C1 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56665 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"F Skip to content The Authoritative Website The Authoritative Website Search Computers Sinclair Sinclair ZX80 Articles Books Hardware Software Sinclair ZX81 Articles Sinclair QL Hardware Software Cambridge Z88 Timex Timex/Sinclair 1000 Articles Books Hardware Software Downloadable Software Timex/Sinclair 1500 Articles Timex/Sinclair 2068 Articles Books Hardware Reference and Technical Information Software Downloadable Software Other MicroAce Hardware Articles Software Books Lambda 8300 Downloadable Software ZX81/TS-1000 TS-2068 Publications Books Periodicals Documents Companies Sinclair Timex View All Products Hardware Software Accessories & Miscellaneous Community Online User Group User Groups People Events About What’s New? How You Can Help Shop Privacy Policy Blog Log in Sign upSign up Home » Computer Media » Message Center Search Computers Sinclair Sinclair ZX80 Articles Books Hardware Software Sinclair ZX81 Articles Sinclair QL Hardware Software Cambridge Z88 Timex Timex/Sinclair 1000 Articles Books Hardware Software Downloadable Software Timex/Sinclair 1500 Articles Timex/Sinclair 2068 Articles Books Hardware Reference and Technical Information Software Downloadable Software Other MicroAce Hardware Articles Software Books Lambda 8300 Downloadable Software ZX81/TS-1000 TS-2068 Publications Books Periodicals Documents Companies Sinclair Timex View All Products Hardware Software Accessories & Miscellaneous Community Online User Group User Groups People Events About What’s New? How You Can Help Shop Privacy Policy Blog Message Center S & S Company, The Products: Message Center Date: 198X Type: Cassette Platform(s): TS 1000 Billboard, Horizontal Scroll, Verti-Scroll. Content Appears On Related Products Message Center Three message screen scrolling routines: Billboard, Horizontal Scroll, Verti-Scroll. Related Articles Related Content Image Gallery Source Code 10 REM \C1\1F\2A\82\40\26\00\29\29\29\11\01\1E\19\22\82\40\3E\7F\32\AF\40\06\08\C5\2A\0C\40\11\A4\00\19\ED\5B\82\40\06\06\C5\01\21\00\00\1A\CB\67\28\07\36\80\09\36\00\18\05\36\00\09\36\00\13\C1\10\E6\3A\AF\40\D6\08\32\AF\40\CD\D1\40\C1\10\CA\C9\2A\0C\40\06\16\C5\23\54\5D\23\01\1F\00\ED\B0\C1\10\F3\C9 11 REM % % %B%I%L%L%-%B%O%A%R%D% % % %B%Y% %G%E%N%E% %B%U%Z%A% % % % % % % %O%F% % % % % % %S%Y%N%C%H%R%O%-%S%E%T%T%E% 20 LET CS=0 30 PRINT AT 10,8;"SPEED (0 TO 9)?" 40 LET S$=INKEY$ 45 IF CODE S$=43 THEN LET CS=1 50 IF CODE S$<28 OR CODE S$>37 THEN GOTO 40 60 LET S=30-3*VAL S$ 65 LET A$=A$+" " 70 CLS 100 FOR I=1 TO LEN A$ 110 POKE 16514,CODE A$(I) 120 LET X=USR 16516 122 IF INKEY$="C" THEN LET CS=0 125 IF CS=1 THEN NEXT I 130 PRINT AT 1,2;" % %B%I%L%L%-%B%O%A%R%D% ";AT 20,0;" % %F%R%O%M% %S%Y%N%C%H%R%O%-%S%E%T%T%E% " 150 FOR N=1 TO S 160 NEXT N 162 LET S$=INKEY$ 163 IF S$="C" THEN GOTO 180 164 IF S$="S" THEN GOTO 400 165 IF S$="L" THEN GOTO 500 166 IF S$="F" THEN GOTO 600 167 IF CODE S$=225 THEN GOTO 1000 168 IF CODE S$>27 AND CODE S$<38 THEN GOTO 300 170 IF S$<>"" THEN GOTO 200 180 NEXT I 190 GOTO 100 200 CLS 210 PRINT AT 20,0;"ENTER YOUR MESSAGE" 220 INPUT A$ 240 GOTO 30 300 LET S=30-3*VAL S$ 310 GOTO 180 400 POKE 16556,0 410 POKE 16566,0 420 GOTO 180 500 POKE 16556,9 510 POKE 16566,128 520 GOTO 180 600 LET CS=1 610 GOTO 180 1000 CLS 1010 PRINT AT 10,0;"INPUT FILE NAME, PREPARE THE RECORDER AND PRESS ENTER :::" 1020 INPUT Z$ 1030 CLS 1040 SAVE Z$ 1050 GOTO 70 ------ 1000 PRINT AT 10,0;"INPUT YOUR MESSAGE :::" 1010 INPUT A$ 1020 PRINT AT 12,0;"FOR LEFT TO RIGHT PRESS <L>","FOR RIGHT TO LFT PRESS <R>" 1030 PAUSE 40000 1040 LET C$=INKEY$ 1060 DIM B$(32) 1070 LET A$=B$+A$ 1080 CLS 1090 PRINT AT 10,0;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':\: \ :\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:";AT 2,9;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\':";AT 3,9;"\: SYNCHRO-SETTE\ :";AT 4,9;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\.:";AT 19,7;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':";AT 20,7;"\: SCROLLING PROGRAM\ :";AT 21,7;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:" 2000 PRINT AT 11,1;A$( TO 30) 2010 IF INKEY$="" THEN GOTO 2070 2020 IF INKEY$="S" THEN GOTO 4000 2030 IF INKEY$="P" THEN GOSUB 5000 2040 IF INKEY$="L" THEN LET C$="L" 2050 IF INKEY$="R" THEN LET C$="R" 2060 IF INKEY$="M" THEN GOTO 6000 2070 GOSUB 2500 2080 GOTO 2000 2500 IF C$="L" THEN LET A$=A$(2 TO LEN A$)+A$(1) 2510 IF C$="R" THEN LET A$=A$(LEN A$)+A$( TO LEN A$-1) 2520 RETURN 4000 CLS 4010 PRINT AT 16,0;"ENTER NAME OF FILE TO BE SAVED AND THEN PRESS ENTER ::" 4020 INPUT F$ 4030 PRINT AT 16,0;B$+B$ 4040 SAVE F$ 4050 GOTO 1080 5000 IF INKEY$<>"R" THEN GOTO 5000 5010 RETURN 6000 CLS 6010 RUN ----- 10 DIM B$(22) 20 CLS 30 PRINT AT 10,0;"INPUT YOUR MESSAGE :::" 40 INPUT A$ 50 LET C$=" SYNCHRO-SETTE" 60 LET D$=" VERTI-SCROLL " 70 LET A$=A$+B$ 100 CLS 110 LET N=13 120 FOR I=21 TO 0 STEP -1 130 PRINT AT I,4;C$(I+1);AT I,N;"% % ";AT I,27;D$(I+1) 140 NEXT I 200 FOR N=1 TO LEN A$ 210 PRINT AT 21,13;"% ";A$(N);" % " 220 IF INKEY$="" THEN GOTO 270 230 IF INKEY$="S" THEN GOTO 1000 240 IF INKEY$="P" THEN GOSUB 2000 250 IF INKEY$="M" THEN RUN 270 SCROLL 280 NEXT N 290 GOTO 200 1000 CLS 1010 PRINT AT 10,0;"INPUT THE FILE NAME, PREPARE THERECORDER AND PRESS ENTER :::" 1020 INPUT Z$ 1030 CLS 1040 SAVE Z$ 1050 GOTO 100 2000 PAUSE 40000 2010 IF INKEY$<>"R" THEN GOTO 2000 2020 RETURN Tags Archived Media, Downloadable, S & S Company, TS 1000 People No people associated with this content. Recent Posts Timex at K-MartApril 17, 2025 Exploring the Legacy of Timex Computer Corporation: Insights from Danny RossOctober 24, 2024 Real World Uses: Timex/Sinclair 2068May 16, 2024 “Made In Spain” ZX81 and TS1000 PCBsFebruary 23, 2024 How Did TS 2068 Users Make a Spectrum ROM?September 9, 2023 Support This Site Subscribe * indicates required Email Address * First Name Last Name Interests Send me your newsletter Send me Zoom meeting announcements /* real people should not fill this in and expect good things - do not remove this or risk form bot signups */ This work is licensed under a Creative Commons Attribution-ShareAlike 4.0 International License. Scroll to Top A Skip to content The Authoritative Website The Authoritative Website Search Computers Sinclair Sinclair ZX80 Articles Books Hardware Software Sinclair ZX81 Articles Sinclair QL Hardware Software Cambridge Z88 Timex Timex/Sinclair 1000 Articles Books Hardware Software Downloadable Software Timex/Sinclair 1500 Articles Timex/Sinclair 2068 Articles Books Hardware Reference and Technical Information Software Downloadable Software Other MicroAce Hardware Articles Software Books Lambda 8300 Downloadable Software ZX81/TS-1000 TS-2068 Publications Books Periodicals Documents Companies Sinclair Timex View All Products Hardware Software Accessories & Miscellaneous Community Online User Group User Groups People Events About What’s New? How You Can Help Shop Privacy Policy Blog Log in Sign upSign up Home » Computer Media » Message Center Search Computers Sinclair Sinclair ZX80 Articles Books Hardware Software Sinclair ZX81 Articles Sinclair QL Hardware Software Cambridge Z88 Timex Timex/Sinclair 1000 Articles Books Hardware Software Downloadable Software Timex/Sinclair 1500 Articles Timex/Sinclair 2068 Articles Books Hardware Reference and Technical Information Software Downloadable Software Other MicroAce Hardware Articles Software Books Lambda 8300 Downloadable Software ZX81/TS-1000 TS-2068 Publications Books Periodicals Documents Companies Sinclair Timex View All Products Hardware Software Accessories & Miscellaneous Community Online User Group User Groups People Events About What’s New? How You Can Help Shop Privacy Policy Blog Message Center S & S Company, The Products: Message Center Date: 198X Type: Cassette Platform(s): TS 1000 Billboard, Horizontal Scroll, Verti-Scroll. Content Appears On Related Products Message Center Three message screen scrolling routines: Billboard, Horizontal Scroll, Verti-Scroll. Related Articles Related Content Image Gallery Source Code 10 REM \C1\1F\2A\82\40\26\00\29\29\29\11\01\1E\19\22\82\40\3E\7F\32\AF\40\06\08\C5\2A\0C\40\11\A4\00\19\ED\5B\82\40\06\06\C5\01\21\00\00\1A\CB\67\28\07\36\80\09\36\00\18\05\36\00\09\36\00\13\C1\10\E6\3A\AF\40\D6\08\32\AF\40\CD\D1\40\C1\10\CA\C9\2A\0C\40\06\16\C5\23\54\5D\23\01\1F\00\ED\B0\C1\10\F3\C9 11 REM % % %B%I%L%L%-%B%O%A%R%D% % % %B%Y% %G%E%N%E% %B%U%Z%A% % % % % % % %O%F% % % % % % %S%Y%N%C%H%R%O%-%S%E%T%T%E% 20 LET CS=0 30 PRINT AT 10,8;"SPEED (0 TO 9)?" 40 LET S$=INKEY$ 45 IF CODE S$=43 THEN LET CS=1 50 IF CODE S$<28 OR CODE S$>37 THEN GOTO 40 60 LET S=30-3*VAL S$ 65 LET A$=A$+" " 70 CLS 100 FOR I=1 TO LEN A$ 110 POKE 16514,CODE A$(I) 120 LET X=USR 16516 122 IF INKEY$="C" THEN LET CS=0 125 IF CS=1 THEN NEXT I 130 PRINT AT 1,2;" % %B%I%L%L%-%B%O%A%R%D% ";AT 20,0;" % %F%R%O%M% %S%Y%N%C%H%R%O%-%S%E%T%T%E% " 150 FOR N=1 TO S 160 NEXT N 162 LET S$=INKEY$ 163 IF S$="C" THEN GOTO 180 164 IF S$="S" THEN GOTO 400 165 IF S$="L" THEN GOTO 500 166 IF S$="F" THEN GOTO 600 167 IF CODE S$=225 THEN GOTO 1000 168 IF CODE S$>27 AND CODE S$<38 THEN GOTO 300 170 IF S$<>"" THEN GOTO 200 180 NEXT I 190 GOTO 100 200 CLS 210 PRINT AT 20,0;"ENTER YOUR MESSAGE" 220 INPUT A$ 240 GOTO 30 300 LET S=30-3*VAL S$ 310 GOTO 180 400 POKE 16556,0 410 POKE 16566,0 420 GOTO 180 500 POKE 16556,9 510 POKE 16566,128 520 GOTO 180 600 LET CS=1 610 GOTO 180 1000 CLS 1010 PRINT AT 10,0;"INPUT FILE NAME, PREPARE THE RECORDER AND PRESS ENTER :::" 1020 INPUT Z$ 1030 CLS 1040 SAVE Z$ 1050 GOTO 70 ------ 1000 PRINT AT 10,0;"INPUT YOUR MESSAGE :::" 1010 INPUT A$ 1020 PRINT AT 12,0;"FOR LEFT TO RIGHT PRESS <L>","FOR RIGHT TO LFT PRESS <R>" 1030 PAUSE 40000 1040 LET C$=INKEY$ 1060 DIM B$(32) 1070 LET A$=B$+A$ 1080 CLS 1090 PRINT AT 10,0;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':\: \ :\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:";AT 2,9;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\':";AT 3,9;"\: SYNCHRO-SETTE\ :";AT 4,9;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\.:";AT 19,7;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':";AT 20,7;"\: SCROLLING PROGRAM\ :";AT 21,7;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:" 2000 PRINT AT 11,1;A$( TO 30) 2010 IF INKEY$="" THEN GOTO 2070 2020 IF INKEY$="S" THEN GOTO 4000 2030 IF INKEY$="P" THEN GOSUB 5000 2040 IF INKEY$="L" THEN LET C$="L" 2050 IF INKEY$="R" THEN LET C$="R" 2060 IF INKEY$="M" THEN GOTO 6000 2070 GOSUB 2500 2080 GOTO 2000 2500 IF C$="L" THEN LET A$=A$(2 TO LEN A$)+A$(1) 2510 IF C$="R" THEN LET A$=A$(LEN A$)+A$( TO LEN A$-1) 2520 RETURN 4000 CLS 4010 PRINT AT 16,0;"ENTER NAME OF FILE TO BE SAVED AND THEN PRESS ENTER ::" 4020 INPUT F$ 4030 PRINT AT 16,0;B$+B$ 4040 SAVE F$ 4050 GOTO 1080 5000 IF INKEY$<>"R" THEN GOTO 5000 5010 RETURN 6000 CLS 6010 RUN ----- 10 DIM B$(22) 20 CLS 30 PRINT AT 10,0;"INPUT YOUR MESSAGE :::" 40 INPUT A$ 50 LET C$=" SYNCHRO-SETTE" 60 LET D$=" VERTI-SCROLL " 70 LET A$=A$+B$ 100 CLS 110 LET N=13 120 FOR I=21 TO 0 STEP -1 130 PRINT AT I,4;C$(I+1);AT I,N;"% % ";AT I,27;D$(I+1) 140 NEXT I 200 FOR N=1 TO LEN A$ 210 PRINT AT 21,13;"% ";A$(N);" % " 220 IF INKEY$="" THEN GOTO 270 230 IF INKEY$="S" THEN GOTO 1000 240 IF INKEY$="P" THEN GOSUB 2000 250 IF INKEY$="M" THEN RUN 270 SCROLL 280 NEXT N 290 GOTO 200 1000 CLS 1010 PRINT AT 10,0;"INPUT THE FILE NAME, PREPARE THERECORDER AND PRESS ENTER :::" 1020 INPUT Z$ 1030 CLS 1040 SAVE Z$ 1050 GOTO 100 2000 PAUSE 40000 2010 IF INKEY$<>"R" THEN GOTO 2000 2020 RETURN Tags Archived Media, Downloadable, S & S Company, TS 1000 People No people associated with this content. Recent Posts Timex at K-MartApril 17, 2025 Exploring the Legacy of Timex Computer Corporation: Insights from Danny RossOctober 24, 2024 Real World Uses: Timex/Sinclair 2068May 16, 2024 “Made In Spain” ZX81 and TS1000 PCBsFebruary 23, 2024 How Did TS 2068 Users Make a Spectrum ROM?September 9, 2023 Support This Site Subscribe * indicates required Email Address * First Name Last Name Interests Send me your newsletter Send me Zoom meeting announcements /* real people should not fill this in and expect good things - do not remove this or risk form bot signups */ This work is licensed under a Creative Commons Attribution-ShareAlike 4.0 International License. Scroll to Top itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56665 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0" itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56665 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"EEF\AF\C5 Skip to content The Authoritative Website The Authoritative Website Search Computers Sinclair Sinclair ZX80 Articles Books Hardware Software Sinclair ZX81 Articles Sinclair QL Hardware Software Cambridge Z88 Timex Timex/Sinclair 1000 Articles Books Hardware Software Downloadable Software Timex/Sinclair 1500 Articles Timex/Sinclair 2068 Articles Books Hardware Reference and Technical Information Software Downloadable Software Other MicroAce Hardware Articles Software Books Lambda 8300 Downloadable Software ZX81/TS-1000 TS-2068 Publications Books Periodicals Documents Companies Sinclair Timex View All Products Hardware Software Accessories & Miscellaneous Community Online User Group User Groups People Events About What’s New? How You Can Help Shop Privacy Policy Blog Log in Sign upSign up Home » Computer Media » Message Center Search Computers Sinclair Sinclair ZX80 Articles Books Hardware Software Sinclair ZX81 Articles Sinclair QL Hardware Software Cambridge Z88 Timex Timex/Sinclair 1000 Articles Books Hardware Software Downloadable Software Timex/Sinclair 1500 Articles Timex/Sinclair 2068 Articles Books Hardware Reference and Technical Information Software Downloadable Software Other MicroAce Hardware Articles Software Books Lambda 8300 Downloadable Software ZX81/TS-1000 TS-2068 Publications Books Periodicals Documents Companies Sinclair Timex View All Products Hardware Software Accessories & Miscellaneous Community Online User Group User Groups People Events About What’s New? How You Can Help Shop Privacy Policy Blog Message Center S & S Company, The Products: Message Center Date: 198X Type: Cassette Platform(s): TS 1000 Billboard, Horizontal Scroll, Verti-Scroll. Content Appears On Related Products Message Center Three message screen scrolling routines: Billboard, Horizontal Scroll, Verti-Scroll. Related Articles Related Content Image Gallery Source Code 10 REM \C1\1F\2A\82\40\26\00\29\29\29\11\01\1E\19\22\82\40\3E\7F\32\AF\40\06\08\C5\2A\0C\40\11\A4\00\19\ED\5B\82\40\06\06\C5\01\21\00\00\1A\CB\67\28\07\36\80\09\36\00\18\05\36\00\09\36\00\13\C1\10\E6\3A\AF\40\D6\08\32\AF\40\CD\D1\40\C1\10\CA\C9\2A\0C\40\06\16\C5\23\54\5D\23\01\1F\00\ED\B0\C1\10\F3\C9 11 REM % % %B%I%L%L%-%B%O%A%R%D% % % %B%Y% %G%E%N%E% %B%U%Z%A% % % % % % % %O%F% % % % % % %S%Y%N%C%H%R%O%-%S%E%T%T%E% 20 LET CS=0 30 PRINT AT 10,8;"SPEED (0 TO 9)?" 40 LET S$=INKEY$ 45 IF CODE S$=43 THEN LET CS=1 50 IF CODE S$<28 OR CODE S$>37 THEN GOTO 40 60 LET S=30-3*VAL S$ 65 LET A$=A$+" " 70 CLS 100 FOR I=1 TO LEN A$ 110 POKE 16514,CODE A$(I) 120 LET X=USR 16516 122 IF INKEY$="C" THEN LET CS=0 125 IF CS=1 THEN NEXT I 130 PRINT AT 1,2;" % %B%I%L%L%-%B%O%A%R%D% ";AT 20,0;" % %F%R%O%M% %S%Y%N%C%H%R%O%-%S%E%T%T%E% " 150 FOR N=1 TO S 160 NEXT N 162 LET S$=INKEY$ 163 IF S$="C" THEN GOTO 180 164 IF S$="S" THEN GOTO 400 165 IF S$="L" THEN GOTO 500 166 IF S$="F" THEN GOTO 600 167 IF CODE S$=225 THEN GOTO 1000 168 IF CODE S$>27 AND CODE S$<38 THEN GOTO 300 170 IF S$<>"" THEN GOTO 200 180 NEXT I 190 GOTO 100 200 CLS 210 PRINT AT 20,0;"ENTER YOUR MESSAGE" 220 INPUT A$ 240 GOTO 30 300 LET S=30-3*VAL S$ 310 GOTO 180 400 POKE 16556,0 410 POKE 16566,0 420 GOTO 180 500 POKE 16556,9 510 POKE 16566,128 520 GOTO 180 600 LET CS=1 610 GOTO 180 1000 CLS 1010 PRINT AT 10,0;"INPUT FILE NAME, PREPARE THE RECORDER AND PRESS ENTER :::" 1020 INPUT Z$ 1030 CLS 1040 SAVE Z$ 1050 GOTO 70 ------ 1000 PRINT AT 10,0;"INPUT YOUR MESSAGE :::" 1010 INPUT A$ 1020 PRINT AT 12,0;"FOR LEFT TO RIGHT PRESS <L>","FOR RIGHT TO LFT PRESS <R>" 1030 PAUSE 40000 1040 LET C$=INKEY$ 1060 DIM B$(32) 1070 LET A$=B$+A$ 1080 CLS 1090 PRINT AT 10,0;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':\: \ :\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:";AT 2,9;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\':";AT 3,9;"\: SYNCHRO-SETTE\ :";AT 4,9;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\.:";AT 19,7;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':";AT 20,7;"\: SCROLLING PROGRAM\ :";AT 21,7;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:" 2000 PRINT AT 11,1;A$( TO 30) 2010 IF INKEY$="" THEN GOTO 2070 2020 IF INKEY$="S" THEN GOTO 4000 2030 IF INKEY$="P" THEN GOSUB 5000 2040 IF INKEY$="L" THEN LET C$="L" 2050 IF INKEY$="R" THEN LET C$="R" 2060 IF INKEY$="M" THEN GOTO 6000 2070 GOSUB 2500 2080 GOTO 2000 2500 IF C$="L" THEN LET A$=A$(2 TO LEN A$)+A$(1) 2510 IF C$="R" THEN LET A$=A$(LEN A$)+A$( TO LEN A$-1) 2520 RETURN 4000 CLS 4010 PRINT AT 16,0;"ENTER NAME OF FILE TO BE SAVED AND THEN PRESS ENTER ::" 4020 INPUT F$ 4030 PRINT AT 16,0;B$+B$ 4040 SAVE F$ 4050 GOTO 1080 5000 IF INKEY$<>"R" THEN GOTO 5000 5010 RETURN 6000 CLS 6010 RUN ----- 10 DIM B$(22) 20 CLS 30 PRINT AT 10,0;"INPUT YOUR MESSAGE :::" 40 INPUT A$ 50 LET C$=" SYNCHRO-SETTE" 60 LET D$=" VERTI-SCROLL " 70 LET A$=A$+B$ 100 CLS 110 LET N=13 120 FOR I=21 TO 0 STEP -1 130 PRINT AT I,4;C$(I+1);AT I,N;"% % ";AT I,27;D$(I+1) 140 NEXT I 200 FOR N=1 TO LEN A$ 210 PRINT AT 21,13;"% ";A$(N);" % " 220 IF INKEY$="" THEN GOTO 270 230 IF INKEY$="S" THEN GOTO 1000 240 IF INKEY$="P" THEN GOSUB 2000 250 IF INKEY$="M" THEN RUN 270 SCROLL 280 NEXT N 290 GOTO 200 1000 CLS 1010 PRINT AT 10,0;"INPUT THE FILE NAME, PREPARE THERECORDER AND PRESS ENTER :::" 1020 INPUT Z$ 1030 CLS 1040 SAVE Z$ 1050 GOTO 100 2000 PAUSE 40000 2010 IF INKEY$<>"R" THEN GOTO 2000 2020 RETURN Tags Archived Media, Downloadable, S & S Company, TS 1000 People No people associated with this content. Recent Posts Timex at K-MartApril 17, 2025 Exploring the Legacy of Timex Computer Corporation: Insights from Danny RossOctober 24, 2024 Real World Uses: Timex/Sinclair 2068May 16, 2024 “Made In Spain” ZX81 and TS1000 PCBsFebruary 23, 2024 How Did TS 2068 Users Make a Spectrum ROM?September 9, 2023 Support This Site Subscribe * indicates required Email Address * First Name Last Name Interests Send me your newsletter Send me Zoom meeting announcements /* real people should not fill this in and expect good things - do not remove this or risk form bot signups */ This work is licensed under a Creative Commons Attribution-ShareAlike 4.0 International License. Scroll to Top A Skip to content The Authoritative Website The Authoritative Website Search Computers Sinclair Sinclair ZX80 Articles Books Hardware Software Sinclair ZX81 Articles Sinclair QL Hardware Software Cambridge Z88 Timex Timex/Sinclair 1000 Articles Books Hardware Software Downloadable Software Timex/Sinclair 1500 Articles Timex/Sinclair 2068 Articles Books Hardware Reference and Technical Information Software Downloadable Software Other MicroAce Hardware Articles Software Books Lambda 8300 Downloadable Software ZX81/TS-1000 TS-2068 Publications Books Periodicals Documents Companies Sinclair Timex View All Products Hardware Software Accessories & Miscellaneous Community Online User Group User Groups People Events About What’s New? How You Can Help Shop Privacy Policy Blog Log in Sign upSign up Home » Computer Media » Message Center Search Computers Sinclair Sinclair ZX80 Articles Books Hardware Software Sinclair ZX81 Articles Sinclair QL Hardware Software Cambridge Z88 Timex Timex/Sinclair 1000 Articles Books Hardware Software Downloadable Software Timex/Sinclair 1500 Articles Timex/Sinclair 2068 Articles Books Hardware Reference and Technical Information Software Downloadable Software Other MicroAce Hardware Articles Software Books Lambda 8300 Downloadable Software ZX81/TS-1000 TS-2068 Publications Books Periodicals Documents Companies Sinclair Timex View All Products Hardware Software Accessories & Miscellaneous Community Online User Group User Groups People Events About What’s New? How You Can Help Shop Privacy Policy Blog Message Center S & S Company, The Products: Message Center Date: 198X Type: Cassette Platform(s): TS 1000 Billboard, Horizontal Scroll, Verti-Scroll. Content Appears On Related Products Message Center Three message screen scrolling routines: Billboard, Horizontal Scroll, Verti-Scroll. Related Articles Related Content Image Gallery Source Code 10 REM \C1\1F\2A\82\40\26\00\29\29\29\11\01\1E\19\22\82\40\3E\7F\32\AF\40\06\08\C5\2A\0C\40\11\A4\00\19\ED\5B\82\40\06\06\C5\01\21\00\00\1A\CB\67\28\07\36\80\09\36\00\18\05\36\00\09\36\00\13\C1\10\E6\3A\AF\40\D6\08\32\AF\40\CD\D1\40\C1\10\CA\C9\2A\0C\40\06\16\C5\23\54\5D\23\01\1F\00\ED\B0\C1\10\F3\C9 11 REM % % %B%I%L%L%-%B%O%A%R%D% % % %B%Y% %G%E%N%E% %B%U%Z%A% % % % % % % %O%F% % % % % % %S%Y%N%C%H%R%O%-%S%E%T%T%E% 20 LET CS=0 30 PRINT AT 10,8;"SPEED (0 TO 9)?" 40 LET S$=INKEY$ 45 IF CODE S$=43 THEN LET CS=1 50 IF CODE S$<28 OR CODE S$>37 THEN GOTO 40 60 LET S=30-3*VAL S$ 65 LET A$=A$+" " 70 CLS 100 FOR I=1 TO LEN A$ 110 POKE 16514,CODE A$(I) 120 LET X=USR 16516 122 IF INKEY$="C" THEN LET CS=0 125 IF CS=1 THEN NEXT I 130 PRINT AT 1,2;" % %B%I%L%L%-%B%O%A%R%D% ";AT 20,0;" % %F%R%O%M% %S%Y%N%C%H%R%O%-%S%E%T%T%E% " 150 FOR N=1 TO S 160 NEXT N 162 LET S$=INKEY$ 163 IF S$="C" THEN GOTO 180 164 IF S$="S" THEN GOTO 400 165 IF S$="L" THEN GOTO 500 166 IF S$="F" THEN GOTO 600 167 IF CODE S$=225 THEN GOTO 1000 168 IF CODE S$>27 AND CODE S$<38 THEN GOTO 300 170 IF S$<>"" THEN GOTO 200 180 NEXT I 190 GOTO 100 200 CLS 210 PRINT AT 20,0;"ENTER YOUR MESSAGE" 220 INPUT A$ 240 GOTO 30 300 LET S=30-3*VAL S$ 310 GOTO 180 400 POKE 16556,0 410 POKE 16566,0 420 GOTO 180 500 POKE 16556,9 510 POKE 16566,128 520 GOTO 180 600 LET CS=1 610 GOTO 180 1000 CLS 1010 PRINT AT 10,0;"INPUT FILE NAME, PREPARE THE RECORDER AND PRESS ENTER :::" 1020 INPUT Z$ 1030 CLS 1040 SAVE Z$ 1050 GOTO 70 ------ 1000 PRINT AT 10,0;"INPUT YOUR MESSAGE :::" 1010 INPUT A$ 1020 PRINT AT 12,0;"FOR LEFT TO RIGHT PRESS <L>","FOR RIGHT TO LFT PRESS <R>" 1030 PAUSE 40000 1040 LET C$=INKEY$ 1060 DIM B$(32) 1070 LET A$=B$+A$ 1080 CLS 1090 PRINT AT 10,0;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':\: \ :\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:";AT 2,9;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\':";AT 3,9;"\: SYNCHRO-SETTE\ :";AT 4,9;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\.:";AT 19,7;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':";AT 20,7;"\: SCROLLING PROGRAM\ :";AT 21,7;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:" 2000 PRINT AT 11,1;A$( TO 30) 2010 IF INKEY$="" THEN GOTO 2070 2020 IF INKEY$="S" THEN GOTO 4000 2030 IF INKEY$="P" THEN GOSUB 5000 2040 IF INKEY$="L" THEN LET C$="L" 2050 IF INKEY$="R" THEN LET C$="R" 2060 IF INKEY$="M" THEN GOTO 6000 2070 GOSUB 2500 2080 GOTO 2000 2500 IF C$="L" THEN LET A$=A$(2 TO LEN A$)+A$(1) 2510 IF C$="R" THEN LET A$=A$(LEN A$)+A$( TO LEN A$-1) 2520 RETURN 4000 CLS 4010 PRINT AT 16,0;"ENTER NAME OF FILE TO BE SAVED AND THEN PRESS ENTER ::" 4020 INPUT F$ 4030 PRINT AT 16,0;B$+B$ 4040 SAVE F$ 4050 GOTO 1080 5000 IF INKEY$<>"R" THEN GOTO 5000 5010 RETURN 6000 CLS 6010 RUN ----- 10 DIM B$(22) 20 CLS 30 PRINT AT 10,0;"INPUT YOUR MESSAGE :::" 40 INPUT A$ 50 LET C$=" SYNCHRO-SETTE" 60 LET D$=" VERTI-SCROLL " 70 LET A$=A$+B$ 100 CLS 110 LET N=13 120 FOR I=21 TO 0 STEP -1 130 PRINT AT I,4;C$(I+1);AT I,N;"% % ";AT I,27;D$(I+1) 140 NEXT I 200 FOR N=1 TO LEN A$ 210 PRINT AT 21,13;"% ";A$(N);" % " 220 IF INKEY$="" THEN GOTO 270 230 IF INKEY$="S" THEN GOTO 1000 240 IF INKEY$="P" THEN GOSUB 2000 250 IF INKEY$="M" THEN RUN 270 SCROLL 280 NEXT N 290 GOTO 200 1000 CLS 1010 PRINT AT 10,0;"INPUT THE FILE NAME, PREPARE THERECORDER AND PRESS ENTER :::" 1020 INPUT Z$ 1030 CLS 1040 SAVE Z$ 1050 GOTO 100 2000 PAUSE 40000 2010 IF INKEY$<>"R" THEN GOTO 2000 2020 RETURN Tags Archived Media, Downloadable, S & S Company, TS 1000 People No people associated with this content. Recent Posts Timex at K-MartApril 17, 2025 Exploring the Legacy of Timex Computer Corporation: Insights from Danny RossOctober 24, 2024 Real World Uses: Timex/Sinclair 2068May 16, 2024 “Made In Spain” ZX81 and TS1000 PCBsFebruary 23, 2024 How Did TS 2068 Users Make a Spectrum ROM?September 9, 2023 Support This Site Subscribe * indicates required Email Address * First Name Last Name Interests Send me your newsletter Send me Zoom meeting announcements /* real people should not fill this in and expect good things - do not remove this or risk form bot signups */ This work is licensed under a Creative Commons Attribution-ShareAlike 4.0 International License. Scroll to Top C\A4 Skip to content The Authoritative Website The Authoritative Website Search Computers Sinclair Sinclair ZX80 Articles Books Hardware Software Sinclair ZX81 Articles Sinclair QL Hardware Software Cambridge Z88 Timex Timex/Sinclair 1000 Articles Books Hardware Software Downloadable Software Timex/Sinclair 1500 Articles Timex/Sinclair 2068 Articles Books Hardware Reference and Technical Information Software Downloadable Software Other MicroAce Hardware Articles Software Books Lambda 8300 Downloadable Software ZX81/TS-1000 TS-2068 Publications Books Periodicals Documents Companies Sinclair Timex View All Products Hardware Software Accessories & Miscellaneous Community Online User Group User Groups People Events About What’s New? How You Can Help Shop Privacy Policy Blog Log in Sign upSign up Home » Computer Media » Message Center Search Computers Sinclair Sinclair ZX80 Articles Books Hardware Software Sinclair ZX81 Articles Sinclair QL Hardware Software Cambridge Z88 Timex Timex/Sinclair 1000 Articles Books Hardware Software Downloadable Software Timex/Sinclair 1500 Articles Timex/Sinclair 2068 Articles Books Hardware Reference and Technical Information Software Downloadable Software Other MicroAce Hardware Articles Software Books Lambda 8300 Downloadable Software ZX81/TS-1000 TS-2068 Publications Books Periodicals Documents Companies Sinclair Timex View All Products Hardware Software Accessories & Miscellaneous Community Online User Group User Groups People Events About What’s New? How You Can Help Shop Privacy Policy Blog Message Center S & S Company, The Products: Message Center Date: 198X Type: Cassette Platform(s): TS 1000 Billboard, Horizontal Scroll, Verti-Scroll. Content Appears On Related Products Message Center Three message screen scrolling routines: Billboard, Horizontal Scroll, Verti-Scroll. Related Articles Related Content Image Gallery Source Code 10 REM \C1\1F\2A\82\40\26\00\29\29\29\11\01\1E\19\22\82\40\3E\7F\32\AF\40\06\08\C5\2A\0C\40\11\A4\00\19\ED\5B\82\40\06\06\C5\01\21\00\00\1A\CB\67\28\07\36\80\09\36\00\18\05\36\00\09\36\00\13\C1\10\E6\3A\AF\40\D6\08\32\AF\40\CD\D1\40\C1\10\CA\C9\2A\0C\40\06\16\C5\23\54\5D\23\01\1F\00\ED\B0\C1\10\F3\C9 11 REM % % %B%I%L%L%-%B%O%A%R%D% % % %B%Y% %G%E%N%E% %B%U%Z%A% % % % % % % %O%F% % % % % % %S%Y%N%C%H%R%O%-%S%E%T%T%E% 20 LET CS=0 30 PRINT AT 10,8;"SPEED (0 TO 9)?" 40 LET S$=INKEY$ 45 IF CODE S$=43 THEN LET CS=1 50 IF CODE S$<28 OR CODE S$>37 THEN GOTO 40 60 LET S=30-3*VAL S$ 65 LET A$=A$+" " 70 CLS 100 FOR I=1 TO LEN A$ 110 POKE 16514,CODE A$(I) 120 LET X=USR 16516 122 IF INKEY$="C" THEN LET CS=0 125 IF CS=1 THEN NEXT I 130 PRINT AT 1,2;" % %B%I%L%L%-%B%O%A%R%D% ";AT 20,0;" % %F%R%O%M% %S%Y%N%C%H%R%O%-%S%E%T%T%E% " 150 FOR N=1 TO S 160 NEXT N 162 LET S$=INKEY$ 163 IF S$="C" THEN GOTO 180 164 IF S$="S" THEN GOTO 400 165 IF S$="L" THEN GOTO 500 166 IF S$="F" THEN GOTO 600 167 IF CODE S$=225 THEN GOTO 1000 168 IF CODE S$>27 AND CODE S$<38 THEN GOTO 300 170 IF S$<>"" THEN GOTO 200 180 NEXT I 190 GOTO 100 200 CLS 210 PRINT AT 20,0;"ENTER YOUR MESSAGE" 220 INPUT A$ 240 GOTO 30 300 LET S=30-3*VAL S$ 310 GOTO 180 400 POKE 16556,0 410 POKE 16566,0 420 GOTO 180 500 POKE 16556,9 510 POKE 16566,128 520 GOTO 180 600 LET CS=1 610 GOTO 180 1000 CLS 1010 PRINT AT 10,0;"INPUT FILE NAME, PREPARE THE RECORDER AND PRESS ENTER :::" 1020 INPUT Z$ 1030 CLS 1040 SAVE Z$ 1050 GOTO 70 ------ 1000 PRINT AT 10,0;"INPUT YOUR MESSAGE :::" 1010 INPUT A$ 1020 PRINT AT 12,0;"FOR LEFT TO RIGHT PRESS <L>","FOR RIGHT TO LFT PRESS <R>" 1030 PAUSE 40000 1040 LET C$=INKEY$ 1060 DIM B$(32) 1070 LET A$=B$+A$ 1080 CLS 1090 PRINT AT 10,0;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':\: \ :\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:";AT 2,9;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\':";AT 3,9;"\: SYNCHRO-SETTE\ :";AT 4,9;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\.:";AT 19,7;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':";AT 20,7;"\: SCROLLING PROGRAM\ :";AT 21,7;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:" 2000 PRINT AT 11,1;A$( TO 30) 2010 IF INKEY$="" THEN GOTO 2070 2020 IF INKEY$="S" THEN GOTO 4000 2030 IF INKEY$="P" THEN GOSUB 5000 2040 IF INKEY$="L" THEN LET C$="L" 2050 IF INKEY$="R" THEN LET C$="R" 2060 IF INKEY$="M" THEN GOTO 6000 2070 GOSUB 2500 2080 GOTO 2000 2500 IF C$="L" THEN LET A$=A$(2 TO LEN A$)+A$(1) 2510 IF C$="R" THEN LET A$=A$(LEN A$)+A$( TO LEN A$-1) 2520 RETURN 4000 CLS 4010 PRINT AT 16,0;"ENTER NAME OF FILE TO BE SAVED AND THEN PRESS ENTER ::" 4020 INPUT F$ 4030 PRINT AT 16,0;B$+B$ 4040 SAVE F$ 4050 GOTO 1080 5000 IF INKEY$<>"R" THEN GOTO 5000 5010 RETURN 6000 CLS 6010 RUN ----- 10 DIM B$(22) 20 CLS 30 PRINT AT 10,0;"INPUT YOUR MESSAGE :::" 40 INPUT A$ 50 LET C$=" SYNCHRO-SETTE" 60 LET D$=" VERTI-SCROLL " 70 LET A$=A$+B$ 100 CLS 110 LET N=13 120 FOR I=21 TO 0 STEP -1 130 PRINT AT I,4;C$(I+1);AT I,N;"% % ";AT I,27;D$(I+1) 140 NEXT I 200 FOR N=1 TO LEN A$ 210 PRINT AT 21,13;"% ";A$(N);" % " 220 IF INKEY$="" THEN GOTO 270 230 IF INKEY$="S" THEN GOTO 1000 240 IF INKEY$="P" THEN GOSUB 2000 250 IF INKEY$="M" THEN RUN 270 SCROLL 280 NEXT N 290 GOTO 200 1000 CLS 1010 PRINT AT 10,0;"INPUT THE FILE NAME, PREPARE THERECORDER AND PRESS ENTER :::" 1020 INPUT Z$ 1030 CLS 1040 SAVE Z$ 1050 GOTO 100 2000 PAUSE 40000 2010 IF INKEY$<>"R" THEN GOTO 2000 2020 RETURN Tags Archived Media, Downloadable, S & S Company, TS 1000 People No people associated with this content. Recent Posts Timex at K-MartApril 17, 2025 Exploring the Legacy of Timex Computer Corporation: Insights from Danny RossOctober 24, 2024 Real World Uses: Timex/Sinclair 2068May 16, 2024 “Made In Spain” ZX81 and TS1000 PCBsFebruary 23, 2024 How Did TS 2068 Users Make a Spectrum ROM?September 9, 2023 Support This Site Subscribe * indicates required Email Address * First Name Last Name Interests Send me your newsletter Send me Zoom meeting announcements /* real people should not fill this in and expect good things - do not remove this or risk form bot signups */ This work is licensed under a Creative Commons Attribution-ShareAlike 4.0 International License. Scroll to Top \EDB\C5 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56665 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0" Skip to content The Authoritative Website The Authoritative Website Search Computers Sinclair Sinclair ZX80 Articles Books Hardware Software Sinclair ZX81 Articles Sinclair QL Hardware Software Cambridge Z88 Timex Timex/Sinclair 1000 Articles Books Hardware Software Downloadable Software Timex/Sinclair 1500 Articles Timex/Sinclair 2068 Articles Books Hardware Reference and Technical Information Software Downloadable Software Other MicroAce Hardware Articles Software Books Lambda 8300 Downloadable Software ZX81/TS-1000 TS-2068 Publications Books Periodicals Documents Companies Sinclair Timex View All Products Hardware Software Accessories & Miscellaneous Community Online User Group User Groups People Events About What’s New? How You Can Help Shop Privacy Policy Blog Log in Sign upSign up Home » Computer Media » Message Center Search Computers Sinclair Sinclair ZX80 Articles Books Hardware Software Sinclair ZX81 Articles Sinclair QL Hardware Software Cambridge Z88 Timex Timex/Sinclair 1000 Articles Books Hardware Software Downloadable Software Timex/Sinclair 1500 Articles Timex/Sinclair 2068 Articles Books Hardware Reference and Technical Information Software Downloadable Software Other MicroAce Hardware Articles Software Books Lambda 8300 Downloadable Software ZX81/TS-1000 TS-2068 Publications Books Periodicals Documents Companies Sinclair Timex View All Products Hardware Software Accessories & Miscellaneous Community Online User Group User Groups People Events About What’s New? How You Can Help Shop Privacy Policy Blog Message Center S & S Company, The Products: Message Center Date: 198X Type: Cassette Platform(s): TS 1000 Billboard, Horizontal Scroll, Verti-Scroll. Content Appears On Related Products Message Center Three message screen scrolling routines: Billboard, Horizontal Scroll, Verti-Scroll. Related Articles Related Content Image Gallery Source Code 10 REM \C1\1F\2A\82\40\26\00\29\29\29\11\01\1E\19\22\82\40\3E\7F\32\AF\40\06\08\C5\2A\0C\40\11\A4\00\19\ED\5B\82\40\06\06\C5\01\21\00\00\1A\CB\67\28\07\36\80\09\36\00\18\05\36\00\09\36\00\13\C1\10\E6\3A\AF\40\D6\08\32\AF\40\CD\D1\40\C1\10\CA\C9\2A\0C\40\06\16\C5\23\54\5D\23\01\1F\00\ED\B0\C1\10\F3\C9 11 REM % % %B%I%L%L%-%B%O%A%R%D% % % %B%Y% %G%E%N%E% %B%U%Z%A% % % % % % % %O%F% % % % % % %S%Y%N%C%H%R%O%-%S%E%T%T%E% 20 LET CS=0 30 PRINT AT 10,8;"SPEED (0 TO 9)?" 40 LET S$=INKEY$ 45 IF CODE S$=43 THEN LET CS=1 50 IF CODE S$<28 OR CODE S$>37 THEN GOTO 40 60 LET S=30-3*VAL S$ 65 LET A$=A$+" " 70 CLS 100 FOR I=1 TO LEN A$ 110 POKE 16514,CODE A$(I) 120 LET X=USR 16516 122 IF INKEY$="C" THEN LET CS=0 125 IF CS=1 THEN NEXT I 130 PRINT AT 1,2;" % %B%I%L%L%-%B%O%A%R%D% ";AT 20,0;" % %F%R%O%M% %S%Y%N%C%H%R%O%-%S%E%T%T%E% " 150 FOR N=1 TO S 160 NEXT N 162 LET S$=INKEY$ 163 IF S$="C" THEN GOTO 180 164 IF S$="S" THEN GOTO 400 165 IF S$="L" THEN GOTO 500 166 IF S$="F" THEN GOTO 600 167 IF CODE S$=225 THEN GOTO 1000 168 IF CODE S$>27 AND CODE S$<38 THEN GOTO 300 170 IF S$<>"" THEN GOTO 200 180 NEXT I 190 GOTO 100 200 CLS 210 PRINT AT 20,0;"ENTER YOUR MESSAGE" 220 INPUT A$ 240 GOTO 30 300 LET S=30-3*VAL S$ 310 GOTO 180 400 POKE 16556,0 410 POKE 16566,0 420 GOTO 180 500 POKE 16556,9 510 POKE 16566,128 520 GOTO 180 600 LET CS=1 610 GOTO 180 1000 CLS 1010 PRINT AT 10,0;"INPUT FILE NAME, PREPARE THE RECORDER AND PRESS ENTER :::" 1020 INPUT Z$ 1030 CLS 1040 SAVE Z$ 1050 GOTO 70 ------ 1000 PRINT AT 10,0;"INPUT YOUR MESSAGE :::" 1010 INPUT A$ 1020 PRINT AT 12,0;"FOR LEFT TO RIGHT PRESS <L>","FOR RIGHT TO LFT PRESS <R>" 1030 PAUSE 40000 1040 LET C$=INKEY$ 1060 DIM B$(32) 1070 LET A$=B$+A$ 1080 CLS 1090 PRINT AT 10,0;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':\: \ :\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:";AT 2,9;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\':";AT 3,9;"\: SYNCHRO-SETTE\ :";AT 4,9;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\.:";AT 19,7;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':";AT 20,7;"\: SCROLLING PROGRAM\ :";AT 21,7;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:" 2000 PRINT AT 11,1;A$( TO 30) 2010 IF INKEY$="" THEN GOTO 2070 2020 IF INKEY$="S" THEN GOTO 4000 2030 IF INKEY$="P" THEN GOSUB 5000 2040 IF INKEY$="L" THEN LET C$="L" 2050 IF INKEY$="R" THEN LET C$="R" 2060 IF INKEY$="M" THEN GOTO 6000 2070 GOSUB 2500 2080 GOTO 2000 2500 IF C$="L" THEN LET A$=A$(2 TO LEN A$)+A$(1) 2510 IF C$="R" THEN LET A$=A$(LEN A$)+A$( TO LEN A$-1) 2520 RETURN 4000 CLS 4010 PRINT AT 16,0;"ENTER NAME OF FILE TO BE SAVED AND THEN PRESS ENTER ::" 4020 INPUT F$ 4030 PRINT AT 16,0;B$+B$ 4040 SAVE F$ 4050 GOTO 1080 5000 IF INKEY$<>"R" THEN GOTO 5000 5010 RETURN 6000 CLS 6010 RUN ----- 10 DIM B$(22) 20 CLS 30 PRINT AT 10,0;"INPUT YOUR MESSAGE :::" 40 INPUT A$ 50 LET C$=" SYNCHRO-SETTE" 60 LET D$=" VERTI-SCROLL " 70 LET A$=A$+B$ 100 CLS 110 LET N=13 120 FOR I=21 TO 0 STEP -1 130 PRINT AT I,4;C$(I+1);AT I,N;"% % ";AT I,27;D$(I+1) 140 NEXT I 200 FOR N=1 TO LEN A$ 210 PRINT AT 21,13;"% ";A$(N);" % " 220 IF INKEY$="" THEN GOTO 270 230 IF INKEY$="S" THEN GOTO 1000 240 IF INKEY$="P" THEN GOSUB 2000 250 IF INKEY$="M" THEN RUN 270 SCROLL 280 NEXT N 290 GOTO 200 1000 CLS 1010 PRINT AT 10,0;"INPUT THE FILE NAME, PREPARE THERECORDER AND PRESS ENTER :::" 1020 INPUT Z$ 1030 CLS 1040 SAVE Z$ 1050 GOTO 100 2000 PAUSE 40000 2010 IF INKEY$<>"R" THEN GOTO 2000 2020 RETURN Tags Archived Media, Downloadable, S & S Company, TS 1000 People No people associated with this content. Recent Posts Timex at K-MartApril 17, 2025 Exploring the Legacy of Timex Computer Corporation: Insights from Danny RossOctober 24, 2024 Real World Uses: Timex/Sinclair 2068May 16, 2024 “Made In Spain” ZX81 and TS1000 PCBsFebruary 23, 2024 How Did TS 2068 Users Make a Spectrum ROM?September 9, 2023 Support This Site Subscribe * indicates required Email Address * First Name Last Name Interests Send me your newsletter Send me Zoom meeting announcements /* real people should not fill this in and expect good things - do not remove this or risk form bot signups */ This work is licensed under a Creative Commons Attribution-ShareAlike 4.0 International License. Scroll to Top Skip to content The Authoritative Website The Authoritative Website Search Computers Sinclair Sinclair ZX80 Articles Books Hardware Software Sinclair ZX81 Articles Sinclair QL Hardware Software Cambridge Z88 Timex Timex/Sinclair 1000 Articles Books Hardware Software Downloadable Software Timex/Sinclair 1500 Articles Timex/Sinclair 2068 Articles Books Hardware Reference and Technical Information Software Downloadable Software Other MicroAce Hardware Articles Software Books Lambda 8300 Downloadable Software ZX81/TS-1000 TS-2068 Publications Books Periodicals Documents Companies Sinclair Timex View All Products Hardware Software Accessories & Miscellaneous Community Online User Group User Groups People Events About What’s New? How You Can Help Shop Privacy Policy Blog Log in Sign upSign up Home » Computer Media » Message Center Search Computers Sinclair Sinclair ZX80 Articles Books Hardware Software Sinclair ZX81 Articles Sinclair QL Hardware Software Cambridge Z88 Timex Timex/Sinclair 1000 Articles Books Hardware Software Downloadable Software Timex/Sinclair 1500 Articles Timex/Sinclair 2068 Articles Books Hardware Reference and Technical Information Software Downloadable Software Other MicroAce Hardware Articles Software Books Lambda 8300 Downloadable Software ZX81/TS-1000 TS-2068 Publications Books Periodicals Documents Companies Sinclair Timex View All Products Hardware Software Accessories & Miscellaneous Community Online User Group User Groups People Events About What’s New? How You Can Help Shop Privacy Policy Blog Message Center S & S Company, The Products: Message Center Date: 198X Type: Cassette Platform(s): TS 1000 Billboard, Horizontal Scroll, Verti-Scroll. Content Appears On Related Products Message Center Three message screen scrolling routines: Billboard, Horizontal Scroll, Verti-Scroll. Related Articles Related Content Image Gallery Source Code 10 REM \C1\1F\2A\82\40\26\00\29\29\29\11\01\1E\19\22\82\40\3E\7F\32\AF\40\06\08\C5\2A\0C\40\11\A4\00\19\ED\5B\82\40\06\06\C5\01\21\00\00\1A\CB\67\28\07\36\80\09\36\00\18\05\36\00\09\36\00\13\C1\10\E6\3A\AF\40\D6\08\32\AF\40\CD\D1\40\C1\10\CA\C9\2A\0C\40\06\16\C5\23\54\5D\23\01\1F\00\ED\B0\C1\10\F3\C9 11 REM % % %B%I%L%L%-%B%O%A%R%D% % % %B%Y% %G%E%N%E% %B%U%Z%A% % % % % % % %O%F% % % % % % %S%Y%N%C%H%R%O%-%S%E%T%T%E% 20 LET CS=0 30 PRINT AT 10,8;"SPEED (0 TO 9)?" 40 LET S$=INKEY$ 45 IF CODE S$=43 THEN LET CS=1 50 IF CODE S$<28 OR CODE S$>37 THEN GOTO 40 60 LET S=30-3*VAL S$ 65 LET A$=A$+" " 70 CLS 100 FOR I=1 TO LEN A$ 110 POKE 16514,CODE A$(I) 120 LET X=USR 16516 122 IF INKEY$="C" THEN LET CS=0 125 IF CS=1 THEN NEXT I 130 PRINT AT 1,2;" % %B%I%L%L%-%B%O%A%R%D% ";AT 20,0;" % %F%R%O%M% %S%Y%N%C%H%R%O%-%S%E%T%T%E% " 150 FOR N=1 TO S 160 NEXT N 162 LET S$=INKEY$ 163 IF S$="C" THEN GOTO 180 164 IF S$="S" THEN GOTO 400 165 IF S$="L" THEN GOTO 500 166 IF S$="F" THEN GOTO 600 167 IF CODE S$=225 THEN GOTO 1000 168 IF CODE S$>27 AND CODE S$<38 THEN GOTO 300 170 IF S$<>"" THEN GOTO 200 180 NEXT I 190 GOTO 100 200 CLS 210 PRINT AT 20,0;"ENTER YOUR MESSAGE" 220 INPUT A$ 240 GOTO 30 300 LET S=30-3*VAL S$ 310 GOTO 180 400 POKE 16556,0 410 POKE 16566,0 420 GOTO 180 500 POKE 16556,9 510 POKE 16566,128 520 GOTO 180 600 LET CS=1 610 GOTO 180 1000 CLS 1010 PRINT AT 10,0;"INPUT FILE NAME, PREPARE THE RECORDER AND PRESS ENTER :::" 1020 INPUT Z$ 1030 CLS 1040 SAVE Z$ 1050 GOTO 70 ------ 1000 PRINT AT 10,0;"INPUT YOUR MESSAGE :::" 1010 INPUT A$ 1020 PRINT AT 12,0;"FOR LEFT TO RIGHT PRESS <L>","FOR RIGHT TO LFT PRESS <R>" 1030 PAUSE 40000 1040 LET C$=INKEY$ 1060 DIM B$(32) 1070 LET A$=B$+A$ 1080 CLS 1090 PRINT AT 10,0;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':\: \ :\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:";AT 2,9;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\':";AT 3,9;"\: SYNCHRO-SETTE\ :";AT 4,9;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\.:";AT 19,7;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':";AT 20,7;"\: SCROLLING PROGRAM\ :";AT 21,7;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:" 2000 PRINT AT 11,1;A$( TO 30) 2010 IF INKEY$="" THEN GOTO 2070 2020 IF INKEY$="S" THEN GOTO 4000 2030 IF INKEY$="P" THEN GOSUB 5000 2040 IF INKEY$="L" THEN LET C$="L" 2050 IF INKEY$="R" THEN LET C$="R" 2060 IF INKEY$="M" THEN GOTO 6000 2070 GOSUB 2500 2080 GOTO 2000 2500 IF C$="L" THEN LET A$=A$(2 TO LEN A$)+A$(1) 2510 IF C$="R" THEN LET A$=A$(LEN A$)+A$( TO LEN A$-1) 2520 RETURN 4000 CLS 4010 PRINT AT 16,0;"ENTER NAME OF FILE TO BE SAVED AND THEN PRESS ENTER ::" 4020 INPUT F$ 4030 PRINT AT 16,0;B$+B$ 4040 SAVE F$ 4050 GOTO 1080 5000 IF INKEY$<>"R" THEN GOTO 5000 5010 RETURN 6000 CLS 6010 RUN ----- 10 DIM B$(22) 20 CLS 30 PRINT AT 10,0;"INPUT YOUR MESSAGE :::" 40 INPUT A$ 50 LET C$=" SYNCHRO-SETTE" 60 LET D$=" VERTI-SCROLL " 70 LET A$=A$+B$ 100 CLS 110 LET N=13 120 FOR I=21 TO 0 STEP -1 130 PRINT AT I,4;C$(I+1);AT I,N;"% % ";AT I,27;D$(I+1) 140 NEXT I 200 FOR N=1 TO LEN A$ 210 PRINT AT 21,13;"% ";A$(N);" % " 220 IF INKEY$="" THEN GOTO 270 230 IF INKEY$="S" THEN GOTO 1000 240 IF INKEY$="P" THEN GOSUB 2000 250 IF INKEY$="M" THEN RUN 270 SCROLL 280 NEXT N 290 GOTO 200 1000 CLS 1010 PRINT AT 10,0;"INPUT THE FILE NAME, PREPARE THERECORDER AND PRESS ENTER :::" 1020 INPUT Z$ 1030 CLS 1040 SAVE Z$ 1050 GOTO 100 2000 PAUSE 40000 2010 IF INKEY$<>"R" THEN GOTO 2000 2020 RETURN Tags Archived Media, Downloadable, S & S Company, TS 1000 People No people associated with this content. Recent Posts Timex at K-MartApril 17, 2025 Exploring the Legacy of Timex Computer Corporation: Insights from Danny RossOctober 24, 2024 Real World Uses: Timex/Sinclair 2068May 16, 2024 “Made In Spain” ZX81 and TS1000 PCBsFebruary 23, 2024 How Did TS 2068 Users Make a Spectrum ROM?September 9, 2023 Support This Site Subscribe * indicates required Email Address * First Name Last Name Interests Send me your newsletter Send me Zoom meeting announcements /* real people should not fill this in and expect good things - do not remove this or risk form bot signups */ This work is licensed under a Creative Commons Attribution-ShareAlike 4.0 International License. Scroll to Top itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56665 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"A\CB Skip to content The Authoritative Website The Authoritative Website Search Computers Sinclair Sinclair ZX80 Articles Books Hardware Software Sinclair ZX81 Articles Sinclair QL Hardware Software Cambridge Z88 Timex Timex/Sinclair 1000 Articles Books Hardware Software Downloadable Software Timex/Sinclair 1500 Articles Timex/Sinclair 2068 Articles Books Hardware Reference and Technical Information Software Downloadable Software Other MicroAce Hardware Articles Software Books Lambda 8300 Downloadable Software ZX81/TS-1000 TS-2068 Publications Books Periodicals Documents Companies Sinclair Timex View All Products Hardware Software Accessories & Miscellaneous Community Online User Group User Groups People Events About What’s New? How You Can Help Shop Privacy Policy Blog Log in Sign upSign up Home » Computer Media » Message Center Search Computers Sinclair Sinclair ZX80 Articles Books Hardware Software Sinclair ZX81 Articles Sinclair QL Hardware Software Cambridge Z88 Timex Timex/Sinclair 1000 Articles Books Hardware Software Downloadable Software Timex/Sinclair 1500 Articles Timex/Sinclair 2068 Articles Books Hardware Reference and Technical Information Software Downloadable Software Other MicroAce Hardware Articles Software Books Lambda 8300 Downloadable Software ZX81/TS-1000 TS-2068 Publications Books Periodicals Documents Companies Sinclair Timex View All Products Hardware Software Accessories & Miscellaneous Community Online User Group User Groups People Events About What’s New? How You Can Help Shop Privacy Policy Blog Message Center S & S Company, The Products: Message Center Date: 198X Type: Cassette Platform(s): TS 1000 Billboard, Horizontal Scroll, Verti-Scroll. Content Appears On Related Products Message Center Three message screen scrolling routines: Billboard, Horizontal Scroll, Verti-Scroll. Related Articles Related Content Image Gallery Source Code 10 REM \C1\1F\2A\82\40\26\00\29\29\29\11\01\1E\19\22\82\40\3E\7F\32\AF\40\06\08\C5\2A\0C\40\11\A4\00\19\ED\5B\82\40\06\06\C5\01\21\00\00\1A\CB\67\28\07\36\80\09\36\00\18\05\36\00\09\36\00\13\C1\10\E6\3A\AF\40\D6\08\32\AF\40\CD\D1\40\C1\10\CA\C9\2A\0C\40\06\16\C5\23\54\5D\23\01\1F\00\ED\B0\C1\10\F3\C9 11 REM % % %B%I%L%L%-%B%O%A%R%D% % % %B%Y% %G%E%N%E% %B%U%Z%A% % % % % % % %O%F% % % % % % %S%Y%N%C%H%R%O%-%S%E%T%T%E% 20 LET CS=0 30 PRINT AT 10,8;"SPEED (0 TO 9)?" 40 LET S$=INKEY$ 45 IF CODE S$=43 THEN LET CS=1 50 IF CODE S$<28 OR CODE S$>37 THEN GOTO 40 60 LET S=30-3*VAL S$ 65 LET A$=A$+" " 70 CLS 100 FOR I=1 TO LEN A$ 110 POKE 16514,CODE A$(I) 120 LET X=USR 16516 122 IF INKEY$="C" THEN LET CS=0 125 IF CS=1 THEN NEXT I 130 PRINT AT 1,2;" % %B%I%L%L%-%B%O%A%R%D% ";AT 20,0;" % %F%R%O%M% %S%Y%N%C%H%R%O%-%S%E%T%T%E% " 150 FOR N=1 TO S 160 NEXT N 162 LET S$=INKEY$ 163 IF S$="C" THEN GOTO 180 164 IF S$="S" THEN GOTO 400 165 IF S$="L" THEN GOTO 500 166 IF S$="F" THEN GOTO 600 167 IF CODE S$=225 THEN GOTO 1000 168 IF CODE S$>27 AND CODE S$<38 THEN GOTO 300 170 IF S$<>"" THEN GOTO 200 180 NEXT I 190 GOTO 100 200 CLS 210 PRINT AT 20,0;"ENTER YOUR MESSAGE" 220 INPUT A$ 240 GOTO 30 300 LET S=30-3*VAL S$ 310 GOTO 180 400 POKE 16556,0 410 POKE 16566,0 420 GOTO 180 500 POKE 16556,9 510 POKE 16566,128 520 GOTO 180 600 LET CS=1 610 GOTO 180 1000 CLS 1010 PRINT AT 10,0;"INPUT FILE NAME, PREPARE THE RECORDER AND PRESS ENTER :::" 1020 INPUT Z$ 1030 CLS 1040 SAVE Z$ 1050 GOTO 70 ------ 1000 PRINT AT 10,0;"INPUT YOUR MESSAGE :::" 1010 INPUT A$ 1020 PRINT AT 12,0;"FOR LEFT TO RIGHT PRESS <L>","FOR RIGHT TO LFT PRESS <R>" 1030 PAUSE 40000 1040 LET C$=INKEY$ 1060 DIM B$(32) 1070 LET A$=B$+A$ 1080 CLS 1090 PRINT AT 10,0;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':\: \ :\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:";AT 2,9;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\':";AT 3,9;"\: SYNCHRO-SETTE\ :";AT 4,9;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\.:";AT 19,7;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':";AT 20,7;"\: SCROLLING PROGRAM\ :";AT 21,7;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:" 2000 PRINT AT 11,1;A$( TO 30) 2010 IF INKEY$="" THEN GOTO 2070 2020 IF INKEY$="S" THEN GOTO 4000 2030 IF INKEY$="P" THEN GOSUB 5000 2040 IF INKEY$="L" THEN LET C$="L" 2050 IF INKEY$="R" THEN LET C$="R" 2060 IF INKEY$="M" THEN GOTO 6000 2070 GOSUB 2500 2080 GOTO 2000 2500 IF C$="L" THEN LET A$=A$(2 TO LEN A$)+A$(1) 2510 IF C$="R" THEN LET A$=A$(LEN A$)+A$( TO LEN A$-1) 2520 RETURN 4000 CLS 4010 PRINT AT 16,0;"ENTER NAME OF FILE TO BE SAVED AND THEN PRESS ENTER ::" 4020 INPUT F$ 4030 PRINT AT 16,0;B$+B$ 4040 SAVE F$ 4050 GOTO 1080 5000 IF INKEY$<>"R" THEN GOTO 5000 5010 RETURN 6000 CLS 6010 RUN ----- 10 DIM B$(22) 20 CLS 30 PRINT AT 10,0;"INPUT YOUR MESSAGE :::" 40 INPUT A$ 50 LET C$=" SYNCHRO-SETTE" 60 LET D$=" VERTI-SCROLL " 70 LET A$=A$+B$ 100 CLS 110 LET N=13 120 FOR I=21 TO 0 STEP -1 130 PRINT AT I,4;C$(I+1);AT I,N;"% % ";AT I,27;D$(I+1) 140 NEXT I 200 FOR N=1 TO LEN A$ 210 PRINT AT 21,13;"% ";A$(N);" % " 220 IF INKEY$="" THEN GOTO 270 230 IF INKEY$="S" THEN GOTO 1000 240 IF INKEY$="P" THEN GOSUB 2000 250 IF INKEY$="M" THEN RUN 270 SCROLL 280 NEXT N 290 GOTO 200 1000 CLS 1010 PRINT AT 10,0;"INPUT THE FILE NAME, PREPARE THERECORDER AND PRESS ENTER :::" 1020 INPUT Z$ 1030 CLS 1040 SAVE Z$ 1050 GOTO 100 2000 PAUSE 40000 2010 IF INKEY$<>"R" THEN GOTO 2000 2020 RETURN Tags Archived Media, Downloadable, S & S Company, TS 1000 People No people associated with this content. Recent Posts Timex at K-MartApril 17, 2025 Exploring the Legacy of Timex Computer Corporation: Insights from Danny RossOctober 24, 2024 Real World Uses: Timex/Sinclair 2068May 16, 2024 “Made In Spain” ZX81 and TS1000 PCBsFebruary 23, 2024 How Did TS 2068 Users Make a Spectrum ROM?September 9, 2023 Support This Site Subscribe * indicates required Email Address * First Name Last Name Interests Send me your newsletter Send me Zoom meeting announcements /* real people should not fill this in and expect good things - do not remove this or risk form bot signups */ This work is licensed under a Creative Commons Attribution-ShareAlike 4.0 International License. Scroll to Top Skip to content The Authoritative Website The Authoritative Website Search Computers Sinclair Sinclair ZX80 Articles Books Hardware Software Sinclair ZX81 Articles Sinclair QL Hardware Software Cambridge Z88 Timex Timex/Sinclair 1000 Articles Books Hardware Software Downloadable Software Timex/Sinclair 1500 Articles Timex/Sinclair 2068 Articles Books Hardware Reference and Technical Information Software Downloadable Software Other MicroAce Hardware Articles Software Books Lambda 8300 Downloadable Software ZX81/TS-1000 TS-2068 Publications Books Periodicals Documents Companies Sinclair Timex View All Products Hardware Software Accessories & Miscellaneous Community Online User Group User Groups People Events About What’s New? How You Can Help Shop Privacy Policy Blog Log in Sign upSign up Home » Computer Media » Message Center Search Computers Sinclair Sinclair ZX80 Articles Books Hardware Software Sinclair ZX81 Articles Sinclair QL Hardware Software Cambridge Z88 Timex Timex/Sinclair 1000 Articles Books Hardware Software Downloadable Software Timex/Sinclair 1500 Articles Timex/Sinclair 2068 Articles Books Hardware Reference and Technical Information Software Downloadable Software Other MicroAce Hardware Articles Software Books Lambda 8300 Downloadable Software ZX81/TS-1000 TS-2068 Publications Books Periodicals Documents Companies Sinclair Timex View All Products Hardware Software Accessories & Miscellaneous Community Online User Group User Groups People Events About What’s New? How You Can Help Shop Privacy Policy Blog Message Center S & S Company, The Products: Message Center Date: 198X Type: Cassette Platform(s): TS 1000 Billboard, Horizontal Scroll, Verti-Scroll. Content Appears On Related Products Message Center Three message screen scrolling routines: Billboard, Horizontal Scroll, Verti-Scroll. Related Articles Related Content Image Gallery Source Code 10 REM \C1\1F\2A\82\40\26\00\29\29\29\11\01\1E\19\22\82\40\3E\7F\32\AF\40\06\08\C5\2A\0C\40\11\A4\00\19\ED\5B\82\40\06\06\C5\01\21\00\00\1A\CB\67\28\07\36\80\09\36\00\18\05\36\00\09\36\00\13\C1\10\E6\3A\AF\40\D6\08\32\AF\40\CD\D1\40\C1\10\CA\C9\2A\0C\40\06\16\C5\23\54\5D\23\01\1F\00\ED\B0\C1\10\F3\C9 11 REM % % %B%I%L%L%-%B%O%A%R%D% % % %B%Y% %G%E%N%E% %B%U%Z%A% % % % % % % %O%F% % % % % % %S%Y%N%C%H%R%O%-%S%E%T%T%E% 20 LET CS=0 30 PRINT AT 10,8;"SPEED (0 TO 9)?" 40 LET S$=INKEY$ 45 IF CODE S$=43 THEN LET CS=1 50 IF CODE S$<28 OR CODE S$>37 THEN GOTO 40 60 LET S=30-3*VAL S$ 65 LET A$=A$+" " 70 CLS 100 FOR I=1 TO LEN A$ 110 POKE 16514,CODE A$(I) 120 LET X=USR 16516 122 IF INKEY$="C" THEN LET CS=0 125 IF CS=1 THEN NEXT I 130 PRINT AT 1,2;" % %B%I%L%L%-%B%O%A%R%D% ";AT 20,0;" % %F%R%O%M% %S%Y%N%C%H%R%O%-%S%E%T%T%E% " 150 FOR N=1 TO S 160 NEXT N 162 LET S$=INKEY$ 163 IF S$="C" THEN GOTO 180 164 IF S$="S" THEN GOTO 400 165 IF S$="L" THEN GOTO 500 166 IF S$="F" THEN GOTO 600 167 IF CODE S$=225 THEN GOTO 1000 168 IF CODE S$>27 AND CODE S$<38 THEN GOTO 300 170 IF S$<>"" THEN GOTO 200 180 NEXT I 190 GOTO 100 200 CLS 210 PRINT AT 20,0;"ENTER YOUR MESSAGE" 220 INPUT A$ 240 GOTO 30 300 LET S=30-3*VAL S$ 310 GOTO 180 400 POKE 16556,0 410 POKE 16566,0 420 GOTO 180 500 POKE 16556,9 510 POKE 16566,128 520 GOTO 180 600 LET CS=1 610 GOTO 180 1000 CLS 1010 PRINT AT 10,0;"INPUT FILE NAME, PREPARE THE RECORDER AND PRESS ENTER :::" 1020 INPUT Z$ 1030 CLS 1040 SAVE Z$ 1050 GOTO 70 ------ 1000 PRINT AT 10,0;"INPUT YOUR MESSAGE :::" 1010 INPUT A$ 1020 PRINT AT 12,0;"FOR LEFT TO RIGHT PRESS <L>","FOR RIGHT TO LFT PRESS <R>" 1030 PAUSE 40000 1040 LET C$=INKEY$ 1060 DIM B$(32) 1070 LET A$=B$+A$ 1080 CLS 1090 PRINT AT 10,0;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':\: \ :\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:";AT 2,9;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\':";AT 3,9;"\: SYNCHRO-SETTE\ :";AT 4,9;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\.:";AT 19,7;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':";AT 20,7;"\: SCROLLING PROGRAM\ :";AT 21,7;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:" 2000 PRINT AT 11,1;A$( TO 30) 2010 IF INKEY$="" THEN GOTO 2070 2020 IF INKEY$="S" THEN GOTO 4000 2030 IF INKEY$="P" THEN GOSUB 5000 2040 IF INKEY$="L" THEN LET C$="L" 2050 IF INKEY$="R" THEN LET C$="R" 2060 IF INKEY$="M" THEN GOTO 6000 2070 GOSUB 2500 2080 GOTO 2000 2500 IF C$="L" THEN LET A$=A$(2 TO LEN A$)+A$(1) 2510 IF C$="R" THEN LET A$=A$(LEN A$)+A$( TO LEN A$-1) 2520 RETURN 4000 CLS 4010 PRINT AT 16,0;"ENTER NAME OF FILE TO BE SAVED AND THEN PRESS ENTER ::" 4020 INPUT F$ 4030 PRINT AT 16,0;B$+B$ 4040 SAVE F$ 4050 GOTO 1080 5000 IF INKEY$<>"R" THEN GOTO 5000 5010 RETURN 6000 CLS 6010 RUN ----- 10 DIM B$(22) 20 CLS 30 PRINT AT 10,0;"INPUT YOUR MESSAGE :::" 40 INPUT A$ 50 LET C$=" SYNCHRO-SETTE" 60 LET D$=" VERTI-SCROLL " 70 LET A$=A$+B$ 100 CLS 110 LET N=13 120 FOR I=21 TO 0 STEP -1 130 PRINT AT I,4;C$(I+1);AT I,N;"% % ";AT I,27;D$(I+1) 140 NEXT I 200 FOR N=1 TO LEN A$ 210 PRINT AT 21,13;"% ";A$(N);" % " 220 IF INKEY$="" THEN GOTO 270 230 IF INKEY$="S" THEN GOTO 1000 240 IF INKEY$="P" THEN GOSUB 2000 250 IF INKEY$="M" THEN RUN 270 SCROLL 280 NEXT N 290 GOTO 200 1000 CLS 1010 PRINT AT 10,0;"INPUT THE FILE NAME, PREPARE THERECORDER AND PRESS ENTER :::" 1020 INPUT Z$ 1030 CLS 1040 SAVE Z$ 1050 GOTO 100 2000 PAUSE 40000 2010 IF INKEY$<>"R" THEN GOTO 2000 2020 RETURN Tags Archived Media, Downloadable, S & S Company, TS 1000 People No people associated with this content. Recent Posts Timex at K-MartApril 17, 2025 Exploring the Legacy of Timex Computer Corporation: Insights from Danny RossOctober 24, 2024 Real World Uses: Timex/Sinclair 2068May 16, 2024 “Made In Spain” ZX81 and TS1000 PCBsFebruary 23, 2024 How Did TS 2068 Users Make a Spectrum ROM?September 9, 2023 Support This Site Subscribe * indicates required Email Address * First Name Last Name Interests Send me your newsletter Send me Zoom meeting announcements /* real people should not fill this in and expect good things - do not remove this or risk form bot signups */ This work is licensed under a Creative Commons Attribution-ShareAlike 4.0 International License. Scroll to Top Skip to content The Authoritative Website The Authoritative Website Search Computers Sinclair Sinclair ZX80 Articles Books Hardware Software Sinclair ZX81 Articles Sinclair QL Hardware Software Cambridge Z88 Timex Timex/Sinclair 1000 Articles Books Hardware Software Downloadable Software Timex/Sinclair 1500 Articles Timex/Sinclair 2068 Articles Books Hardware Reference and Technical Information Software Downloadable Software Other MicroAce Hardware Articles Software Books Lambda 8300 Downloadable Software ZX81/TS-1000 TS-2068 Publications Books Periodicals Documents Companies Sinclair Timex View All Products Hardware Software Accessories & Miscellaneous Community Online User Group User Groups People Events About What’s New? How You Can Help Shop Privacy Policy Blog Log in Sign upSign up Home » Computer Media » Message Center Search Computers Sinclair Sinclair ZX80 Articles Books Hardware Software Sinclair ZX81 Articles Sinclair QL Hardware Software Cambridge Z88 Timex Timex/Sinclair 1000 Articles Books Hardware Software Downloadable Software Timex/Sinclair 1500 Articles Timex/Sinclair 2068 Articles Books Hardware Reference and Technical Information Software Downloadable Software Other MicroAce Hardware Articles Software Books Lambda 8300 Downloadable Software ZX81/TS-1000 TS-2068 Publications Books Periodicals Documents Companies Sinclair Timex View All Products Hardware Software Accessories & Miscellaneous Community Online User Group User Groups People Events About What’s New? How You Can Help Shop Privacy Policy Blog Message Center S & S Company, The Products: Message Center Date: 198X Type: Cassette Platform(s): TS 1000 Billboard, Horizontal Scroll, Verti-Scroll. Content Appears On Related Products Message Center Three message screen scrolling routines: Billboard, Horizontal Scroll, Verti-Scroll. Related Articles Related Content Image Gallery Source Code 10 REM \C1\1F\2A\82\40\26\00\29\29\29\11\01\1E\19\22\82\40\3E\7F\32\AF\40\06\08\C5\2A\0C\40\11\A4\00\19\ED\5B\82\40\06\06\C5\01\21\00\00\1A\CB\67\28\07\36\80\09\36\00\18\05\36\00\09\36\00\13\C1\10\E6\3A\AF\40\D6\08\32\AF\40\CD\D1\40\C1\10\CA\C9\2A\0C\40\06\16\C5\23\54\5D\23\01\1F\00\ED\B0\C1\10\F3\C9 11 REM % % %B%I%L%L%-%B%O%A%R%D% % % %B%Y% %G%E%N%E% %B%U%Z%A% % % % % % % %O%F% % % % % % %S%Y%N%C%H%R%O%-%S%E%T%T%E% 20 LET CS=0 30 PRINT AT 10,8;"SPEED (0 TO 9)?" 40 LET S$=INKEY$ 45 IF CODE S$=43 THEN LET CS=1 50 IF CODE S$<28 OR CODE S$>37 THEN GOTO 40 60 LET S=30-3*VAL S$ 65 LET A$=A$+" " 70 CLS 100 FOR I=1 TO LEN A$ 110 POKE 16514,CODE A$(I) 120 LET X=USR 16516 122 IF INKEY$="C" THEN LET CS=0 125 IF CS=1 THEN NEXT I 130 PRINT AT 1,2;" % %B%I%L%L%-%B%O%A%R%D% ";AT 20,0;" % %F%R%O%M% %S%Y%N%C%H%R%O%-%S%E%T%T%E% " 150 FOR N=1 TO S 160 NEXT N 162 LET S$=INKEY$ 163 IF S$="C" THEN GOTO 180 164 IF S$="S" THEN GOTO 400 165 IF S$="L" THEN GOTO 500 166 IF S$="F" THEN GOTO 600 167 IF CODE S$=225 THEN GOTO 1000 168 IF CODE S$>27 AND CODE S$<38 THEN GOTO 300 170 IF S$<>"" THEN GOTO 200 180 NEXT I 190 GOTO 100 200 CLS 210 PRINT AT 20,0;"ENTER YOUR MESSAGE" 220 INPUT A$ 240 GOTO 30 300 LET S=30-3*VAL S$ 310 GOTO 180 400 POKE 16556,0 410 POKE 16566,0 420 GOTO 180 500 POKE 16556,9 510 POKE 16566,128 520 GOTO 180 600 LET CS=1 610 GOTO 180 1000 CLS 1010 PRINT AT 10,0;"INPUT FILE NAME, PREPARE THE RECORDER AND PRESS ENTER :::" 1020 INPUT Z$ 1030 CLS 1040 SAVE Z$ 1050 GOTO 70 ------ 1000 PRINT AT 10,0;"INPUT YOUR MESSAGE :::" 1010 INPUT A$ 1020 PRINT AT 12,0;"FOR LEFT TO RIGHT PRESS <L>","FOR RIGHT TO LFT PRESS <R>" 1030 PAUSE 40000 1040 LET C$=INKEY$ 1060 DIM B$(32) 1070 LET A$=B$+A$ 1080 CLS 1090 PRINT AT 10,0;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':\: \ :\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:";AT 2,9;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\':";AT 3,9;"\: SYNCHRO-SETTE\ :";AT 4,9;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\.:";AT 19,7;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':";AT 20,7;"\: SCROLLING PROGRAM\ :";AT 21,7;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:" 2000 PRINT AT 11,1;A$( TO 30) 2010 IF INKEY$="" THEN GOTO 2070 2020 IF INKEY$="S" THEN GOTO 4000 2030 IF INKEY$="P" THEN GOSUB 5000 2040 IF INKEY$="L" THEN LET C$="L" 2050 IF INKEY$="R" THEN LET C$="R" 2060 IF INKEY$="M" THEN GOTO 6000 2070 GOSUB 2500 2080 GOTO 2000 2500 IF C$="L" THEN LET A$=A$(2 TO LEN A$)+A$(1) 2510 IF C$="R" THEN LET A$=A$(LEN A$)+A$( TO LEN A$-1) 2520 RETURN 4000 CLS 4010 PRINT AT 16,0;"ENTER NAME OF FILE TO BE SAVED AND THEN PRESS ENTER ::" 4020 INPUT F$ 4030 PRINT AT 16,0;B$+B$ 4040 SAVE F$ 4050 GOTO 1080 5000 IF INKEY$<>"R" THEN GOTO 5000 5010 RETURN 6000 CLS 6010 RUN ----- 10 DIM B$(22) 20 CLS 30 PRINT AT 10,0;"INPUT YOUR MESSAGE :::" 40 INPUT A$ 50 LET C$=" SYNCHRO-SETTE" 60 LET D$=" VERTI-SCROLL " 70 LET A$=A$+B$ 100 CLS 110 LET N=13 120 FOR I=21 TO 0 STEP -1 130 PRINT AT I,4;C$(I+1);AT I,N;"% % ";AT I,27;D$(I+1) 140 NEXT I 200 FOR N=1 TO LEN A$ 210 PRINT AT 21,13;"% ";A$(N);" % " 220 IF INKEY$="" THEN GOTO 270 230 IF INKEY$="S" THEN GOTO 1000 240 IF INKEY$="P" THEN GOSUB 2000 250 IF INKEY$="M" THEN RUN 270 SCROLL 280 NEXT N 290 GOTO 200 1000 CLS 1010 PRINT AT 10,0;"INPUT THE FILE NAME, PREPARE THERECORDER AND PRESS ENTER :::" 1020 INPUT Z$ 1030 CLS 1040 SAVE Z$ 1050 GOTO 100 2000 PAUSE 40000 2010 IF INKEY$<>"R" THEN GOTO 2000 2020 RETURN Tags Archived Media, Downloadable, S & S Company, TS 1000 People No people associated with this content. Recent Posts Timex at K-MartApril 17, 2025 Exploring the Legacy of Timex Computer Corporation: Insights from Danny RossOctober 24, 2024 Real World Uses: Timex/Sinclair 2068May 16, 2024 “Made In Spain” ZX81 and TS1000 PCBsFebruary 23, 2024 How Did TS 2068 Users Make a Spectrum ROM?September 9, 2023 Support This Site Subscribe * indicates required Email Address * First Name Last Name Interests Send me your newsletter Send me Zoom meeting announcements /* real people should not fill this in and expect good things - do not remove this or risk form bot signups */ This work is licensed under a Creative Commons Attribution-ShareAlike 4.0 International License. Scroll to Top \C1\E6A\AF\D6\AF\CD\D1\C1\CA\C9 Skip to content The Authoritative Website The Authoritative Website Search Computers Sinclair Sinclair ZX80 Articles Books Hardware Software Sinclair ZX81 Articles Sinclair QL Hardware Software Cambridge Z88 Timex Timex/Sinclair 1000 Articles Books Hardware Software Downloadable Software Timex/Sinclair 1500 Articles Timex/Sinclair 2068 Articles Books Hardware Reference and Technical Information Software Downloadable Software Other MicroAce Hardware Articles Software Books Lambda 8300 Downloadable Software ZX81/TS-1000 TS-2068 Publications Books Periodicals Documents Companies Sinclair Timex View All Products Hardware Software Accessories & Miscellaneous Community Online User Group User Groups People Events About What’s New? How You Can Help Shop Privacy Policy Blog Log in Sign upSign up Home » Computer Media » Message Center Search Computers Sinclair Sinclair ZX80 Articles Books Hardware Software Sinclair ZX81 Articles Sinclair QL Hardware Software Cambridge Z88 Timex Timex/Sinclair 1000 Articles Books Hardware Software Downloadable Software Timex/Sinclair 1500 Articles Timex/Sinclair 2068 Articles Books Hardware Reference and Technical Information Software Downloadable Software Other MicroAce Hardware Articles Software Books Lambda 8300 Downloadable Software ZX81/TS-1000 TS-2068 Publications Books Periodicals Documents Companies Sinclair Timex View All Products Hardware Software Accessories & Miscellaneous Community Online User Group User Groups People Events About What’s New? How You Can Help Shop Privacy Policy Blog Message Center S & S Company, The Products: Message Center Date: 198X Type: Cassette Platform(s): TS 1000 Billboard, Horizontal Scroll, Verti-Scroll. Content Appears On Related Products Message Center Three message screen scrolling routines: Billboard, Horizontal Scroll, Verti-Scroll. Related Articles Related Content Image Gallery Source Code 10 REM \C1\1F\2A\82\40\26\00\29\29\29\11\01\1E\19\22\82\40\3E\7F\32\AF\40\06\08\C5\2A\0C\40\11\A4\00\19\ED\5B\82\40\06\06\C5\01\21\00\00\1A\CB\67\28\07\36\80\09\36\00\18\05\36\00\09\36\00\13\C1\10\E6\3A\AF\40\D6\08\32\AF\40\CD\D1\40\C1\10\CA\C9\2A\0C\40\06\16\C5\23\54\5D\23\01\1F\00\ED\B0\C1\10\F3\C9 11 REM % % %B%I%L%L%-%B%O%A%R%D% % % %B%Y% %G%E%N%E% %B%U%Z%A% % % % % % % %O%F% % % % % % %S%Y%N%C%H%R%O%-%S%E%T%T%E% 20 LET CS=0 30 PRINT AT 10,8;"SPEED (0 TO 9)?" 40 LET S$=INKEY$ 45 IF CODE S$=43 THEN LET CS=1 50 IF CODE S$<28 OR CODE S$>37 THEN GOTO 40 60 LET S=30-3*VAL S$ 65 LET A$=A$+" " 70 CLS 100 FOR I=1 TO LEN A$ 110 POKE 16514,CODE A$(I) 120 LET X=USR 16516 122 IF INKEY$="C" THEN LET CS=0 125 IF CS=1 THEN NEXT I 130 PRINT AT 1,2;" % %B%I%L%L%-%B%O%A%R%D% ";AT 20,0;" % %F%R%O%M% %S%Y%N%C%H%R%O%-%S%E%T%T%E% " 150 FOR N=1 TO S 160 NEXT N 162 LET S$=INKEY$ 163 IF S$="C" THEN GOTO 180 164 IF S$="S" THEN GOTO 400 165 IF S$="L" THEN GOTO 500 166 IF S$="F" THEN GOTO 600 167 IF CODE S$=225 THEN GOTO 1000 168 IF CODE S$>27 AND CODE S$<38 THEN GOTO 300 170 IF S$<>"" THEN GOTO 200 180 NEXT I 190 GOTO 100 200 CLS 210 PRINT AT 20,0;"ENTER YOUR MESSAGE" 220 INPUT A$ 240 GOTO 30 300 LET S=30-3*VAL S$ 310 GOTO 180 400 POKE 16556,0 410 POKE 16566,0 420 GOTO 180 500 POKE 16556,9 510 POKE 16566,128 520 GOTO 180 600 LET CS=1 610 GOTO 180 1000 CLS 1010 PRINT AT 10,0;"INPUT FILE NAME, PREPARE THE RECORDER AND PRESS ENTER :::" 1020 INPUT Z$ 1030 CLS 1040 SAVE Z$ 1050 GOTO 70 ------ 1000 PRINT AT 10,0;"INPUT YOUR MESSAGE :::" 1010 INPUT A$ 1020 PRINT AT 12,0;"FOR LEFT TO RIGHT PRESS <L>","FOR RIGHT TO LFT PRESS <R>" 1030 PAUSE 40000 1040 LET C$=INKEY$ 1060 DIM B$(32) 1070 LET A$=B$+A$ 1080 CLS 1090 PRINT AT 10,0;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':\: \ :\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:";AT 2,9;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\':";AT 3,9;"\: SYNCHRO-SETTE\ :";AT 4,9;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\.:";AT 19,7;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':";AT 20,7;"\: SCROLLING PROGRAM\ :";AT 21,7;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:" 2000 PRINT AT 11,1;A$( TO 30) 2010 IF INKEY$="" THEN GOTO 2070 2020 IF INKEY$="S" THEN GOTO 4000 2030 IF INKEY$="P" THEN GOSUB 5000 2040 IF INKEY$="L" THEN LET C$="L" 2050 IF INKEY$="R" THEN LET C$="R" 2060 IF INKEY$="M" THEN GOTO 6000 2070 GOSUB 2500 2080 GOTO 2000 2500 IF C$="L" THEN LET A$=A$(2 TO LEN A$)+A$(1) 2510 IF C$="R" THEN LET A$=A$(LEN A$)+A$( TO LEN A$-1) 2520 RETURN 4000 CLS 4010 PRINT AT 16,0;"ENTER NAME OF FILE TO BE SAVED AND THEN PRESS ENTER ::" 4020 INPUT F$ 4030 PRINT AT 16,0;B$+B$ 4040 SAVE F$ 4050 GOTO 1080 5000 IF INKEY$<>"R" THEN GOTO 5000 5010 RETURN 6000 CLS 6010 RUN ----- 10 DIM B$(22) 20 CLS 30 PRINT AT 10,0;"INPUT YOUR MESSAGE :::" 40 INPUT A$ 50 LET C$=" SYNCHRO-SETTE" 60 LET D$=" VERTI-SCROLL " 70 LET A$=A$+B$ 100 CLS 110 LET N=13 120 FOR I=21 TO 0 STEP -1 130 PRINT AT I,4;C$(I+1);AT I,N;"% % ";AT I,27;D$(I+1) 140 NEXT I 200 FOR N=1 TO LEN A$ 210 PRINT AT 21,13;"% ";A$(N);" % " 220 IF INKEY$="" THEN GOTO 270 230 IF INKEY$="S" THEN GOTO 1000 240 IF INKEY$="P" THEN GOSUB 2000 250 IF INKEY$="M" THEN RUN 270 SCROLL 280 NEXT N 290 GOTO 200 1000 CLS 1010 PRINT AT 10,0;"INPUT THE FILE NAME, PREPARE THERECORDER AND PRESS ENTER :::" 1020 INPUT Z$ 1030 CLS 1040 SAVE Z$ 1050 GOTO 100 2000 PAUSE 40000 2010 IF INKEY$<>"R" THEN GOTO 2000 2020 RETURN Tags Archived Media, Downloadable, S & S Company, TS 1000 People No people associated with this content. Recent Posts Timex at K-MartApril 17, 2025 Exploring the Legacy of Timex Computer Corporation: Insights from Danny RossOctober 24, 2024 Real World Uses: Timex/Sinclair 2068May 16, 2024 “Made In Spain” ZX81 and TS1000 PCBsFebruary 23, 2024 How Did TS 2068 Users Make a Spectrum ROM?September 9, 2023 Support This Site Subscribe * indicates required Email Address * First Name Last Name Interests Send me your newsletter Send me Zoom meeting announcements /* real people should not fill this in and expect good things - do not remove this or risk form bot signups */ This work is licensed under a Creative Commons Attribution-ShareAlike 4.0 International License. Scroll to Top A Skip to content The Authoritative Website The Authoritative Website Search Computers Sinclair Sinclair ZX80 Articles Books Hardware Software Sinclair ZX81 Articles Sinclair QL Hardware Software Cambridge Z88 Timex Timex/Sinclair 1000 Articles Books Hardware Software Downloadable Software Timex/Sinclair 1500 Articles Timex/Sinclair 2068 Articles Books Hardware Reference and Technical Information Software Downloadable Software Other MicroAce Hardware Articles Software Books Lambda 8300 Downloadable Software ZX81/TS-1000 TS-2068 Publications Books Periodicals Documents Companies Sinclair Timex View All Products Hardware Software Accessories & Miscellaneous Community Online User Group User Groups People Events About What’s New? How You Can Help Shop Privacy Policy Blog Log in Sign upSign up Home » Computer Media » Message Center Search Computers Sinclair Sinclair ZX80 Articles Books Hardware Software Sinclair ZX81 Articles Sinclair QL Hardware Software Cambridge Z88 Timex Timex/Sinclair 1000 Articles Books Hardware Software Downloadable Software Timex/Sinclair 1500 Articles Timex/Sinclair 2068 Articles Books Hardware Reference and Technical Information Software Downloadable Software Other MicroAce Hardware Articles Software Books Lambda 8300 Downloadable Software ZX81/TS-1000 TS-2068 Publications Books Periodicals Documents Companies Sinclair Timex View All Products Hardware Software Accessories & Miscellaneous Community Online User Group User Groups People Events About What’s New? How You Can Help Shop Privacy Policy Blog Message Center S & S Company, The Products: Message Center Date: 198X Type: Cassette Platform(s): TS 1000 Billboard, Horizontal Scroll, Verti-Scroll. Content Appears On Related Products Message Center Three message screen scrolling routines: Billboard, Horizontal Scroll, Verti-Scroll. Related Articles Related Content Image Gallery Source Code 10 REM \C1\1F\2A\82\40\26\00\29\29\29\11\01\1E\19\22\82\40\3E\7F\32\AF\40\06\08\C5\2A\0C\40\11\A4\00\19\ED\5B\82\40\06\06\C5\01\21\00\00\1A\CB\67\28\07\36\80\09\36\00\18\05\36\00\09\36\00\13\C1\10\E6\3A\AF\40\D6\08\32\AF\40\CD\D1\40\C1\10\CA\C9\2A\0C\40\06\16\C5\23\54\5D\23\01\1F\00\ED\B0\C1\10\F3\C9 11 REM % % %B%I%L%L%-%B%O%A%R%D% % % %B%Y% %G%E%N%E% %B%U%Z%A% % % % % % % %O%F% % % % % % %S%Y%N%C%H%R%O%-%S%E%T%T%E% 20 LET CS=0 30 PRINT AT 10,8;"SPEED (0 TO 9)?" 40 LET S$=INKEY$ 45 IF CODE S$=43 THEN LET CS=1 50 IF CODE S$<28 OR CODE S$>37 THEN GOTO 40 60 LET S=30-3*VAL S$ 65 LET A$=A$+" " 70 CLS 100 FOR I=1 TO LEN A$ 110 POKE 16514,CODE A$(I) 120 LET X=USR 16516 122 IF INKEY$="C" THEN LET CS=0 125 IF CS=1 THEN NEXT I 130 PRINT AT 1,2;" % %B%I%L%L%-%B%O%A%R%D% ";AT 20,0;" % %F%R%O%M% %S%Y%N%C%H%R%O%-%S%E%T%T%E% " 150 FOR N=1 TO S 160 NEXT N 162 LET S$=INKEY$ 163 IF S$="C" THEN GOTO 180 164 IF S$="S" THEN GOTO 400 165 IF S$="L" THEN GOTO 500 166 IF S$="F" THEN GOTO 600 167 IF CODE S$=225 THEN GOTO 1000 168 IF CODE S$>27 AND CODE S$<38 THEN GOTO 300 170 IF S$<>"" THEN GOTO 200 180 NEXT I 190 GOTO 100 200 CLS 210 PRINT AT 20,0;"ENTER YOUR MESSAGE" 220 INPUT A$ 240 GOTO 30 300 LET S=30-3*VAL S$ 310 GOTO 180 400 POKE 16556,0 410 POKE 16566,0 420 GOTO 180 500 POKE 16556,9 510 POKE 16566,128 520 GOTO 180 600 LET CS=1 610 GOTO 180 1000 CLS 1010 PRINT AT 10,0;"INPUT FILE NAME, PREPARE THE RECORDER AND PRESS ENTER :::" 1020 INPUT Z$ 1030 CLS 1040 SAVE Z$ 1050 GOTO 70 ------ 1000 PRINT AT 10,0;"INPUT YOUR MESSAGE :::" 1010 INPUT A$ 1020 PRINT AT 12,0;"FOR LEFT TO RIGHT PRESS <L>","FOR RIGHT TO LFT PRESS <R>" 1030 PAUSE 40000 1040 LET C$=INKEY$ 1060 DIM B$(32) 1070 LET A$=B$+A$ 1080 CLS 1090 PRINT AT 10,0;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':\: \ :\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:";AT 2,9;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\':";AT 3,9;"\: SYNCHRO-SETTE\ :";AT 4,9;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\.:";AT 19,7;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':";AT 20,7;"\: SCROLLING PROGRAM\ :";AT 21,7;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:" 2000 PRINT AT 11,1;A$( TO 30) 2010 IF INKEY$="" THEN GOTO 2070 2020 IF INKEY$="S" THEN GOTO 4000 2030 IF INKEY$="P" THEN GOSUB 5000 2040 IF INKEY$="L" THEN LET C$="L" 2050 IF INKEY$="R" THEN LET C$="R" 2060 IF INKEY$="M" THEN GOTO 6000 2070 GOSUB 2500 2080 GOTO 2000 2500 IF C$="L" THEN LET A$=A$(2 TO LEN A$)+A$(1) 2510 IF C$="R" THEN LET A$=A$(LEN A$)+A$( TO LEN A$-1) 2520 RETURN 4000 CLS 4010 PRINT AT 16,0;"ENTER NAME OF FILE TO BE SAVED AND THEN PRESS ENTER ::" 4020 INPUT F$ 4030 PRINT AT 16,0;B$+B$ 4040 SAVE F$ 4050 GOTO 1080 5000 IF INKEY$<>"R" THEN GOTO 5000 5010 RETURN 6000 CLS 6010 RUN ----- 10 DIM B$(22) 20 CLS 30 PRINT AT 10,0;"INPUT YOUR MESSAGE :::" 40 INPUT A$ 50 LET C$=" SYNCHRO-SETTE" 60 LET D$=" VERTI-SCROLL " 70 LET A$=A$+B$ 100 CLS 110 LET N=13 120 FOR I=21 TO 0 STEP -1 130 PRINT AT I,4;C$(I+1);AT I,N;"% % ";AT I,27;D$(I+1) 140 NEXT I 200 FOR N=1 TO LEN A$ 210 PRINT AT 21,13;"% ";A$(N);" % " 220 IF INKEY$="" THEN GOTO 270 230 IF INKEY$="S" THEN GOTO 1000 240 IF INKEY$="P" THEN GOSUB 2000 250 IF INKEY$="M" THEN RUN 270 SCROLL 280 NEXT N 290 GOTO 200 1000 CLS 1010 PRINT AT 10,0;"INPUT THE FILE NAME, PREPARE THERECORDER AND PRESS ENTER :::" 1020 INPUT Z$ 1030 CLS 1040 SAVE Z$ 1050 GOTO 100 2000 PAUSE 40000 2010 IF INKEY$<>"R" THEN GOTO 2000 2020 RETURN Tags Archived Media, Downloadable, S & S Company, TS 1000 People No people associated with this content. Recent Posts Timex at K-MartApril 17, 2025 Exploring the Legacy of Timex Computer Corporation: Insights from Danny RossOctober 24, 2024 Real World Uses: Timex/Sinclair 2068May 16, 2024 “Made In Spain” ZX81 and TS1000 PCBsFebruary 23, 2024 How Did TS 2068 Users Make a Spectrum ROM?September 9, 2023 Support This Site Subscribe * indicates required Email Address * First Name Last Name Interests Send me your newsletter Send me Zoom meeting announcements /* real people should not fill this in and expect good things - do not remove this or risk form bot signups */ This work is licensed under a Creative Commons Attribution-ShareAlike 4.0 International License. Scroll to Top C\C5D itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56665 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0" itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56665 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"F Skip to content The Authoritative Website The Authoritative Website Search Computers Sinclair Sinclair ZX80 Articles Books Hardware Software Sinclair ZX81 Articles Sinclair QL Hardware Software Cambridge Z88 Timex Timex/Sinclair 1000 Articles Books Hardware Software Downloadable Software Timex/Sinclair 1500 Articles Timex/Sinclair 2068 Articles Books Hardware Reference and Technical Information Software Downloadable Software Other MicroAce Hardware Articles Software Books Lambda 8300 Downloadable Software ZX81/TS-1000 TS-2068 Publications Books Periodicals Documents Companies Sinclair Timex View All Products Hardware Software Accessories & Miscellaneous Community Online User Group User Groups People Events About What’s New? How You Can Help Shop Privacy Policy Blog Log in Sign upSign up Home » Computer Media » Message Center Search Computers Sinclair Sinclair ZX80 Articles Books Hardware Software Sinclair ZX81 Articles Sinclair QL Hardware Software Cambridge Z88 Timex Timex/Sinclair 1000 Articles Books Hardware Software Downloadable Software Timex/Sinclair 1500 Articles Timex/Sinclair 2068 Articles Books Hardware Reference and Technical Information Software Downloadable Software Other MicroAce Hardware Articles Software Books Lambda 8300 Downloadable Software ZX81/TS-1000 TS-2068 Publications Books Periodicals Documents Companies Sinclair Timex View All Products Hardware Software Accessories & Miscellaneous Community Online User Group User Groups People Events About What’s New? How You Can Help Shop Privacy Policy Blog Message Center S & S Company, The Products: Message Center Date: 198X Type: Cassette Platform(s): TS 1000 Billboard, Horizontal Scroll, Verti-Scroll. Content Appears On Related Products Message Center Three message screen scrolling routines: Billboard, Horizontal Scroll, Verti-Scroll. Related Articles Related Content Image Gallery Source Code 10 REM \C1\1F\2A\82\40\26\00\29\29\29\11\01\1E\19\22\82\40\3E\7F\32\AF\40\06\08\C5\2A\0C\40\11\A4\00\19\ED\5B\82\40\06\06\C5\01\21\00\00\1A\CB\67\28\07\36\80\09\36\00\18\05\36\00\09\36\00\13\C1\10\E6\3A\AF\40\D6\08\32\AF\40\CD\D1\40\C1\10\CA\C9\2A\0C\40\06\16\C5\23\54\5D\23\01\1F\00\ED\B0\C1\10\F3\C9 11 REM % % %B%I%L%L%-%B%O%A%R%D% % % %B%Y% %G%E%N%E% %B%U%Z%A% % % % % % % %O%F% % % % % % %S%Y%N%C%H%R%O%-%S%E%T%T%E% 20 LET CS=0 30 PRINT AT 10,8;"SPEED (0 TO 9)?" 40 LET S$=INKEY$ 45 IF CODE S$=43 THEN LET CS=1 50 IF CODE S$<28 OR CODE S$>37 THEN GOTO 40 60 LET S=30-3*VAL S$ 65 LET A$=A$+" " 70 CLS 100 FOR I=1 TO LEN A$ 110 POKE 16514,CODE A$(I) 120 LET X=USR 16516 122 IF INKEY$="C" THEN LET CS=0 125 IF CS=1 THEN NEXT I 130 PRINT AT 1,2;" % %B%I%L%L%-%B%O%A%R%D% ";AT 20,0;" % %F%R%O%M% %S%Y%N%C%H%R%O%-%S%E%T%T%E% " 150 FOR N=1 TO S 160 NEXT N 162 LET S$=INKEY$ 163 IF S$="C" THEN GOTO 180 164 IF S$="S" THEN GOTO 400 165 IF S$="L" THEN GOTO 500 166 IF S$="F" THEN GOTO 600 167 IF CODE S$=225 THEN GOTO 1000 168 IF CODE S$>27 AND CODE S$<38 THEN GOTO 300 170 IF S$<>"" THEN GOTO 200 180 NEXT I 190 GOTO 100 200 CLS 210 PRINT AT 20,0;"ENTER YOUR MESSAGE" 220 INPUT A$ 240 GOTO 30 300 LET S=30-3*VAL S$ 310 GOTO 180 400 POKE 16556,0 410 POKE 16566,0 420 GOTO 180 500 POKE 16556,9 510 POKE 16566,128 520 GOTO 180 600 LET CS=1 610 GOTO 180 1000 CLS 1010 PRINT AT 10,0;"INPUT FILE NAME, PREPARE THE RECORDER AND PRESS ENTER :::" 1020 INPUT Z$ 1030 CLS 1040 SAVE Z$ 1050 GOTO 70 ------ 1000 PRINT AT 10,0;"INPUT YOUR MESSAGE :::" 1010 INPUT A$ 1020 PRINT AT 12,0;"FOR LEFT TO RIGHT PRESS <L>","FOR RIGHT TO LFT PRESS <R>" 1030 PAUSE 40000 1040 LET C$=INKEY$ 1060 DIM B$(32) 1070 LET A$=B$+A$ 1080 CLS 1090 PRINT AT 10,0;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':\: \ :\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:";AT 2,9;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\':";AT 3,9;"\: SYNCHRO-SETTE\ :";AT 4,9;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\.:";AT 19,7;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':";AT 20,7;"\: SCROLLING PROGRAM\ :";AT 21,7;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:" 2000 PRINT AT 11,1;A$( TO 30) 2010 IF INKEY$="" THEN GOTO 2070 2020 IF INKEY$="S" THEN GOTO 4000 2030 IF INKEY$="P" THEN GOSUB 5000 2040 IF INKEY$="L" THEN LET C$="L" 2050 IF INKEY$="R" THEN LET C$="R" 2060 IF INKEY$="M" THEN GOTO 6000 2070 GOSUB 2500 2080 GOTO 2000 2500 IF C$="L" THEN LET A$=A$(2 TO LEN A$)+A$(1) 2510 IF C$="R" THEN LET A$=A$(LEN A$)+A$( TO LEN A$-1) 2520 RETURN 4000 CLS 4010 PRINT AT 16,0;"ENTER NAME OF FILE TO BE SAVED AND THEN PRESS ENTER ::" 4020 INPUT F$ 4030 PRINT AT 16,0;B$+B$ 4040 SAVE F$ 4050 GOTO 1080 5000 IF INKEY$<>"R" THEN GOTO 5000 5010 RETURN 6000 CLS 6010 RUN ----- 10 DIM B$(22) 20 CLS 30 PRINT AT 10,0;"INPUT YOUR MESSAGE :::" 40 INPUT A$ 50 LET C$=" SYNCHRO-SETTE" 60 LET D$=" VERTI-SCROLL " 70 LET A$=A$+B$ 100 CLS 110 LET N=13 120 FOR I=21 TO 0 STEP -1 130 PRINT AT I,4;C$(I+1);AT I,N;"% % ";AT I,27;D$(I+1) 140 NEXT I 200 FOR N=1 TO LEN A$ 210 PRINT AT 21,13;"% ";A$(N);" % " 220 IF INKEY$="" THEN GOTO 270 230 IF INKEY$="S" THEN GOTO 1000 240 IF INKEY$="P" THEN GOSUB 2000 250 IF INKEY$="M" THEN RUN 270 SCROLL 280 NEXT N 290 GOTO 200 1000 CLS 1010 PRINT AT 10,0;"INPUT THE FILE NAME, PREPARE THERECORDER AND PRESS ENTER :::" 1020 INPUT Z$ 1030 CLS 1040 SAVE Z$ 1050 GOTO 100 2000 PAUSE 40000 2010 IF INKEY$<>"R" THEN GOTO 2000 2020 RETURN Tags Archived Media, Downloadable, S & S Company, TS 1000 People No people associated with this content. Recent Posts Timex at K-MartApril 17, 2025 Exploring the Legacy of Timex Computer Corporation: Insights from Danny RossOctober 24, 2024 Real World Uses: Timex/Sinclair 2068May 16, 2024 “Made In Spain” ZX81 and TS1000 PCBsFebruary 23, 2024 How Did TS 2068 Users Make a Spectrum ROM?September 9, 2023 Support This Site Subscribe * indicates required Email Address * First Name Last Name Interests Send me your newsletter Send me Zoom meeting announcements /* real people should not fill this in and expect good things - do not remove this or risk form bot signups */ This work is licensed under a Creative Commons Attribution-ShareAlike 4.0 International License. Scroll to Top \ED\B0\C1\F3\C9 11 REM % % %B%I%L%L%-%B%O%A%R%D% % % %B%Y% %G%E%N%E% %B%U%Z%A% % % % % % % %O%F% % % % % % %S%Y%N%C%H%R%O%-%S%E%T%T%E% 20 LET CS=0 30 PRINT AT 10,8;"SPEED (0 TO 9)?" 40 LET S$=INKEY$ 45 IF CODE S$=43 THEN LET CS=1 50 IF CODE S$<28 OR CODE S$>37 THEN GOTO 40 60 LET S=30-3*VAL S$ 65 LET A$=A$+" " 70 CLS 100 FOR I=1 TO LEN A$ 110 POKE 16514,CODE A$(I) 120 LET X=USR 16516 122 IF INKEY$="C" THEN LET CS=0 125 IF CS=1 THEN NEXT I 130 PRINT AT 1,2;" % %B%I%L%L%-%B%O%A%R%D% ";AT 20,0;" % %F%R%O%M% %S%Y%N%C%H%R%O%-%S%E%T%T%E% " 150 FOR N=1 TO S 160 NEXT N 162 LET S$=INKEY$ 163 IF S$="C" THEN GOTO 180 164 IF S$="S" THEN GOTO 400 165 IF S$="L" THEN GOTO 500 166 IF S$="F" THEN GOTO 600 167 IF CODE S$=225 THEN GOTO 1000 168 IF CODE S$>27 AND CODE S$<38 THEN GOTO 300 170 IF S$<>"" THEN GOTO 200 180 NEXT I 190 GOTO 100 200 CLS 210 PRINT AT 20,0;"ENTER YOUR MESSAGE" 220 INPUT A$ 240 GOTO 30 300 LET S=30-3*VAL S$ 310 GOTO 180 400 POKE 16556,0 410 POKE 16566,0 420 GOTO 180 500 POKE 16556,9 510 POKE 16566,128 520 GOTO 180 600 LET CS=1 610 GOTO 180 \n1000 CLS \n1010 PRINT AT 10,0;"INPUT FILE NAME, PREPARE THE RECORDER AND PRESS ENTER :::" \n1020 INPUT Z$ \n1030 CLS \n1040 SAVE Z$ \n1050 GOTO 70 ------ \n1000 PRINT AT 10,0;"INPUT YOUR MESSAGE :::" \n1010 INPUT A$ \n1020 PRINT AT 12,0;"FOR LEFT TO RIGHT PRESS <L>","FOR RIGHT TO LFT PRESS <R>" \n1030 PAUSE 40000 \n1040 LET C$=INKEY$ \n1060 DIM B$(32) \n1070 LET A$=B$+A$ \n1080 CLS \n1090 PRINT AT 10,0;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':\: \ :\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:";AT 2,9;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\':";AT 3,9;"\: SYNCHRO-SETTE\ :";AT 4,9;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\.:";AT 19,7;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':";AT 20,7;"\: SCROLLING PROGRAM\ :";AT 21,7;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:" \n2000 PRINT AT 11,1;A$( TO 30) \n2010 IF INKEY$="" THEN GOTO 2070 \n2020 IF INKEY$="S" THEN GOTO 4000 \n2030 IF INKEY$="P" THEN GOSUB 5000 \n2040 IF INKEY$="L" THEN LET C$="L" \n2050 IF INKEY$="R" THEN LET C$="R" \n2060 IF INKEY$="M" THEN GOTO 6000 \n2070 GOSUB 2500 \n2080 GOTO 2000 \n2500 IF C$="L" THEN LET A$=A$(2 TO LEN A$)+A$(1) \n2510 IF C$="R" THEN LET A$=A$(LEN A$)+A$( TO LEN A$-1) \n2520 RETURN \n4000 CLS \n4010 PRINT AT 16,0;"ENTER NAME OF FILE TO BE SAVED AND THEN PRESS ENTER ::" \n4020 INPUT F$ \n4030 PRINT AT 16,0;B$+B$ \n4040 SAVE F$ \n4050 GOTO 1080 \n5000 IF INKEY$<>"R" THEN GOTO 5000 \n5010 RETURN \n6000 CLS \n6010 RUN ----- 10 DIM B$(22) 20 CLS 30 PRINT AT 10,0;"INPUT YOUR MESSAGE :::" 40 INPUT A$ 50 LET C$=" SYNCHRO-SETTE" 60 LET D$=" VERTI-SCROLL " 70 LET A$=A$+B$ 100 CLS 110 LET N=13 120 FOR I=21 TO 0 STEP -1 130 PRINT AT I,4;C$(I+1);AT I,N;"% % ";AT I,27;D$(I+1) 140 NEXT I 200 FOR N=1 TO LEN A$ 210 PRINT AT 21,13;"% ";A$(N);" % " 220 IF INKEY$="" THEN GOTO 270 230 IF INKEY$="S" THEN GOTO 1000 240 IF INKEY$="P" THEN GOSUB 2000 250 IF INKEY$="M" THEN RUN 270 SCROLL 280 NEXT N 290 GOTO 200 \n1000 CLS \n1010 PRINT AT 10,0;"INPUT THE FILE NAME, PREPARE THERECORDER AND PRESS ENTER :::" \n1020 INPUT Z$ \n1030 CLS \n1040 SAVE Z$ \n1050 GOTO 100 \n2000 PAUSE 40000 \n2010 IF INKEY$<>"R" THEN GOTO 2000 \n2020 RETURN