1 '
5 CLS
10 PRINT VAL("&o1000f73")
11 READ F:PRINT F:
12 PLAY "N"+STR$(F)
13 GOTO 1
19 DATA &o1,&02,&o3,&04,&05,&o6,&o7,&o8