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-embed-responsive wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.12.1 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.12.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
Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.
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
Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.
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-embed-responsive wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.12.1 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.12.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-embed-responsive wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.12.1 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.12.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
Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.
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
Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.
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
Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.
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-embed-responsive wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.12.1 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.12.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
Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.
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
Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.
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-embed-responsive wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.12.1 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.12.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
Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.
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
Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.
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
Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.
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
Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.
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
Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.
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-embed-responsive wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.12.1 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.12.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-embed-responsive wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.12.1 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.12.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
Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.
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
Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.