R: Morrow Designs Micro-Menu system - Rev 2.3
R: double sided version
R: Copyright 1982, 1983 Morrow Designs, Inc.
R: All Rights Reserved
R: Written by Harrison Schreppel for Morrow Designs
R: Modified by P. Ledbetter for Hard Disk System MD11
R:
R: The next lines define $drive variable to 
R: avoid "Variable not found" error msg.
DEF: $FILE  
DEF: $DRIVE B
DEF: $DSTDRV B
R: display main menu
*BEGIN
ESC:*EXITMENU
U: *MENU1
U: *STATUS
U: *CHANGEMSG
*INPUTLOOP3
INMAX:1
CUR:26,17
A:
M: C ,
JN:*LABEL1
UY: *CHANGE
J:*INPUTLOOP3
*LABEL1
M: 1 , 2 , 3, ,4 , 5 , 6 , 7 , 8 , 9, U ,
JN:*INPUTLOOP3
CLRS:
M: 1 ,
JY: *WORDSTAR
M: 2 ,
JY: *LOGICALC
M: 3 ,
JY: *CORRECT
M: 4 ,
JY: *PEARL
M: 5 ,
JY: *QUEST
M: 6 ,
JY: *MBASIC
M: 7 ,
JY: *BAZIC
M: 8 ,
JY: *TUTORIAL
M: 9,
JY: *PARK
M: U ,
J: *UTILITY

*WORDSTAR
CLRS:
T:{Preparing to run WordStar. Please stand by...
CPM:WS|
T:}
J:*BEGIN

*LOGICALC
CLRS:
T:{Preparing to run LogiCalc. Please stand by...
CPM:LC|
T:}
J:*BEGIN

*CORRECT
CLRS:
T:{Preparing to run Correct-It. Please stand by...
CPM:CORRECT|
T:}
J:*BEGIN

*PEARL
ESC:*BEGIN
U:*PEARLMENU
*INPUTLOOP4
INMAX:1
CUR:23,16
A:
M: 1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 ,
JN:*INPUTLOOP4
M: 1 , 4 , 5 , 8 ,
CY:A=1
JY:*PROMPT
M:6 ,
CY:A=3
JY:*PROMPT
C:A=4
*PROMPT
M: 1 ,
DEFY:$PROG WELCOME 
M: 2 ,
DEFY:$PROG PEARLDF 
M: 3 ,
DEFY:$PROG PEARLDR 
M: 4 ,
DEFY:$PROG PEARLED 
M: 5 ,
DEFY:$PROG PEARLPR 
M: 6 ,
DEFY:$PROG PSORT 
M: 7 ,
DEFY:$PROG PEARLFM 
M: 8 ,
DEFY:$PROG MAKELCF 
CLRS:
T:{Preparing to run Personal Pearl. Please stand by...
CPM:$PROG|
T:}
J:*BEGIN

*QUEST
CLRS:
T:{Preparing to run Quest. Please stand by...
CPM:KP|
T:}
J:*BEGIN

*MBASIC
CLRS:
T:{Preparing to run Microsoft BASIC. Please stand by...
CPM:MBASIC|
T:}
J:*BEGIN

*BAZIC
CLRS:
T:{Preparing to run BaZic. Please stand by...
CPM:BAZIC|
T:}
J:*BEGIN

*PARK
CLRS:
T:{Preparing to run PARK. Please stand by...
CPM:PARK;
T:}
J:*BEGIN

*TUTORIAL
T:{Loading tutorial menu...
CH:TUTORIAL.PIL

*UTILITY
ESC:*BEGIN
U:*MENU2
*RFRSH
U:STATUS
U:*CHANGEMSG
*INPUTLOOP5
INMAX:1
CUR:26,17
A:
M: C ,
JN:*LABEL2
UY:*CHANGE
J:*INPUTLOOP5
*LABEL2
INMAX:80
M: 1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 ,
JN:*INPUTLOOP5
M: 1 ,
JY:*DIR
M: 2 ,
JY:*TYPE
M: 3 ,
JY:*COPY
M: 4 ,
JY:*FORMAT
M: 5 ,
JY:*BACKUP
M: 6 ,
JY:*STAT
M: 7 ,
JY:*CPM
M: 8 ,
J:*OTHER

*DIR
CLRS:
T:Now getting directory, Please stand by...{
CPM:DIR $DRIVE:
T:}Press {RETURN} when done viewing directory
J:*DELAY

*TYPE
U:*GETFILE
J(B):*RFRSH
CUR: 0,22
T:Do you want the file to go to the screen{(S),}or the printer{(P)?}
INMAX:1
TNR:Enter{S}or{P:}
*INPUTLOOP6
CUR: 15,23
A:
M: S , P ,
JN:*INPUTLOOP6
M: S ,
CLRS:
Ty:Now getting file...
Ty:Press{CONTROL-S}to start and stop the scrolling.{
CPMY:PIP CON:=$DRIVE:$FILE|
TY:}Press{RETURN}when done viewing file.
JY:*DELAY
Jy:*UTILITY
T:{Getting file to print.....
CPM:PIP LST:=$DRIVE:$FILE|
T:}
J:*UTILITY

*COPY
R:Copy a file or files to another diskette
U:*CLEAR
CUR:0,22
T:Do you want to copy all the files on the current drive{(Y or N)?}
*INPUTLOOP8
CUR:66,22
INMAX:1
A:
M: Y , N ,
Jn:*INPUTLOOP8
INMAX: 13
M: N ,
Jn: *NEXT
U: *GETFILE
J(B):*RFRSH
U: *DSTDRIVE
CLRS:
T:Preparing to copy $FILE from Drive $DRIVE to Drive $DSTDRV
T:Please stand by...{
CPM:PIP $DSTDRV:=$DRIVE:$FILE
T:}
J:*UTILITY
*NEXT
U: *DSTDRIVE
CLRS:
T:Preparing to copy all files from Drive $DRIVE to Drive $DSTDRV
T:Please stand by...{
CPM:PIP $DSTDRV:=$DRIVE:*.*
T:}
J: *UTILITY

*DSTDRIVE
U:*CLEAR
CUR:0,22
T:What  drive are  you copying to?   
U: *DRVSEL
M: ,
Jy:*DSTDRIVE
DEF: $DSTDRV $TEMP
E:

R: general purpose drive logging subroutine
*DRVSEL
INMAX:1
TNR:Enter the drive letter (A,B,C,D,E)
*LOOP2
CUR:34,22
A:
M: ,
Jy:*DOWN
M: , A , B , C , D , E ,
Jn: *LOOP2
SAVE: $TEMP
INMAX:80
*DOWN
E:

*FORMAT
CLRS: 
LF:4
T: This selection may be used to format diskettes for use with your Micro 
T: Decision. Formatting a diskette completely erases any information on it, 
T: so{be careful}about which diskette you insert in the drive for formatting.
T: 
T:
T: Press{RETURN}when ready or press{E}to exit without formatting any diskettes.
LF:2 
TNR:----->} 
*FRMTLOOP
CUR:8,12
INMAX:1
A:
M: E ,
JY:*UTILITY
CLRS:
T:Preparing to format, please stand by...{
CPM:FORMAT|
T:}
J:*UTILITY

*BACKUP
CLRS:
T:
T:
T: 			   {BACKUP SELECTION}
T:
T:
T:	{1.} Format a diskette   (Required by BACKUP programs) 	 	 
T:	{2.} Backup (duplicate) diskette
T:	     		
T:	BACKUP of Hard Disk
T:	{3.} All files (Do this monthly)
T:	{4.} Only files which have changed since last backup (Do this daily)
T:	{5.} Files which were too big for {4.} above (Do this daily if needed)
t:
T:	Note: To {RESTORE}, diskettes made using selection {3.} above, please
T:		{boot} from the {BACKFIELD} diskette.
T:
T:	{6.  SELECT} Files from diskettes made by {3.} or {5.} above.
T:
T: To exit without backing up any diskettes, press {E}.
*RESPONSE
CUR: 56,18
INMAX:1
A:
M:1, 2, 3, 4, 5, 6, E ,
JN:*RESPONSE
M:1
JY:*BK1
M:2
JY:*BK2
M:3
JY:*BK3
M:4
JY:*BK4
M:5
JY:*BK5
M:6
JY:*BK6
M:E
Jy:*UTILITY
*BK1
CPM:FORMAT C D|
J:*BACKUP
*BK2
CPM:BACKUP|
J:*UTILITY
*BK3
CPM:FB +A|
J:*UTILITY
*BK4
CPM:QB|
J:*UTILITY
*BK5
CPM:HB| 
J:*UTILITY
*BK6
CPM:SELECT|
J:*UTILITY

*STAT
U:CLEAR
CUR:0,22
T:Do you want to check the size of a file{(F),} or the space remaining on a
TNR:diskette{(D).} Enter{F}or{D:}
*INPUTLOOP9
CUR:29,23
INMAX:1
A:
M: D , F ,
Jn:*INPUTLOOP9
M: F ,
R: Perform stat on a file
UY:*GETFILE
J(B):*RFRSH
CLRSY:
TY:Checking the size of $DRIVE:$FILE
TY:Please stand by...{
CPMY:STAT $DRIVE:$FILE
TY:}Press{RETURN} to go back to the menu.
JY:*DELAY
R: perform stat on a disk
CLRS:
T:Checking the amount of space remaining on drive $DRIVE.
T:Please stand by.{
CPM:STAT $DRIVE:
T:}Press{RETURN}to go back to the menu.
J:*DELAY

*CPM
CLRS:
T:
T:This menu allows you to enter CP/M commands directly. It can be 
T:used by the curious to experiment with, and learn about CP/M.
T:It can  also be used by experienced CP/M users to perform a command 
T:directly.
T:
T:To use this menu, just type a valid CP/M command, followed by 
T:{RETURN.} 
T:
T: Press{RETURN} only to go back to the utility menu.
T:
T:{COMMAND:}
*GETCOM
CUR: 10,11
A: $COMMAND
R: NULL COMMAND?
M: ,
R: If so, go back to the utility menu
JY: *UTILITY
CLRS:
T:After certain CP/M commands, you must press{CONTROL-C}when ready to return
T:to the Micro Menus.
T:
T:Now executing command, please stand by...{
CPM:$COMMAND|
T:}
J:*UTILITY

*OTHER
U:CLEAR
CUR:0,22
T:Do you want to Erase{(E),} or Rename{(R)}a file?
TNR:Enter{E}or{R:}
*INPUTLOOPA
CUR:14,23
INMAX:1
A:
M: E , R ,
Jn:*INPUTLOOPA
M: E ,
JN:*RENAME
U:*GETFILE
J(B):*RFRSH
CUR:0,22
T:Press{RETURN}to erase $DRIVE:$FILE, or{A}to abort.
INMAX:1
A:
M: ,
CLRSY:
TY:Now erasing $DRIVE:$FILE{
CPMY:ERA $DRIVE:$FILE
T:}
J:*UTILITY
*RENAME
U:GETFILE
J(B):*RFRSH
DEF:$OLDNAME $FILE
U:*CLEAR
CUR:0,22
T:Enter new name of file:
CUR:23,22
INMAX:13
A:
SAVE:$FILE
CLRS:
T:Now renaming $DRIVE:$OLDNAME. The new name will be $DRIVE:$FILE.{
CPM:REN $DRIVE:$FILE=$DRIVE:$OLDNAME
T:}
J:*UTILITY

R:=====================================================================
R:
R: Menu displays
R:
*MENU1
CLRS:
T:                         {M A I N  M E N U}
T: This menu is your road map through the CP/M operating system. To
T: perform these functions, just enter the appropriate number after
T: the prompt below, then follow the instructions given.
LF:1 
T:	{1	WordStar}			Word Processing
T:	{2	LogiCalc}			Financial Analysis
T:	{3	Correct-It}			Spelling Checker / Corrector
T:	{4	Personal Pearl}		Data Base Manager
T:	{5	Quest}				Bookeeper System
T:	{6	MBASIC-80}			Microsoft BASIC
T:	{7	BaZic}				North Star Compatible BASIC
T:	{8	CP/M Tutorial menu}		CP/M Learning Tool
T:	{9	PARK}				Hard disk head parking utility
T:	{U	Utility menu}
T:	{ESC	Exit to CP/M}
LF:1
T:   {Enter your selection:}
E:
R:=====================================================================
R:
*MENU2
CLRS:
T:                       {U T I L I T Y  M E N U}
T:
T: This menu allows you to perform a number of everyday utility functions.
T: The  function  to be  performed  is  selected by  entering  the  number 
T: corresponding  to the  function desired.   For some of the functions to
T: work, you should set the{CURRENT DRIVE}to the drive that is to be used.
T:{
T:	1	Display a diskette directory 
T:	2	View or Print a file 
T:	3	Copy a file or files 
T:	4	Format a diskette 
T:	5	Make a backup diskette 
T:	6	Check diskette and file size 
T:	7	Execute a CP/M command
T:	8	Rename or erase a file 
T:	ESC	Return to Main Menu
T:
T:    Enter your selection:}  
E:
R:
R:=====================================================================
R:PEARL MENU
*PEARLMENU
CLRS:
LF:1
T:             Personal Pearl function selection menu
LF:1
T: See your Personal Pearl manual for a description of the options given
LF:2
T:	{1}	Welcome		(Demonstartion and installation)
T:	{2}	Design Forms
T:	{3}	Design Reports
T:	{4}	Enter Data
T:	{5}	Produce Reports
T:	{6}	Sort Data
T:	{7}	File Maintainance
T:	{8}	Create a LogiCalc format file
T:	{ESC}	Exit to main menu
LF:1
T:{Enter your selection:}
E:
R:
R:=========================================================================
R: Subroutines invoked from above
R:
*STATUS
R: This routine refreshes the status lines (20-24) on the screen
CUR:0,19
T:-----------------------------------------------------------------------------
T:{CURRENT DRIVE:}$DRIVE:
T:                                                                            
T:                                                                            
TNR:                                                                             
E:


R:=====================================================================
*CHANGE
R: This routine is used to change the current drive
R: All messages appear in the status area of the screen.
R:
U:*CLEAR
INMAX:1
R: Get the new drive
CUR:0,22
T: {Enter new drive ( A,B,C,D,E )}
*INPUTLOOP2
CUR:16,20
A:
M: A , B , C , D , E , ,
BELLn:
Jn: *INPUTLOOP2
M: ,
SAVEn: $DRIVE
U:*CLEAR
*EXIT
U:*CHANGEMSG
INMAX:13
E:




R:===========================================================================
*GETFILE
R: Get the file to use for a command
C:B=0
U:*CLEAR
CUR:0,22
TNR:Press{RETURN}to use the file shown, or enter a new file name{:} $FILE
CUR:64,22
INMAX:13
A:
M: ,
SAVEN: $FILE
*EXISTCHK
EXIST:$DRIVE:$FILE
Jy:*EXITGF
U:*CLEAR
CUR: 0,21
BELL:
T:{ERROR: Cannot find "$FILE" on Drive $DRIVE.} Check spelling.
T:You may search on another Drive{(D),}re-enter file name{(R),}
TNR:or abort{(A)}the command?
*INPUTLOOP7
CUR:26,23
INMAX:1
A:
M: D , R , A ,
Jn:*INPUTLOOP7
M: A ,
R: variable 'B' is set as a condition flag to indicate abort was selected
Cy:B=1
Jy:*EXITGF
M: R ,
Jy:*GETFILE
U:*CHANGE
J:*EXISTCHK
*EXITGF
U:*CLEAR
E:
R:============================================================================
*CLEAR
R: This routine clears messages from the status area
CUR:0,21
T:                                                                            
T:                                                                            
TNR:                                                                            
E:

R:============================================================================
*CHANGEMSG
R: This routine simply puts a message in the status area to indicate what to
R:  press to change the current drive.
CUR: 15,22
T: To change the current drive, press 'C'.
E:




R:============================================================================
R: This routine waits until a key is pressed, and goes back to the Utility
R: Menu.
*DELAY
WAIT:
M: TIMEOUT ,
JY:*DELAY
J:*UTILITY

R:============================================================================
*EXITMENU
CLRS:
T:{To re-enter the menu system, type 'PILOT CPMENU' followed by [RETURN].
END: