Gran Marquee

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