dos_compilers/DX-FORTH v430/LISTING.BAT
2024-07-09 09:07:02 -07:00

8 lines
178 B
Batchfile

echo off
echo Usage: LISTING screenfile output
if "%1"=="" goto end
if "%2"=="" goto end
forth %1 :noname 'DX c! 2 doscall ; sys-vec 8 + ! listing bye >%2
echo done!
:end