Source Code
10 LET S=1
20 LET G=4
30 LET Z$="% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
60 PRINT AT 10,0;"TYPE IN A MESSAGE."
70 INPUT B$
80 LET B$=B$+" "
100 GOSUB 3000
130 GOSUB 1000
170 FOR I=1 TO G
180 SCROLL
185 PRINT Z$
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 UNPLOT 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
\n1000 FOR N=S TO LEN B$
\n1010 IF B$(N)=" " THEN GOTO 1050
\n1020 NEXT N
\n1050 LET A$=B$(S TO N-1)
\n1060 LET S=N+1
\n1070 RETURN
\n2000 IF N<LEN B$-1 THEN LET G=4
\n2010 IF N>=LEN B$-1 THEN LET S=1
\n2020 IF N>=LEN B$-1 THEN LET G=21
\n2030 RETURN
\n3000 POKE 16418,2
\n3010 FOR Z=1 TO 21
\n3020 SCROLL
\n3030 PRINT Z$
\n3040 NEXT Z
\n3050 RETURN
\n9998 SAVE "INVERSCROL%L"
\n9999 RUN
