Super Scroll
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
People
No people associated with this content.