Content
Image Gallery
Source Code
10 REM itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57610 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.2 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.1"E
Skip to content
Gran Marquee
Content
Image Gallery
Source Code
10 REM \30\1E\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\3F\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 % %G%R%A%N%-%M%A%R%Q%U%E%E% % %B%Y% %G%E%N%E% %B%U%Z%A% % % % % % % %O%F% % % % % % %S%Y%N%C%H%R%O%-%S%E%T%T%E%
15 LET CS=0
20 LET A$="GRAN-MARQUEE FROM SYNCHRO-SETTE - - - PRESS ANY KEY BUT BREAK OR THE CONTROL KEYS TO ENTER YOUR OWN MESSAGE - - -"
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$
70 CLS
90 LET A$=A$+" "
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;" % %G%R%A%N% %M%A%R%Q%U%E%E% ";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$>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
9998 SAVE "GRAN MARQUE%E"
9999 RUN
People
No people associated with this content.
A
Skip to content
Gran Marquee
Content
Image Gallery
Source Code
10 REM \30\1E\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\3F\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 % %G%R%A%N%-%M%A%R%Q%U%E%E% % %B%Y% %G%E%N%E% %B%U%Z%A% % % % % % % %O%F% % % % % % %S%Y%N%C%H%R%O%-%S%E%T%T%E%
15 LET CS=0
20 LET A$="GRAN-MARQUEE FROM SYNCHRO-SETTE - - - PRESS ANY KEY BUT BREAK OR THE CONTROL KEYS TO ENTER YOUR OWN MESSAGE - - -"
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$
70 CLS
90 LET A$=A$+" "
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;" % %G%R%A%N% %M%A%R%Q%U%E%E% ";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$>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
9998 SAVE "GRAN MARQUE%E"
9999 RUN
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-57610 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.2 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.1" itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57610 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.2 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.1"EEF\AF\C5
Skip to content
Gran Marquee
Content
Image Gallery
Source Code
10 REM \30\1E\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\3F\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 % %G%R%A%N%-%M%A%R%Q%U%E%E% % %B%Y% %G%E%N%E% %B%U%Z%A% % % % % % % %O%F% % % % % % %S%Y%N%C%H%R%O%-%S%E%T%T%E%
15 LET CS=0
20 LET A$="GRAN-MARQUEE FROM SYNCHRO-SETTE - - - PRESS ANY KEY BUT BREAK OR THE CONTROL KEYS TO ENTER YOUR OWN MESSAGE - - -"
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$
70 CLS
90 LET A$=A$+" "
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;" % %G%R%A%N% %M%A%R%Q%U%E%E% ";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$>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
9998 SAVE "GRAN MARQUE%E"
9999 RUN
People
No people associated with this content.
A
Skip to content
Gran Marquee
Content
Image Gallery
Source Code
10 REM \30\1E\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\3F\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 % %G%R%A%N%-%M%A%R%Q%U%E%E% % %B%Y% %G%E%N%E% %B%U%Z%A% % % % % % % %O%F% % % % % % %S%Y%N%C%H%R%O%-%S%E%T%T%E%
15 LET CS=0
20 LET A$="GRAN-MARQUEE FROM SYNCHRO-SETTE - - - PRESS ANY KEY BUT BREAK OR THE CONTROL KEYS TO ENTER YOUR OWN MESSAGE - - -"
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$
70 CLS
90 LET A$=A$+" "
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;" % %G%R%A%N% %M%A%R%Q%U%E%E% ";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$>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
9998 SAVE "GRAN MARQUE%E"
9999 RUN
People
No people associated with this content.
C\A4
Skip to content
Gran Marquee
Content
Image Gallery
Source Code
10 REM \30\1E\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\3F\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 % %G%R%A%N%-%M%A%R%Q%U%E%E% % %B%Y% %G%E%N%E% %B%U%Z%A% % % % % % % %O%F% % % % % % %S%Y%N%C%H%R%O%-%S%E%T%T%E%
15 LET CS=0
20 LET A$="GRAN-MARQUEE FROM SYNCHRO-SETTE - - - PRESS ANY KEY BUT BREAK OR THE CONTROL KEYS TO ENTER YOUR OWN MESSAGE - - -"
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$
70 CLS
90 LET A$=A$+" "
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;" % %G%R%A%N% %M%A%R%Q%U%E%E% ";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$>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
9998 SAVE "GRAN MARQUE%E"
9999 RUN
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-57610 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.2 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.1"
Skip to content
Gran Marquee
Content
Image Gallery
Source Code
10 REM \30\1E\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\3F\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 % %G%R%A%N%-%M%A%R%Q%U%E%E% % %B%Y% %G%E%N%E% %B%U%Z%A% % % % % % % %O%F% % % % % % %S%Y%N%C%H%R%O%-%S%E%T%T%E%
15 LET CS=0
20 LET A$="GRAN-MARQUEE FROM SYNCHRO-SETTE - - - PRESS ANY KEY BUT BREAK OR THE CONTROL KEYS TO ENTER YOUR OWN MESSAGE - - -"
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$
70 CLS
90 LET A$=A$+" "
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;" % %G%R%A%N% %M%A%R%Q%U%E%E% ";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$>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
9998 SAVE "GRAN MARQUE%E"
9999 RUN
People
No people associated with this content.
Skip to content
Gran Marquee
Content
Image Gallery
Source Code
10 REM \30\1E\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\3F\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 % %G%R%A%N%-%M%A%R%Q%U%E%E% % %B%Y% %G%E%N%E% %B%U%Z%A% % % % % % % %O%F% % % % % % %S%Y%N%C%H%R%O%-%S%E%T%T%E%
15 LET CS=0
20 LET A$="GRAN-MARQUEE FROM SYNCHRO-SETTE - - - PRESS ANY KEY BUT BREAK OR THE CONTROL KEYS TO ENTER YOUR OWN MESSAGE - - -"
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$
70 CLS
90 LET A$=A$+" "
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;" % %G%R%A%N% %M%A%R%Q%U%E%E% ";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$>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
9998 SAVE "GRAN MARQUE%E"
9999 RUN
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-57610 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.2 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.1"A\CBF
Skip to content
Gran Marquee
Content
Image Gallery
Source Code
10 REM \30\1E\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\3F\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 % %G%R%A%N%-%M%A%R%Q%U%E%E% % %B%Y% %G%E%N%E% %B%U%Z%A% % % % % % % %O%F% % % % % % %S%Y%N%C%H%R%O%-%S%E%T%T%E%
15 LET CS=0
20 LET A$="GRAN-MARQUEE FROM SYNCHRO-SETTE - - - PRESS ANY KEY BUT BREAK OR THE CONTROL KEYS TO ENTER YOUR OWN MESSAGE - - -"
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$
70 CLS
90 LET A$=A$+" "
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;" % %G%R%A%N% %M%A%R%Q%U%E%E% ";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$>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
9998 SAVE "GRAN MARQUE%E"
9999 RUN
People
No people associated with this content.
Skip to content
Gran Marquee
Content
Image Gallery
Source Code
10 REM \30\1E\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\3F\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 % %G%R%A%N%-%M%A%R%Q%U%E%E% % %B%Y% %G%E%N%E% %B%U%Z%A% % % % % % % %O%F% % % % % % %S%Y%N%C%H%R%O%-%S%E%T%T%E%
15 LET CS=0
20 LET A$="GRAN-MARQUEE FROM SYNCHRO-SETTE - - - PRESS ANY KEY BUT BREAK OR THE CONTROL KEYS TO ENTER YOUR OWN MESSAGE - - -"
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$
70 CLS
90 LET A$=A$+" "
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;" % %G%R%A%N% %M%A%R%Q%U%E%E% ";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$>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
9998 SAVE "GRAN MARQUE%E"
9999 RUN
People
No people associated with this content.
Skip to content
Gran Marquee
Content
Image Gallery
Source Code
10 REM \30\1E\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\3F\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 % %G%R%A%N%-%M%A%R%Q%U%E%E% % %B%Y% %G%E%N%E% %B%U%Z%A% % % % % % % %O%F% % % % % % %S%Y%N%C%H%R%O%-%S%E%T%T%E%
15 LET CS=0
20 LET A$="GRAN-MARQUEE FROM SYNCHRO-SETTE - - - PRESS ANY KEY BUT BREAK OR THE CONTROL KEYS TO ENTER YOUR OWN MESSAGE - - -"
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$
70 CLS
90 LET A$=A$+" "
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;" % %G%R%A%N% %M%A%R%Q%U%E%E% ";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$>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
9998 SAVE "GRAN MARQUE%E"
9999 RUN
People
No people associated with this content.
\C1\E6A\AF\D6\AF\CD\D1\C1\CA\C9
Skip to content
Gran Marquee
Content
Image Gallery
Source Code
10 REM \30\1E\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\3F\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 % %G%R%A%N%-%M%A%R%Q%U%E%E% % %B%Y% %G%E%N%E% %B%U%Z%A% % % % % % % %O%F% % % % % % %S%Y%N%C%H%R%O%-%S%E%T%T%E%
15 LET CS=0
20 LET A$="GRAN-MARQUEE FROM SYNCHRO-SETTE - - - PRESS ANY KEY BUT BREAK OR THE CONTROL KEYS TO ENTER YOUR OWN MESSAGE - - -"
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$
70 CLS
90 LET A$=A$+" "
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;" % %G%R%A%N% %M%A%R%Q%U%E%E% ";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$>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
9998 SAVE "GRAN MARQUE%E"
9999 RUN
People
No people associated with this content.
A
Skip to content
Gran Marquee
Content
Image Gallery
Source Code
10 REM \30\1E\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\3F\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 % %G%R%A%N%-%M%A%R%Q%U%E%E% % %B%Y% %G%E%N%E% %B%U%Z%A% % % % % % % %O%F% % % % % % %S%Y%N%C%H%R%O%-%S%E%T%T%E%
15 LET CS=0
20 LET A$="GRAN-MARQUEE FROM SYNCHRO-SETTE - - - PRESS ANY KEY BUT BREAK OR THE CONTROL KEYS TO ENTER YOUR OWN MESSAGE - - -"
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$
70 CLS
90 LET A$=A$+" "
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;" % %G%R%A%N% %M%A%R%Q%U%E%E% ";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$>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
9998 SAVE "GRAN MARQUE%E"
9999 RUN
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-57610 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.2 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.1" itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57610 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.2 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.1"F
Skip to content
Gran Marquee
Content
Image Gallery
Source Code
10 REM \30\1E\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\3F\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 % %G%R%A%N%-%M%A%R%Q%U%E%E% % %B%Y% %G%E%N%E% %B%U%Z%A% % % % % % % %O%F% % % % % % %S%Y%N%C%H%R%O%-%S%E%T%T%E%
15 LET CS=0
20 LET A$="GRAN-MARQUEE FROM SYNCHRO-SETTE - - - PRESS ANY KEY BUT BREAK OR THE CONTROL KEYS TO ENTER YOUR OWN MESSAGE - - -"
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$
70 CLS
90 LET A$=A$+" "
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;" % %G%R%A%N% %M%A%R%Q%U%E%E% ";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$>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
9998 SAVE "GRAN MARQUE%E"
9999 RUN
People
No people associated with this content.
\ED\B0\C1\F3\C9
11 REM % %G%R%A%N%-%M%A%R%Q%U%E%E% % %B%Y% %G%E%N%E% %B%U%Z%A% % % % % % % %O%F% % % % % % %S%Y%N%C%H%R%O%-%S%E%T%T%E%
15 LET CS=0
20 LET A$="GRAN-MARQUEE FROM SYNCHRO-SETTE - - - PRESS ANY KEY BUT BREAK OR THE CONTROL KEYS TO ENTER YOUR OWN MESSAGE - - -"
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$
70 CLS
90 LET A$=A$+" "
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;" % %G%R%A%N% %M%A%R%Q%U%E%E% ";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$>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
\n9998 SAVE "GRAN MARQUE%E"
\n9999 RUN
