1) WCH80 demo (212 B)
To use: LOAD, RUN

10 REM
20 REM HELLO FROM WCH80
30 REM PRESS RUN TO RUN
40 REM
50 PRINT ,"   WCH80 DEMO"
60 PRINT
70 LET N=0
80 PRINT "CHARACTER SET:"
90 FOR I=0 TO 255
100 PRINT CHR$(I);
110 NEXT I
120 POKE -5,17
130 POKE -4,0
140 PRINT "SOUND TEST: ";N
150 BEEP 100000,200
160 WAIT 800
170 LET N=N+1
180 IF INKEY$="" THEN GOTO 120