001|MENU     01:42:06 PM  25/ 3/88   |
046|CUR.DATE|S|8|||
046|KEY|A|1|||
046|CHOICE|N|1|||
046|CNTR|N|2|||
046|MENULIST|A|40||10|
046|PRG.NAME|A|40|||
046|CMD.LINE|A|40|||
046|OK|A|1|||
046|DUMMY|A|1|||
073|N|
005|OK|("")|
074|DUMMY|1|1|OK|1|
064|CUR.DATE|G|
054|
031|@R;" TAS-Plus           ";%179;"              Main Menu             ";%179;"         Version 2.07D";@F|1|1|N|N|S||
031|@r;" Copyright 1986 Business Tools Inc.                                    ";cur.date;"  ";@f|1|24|N|N|S||
031|"Run      Program    Database     Report     Utilities       Exit"|2|3|N|N|S||
031|"F1 - Help          Use arrow keys to highlight your choice            Esc - Exit "|1|25|N|N|S||
067|1|
000|RUN|
039|Q|G|EXIT|
068|1|
065|
039|Y|G|PROGRAM|
039|X|G|EXIT|
031|" Run "|1|3|N|N|S||
005|MENULIST[1]|(" 1 - Run TAS Program     01011")|
005|MENULIST[2]|(" 2 - Run Non-TAS Program 01022")|
005|MENULIST[3]|(" 3 - Run DOS Command     01033")|
005|MENULIST[4]|(" 4 - Run Mailing List    01044")|
005|CHOICE|(4)|
072|1|9|5|26||MENULIST|CHOICE|4|25|EXIT|||N|
039|Q|G|RUN|
039|X|D|
039|Y|D|
056|
023|CHOICE|G|TASPRG;NONTASPRG;DOSCOM;MLPROG|RUN|
000|TASPRG|
040|"RT"|
000|NONTASPRG|
005|PRG.NAME|("")|
005|CMD.LINE|("")|
031|"Enter the program name- "|15|19|N|N|||
002|PRG.NAME||||Y|N|N|40|19|N|
031|"Enter the command line- "|15|20|N|N|||
002|CMD.LINE||||Y|N|N|40|20|N|
070|PRG.NAME|CMD.LINE|
021|RUN|
000|DOSCOM|
005|CMD.LINE|("")|
031|"Enter the DOS command- "|10|20|N|N|||
002|CMD.LINE|||DOSCOM|Y|N|N|33|20|N|
018|CMD.LINE|=|("")|G|RUN|
091|CMD.LINE|
031|"Press any key to continue "|1|25|Y|N|||
021|RUN|
000|MLPROG|
040|"MLMENU"|
000|PROGRAM|
068|1|
039|Y|G|DATABASE|
039|X|G|RUN|
031|@R;" Program ";@F|10|3|N|N|S||
005|MENULIST[1]|(" 1 - Create Program  01011")|
005|MENULIST[2]|(" 2 - Edit Program    01022")|
005|MENULIST[3]|(" 3 - Compile Program 01033")|
005|CHOICE|(1)|
072|10|8|4|22||MENULIST|CHOICE|3|21|RUN|||
039|Q|G|RUN|
039|X|D|
039|Y|D|
023|CHOICE|G|CREPRG;EDPRG;COMPRG|PROGRAM|
000|CREPRG|
040|"TASCRPRG"|
000|EDPRG|
040|"TASEDPRG"|
000|COMPRG|
005|PRG.NAME|("")|
067|2|
071|18|13|3|47|
000|TTCOMP|
031|"Enter the file name to compile (with ext)-"|2|1|N|N|||
002|PRG.NAME|||TTCOMP|Y|N|N|2|2|N|
068|2|
077|PRG.NAME|A|
021|RUN|
000|DATABASE|
068|1|
039|X|G|PROGRAM|
039|Y|G|REPORT|
031|@R;" Database ";@F|21|3|N|N|S||
005|MENULIST[1]|(" 1 - Create database   01011")|
005|MENULIST[2]|(" 2 - Maintain database 01022")|
005|MENULIST[3]|(" 3 - Browse database   01033")|
005|CHOICE|(1)|
072|21|8|4|24||MENULIST|CHOICE|3|23|RUN|||
039|Q|G|RUN|
023|CHOICE|G|BUILD;ADD;BRDATA|DATABASE|
000|BUILD|
040|"TASADFLE"|
000|ADD|
040|"TASADREC"|
000|BRDATA|
040|"TASBRWSE"|
000|REPORT|
068|1|
039|X|G|DATABASE|
039|Y|G|UTILITIES|
031|@R;" Report ";@F|34|3|N|N|S||
005|MENULIST[1]|(" 1 - Create report 01011")|
005|MENULIST[2]|(" 2 - Run report    01022")|
005|CHOICE|(1)|
072|34|7|3|20||MENULIST|CHOICE|2|19|RUN|||
039|Q|G|RUN|
039|X|D|
039|Y|D|
023|CHOICE|G|CRREP;RNREP||
000|CRREP|
040|"TASCRRPT"|
000|RNREP|
040|"RT"|
000|UTILITIES|
068|1|
039|X|G|REPORT|
039|Y|G|EXIT|
031|@R;" Utilities ";@F|45|3|N|N|S||
005|MENULIST[1]|(" 1 - Set date                 01011")|
005|MENULIST[2]|(" 2 - Initialize database      01022")|
005|MENULIST[3]|(" 3 - Reindex database         01033")|
005|MENULIST[4]|(" 4 - Restructure database     01044")|
005|MENULIST[5]|(" 5 - Maintain data dictionary 01055")|
005|MENULIST[6]|(" 6 - Maintain location file   01066")|
005|MENULIST[7]|(" 7 - Convert TAS to dBASE     01077")|
005|MENULIST[8]|(" 8 - Convert dBASE to TAS     01088")|
005|CHOICE|(1)|
072|45|13|9|31||MENULIST|CHOICE|8|30|RUN|||
039|Q|G|RUN|
039|X|D|
039|Y|D|
054|
031|@R;" TAS-Plus           ";%179;"            TAS Utilities           ";%179;"         Version 2.0 ";@F|1|1|N|N|S||
031|@r;" Copyright 1986 Business Tools Inc.                                    ";cur.date;"  ";@f|1|24|N|N|S||
031|"                                                                      Esc - Exit "|1|25|N|N|S||
023|CHOICE|G|SETDATE;INIFILE;REINFILE;RESTRFILE;DATADICT;DATALOC;TAS2DBASE;DBASE2TAS||
000|INIFILE|
040|"IF"|
000|REINFILE|
040|"RI"|
000|RESTRFILE|
040|"RS"|
000|DATADICT|
040|"TASDMGR"|
000|DATALOC|
040|"TASFLOC"|
000|TAS2DBASE|
040|"TD"|
000|DBASE2TAS|
040|"DT"|
000|SETDATE|
071|10|15|2|35|
000|TTSETDATE|
031|" Enter todays date- "|1|1|N|N|||
002|CUR.DATE|||TTSETDATE|N|N|N|21|1|N|
064|CUR.DATE|S|
068|1|
031|@r;" Copyright 1986 Business Tools Inc.                                    ";cur.date;"  ";@f|1|24|N|N|S||
067|1|
021|RUN|
000|EXIT|
068|1|
039|Q|G|EXIT1|
039|X|G|UTILITIES|
039|Y|G|RUN|
031|@R;" Exit ";@F|61|3|N|N|S||
067|2|
065|
071|40|6|2|26|
031|" Exit to DOS ? (Y/N) "|1|1|N|N|||
000|TTEXIT|
005|KEY|("Y")|
002|KEY|"YN"||TTEXIT|Y|Y|N|22|1|N|
056|
068|2|
018|KEY|<>|("Y")|G|RUN|
000|EXIT1|
068|1|
057|1|25|
098|4|23000|8|" "|
040|"EX"|