R:Morrow Designs Micro-Menu system - Rev 2.0
R: Module - MDWORK.PIL
R: Copyright 1982, 1983 Morrow Designs, Inc.
R: All Rights Reserved
R: Written by Harrison Schreppel for Morrow Designs
R:
ESC:*return
CLRS:
R: change this from lower to left depending on the position of drive 
R: A.
DEF:$POSITION left
LF:1
T:                   {CREATE A WORKING DISKETTE}
T:
T:     This  option  creates a  "working  diskette"  for any  of the
T:supplied software.  When done, you will have a diskette  with  all
T:the necessary files  for a particular application  program, and it
T:will be installed for your terminal -- automatically! In addition,
T:your distribution  copies of the software will  be backed-up,  and
T:can be put away for safe keeping.  
T:
T:     You  must  have  a spare diskette for each  of  the  working 
T:diskettes to be created.  The diskette doesn't have to be  blank, 
T:but any information on it will be erased.
T:
T:     Creating  a working diskette requires the use of three  disk 
T:drives. The Micro Decision's unique Virtual Drive feature, allows 
T:you  to create working diskettes regardless of how  many physical 
T:disk drives you actually have.
T:
T:              Press {RETURN} when you're ready to go
T:              Press {ESC} to go back to the main menu
A:
*MAIN
U:*MSG
*SELECT
CLRS:
T: The following is a list of the programs included with your  Micro 
T: Decision. To  create  a working diskette  containing one of these 
T: programs, enter its number after the {OPTION} prompt.
T:
T: {To make a working copy of Personal Pearl, run Personal Pearl from
T: the main menu, and select the WELCOME function.}
LF:2 
T:   {1}   WordStar
T:   {2}   LogiCalc
T:   {3}   Correct-It
T:   {4}   BaZic
T:   {5}   MBASIC
T: {ESC}   Return to main menu
T:   {R}   To Review instructions
T: 
T: {OPTION}:
*action
cur: 10,16
inmax:1
a:
m: 1 , 2 , 3 , 4 , 5 , R ,
jn:*action
cur:0,15
M: R ,
JY:*MAIN
CLRS:
M:1
JY:*wordstar
M:2
JY:*logicalc
M:3
JY:*correct
M:4
JY:*bazic
M:5
JY:*mbasic

*wordstar
def: $PROG WSU
def: $NAME WORDSTAR
u: *check
u:*format
def: $PROG WS
c:a=@9 - 2
j(a):*lvl3ws
c: a=a+1
j(a):*lvl2ws
cpm:PIP;B:ws.com=C:ws1.com;B:=C:*.ovr;B:=C:example.txt;
j:*complete
*lvl2ws
cpm:PIP;B:ws.com=C:ws2.com;B:=C:*.ovr;B:=C:example.txt;
j:*complete
*lvl3ws
cpm:PIP;B:ws.com=C:ws3.com;B:=C:*.ovr;B:=C:example.txt;
J:*complete


*logicalc
def: $PROG LC
def: $NAME LogiCalc
u: *check
u:*format
c:a=@9 - 2
j(a):*lvl3lc
c: a=a+1
j(a):*lvl2lc
cpm:PIP;B:termcap.sys=C:termcap1.sys;B:=C:lc*.*;B:=C:balsheet.lcf;;era b:lcset.*;
j:*complete
*lvl2lc
cpm:PIP;B:termcap.sys=C:termcap2.sys;B:=C:lc*.*;B:=C:balsheet.lcf;;era b:lcset.*;
j:*complete
*lvl3lc
cpm:PIP;B:termcap.sys=C:termcap3.sys;B:=C:lc*.*;B:=C:balsheet.lcf;;era b:lcset.*;
j:*complete


*correct
def: $PROG CORRECT
def: $NAME Correct-It
u: *check
u:*format
cpm:PIP B:=C:*.*
j:*complete


*bazic
def: $PROG BAZIC08
def: $NAME baZic
u: *check
u:*format
cpm:PIP;B:=C:BAZ*.com;B:=C:CRT.002;
def: $PROG BAZIC
j:*complete


*mbasic
def: $PROG MBASIC
def: $NAME MBASIC
u: *check
u:*format
cpm:PIP;B:=C:MBASIC.COM;B:=C:OBASIC.COM;B:=C:RANTEST.BAS;
j:*complete

r:===============================================================
r:Subroutines referenced above
*check
c:a = @8-1
t(a): Place the $NAME distribution diskette in drive C.
j(a):*OVER
t:When  your $POSITION drive is re-assigned as drive C, put in your
t:$NAME distribution diskette.
t:
t:When the drive is assigned back as drive A, put in the CP/M system
t:diskette.
*OVER
exist: C:$PROG.com
clrsn:
belln:
tn:You  didn't  put in the right diskette.  We will go  back  and 
tn:review which diskette goes in which drive.
Tn:
CPMN:
Tn:   When  you  are  ready  to  review  the  instructions,  press 
Tn:{[RETURN]}
an:
un:*MSG
jn:*check
t:
t: O.K. you have the correct Distribution diskette, press {[RETURN]}
t: to continue.
a:
e:




*format
CLRS:
C:A=@8
T(A):Place the {SPARE} diskette in drive B.
J(A):*GO
T:{When  the $POSITION drive is re-assigned as drive B,  Be sure to 
T:remove the CPM SYSTEM diskette  and replace it  with the SPARE 
T:diskette.} The SPARE diskette will then be formatted. {Failure 
T:to replace the system diskette will cause it to be erased.}When 
T:the  formatting  is complete, and you get the message that the 
T:drive is being re-assigned as drive A, place the  CP/M  SYSTEM 
T:diskette back in the drive.
*GO
T:Press {[RETURN]} to continue.
A:
CPM:FORMAT B D|
E:


*MSG
C: A=@8-1
U(A):*DRIVE3
E(A):
C:A=A+1
U(A):*DRIVE2
E(A):
U:*DRIVE1
E:

*DRIVE1
CLRS:
T:     You  have  a single drive Micro Decision.  Because of  this, 
T:when  creating  working diskettes,  extensive use of the  Virtual 
T:Drive feature will take place.  You will be instructed at various 
T:times  to  exchange  the  diskette  in  the  drive  with  another 
T:diskette.  It  is very important that you follow the instructions 
T:as they appear on the screen, and place the diskette requested in 
T:the drive.
T:
T:     Whenever  the  system re-assigns the drive to be {Drive  A,} 
T: place  your {CP/M  SYSTEM  DISKETTE}  in  the  drive.
T:
T:     Whenever  the system re-assigns the drive to be  {Drive  B.}
T: place the {SPARE} diskette in the drive.
T:
T:     Whenever  the  system re-assigns the drive to be {Drive  C,}
T: place the  {DISTRIBUTION}  diskette  in  the  drive.
T:
T:               Press {[RETURN]} to continue
A:
E:

*DRIVE2
CLRS:
T:
T:     You have a dual drive Micro Decision.  Because of this, when 
T:creating working diskettes, {Drive A}will be re-assigned at times 
T:to  become {Drive  C.} It is very important that  you  place  the 
T:correct diskette in the $POSITION drive when it is re-assigned.
T:
T:     Whenever  the  system re-assigns the drive to be {Drive  A,}
T: place your  {CP/M  SYSTEM  DISKETTE}  in  the  drive.
T:
T:      Whenever the system re-assigns the drive to be {Drive C,}
T: place  your {DISTRIBUTION}  diskette  in  the  drive.
T:
T:     Drive B should always have the {SPARE} diskette in it.
T:
T:               Press {[RETURN]} to continue
A:
E:

*DRIVE3
CLRS:
T:
T:      Place  the  {SPARE} diskette in Drive B,  and  place  the 
T:appropriate {DISTRIBUTION} diskette in Drive C.
T: 
T:               Press {[RETURN]} to continue
A:
E:

*complete
CPM:SYSGEN;A;B;;AUTO *B: $PROG;PIP B:=RETURN.COM
CLRS:
CUR:0,12
T:Function complete.
T:You now have a $NAME working diskette. Put the Distribution copy away
T:for safe keeping.  You shouldn't need it  unless something happens to
T:the working copy you just made.
CUR:13,22
T:Press{RETURN}to go back to the working diskette menu.
inmax:1
A:
J:*SELECT

*return
CLRS:
T:Returning to main menu, please stand by...
ch: micro