Code: Select all
10 RESTORE 130
20 LET x=0: LET b=0: LET n=7
30 BORDER 7: PAPER 0: INK 6: BRIGHT 1: CLS
40 READ t$: PRINT AT 21,0;
50 FOR f=0 TO LEN t$
60 POKE 23692,255
70 PRINT t$(f+1);
80 IF b=2 THEN LET b=0: READ n
90 IF N=255 THEN LET N=0: READ T$: RESTORE 180: GO TO 50
100 BEEP .1,n
110 LET b=b+1
120 NEXT f
130 DATA "THIS IS THE FIRST LINE OF TEXT I HAVE DISSABLED THE SCROLL WITHA POKE AND PLAYING THE TUNE WITHA SIMPLE BEEP COMMAND***********THANK YOU. . . . . . . . . . . ....... ADD TEXT HERE AS YOU WISH..."
140 DATA 14,14,16,14,12,12,16,17,21,24,21,21,19,19,19
150 DATA 21,12,12,21,19,12,12,16,16,14,16,14,16,14,16,14
160 DATA 7,14,14,16,14,12,12,16,17,21,24,21,21,19,19,19
170 DATA 21,12,12,21,19,12,12,16,16,14,16,14,12,12,12,12,0
180 DATA 0,0,0,0,4,2,0,7,7,7,7,7,9,4,5,2,2,2,2,2,5,4,2,0
190 DATA 12,11,9,7,5,4,2,255,"*.*.*.*.*.*.*.*.*.THANK YOU*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*.*."