LnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)4EDITOR  U SYSTEM.TESTUT)MATH.FONTU6'WESTERN U6 ,COMPUTER.KEY U6 -UNCIAL.GOTHIC U/ /BIG.OLD.ENGLISH U -DOWNLOAD.TEXTU (BOLD.CHRU ,SPECIAL.CHARU7 (STANDARDU %APPLEU-SPACE.AGE.CHRU7*SMALL.FONTU  &UNCIALU; פ! &GOTHICU; Ҥ1+OLD.ENGLISHU; դ 'INVERSEU; 2 +PUDGY.ROMANUפ-*CELTIC.CHRUޤ9+CURSIVE.CHRU9 !+)BGRAF.INVl(U: !L++REQUEST.INV U: !+*CHANGE.INVU: !- %TERRY U: ޤ0&SHOLESU: ;%GREEKU; դIII.FNT.05TSu' /KEYBOARD.EDITOR U8 !5.BASIC.DOWNLOAD  U8 !# /PASCAL.DOWNLOAD" U9 !'/KEYBOARD.ED.LIB/6U9 !:/PASCAL.DOWN.LIBK6U9 !:,DOWNLOAD.INVg >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@Lbbbbbbbbbbbbbbbb`_gg צ(________________________________________ (________________________________________(________________________________________צ Copyright 1983 by Sun Data, Inc.Program written by Cory J 7 n77 /77 OSPACE changes values ARROW keys move cursor ESCAPE exits7% צKeyboard Editorצ(________________________________________7 . 7 7 צ| | | | | 7 צ| | | | | 7 צ| | | | |ǿ7 .ǿ7  7 k$ 7 l( 7 m, 1983 Sun Data, Inc.Ǫ7 /Ǫ7O7 7 צ K S C S C7  E H T H+T7 צ Y F R F R 7  T L T L  OPOׯOO ɡǀ0%  צgraphic:07777 ǿ7 Keyboard Editor7 Copyrightcontinue ƃ4 ʃ4ˡ?ASh ȡGǀġǀ`ġ O d7צPress RETURN to exit.List which directory ---> צ Ƃ+ʃ1  Ƃ+ʃ1Ƃ+ʃ1̂)ʂ)á̂)ʂ)  Ƃ+ʃ1Ƃ+ʃ1 ʃ1ʃ0̃1ʃ2̃2ʃ2ʃ/šƂ+̂*̃2̃1̃4צPress SPACE to   -Ƃ+ʃ1! Ƃ+ʃ1"-Ƃ+ʃ1"  Ƃ+ʃ1$  :Ƃ+ʃ1#Ƃ+ʃ1#@Ƃ+ʃ1# ɡ0Ƃ+ʃ1šƂ+ʃ1 Ƃ+ʃ1#̃2ʃ0̃1ʂ*áƂ+ʃ1ˡƂ+ʃ1ǀɡ * ̂)Ƃ+ʃ1̃5ʂ)ʃ5ȡ!Ƃ+ʃ1ʂ)ʂ)̂)Ƃ+ʃ1̂)̃5ʂ)ʃ5ȡ ʂ)̂)Ƃ+ʃ1ǀƂ+ʃ1  Ƃ+ʃ1!rectory. Press any key. ƃ4 ʃ4ˡƂ+#̃0Ƃ+$̃//̂)Ƃ+̃5ʂ)ʃ5ȡƂ+ʂ)ʂ)̂)Ƃ+̂)̃5ʂ)ʃ5ȡ ʂ)̂)צ-Size Modified Time File type Eof Phys Basicdata  Reserved ר  SOSfile   Reserved ר Reserved  DirectoryרƂ(Ƃ+̂*ʂ*Ƃ+Ƃ+ÍS̃4צ*Unable to read di???ר  Badblocksר Codefile  Textfile ר Asciifile Datafile ר Binary  Fontfile ר Fotofile   Basicfileר ץ???JanרFebMarרAprMayרJunJulרAug Sepר Oct Novר Dec ???ר???ensenצ Edit which keyboard layout ---> xPx? xצP ".consolexצPxצ  تP"ˡ[צ1Error opening the file. Press SPACE to continue ++ + á "ˡ[1Error reading the file. Press SPACE to continue ++ + á "ˡ[1Error closing the file. Press SPACE to continue ++ + á T T F  r  z v4á ( 7 ?%  ǀšǀ 7 %kO%%O% ˡ.á%áá áG j )O)88'&&'%7  )8&78%&&%87lP@á (á ( 7 ?%  ǀšǀ 7 %kO%FONT.WRITER/SYSTEM.STARTUP.+W+SÍ+Cá!*צak7+Rá k7x9V 7 7 B 7 B7D7 7 B 7 B)ave as x.צ! W)rite to a new filename. To continue editing, type R)eturn to Editor. Option ---> ++ +aġ+ ++?á+Eá+Má&צ/ To leave, typeצ M)enu.צ E)xit to Pascal.צ To change to another font, typeצ C)hange font. To save on disk, type Sá)7"ˡZצ1Error reading the file. Press SPACE to continue  * á)"ˡZ1Error closing the file. Press SPACE to continue  * á%תP7%*%צ5Which font do you wish to load ---> Pׯ? תP׷*)"ˡZצ1Error opening the file. Press SPACE to continue  * continue + + á"ˡY1Error writing the file. Press SPACE to continue + + á"ˡY1Error closing the file. Press SPACE to continue + + á+Wáv%)Write to what file ---> xPxצx? xצPxצצ Writing....x"ˡYצ1Error opening the file. Press SPACE toxz|~ ǀš ǀAZȄ áááá ظ%  7 $ 7 ( 7 , 7 jlnprtxz~ <&'()*+,-./,z  "$&(*,.02468:<>@BDFHJLNPRTVXZ\^`bdfhjlrtv ]G "$&(MIq2oe8<sB !"#$%'s   "$&(;,.02468:<>@BDFHJLNPRTVXZ\^`bdfh x ء x  *  ˡ  & 1Ķ9Ȅ00á -á =á \á JN{uoic]WQKE[y>%O% ˡ.á%áá áG j )O)88'&&'%7  )8&78%&&%87lPE ************************************************************* D * *D * FONT DOWNLOADER *E( * SET SPECIAL BYTE IN GRAFIX DRIVER TO 1- SEE DOCUMENTATION FOR 5 ***** DETAILED INFORMATION ON THE SPECIAL BYTEJ INFO$=CHR$(150):DEVICE$=".GRAFIX":PERFORM STATUS(%1,@INFO$)DEVICE$ B INFO$=LEFT$(INFO$(8))+CHR$(1)+RIGHT$(INFO$(LEN(INFO$)-9)) ARRAYS ACCORDING TO CHARACTER SIZESJZ%=J%*Y%*128:A%(Z%):ARRAY$="A%": ***** Z% = NUMBER OF BYTES IN ARRAY; ***** OPEN FILE AND TRANSFER INFO FROM FILE TO ARRAY"/FONT.DISK/REQUEST.INV".#1,NAME$:FILREAD(%1,@ARRAY$,%Z%,@Z%):#1K ***** E FONTBl"Width of each character ";X%:"Heigth of each character ";Y%Dv ***** REQUEST.INV CONTAINS ROUTINES TO LOAD ARRAYS FROM DISK< ***** SET J% = TO NUMBER OF BYTES EACH CHARACTER USESJ%=x%)/8):J%=0J%=1? ***** DIMENSION FONT"Which Font do you wish to download ---> ";NAME$:NAME$=""100X"/FONT.DISK/CHANGE.INV":change(@NAME$,%10): ***** CHANGE FILETYPE OF THE FONT FILE TO BASIC DATA FILE SO BUSINESS BASIC WILL OPEN THE FILE4b ***** GET SIZES OF EACH CHARACTER IN TH CONSOLE DRIVERLOADFONT(@array$)1009"Error Downloading Font. Press any key to continue" 4005303& ***** DOWNLOAD FONT TO GRAPHIC SCREEN ***** 0œ820::;D ***** INPUT NAME and IF NO NAME THEN GO TO MAIN MENUDNN MENUNAME$)=01007 ***** INVOKE MODULE and DIMENSION FONT ARRAYS3"/FONT.DISK/DOWNLOAD.INV":A%(512):ARRAY$="A%"/ ***** LOAD THE FONT FROM DISK INTO ARRAY4EXPR$=34)+NAME$+34):GETFONT(@expr$,@array$)( ***** SEND FONT TO100J320=T:"Error reading directory. Press any key to continue" ^260h3503r ***** DOWNLOAD FONT TO TEXT SCREEN ******| œ5205"Which Font do you wish to download ---> ";NAME$/ ***** IF NO FILENAME THEN GOTO MAI370:ۻa$="G"550:ۻa$="E"860:100120# ***** LIST DIRECTORY ***** œ340):"List which directory ---> ";path$"PATH$)=01008, ***** USE BASIC CATALOG COMMAND TO LIST DIRECTORY+6 PATH$::"PRESS ANY KEY TO CONTINUE." @t screen.":6=25:"G - Download font to the graphic screen.":)=25:"E - Exit to Business BASIC.":=18:=30:"Option ----> "; ARTIFICIAL CURSOR :" ";: 230210%A$=ŝ):A$)>96A$=A$)-32)?A$="L"260:ۻA$="T"______"=19:"_______________________________________________________________________________"::=24:"Copyright 1983 by Sun Data, Inc.":=25:"Program written by Cory Jensen":=8!=25:"L - List directory.":3=25:"T - Download font to the tex *JZ ************************************************************* d:: n ***** MAIN MENU *****px:=32:"Font Downloader":"_________________________________________________________________________ * E2 * Copyright 1983 by Sun Data, Inc. * D< * *DF * By Cory Jensen *DP * "/FONT.DISK/BGRAF.INV"D ***** NOTE: IF THE BGRAF.INV IS RE-INVOKED BY ANOTHER PROGRAM@ ***** THE FONT ON THE GRAFIX SCREEN IS SET BACK TO B  ***** THE STANDARD FONT AND YOU MUST RELOAD THE FONT.NEWFONT(@A%(0),%X%,%Y%)L "CHANGE.INV":CHANGE(@NAME$,%7): ***** CHANGE FILE BACK TO A FONT FILE*10094"Error Downloading Font. Press any key to continue" >590H830R ***** EXIT PROGRAM \:beƂ)ʃ/ ʃ/ʃ.̃/ʃ0̃0ʃ0ʃ-šƂ)̂(̃0̃/צPress SPACE to continue. ̃2ƃ2 ʃ2ˡCSd!ȡGǀġǀ`ġ)ʃ/#Ƃ)ʃ/#@Ƃ)ʃ/# ɡ0Ƃ)ʃ/šƂ)ʃ/ Ƃ)ʃ/#  oƂ)ʃ/  Ƃ)ʃ/Ƃ)ʃ/á  Ƃ)ʃ/)ʃ/̃3ʃ3ȡ Ƃ)ʃ/ǀƂ)ʃ/  Ƃ)ʃ/!  -OƂ)ʃ/! Ƃ)ʃ/"-Ƃ)ʃ/"  Ƃ)ʃ/$  :ƂƂ)̃3ʃ3ȡ צ-Size Modified Time File type Eof Phys̃0ʃ.̃/ʂ(áƂ)ʃ/ˡƂ)ʃ/ǀɡ * Ƃ)ʃ/̃3ʃ3ȡ!Ƃ)ʃ/ƂƂ(Ƃ)̂(ʂ(Ƃ)Ƃ)ÍS̃2צ*Unable to read directory. Press any key. ƃ2 ʃ2ˡƂ)#̃.Ƃ)$̃-/Ƃ)̃3ʃ3ȡƂ)o רo Badblocksרo Codefile רo Textfile רo Asciifileרo Datafile רo Binary רo Fontfile רo Fotofile רo  Basicfileרo  Basicdataרo  Reserved רo  SOSfile רo  Reserved רo Reserved רo DirectoryרhOJulרOAugרO SepרO OctרO NovרO DecרO ???רO???רO???רo רo Badblocksרo Codefile רo Textfile רo Asciifileרo Datafile רo Binary רo Fontfile רo Fotofile רo  Basicfileרo  Basicdataרo  ReseO???רOJanרOFebרOMarרOAprרOMayרOJunרOJulרOAugרO SepרO OctרO NovרO DecרO ???רO???רO???ר!#$%&'()*+,-gb_pDOWNLOADINIT  O d7צPress RETURN to exit.List what directory ---> Pצ/D1ׯצD11 צ.D1P/D2ׯצD22 צ.D2P/D3ׯצD33 צ.D3P/D4ׯצD44 צ.D4PRƂ*7צ(Find character sizes of which font ---> Ƃ*PƂ*צƂ*"ˡVצ:E.0123456789:;<=>?@ABCDEFGHI%g&bb7g8b2Screenstuff - Copyright (1983) by Alpine ComputingXN SCREENSTSCREENSTCHAINSTU PGRAF PGRAF  N1N1DY LINETO 8117X 11Y LINEREL 17DX 11DY NEWFONT (27FONT >2>2 \0LP0STD0GJ0M.XSIZE z0YSIZE d0FILETYPEz0B .T.@ F ._.5 DOTREL 2817DXR/SYSTEM.STARTUP. 878 87()hhhh*h1hh2hh3h*HH`0(&# Hhhhhhhhhhhr∭yz{HH`(TZPXV D gram written by Cory Jensen:  `š LSÍTÍGÍMÍع51-)#GT '1/n 88'7ǖǖ ǖ צ/FONT.WRITEeturn to menuצ!Please select desired option --->(________________________________________(________________________________________צ Copyright 1983 by Sun Data, Inc.Proצ(________________________________________L - List directoryצS - List status of a font צT - Download text screen font צ G - Download graphic screen fontM - RƄƄƄʄʄˍb@That font is not a text screen font. Press any key to continue.̄Ƅ B  n צFont Downloaderצ(________________________________________ʍʍ7ƊƂ'ǀ7(Which font do you wish to download ---> ƄPƄׯƄ"ˡU9Error while opening the file. Press any key to continue.̄Ƅ ƍPƍׯƍ"ˡU9Error while opening the file. Press any key to continue.̍FƍF ƍƍƍƍʍʍōʍɍʍōW5Font sizes are incorrect. Press any key to continue.̍FƍF $ Height:   Filetype: o Press any key to continue. ̂SƂS  &ƊƌƂ'ǀ7(Which font do you wish to download ---> rror while opening the file. Press any key to continue. ̂SƂS Ƃ* Font: Ƃ*á(צWidth: Not Stored$צ Width:  á(Height: Not Stored # #Const bw40=0; 0col40=1; 0bw80=2; 0Blck=0; 0Mgnta=1; 0Drk_bl=2; 0Prple=3; 0Drk_grn=4; 0Gry1=5; 0Md_bl=6; 0Lght_bl=7; 0Brwn=8; 0Ornge=9; 0Gry2=10; 0Pnk=11; 0Grn=12; 0Yllw=13; 0Aq=14; 0Wht=15; 0 #Type Chrset=packed array[0..12A"# ,0LLLy@ ! "hhh hHHHHHL %&Ly)+/* "#~)L,P,P ,P `,0p@ &'&'  "&'&' &'&' &'&' &'&' تP&&B &R*# تP$R@  &'&'  "&'&' &'&' &'&'  "&'&'  "&'&'  "&'&'  "ȡ&' ,&'&'   &'&'   &'&'   &'&'   &'&'   &'&' &'&' &'&' &'&' &'&' &'&' &'&' &'&' N&'&' &'&' 2&'&' &'&' &'&' &'e:string); #Procedure Print_screen (num:integer); #Procedure Printer_name (pname:string); #Function Hloc:integer; #Function Vloc:integer; #Function Key:char; # #Implementation E BINTEGER xitREAL );CHAR #Procedure Background (color:integer); #Procedure Hshift (num:integer); #Procedure Hpos (num:integer); #Procedure Vpos (num:integer); #Procedure Clr_screen; #Procedure Clr_eov; #Procedure Clr_line; #Procedure Clr_eol; #Procedure Load_font (fontnamrocedure Normal; #Procedure Inverse; #Procedure Foreground (color:integer); :'')PBBINTEGER xitREAL );CHAR f; #Procedure Beep (num:integer);  Procedure Move_left; #Procedure Move_right; #Procedure Move_down; #Procedure Move_up; #Procedure Home; #Procedure Return; #Procedure Screen_off; #Procedure Screen_on; #Procedure ScreenMode (mode:integer); #P7] of packed array[0..7] of 0..255; #Var Font:file of Chrset; # x:integer; # 0 #Procedure Reset_Viewport; #Procedure Init_Screen;  Procedure Window (L,T,R,B:integer); #Procedure Restore_Viewport; #Procedure Cursor_On; #Procedure Cursor_Of  "#`J)mJJJj0i(m``,PJ ,P H e,P%hL,P H e,Ph,p1 ,0 p  p,0I)M``,  K,i"i# " O.J ní ,PJ(L\L "  L04"8s-Insufficient graphics buffer space allocated.צNeed  K bytes, but only  K bytes have been allocated.=Use O)ptions to increase the available graphiNTEGER);  PROCEDURE NewFont(VAR Font; ChrWidth,ChrHeight: INTEGER);  PROCEDURE SysFont;  PROCEDURE DrawImage(VAR Source; SRowSize,SXskip,SYskip, 4Width,Height: INTEGER);  FUNCTION XYcolor: INTEGER;  FUNCTION Xloc: INTEGER;  FUNCTION Yloc: INTEGER;  PROCEDURE GSave(FName: STRING);  PROCEDURE GLoad(FName: STRING);  PROCEDURE InitGrafix;    IMPLEMENTATION E ;  PROCEDURE DotAt(X,Y: INTEGER);  PROCEDURE DotRel(DX,DY: INTEGER);  PROCEDURE LineTo(X,Y: INTEGER);  PROCEDURE LineRel(DX,DY: INTEGER);  PROCEDURE NewFont(VAR Font; ChrWidth,ChrHeight: INTEGER);  PROCEDURE SysFont;  PROCEDURE DrawImage(VAR Source; SRowSize,SXskip,SYskip, 4Width,Height: INTEGER);  FUNCTION XYcolor: INTEGER;  FUNCTION Xloc: INTEGER;  FUNCTION Yloc: INTEGER;  PROCEDURE Viewport(Left,Right,Bottom,Top: INTEGER);  PROCEDURE MoveTo(X,Y: INTEGER);  PROCEDURE MoveRel(DX,DY: INTEGER);  PROCEDURE DotAt(X,Y: INTEGER);  PROCEDURE DotRel(DX,DY: INTEGER);  PROCEDURE LineTo(X,Y: INTEGER);  PROCEDURE LineRel(DX,DY: Ilor);  PROCEDURE XfrOption(GrfxSMode: XfrMode);  PROCEDURE SetCTab(Ink,Pixelcolor,Newcolor: Screencolor); :'')PBB..15,0..7] OF CHAR; 2END; 2  VAR FotoFile: FILE; 2  PROCEDURE GrafixMode(GrfxHMode: GMode; GrfxBuf: GBuf);  PROCEDURE GrafixOn;  PROCEDURE TextOn;  PROCEDURE FillPort;  PROCEDURE PenColor(Color: Screencolor);  PROCEDURE FillColor(Color: Screencoptr = ^GSCB; %GSCB = PACKED RECORD 4GHMode,GSMode: CHAR; 4GPX,GPY: INTEGER; 4GVL,GVR,GVB,GVT: INTEGER; 4GCF,GCB: CHAR; 4GFont: PACKED ARRAY[0..3] OF CHAR; 4CWidth,CHeight: CHAR; 4GColTab: PACKED ARRAY[0   TYPE Screencolor= (Black,Magenta,DarkBlue,Purple,DarkGreen,  Grey1,MedBlue,LightBlue,Brown,Orange, 3Grey2,Pink,Green,Yellow,Aqua,White); %GMode = (BW280,CP280,BW560,COL140); %GBuf = 1..2; %XfrMode = 0..7; %GSCBz,#SCREENST%>92rds]TFXHMOD,),GRFXBUF X*GRAFIXON7TEXTON h..7FILLPORT-7PENCOLORf(x-7COLOR (6&>   2 J \  , T |  0 N l  R p 8 %$ "%PSCREEN (,#%MODE PRNAME d,$%S 0F(,}yxwvumlkhgda^[XURQNIH80!}|hc_ &hhhh) J J HH`ʱ)  ʈ Ly,0"# ` .PRINTER /0.,)&#!    ~{ywpWPOJB<3+*$  # O 0JH*h0,pH h,pei,PJ( "Ј L2 "#/*$hhh` "',PO""#',P)  cs buffer space.צHit to continue....\٧8' "ˡaUnit  צ write error: IORESULT =  ~á 8s@8sá 8s8s8sš78'8'قd8'8'8'8'8'.8'8'~|zkhZEB-*'% 8hhhhhhHHHH`.8" ~(B N j * l  r  L .P47!2BYTECT 3SETCTMAS3 7I R3&3&3COLOR >H`F.GRAFIXNL<2.*&$ ZXA=9r8h&h'h h 'H&H`(&*('$!B8hyhzh}h~hhhh{|}{|{|zHyH`RPL88hlhmh h h h h h h h h h h h    n o mHlH`pnvtrpnljhfdb`\YVUTSRQMI8h>h?h h hhBȑE @ A ?Hate buffer space.צHit to continue....= hShTh\hh[hhXhYZWnflgm NUlVmTHSH`j`Wrpnkhfb_\[ZYXWVUTS8' 8rˡGraphics driver not resident!צ:Use SCP to add the .GRAFIX driver to your SOS.DRIVER file.áצ&No graphics buffer space is allocated!צ2Use the O)ptions command to alloc,+/3+3ȡM88'."--ˡ-!87,8',,++8cd 8'8' 88r8'8r˄=&8'ǖ8' 8'8'088'."--ˡ-!8'x22á 8s@8s0á 8s8s8sš870á ,2á@,`,,8'21ˡD20040(008.$2á/ /,á@,`,1á/ /+/2+2ȡc,8'+á8'x188'.,,"--ˡ-!78++8wb *تP8"--ˡ-!8'ǖ8' 8'8'8'1צFOTO file I/O error: IORESULT= Hit to continue....!تP8"-- á8"--ˡ-!8'ǖ8' 8'8'8'18'00á ,18'r8'8'á8'@:8'ǖ8' 8'8)8)<8'ǖ8' 8'8(8(<88( \8'8'8'<8'ǖ8' 8'8)8'8(ٝ8)؝8(\8'8'8' 8'8'< 8'ǖ8' 8'8)8'8(ٝ8)؝8( \ 8'8'8'< 8'ǖ8' 8'8)8'8(ٝ8)؝8'ǀn]L;* 8'  8'6 8'8'8'8'8' \ 8'8'8'.8'8'.8'8'ġ ڹ8'8'8'x8'e8'R8' ?8'@, #REPORTERb3!7RESULT 8t3x3#PGRAF ****7end; 55 1:2 415 ); 3 411 tinue....'); d to allocate buffer space.'); le.'); 43-STARTADD ( (PROCEDURE SetChain( Tytle: STRING); (PROCEDURE SetCVal ( Val: STRING); (PROCEDURE GetCVal ( VAR Val: STRING); # #IMPLEMENTATION E _ERJSYSLIB:CHAINUNIT.CODE&'&' &'&' &'&' &'&' &'&' N&'&' &'&' 2&'&' &'&' &'&' &'e:string); #Procedure Print_screen (num:integer); #Procedure Printer_name (pname:string); #Function Hloc:integer; #Function Vloc:integer; #Function Key:char; # #Implementation E BINTEGER xitREAL );CHAR #Procedure Background (color:integer); #Procedure Hshift (num:integer); #Procedure Hpos (num:integer); #Procedure Vpos (num:integer); #Procedure Clr_screen; #Procedure Clr_eov; #Procedure Clr_line; #Procedure Clr_eol; #Procedure Load_font (fontnamrocedure Normal; #Procedure Inverse; #Procedure Foreground (color:integer); :'')PBBINTEGER xitREAL );CHAR f; #Procedure Beep (num:integer);  Procedure Move_left; #Procedure Move_right; #Procedure Move_down; #Procedure Move_up; #Procedure Home; #Procedure Return; #Procedure Screen_off; #Procedure Screen_on; #Procedure ScreenMode (mode:integer); #P7] of packed array[0..7] of 0..255; #Var Font:file of Chrset; # x:integer; # 0 #Procedure Reset_Viewport; #Procedure Init_Screen;  Procedure Window (L,T,R,B:integer); #Procedure Restore_Viewport; #Procedure Cursor_On; #Procedure Cursor_Of # #Const bw40=0; 0col40=1; 0bw80=2; 0Blck=0; 0Mgnta=1; 0Drk_bl=2; 0Prple=3; 0Drk_grn=4; 0Gry1=5; 0Md_bl=6; 0Lght_bl=7; 0Brwn=8; 0Ornge=9; 0Gry2=10; 0Pnk=11; 0Grn=12; 0Yllw=13; 0Aq=14; 0Wht=15; 0 #Type Chrset=packed array[0..12JLMNOPQRSTUVWXYZ[\]^_`abcde%g&bb7g8b2Screenstuff - Copyright (1983) by Alpine ComputingXN SCREENSTSCREENSTCHAINSTU PGRAF PGRAF  CHAINUNIT.TEXTSYSLIByy6JJ>Bb^JJNR^^ bb"L^LtJ ^JECommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, تPRš+R+PP4تPRšG+R+PGP4GRšزGRPزGPR0D~YSLIB:CHAINUNIT.CODECHAINUNIT.TEXTSYSLIByy6JJ>Bb^JJNR^^ bb"L^LtJ ^JECommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, ȡ&' ,&'&'   &'&'   &'&'   &'&'   &'&'   &'&' &'&' &'&' &'&'  "&'&' &'&' &'&'  "&'&'  "&'&'  "&'&'  "   TYPE Screencolor= (Black,Magenta,DarkBlue,Purple,DarkGreen,  Grey1,MedBlue,LightBlue,Brown,Orange, 3Grey2,Pink,Green,Yellow,Aqua,White); %GMode = (BW280,CP280,BW560,COL140); %GBuf = 1..2; %XfrMode = 0..7; %GSCBz,#SCREENST%>92rds]TFXHMOD,),GRFXBUF X*GRAFIXON7TEXTON h..7FILLPORT-7PENCOLORf(x-7COLOR (6&>   2 J \  , T |  0 N l  R p 8 %$ "%PSCREEN (,#%MODE PRNAME d,$%S 0F(,}yxwvumlkhgda^[XURQNIH80!}|hc_ &hhhh) J J HH`ʱ)  ʈ Ly,0"# ` .PRINTER /0.,)&#!    ~{ywpWPOJB<3+*$  # O 0JH*h0,pH h,pei,PJ( "Ј L2 "#/*$hhh` "',PO""#',P)  ,0I)M``,  K,i"i# " O.J ní ,PJ(L\L "  L04"  "#`J)mJJJj0i(m``,PJ ,P H e,P%hL,P H e,Ph,p1 ,0 p  pA"# ,0LLLy@ ! "hhh hHHHHHL %&Ly)+/* "#~)L,P,P ,P `,0p@ &'&'  "&'&' &'&' &'&' &'&' تP&&B &R*# تP$R@  ptr = ^GSCB; %GSCB = PACKED RECORD 4GHMode,GSMode: CHAR; 4GPX,GPY: INTEGER; 4GVL,GVR,GVB,GVT: INTEGER; 4GCF,GCB: CHAR; 4GFont: PACKED ARRAY[0..3] OF CHAR; 4CWidth,CHeight: CHAR; 4GColTab: PACKED ARRAY[0..15,0..7] OF CHAR; 2END; 2  VAR FotoFile: FILE; 2  PROCEDURE GrafixMode(GrfxHMode: GMode; GrfxBuf: GBuf);  PROCEDURE GrafixOn;  PROCEDURE TextOn;  PROCEDURE FillPort;  PROCEDURE PenColor(Color: Screencolor);  PROCEDURE FillColor(Color: ScreencoצFOTO file I/O error: IORESULT= Hit to continue....!تP8"-- á8"--ˡ-!8'ǖ8' 8'8'8'18'00á ,18'r8'8'á8'@:8'ǖ8' 8'8)8)<8'ǖ8' 8'8(8(<88( \8'8'8'<8'ǖ8' 8'8)8'8(ٝ8)؝8(\8'8'8' 8'8'< 8'ǖ8' 8'8)8'8(ٝ8)؝8( \ 8'8'8'< 8'ǖ8' 8'8)8'8(ٝ8)؝8'ǀn]L;* 8'  8'6 8'8'8'8'8' \ 8'8'8'.8'8'.8'8'ġ ڹ8'8'8'x8'e8'R8' ?8'@,s8sš78'8'قd8'8'8'8'8'.8'8'cs buffer space.צHit to continue....\٧8' "ˡaUnit  צ write error: IORESULT =  ~á 8s@8sá 8s88s-Insufficient graphics buffer space allocated.צNeed  K bytes, but only  K bytes have been allocated.=Use O)ptions to increase the available graphiNTEGER);  PROCEDURE NewFont(VAR Font; ChrWidth,ChrHeight: INTEGER);  PROCEDURE SysFont;  PROCEDURE DrawImage(VAR Source; SRowSize,SXskip,SYskip, 4Width,Height: INTEGER);  FUNCTION XYcolor: INTEGER;  FUNCTION Xloc: INTEGER;  FUNCTION Yloc: INTEGER;  PROCEDURE GSave(FName: STRING);  PROCEDURE GLoad(FName: STRING);  PROCEDURE InitGrafix;    IMPLEMENTATION E ;  PROCEDURE DotAt(X,Y: INTEGER);  PROCEDURE DotRel(DX,DY: INTEGER);  PROCEDURE LineTo(X,Y: INTEGER);  PROCEDURE LineRel(DX,DY: INTEGER);  PROCEDURE NewFont(VAR Font; ChrWidth,ChrHeight: INTEGER);  PROCEDURE SysFont;  PROCEDURE DrawImage(VAR Source; SRowSize,SXskip,SYskip, 4Width,Height: INTEGER);  FUNCTION XYcolor: INTEGER;  FUNCTION Xloc: INTEGER;  FUNCTION Yloc: INTEGER;  PROCEDURE Viewport(Left,Right,Bottom,Top: INTEGER);  PROCEDURE MoveTo(X,Y: INTEGER);  PROCEDURE MoveRel(DX,DY: INTEGER);  PROCEDURE DotAt(X,Y: INTEGER);  PROCEDURE DotRel(DX,DY: INTEGER);  PROCEDURE LineTo(X,Y: INTEGER);  PROCEDURE LineRel(DX,DY: Ilor);  PROCEDURE XfrOption(GrfxSMode: XfrMode);  PROCEDURE SetCTab(Ink,Pixelcolor,Newcolor: Screencolor); :'')PBBá@,`,1á/ /+/2+2ȡc,8'+á8'x188'.,,"--ˡ-!78++8wb *تP8"--ˡ-!8'ǖ8' 8'8'8'18'088'."--ˡ-!8'x22á 8s@8s0á 8s8s8sš870á ,2á@,`,,8'21ˡD20040(008.$2á/ /,fhijGA3/1.01:7SY GETFONT CHAINUNIT.TEXTSYSLIByy6JJ>Bb^JJNR^^ bb"L^LtJ ^JECommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, تPRš+R+PP4تPRšG+R+PGP4GRšزGRPزGPR0D~YSLIB:CHAINUNIT.CODECHAINUNIT.TEXTSYSLIByy6JJ>Bb^JJNR^^ bb"L^LtJ ^JECommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, ( (PROCEDURE SetChain( Tytle: STRING); (PROCEDURE SetCVal ( Val: STRING); (PROCEDURE GetCVal ( VAR Val: STRING); # #IMPLEMENTATION E _ERJSYSLIB:CHAINUNIT.CODE #REPORTERb3!7RESULT 8t3x3#PGRAF ****7end; 55 1:2 415 ); 3 411 tinue....'); d to allocate buffer space.'); le.'); 43-STARTADD~|zkhZEB-*'% 8hhhhhhHHHH`.8" ~(B N j * l  r  L .P47!2BYTECT 3SETCTMAS3 7I R3&3&3COLOR >H`F.GRAFIXNL<2.*&$ ZXA=9r8h&h'h h 'H&H`(&*('$!B8hyhzh}h~hhhh{|}{|{|zHyH`RPL88hlhmh h h h h h h h h h h h    n o mHlH`pnvtrpnljhfdb`\YVUTSRQMI8h>h?h h hhBȑE @ A ?Hate buffer space.צHit to continue....= hShTh\hh[hhXhYZWnflgm NUlVmTHSH`j`Wrpnkhfb_\[ZYXWVUTS8' 8rˡGraphics driver not resident!צ:Use SCP to add the .GRAFIX driver to your SOS.DRIVER file.áצ&No graphics buffer space is allocated!צ2Use the O)ptions command to alloc,+/3+3ȡM88'."--ˡ-!87,8',,++8cd 8'8' 88r8'8r˄=&8'ǖ8' 8'hzh{ Qghhh5h66 HHH566 qyhhhpx{HzH`~    `OLIHEDCB?<;8541.+*x  `"hhhhhhhh    HH`XVTRPN.GRAFIX jj# \\JHFD=;9210-,+*)!   v Q )``.`5`=`C`E` `BGRAF (C) APPLE 1980j @@@@ @``` kLK``9(89:9g:h:h L89:mm95:6:6hg gh h 99 O S   L `ee m`iɂ`0`hIhJh\h] wh]h^ w\\ ]] ]L ]L\A \A JHIH`i8\i]i\`\]`K`M %b&*L+ 16>:)    kLkmnopqrstuvwxyz{|}~GA3/1.01/LINr GRAFIXMO GETFONT GETFONT DOARRAY2QLOADFONT LOADFONTDOARRAY2ARRAY2 Y5ȱg6ȱg@ ɀLDg eegghI8e556l6m`  lmL}\ZYc&h:h; (+65;H:H`,.CONSOLEg<:/.-+*(% CX`hhh5h66HH :~5~HHH|})   |}) @  hhh gLJFE>987410/-   `+(%" Bhhh h h h hh hhhhhh  HH`ZXVTRPNLJHFDB@<;85431hhhh   HH`420.-&#  Phhhhhhhhhh  HH`DB@><:86421.+*)'jhhhhhhhh    X XSOSWRITESWRITERWBUF  RETADDR PLINITCHK sITCHK VIEWPORT VIEWPORTWBUFLEN }UFLEN SOSWRITESWRITERWBUF  xplhd`\XUFLEN SOSWRITESWRITERWBUF ~zvrRETADDR $ INITCHK ITCHK XFROPTIO XFROPTIORANGECHKNGECHKWBUFLEN UFLEN #ITCHK WBUFLEN DUFLEN SOSWRITEGSWRITERWBUF ?:72-(SYSFONT SYSFONT RETADDR njDRAWIMAG DRAWIMAGINITCHK ITCHK WBUFLEN RETADDR INITCHK ITCHK RANGECHKECHKWBUFLEN UFLEN SOSWRITESWRITERWBUF  NEWFONT NEWFONT INITCHK =+SOSWRITE@.!RWBUF  83& INITCHK uITCHK GRAFIXON GRAFIXONWBUFLEN UFLEN SOSWRITESWRITERWBUF zBUF GPGSREQDLGRAFIXMO GRAFIXMORBUFLEN 9RANGECHKwWBUFLEN ASOSWRITERWBUF \SOSREAD GBASADR TSOSSMARK$INITCHK ITCHK INITGRAF INITGRAFWBUFLEN RETADDR ISOSDSTATGSCB kSOSOPEN INITCHK READPARM5CREFNUM DWBUFADR ?BMOVCHK RBUFADR 7WRITEPAR=SREFNUM FRREFNUM 6WREFNUM >INITFLG KSOSCLOSEhhhhhh HHHH`&$<D^Z FpHx  )) y xHHHJJiH 詏 鮀 `}wqnkjba_\[ZYXWVURQ$hhhhhh HH H)HHH`20+*)Hhhhhhh HHHH`&$< 詏 )x `a^]NMJGF>=<10/.+* )) y xHHHJJiH 詏 鮀hhhh  HH`420.,*)&#"! Rhhhhhh    HH`DB@><:983.+('&$h J)` `!0 nljhfdcbQNMLJFEDCBA<;6hhhhhh  HH`420.,*)&#"! Rhhhhhh    HH`DB@><:983.+('&$hhh-&#  P  `"hhhhhh  HH`420.,*)&#"! Rhhhhhh  B B HH`yyP`GB HH`)r` @A>~|zxvtslgbWTSRPMED=hhhh   HH`420.-&#  Phhhh   HH`420.TRETADDR  SETCTAB SETCTAB  INITCHK ITCHK RANGECHKHKWBUFLEN UFLEN SOSWRITESWRITERWBUF  'RETADDR tpINITCHK ITCHK PENCOLOR PENCOLOR RANGECHKNGECHKWBUFLEN UFLEN SOSWRITESWRITERWBUF |x FILLCOLO FILLCOLO YLOC  SDSTATGSCB  INITCHK  ITCHK XLOC XLOC RETADDR     SOSDSTAT SDSTATGSCB   INITCHK  ITCHK YLOC  ASADR SOSSMARK SSMARKRETADDR  z v INITCHK  ITCHK XYCOLOR XYCOLOR RWBUF  F SOSREAD  SREAD RETADDR  SOSDSTATGPGSREQD GSREQDSOSCLOSE SCLOSEGRAFIXMO AFIXMOGLOAD GLOAD RBUFLEN  N RWBUF    SOSREAD  EAD GBASADR GBASADR ( ASADR SOSDSTAT~ SDSTATGSCB  INITCHK { ITCHK CREFNUM  EFNUM RBUFADR  ADR SREFNUM  EFNUM RREFNUM  M WBUFADR   ADR GSAVE GSAVE WREFNUM F  M GPGSREQD5 GSREQDSOSCLOSE> SCLOSEWBUFLEN 8  LEN SOSWRITE; SWRITERWBUF C F INITCHK  ITCHK BMOVCHK  OVCHK INITFLG  ITFLG RWBUF  F SOSDSTAT" SDSTATGSCB % CB INITCHK  ITCHK CREFNUM  EFNUM  T P SOSDSTATj SDSTATGSCB LINEREL LINEREL INITCHK g ITCHK WBUFLEN  UFLEN SOSWRITE SWRITERWBUF } d ` \ X RELEASE RELEASE  RETADDR % ! INITCHK  ITCHK LINETO LINETO WBUFLEN  UFLEN SOSWRITE SWRITERWBUF     CALCABS x q ABS RETADDR CALCABS  ABS RETADDR  SOSDSTAT SDSTATGSCB INITCHK  ITCHK DOTREL DOTREL WBUFLEN  UFLEN SOSWRITE SWRITERWBUF SWRITERWBUF  RETADDR c _ < 8 INITCHK O ITCHK WBUFLEN Y UFLEN SOSWRITE\ SWRITERWBUF T L H D @ DOTAT DOTAT RWBUF ZRNJFCALCABS BRETADDR SOSDSTATSDSTATGSCB  MOVEREL MOVEREL INITCHK ITCHK WBUFLEN UFLEN SOSWRITEWBUFLEN !UFLEN SOSWRITE$SWRITERWBUF BUF RETADDR ieB>INITCHK UITCHK MOVETO MOVETO  WBUFLEN _UFLEN SOSWRITEbSWRITERETADDR INITCHK ITCHK RANGECHKNGECHKWBUFLEN UFLEN SOSWRITESWRITERWBUF  INITCHK ITCHK FILLPORT FILLPORT  CONTROL ~ CHANGE FILWRITE FILWRITEGETRFNM RTRFNM ERROR ^ROR DOARRAY OARRAY  ERROR ?BUFPNT NT DEVINFO DEVINFO MOVESTR FILREAD FILREAD BUF :4 GETRFNM BUFPNT OJNT ERROR ROR DOARRAY e=TPARMSERROR uROR BUFPNT BMOVESTR REQNUM UUM BLDSTRN DSTRN BUF pia RETURN RETADR  GETPARMSFREQNUM BUF "CONTROL CONTROL RETURN RETADR GETPARMS TPARMSERROR ROR STATUS STATUS BLDSTRN ,BUF |F GETPARMSca` hhh5h66HH :5HHH) @  hhh g5ȱg6ȱg@ ɀL g eegghI8e556l6m `  hUhVh8 ㅊ eh֭VHUHk`HFB>;:9853/&" NL64Ch5h6h3lh4m 0/L6H5H`g8640'%76,V^dKA;6hWhXhhhQlhRm e Nb YMH YhLSꈭTXHWH`gca` hhh5h66HH :5HHH) @  hhh g5ȱg6ȱg@ ɀL g eegghI8e556l6m `  hUhVh8 ㅊ eh֭VHUHk`HFBhhHHHH l5m6m6  ЙW5X6X6 ` 5`MD32KA;6hWhXhhhQlhRm e Nb YMH YhLSꈭTXHWH`g##6 >?Bi{Ci|) |=! "LL{@?>8(O\ F9 >{i 5|i6) 6|8 L5{ hhhh0 hWhXXL `L5GA3/1.01:7SYGA3/1.0  0 0 `8?CHANGE CHANGE  hhhWhXh5h6HH6 Y 5Z(BWIB`YHVT<4/.-+)) v 00    0008   ?! 0 KEYBOARD KEYBOARD 1!1!2@23#3#4$4$5%5%6^67&7&8*8*9(9(0)0)-_-=+=+\|qQwWeErRtTyYuUiI oOpP[{]}`~`~aAsSdDfFgGhHjJ kK lL ;:;:'"'"zZxXcCvVbBnNmM ,<,<.>.>/?/?d0hpf ?? ,LL         <6f          0        .&"&"" ,2"2,">$,22, &"""  0 "" " ****&""""""&&,22, &< $"""2,""""***6"""""< >>88  "*6<1n"!!"""$BB$""">"=#> 0""" 00000!  aB>*IIII"!!!!"AAA"""8$""$8 """B" "@?B<$&$$$""""AIII*% R$B%$$>!B> *666>>< (#21 , *>*>> "2*&" >"  >"  "?> """>"""""""<  00>> " c]UEe}Cwk]]A]]a]]a]]ac]}}}]ca]]]]]aA}}a}}AA}}a}}}C}}}M]C]]]A]]]cwwwwwc_____]c]muyum]}}}}}}A]IUU]]]]]YUM]]c]]]]]ca]]a}}}c]]]UmSa]]aum]c]}c_]cAwwwwww]]]]]]c]]]]]kw]]]UUI]]]kwk]]]]kwwwwA_ow{}AAyyyyyA}{wo_AOOOOOAwk]㢜’¿ɾ‚㶪򦮺ɈɈɪȾ½Ţ̿¼¥Ĩʪ¥ҡ¥ )((8*,;((*,((+)((9/(p((>3  =9 :9 .(+( 8#8# %3(8 ((,+)(%.4$)?((,(103  7  3  5  wk]]A]]a]]a]]ac]}}}]ca]]]]]aA}}a}}AA}}a}}}C}}}M]C]]]A]]]cwwwwwc_____]c]muyum]}}}}}}A]IUU]]]]]YUM]]c]]]]]ca]]a}}}c]]]UmSa]]aum]c]}c_]cAwwwwww]]]]]]c]]]]]kw]]]UUI]]]kwk]]]]kwwwwA_ow{}A8  80,>!"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> " )((8*,;((*,((+)((9/(p((>3  =9 :9 .(+( 8#8# %3(8 ((,+)(%.4$)?((,(103  7  3  5  .&#&"" D>88  "*6< ">"A>EE6ED<"">EDFDD>:EB<:D$4J iMb<""""A\"((( \"(()2  1 B=**+**"3""!"EGE""2""EGE"`""J1\"$"@?B<B%$$$$2UDDD(:JJJ*B%> R!B%$$XA>> $> *666>>< (#21 , *>*>> "2*&" >"  >"  "?> """>"""""""<  00>> " c]UEe}Cwk]]A]]a]]a]]ac]}}}]ca]]]]]aA}}a}}AA}}a}}}C}}}M]C]]]A]]]cwwwwwc_____]c]muyum]}}}}}}A]IUU]]]]]YUM]]c]]]]]ca]]a}}}c]]]UmSa]]aum]c]}c_]cAwwwwww]]]]]]c]]]]]kw]]]UUI]]]kwk]]]]kwwwwA_ow{}AAyyyyyA}{wo_AOOOOOAwk]. 66666666<86870 .;3.    000 *>>*  >>0 33;73 >0>>>>0>>>>0>8">>0 666622<     >> 0 ""*:< Y&%$$%"B<%DDD&*1B<~!P8 JaeYAA>>IJ8IJ8)F2I> @>  R,B%$$$A""""*B% ,R!A"""\A>~!B?>> >00000>">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> ">?*,;((*,((C}}}}C9/(p((>woAowI**IwwwUcw $"+( 8# %3(8   ,+)(%.4$)?((,(103  7  3  5   <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,>!"*:<"QIEB"">BB>""""""">""< 8&"" 0    b">*IIII"3&.:2"&"""""&"&&## #<" "I$"""""\3""""$""**T"U"A"""" >"">>> >00000>">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> " )((8*,;((*,((+)((9/(p((>3  =9 :9 .(+( 8#8# %3(8 ((,+)(%.4$)?((,(103  7  3  5   0<2<&&&<<00<222<#?>&22<03333   ##<7+++#####333&&<22<006<0&###3.### ##++7# 2&&&<0>8>8  8 0,>>!#+;>22>2&&&&''&&&&&???>{33<w66>66w>>x00002''&?cvjjbbw{26:22{33333&&333;.&&&O< ?- /&&&&&/&&&&###+/7#cccc66>18F>>>>> 0>>000>> 3Q. s "B<Y6 O"  F; Q>   R c J)   R! F9lVUTTT#""""]"e$$B#"*"b^0 P08  80,>! )((8*,;((*,((+)((9/(p((>3  =9 :9 .(+( 8#8# %3(8 ((,+)(%.4$)?((,(103  7  3  5  >>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "c]UEe}Cwk]]A]]a]]a]]ac]}}}]ca]]]]]aA}}a}}AA}}a}}}C}}}M]C]]]A]]]cwwwwwc_____]c]muyum]}}}}}}A]IUU]]]]]YUM]]c]]]]]ca]]a}}}c]]]UmSa]]aum]c]}c_]cAwwwwww]]]]]]c]]]]]kw]]]UUI]]]kwk]]]]kwwwwA_ow{}AAyyyyyA}{wo_AOOOOOAwk] <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,>!"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> " )((8?? !!! ??? ?!!!!!?***>>>@@@@@@@@@@@@@@@`px|~? -!!||"AAAA>*>>Up p >?103  7  3  5    <6<666<>><00<>6><6><<  66< >666 66>>6>>66666666666<66<00:><8  <666>,666ckkw3 3666<0>8>8  8 0l>0:?&66><66>66?33?>&&>>666>>>>>>><>6&><666>66600002>66>>"6>>666337?;33>666>66>66>,666>0>>>66666>66666666>>6"666666>>8>>>>>> 0`>>888>>6" 666666<86860 *,   000 ** >> `0 >666>>2 >>>>2>>><0>8<66>> 666666<0    >>>> 0 > "*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>" > >2>>"&&>>> >"22>>&>><>"2> >>"&&&002>IKKK>"&&&>22">>&&>>22> >">>0>> <$$,,<###AIKK""&&"&&> >>8>  00`00**>!?!%%;?>"###?###??!#?!!###????!9##?!!?#### 001?!!!###?>IIIKKK>BBBFFF?9!!!!??!1??!!!!9??###??00?? !!!###?####AAIKKK!!!###!!!? ?8? @< <6c~66$"""""> ~h~G%tRq 4+3@     > >>@ ? ??01???01??11??11? >>>>~B@x>??** $"?.333>> >333>!?&>33> 3333 00000633 ++++666666633>33> 6>06>; ++++>3 3333>$? ?pp86>6|~fnl6vf~><~~<`lnf~||f6|<~f|~fnl`<6vfff<<<<<````ff<f66f<<<<<<>~ZZZ>~fff<~f~<>~fv6|~fnl``<~f>><fff~|fff<ZZZ~|f<|>8p`xx``xx>8888866$$~$~$>> >B%$R! *,88888"6">~~`p8>"""> > >>> > >""> >> >>>">> >">">>"> ~~ < <~b0pppppppp"AAAAAA>>6>>***~" "w"w>>$$>>>00@@ !~6>6AAAAAA <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,>!           > "     >>  6I60H ?""A """"""x  ?BB?@>@>@> """""< 0h 8  80,>!"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> 0`@>00000>">>< (&20 *, **>@`0 "2*&" " >>  ">> "8""> """"""< >> " )((8>>>>????***cc""6666"??33&&&&&"6*""ww9 :9 .(+( 8#8# %3(8 ((,+)(%.4$)?((,(103  7  3  5           "$   <<   >!   ?          @  @@@@@ @      D@ !! p   $       00  f6?f ">> $<  $ < $ "C    8      ~~      ?0('''''&&&&?0('''''&w&w&&?0(''''''{'''?0(''''''''?'??0('''''''''?0('''''{'{'s's's?0('''''&&&&w?0('''''&&&&?0('''''''{'s'ss?0('''''''''?0('''''''''?0('''''''''?0('''''''''?0('''''&&&&?0('''''&&&&?0('''''&w&w&&?0('''''''''?0('''''&&&o&o?0(''''''&&&?0('''''''''?0(''&&&&&&w&w?0('''''&&&'?0(''&''''''?0(''''''{';''?0('%%%%&%%% ?0('%%%%$'''?0('$$}&?''''% ?0('$''''''' ?0(''''''''&?0('$$$$$$$$ ?0(''''w'&'''?0(''''''''' ?0('&%%%&'''?0('&%%%%%% $ ?0(''&&&&%%% ?0('$%''$$$$} ?0('$'''''''?0('%%%%%%%% ?0('%%%%$&&&?0('%%%%%%%% ?0('%%%%$%%% ?0('''''''''?0('''''?&?&?&=&=?0('}'}'}'}'&%%% ?0('''''''''?0('&%%%%%%% ?0('&%%%%%%% ?0('&}$}$}$}$%%%?0('&% %u%u%u% &'?0('&&&&$%%% ?0(''}'}'}''&&&?0('$%'''''' ?0('&%%%%%%%?0('$''''''' ?0('$'''''''?0('$%''q$%%% ?0('&&&&$}$}$}$} ?0('$%%%$$$}$} ?0('''''''''?0('''''''''?0('''''''''?0(''''$''$'?0(''''&%&''?0(''&&'''''?0('$%%%}$}$}$}$} ?0('''''''''?0('$%%%$''' ?0('&&&&$$$$ ?0('&&&&&$?&?&???0('$'''$$$}$} ?0('$%''$}$}$}$} ?0('$%%%$$$$ ?0('''''''''?0('''''''''?0(''&W''$'W'&?0(''''''$''?0('''''''''?0('''''$'''?0('''''''''?0('&'''''''?0('''''''''?0('''''''''?0('w'w'w'$w'w'$w&ww?0('&&''&_&_&[&?0('%&q''''w${$}?0('&&''s&&&&q?0('''''''''?0('''''w'w''o'gg?0('''''&&&&?0('''''&?&''?0('&&'''''&?0('''''''''?0(''&&&%&&&?0(''&7''''''?0('''''''''> (( P  P(  (<> ?  @P( 0(7~%$$$$d$$$$$  $$ #~%$$$$dd$ $~$8 rp$<"       8 8!8#>    !    >?($$$$$$R%&B!4 ~ "22  @@@@@@ @@@@x8%$xR2R $a8$$$$$$B$$$$ LJ J J J J J J J R   ! $!$  $$ ?"   )#    " X$ $X  $$$$$B$$$$$$ X$$X D$$$$$$$$>AX$     $ i, n m,--,,"$ 111111  100 !x VV|P| ~D"332  9 @FL NMNLLABg0[8K4O67K67K6K44>7@  `<  "~ R((4u46 I0 !~~)!f,$ 4d E  80b  | H@ 00b0 10h44 >0~050t2 ff~f &  |L~ML>9"(66w666" ! :   ;3;33 ;7131211 $ (  0 , $ 9 ~  @( 0`"End; ' "{get character sizes and filetype} "getfileinfo(xsize,ysize,ftype,fontname); " "writeln; "writeln ('Font: ',fontname); "if xsize=0 then writeln('Width: Not Stored') -else writeln('Width: ',xsize); "if ysize=0 then writelnif fontname='' then exit(charsizes); " "{open file} "reset (f,fontname); "if ioresult <>0 then "Begin $write('Error while opening the file. Press any key to continue. '); $b:=chr(0); $unitread (2,b,1,,12); {get keypress} $exit(charsizes); OCHECK-}  Procedure charsizes; { Get sizes of a font }  Var xsize,ysize,ftype:integer; $f:file; $fontname:string; $b:char; " Begin "writeln(chr(28)); "texton; "writeln; "write('Find character sizes of which font ---> '); "readln(fontname); "55; {used to set special byte} ({ these variables used by the directory list routine} (months:packed array[0..15] of packed array [1..3] of char; (filetypes:packed array[0..15] of packed array [1..9] of char; (i:integer; (pathname:string;   {$I{$ Comment Copyright 1983 Sun Data, Inc.}  {$IOCHECK-}  Program Download; Uses Pgraf,Chainstuff; {For a description of these units see the Pascal Programmers Manual Vol 2} Type byte=0..255;   Var info:packed array [-1..150] of 0..2O^X8('Height: Not Stored') -else writeln('Height: ',ysize); "writeln ('Filetype: ',filetypes[ftype]); "writeln; "write('Press any key to continue. '); "b:=chr(0); "unitread (2,b,1,,12); {get keypress} End;  Procedure G_download; {Graphics screen download}  Type Font=packed array [0..127] of packed array [0..32] of 0..255;  Var f:file of font; (gscreen:interactive; (info:packed array [-1..150] of 0..255; (xsize,ysize,filetype:integer; (fontname:string; (b:char; Begin "writelose fontfile} "close (f); End; $ " # Begin {main program} " "info[-1]:=150; {Set special byte to 1} "unitstatus (3,info,4); "info[21]:=1; "unitstatus (3,info,6);   End. $  r (ysize<>8) then "Begin $write('That font is not a text screen font. Press any key to continue.'); $b:=chr(0); $unitread(2,b,1,,12); {get keypress} $close (f); $exit(T_download); "End; " "{load font into .console} "unitstatus(1,f^,66); " "{c$write('Error while opening the file. Press any key to continue.'); $b:=chr(0); $unitread (2,b,1,,12); {get keypress} $exit(T_download); "End; " "{get character sizes and filetype} "getfileinfo(xsize,ysize,filetype,fontname); " "if (xsize<>7) o (b:char; $ Begin "writeln(chr(28)); "texton; "writeln; "write('Which font do you wish to download ---> '); "readln(fontname); "if fontname='' then exit(T_download); " "{open File} "reset (f,fontname); "if ioresult<>0 then "Begin ,ysize); " "{close fontfile} "close (f); End; # # $ $ Procedure T_download; {text screen download}  Type font=packed array [0..127] of packed array [0..8] of 0..255;  Var f:file of font; (fontname:string; (xsize,ysize,filetype:integer; ize>14) or (ysize<0) or (ysize>16) then "Begin $write('Font sizes are incorrect. Press any key to continue.'); $b:=chr(0); $unitread(2,b,1,,12); {get keypress} $close (f); $exit(G_download); "End; " "{load font into .grafix} "newfont (f^,xsize$write('Error while opening the file. Press any key to continue.'); $b:=chr(0); $unitread(2,b,1,,12); {get keypress} $exit(G_download); "End; "{get character sizes and filetype} "getfileinfo(xsize,ysize,filetype,fontname); " "if (xsize<0) or (xsln(chr(28)); "texton; "writeln; "write('Which font do you wish to download ---> '); "readln(fontname); "if fontname='' then exit (G_download); " "{open font} "reset (f,fontname); "if ioresult <>0 then "Begin