### Appears on

Cassette to accompany the February 1983 issue of Synchro-Sette.

### Source Code

10 LET S=1 20 LET G=4 60 PRINT AT 10,0;"TYPE IN A MESSAGE." 70 INPUT B$ 80 LET B$=B$+" " 90 CLS 130 GOSUB 1000 170 FOR I=1 TO G 180 SCROLL 190 NEXT I 200 FOR K=1 TO LEN A$ 210 LET C=CODE A$(K) 220 IF C<128 THEN GOTO 250 230 LET M$=CHR$ (C-128) 240 LET C=0 250 FOR L=0 TO 7 260 LET P=PEEK (7680+C*8+L) 270 LET V=128 280 FOR J=0 TO 7 290 IF P<V THEN GOTO 320 300 PLOT 8*(K-1)+J,10-L 305 GOSUB 2000 310 LET P=P-V 320 LET V=V/2 330 NEXT J 340 NEXT L 350 NEXT K 360 GOTO 130 1000 FOR N=S TO LEN B$ 1010 IF B$(N)=" " THEN GOTO 1050 1020 NEXT N 1050 LET A$=B$(S TO N-1) 1060 LET S=N+1 1070 RETURN 2000 IF N<LEN B$-1 THEN LET G=4 2010 IF N>=LEN B$-1 THEN LET S=1 2020 IF N>=LEN B$-1 THEN LET G=21 2030 RETURN 9998 SAVE "SUPERSCROL%L" 9999 RUN