R:Morrow Designs Micro-Menu system - Rev 2.2 R: double sided version 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 lower 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. LF:2 T: {1} WordStar T: {2} LogiCalc T: {3} Correct-It T: {4} Personal Pearl T: {5} Quest T: {6} BaZic T: {7} MBASIC T: {ESC} Return to main menu T: {R} To Review instructions T: T: {OPTION}: *action cur: 10,15 inmax:1 a: m: 1 , 2 , 3 , 4 , 5 , 6 , 7 , 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:*pearl M:5 JY:*quest M:6 JY:*bazic M:7 JY:*mbasic *wordstar def: $PROG WSU def: $NAME WORDSTAR def: $INSTALL INSTWS u: *check u:*format def: $PROG WS c:a=@9 - 2 j(a):*lvl3ws c: a=a+1 j(a):*lvl2ws c: a=a+1 j(a):*lvl1ws u:*levelmsg cpm:PIP;B:=C:WSU.COM;B:=C:*.OVR;B:=C:EXAMPLE.TXT;B:=C:INSTWS.COM; j:*complete *lvl1ws 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 def: $INSTALL LCSET u: *check u:*format c:a=@9 - 2 j(a):*lvl3lc c: a=a+1 j(a):*lvl2lc c: a=a+1 j(a):*lvl1lc u:*levelmsg cpm:PIP;B:=C:LC*.*;B:=C:BALSHEET.LCF; j:*complete *lvl1lc 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 *pearl clrs: T: T: Personal Pearl is a very powerful application program. In making it so T: versatile however, the user is faced with what may seem to be an endless T: installation procedure. We have tried to make his procedure as clean, T: and straight-forward as possible. If you follow all the instructions, T: you should end up with configured working copies of the Personal Pearl T: data base management program. T: T: This is a lengthy procedure, so you should have at least half an hour T: set aside. If you do not want to make working copies of Personal Pearl T: at this time, press {ESC.} TNR: To make working copies, press {RETURN} A: clrs: T: T: You will need five blank diskettes to make a working copy of Personal T: Pearl. First they will all be initialized. You will then use the Personal T: Pearl installation program to make a personalized copy for your use. T: T: Before getting started, you should label the five diskettes exactly as T: shown here: T: T: {1} Pearl disk 1 backup T: {2} Welcome, Produce Reports, Enter Data, LogiCalc T: {3} Starter Library T: {4} Sort T: {5} Design Forms and Reports, File Maintenance T: TNR: {After}labeling the diskettes, you should press {RETURN.} A: C: a=5 *formatloop CLRS: T: TNR: Insert disk #a in in your upper disk drive, and press {RETURN.} A: CPM:FORMAT B D|SYSGEN;A;B;; C:a=a-1 J(a):*formatloop CLRS: T: Still with me? Good. Let's go! T: T: Be sure to follow the instructions, we can't afford mistakes. T: *wrong T: Insert your initialized diskette labelled{Pearl disk 1 backup} in your T:{UPPER} disk drive. T: T: You will then be told to insert your "SOURCE" diskette in drive A. When T: this happens, insert the diskette labelled {PERSONAL PEARL DISTRIBUTION T: DISKETTE ... DISK 1 OF 2} in the {LOWER} disk drive. T: T: The system will then make a copy of the diskette. When the copy is T: complete, insert your {CP/M SYSTEM DISKETTE} in your lower drive, and T: press {RETURN.} T: TNR: With your {Pearl disk 1 backup} in your{upper}drive, press {RETURN.} A: EXIST:B:WELCOME.COM JN:*backuppearl CLRS: BELL: T: T: Sorry, but you put the wrong disk in the {UPPER} disk drive. be sure to T: read these instructions carefully: J:*wrong *backuppearl cpm:backup|SYSGEN;A;B;;PIP B:=A:RETURN.COM; CLRS: T: T: So far, so good. You will now be put in the hands of Personal Pearl's T: Personalization program. T: T: After telling Personal Pearl what kind of terminal you have, you will T: be presented with three choices. Personalize, Demonstrate, or Exit. T: Feel free to try the demonstration out. it's sort of a "test drive" if T: you will. When you have satisfied your curiosity, select the option to T: Personalize Pearl. This will allow Personal Pearl to complete the job T: you so innocently started. T: T: You will be using your {Pearl disk 1 backup} disk in your lower drive. T: Insert it when requested. T: TNR: Press{RETURN}to continue. A: CLRS: T:{Have a nice trip..... CPM:PAUSE WELCOME "Backup"|WELCOME|A:RETURN| CLRS: T: T: I trust you had no major problems. There is now just one step remaining. T: T: You will need to insert each of your four personalized Pearl diskettes T: in the {UPPER} disk drive one by one. After placing a diskette in the T: disk drive, press{RETURN.} T: T: Insert your Welcome disk in the{UPPER} disk drive at this time, and press TNR:{RETURN.} U:*copyreturn T: Insert your Starter Library disk in the {UPPER}disk drive. U:*copyreturn T: Insert your SORT disk in the {UPPER}disk drive. U:*copyreturn T: Insert your Design Forms disk in the {UPPER}disk drive. U:*copyreturn J:*pearldone *copyreturn A: CPM:PIP B:=A:RETURN.COM; CLRS: e: *pearldone T: T: Congratulations! You have completed the Personal Pearl installation. T: T: Now is a good time to take a nice, long, well deserved break. I promise T: that no other supplied software is as slow to install. T: T: If you press{RETURN}, you will find yourself back at the long forgotten TNR: Working Diskettes Menu. A: J:*SELECT *quest CLRS: T: T: You have two choices here. If you have just received your system you must T: first create your working Instructional disks (Option 1). This option is T: used for demonstration and training purposes only. T: T: When you are ready to set-up your company data and put Quest to work for T: you, you will need to create a new "Data" Disk. The procedure in Option 2 T: will guide you through the necessary steps to do this. You must have sent T: in your registration to Quest Inc. See your Quest manual for information T: about registering your copy of Quest. T: T: {1} Create Quest Instructional Diskettes T: {2} Create Quest (registered) Data Diskettes T: {R} Return to previous menu T: T:{OPTION:} *questloop CUR:10,15 Inmax:1 A: M: 1 , 2 , R , Jn:*questloop M: R , JY:*SELECT M: 1 , JN:*production clrs: T: Creating a Demonstration copy of Quest requires three blank diskettes. T: Label the three blank diskettes as: T: T: {1} Instructional Disk T: {2} Posting Disk T: {3} Reporting Disk T: TNR: Press{RETURN} when you have the diskettes labelled. A: CLRS: T: Insert the diskette you labelled "Instructional" disk in your upper disk T: drive, and press{RETURN. T: DO NOT PUT YOUR DISTRIBUTION DISK IN THE DISK DRIVE!} A: CPM:FORMAT B D;SYSGEN;A;B;;Auto *B: KP;PIP B:=A:RETURN.COM; CLRS: T: Insert the diskette you labelled "Posting" disk in your upper disk drive, T: and press{RETURN.} A: CPM:FORMAT B D CLRS: T: Insert the diskette you labelled "Reporting" disk in your upper drive and T: press{RETURN.} A: CPM:FORMAT B D CLRS: T: T: Now take the diskette you labelled "Instructional" disk, and place it in T: your upper disk drive. When your lower disk drive is re-assigned to be T: drive "C," insert the diskette labelled {Quest Distribution Diskette... T: ...Instructional Disk} in your lower drive and press {return.} When the T: lower drive is assigned back as drive A, remove the Distribution diskette, T: and replace it with your CP/M System Diskette, and press {RETURN.} T: TNR: Press return to continue..... A: CPM:PIP B:=C:*.*; def: $QUEST POSTING U: *questcopy CPM:BACKUP| def: $QUEST REPORTING U: *questcopy CPM:BACKUP| T: T: You now have an instructional copy of the Quest bookkeeper system. T: Place your distribution version away in a safe place.} T: T: Press {RETURN} to return to the Create Working Diskettes Menu. A: J:*SELECT *questcopy CLRS: T: T: Now, insert the diskette you labelled $QUEST disk in your upper disk T: drive. You will be asked to insert a {SOURCE} diskette in drive A (your T: lower disk drive). When this request is made, insert your {DISTRIBUTION} T: copy of the quest $QUEST disk in drive A, and press {RETURN.} T: T: Press {RETURN} to continue. A: E: *production clrs: T:}You will need two blank diskettes. One of the blank diskettes will only T: be used for making the production diskette, and should be labelled as T:{"TEMPORARY INSTRUCTIONAL".} The other blank diskette will become the T: Production disk for your company, and should be labelled {"PRODUCTION".} T: After labelling the diskettes, insert the blank {PRODUCTION} diskette in T: drive B, and press {RETURN.} A: CPM:FORMAT B D;SYSGEN;A;B;;AUTO *B: KP;PIP B:=A:RETURN.COM; CLRS: T:}Insert the blank{TEMPORARY INSTRUCTIONAL} diskette in drive B, and press T:{RETURN.} A: CPM:FORMAT B D; CLRS: T:}Leave the {TEMPORARY INSTRUCTIONAL} diskette in drive B, and go get your T: distribution copy of the diskette that Quest calls "Instructional (DATA) T: disk". T: Remember? You said you would put it in a safe place. T: Go get it now. T: T: When we continue, you will be asked to put a{SOURCE}diskette in drive A. T: At that time, put your{DISTRIBUTION COPY}of the Quest Instructional (DATA) T: disk in drive A, and press {RETURN.} T: T: Press {RETURN} when you are ready to continue... A: CPM:BACKUP|SYSGEN;A;B;;PIP B:=A:RETURN.COM; CLRS: T:}Now, take the{TEMPORARY INSTRUCTIONAL}diskette out of drive B, and insert T: the diskette labelled {PRODUCTION} in drive B instead. T: T: As we continue, you will be asked to insert your {WORKING} diskette for T: Quest in drive A. At that point, insert the diskette you labelled as T:{TEMPORARY INSTRUCTIONAL}instead, and follow with a {RETURN.} This will T: cause Quest to create a production version of Quest for your company. T: T: The Quest installation program that is about to run will state that you T: must have the Quest Instructional diskette in drive A, and a newly con- T: figured CP/M System diskette in drive B. Ignore the message. The correct T: diskettes for the drives are as follows: T: T: {DRIVE B} -- This should now have the diskette you labelled {PRODUCTION.} T: T: {DRIVE A} -- When told to insert your {WORKING} diskette for Quest in T: drive A, you must insert the diskette you labelled as T: {TEMPORARY INSTRUCTIONAL.} T: T: When you are ready to continue, press {RETURN.} A: CPM:PAUSE KINS QUEST|KINS|B:RETURN| CLRS: T:}You now have a completed Quest PRODUCTION data disk for your company. The T: {TEMPORARY INSTRUCTIONAL} disk is no longer needed. T: T: To return to the Create Working Diskettes Menu, press {RETURN.} A: J:*SELECT *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: *levelmsg CLRS: T: T: You have a {LEVEL 0} terminal. When done creating your working diskette of T: $NAME, you must run $INSTALL to set up the program for your T: terminal. T: T: Press {RETURN} to create your working diskette of $NAME. A: E: *complete CPM:SYSGEN;A;B;;AUTO *B: $PROG;PIP;B:=RETURN.COM;B:=PIP.COM;B:=STAT.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