10 VARNAME
100 PRINT
1000 REM       DAC ROUTINE
1005 REM ************************ 
1020 EXTENSION (Index #5) (Token 0x88)
1030 EXTENSION (Index #5) (Token 0x9a)
1040 EXTENSION (Index #5) (Token 0x9e)
1050 EXTENSION (Index #5) (Token 0x8c)
1060 EXTENSION (Index #5) (Token 0x8e)
1070 EXTENSION (Index #5) (Token 0x90)
1080 EXTENSION (Index #5) (Token 0x92)
1090 EXTENSION (Index #5) (Token 0x94)
1100 EXTENSION (Index #5) (Token 0x96)
1110 CLEAR KEY
1115 CLEAR KEY
1117 WHILE
1200 IF
1210 IF
1220 IF
1230 IF
1235 EXTENSION (Index #5) (Token 0x88)
1240 IF
1250 IF
1260 IF
1270 IF
1280 IF
1290 IF
1300 IF
1305 IF
1310 IF
1499 GOTO
15 IF
150 VARNAME
1500 EXTENSION (Index #5) (Token 0x8a)
1510 GOTO
16 REM *******************************************************************
17 REM ** Open a Channel to the file,get the file lenght using LOF ** 
170 RESERVE
18 REM ** It is very usefull to know how to do it, so learn it !"       **
180 BLOAD
19 REM *******************************************************************
190 VARNAME
20 OPEN IN
200 VARNAME
225 REM 
25 REM ************************************************ 
250 EXTENSION (Index #5) (Token 0x86)
260 REM 
270 REM 
280 REM *********      DRAW REST OF USER INTERFACE   ************
3 MODE
30 REM **     PRNT THE SAMPLE INFORMATION  ************ 
300 LOCATE
35 REM ************************************************ 
5 KEY
500 PRINT
510 PRINT
520 PRINT
530 PRINT
540 PRINT
550 PRINT
560 PRINT
570 PRINT
580 PRINT
590 PRINT
6 REM *** WE INITIATE THE VALUES USED FOR VOLUME,BASS,TREBLE AND SPEED *** 
600 PRINT
7 VARNAME
700 REM *************************
8 CLS
80 PRINT
9 REM ***    GET THE FILE SELECTOR  ***
90 PRINT