Billboard, Horizontal Scroll, Verti-Scroll.
Content
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.11.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.11.0"F
Skip to content
Message Center
Billboard, Horizontal Scroll, Verti-Scroll.
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
People
No people associated with this content.
A
Skip to content
Message Center
Billboard, Horizontal Scroll, Verti-Scroll.
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
People
No people associated with this content.
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.11.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.11.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.11.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.11.0"EEF\AF\C5
Skip to content
Message Center
Billboard, Horizontal Scroll, Verti-Scroll.
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
People
No people associated with this content.
A
Skip to content
Message Center
Billboard, Horizontal Scroll, Verti-Scroll.
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
People
No people associated with this content.
C\A4
Skip to content
Message Center
Billboard, Horizontal Scroll, Verti-Scroll.
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
People
No people associated with this content.
\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.11.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.11.0"
Skip to content
Message Center
Billboard, Horizontal Scroll, Verti-Scroll.
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
People
No people associated with this content.
Skip to content
Message Center
Billboard, Horizontal Scroll, Verti-Scroll.
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
People
No people associated with this content.
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.11.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.11.0"A\CB
Skip to content
Message Center
Billboard, Horizontal Scroll, Verti-Scroll.
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
People
No people associated with this content.
Skip to content
Message Center
Billboard, Horizontal Scroll, Verti-Scroll.
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
People
No people associated with this content.
Skip to content
Message Center
Billboard, Horizontal Scroll, Verti-Scroll.
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
People
No people associated with this content.
\C1\E6A\AF\D6\AF\CD\D1\C1\CA\C9
Skip to content
Message Center
Billboard, Horizontal Scroll, Verti-Scroll.
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
People
No people associated with this content.
A
Skip to content
Message Center
Billboard, Horizontal Scroll, Verti-Scroll.
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
People
No people associated with this content.
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.11.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.11.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.11.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.11.0"F
Skip to content
Message Center
Billboard, Horizontal Scroll, Verti-Scroll.
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
People
No people associated with this content.
\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
