1 line
15 KiB
Plaintext
1 line
15 KiB
Plaintext
|
\ Information NEWAPP is a skeletal program that allows users to quickly develop a DOS application. It provides often needed tasks including error handling, command-line parsing, file operations, buffered I/O, help screen, number and string functions. NEWAPP comprises two parts: NEWAPP.SCR skeletal application program DOSLIB.SCR function support library \ Load - main screen empty forth definitions decimal application warning on : TITLE ." NEWAPP version 0.0 2017-01-17" cr ; cr .( Compiling: ) title 2 load cr .( Save to disk? ) y/n [if] \ reserve @ pad + 256 + limit s0 @ - + set-limit turnkey program NEWAPP [then] \ Load - defaults variable RESERVE 0 reserve ! \ reserved memory tally defer ?BREAK ' noop is ?break \ break check off defer SET-IO ' bios-io is set-io \ default console mode defer ONERROR ' noop is onerror \ reset on-error handler defer ONSTART ' noop is onstart \ startup initialization blk @ 1+ #screens 1- thru \ load electives & application ' (?break) is ?break \ enable user break \ ' dos-io is set-io \ enable console redirection ' deloutfile +is onerror \ delete outfile on error \ wrtchk off \ disable overwrite check \ Electives 1 fload DOSLIB \ DOSLIB library _Errors \ error handler _Inout1 \ number output _Inout2 \ string & number input \ _Compare1 \ basic compare _String1 \ basic strings \ _String2 \ extra strings _Parsing1 \ command-line parsing \ _Parsing2 \ command-line parsing _Fileprims \ file primitives _Files \ default files _Bufinfile \ buffered input file _Bufoutfile \ buffered output file
|