R: Morrow Designs Micro-Menu system - Rev 3.11 R: hard disk version, including BACKFIELD, SUPERCALC, & dummy QUEST R: Module - MDINST.PIL R: Copyright 1984 Morrow Designs, Inc. R: All Rights Reserved R: Written by John VanderWood for the MD-HD r: Revised 14_Aug_84 by Namdar Bolour: r: 1. Run INIT.COM if not using MDT-60/70. r: 2. Install as MDT-60/70 if Level IV (change NW and SC install strings). r: 3. Install NewWord + SuperCalc key files. r: 4. Other small changes. r: Revised 17_Sept_84 by John Zalabak: r: 1. Changed 'press any key' to 'press the return key' DI: *SELECT CLRS: LF:2 T: { - I N S T A L L I N G Y O U R P R O G R A M S -} LF: 3 T: "Installing your software" is traditionally a complex and irritating T: process, fraught with dangers for the computer novice. T: T: That is why Morrow has programmed the Micro Decision to install your T: software for you. The only decision you have to make during this T: phase is selecting your printer from a list of popular models. T: T: Some things may whip by on the screen faster than you can read them, T: but don't let this bother you. The screen will "freeze" any crucial T: information and wait for you to press a key before it continues. LF: 2 T: {Don't press any keys on the keyboard during this whole T: process, unless everything stops and you're specifically T: asked to type something.} LF: 2 TNR: Press the Return key to continue: INMAX: 1 A: r:======================================================================= clrs: cur: 0, 10 t: {Are you using either a Morrow MDT-60 or MT-70 terminal?} *YNPrompt cur: 50, 12 r: Type blanks to wipe out invalid answer. t: cur: 19, 12 u: YesOrNo r: Error flag from YesOrNo is 1 if invalid answer. j(#YNError): *YNPrompt cpmn:INIT *| R:=============================================== *NEWWORD CLRS: LF:2 T: {INSTALLING NEWWORD} LF: 2 T: Before NewWord can be installed for your system, you must select your T: printer type from the list below. If you are not sure what to choose, T: talk to your dealer. If you have no idea how to respond and no-one is T: around to help, select "2 Draft Printer." T: T: {1} Simple {8} NEC Spinwriter 2000 series T: {2} Draft printer {9} NEC Spinwriter 3500 series T: {3} Typewriter printer {10} NEC Spinwriter 5500 series T: {4} Qume Sprint 11 {11} Okidata Microline 84 (step 2) T: {5} Silver Reed EXP550 (Morrow) {12} Okidata models 92/93 T: {6} Diablo 1610/20/40/50 {13} Epson MX80/100 & FX80/100 T: {7} Diablo 630 {14} C.Itoh Prowriter T: {15} Mannesmann Tally MT-160L T: T: {16 Morrow's MP100/200/300 series} *again CUR:0,21 T: CUR:0,21 TNR:}Please select your printer and press RETURN: { INMAX:3 A: #ptr M: 1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 , 9 , 10 , 11 , 12 , 13 , 14 , 15 , 16 , BELLN: JN:*again *again1 CUR: 0,21 TNR: CUR: 0,21 TNR:}You selected printer number{#ptr.} Is that correct? Type{Y}or{N}: INMAX: 1 A: M:Y,N BELLN: JN: *again1 M: N JY: *again CASE (#ptr):*1,*DRAFT,*3,*4,*5,*6,*7,*8,*9,*10,*11,*12,*13,*14,*15,*16 *1 DEF: $PRINT byanxn J: *SELTERM *2 DEF: $PRINT bybnxn J: *SELTERM *3 DEF: $PRINT bycnxn J: *SELTERM *4 DEF: $PRINT bydnxn J: *SELTERM *5 DEF: $PRINT byenxn J: *SELTERM *6 DEF: $PRINT byfnxn J: *SELTERM *7 DEF: $PRINT bygnxn J: *SELTERM *8 DEF: $PRINT byhnxn J: *SELTERM *9 DEF: $PRINT byinxn J: *SELTERM *10 DEF: $PRINT byknxn J: *SELTERM *11 DEF: $PRINT bylnxn J: *SELTERM *12 DEF: $PRINT bymnxn J: *SELTERM *13 DEF: $PRINT bynnxn J: *SELTERM *14 DEF: $PRINT byonxn J: *SELTERM *15 DEF: $PRINT bypnxn J: *SELTERM *16 DEF: $PRINT xn J: *selterm *SELTERM c:a=@9-3 j(a):*lvl4nw c:a=a+1 j(a):*lvl3nw c:a=a+1 j(a):*lvl2nw c:a=a+1 j(a):*lvl1nw C:a=a+1 j(a):*lvl0nw *lvl4nw r: Was ayonha.... def: $TERM aypnha'M'i'c'r'o' 'D'e'c'i's'i'o'n' 'L'e'v'e'l' 'I'V' 'T'e'r'm'i'n'a'l0d0a00xxdiynx j:*install *lvl3nw def: $TERM ayonha'M'i'c'r'o' 'D'e'c'i's'i'o'n' 'L'e'v'e'l' 'I'I'I' 'T'e'r'm'i'n'a'l0d0a00xx j:*install *lvl2nw def: $TERM aynnha'M'i'c'r'o' 'D'e'c'i's'i'o'n' 'L'e'v'e'l' 'I'I' 'T'e'r'm'i'n'a'l0d0a00xx j:*install *lvl1nw def: $TERM ayrnha'M'i'c'r'o' 'D'e'c'i's'i'o'n' 'L'e'v'e'l' 'I' 'T'e'r'm'i'n'a'l0d0a00xx j:*install *lvl0nw def: $TERM ayknha'M'i'c'r'o' 'D'e'c'i's'i'o'n' 'L'e'v'e'l' '0' 'T'e'r'm'i'n'a'l0d0a00xx j:*install *DRAFT CLRS: LF: 7 T:} With{2}, your printer is going to be installed as a{DRAFT PRINTER.} T: This will be fine for general-purpose printing; however, there may T: be some printing features (like superscripting) that will not work T: unless you reinstall NewWord with the NWINSTAL.COM program. Refer T: to the{Nuts & Bolts}section of the NewWord User's Guide for details T: on reinstalling NewWord for a specific printer. LF:2 TNR: Press the Return key to continue: { INMAX: 1 A: J: *2 *install CLRS: LF: 11 T:} T:Preparing to install NewWord . . .{ T:Don't press any keys unless I ask you to!} WAIT: CPM:nwinstal;nwu;nw;$TERM$PRINT R: The next lines are the only way I could come up with to branch on a Morrow R: printer selection; it HAS to be the highest numbered item on the list. C:b=(#ptr) - 15 J(b):*MPINST *FLOW CPM:pip;a:[g1]=practice.doc[r];A:[g1]=sample1.doc[r];a:[g1]=sample2.doc[r];; CPM:era practice.doc; era sample1.doc; era sample2.doc; era nw.key; ren nw.key=nw2.key; J: *SUPERCALC *MPINST CPM: nwinstal;nw;nw;byenh3a'M'o'r'r'o'w' 'M'P'1'0'0'/'2'0'0'/'3'0'0' 'S'e'r'i'e's' 'P'r'i'n't'e'r0D0A00.xxxn J: *FLOW *SUPERCALC CLRS: LF: 9 T:{ T:NewWord is now installed for your terminal and printer.} T:Your sample documents have been placed in drawer 1 T:of your NewWord filing cabinet (user number 1). T:{ T:On to SuperCalc . . .} WAIT: *seltermsc c:a=@9-3 j(a):*lvl4sc j:*lvl123sc *lvl4sc CPM: sid install.com;s1b99;1;.;g100;y;oyay;pip A:[g4]=*.cal[r] j:*instsc *lvl123sc CPM: sid install.com;s1b99;1;.;g100;y;f1ay;pip A:[g4]=*.cal[r] j:*instsc *instsc cpm: era sc.key cpm: ren sc.key=sc2.key CLRS: LF: 9 T:{ T:SuperCalc is installed!} T:Your sample spreadsheets have been placed in drawer 1 T:of your SuperCalc filing cabinet (user number 4). T:{ T:Next comes Backfield . . .} WAIT: J: *BACKFIELD *backfield CLRS: T:} This operation creates a {Backfield Working Diskette} from a new, T: blank diskette. The working diskette enables you to rebuild your T: hard disk in case of the unlikely, but conceivable catastrophe of T: wiped-out-data. T: T: This is possible only if you{BACKUP YOUR HARD DISK FILES ON A REGULAR T: BASIS!} We can't overstress the importance of doing so. The Backfield T: programs are a very convenient way of doing this. So . . . T: T:{ ||||||| /||\ |||||| || || || || ||||||| T: || || // \\ || || // || || || || T: ||||||| |||||||| || |||| || || ||||||| T: || || || || || || \\ || || || T: ||||||| || || |||||| || || \||||/ || T: T: |||||\ /||\ ||| ||| || || ||| ||| ||| T: || \\ // \\ ||| ||| \\ // ||| ||| ||| T: || || |||||||| ||| ||| \|/ \|/ \|/ \|/ T: || // || || ||| ||| ||| T: |||||/ || || ||| ||||||| ||| ||| ||| ||| LF: 2 TNR: }Press the Return key when you're sure you've gotten the message: INMAX: 1 A: CLRS: LF: 10 T:Please insert the{new, blank}diskette into the drive and close the latch. TNR:Press the Return key when you're ready: INMAX: 1 A: CPM: format b d; pip; B:=restore.com[r]; B:profile.sub=profbak.sub[r];; CPM: pip; B:=pip.com[r]; B:=setdef.com[r]; B:=format.com[r];; CPM: pip; B:=bf?.com[r]; B:=cpm3f.sys[r];; copysys sysldrf.com B:;n; CPM: pip; B:=copysys.com[r]; B:=sysldr.com[r]; B:=submit.com[r]; B:=suxims.com;; CLRS: LF:9 T:} T:Your Backfield diskette is now ready in case T:you ever need to restore your whole hard disk.{ LF:2 TNR:Press the Return key to move along to Personal Pearl: INMAX: 1 A: J:*pearl *pearl CLRS: LF:2 T: {INSTALLING PERSONAL PEARL} LF:2 T: The only thing you have to do during this phase is type your name, T: first and last, exactly as you would like it to appear on Personal T: Pearl screens. This is called "personalizing" Pearl. T: T: The name you type can be up to thirty characters, and{THERE MUST BE T: AT LEAST ONE SPACE IN IT.} *CP1 CUR:0,16 T: ______________________________ CUR:0,16 TNR: Type your name and press RETURN: { INMAX: 30 A: $NAME *CP2 CUR:0, 18 T: }You have entered your name as{$NAME}. TNR: }Is it{exactly}as you want it? Type{Y}or{N}: INMAX: 1 A: M:Y,N JN: *CP2 M:Y JN: *CP1 CLRS: LF: 7 T: Okay. A lot of stuff is going to show up on your screen now, and it T: may appear that you're being asked to enter information, but ignore T: this and just let it keep running. T: C:TERNO=@9-3 DEF(#TERNO): $TER Level 3 DEF(#TERNO): $NUM 5 J(#TERNO): *CPMS C:TERNO=@9-2 DEF(#TERNO): $TER Level 3 DEF(#TERNO): $NUM 5 J(#TERNO): *CPMS C:TERNO=@9-1 DEF(#TERNO): $TER Level 2 DEF(#TERNO): $NUM 2 J(#TERNO): *CPMS DEF: $TER Level 1 DEF: $NUM 1 J:*CPMS *CPMS CPM: era install.dat; pip install.dat=instalh.dat; CPM: WELCOME;$NUM;p;2;;$NAME;y; CLRS: LF: 5 T:} Something you may wish to do later is to run the same "Welcome" program T: that you just saw whiz by. It has a{Demonstration}option that gives you T: a tour of Pearl's capabilities, and basic instructions on their use. T: The sample data files for Welcome will be in Personal Pearl Drawer ##1 T: (user number 7). T: T: When running Welcome, you'll be asked to select a terminal from a list. T: Respond{$TER}, or pick your Morrow terminal if appropriate. Avoid T: the "Personalize" option, since we just took care of that. LF: 4 TNR: Press the Return key when you're ready to continue: INMAX: 1 A: CLRS: LF: 10 T: Okay; Just a few housekeeping chores remain. You don't have to do T: anything from here on. When I'm finished, the "Co-Pilot Main Menu" T: should be on your screen, ready to go to work. WAIT: CLRS: LF:11 T:{ Preparing to install Personal Pearl Reports. T: }This will take several minutes, and there will be some fairly long pauses. WAIT: CPM:pearldr;;calendr;daily;5;2;diary;5;2;history;5; CPM:pearldr;;cash;deduct;5;2;expense;5;2;journal;5;2;ledger;5; CPM:pearldr;;people;labels;5;2;phone;5;2;profile;5; CLRS: LF: 11 T:{ T:Preparing to copy Personal Pearl files . . .} CPM: pip; A:[g7]=*.?00[r]; A:[g7]=*.dir[r];; ren startup.pil=init.pil; CPM: ren pearl.tmp=pearl.a00; era *.?00;y; ren pearl.a00=pearl.tmp; CPM: pip; A:kp.com[g10]=kp.txt[r]; A:kp.com[g11]=kp.txt[r]; A:kp.com[g12]=kp.txt[r];; CPM: set *.*[sys]; era hdl1.com; era hdl2.com; era profile.sub; CPM: ren profile.sub=prof3.sub; set *.com [ro]; set *.ovr [ro]; set *.ovl [ro]; CH: micro.pil r:========================== Subroutines ================================= r:------------------------------------------------------------------------ r: Subroutine to prompt user for a Y or N answer, and return with match r: flag set to "yes" if answer was Y, or "no" if answer was N. In both r: these cases, the error flag YNError returns set to zero, indicating no r: error. If the answer was not Y, y, N, or n, then YNError returns set r: to one to indicate an invalid answer. *YesOrNo inmax: 1 *GetAnswer tnr:{(Answer Y for Yes, N for No):} a: c: YNError = 0 m: Y , y , ey: m: N , n , jn: *YNError r:Set match flag to "no" before return, since response was N. m: y , e: *YNError c: YNError = 1 e: r:*************************** End of Program *************************