1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980 |
- ?tacl routine
- #FRAME
- load /keep 1/ commacs
- #PUSH file prev memory OK model sfx lib accel unlicensed licensed options
- #PUSH #DEFAULTS
- load /keep 1/ macros
- #SET OK -1
- [#IF [#ARGUMENT /VALUE memory/ KEYWORD /WORDLIST LARGE WIDE/ OTHERWISE ]]
- [#IF [#ARGUMENT /VALUE unlicensed/ KEYWORD /WORDLIST UNLICENSED/ OTHERWISE ]]
- [#IF memory '=' "WIDE"
- |THEN|
- #SET model WIDE
- #SET sfx SFX
- |ELSE|
- #SET memory LARGE
- #SET model NOWIDE
- #SET sfx SFX
- ]
- #OUTPUT Creating SFX Module
- #SET lib [sfx]B
- #SET accel SFX
- #SET options [options], [model], define SFX
- [#IF unlicensed '=' "UNLICENSED"
- |THEN|
- #SET sfx [sfx]U
- #SET accel [accel]U
- #SET lib [lib]U
- |ELSE|
- #SET licensed LICENSED
- #SET options [options], define [licensed]
- ]
- #OUTPUT Memory Model : [memory]
- #OUTPUT Axcel Module : [accel]
- #OUTPUT Run Module : [sfx]
- [#IF [#FILEINFO /MODIFICATION/ EXTRACTC] > [#FILEINFO /MODIFICATION/ EXTRACTX]
- |THEN|
- #OUTPUT Compiling EXTRACTC for SFX
- C /IN EXTRACTC, OUT $T.#SFX.EXTRACT/EXTRACTX;SYMBOLS,HIGHPIN [options]
- |ELSE|
- #OUTPUT EXTRACT(SFX) is up to date
- ]
- [#IF [#FILEINFO /MODIFICATION/ PROCESSC] > [#FILEINFO /MODIFICATION/ PROCESSX]
- |THEN|
- #OUTPUT Compiling PROCESSC for SFX
- C /IN PROCESSC, OUT $T.#SFX.PROCESS/PROCESSX;SYMBOLS,HIGHPIN [options]
- |ELSE|
- #OUTPUT PROCESS(SFX) is up to date
- ]
- [#IF [#FILEINFO /MODIFICATION/ TANUNZC] > [#FILEINFO /MODIFICATION/ TANUNZX]
- |THEN|
- #OUTPUT Compiling TANUNZC for SFX
- C /IN TANUNZC , OUT $T.#SFX.TANUNZ /TANUNZX ;SYMBOLS,HIGHPIN [options]
- |ELSE|
- #OUTPUT TANUNZ(SFX) is up to date
- ]
- [#IF [#FILEINFO /MODIFICATION/ UNZIPC] > [#FILEINFO /MODIFICATION/ UNZIPX]
- |THEN|
- #OUTPUT Compiling UNZIPC for SFX
- C /IN UNZIPC , OUT $T.#SFX.UNZIP /UNZIPX ;SYMBOLS,HIGHPIN [options]
- |ELSE|
- #OUTPUT UNZIP(SFX) is up to date
- ]
- BBSFXLIB
- BBSFX [sfx] [memory]
- #UNFRAME
|