100 CALL CLEAR
110 CALL SCREEN(8)
120 DEF R=INT(RND*16)+1
130 CALL CHAR(ASC("l"),"0038284444444444")
140 CALL CHAR(ASC("s"),"007C20100810207C")
150 OPEN #1:"SPEECH",OUTPUT
160 PRINT #1:"KALLEEMERA SAS"
170 PRINT "KAlHMEPA sAs"
180 DATA HELLO,I,AM,THE,TEXAS,INSTRUMENTS,PERSONAL,COMPUTER,|
190 GOSUB 590
200 DATA AS,YOU,CAN,SEE,AND,HEAR,I,CAN,SPEAK,USING,SPEECH SYNTHESIZING,|
210 GOSUB 590
220 FOR I=1 TO 16
230 CALL SCREEN(I)
240 FOR J=1 TO 200
250 NEXT J
260 NEXT I
270 CALL SCREEN(8)
280 DATA BUT,SPEAKING,IS,//80,NOT,//40,THE,ONLY,THING,I,CAN,DO
290 DATA SOME,OF,MY,OTHER,FEATURES,ARE,MY,SIXTEEN,COLORS,|
300 GOSUB 590
310 CALL CHAR(128,"FF88888888888888")
320 CALL CHAR(129,"8888888888888888")
330 CALL CHAR(130,"88888888888888FF")
340 PRINT : : : : :
350 CALL HCHAR(20,1,128,32)
360 CALL HCHAR(21,1,129,3*32)
370 CALL HCHAR(24,1,130,32)
380 CALL COLOR(13,7,16)
390 PRINT
400 DATA AS,WELL,AS,MY,FULL,GRAPHICS,CAPABILITY,WITH,A,192*256,RESOLUTION,|
410 GOSUB 590
420 GOSUB 590
430 DATA I,HAVE,ALSO,3,TONE,AND,ONE,NOISE,GENERATOR,WHICH,I,WILL,SHOW,YOU,|
440 FOR I=110 TO 10000 STEP 500
450 CALL SOUND(-200,I,30,I,30,I,30,-8,9)
460 NEXT I
465 FOR J=1 TO 5
470 FOR I=110 TO 10000 STEP 1000
480 CALL SOUND(100,I,0)
490 NEXT I
495 NEXT J
500 DATA I,CAN,BE,CONNECTED,TO,A,HUGE,RANGE,OF,PERIPHERALS,SUCH,AS
510 DATA //5,3,DISK DRIVES,//20,R.S. 232 INTERFACE,//30,MEMORY,EXPANSION,//50,A P CODE INTERPRETER,WHICH,GIVES
520 DATA THE,COMPUTER,THE,PASCAL,AND,PILOT,LANGUAGE,CAPABILITY,//80,AS,WELL,AS,A,WHOLE,NUMBER
530 DATA OF,PRINTERS,AND,PLOTTERS,//40,|
540 PRINT : : :
550 GOSUB 590
560 RESTORE
570 CLOSE #1
580 GOTO 100
590 READ A$
600 IF A$="|" THEN 650
610 IF SEG$(A$,1,2)="//" THEN 630
620 PRINT " ";A$;
630 PRINT #1:A$
640 GOTO 590
650 RETURN
660 END