R: SUPERCALC VERSION with QUEST, BACKFIELD, and FUNCTION KEYS
R: Morrow Designs Micro-Menu system - Rev 3.0
R: Copyright 1984 Morrow Designs, Inc.
R: All Rights Reserved
R: Written by Harrison Schreppel for Morrow Designs
R: Modified to the point of non-recognition
R:    by J. VanderWood for Hard Disk System MD11

*BEGIN
R: display main menu
ESC:*EXITMENU
ERASTR:
C: UN1 = 0
C: UN2 = 0
C: UN3 = 0
U: *MENU1

*LABEL1
M: 1 ,
JY: *NEWWORD
M: 2 ,
JY: *SUPERCALC
M: 3 ,
JY: *CORRECT
M: 4 ,
JY: *PEARL
M: 5 ,
JY: *QUEST
M: 6 ,
JY: *BACKFIELD
M: 7 ,
JY: *MBASIC
M: 8 ,
JY: *BAZIC
M: 9,
JY: *PARK
M: U ,
J: *UTILITY

*NEWWORD
ESC: *BEGIN
DEF: $PROGRAM NewWord
C:a=@9
C:b=(-3+a)
DEF(B):$COMMAND key nw|key default
J(B):*NWKEY
DEF: $COMMAND nw
*NWKEY
DEF: $OPT}To exit from NewWord, type{X}at the Opening Menu.{
C: UN1 = 1
C: UN2 = 2
C: UN3 = 3
U: *USER
J: *BEGIN

*SUPERCALC
ESC: *BEGIN
DEF: $PROGRAM SuperCalc
C:a=@9
C:b=(-3+a)
DEF(B):$COMMAND key sc|key default
J(B):*SCKEY
DEF: $COMMAND sc
*SCKEY
DEF: $OPT{To exit from SuperCalc, type "{/Q}" at the "active cell" prompt.}
C: UN1 = 4
C: UN2 = 5
C: UN3 = 6
U: *USER
J: *BEGIN

*CORRECT
ESC: *BEGIN
DEF: $PROGRAM Correct-It
DEF: $COMMAND correct
DEF: $OPT              
C: UN1 1
C: UN2 2
C: UN3 3
U: *USER
J: *BEGIN

*PEARL
ESC:*BEGIN
U:*PEARLMENU
*INPUTLOOP4
CUR:21,22
TNR:                                                    
CUR:21,22
TNR:{Enter your selection: }
INMAX: 1
A:
M:1,2,3,4,5,6,
BELLN:
JN:*INPUTLOOP4
M: 1 ,
DEFY:$COMMAND WELCOME 
JY: *WELCOME
M: 2 ,
DEFY:$COMMAND PEARLDF 
DEFY:$PROGRAM Design Forms
M: 3 ,
DEFY:$COMMAND PEARLDR 
DEFY:$PROGRAM Design Reports
M: 4 ,
DEFY:$COMMAND PEARLED 
DEFY:$PROGRAM Enter Data
M: 5 ,
DEFY:$COMMAND PEARLPR 
DEFY:$PROGRAM Print Reports
M: 6 ,
DEFY:$COMMAND PEARLFM
DEFY:$PROGRAM File Maintenance
DEF: $OPT            
C: UN1 = 7
C: UN2 = 8
C: UN3 = 9
U: *USER
T:}
J: *BEGIN
*WELCOME
CLRS:
CUR: 0, 13
TNR:{Preparing to run WELCOME . . .   
CPM: WELCOME|
J: *BEGIN

*QUEST
ESC: *BEGIN
DEF: $PROGRAM Quest
DEF: $COMMAND kp
DEF: $OPT To exit from Quest, enter function code{99}at its main menu.
C: UN1 10
C: UN2 11
C: UN3 12
U: *USER
J: *BEGIN

*MBASIC
CLRS:
LF:10
T:To{exit}from Microsoft BASIC, type{SYSTEM}at the "Ok" prompt.
T:
T:Preparing to run Microsoft BASIC. Please stand by...{
CPM:user 13; MBASIC|; user 0
T:}
J:*BEGIN

*BAZIC
CLRS:
LF:10
T:To{exit}from BAZIC, type{BYE}in capital letters at the "READY" prompt.
T:
T:Preparing to run BaZic. Please stand by...{
CPM:user 14; BAZIC10|; user 0
T:}
J:*BEGIN

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

*BACKFIELD
CLRS:
LF: 11
TNR:{Loading Backfield Selection Menu; please stand by . . .
CH: bkfield.pil

*TUTORIAL
CUR:0,22
T:                      {Loading tutorial menu...
CH:TUTORIAL.PIL

*UTILITY
ERASTR:
ESC:*BEGIN
U:*MENU2
*UTILCHECK
CUR:0,22
TNR:                                                
CUR:0,22
TNR:                    {Enter your selection:}  
INMAX:1
A:
M: 1,2,3,4,5,6,7,8,9
JN:*UTILCHECK
M: 1 ,
JY:*DIR
M: 2 ,
JY:*TYPE
M: 3 ,
JY:*COPY
M: 4 ,
JY:*FORMAT
M: 5 ,
JY:*SHOW
M: 6 ,
JY:*CPM
M: 7 ,
JY:*OTHER
M: 8 ,
JY:*TUTORIAL
M: 9 ,
JY:*QINSTAL

*QINSTAL
CLRS:
LF:12
TNR:{Preparing to run the QUEST Load program; please stand by . . . 
CH: quest.pil
J: *BEGIN

*DIR
ESC: *BEGIN
CLRS:
CUR:0,12
T:Please specify the user number{(0-15)}and RETURN 
T:for the hard disk directory you wish to view, 
T:
T:or 
T:
TNR:press{F}and RETURN to see the directory of a floppy disk:  {
INMAX: 2
A:
SAVE: $USNO
M: 0 , 1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 , 9 , 10 ,11 , 12 , 13 , 14 , 15 , F
JN: *DIR
M: F
CPMY: dir B:[user=all,full]|
CPMN: dir [user=$USNO,full]|
T:}
TNR:Press any key to return to the Utility Menu:  {
INMAX: 1
A:
J: *UTILITY

*TYPE
CLRS:
LF: 3
T:If the file you want to look at is on a floppy diskette, put "B:" in front
T:of the file name, when you are asked for it (example: B:FLOPPYF.ILE).
T:
T:A "No File" or "File not found" error  message can mean three things:  You 
T:mistyped the file name, entered the wrong  user number, or the file simply 
T:isn't there.
LF: 3
T:Type the name of the file you want to see, including period  and last name, 
T:if used (example: SAMPLE.FIL), then press RETURN:
T:
TNR:Filename >>>{  
INMAX: 12
A:
SAVE: $FILE
T:}
TNR:Type the user number (0-15) that contains the file and RETURN: {
*UNER
INMAX: 3
A:
SAVE: $USERNUM
T:}
M: 0 , 1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 , 9 , 10, 11, 12, 13, 14, 15,
TNRN:That is not a valid user number. Please retype:  
JN: *UNER
R:  "EXIST" Block extracted from here!!!!!
LF: 2
T:Would you like it to be sent to your screen, or to your printer?
T:
TNR:Type{S}for screen or{P}for printer:  
*TYPE1CHECK
INMAX: 1
A:
M:S,P
TN:
TNRN:Please type S or P:  
JN: *TYPE1CHECK
M: P
UY: *PRINT
CLRS:
LF:10
T:{
T:Abandon}the display at any time by pressing{CONTROL-C.
T:Pause}the display with{CONTROL-S.
T:Resume}the display with{CONTROL-Q.
T:
T:Get ready with your fingers on CONTROL-S now.  It moves pretty fast. . .}
WAIT:
CPM: pip CON:=$FILE[g$USERNUM R]|
LF:1
TNR:Type any key to return to the Utility Menu:  
INMAX: 1
A:
J:*UTILITY

*PRINT
CLRS:
LF: 9
T:Be sure your printer is turned on and on-line, with paper in place.
T:You can{abandon}the printout at any time by pressing{CONTROL-C.} If
T:your  printer has  a problem  and things lock up,  press the {RESET} 
T:switch on the MD-11 to restart.
T:
TNR:Type the ESC key to quit or anything else to proceed:  
A:
CPMY:PIP LST:=$FILE[g$USERNUM E R]|
LF:1
TNR:Type any key to return to the Utility Menu:  
INMAX: 1
A:
JY: *UTILITY
E:

*COPY
R: PIP utility
CLRS:
LF: 8
T: If you intend to copy to or from a diskette, put "B:" in front of the file
T: name that is  on the diskette, when you are prompted for it.  For example, 
T: to copy GOODST.UFF from a floppy, when asked for the original file's name, 
T: type B:GOODST.UFF.
T:
TNR: Type the name of the original (source) file and press RETURN: {
INMAX: 14
A:
SAVE: $SOURCE
TNR:}Type its user number (0-15): {
*ERR
INMAX: 2
A:
SAVE: $SOURCENO
M: 0 , 1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 , 9 , 10, 11, 12, 13, 14, 15,
TN:}  That is not a valid user number. 
TNRN: 	       Please retype: {
JN: *ERR
T:
TNR:}Now type the name to give the copy (destination) file: {
INMAX: 14
A:
SAVE: $DEST
TNR:}Type its user number (0-15): {
*ERR1
INMAX: 2
A:
SAVE: $DESTNO
M: 0 , 1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 , 9 , 10, 11, 12, 13, 14, 15,
TN:  }That is not a valid user number. 
TNRN:	        Please retype: {
JN: *ERR1
LF: 2
T:}You want to copy{$SOURCE}from{user $SOURCENO}to{$DEST}in{user $DESTNO.}
TNR: Is that right?{(Y or N):  }
*ERR2
INMAX: 1
A:
M: Y,N
TN:
TNRN: Please type Y or N:  
JN: *ERR2
M: Y
JY: *COPY1
J: *COPY

*COPY1
CPM: pip $DEST[g$DESTNO]=$SOURCE[g$SOURCENO r]|
LF: 2
TNR:Copy utility finished.  Press any key to return to the Utility Menu:  
INMAX: 1
A:
J: *UTILITY
E:

*FORMAT
ESC: *UTILITY
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:{Insert the diskette you want to format now.}
T:
T: If you want to format a diskette for use on a Morrow MD-2 computer, select
T:{2}below.  Otherwise choose{1.}  Press {ESC} to return to the  Utility Menu 
T: without formatting any diskettes.
*RECYCLE
CUR: 0,15
T:                                 
CUR: 0,15
TNR:{Type 1, 2, or ESC:}  
INMAX: 1
A:
M: 1, 2
JN:*RECYCLE
M: 1
CPMY: FORMAT B D
CPMN: FORMAT B S
CLRS:
LF: 10
T: Would you like to format another diskette?  
T:
TNR: Type{Y}for Yes or anything else to quit:  
INMAX: 1
A:
M: Y
UY: *FORMAT
J:*UTILITY

*SHOW
ESC: *UTILITY
CLRS:
LF: 10
T: You have four choices:     {1} Check the size of a file
T:                            {2} Check space remaining on a floppy disk
T:                            {3} Check space remaining on the hard disk
T:                          {ESC} Return to Utility Menu
*SHOWCHK
CUR:0,15
TNR:                                                    
CUR:0,15
TNR:                            {Type 1, 2, 3, or ESC:  }
INMAX: 1
A: #OPTION
M:1,2,3
JN: *SHOWCHK
CASE (#OPTION): *FILE, *FLOPPY, *HARD
*FILE
LF:3
T: If the file you want to check is on a floppy disk, insert the disk now,
T: and put "B:" in front of the file's name when you are asked for it, as
T: in B:ITSYBTSY.FIL.
LF: 2
TNR: Type the name of the file (example- GREATBIG.FIL) and RETURN: {
INMAX: 14
A:
SAVE: $SHFILE
T:
TNR:}Now type its user number (0-15):{ 
*SHCHK1
INMAX: 2
A:
SAVE: $SHUN
M: 0 , 1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 , 9 , 10, 11, 12, 13, 14, 15,
T:}
TNRN: Sorry, $SHUN is not a valid user number.  Please retype:  
JN: *SHCHK1
T:{
CPM: dir $SHFILE [user=$SHUN]
J:*CONT

*FLOPPY
LF: 3
TNR: Insert the diskette you want to check and press RETURN:  {
INMAX: 1
A:
T:
CPM: show B:[space]|
J: *CONT

*HARD
T:{
CPM: show a:[space]|
J: *CONT

*CONT
T:}
TNR:Type any key to return to the Utility Menu:  {
INMAX: 1
A:
J: *UTILITY


*CPM
ESC: *UTILITY
CLRS:
LF: 5
T:  This selection allows you to enter  CP/M commands  directly. It can be 
T:  used by the curious for experimental reasons, and to learn about CP/M.
T:  It can  also be used by experienced CP/M users to perform more complex
T:  commands than those provided in the Co-pilot menus.
T:
T:  To use this feature, just type a valid CP/M command followed by RETURN.
T: {NOTE: After certain  commands are  finished executing,  you must press
T:  CONTROL-C when ready to return to the Co-pilot menus.}You'll know that 
T:  this is the case when the system stops, showing "A>"  when the command
T:  is done.
T:
T:  To return to the Utility Menu now, press ESC.
LF: 3
TNR: {COMMAND:} 
INMAX: 80
A:
SAVE: $COMMAND
T:
T:Now executing command, please stand by...{
CPM:$COMMAND|
T:}
J:*UTILITY

*OTHER
ESC: *UTILITY
CLRS:
LF: 9
T:  You have three choices:   	{1}  Erase a file
T:  				{2}  Rename a file
T:			      {ESC}  Return to the Utility Menu
*OTHCHK
CUR:0,14
TNR:                                                           
CUR:0,14
TNR:                                    {Type 1, 2, or ESC:  }
INMAX: 1
A: #OPTION
M:1,2
JN: *OTHCHK
CASE (#OPTION): *ERA, *REN
*ERA
DEF: $VERB erase
DEF: $FILE $ERAFL
DEF: $ADJ
U: *ERAREN
T:}You want to erase{$FILE.} Are you sure?  
TNR: Type{Y}to proceed or anything else to start over:   
INMAX: 1
A:
M: Y
JN: *OTHER
CPM: user $UN; era $FILE; user 0
T:{
TNR: Type any key to return to the Utility Menu:  }
INMAX: 1
A:
J: *UTILITY

*REN
DEF: $VERB rename
DEF: $FILE $RENFILE
DEF: $ADJ old
U: *ERAREN
TNR:}Type the new name for the file: {
INMAX: 12
A:
SAVE: $NEW
T:
T:}You want to rename{$FILE}to{$NEW}.  Is that right?  
TNR: Type{Y}to proceed or anything else to start over:  
INMAX: 1
A:
M: Y
JN: *OTHER
CPM: user $UN; ren $NEW=$FILE; user 0
T:{
TNR: Type any key to return to the Utility Menu:  }
INMAX: 1
A:
J: *UTILITY

*ERAREN
LF: 3
T: If the file you want to $VERB is on a floppy disk, insert the disk now,
T: and put "B:" in front of the file's name when you are asked for it, as
T: in B:USELESSF.ILE.
LF: 2
TNR: Type the $ADJ name of the file and RETURN: {
INMAX: 14
A:
SAVE: $FILE
T:
TNR:}Now type its user number (0-15):{ 
*OTHCHK1
INMAX: 2
A:
SAVE: $UN
M: 0 , 1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 , 9 , 10, 11, 12, 13, 14, 15,
TNRN: Sorry, $UN is not a valid user number.  Please retype:  
JN: *OTHCHK1
T:}
E:


R:=====================================================================
R:
R: Menu displays
R:
*MENU1
CLRS:
T:                  {C O P I L O T    M A I N    M E N U}
T:
T:
T: This menu is your copilot through the CP/M operating system.  To perform
T: these functions, just type the appropriate number after the prompt below,
T: then follow the instructions given.
LF:3 
T:	{1	NewWord}	     	Word Processing
T:	{2	SuperCalc}		Financial Analysis
T:	{3	Correct-It}		Spelling Checker / Corrector
T:	{4	Personal Pearl} 	Data Base Manager
T:	{5	Quest}			Bookkeeper System
T:	{6	Backfield}		Hard Disk Backup Programs
T:	{7	MBASIC} 		Microsoft BASIC
T:	{8	BaZic}			North Star Compatible BASIC
T:	{9	PARK}			Hard Disk Head Parking Utility
T:	{U	Utility menu}
T:	{ESC	Exit to CP/M}

*VALID1
CUR: 0,23
TNR:                                                   
CUR: 0,23
TNR:                       {Enter your selection:}
INMAX: 1
A:
M:1,2,3,4,5,6,7,8,9,U,
UN:*VALID1
U:*LABEL1
E:
R:=====================================================================

*MENU2
CLRS:
LF: 2
T:               {C O P I L O T    U T I L I T Y    M E N U}
T:
T:
T: This menu allows you to perform a number of everyday utility functions.
T: Simply type the number next to the function you desire. 
T:
T:
T:
T:  	      {1}    Display a directory
T:	      {2}    View or Print a file 
T:	      {3}    Copy a file or files 
T:	      {4}    Format a diskette 
T:	      {5}    Check disk space and file size 
T:	      {6}    Execute a CP/M command
T:	      {7}    Rename or erase a file 
T:	      {8}    Fundamental training in CP/M
T:   	      {9}    Load QUEST Bookkeeper
T:	    {ESC}    Return to Main Menu
E:

R:=====================================================================
R:PEARL MENU
*PEARLMENU
CLRS:
LF:4
T:      {P E R S O N A L    P E A R L    F U N C T I O N    M E N U}
LF:2
T: See your Personal Pearl manual for a description of the options given.
LF:2
T:		{1}	Welcome	(Demonstration)
T:		{2}	Design Forms
T:		{3}	Design Reports
T:		{4}	Enter Data
T:		{5}	Produce Reports
T:		{6}	File Maintenance
T:		{ESC}	Exit to Main Menu
E:


R:===========================================================================
*USER
ESC:*BEGIN
CLRS:
T:  __________________________
T: ||------------------------||
T: ||                        ||
T: || 1.                     ||     You have three $PROGRAM filing 
T: ||                        ||     drawers available.  They correspond
T: ||                        ||     to User Areas #UN1, #UN2, and #UN3.  Files
T: ||                        ||     you create will go in the drawer you 
T: ||           ====         ||     open now.  To work with an existing 
T: ||________________________||     file, first select the drawer which
T: ||                        ||     contains the file.
T: || 2.                     ||        
T: ||                        ||       {1}  Open drawer 1
T: ||                        ||       {2}  Open drawer 2
T: ||                        ||       {3}  Open drawer 3
T: ||           ====         ||
T: ||________________________||       {D}  Display a drawer's contents 
T: ||                        ||     {ESC}  Return to Main Menu
T: || 3.                     ||
T: ||                        ||
T: ||                        ||    
T: ||                        ||    
T: ||           ====         ||    
T: ||________________________||
*CHECK
CUR:0,23
TNR:                                                                 
CUR:0,23
TNR: ----------------------------        {Select 1, 2, 3, or D: }
INMAX: 1
A: $u
M:1,2,3,D
JN:*CHECK
M: D ,
UY: *DIRUN
CLRS:
LF: 11
T:$OPT}
T:Preparing to run $PROGRAM.  Please stand by . . .{
M: 1 ,
CPMY: user #UN1; $COMMAND|; user 0
M: 2 ,
CPMY: user #UN2; $COMMAND|; user 0
M: 3 ,
CPMY: user #UN3; $COMMAND|; user 0
E:

*DIRUN
CUR: 0, 23
TNR:                                                                      
CUR: 0, 23
TNR: ----------------------------        {Select directory 1, 2, or 3: }
A:
M: 1,2,3,
JN:*DIRUN
CLRS:
LF: 10
T:{
TNR:Reading directory; please stand by . . .
M: 1
CPMY: dir [user=#UN1]|
M: 2
CPMY: dir [user=#UN2]|
M: 3
CPMY: dir [user=#UN3]|
T:{
TNR:Type any key to proceed:  }
INMAX: 1
A:
J: *USER

R:============================================================================

*EXITMENU
CUR: 0,23
TNR:                       {Exiting; please stand by . . .
CPM: user 0
CLRS:
LF: 12
T:    {To re-enter the menu system, type "PILOT GO" followed by [RETURN].
LF: 8
END: