Hard Disk Install Feb86
Hard Disk Install Feb86
Lisa · PDF
| Filename | Hard_Disk_Install_Feb86.pdf |
|---|---|
| Size | 5.61 MB |
| Subsection | macworks |
| Downloads | 0 |
Contents
-\'\.:;>/ ba.r~'lC:v..Q
Wa~~~\)(
- 'D~\,IR
w o'AP'o<x*'c\~~
,/ l=O';l.f'\h)"
J' t\o...'~O~tH\
{******************************************************************************}
{start of main body of HOI <Hard Disk Install)}
v ~ 1"\1>v..~Ji
o/rnC7\Af\\-T~
~ I\l)..mt.
~.~ I~t>i()!;.t~\\
v O~~'N
~<;,o~~t"('
I !?~'~~~\\t~
BEGIN
Mainlnitj
In i tBuffer;
InitMyDialogsj
)t ('$\(,
SetCursor(watch}j
AppRefIO := CurResFilej
result := HOOpen;
C
~v..et.e.
{ set up the COPY buffer }
{ set up all the dialog pointers}
{ save ptr to app s resourcef i 1e }
{ Open the dr i vel', add °dr i ves to dr i ve queue, try mount }
I
{check for fatal errors}
SetCursor(arrow);
CheckErr(result);
IF (result = MWorksFnd) THEN
BEGIN
{ if direct-start disk, ask how to proceed}
LDilog := GetNewDialog(MWOilog, NIL, POINTER(-l»j
ModalDialog(NIl, itemhit)j
DisposDialog(LOilog)j
{ remove dialog}
CASE j temh i t OF
{19Ap(85)
{19Ap(85)
(19Ap(85)
{19Apr8S)
{i 9AprSS}
{19AprBS}
{19Apr8S}
U9AprBS}
{ Initialize button pressed}
1:
BEGIN
Dolnstal1(ErasDilog, result, BlankDisk)j
IF (result = Us@rCancel) THEN
ByeByej
END;
{erase entire drive}
09AprBS}
{19Apr8S}
':19AprBSJ
{ Replace MacWorks button pressed}
2:
BEGIN
DotitIlnshl1 ;
{19Apr8S}
{19AprBS}
{19AprBS}
{19Apr8S}
END;
{19Apr8S}
{ Cancel button pressed}
3:
ByeByej
END; {of CASE)
~i9Apr85}
{19AprBS}
':19Apr85)
END {of IF THEN}
ELSE IF (result = LisaFnd) THEN
BEGIN
{ Lisa OS format, ask about sharing}
LD i i og := Be tNeIAID i a1og( Li saD i 109 f NI L, POINTER(~'1» j
ModalDialog<NIL, itemhitl;
DisposDialog(lDiiog);
{r'~~~ve dialog}
CASE ! temh i t OF
1:
{ Share button pressed}
BEGIN
resu 1t := HDMoun t ;
{ Try to do moun tof dr i lie }
CheckErr(resultlj
{ ChecK for fatal errors}
iF (result = AllOK) THEN
( Mac side OK, say 'already a shared disk' ...
Dolnstal1(SharDilog, result, Lisadisk)
ELSE !F ':result < 0) THEN
{ Mac side bad, say lIunreadable, do yOU lAint to formaP
BEGIN
DoInstall(BadSDilog,result,Lisadisk);
!:Date 12lFeb/86; File -#2#2-HD/sQurce.TEXT]
Page 1
".'(1
mo.c"c\Q\~1
W\\-'O~\~~
uJ
II
IF (result =UserCancel) THEN
Bye Bye
END;
END;
{ Erase All button pressed}
BEGIN
Dolnstall(ErasDilog, result, BlankDisk);
IF (result =UserCancel) THEN
ByeBye;
{erase entire drive}
END;
{ Cancel button pressed}
3:
ByeBye;
END; {of CASE}
END {of IF THEN)
ELSE IF (result = AllOK) THEN
DOlnstal1(MacDi109, result, MacDisk)
ELSE
{ Mac disk on-l ine }
{ check if reinitialize wanted}
{ damaged or not initialized}
BEGIN
OoInstall(BadMDilog, result, 81ankDisk);
IF (result = UserCancel) THEN
ByeByej
{erase entire drive}
END;
CASE (result) OF
A110K:
BEGIN
result := WrtBootBlks;
IslconlnSysResj
SetCursor(arrow);
iternhit := NoteAlert(LstAlert, NIL)j
{ write boot blocks to hard disk}
{ make sure hard disk icons are in sysres }
{ notify about movfng system folder}
ENDj
{ MacWorks has been replaced - all done}
li4orksFnd:
BEGIN
END;
USIn-Ca.nce 1:
Is!conlnSysResj
{ make sure disk icons are in …
Showing first 3,000 characters of 212,547 total. Open the full document →