Message Center

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