R: Morrow Designs Micro-Menu system - Rev 2.3 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: Modified by Steve Tai and John VanderWood for NewWord 12/9/83 R: Modified by Steve Tai for Personal Pearl 12/21/83 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} NewWord 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:*newWord M:2 JY:*logicalc M:3 CLRS: Ty: This operation will create a Correct-It Working Diskette. Correct-It is Ty: probably already present on any NewWord Working Diskettes you have created. Ty: Diskettes made with this selection will have nothing but Correct-It on them. Ty: JY:*correct M:4 JY:*pearl M:5 JY:*quest M:6 JY:*bazic M:7 JY:*mbasic *newWord T: This operation will create a NewWord Working Diskette containing either T: the Novice or Advanced version of NewWord, but not both versions. You T: must select NewWord twice from the Create Working Diskettes menu if you T: want both versions. Label the blank diskette "NewWord Novice Working T: Diskette" or "NewWord Advanced Working Diskette," whichever is appropriate. T: T: For convenience, the spelling checker "Correct-It" will also be placed T: on your NewWord Working Diskette. You will need a blank disk, the NewWord T: Distribution Diskettes, and the Correct-It Distribution Diskette before T: continuing. T: TNR: Press any key to continue .... a: CLRS: T:Please select a printer for NewWord: T: T: {A} Simple {H} NEC Spinwriter 2000 series T: {B} Draft printer {I} NEC Spinwriter 3500 series T: {C} Typewriter printer {K} NEC Spinwriter 5500 series T: {D} Qume Sprint 11 {L} Okidata Microline 84 (step 2) T: {E} Silver Reed EXP550 {M} Okidata models 92/93 T: {F} Diablo 1610/20/40/50 {N} Epson MX80/100 & FX80/100 T: {G} Diablo 630 {O} C.Itoh Prowriter T: T: {P} Morrow MP 100/200/300 series {X} Do not want to select now T: or None of the above T: *again CUR:0,13 INMAX:1 A:$ptr M: A , B , C , D , E , F, G , H , I , K , L , M , N , O , P , X , JN:*again DEF: $STR nh M:P DEFy: $STR nh3a'M'P' '1'0'0'/'2'0'0'/'3'0'0' 'p'r'i'n't'e'r0d0a0d0a00.x1 DEFy: $ptr E M:X DEFY: $ptr B CLRS: T: TY: With{X}, your printer is going to be installed as a {DRAFT PRINTER.} TY: There may be some printing features that will not work properly TY: unless you reinstall NewWord with the NWINSTAL. COM program. Refer TY: to the{Nuts & Bolts}section of the NewWord User's Guide for detailed TY: instructions on reinstalling NewWord for a specific printer. TY: TNRY: Press any key to continue .... AY: T: *loop CLRS: T: What NewWord version do you want this Working Diskette to contain ? T: T: CUR:0,3 TNR: Type{A}for Advanced or{N}for Novice: a: M: A , N T: jn:*loop M:A defy: $OVR OVR defy: $PROG NWU defy: $NAME NEWWORD ADVANCED VERSION defn: $OVR NVC defn: $PROG NWNOVICU defn: $NAME NEWWORD NOVICE VERSION def: $INSTALL NWINSTAL T: *uh CUR:0,6 TNRy: Advanced version selected. OK ? (Y/N) TNRn: Novice version selected. OK ? (Y/N) A: M: Y , N jn:*uh M:N jy:*loop T: T: u:*check u:*format DEF: $cmmd1 PIP;B:=C:*.COM;B:=C:*.DOC;B:=C:*.$OVR DEF: $cmmd2 ;;B:NWINSTAL;B:$PROG DEF: $cmmd3 ;B:NW;AY DEF: $cmmd4 NBY DEF: $cmmd5 XXN;ERA B:NWINSTAL.COM;ERA B:$PROG DEF: $cmmd6 .COM; c:a=@9 - 2 DEF(a): $ter O DEF(a): $trstr a'L'e'v'e'l' 'I'I'I' 't'e'r'm'i'n'a'l0d0a00.x j(a):*lvlnw c: a=a+1 DEF(a): $ter N DEF(a): $trstr a'L'e'v'e'l' 'I'I' 't'e'r'm'i'n'a'l0d0a00.x j(a):*lvlnw c: a=a+1 DEF(a): $ter R DEF(a): $trstr a'L'e'v'e'l' 'I' 't'e'r'm'i'n'a'l0d0a00.x j(a):*lvlnw T: T: Your NewWord working diskette will be installed for a{MINIMUM}terminal. T: Most likely your terminal will perform adequately, but not at peak T: efficiency. Refer to {Appendix B} of the NewWord Encyclopedia for T: detailed instructions on running the installation program NWINSTAL T: to enhance the terminal display. T: T: Press{RETURN}to create your working diskette of $NAME. A: DEF: $ter K DEF: $trstr a'L'e'v'e'l' '0' 'o'r' 'U'n'i'n's't'a'l'l'e'd' 't'e'r'm'i'n'a'l0d0a00.x *lvlnw TNR:} T: T: Remember, when you see: T: T: {Your $POSITION drive is being re-assigned as drive C.} T: {Exchange diskette and press [RETURN]} T: T: You must put the $NAME Distribution Diskette in T: the $POSITION drive and press [RETURN]. T: T: Likewise, when I re-assign the $POSITION drive back to drive A, you T: then put the CP/M diskette back to the $POSITION drive and press [RETURN]. T: TNR:{ cpm:$cmmd1$cmmd2$cmmd3$ter$cmmd4$ptr$STR$trstr$cmmd5$cmmd6; def: $NAME1 $NAME def: $PROG CORRECT def: $NAME Correct-It u: *check TNR:{ cpm:PIP B:=C:*.* DEF: $PROG NW DEF: $NAME $NAME1 J:*complete *logicalc def: $PROG LC def: $NAME LogiCalc def: $INSTALL LCSET u: *check u:*format TNR:{ 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 TNR:{ 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.} T: TNR: To make working copies, press{RETURN.} A: clrs: T: T: You will need six 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 six diskettes{exactly}as T: shown here: T: T: {1} Welcome, Produce Reports, Enter Data, LogiCalc T: {2} Starter Library T: {3} Sort T: {4} Design Forms and Reports, File Maintenance T: {5} Pearl 1ST MASTER DISKETTE T: {6} Pearl 2ND MASTER DISKETTE T: TNR:{After}labeling the diskettes, you should press{RETURN.} INMAX:1 A: C:dk=6 *formatloop CLRS: T:Place the{Pearl labelled working number #dk}diskette in drive B (upper T:drive). I am going to format this diskette first. TNR:Press{C}to signal me to go ahead. inmax:1 A: m: C , jn:*formatloop def: $exec FORMAT B D;SYSGEN;A;B;;PIP B:=A:RETURN.COM; c:aa=dk-4 def(aa): $exec FORMAT B D; CPM:$exec C:dk=dk-1 J(dk):*formatloop CLRS: T: Still with me? Good. Let's go! T: T: Be sure to follow the instructions, we can't afford mistakes. T: Tnr: Press any key to continue ... inmax:1 a: T: c: dk=2 c: aa=1 def: $what 1st def: $PROG WELCOME def: $NAME PERSONAL PEARL disk #aa of 2 *wrong CLRS: T: T: Insert the{Pearl $what Master Diskette}in your{UPPER}disk drive. TNR: Press any key to continue ... inmax:1 A: T: EXIST:B:*.* JN:*backuppearl BELL: T: T: Sorry, but you put the wrong disk in the {UPPER} disk drive. TNR: Press any key to continue ... inmax:1 a: J:*wrong *backuppearl T: u:*check CLRS: T: T: When you see "{Press [RETURN] when ready to copy}," you take the CP/M T: System Diskette out from the $POSITION drive and put the{Distribution T: PERSONAL PEARL disk #aa of 2} in the drive, then press [RETURN]. T: TNR: Press any key to continue ... inmax:1 A: cpm:backup|SYSGEN;A;B;;PIP B:=A:RETURN.COM; def: $what 2nd def: $PROG PSORT c:aa=2 def: $NAME PERSONAL PEARL disk #aa of 2 c:dk=dk-1 j(dk):*wrong def: $NAME PERSONAL PEARL CLRS: T: T: So far, so good. T: You can put your{PERSONAL PEARL DISTRIBUTION DISKETTES}away now. T: CLRS: TNR:{ c:a=@9 - 2 DEF(a): $ter 5 j(a):*doit c: a=a+1 DEF(a): $ter 2 j(a):*doit DEF: $ter 1 *doit T: T:{Put the STARTER LIBRARY DISKETTE (##2) in drive B: (upper drive).} T: T: Press any key to continue .... inmax:1 A: T: T: I am going to pass control to the PERSONAL PEARL so that we can T: finish up creating the Working Diskettes procedure. T: T: However, you must do the following: T: After PERSONAL PEARL asked you to put the WELCOME DISKETTE in drive T: A: (lower drive) it will ask you to re-boot the system. T:{DO NOT RE-BOOT the system but press [ESC] slowly three times.} T: T: Easy enough ? (you will recognize that time comes when you find T: the phase "Re-boot the system" from the screen. Look for it !) T: T: Press any key to continue .... inmax:1 A: CPM:PAUSE WELCOME Pearl 1ST Master Diskette|WELCOME;$ter;P;1;1;;b|A:RETURN| T: T: One more step and we are done. T: I will pass control to PERSONAL PEARL again. This time it will ask you T: to put the DESIGN FORMS disk (##4) and the ENTER DATA DISK{(i.e WELCOME T: DISKETTE ##1)}in drive A: ($POSITION) drive. No sweat ! T: When it asks for your name, type it in. T: T: After all this, you will find yourself in the{GETTING UNDERWAY} menu of T: PERSONAL PEARL. Press [ESC] twice to exit to CP/M and you are done. T: (This time you recognize it by a line like follow: T:______________________ GETTING UNDERWAY ________________________) T: T: Press any key to continue .... inmax:1 A: cpm:pause WELCOME Pearl 1ST Master Diskette|WELCOME;$ter;p;2;;|A:RETURN| T: T: If during the copying, you did not see any error messages but only T: 'copy successful' or 'verified' then you have completed the Personal T: Pearl installation. T: Otherwise, correct the problem and re-create the working diskettes again. 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: TNR:{ 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 TNR:{ CPM:BACKUP| def: $QUEST REPORTING U: *questcopy TNR:{ 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: TNR:{ 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 review tn:which diskette goes in which drive. Tn: CPMN: Tn:When you are ready to review the instructions, press {[RETURN]} an: un:*MSG jn:*check t: t: O.K. you have the correct Distribution Diskette, t: press{[RETURN]}to continue .... a: e: *format CLRS: C:A=@8 T(A):Place the{SPARE}diskette in drive B (upper drive). 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: TNR:{ 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 I re-assign the drive to be{Drive A,} T: place your{CP/M SYSTEM DISKETTE}in the drive. T: T: Whenever I re-assign the drive to be{Drive B,} T: place the{SPARE}diskette in the drive. T: T: Whenever I re-assign 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 I re-assign the drive to be{Drive A, ($POSITION drive)} T: place your{CP/M SYSTEM DISKETTE}in the drive. T: T: Whenever I re-assign the drive to be{Drive C, ($POSITION drive)} T: place your{DISTRIBUTION}diskette in the drive. T: T: Drive B (upper drive) should always have the{SPARE}diskette in it. T: TNR: Press{[RETURN]}to continue. A: E: *DRIVE3 CLRS: T: T: Place the {SPARE} diskette in Drive B , and place T: the 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. T:Put the Distribution copy away for safe keeping. T:You shouldn't need it unless something happens to T:the working copy you just made. CUR:0,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