home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TCE Demo 2
/
TCE_DEMO_CD2.iso
/
demo_cd_.2
/
mags
/
stosser
/
stoser22.arj
/
stoser22.msa
/
STOS_2.STE
/
DAC_STE.BAS
(
.txt
)
< prev
next >
Wrap
Atari STOS Basic
|
1995-01-19
|
3KB
|
74 lines
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