1 CLS
2 ON ERROR GOTO 500
5 FOR X = 1 TO 30000 STEP 400
6 F$ = "&H" + RIGHT$(STR$(X),LEN(STR$(X))-1):PRINT X,F$,VAL(F$),HEX$(X)
7 NEXT X
10 P$ = "XA(&08);"
20 READ B
30 PLAY P$
40 DATA 2,45,6,76,7,8,&8
500 REM    Error Handler
510 IF ERR = 2 THEN PRINT : PRINT "?SYNTAX ERROR IN";ERL : PRINT "READY." :              PRINT : PRINT "Hit any Key to continue." : WHILE INKEY$ = "" :WEND:END
520 IF ERR = 6 THEN PRINT : PRINT "?OVERFLOW ERROR IN";ERL : PRINT "READY.":        EDIT 6