LnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)MARK1 MARK2 O^֦y?APOLLOu' *HELLO.TEXT@//-MACSTUFF.CODE%4'"; -SKELETON.CODE ''-SKELETON.TEXT$'' >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@L (I, J, LISTPTR, TOTAL_FILES, FILE_COUNT, PTR, ERROR : INTEGER; (MAX_ALLOWED, NUM_ENTRY, TOTAL_PICKED, NUM_PICKED : INTEGER; ( $BEGIN $ '{* Below is a method to use if the total list is larger than can ' be contained in a list box at one time. It alN #END; # PROCEDURE SAVE_FONT; #BEGIN #END; # PROCEDURE DELETE; #BEGIN #END; # PROCEDURE CATALOG; #VAR KIND : FILEKIND; (LIST, TEMPLIST : LIST_TYPE; (LIST_PICK : NUM_TYPE; (IGNORE, MORE : BOOLEAN; (DIRECTORY, ERROR_MESSAGE, TITLE : STRING; # TITSTR := 'APOLLO SOFTWARE'; # FOOTSTR := 'COPYRIGHT 1984'; # WORKING := TRUE; &SET_GRAF_MODE (bw280, 1, white, black, white); # GRAFIXON; #END; { PROCEDURE INITIALIZE } SEGMENT PROCEDURE LOGO; #BEGIN #END; # PROCEDURE LOAD_FONT; #BEGIAR [3] := 'OPTIONS'; &MENU_BAR [4] := 'PRINT'; # MENU_BAR_NUM := 4; #END; {PROCEDURE INIT_MENUS}   SEGMENT PROCEDURE INITIALIZE; #VAR I : INTEGER; # #{ This procedure initializes variables to their default conditions } # #BEGIN 1] := 7; # NUM_ENTRY [2] := 4; # MENU_WIDTH [2] := 7; # NUM_ENTRY [3] := 3; # MENU_WIDTH [3] := 10; &NUM_ENTRY [4] := 4; &MENU_WIDTH [4] := 8; #{ Initialize the menu bar } # MENU_BAR [1] := 'FILE'; # MENU_BAR [2] := 'EDIT'; # MENU_B &MENU_TABLE [4,1] := 'PRINT #1'; &MENU_TABLE [4,2] := 'PRINT #2'; &MENU_TABLE [4,3] := 'PRINT #3'; &MENU_TABLE [4,4] := 'PRINT #4'; #{ The menu width is set to the number of characters in the largest entry } # NUM_ENTRY [1] := 5; # MENU_WIDTH [# MENU_TABLE [2,1] := 'EDIT #1'; # MENU_TABLE [2,2] := 'EDIT #2'; # MENU_TABLE [2,3] := 'EDIT #3'; # MENU_TABLE [2,4] := 'COMPARE'; # MENU_TABLE [3,1] := 'OPTIONS #1'; # MENU_TABLE [3,2] := 'DIALOG'; # MENU_TABLE [3,3] := 'OPTIONS #3';ed. } # #BEGIN # { Make sure that all string entries are the same size. } # MENU_TABLE [1,1] := 'FILE #1'; # MENU_TABLE [1,2] := 'FILE #2'; # MENU_TABLE [1,3] := 'FILE #3'; # MENU_TABLE [1,4] := 'CATALOG'; &MENU_TABLE [1,5] := 'QUIT'; BOOLEAN; &TITSTR, FOOTSTR : STRING; &CH : CHAR; &MENU_TABLE : table; &NUM_ENTRY : num_list; &MENU_WIDTH : num_list; &MENU_BAR : menu; &CMODE : switch; & ) SEGMENT PROCEDURE INIT_MENUS; #{ This procedure initializes all the menus that will be us= PACKED ARRAY [1..NUM_MENU] OF MENU; &NUM_LIST = PACKED ARRAY [1..NUM_MENU] OF INTEGER; VAR IOFILE : interactive; &PRINTER : text; &PULL_X, MENU_BAR_NUM, SCREEN_WIDTH : integer; &PTR, INDENT, ID, CHOICE, PICKID : integer; &MORE, IGNORE, WORKING :PROGRAM SKELETON; USES APPLESTUFF, PGRAF, MACSTUFF; % CONST MINX = 1; &MAXX = 272; &MINY = 7; &MAXY = 191; &MIN_LEFT = 0; &MAX_RIGHT = 280; &MIN_BOTTOM = 0; &MAX_TOP = 191; &NUM_MENU = 4; &MAX_NAME = 10; &CHEIGHT = 8; &CWIDTH = 7; TYPE TABLE lows you to select *some options of the first list box and then continue picking *options from later in the list by using multiple list boxes. *} ( (TOTAL_PICKED := 0; (LISTPTR := 1; (PTR := 0; (MORE := TRUE; (TOTAL_FILES := 100; (DIRECTORY := '.D1'; (KIND := ALL; (WHILE (MORE AND (TOTAL_PICKED < MAXLIST)) DO +BEGIN +IF (PTR < TOTAL_FILES) THEN .BEGIN .GET_FILE (KIND, DIRECTORY, TOTAL_FILES, FILE_COUNT, PTR, 8ERROR, ERROR_MESSAGE, LIST); .IF (ERROR <> 0) THEN EXIT (CATALOG & UPDATE_CURSOR (LEFT_WINDOW,RIGHT_WINDOW,BOTTOM_WINDOW,TOP_WINDOW); & IF (KEYPRESS) THEN ) BEGIN ) READ (KEYBOARD, CH); ) CASE CH OF , 'J', 'j' : LOCAT_MODE := JOYSTK; ) 'M', 'm' : LOCAT_MODE := MOUSE; /'W', 'w' : working := ,1 : DOWNLOAD; ,2 : TEST; ,3 : TYPEWRITER; ,4 : PRINTER_OPTIONS; ,END; {CASE} &END; & & #BEGIN {MAIN PROGRAM} &LOGO; # INIT_MENUS; # INITIALIZE; &SCREEN (TITSTR, FOOTSTR, MENU_BAR, MENU_BAR_NUM); # WHILE (WORKING) DO & BEGIN% END; # "PROCEDURE PRINTER_OPTIONS; & %BEGIN %END; & #PROCEDURE PRINT (PULL_X : INTEGER); &BEGIN )PULL_DOWN (PULL_X,PULL_Y,NUM_ENTRY[4],MENU_TABLE[4],PICKID); )UPDATE_CURSOR (LEFT_WINDOW,RIGHT_WINDOW,BOTTOM_WINDOW,TOP_WINDOW); )CASE PICKID OF RE TYPEWRITER; # &BEGIN &END; & #PROCEDURE PITCH; % % BEGIN % END; % " PROCEDURE FOREIGN; " % BEGIN % END; & " PROCEDURE UNDERLINING; " % BEGIN % END; % " PROCEDURE BOLDFACE; % % BEGIN % END; % "PROCEDURE HEADLINE; " % BEGIN DATE_CURSOR (LEFT_WINDOW,RIGHT_WINDOW, 4 BOTTOM_WINDOW,TOP_WINDOW); )CASE PICKID OF ,1 : SET_BELL; ,2 : EXAMPLE; ,3 : SET_PREFIX; ,END; {CASE} &END; & #PROCEDURE DOWNLOAD; &BEGIN &END; & #PROCEDURE TEST; # &BEGIN &END; & #PROCEDUE); )FOR I := 1 TO 10 DO BEGIN END; )DIALOG_BOX (NORMAL, -1, -1, -1, -1, MESSAGE); &END; & #PROCEDURE SET_PREFIX; &BEGIN &END; & #PROCEDURE SET_OPTIONS (PULL_X : INTEGER); &BEGIN )PULL_DOWN (PULL_X,PULL_Y,NUM_ENTRY[3],MENU_TABLE[3],PICKID); )UP,3 : SHOW_FONT; ,4 : COMPARE; ,END; {CASE} &END; & #PROCEDURE SET_BELL; &BEGIN &END; & #PROCEDURE EXAMPLE; & &VAR MESSAGE : STRING; *I : INTEGER; & &BEGIN )MESSAGE := 'EXAMPLE OF DIALOG BOX'; )DIALOG_BOX (NORMAL, -1, -1, -1, -1, MESSAG); &END; & #PROCEDURE EDIT (PULL_X : INTEGER); &BEGIN )PULL_DOWN (PULL_X,PULL_Y,NUM_ENTRY[2],MENU_TABLE[2],PICKID); )UPDATE_CURSOR (LEFT_WINDOW,RIGHT_WINDOW,BOTTOM_WINDOW,TOP_WINDOW); )CASE PICKID OF ,1 : COPY; ,2 : MODIFY; #4'; )LIST [5] := 'LIST #5'; )LIST [6] := 'LIST #6'; )LIST [7] := 'LIST #7'; )NUM_ENTRY := 7; )MAX_ALLOWED := 2; )TITLE := 'LIST TITLE'; )IGNORE := TRUE; )LIST_BOX (TITLE, LIST, -1, -1, NUM_ENTRY, MAX_ALLOWED, 3NUM_PICKED, LIST_PICK, MORE, IGNOREPARE; # &VAR LIST : LIST_TYPE; +MAX_ALLOWED, NUM_PICKED, NUM_ENTRY : INTEGER; +LIST_PICK : NUM_TYPE; +TITLE : STRING; +MORE, IGNORE : BOOLEAN; + &BEGIN )LIST [1] := 'LIST #1'; )LIST [2] := 'LIST #2'; )LIST [3] := 'LIST #3'; )LIST [4] := 'LIST)CASE PICKID OF ,1 : LOAD_FONT; ,2 : SAVE_FONT; ,3 : DELETE; ,4 : CATALOG; ,5 : QUIT; ,END; {CASE} &END; & #PROCEDURE COPY; &BEGIN &END; & #PROCEDURE MODIFY; &BEGIN &END; & #PROCEDURE SHOW_FONT; &BEGIN &END; & #PROCEDURE COM END; # PROCEDURE QUIT; #BEGIN # WORKING := FALSE; #END; # PROCEDURE IN_OUT (PULL_X : INTEGER); #BEGIN )PULL_DOWN (PULL_X,PULL_Y,NUM_ENTRY[1],MENU_TABLE[1],PICKID); )UPDATE_CURSOR (LEFT_WINDOW,RIGHT_WINDOW,BOTTOM_WINDOW,TOP_WINDOW); ORE); 1TOTAL_PICKED := TOTAL_PICKED + NUM_PICKED; 1END; .J := 1; .FOR I := LISTPTR TO TOTAL_PICKED DO 1BEGIN 1TEMPLIST [I] := LIST [LIST_PICK[J]]; 1J := J + 1; 1END; .LISTPTR := LISTPTR + NUM_PICKED; .END +ELSE .MORE := FALSE; +END; {WHILE} #); .NUM_ENTRY := FILE_COUNT; .MAX_ALLOWED := MAXENTRY - TOTAL_PICKED; .TITLE := 'CATALOG OF INTERNAL DISK'; .IGNORE := FALSE; .IF (NUM_ENTRY <> 0) THEN 1BEGIN 1LIST_BOX (TITLE, LIST, -1, -1, NUM_ENTRY, MAX_ALLOWED, ;NUM_PICKED, LIST_PICK, MORE, IGNfalse; - END; {CASE} ) END; & IF (BUTPRESS) THEN ) BEGIN ,IF (IN_AREA(LEFT_WINDOW,RIGHT_WINDOW,MENU_BAR_BOTTOM, 0MENU_BAR_TOP,CX,CY)) THEN /BEGIN /CHOICE := MENU_BAR_CHOICE (MENU_BAR,MENU_BAR_NUM); /IF (CHOICE <> 0) THEN 2BEGIN 2SHOW_CHOICE (ON, MENU_BAR, MENU_BAR_NUM, CHOICE, PULL_X); 2TOP_WINDOW := MENU_BAR_BOTTOM - 1; 2VIEWPORT (LEFT_WINDOW,RIGHT_WINDOW,BOTTOM_WINDOW,TOP_WINDOW); 2CASE CHOICE OF 51 : IN_OUT (PULL_X); 52 : EDIT (PULL_X); 53 : SET_OPTIONS (PULL_X);  WAREתP\צCOPYRIGHT 1984PY7H  FILEת( EDITת( OPTIONSת( צPRINT(RT #2ת( EDIT #3ת( COMPAREת(  OPTIONS #1ת( צDIALOG(  OPTIONS #3ת( צPRINT #1( PRINT #2ת( צPRINT #3( PRINTAPOLLO SOFTWAREתP\צCOPYRIGHT 1984PY7H  FILEת( EDITת( OPTIONSת( צPRINT(RT #2ת( EDIT #3ת( COMPAREת(  OPTIONS #1ת( צDIALOG(  OPTIONS #3ת( צPRINT #1( PRINT #2ת( צPRINT #3( PRINT #4ת(  FILEת( EDITת( OPTIONSת( צPRINT(RT #2ת( EDIT #3ת( COMPAREת(  OPTIONS #1ת( צDIALOG(  OPTIONS #3ת( צPRINT #1( PRINT #2ת( צPRINT #3( PRINT צFILE #1( צFILE #2( צFILE #3( צCATALOG( צQUIT( EDIT #1ת( EDIT #2ת( EDIT #3ת( !"# @nYY2PSKELETONINITMENUINITIALILOGO ON; #END. 54 : PRINT (PULL_X); 5END; {CASE} 2TOP_WINDOW := MENU_BAR_TOP; 2VIEWPORT (LEFT_WINDOW,RIGHT_WINDOW,BOTTOM_WINDOW,TOP_WINDOW); 2SHOW_CHOICE (OFF, MENU_BAR, MENU_BAR_NUM, CHOICE, PULL_X); 2END; {IF} /END; {IF} ) END; {IF} & END; {WHILE} &TEXT COMPAREת(  OPTIONS #1ת( צDIALOG(  OPTIONS #3ת( צPRINT #1( PRINT #2ת( צPRINT #3( PRINT̃̃̃̃^d̃ƃ.D1תPʃ^ʃɄʃʃɡƃƃƃƃƃƃƁʃˡʃ̃ ʃ̃ƃ`CATALOG OF INTERNAL DISKתP̃_ʃˡ)ƃ`ƁʃʃƃƃJƃ^ƃ_ʃʃ̃̃ʃ̃ʃ̃ʃʃȡ8ʃTRANSFER_TYPE = (STORE,OVERLAY,XOR,BIC,INVERSE_STORE,INVERSE_OR, 7INVERSE_XOR,INVERSE_BIC); :'')PB&MENU_SPACING = 2; & TYPE ENTRY = STRING[40]; &BYTE = 0..255; &MENU = PACKED ARRAY [1..MAXENTRY] OF ENTRY; &NUM_TYPE = ARRAY [1..MAXLIST] OF INTEGER; &LIST_TYPE = PACKED ARRAY [1..MAXLIST] OF ENTRY; &CURSOR_TYPE = PACKED ARRAY [1..8] OF INTEGER; & ; USES APPLESTUFF, PGRAF; CONST MAXENTRY = 10; &MAXLIST = 20; &MENU_BAR_TOP = 175; &MENU_BAR_STRING = 170; &MENU_BAR_BOTTOM = 159; &FOOT_BOX_TOP = 10; &PULL_Y = 154; &CHAR_HEIGHT = 8; &CHAR_WIDTH = 7; &LOCATER_HEIGHT = 8; &LOCATER_WIDTH = 7; $&'()*+,-./0123456789:;<=>  MACSTUFFMACSTUFF `nB&4BP"4RY0/.-5p5iYcJw\ ' "$&(*,.02468:<>@[DFZJLNPRTVXZg0/ǟǯ,+RUUˡRUSǟ-0/.-7 US%S SS$ǯ-0/.-7 RUS7*87887FLNPS'88'7 \RY0/.-5p5iYcJw\ ' "$&(*,.02468:<>@[DFZJLNPRTVXZg0/ǟǯ,+\ǚҥT0/.-Tbꥂ*P)/.-T   b  צEXAMPLE OF DIALOG BOXP* +*+ȡ** V XǚҥT0/.-T צLIST #1(צLIST #2(צLIST #3(צLIST #4(צLIST #5(צLIST #6(צLIST #7(́́Ɓ LIST TITLEתṔƁʁʁƁƁƁƁ ǚҥT0ƁƃJʃ(ʃ̃ʃ̃ʃʃ̃߹̃^ \0Y ǚҥT0/.-T" h  BINTEGER x; REAL DTCHAR NUBOOLEAN v) STRING 0CETEXT :$NOINTERACT* TINPUT &$NTOUTPUT 8$: KEYBOARDN$IAFALSE 2TRUE H&NIL b&FILEKIND = (UNKNOWN, BADFILE, CODEFILE, TEXTFILE, ASCIIFILE, DATAFILE, 2BINARY, FONTFILE, PICTURE, BASICPROG, BASICDATA, WPTEXT, 2SOSFILE, F_TYPE13, F_TYPE14, SOS_DIRECTORY, ALL); &BOX_TYPE = (NORMAL, LIGHT, RESTORE); &LOC_TYPE = (JOYSTK, MOUSE); &SIIIIIIII~I~II:PT عH7c7Z7Q7H7?767-7$PIB;4-&7|7 7777"II8I|I6@F70.ǿ- 5ǭN-.,ŝ,Ʉ+ń+Ʉ.۪PRۨ́́́ʁʁȡ*ʁ́ʁʁšʁ́ʁ́ING; LIST : LIST_TYPE; LEFT, TOP, NUM_ENTRY, 3 MAX_ALLOWED : INTEGER; VAR NUM_PICKED : INTEGER; 4VAR LIST_PICK : NUM_TYPE; VAR MORE, IGNORE : BOOLEAN); PROCEDURE PULL_DOWN (LEFT, TOP, NUM_OPTIONS : INTEGER; OPTIONS : MENU; 5VAR PICKID : INTEGER); PROCEDURE GET_FILE (KIND : FILEKIND; DIRECTORY : STRING; VAR TOTAL_FILES, 3 FILE_COUNT, PTR, ERROR : INTEGER; 4VAR ERROR_MESSAGE : STRING; VAR LIST : LIST_TYPE); >IMPLEMENTATION E EGER; LIST : LIST_TYPE) : INTEGER;  PROCEDURE LIST_BOX (TITLE : STRING; LIST : LIST_TYPE; LEFT, TOP, NUM_ENTRY, 3 MAX_ALLOWED : INTEGER; VAR NUM_PICKED : INTEGER; 4VAR LIST_PICK : NUM_TYPE; VAR MORE, IGNORE : BOOLEAN); PROCEDURE PULL_DOWN (LEFT, TOP, NUM_OPTIONS : INTEGER; OPTIONS : MENU; 5VAR PICKID : INTEGER); PROCPROCEDURE DIALOG_BOX (BMODE : BOX_TYPE; LEFT, RIGHT, BOTTOM, TOP : INTEGER; 6MESSAGE : STRING); FUNCTION LBOX_HEIGHT (NUM_ENTRY : INTEGER) : INTEGER; FUNCTION LBOX_WIDTH (NUM_ENTRY : INTEGER; LIST : LIST_TYPE) : INTEGER;  PROCEDURE LIST_BOX (TITLE : STR: INTEGER) : INTEGER; FUNCTION ABOX_WIDTH (NOTE : MENU; NUM_NOTE : INTEGER) : INTEGER;  PROCEDURE ALERT_BOX (NOTE : MENU; LEFT, TOP, NUM_NOTE : INTEGER; 4 VAR ANSWER : DECIDE); U_BAR : MENU; NUM_ENTRY : INTEGER);  PROCEDURE SCREEN (TITSTR, FOOTSTR : STRING; MENU_BAR : MENU; 2NUM_ENTRY : INTEGER); FUNCTION BUTPRESS : BOOLEAN; PROCEDURE UPDATE_CURSOR (MINX, MAXX, MINY, MAXY : INTEGER); FUNCTION ABOX_HEIGHT (NOTE : MENU; NUM_NOTE 9BACKGROUND, HIGH_COLOR : SCREENCOLOR); FUNCTION MENU_BAR_CHOICE (MENU_BAR : MENU; NUM_ENTRY : INTEGER) :: INTEGER; PROCEDURE SHOW_CHOICE (SMODE : SWITCH; MENU_BAR : MENU; NUM_ENTRY, 7CHOICE : INTEGER; VAR PX : INTEGER);  PROCEDURE PRINT_MENU_BAR (MENPROCEDURE FOOTNOTE (NOTESTR : STRING); PROCEDURE SET_FOREGROUND (COLOR : SCREENCOLOR); PROCEDURE SET_BACKGROUND (COLOR : SCREENCOLOR); PROCEDURE SET_HIGHLIGHT (COLOR : SCREENCOLOR);  PROCEDURE SET_GRAF_MODE (GRFXMODE : GMODE; GRFXBUF : GBUF; FOREGROUND, URE SET_TRANSFER_MODE (TRAN_MODE : TRANSFER_TYPE);  PROCEDURE OUTLINE (MINX, MAXX, MINY, MAXY : INTEGER); PROCEDURE HIDE_CURSOR; PROCEDURE SHOW_CURSOR; PROCEDURE SET_CURSOR (INDEX : INTEGER; COLOR : SCREENCOLOR);  PROCEDURE TITLE (TITSTR : STRING); &LOCAT_MODE : LOC_TYPE; &LETTERS : SET OF CHAR; PROCEDURE MACINIT;  FUNCTION WINDOW_HEIGHT : INTEGER;  FUNCTION IN_AREA (LEFT, RIGHT, BOTTOM, TOP, PX, PY : INTEGER) : BOOLEAN; FUNCTION CENTER_STRING (STR : STRING; WIDTH : INTEGER) : INTEGER;  PROCEDWITCH = (OFF, ON); &DECIDE = (CANCEL, OK); VAR GSCREEN :INTERACTIVE; &CX, CY, OLD_CX, OLD_CY, WINDOW_WIDTH : INTEGER; &LEFT_WINDOW, RIGHT_WINDOW, BOTTOM_WINDOW, TOP_WINDOW : INTEGER; &FOREGROUND, BACKGROUND, CURSOR_COLOR, HIGH_COLOR : SCREENCOLOR; IGn!7 27IG7472"ɝˡ*)"0 ɝˡ*)"0GGɡGGšG2, تPɝ0/7 47737(..7 0/.-7 Tt#تPǰǿǻ#R تP #R 47 3717ܹ/"//ʁƂ́ʁ́ʁ́ʁʁʁʁƂEƁMoreתP0́ʁƁ́ʁ́ʁ́ʁʁʁʁƁ ́ʁ́ʁʁۏ́ʁʁۂ́́ʁʁٕ́̂ń ʂnɄ0/.-ʁʁʁʁP ਁܳ́̂pʁʂpȡ'ʁƁʁʁ́߹ ́́ʁ%́ʁ&́ʁʁ Ɓ(ƂEצCancelP/́ʁƂÉ.́ʁ́ʁʁʁʁƂEƂצContinuePʁ ́ܝFʁ0ʁʁԂʁܝF́ʁʁ7 ʁ́ڹ F(ب ́ʁ́ʁ́ʁ́́ʁ́ʁáʁ́ʁF́ʁF́ʁȡ́ʁ́ ʁ́ʁ́ʁʁʁʁ^ )Ɓ0٨تPō(0́ʁ%́́ʁ&́ʁ́ʁʁۂ́ʁ́ʁʁ7 0 ́ʁ́́́́ʁ́ʁʁȡʁʁʁ݂ʁܝFʁ0ʁʁʁʁˍ0ʁʁ݂ʁʁݏ;:ɡ;0:;3796ݹu;:89767 Z767 ;17767 47}7Xj 0۝Fڨ ́ʁJ&&̀'̀ʀ퓡XʀʀʀʀBʀʀʀʀ,+̀ʀʀʀʀ,+̀'k تP21550053;:899ɡ-2198ɡ918;ɡ0(0޶ޕނޕٶضٶ7 CANCELضض۸۶݂ظڸ 'ܨҝ̀̀ʀ%̀ʀޕٶٶ7  ض߹ضظ޶ޕނޕٶضٶ7 צOKضضظɡڕ-(&ۨ̀̀̀ʀʀȡ*ʀ ̀ʀʀšʀ̀ʀ̀ٹʀ@Zۨ ݶ۶߶ȡg ޶+@,+ ,ەۊ,+ٕي+,ɡ,,š,+ɡ++š+,*˝+)ˍ'*)",+",*+)ɡ(ڕ0(%Ɓ۪PƀڪP٨ҝ0/.-Ɓ ƀ ǯ- .00//0/.-7 Hr5áǀǀ5á  Dáɝ5á/ǀ,ǾܹP ;17 47 W9 ٨ҝ0/ǟǯ7 0/ǟǯƀƀƀ$̀̀ʀʀȡ3ƀʀǪ7 ʀ ʀ̀G ʀڂ̀ʀܹ̀ʀؚA $ۨҝ,0ɡƀƀƀ$́́ʁʁ#ʁ́,ƀʁɡ́ʁ ʁ,ʀɡR ۨڔƀƀƁ$ƀǪ7 Nj/#% 77/0( Zܨ̀̀̀ʀʀȡ9ʀʀ ʀʀ̀ʀܹ̀̀ٝ(ʀەʀن̀0ʀڂʀڂ̀̀̀ʀʀȡ0ʀʀؚʀʂ,+1́̂pʁʂpȡʁʁ́߹̂nʁʁʁʁ,+̂nʁʁʁʁ,++ʁ́ʁޝF́ݝ,ʁɡ ʁʁݕ́عʁʁݕʁ܂́̂ó̂pʁʂpȡ ʁʁá̂oʁ́߹ʂo3ʁؚʁʁʁ )Ɓʁ%ʁʁʁʁ,+̂ń̂pʁʂpȡ,Ɓʁáʁʁʁ )ʁ́߹ʁʁʁʁƁʁʁʁʁƂʁʁʁʁƂEʁʁ Ɓ( *ڝ /// /// /// /// /// /// /// /// /// /// /// /// /// /// /// /// SIG, Washington Apple Pi 7910 Woodmont Ave. #910 Bethesda, Md. 20814 (301) 654-8a ^6Ʉ/5aa5Pa^QaP^ aa___Í5(á` ġ Y  1 ުPH P 0Há 1YڝH٧PTHY'88'-.!GRAPHIC:d*d) lb8\ ` Jnl0Bz ., HR(B@ H" B v b1 5צP^ aa ^6Ʉ/5aa5Pa^QaP^ aa___Í5(á` ġ Y  1 ުPH P 0Há 1YڝHid direcotryPYR0 aaȡצ(%š š2  á Y``Ȅ'ޏ  תP 5צP^ a Datafile ת צ Datafile  Directory ת ."H"ˡHWPY4/تPY/Hˡ0Y/Hˡ0˧#'ˍ-HצNot a val  PascalTextת צ Ascii  PascalDataת צ Binary  FontData ת צ Picture   BasicProg ת  צ BasicData   WpText ת  צ SOSfile  2FWFile not foundת2IWצDirectory full2NWIllegal access attemtedת2PW File busyת2WWDuplicate volume errorת2-צ Unknown  BadBlocks ת צ PascalCode$WצDevice not available2%WResource not availableת2-WצInvalid block number2@W*Device error - bad address or data on diskת2DWצ%Can't find the specified subdirectory2EWצVolume not foundketteת2 WצNo unit - unit is not on line2 Wצ#No such file in specified directory2 WצDuplicate pathname2 W$Attempt to open an already open fileת2Wצ+Write-protect error - diskette is protected2Wת2WBad unit numberת2WIllegal operationת2WIllegal directory specת2WצLost unit - no longer on line2WצIllegal pathname2W(No room - insufficient space on disʀ˄2ʀ-ʀʀ ʀ+ ̀̀̀0/.-ʀʀʀ*ʀ˄Aʀʀʀ ʀ+ ʀ +̀̀̀ʀʀ + ̀ʀʀʀ,8 Wȡʀ ʀ̀۹J r,٨ҝ̀̀̀̀ʀʀȡ*ʀ ̀ʀʀšʀ̀ʀ̀߹ʀ̀ʀٝ/š ʀٝ/̀ʀݕ̀ܝ/̀ٹ̀ʀ,+ʀʀʀ, ̀̀̀ʀ,++ەޕ 4*٪Pá+0/0/7 ܹ>21747 F0V +ب̀̀̀ʀʀȡ>ʀ̀ʀʀ7 060 WELCOME! WAP /// SIG Public Domain Library Disk Category: Pascal/III.PCL.12 Disk Format: Self-booting Side One Macstuff is a Pascal Intrinsic Un?Amain. We've place some information files and other material on side one. The Macstuff Intrinsic Unit and a skeleton Code file is on side two. In time the manual may also find its way onto this disk. Stay tuned! it designed to make your /// look like a Macintosh. It requires advanced knowledge of Pascal to operate. As with many other Apple /// products, this was once a commercial product that is no longer available save through the public do