Compucolor.org – Virtual Media

Listing of file='MESSAG.BAS;01' on disk='vmedia/demos-sector.ccvf'

5 PLOT 12
10 DATA "HELLO MARGE,"
20 DATA "THIS IS YOUR NEW EMPLOYER TALKING TO YOU"
30 DATA " "
40 DATA "THE AGE OF MACHINE OVER MASTER IS NOW HERE
50 DATA " "
60 DATA "              BEEP            BEEP"
70 DATA "END"
100 READ A$
110 IF A$= "END"THEN RUN
120 FOR L= 1TO LEN (A$)
125 FOR DL= 1TO 100:NEXT
130 PRINT MID$ (A$,L,1);
140 NEXT
145 PRINT
150 GOTO 100