A talking head! Feed it some words, and watch Beo speak them!
PROG : 16509
D-FILE: 17404
VARS : 17429
E-LINE: 17533
STKBOT: 17533
STKEND: 17533
9999 means line number
PRINT means treat as KEYWORD P
10 REM ****BEO ONE****SLR/1984
20 PRINT AT 10,10;"ö´ó÷¶"
30 PRINT AT 11,10;"õ¶ôõµ"
40 PRINT AT 12,10;"õùñùµ"
50 PRINT AT 13,10;"õòVñµ"
60 PRINT AT 14,10;"¶·³ôö"
70 PRINT AT 15,10;"µòóñõ"
80 PRINT AT 16,10;"ò³³³ñ"
90 DIM A$(32)
100 DIM C$(32)
110 LET A$="HELLO,I""M BEO,WHAT
IS YOUR NAME?"
120 GOSUB 250
130 INPUT N$
140 LET A$=" HI "+N$+" ENTER IN
"
150 GOSUB 250
160 LET A$="ANY 32 SYMBOL SENTE
NCE AFTER A "
170 GOSUB 250
180 LET A$="DISPLAY. HAVE FUN//
/ "
190 GOSUB 250
200 LET C$=""
210 PRINT AT 20,0;"
"
220 INPUT A$
230 GOSUB 250
240 GOTO 220
250 FOR A=1 TO 32
260 LET C$=C$(2 TO )+A$(A)
270 PRINT AT 20,0;C$
280 PRINT AT 15,12;"ó"
290 PRINT AT 15,12;"º" AND
CODE (A$(A))>28
300 IF A$(A TO )="
"(A TO ) AND
A$<>"" THEN GOTO 320
310 NEXT A
320 PRINT AT 15,12;"ó"
330 RETURN
500 SAVE "BEO"
510 RUN