Scrolling Bulletin

Date: 198x
Type: Program
Platform(s): TS 1000

Appears on

Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.

Gallery

Scrolling Bulletin

Source Code

  10 SLOW 
  20 LET C$="IF YOU WANT TO PRINT A NEWS BULLETIN THEN READ ON . "
  30 LET B$=C$
  40 GOSUB 1060
  50 CLS 
  60 LET D$="LENGTHEN THIS STRING FOR MORE   MESSAGE.  600 CHARACTERS MAY BE USED.USE AT LEAST 33 CHARACTERS. THE FINAL CHARACTER MUST BE A  SPACE. "
  70 LET B$=D$
  80 GOSUB 1060
  90 CLS 
1000 GOTO 20
1060 FOR F=0 TO 30
1070 PRINT AT 12,31-F;B$(1 TO F+1)
1080 FOR D=1 TO 3
1090 NEXT D
1100 NEXT F
1110 FOR E=1 TO LEN B$-33
1120 PRINT AT 12,0;B$(E+1 TO E+32)
1130 FOR D=1 TO 3
1140 NEXT D
1150 NEXT E
1160 FOR C=0 TO 31
1170 PRINT AT 12,0;B$(C+LEN B$-31 TO LEN B$)
1180 FOR D=1 TO 3
1190 NEXT D
1200 NEXT C
1210 RETURN 
1220 CLEAR 
1230 SAVE "1026%7"
1240 RUN 

People

No people associated with this content.

Scroll to Top