10 '  Forty Column Scrolling Billboard
20 '
30 '  Press the "Q" key to quit.
40 '
50 DEF SEG:CLEAR,&H3FF0:N=&H460A
60 FOR J=0 TO 249:READ A$
70 POKE N+J,VAL("&H"+A$):NEXT
80 KEY OFF:CLS:SCREEN 0:WIDTH 80
90 INPUT"Text string";T$:T$=T$+"  "
100 N=&H4000:K=LEN(T$):FOR J=1 TO K
110 POKE N,ASC(MID$(T$,J,1)):N=N+1
120 NEXT:POKE N,0:CLS:WIDTH 40
130 LOCATE,,0:N=&H460A:CALL N
140 WIDTH 80:CLS:KEY ON:END
150 DATA 06,8B,EC,8C,D8,8E,C0,B9
160 DATA 80,02,8D,3E,08,41,1E,B8
170 DATA 00,B8,8E,D8,BE,30,02,F3
180 DATA A4,1F,B8,A6,FF,8E,C0,8D
190 DATA 36,00,40,8A,1C,46,80,FB
200 DATA 00,74,F4,B7,00,D1,E3,D1
210 DATA E3,D1,E3,83,C3,0E,B9,08
220 DATA 00,33,FF,26,8A,07,88,85
230 DATA 00,41,47,43,E2,F5,56,06
240 DATA B9,09,00,51,33,FF,B9,08
250 DATA 00,BB,4E,00,D0,A5,00,41
260 DATA 72,04,B0,20,EB,02,B0
270 ' The following value is the
280 ' ASCII code of character that
290 ' forms the large text.
300 DATA DB
310 DATA 88,87,08,41,83,C3,50,47
320 DATA E2,EA,EB,02,EB,B5,8C,DB
330 DATA 8E,C3,FC,B8,08,00,8D,36
340 DATA 0A,41,8D,3E,08,41,B9,4E
350 DATA 00,F3,A4,46,46,47,47,48
360 DATA 75,F4,A0,08,46,34,01,A2
370 DATA 08,46,B4,05,50,A8,01,75
380 DATA 05,B8,00,B8,EB,03,B8,80
390 DATA B8,8E,C0,B9,A0,00,BF,30
400 DATA 02,8D,36,08,41,BA,DA,03
410 DATA EC,A8,08,75,FB,EC,A8,08
420 DATA 74,FB,F3,A5,EB,04,EB,8B
430 DATA EB,AA,B9,A0,00,BA,DA,03
440 DATA EC,A8,08,75,FB,EC,A8,08
450 DATA 74,FB,F3,A5,58,CD,10,B9
460 ' The following two values are the
470 ' time delay constant in the order
480 ' least sig. byte, most sig. byte.
490 DATA 01,00
500 DATA E2,FE,59,E2,DF,07,5E,B4
510 DATA 06,B2,FF,CD,21,3C,71,74
520 DATA 06,3C,51,74,02,EB,CF,8B
530 DATA E5,07,B8,00,05,CD,10,CB
-.... 1200  N81N          ........................ . ... ...-.... 1200  N81N          ........................ . ... ...-.... 1200  N81N          ........................ . ... ...-.... 1200  N81N          ........................ . ... ...-.... 1200  N81N          ........................ . ... ...-.... 1200  N81N          ........