UNIVERSAL JOSH SEARCH MONSYM,MACSYM ;MACRO TO BUILD COMMAND STATE BLOCKS FOR COMND JSYS DEFINE .CMDBK (.REPAR,PROMPT,.BUFFR,.ATOM,.GTBLK) ;MACRO TO PRINT ERROR MESSAGE IN STANDARD FORM AND RETURN DEFINE .ERROR (.RETUR,.ERSTR) ;MACRO TO PARSE A CARRIAGE RETURN USING COMND (REQUIRES BLOCK) DEFINE CONFRM (.retu) ;MACRO TO PARSE A FIELD WITH COMND JSYS DEFINE PARSE (.REPA) ;MACRO TO OUTPUT ANY STRING DEFINE PRINT (STRING) ;MACRO TO SAVE ALL AC'S IN SPECIFIED BLOCK DEFINE SAVACS (BLOCK) ;MACRO TO RESTORE AC'S STORED IN A BLOCK WITH SAVACS DEFINE RESTAC (BLOCK) ;MACRO TO OUTPUT A NUMBER IN DECIMAL DEFINE NUMOUT (NUMBER,.ERROR) ;MACRO TO OUTPUT ONE CHARACTER DEFINE OUTCHR (CHAR) ;MACRO TO PRINT CARRIAGE RETURN AND LINE FEED DEFINE PRICR ;MACRO TO TURN OFF ECHOING FOR PASSWORDS DEFINE ECHOFF ;MACRO TO TURN ON ECHOING AFTER ECHOFF DEFINE ECHON ;MACRO to output an error message: ERROUT (Error message) DEFINE ERROUT (MESG$), ;MACRO to dismiss program for specified seconds: SLEEP (Number of seconds) DEFINE SLEEP (SEC),*^D1000 DISMS> ;MACRO to set the CCOC words for ^H instead of backspace (for COMND). DEFINE SCTRLH, ;MACRO TO SET CCOC WORDS FOR ALL CTRL-CHARS (FOR GAMES AND GRAPHICS). DEFINE SCTRLA, END