LnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)P1$="MePlease i)BGRAF.INV(2!L+%SEG.G v +SCR.PRT.INV!-READ.ME.FIRST#6 |*SOS.INTERP a4ke!! *SOS.KERNEL ,V"!aSEG.F *SOS.DRIVER 4Z%SEG.T jŸ/ DISKNAME.DAT#III.FNT.04u' &APOLLO!@L!!%HELLO ),GTL(STANDARDUL!!+REQUEST.INVX 6!+,DOWNLOAD.INV[5!+*MENU.MAKER >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@LpT@yv&">"""&"&"&"& 534 "$ N9bai=04  !"#$%&'A@A@A8-1)/3E###0# K#temp2=``|| " !"%mode`aOce=40p=" "+p0haa``di 0hiP2$=- -"38c" $)=270E?!?!!?!I!?urce$, |<&<>$"" ""&$ "":L @#g}@Pathnameoldp "+oldpa=5:"Deurce$+" AH ile":64< !A<!Y ?!!!!I?!to creat `ikc` `# j`xv""@>">""">"",180,2"@ "c1$="Crea=10:=5:1,440,p1$="2.0!Dp1$AH |g$)=27"*B>"*"""B""" !!!!A!.:=2(y,x)=1 cHpzSKop$=14E*#*>E|`@????????A??Bj.&>>"qzCL |mark)"p((,(Pt  h;"""<.JmessUB 6470 in PATH E+=+"E& `@me$)):":=10&&""&@?C``source$,F}p#5;a$:rce$)-1)z)(p+|(Pzy  >""nvert lo7690:0jE**"E"#8xr text f"?#?????? ##?=20<<@ GGew chara|}=^5:=1$*>i= *((0P$ `` @e and re user iaracter ""&?""&"" ?"" !8t$=142Y###0# K##bit.numb@ =n frame.m`Ano)+146)"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""rrrrrrrrrrrrrrrrrr""""""""""""""""""""""""""rrrrrrrrr"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""rrrrrrrrr""""""""""""""""qqqqqqqqqqqqqqqqqqqqqq""""""""""""""""rrrrrrrr"""""""""""""""""""""""""""""""rrrrrrrrr"""""""""""""""""""""""""rrrrrrrrrrrrrrrrrrrrrr""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""rrrrrrrrr""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""rrrrrrrrrrrrrrrr"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""***"""""""""""""""""""""""""""""""""""""""""""""""""""""""rrrrrrrrr""""""""""""""""0>>"""""""""""rrrrrrrrrrrrrrrrrr""""""""""""""""""""""""""rrrrrrrrr""""""""""""""""qqqqqqqqqqqqqqqqqqqqqq=**+**""""""""""""rrrrrrrrrrrrrrrr"""""""""""""""""""""""""""rrrrrrrrr"""""""""""""""""""""""""rrrrrrrrrrrrrrrrrrrrrr"""""""""""""""""""""""""rrrrrrrr"""""""""""""""""""""""""""""""rrrrrrrrr"""""""""""""""">"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""">""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""rrrrrrrrr""""""""""""""""""""""""""""rrrrrrrrrrrrrrrrrr""""""""""""""""""""""""""rrrrrrrrr""""""""""""""""qqqqqqqqqqqqqqqqqqqqqq2"""""""""""""""""rrrrrrrrrrrrrrrr"""""""""""""""""""""""""""rrrrrrrrr"""""""""""""""""""""""""rrrrrrrrrrrrrrrrrrrrrr""""""""" 5 """"""""""""""""rrrrrrrr"""""""""""""""""""""""""""""""rrrrrrrrr"""""""""""""""" """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""YSTEMSET""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""+("""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""rrrrrrrrr"""""""""""""""""""""""""""rrrrrrrrrrrrrrrrrr""""""""""""""""""""""""""rrrrrrrrr""""""""""""""""qqqqqqqqqqqqqqqqqqqqqq""""""""""""rrrrrrrrrrrrrrrr"""""""""""""""""""""""""""rrrrrrrrr"""""""""""""""""""""""""rrrrrrrrrrrrrrrrrrrrrr"""""""""""""""""""""""""rrrrrrrr"""""""""""""""""""""""""""""""rrrrrrrrr""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""rrrrrrrrrrrrrrrr"""""""""""""""""""""""""""rrrrrrrrr"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""rrrrrrrrrrrrrrrrrr""""""""""""""""""""""""""rrrrrrrrr""""""""""""""""qqqqqqqqqqqqqqqqqqqqqq""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""rrrrrrrr"""""""""""""""""""""""""""""""rrrrrrrrr"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""rrrrrrrrr""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""rrrrrrrrrrrrrrrr"""""""""""""""""""""""""""rrrrrrrrr"""""""""""""""""""""""""rrrrrrrrrrrrrrrrrrrrrr""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""rrrrrrrrrrrrrrrrrr""""""""""""""""""""""""""rrrrrrrrr""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""qqqqqqqqqqqqqqqqqqqqqq""""""""""""""""rrrrrrrr"""""""""""""""""""""""""""""""rrrrrrrrr"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""rrrrrrrrr""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""rrrrrrrrrrrrrrrr"""""""""""""""""""""""""""rrrrrrrrr"""""""""""""""""""""""""rrrrrrrrrrrrrrrrrrrrrr""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""rrrrrrrrrrrrrrrrrr""""""""""""""""""""""""""rrrrrrrrr""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""qqqqqqqqqqqqqqqqqqqqqq""""""""""""""""rrrrrrrr"""""""""""""""""""""""""""""""rrrrrrrrr"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""rrrrrrrrr""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""rrrrrrrrrrrrrrrr"""""""""""""""""""""""""""rrrrrrrrr"""""""""""""""""""""""""rrrrrrrrrrrrrrrrrrrrrr""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""rrrrrrrrrrrrrrrrrr""""""""""""""""""""""""""rrrrrrrrr""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""qqqqqqqqqqqqqqqqqqqqqq""""""""""""""""rrrrrrrr"""""""""""""""""""""""""""""""rrrrrrrrr"""""""""""""""""""""""""rrrrrrrrrrrrrrrrrrrrrr""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""rrrrrrrrr"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" =".d1"".d1/bgraf.inv"gload."APOLLO"16);1) grafixon i=12500:iF280: initializeP3U=1:P1$=" A p o l l o S o f t w a r e":6420&Z=3:P1$="FONT GENERATOR ///":6420"d=6:P1$="Select Option:":6420n)xP1rce$)-1)&5);8);" ";8);: Backspace 960source$=source$+g$g$;g$870g$)=139900 Convert lower case letters to upper case i=1source$)qsource$,i,1))>96source$,i,1))<123name$=name$+sou=211040: searchs for font filesRg$)=13:804\g$)<>13g$)<>27g$)<>46g$)<>47١;fg$)=27:6):80pg$)=136):990zg$)<>8940source$=""6):790>source$)=1source$="":source$=source$,sou or a text file of length 1024 bytesg$)=1=8:ۚ=16 mode=803);"->":"->"=20:30); g$)=1fmode=1:fmode=0 *name$=""4source$=""E>P1$="specify source pathname":P2$=" ( to accept ) : ":65400Hg$:g$)g$:g$)=13::70660 - - - - - - ->:=10:P1$="Are you sure you want to Quit (y or n) ":6420g$:g$<>"y"g$<>"Y"::".D1/MENU.MAKER"* - - - - - - - - - - - - - - - - - - 8 Routine to either load a FONT file4X=32:=10:p1$="Volume "++" not found":6420+b:P1$="Please input a disk with:":6420%l:P1$=" 1. standard ":6420#vP1$=" 2. download.inv":6420#P1$=" 3. request.inv":6420+:P1$=" to try another disk":6420 :: all 3 of 2 these invokable modules must be available on the same volume. œ600%&+"download.inv",+"request.inv"0source$=".D1/standard":marker$="X"?@ABCDEFGHIJKLMNOPQRS$=" 1. Load FONT file":p2$="":6490HP1$=" 2. Show character set ":p2$="(0..31 appear as 128..159)":64909P1$=" 3. Copy characters":P2$=" into work file":64904P1$=" 4. Create/modify a character":P2$="":64902P1$=" 5. Save work character set":P2rce$,i,1))-32):name$=name$+source$,i,1)i 1280١; œ2470 $found=0 .#5, 8name$="" Bž#51230Lfmode=111307V#5;a$:a$,3,4)<>"TEXT"a$,61,4)<>"1024"1110 `1140#j#5;a$:a$,3,4)<>"FONT"11305tname$=a$,16,15):j=115:name$,j,1)<>" "j;~name$=a$,16,j-1):name$;:j=1(15-name$)):" ";:j found=1j=115:8);:jg$g$)=131270g$)=211080g$)=27:80 1180 ::=10cfound=0p1$="There are no FONT files ole: ":6540 8 6270 B œ2470>L #1,source$:#1:source$: safer to delete than overwrite V source$,:#1,source$` array$="charset%"j filwrite(%1,@array$,%1024)t #1;~ message$="Character set stored in "+34)+source$+34)  :renstac1message$="ASCII ("+first$)+".."+last$))$message$=message$+") -> workset" - - - - - - -( =12: (start) disk save option  message$="" mode=803);"->":"->"$ =20:30):. P1$="Specify pathname for storage ":P2$="fi(fontnum=4charset%(j)=tempset4%(i)(fontnum=5charset%(j)=tempset5%(i)(fontnum=6charset%(j)=tempset6%(i)(fontnum=7charset%(j)=tempset7%(i)(fontnum=8charset%(j)=tempset8%(i)(fontnum=9charset%(j)=tempset9%(i) j=j+1i working - ":6420: HJ=J*4 Ri=4*first$)4*last$)+3#\j>508J=J-508: 508 = 127 * 4(ffontnum=0charset%(j)=tempset0%(i)(pfontnum=1charset%(j)=tempset1%(i)(zfontnum=2charset%(j)=tempset2%(i)(fontnum=3charset%(j)=tempset3%(i))<160last$=last$)-128)5P1$="Specify start ASCII number of working":64207 P1$="set (default = same location): ":P2$="":6540"work$:work$=""work$=first$ j=work$)*(j>127j<160)j=j-1284j>160j<-1=1431(>:=10::P1$=" -)P1$=" (default = 127): ":P2$="":6540*last$:last$)<0last$)>1591950last$)127last$)<160last$=last$)-128)last$=""last$="127" :=10last$)127last$"Specify first ASCII number ":6420'vP1$=" (default = 0): ":P2$="":6540-first$:first$)<0first$)>1591890:first$)>127first$)<160first$=first$)-128)first$=""first$="0" :=10*P1$="Specify last ASCII number ":6420=801,180,24:ۓ1,140,24 6); 3#,2r,5x - - - - - - -0&=10: (start) "Move tempset% -> charset%" 0message$="":mode=803);"->":"->"D=20:30)#Nz$="Spcecify source FONT":5400Xfontnum=g$) b:=10+lP1$=m4rnumber=i+parm5*j-|1810;number,number);: terminal ";" j,ig$ :5);g$)=131760#g$)=88);" ";8);:1740g$)<32g$=g$)+128)g$;g$ 1700array$="systemset%"loadfont(@array$)&mode:P1$="< Type string to test font >":6420,=4&6mode=801,380,19:ۓ1,340,19@loadfont(@array$)8Jmode=80parm1=32:parm2=47:parm3=0:parm4=7:parm5=168Tmode=40parm1=32:parm2=63:parm3=0:parm4=3:parm5=32^i=parm1parm2hj=parm3par$)<>21490%g$)=2array$="charset%":1530=Z$="Show which font (0-9) ":5400:array$="tempset"+g$+"%" :=1>array$<>"charset%"P1$=tename$(g$)):P1$="Working Set" 6420;=21:P1$=" Main Menu; Stop Listing":64201"=22: (start) "Show set" option message$="""=6:P1$="Select Option:":6420/P1$="1. Show Temp Fonts (0-9)":P2$="":64804P1$="2. Show Working Character Set":P2$="":6480#:P1$=" main menu ":6420g$:g$)=27g$)<>1g<>0mark<>name$)name$=name$,name$)-mark)Fmark=name$)name$=""Ptename$(g$))=name$Zarray$="tempset"+g$+"%" d2630: load font from disk .nmessage$="Loaded Character set "+fontname$x - - - - - - -8:P1$="Show Set":6420n ":6570:p1$="There are no more FONT files on ":6570j=12000:jsource$=+name$+Z$="Which font to replace (0-9) ":5400-  Routine to find FONT name in PATH name mark=0i=1name$)(name$,i,1)="/"mark=i2i:<markknecessary : another pop - - - - - - - -   Error Code Routine  :=10& =27P1$="WRITE PROTECTED":6420 =29P1$="BAD PATH ":6420% =30P1$="FILE NOT FOUND":6420% =31P1$="PATH NOT FOUND":6420' =32P1$="VOLUME NOT FOUND":6420% =33P1$="DUPLICATE FILE":6420  =34P1$="DISK FULL":6420" =35P1$="FILE LOCKED":6420'( =37P1$="DEVICE NOT FOUND":64202 j=1800:j:::80< - - - - - - -?F fontname$=34)+source$+34): (stabits 30);6:P1$=" --- scanning and computing --- ":6420:( - - - - - - ->2wordnum=03: (start) convert bits to char.def% integers/<bit=815: high byte first, then low byte.Ftemp.bits%(bit)=byte.bit%(2*wordnum,bit-8)Pbit Znum1=$g=27:: abort -> main menu g=13num2=left+17num2=7:3810num2=(num2-left)/2num1=(num1-top)/2;etog=0byte.bit%(num1,num2)=0:byte.bit%(num1,num2)=1 3580 - - - - - - -- =22: (start) scan frame and read );:marker$;8);8g=8=-2Bg=21=+2Lg=11=-2Vg=10=+2` wrap sides and skip gapjleft+17=left~=left+14=left+17=left+15=left+12 num2=top+14=top ,7)=1marker$; row =left:=top  - - - - - - -  etog=0:=left:=top/ 5);:g$:6);: (start) create/modify g=g$)'g<>69g<>101g<>74g<>1063630g=74g=1066660$etog=0etog=1:etog=0'.etog=0" ";8 4): restore full screen viewport \ =left:=topf p - - - - - - -+z row=07: (start) mark bits on frame  =top+2*row column=06 =left+2*column' byte.bit%(row,column)=1marker$; column =left+17" byte.bit%(row aborts":64902 =2:P1$="<'J'> Joystick; <'K'> Keyboard":6420! left-2,top-2left+20,top+16  1);bit.numbr$ 1);frame.top$ index=06 index;frame.md1$* 1);frame.md2$ 4 index> "7";frame.md1$H 1);frame.bot$-Ryte to next row. byte.bit%(2*wordnum+1,bit)=temp.bits%(bit) bit wordnum4 i=07:j=07:screen(i,j)=byte.bit%(i,j):j:i  - - - - - - - : (start) draw frame 6890T P1$="; <'E'> toggle edit mode ":P2$=" accepts;rt to temporary array of 16 bits (= 1 or 0)"D temp.bits%(bit)=longint&2)N longint&=longint&2X bit>b bit=815: bits from high byte to row of byte.bit% array.l byte.bit%(2*wordnum,bit-8)=temp.bits%(bit)v bit. bit=07: bits from low b- - -2 (start) convert character definition to bits6 wordnum=03: take each 16 bit word of char.def% word%=char.def%(wordnum)9& longint&=word%): use long integers for computation(0 longint&<0longint&=longint&+65536A: bit=015: conve1592940+ ascii$)>127ascii$=ascii$)-128) ascii$="" 30);5 :P1$=" --- computing array pattern --- ":6420:) index=03: get specified character0 char.def%(index)=charset%(4*ascii$)+index) index   - - - - e new character@ J &T ---------- Subroutine ----------^ &h =11: (start) get ascii number r mode=803);"->":"->"| =20:30)N p1$="Enter for new; or ":p2$=" Specify ASCII number (0-159): ":6640 ascii$ ascii$)>ts on frame. initialize array of character definition 3570: create/modify$ 3850: scan frame and read bitsA" 3890: convert bits to integer words -> new char. definition9, 4050: present defining bytes and show new character6 4320: storoption (main) ------ 5 2920: get ascii number: get specified character* i=07:j=07:byte.bit%(i,j)=0:j:i message$="" answer$=ascii$1 ascii$<>""3090: convert integers -> bits 3270: draw frame+ ascii$<>""3450: mark birt) load font from disk P œ2670:Z getfont(@fontname$,@array$): perhaps it's a FONTFILE d :2710 n œ24609x #1,source$: if not FONTFILE then try as Basic file & filread(%1,@array$,%1024,@count%) #1  1 ------ "Create/Modify" bit=07.dtemp.bits%(bit)=byte.bit%(2*wordnum+1,bit)nbit9xreal=0: "real" numbers permit exponentiation in 2845*bit=015: convert binary to integer#real=real+temp.bits%(bit)*2^bitbitAword%=real)): convert to standard 2's complement integerchar.def%(wordnum)=word% wordnum - - - - - - -;:=8: (start) display new character and defining info "New character definition:":5);"As 4 integers: " " ";#i=03:char.def%(i);" ";:i:':5);$:g$<>"y"g$<>"Y"g$<>"n"g$<>"N"5100 g$="n"g$="N""i=0511:charset%(i)=0:i::3p1$="Foreground Color":5190: SHOW COLOR MENU (19);ans$)):52p1$="Background Color":5190: SHOW COLOR MENU <20);ans$)):F c:6420g$:g$)=27g$)<1g$)>4504016);g$)-1)%g$)=3left=25:top=6::mode=80,g$)=1g$)=2left=10:top=6:mode=40 :=10PP1$="Are you sure you want to clear ":P2$="the working set (y or n)":6640:1g:=2:P1$="Text Mode Options":6420"t=6:P1$="Select Option:":6420~2P1$="1. 40 x 24 Black-and-White":P2$="":6480(P1$="2. 40 x 24 Color":P2$="":64802P1$="3. 80 x 24 Black-and-White":P2$="":6480/:p1$=" System Parameter Menu "or ":P2$=" (color text mode only)":6480#:p1$=" main menu ":6420g$g$)=27$g$)<1g$)>54880#.g$)4930,4970,5100,5150,5170 847806B:=10:P1$="Change prefix$ to what? ":P2$="":6540 L6270V=source$)`'j Option:":6420(P1$="1. Change PREFIX$":P2$="":6480*P1$="2. Change text mode":P2$="":64800P1$="3. Clear working set FONT":P2$="":6480IP1$="4. Change foreground color ":P2$=" (color text mode only)":6480IP1$="5. Change background colist$)".console"fip@z ********************************************************** - - - - - - - 0 subroutine to change system parameters - - - - - - - ':=2:P1$="System Parameters":6420message$="""=6:P1$="Selecten defined before routine called num=ascii.num(i)9*ctrlist$=ctrlist$+num): add ascii.num as 2nd byte )4j=07: add the 8 definition bytes />ctrlist$=ctrlist$+"00"+charbyte$(i,j)))HjR "activate" character*\control(%ctrlnum,@ctrlnum=17: control code #A COUNT - The number of characters to be load as already been: defined prior to the calling of this routinei=0(count-1)9 ctrlist$=1): this will be first byte of ctrlist$ B the ascii.num has already be@ **********************************************************: an alternate method of using character definition. . see Standard Device Driver Manual p. 71> and "REQUEST.DOC" program on Business Basic Disk.ctrlssage$="character discarded":Xascii$)>1594400+bascii$)>127ascii$=ascii$)-128)&lindex=03: store in charset% 0vcharset%(4*ascii$)+index)=char.def%(index) index=message$="Character stored as ASCII number "+ascii$)) number "+ascii$:P2$=" (yes/no)? (default=yes)":6640g$g$)=134440g$="y"g$="Y"4440"g$<>"n"g$<>"N"7):4350 &"N": 0:=12E:P1$="Store as what ASCII number? ":P2$=" (RTN for none): ":6640 Dascii$0Nascii$=""mefault = no)":6630g$g$)=13g$="n"g$="N"#g$<>"y"g$<>"Y"7);:4250:ascii$=""ascii$="128" :2790 - - - - - - -(:=10: (start) store new characteranswer$=""4410ZP1$="Store new character as ASCIIcter's appearance: ";^ascii.num(0)=128:count=1)hi=07:charbyte$(0,i)=hexbyte$(i):i/r4580: load ("active") new char as ASCII 0(|"Normal: ";128);" Inverse: ";:128):Q=20:P1$="Do you want to revise character? ":P2$="(y/n) (de"As 8 hexadecimal bytes: "H change 4 integers to array of 8 hexadecimal bytes (2 char strings) " "; "i=03&,hexbyte$(i*2)=char.def%(i)),2)(6hexbyte$(i*2+1)=char.def%(i)),2)@i#Ji=07:hexbyte$(i);" ";:i:'T:"New charaolor menuP:=2:6420"Z=4:P1$="Select Option:":6420d4nP1$="Black - 0":p2$="Brown - 8 ":65104xP1$="Magenta - 1":p2$="Orange - 9 ":65104P1$="Dk. Blue - 2":p2$="Grey 2 - 10":65104P1$="Purple - 3":p2$="Pink - 11":65104P1$="Dk. Green - 4":p2$="Green - 12":65104P1$="Grey 1 - 5":p2$="Yellow - 13":65104P1$="Med. Blue - 6":p2$="Aqua - 14":65104P1$="Light Blue - 7":p2$="White - 15":6510 ans$=""-=20:"Pleasep1$:p2$;: - - - - - - - -/ Subroutine to read joystick in edit mode 5); "6830,x=0)/32):y=8-1)/32) 6y=8y=7@temp1=x*2:temp2=y*2Jtemp1=14temp1=17Ttemp1=15temp1=12^temp1>17temp1=17htemp2>14temp$="Volume "+!mode=80p1$=p1$+p2$:6420:#mode=406420:p1$=p2$:6420:( spaceing for current font printout%mode=80=10:p1$;:=50:p2$;:$mode=40=5:p1$;:=20:p2$;: Split two stringsmode=80p1$;p2$;:mode=40c";p1$:P Tab printingZmode=8010);p1$;p2$:dmode=405);p1$:n color menu spacing/xmode=80p1$=" "+p1$+" "+p2$:6420:mode=40p1$;10);p2$: Split two stringsmode=80p1$;p2$;:mode=40P1$:P2source$)-1)&5);8);" ";8);: Backspace 6400source$=source$+g$g$;g$ 6310 - - - - - - -?( This print routine distinquishs between 40 and 80 column2 <mode=80=2:"78c";p1$: Fmode=40=2:"38me from user of file to use source$=""g$:g$)=134g$)<>13g$)<>27g$)<>46g$)<>47١;g$)=276)::g$)=136):g$)<>86380source$=""6):6270>source$)=1source$="":source$=source$,pathname$+" -> "+newpath$:$ Lock Files#.:=10:=5:"Lock what file: "; 86270: get file pathname Bsource$:L Unlock Files%V:=10:=5:"Unlock what file: ";`6270: get file pathname jsource$:t7~ Routine to get Pathna" (y or n) ":6420g$:g$="n"g$="N"source$: Rename Files%:=10:"Old pathname of file: "; 6270oldpath$=source$):=10:=5:"New pathname of file: "; 6270newpath$=source$oldpath$,newpath$1message$=" "+oldate: ":=10 \6270fz$)6000,6010,6020psource$,:zsource$,:source$,: Delete Files%:=10:=5:"Delete what file: "; 6270: get file pathname ^:=10:P1$="Are you sure you want to delete ":6420:P1$="file "+source$+eating Files":6420" =6:P1$="Select Option:":6420% P1$="1. Create a TEXT file":6420%*P1$="2. Create a DATA file":6420%4P1$="3. Create a Directory":6420>z$:z$)=27Hz$)<1z$)>359503R:=10:=5:"Pathname of file to cre0,24 œ2470#5,source$ ž#55850 #5;line$mode=40line$=line$,39) line$ 5810&mode=801,180,24:ۓ1,140,24g$:g$)=13:5860D Make root directories,subdirectories,text files,and data files :P1$="Cr1$="6. Unlock Files ":6420Ng$:g$)=27Xg$)<1g$)>65710(bg$)5740,5880,6030,6090,6180,6220(l:=10:=5:"Catalog what volume: ";v6270: get file pathname %:=2:P1$="VOLUME "+source$:6420&mode=801,480,24:ۓ1,44=2:p1$="Apple S.O.S Command Mode":6420"=6:p1$="Select Option:":6420 :œ2470!p1$="1. Catalog Volume":6420!p1$="2. Create Files ":6420!&p1$="3. Delete files ":6420!0p1$="4. Rename files ":6420!:p1$="5. Lock Files ":6420!Dp4TP1$=i)+". - "+tename$(i)"^P2$=i+5)+". - "+tename$(i+5)h r6600|i=+3:P1$=Z$:6420g$:g$)=27:g=g$)-"0")g<0g>95530 - - - - - - - Apple SOS Command Modemessage$="".: input your choice (0-15) "; g$:g$;g$)=27:ans$=ans$+g$ ans$)<0ans$)>155330g$)=13 5340 - - - - - - -"&, Print Menu of font files loaded61@:P1$="FONT files currently loaded":6420:=5 Ji=02=14rtemp2<0temp2=0|=left+temp1:=top+temp20))=1))682020))6);marker$;8);:byte.bit%(y,x)=1.1))6);" ";8);:byte.bit%(y,x)=0 6680 6);=27:::=13::=75=107: 6680 - - - - - - - -. Subroutine to define the box characters ( to draw the frame in the edit modecount=11:j=142$&i=010:ascii.num(i)=j:j=j+1:i30i=010:j=07:charbyte$(i,j)=box$(i,j):j:i :4580Dframe.top$= CONTROL  <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,>!"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>"TV>>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> " )((8*,;((*,((+)((9/(p((>3  =9 :9 .(+( 8#8# %3(8 ((,+)(%.4$)?((,(103  7  3  5  =10:P1$="Reached last character of font":6460i=1500:iread bits Bp3890: convert bits to integer words -> new char. definition ;z4050: present defining bytes and show new character "4320: store new character g$)=27:=10:P1$=message$:6460znum=znum+1znum<16072105:r (0 - 159) ? ":6630 start$%start$)<0start$)>1597170 znum=start$)*ascii$=znum)4answer$=ascii$*>i=07:j=07:byte.bit%(i,j)=0:j:iHmessage$=""R3270: draw frame \3570: create/modify &f3850: scan frame and mbr$=" 0 1 2 3 4 5 6 7" - - - - - - - - - - 6 Routine to automatically number working set as8 user is creating multiple characters in sequence a:=10:P1$="What number would you like for your ":P2$="starting characte6)2i=16:frame.md2$=frame.md2$+152)+146):i:frame.md2$=frame.md2$+148)+" "+149)+146)+148)frame.bot$=142)+146)2i=16:frame.bot$=frame.bot$+150)+146):i:frame.bot$=frame.bot$+143)+" "+142)+146)+143)$bit.nu145)2Ni=16:frame.top$=frame.top$+146)+151):iAXframe.top$=frame.top$+146)+144)+" "+145)+146)+144)bframe.md1$=""/li=18:frame.md1$=frame.md1$+147)+" ":i/vframe.md1$=frame.md1$+" "+147)+" "+147)frame.md2$=149)+14GA3/1.01:7SYWY_fghhhHHHH l5m6m6  ЙW5X6X6 ` 5`MD32KA;6hWhXhhhQlhRm e Nb YMH YhLSꈭTXHWH`gGETFONT GETFONT DOARRAY2QLOADFONT LOADFONTDOARRAY2ARRAY2 Y5ȱg6ȱg@ ɀLDg eegghI8e556l6m`  lmL}\ZYc&h:h; (+65;H:H`,.CONSOLEg<:/.-+*(% CX`hhh5h66HH :~5~HHH|})   |}) @  hhh ghzh{ Qghhh5h66 HHH566 qyhhhpx{HzH`~Z\]^GA3/1.01:7SY GETFONT ##6 >?Bi{Ci|) |=! "LL{@?>8(O\ F9 >{i 5|i6) 6|8 L5{ hhhh0 hWhXXL `L5ca` hhh5h66HH :5HHH) @  hhh g5ȱg6ȱg@ ɀL g eegghI8e556l6m `  hUhVh8 ㅊ eh֭VHUHk`HFBSOS NTRPRHeLZĠР쁭堠堠ՠP򠭠έ魭REQNUM 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`gABB 9::)ѭ [ I[ aυ婶ZeLLL^$%Lae LGidFddddddd.ddddddddd ɕdˏd`Ls  Apple Business BASIC v1.23 - Copyright Apple Computer, 1980-83 CTERESOURCE UNAVAILABLDIRECTORY FULDUPLICATE VOLUM ERROR Please Press SPACE BAR IN PROGRAM INTERRUPTED%&'(%+.@C$DE FG!H"I'MN#PQRTW(X潭`: 808`:dd@՚H Z#IJJCSTRING TOO LONFORMULA TOO COMPLECAN'T CONTINUUNDEF'D FUNCTIOVARIABLSOS CALFILES BUSNOT SOI/FILE TOO LARGWRITE PROTECDISK SWITCHEBAD PATFILE NOT FOUNPATH NOT FOUNVOLUME NOT FOUNDUPLICATE FILDISK FULFILE LOCKEFILE NOT OPEDEVICE DISCONNECONV&CONV$CONV%LEFT$RIGHT$MID$INSTR>=<^/*-+NEXT WITHOUT FOSYNTARETURN WITHOUT GOSUOUT OF DATILLEGAL QUANTITOVERFLOOUT OF MEMORUNDEF'D STATEMENBAD SUBSCRIPRANGINVOKSTACK OVERFLOREDIM'D ARRADIVISION BY ZERILLEGAL DIRECTYPE MISMATNDEELSCONLISCLEAGENETABTSPCUSINTHEAMOSTEANOEXTENSIODIAFNOAAAAAAAAAAAAAASGNINTABSATYPRECAAAAAAAAAAPDLBUTTONSQRRNDLOGEXPCOSSINTANATNAAAAAAAAAAAASTR$HEX$CHR$LENVALASCTENAACONVOERRLIERKBEOTIMEDATEPREFIXEXFNEXFN%OUTREINDENAAAAAAAPOHOMA SUB$OFTRACNOTRACNORMAINVERSSCALERESUMALEGOTIRESTORSWAGOSURETURRESTOOALOASAVDELETRURENAMLOCUNLOCCREATEXECHAIAAACATALOAADATIMAGCADEAPRIssssssssss\3!z~IssssssssssssIG%ӓ,ssևwn7}|tttUUZ{fzxxˆU膅[L<^ENFONEXINPUOUTPUDIREAWRITOPECLOSATEXABYAAAAAWINDOINVOKPERFORAAFRHPOVP̠Ώ h:gpOn[n٧s]ds3issssssss0b>&dsjs|T}|s[`bcdeijklmnopqrstuvwxyz{|}~ŭ᭭򭭪𭭠򠭠頭퀠Šӳ頠𠠀𠠠堠젭ӠΠ=TPARMSERROR uROR BUFPNT BMOVESTR REQNUM UUM BLDSTRN DSTRN BUF pia RETURN RETADR  GETPARMSFERROR ?BUFPNT NT DEVINFO DEVINFO MOVESTR FILREAD FILREAD BUF :4 GETRFNM BUFPNT OJNT ERROR ROR DOARRAY e iLOPP$pX0S&ȱhȱKȱLe潥ɂ逅$L# $mKL x~ m khLgLsLc h5逢)&a TH THLgL6k8:9: STT`)ɀLK$Lb8gLOPPKLMNhhm Vf0 mLf) mWA 0 -a mL8fW;8<< 悕` 6kLU*i kXX 4XLy \\'_ch_chbi^g \ihh ] Qp aj ih `p b iq bqn %jjg56Ly { b bq | XHWHHHֺh$PLh wlȱȱ%$LWH mh x~  m#W", mȱ28eLeji`Lwl mȱ"Ɂɂ ȱ :, iTjj ȱiVjj8逪XW0 Vf0WHW$ 0X: h ,@dd )e dʙdH &eh(dL ddک,ddLd:e``eLeHELLO ue 5eLse6e:7ee8ee:e`EAd j @a(% -, bLs j {ghhL<^gHhHhH , - b j$% @ag5h6h6hhhhh8g5h6h 悅`6 "]La ud `L  d.CONSOLE[[ TdSdddddd0 ddddd`dd A 6 s e 9c()' 9cKHLI jLdj89弅:彬: 悅`H hɝɞɜ)`dd  6芅 e ()'` e'()HKIL 9cL>hL<^) i!Ls j @aLK$L% :: 悅 lc!)` +b` +b` sL :b#`L,H s h ऊL(,L8f` A KL jLdjOPPKLL h AKL` Ѽ   (`H shLs Aji!S)Lt`SSS`L` z :0.`9::hhgg.%g& $gegަhH逪hhʰ` ҥ [ aLT ҥIJJABB=>>;<<?@@T ě hhhHH  `89$ 0~!L`!sm?iٰcL`S )!a{)Qi ڐ߽S) -ai) -aɢ ɣɍж$HS -ahʥ0SSȩ5%"/װ&hԐɈf0ɔĐ 8,f 8f L_ʅSS=ȄL`ȱi8eiidHddhd) _ ƢLh _L>h jhP _S @a-Qggeg5hih 6i6 "]S" ]$%SSSg a aL^ S S`La8 SiUjjS):,$f 0$ p fHhH_HcH uhch_hhhfhi0hhhB B A` ֥'( )&񦕤LNKM$Lb ě $m wl "m6X6+5 56ɀ56H $mhɀ(Z)& mL k~ wlL ͝dL Nsd# wl^_ ꂅ__hg^`8 悕`gHhHhH5?6@6@*5g5666gҦhhhhhhhhg:e:;e; ;m;`@c@c?be^@e@ _m__^ \Lx] i6g55``BY BSAMHH H] LPL(\)&P ěj9ȑ9ȑ99i=:i: >i>`Ɂ7XWWXjnXWi` ]?@@bgchch )^ ]b ]b^b^L\b8g+H__^8_FILWRITE FILWRITEGETRFNM RTRFNM ERROR ^ROR DOARRAY OARRAY  d wlOZL^L^-L(dPL<^OPMNKLhhLg` Ls ҥ?ieCiLa,  aFL s a iLg ]hhh5h689H: H:HLHKHH6H5HHH` ui` pi` Qp j pi `p i` j jK$L%8eȢ 9:: Ga.ghh 悅` A` \\ɾ,L<^hhZkKhLhhhe9e:: mLg jei `Ls j:,"hhhhLgɜEɝDɞLb Hɾɺдmhɾ Qp aj pi `p j` jLi j,656 wh H5Gh`lmm566 Lx5Hȱ5ȱ5 F665 w56h(` x("LH)&h`( '&'`lmm566LxĠLx znInEz{iLx y? zL||uu`8i$iznIii0ĨV y${Wiuu8Iem_B_B`)&N> ȱI8gJJ hhge ghh f feLH>H= x\L|F )XHABB8 __^hHI8e^ @1 @+?%GHHHIJJih BABGHh`$  ě u Дs IJJ^__Lveȱeȱe `LćHƽ Ƽh`$ lȱlLL{ɝɍLɎСL s HI s shmHmHlHHɦ# shmHmHlHH , hHLt  ,, shTTLui ui,L3$0 |Lu xijk6kxyy xxy6i L[ s r$PLsi,L3-hLs L*tɘcɭ_ TTLdd`jk8L|L3L3TL3,L3i LL r$PLLBLsș Ȅ ( qƚƚ` s s),;,=,#,(,,ѼLL<^L<^ llmm$P$?TUJ)TU  ' Lsi imLqLsh E0`H ty ))ELyq  8 $0!PizEn{dUeUi hLqLs `wLr !L2 {}$ 0`QɀX zLs.+"2mXm tL qXXW zzEn{i x }H$ ]kh8 )KLe9e:: }Lgi , p s$8$0p`PL<^Յ H s r ɀ ȱX Hih0 & ?<I?iE W Lq s )L<^ȱQȱȅR dj sLHoUVV$ LhU Lp$ LL<^opL^```?EXTRA IGNORED?REENTER $0pL,`LgXW ׫ k*iXX 4X \\L<^Xii7 { n k$ |WlXVVE$ P% eT{||Hd ̐h p IkLo00$0 L>o "m nV dj$D$ P 膼Lo$0",i [ kLoHSHhp< {}$ p0H 07h ]k ,LmUVV `p F sLn 2 ukLoF вLm jȪЖ LL<^~p l nhhLgOPP` Add# 6d s S SS@Ln A " r ,; s lLn#f  ;П ⭩,SLn "mʆ,S _S% nLh "mL_T ST#L(, U VV ׫$ 0  QpU= d hkddhe##5ddˏdd?Ll ,?#$04dHHd = d hkddˡddhhd`LsL#&F  ; s b 0` L+l$ Nsd#Lzm566ȱ5Ll H# wl m#͉LchL$m QRKLLsh$0LU$^`=8WW>X> 悅XXXL:^ g`L<^ l Jj bx bp,_;Ll  ~q$0P oՅ5R66R l ~ L%l $m0 =k $m#`$L#i)8#Ll  s s( L7bʊ# L-l m hxd5d$0H h`L^bLb$%/%5$ &5 &5e$$5e%%$&%$e$% Lk ׫ sHH ~qLPkHHh$0'ph | ZlWȥmW`L$|hXWXL-hm lmmLkl VYZZ{|| w ᐥlmmYZZ LxWXX ox ExYW# kXX 4=^W^0A,lkj |yjJkjlkmlmi in`emeymlexlkewkjevjLkyi&m&l&k&j8iIiii9fjfkflfmf`nIngjIjgIm lkj`L<^}i0vvvvvj`Ly^Vy dv88; 54541r |LiHi z xz U{y xy рz xh '~z zLz z~ zm zl zk zj zL{LyJ eyexew~ev~f~ffffJ`5665y5x5w5zEn{z t $mlmkljkij8ihn`L,$0DpA q enHi80 @Lyu \ % @u ćh `&m&l&k&j`2L0 և yxLT}$0pLI oբRLi `u LLi u Lui0 ܆ چ,,% п 擩lm0u 1eL5665`iɀ*iH i  @8 ei $ tutt tj ȡhn` t` 0RN0R 0R$n-RRR`i` p`5665i`$0BP?iH i hLbe55f5f6e}Lme6u5u }`6ʈ`v`jip` ? #  ue }~ %u $ چ 0 u}` L uu  ) }Li <i@L{i$i0 p $ 1`ui` LL Lbb `}i~ei^~0] e e^`}`566i5`_cf_cfi^eub` ?^qbep`L<^ ?8b^e` rp`I` ? ㄩp^|be #^b ebbu|beiee^^iL56^f" ऩ थ (! ( ऩ थ (" ( द!LGb8Lऩ@iu +-ELj) e | ^ .' "5 1 p) iIii i)Lm` ?i $0 ׄ $0 $0 ^`Hhth`^Qb ^^ 8` `H Jh(L悈`H逨h` Hh8 Hɀjhji` HihJi(`  ~q$L ɺ b$P i pi$ȱLdjɻƟ dj 柰ީ Lihh sLg  s ! b   s "!!!+|] {n LU{HLʁIڢIڢ-(h#5ᆥ](IڢʥnH BiHɁy U{y рhɁ xhLB` vy{| g|S}dpL}Qz}c0~~D:~L̑56gh6hegehh `iɇoȘ戅 aziȅ xdo`Abi$nFn) i  j g g ^ ܇.Laz͠Lć ^ ׄ& ć ׄ ć ͠L- x |z K{ | T}{ x xnH yxn0 I B xh B Lр |  ZuL.y +|z% T}uH }h{ ~|H !z az ~hJ inIn`L~8;)q4X>Vt~w/z*|cYX ~uƀ1rP aziP | |iɈ { T}i8Huiiu x BU 瀩{h z` |] az 뀩]Laz | i8fe.șR0șRmymlylkykjyj00ڊIi i/ȄȪ)Re.șRI)ЪR0.ȩ+f.8f-RER/8 i:RRRRRR`y`'d |Ģ { &{f o0`LB ` H$ge &{h 80 '~L}H |h |zEn{iLxf d$h0Ly ef q80fL}COt#t$JZ mLKjk8 | ~Lm ^|-$nșRnȩ0iL f~ azea~ } \~ } &{e B{e yx %}ei0nihoi8傐IL|`7 z!L|iD8$n yiLyn)FjjjLyiɠ %}nnI*imLyjklm` s e-o+ smo..IE)2s S -+fh r$h8fL}fg s$gPf8ef B{f65m5l5k5n j5i`d,]WXX566 |m5 ^|l5k5n %j5i5` |m l)m |m`znth` |ht`i  y my`i n*` |jkjI*mlinLyFn`nEz0ʢiH xv5ui`uei0,iiL0y{n`nI0hhL,yLy |i{ xi` |={{ {LZ{ zL{ |8ii zivjwk xlym* 蕁24(y&x&w&v0⨥ymyxlxwkwvjvL{@jjj)(L{L<^~jklmL y56}5}} ,kk} , kklm Lٓ[ 80@ 6 2`  dkH) ojhJJJJ ojL 0:i`L<^ jHHHHHH s jhLyqhhh6h6h555_ȱ5VHHHH %L/5H6H6HH ?5^6_6_hhXhXhWLk ? % ?Џ`5566` xe5566ɂ66` s p `  zLseff z.!'$ iߪ$ 0 H8eAi\h$ P8 (Lt$ 0V` 痠U` hh R LsL  z (L[ Rީ  @Y%(&:$LU s և ^|iHn %jHkHlHK s n ZlHmH5 s iH jHH楩e ) ,LsLR eՅ7V8U #   785U6VLΔU7e778ҥU^V_bcF_hcCgDhebbc \^__`U8傅UV` |UȱU` L<^ |UUƜ0ƛ ӗWqeWȱWqei W` |8UUWȥVUX`UeUUVUO / +'L U)łiV VL LI 8U 7ȱ7 UU ЯUVULU7V8 p L LZ U qUU qUH85h688V77U U 5qUWȥ6qUX7qWWȥ8qWW ٥IiV) V LVU?e8V je?e>e8U>e5V?e665e=e@eee8 hx57 xLCx8I77JJ8 88` H dhjL YYHH dYZZ oxhhe5566ɂ逅66 wZZY L YIL=m ) s  ʊHYImm shhhhYhZhZHHE` 3YZZ xLCxl5Ym6Z78ߠȘH yxy hL3 j kqHHHH s H , ,H s s ~qhh 1 lhhXhXhWWȱW7ȱW8 eLNLXZWX ` GGH HlHmHmH khmhmhlh hk8j7k8Lޒ e7788IjJkJk )lmm'&`UR{R||L̐: / cRRȹRRȥ Rл s `Lsh sh5lh6mh6mhxhyhy x x Qȱx7ȱx88 Ƃ 7e7888ł75 楽HHȱȱ6H6H5H s =к bqhhh Lshhhh` ~R/mZlmYZ PujHkki^^`H"h{||kjkȱ{ "ie{||  V{|56|6 w&5L<^i8e` ě u8A?pB@B@ )onL܇jkL| Nsdȩ8 NsdL2Lа,L<^ A s ׫ g iq s= sXHXHWHHHH ajL? b rLiq HHH s iqhhh5ȱ6ȱLI65 g5H6 2|Hgȑgʆ5a g5ȑgȥg <^^^__ɂ逅____<;إy6 hlhm^Ȋ^LL:^ȥ5^H^h ͎el5emȆ6п  ͎e^e__ iLZe *& eegggegȱgehh Ľ ,L<^  8` ^LQ ŠhhL6 $P 訽5 ͎56ۥ 8ee L:^?be^@ce@c __^_ \__^;<<6  $Phihi^Ȋ^6h656H |mHlHkHjHiHl5 8eeghh^__` HHH H bqh hhhn0iɐ1 }L yxL%}\i FHHHHH 6hhhHHlm ,҄ shh)>=>hgh<<;[a{p ;<<ccb? @c@ube.a{bb,\(eb cc`ebcA[8饰 a{8`8\e@@He? ]@@?hbbb0 ea ȑbc8L@ @@h57Ri88 pi UŦLUUU HHHHL 2hh LW iL 2hlhkhn jhimhHɗ8 Ls`LIŚ1CUDVDVU Lŧ 0 7U L`L:^֩ ŚEĚ L| Qp QeeRee8 1  sL͙ɚʚ `pAƚЙϚŚњ˚ ̚8 悅DDF͚ Κ8 DiFEC CD)ӚDmӚDԚCBКLěŚAݚ⚠IȌ 8 ꂍ  8 ꂅJJ` ! ɃɄ b`" lJJJJYe s ˰L8Ls LԫN l@u=ekPe tMe )llNesOet NeOetMeCOeNeȌ=e>e;e ƬƫHH ,hohp` ɩCe0R`ȹR`ee?e@e ue 5e T L=e;e`Lso`n}pm aa`dyopd8isŠt`dyoopd8ip`J uv`&&&8孪孪宐橈`! @ uA?B@B 悅@=g>h>h ]=i>j>k a=g8i>hj>h 悅ki=5j>6k6SOS KRNLb.D1/SOS.INTERPŠ̠Š.D1/SOS.DRIVERР頞 0 ) (lH'&3&'&#e'#%e'%'&"$"$#%'#%h`$eh`L)i   HH `TH..TH..TH..THATS ALL, FOLKS!R`RT RT`#RT RRRRR`0R`RR 㵩:RRL㵆  ~ RR`BLOCKS FREE: BLOCKS USED: TOTAL BLOCKS: sj]"]\AjiGa@aI[5x<^sě xCxEx5eҥV{}g}gkj̐kIk~^hT}27uejewsHH st\hh H PASCODPASTXTTEXT PASDTABINARYFONT FOTO BASIC DATA WPTEXTSYSTEMRESERVRESERVCAT RPSDATRPSIDXAFDISCASMOD AFRPT SCNLIBk;eo $'>ed?eehi?e ueL5e qrL,op ɩ`et?ek;e`hZ L<^hZL<^L=ee>e ?e`opqrst !e5ehe?eLje LjeR=89R>:>:iR:RiRRiRL`8(RR(`EeFe  s bq Vml0L dMeL` bՍe :RRRiRȐȰRe9Re: J 2IHJh*=>> 95:6:6R L1 1Lԫ`L:^  aFL^R, ue 5eLڭR7>e?e5e?eJeKeLje֩ u>e?eՍ "] a a$% iLg֢   sLj$%`8f  a e ; ` s ɩ` YLILcopL7 z0xH ׫$0_ ;h8fH`aai shH2 h zJJJJf Ik ɩ` ̬ t os YLA ևLLק jWXX` ׫$`ɥ%e,ȥ,*,- y,,,-,,,ȱ,,- yL+,ȑ,` 2"p-,-L(Ġ %>,i-i8, ȱ,%,W,pp ڠ %p`l  " ) i 0 `8`HiHiH ihhȱh`86)IH)heuQɸ` ` W` ] %饚0` W` ߰4`)|E8LLLRLLLLL*LLLLLhh`LLL`SOS 1.3 01-NOV-82(C) 1980, 1982 BY APPLE COMPUTER INC. ) `G`î** }*`o^`on 8 JJAj@` *?($`ΠņɠŠ堠РѠ͠஠әƆH v?c,,,,h߈ߢ~))`3PLLP*%(i&`Ѕ񩏍E H pph`XǠĠӠ!((ͽϠРРSOS NTRPSOS DRVR(.D1(YYYYMMDDWHHMMSSMMM̱忠ΠͽŠ堠Р͠Ю̠Ɔx߭J ʈc(()o/ e/''ʈ((''()(1i / e/''ʈ((''((''((''' ('`ŠDAY, DD-MON-YY HH:MMSUNMONTUEWEDTHUFRISATJANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECԠŠР@L&I/O ERRORINTERPRETER FILE NOT FOUNDINVALID INTERPRETER FILEINCOMPATIBLE INTERPRETERDRIVER FILE NOT FOUNDINVALID DRIVER FILEDRIVER FILE TOO LARGEROM ERROR: PLEASE NOTIFY YOUR DEALERTOO MANY DEVICESTOO MANY BLOCK DEVICESEMPTY DRIVER FILE '(i%%%h}%%`8 ȥ!8 !)"qȥ#q#e$ȱe%L)%`@(((( % %`((((࠰$(ɠH(@(h((((@(`%z %% %~(A{(L%`.8(.Je.&ʈ.s(1 6$P8"ȥ#L1$8"ȥ#(ϸ`"##L]$"qȥ#q0,$p)@"q"ȩq"8`*$% $% 8% $L$* $8%8 $`8 &'$% 8&$'% 8$%%`H   q ȥ q Hi hi 1  % H H ȱ h h % $$ 0 e e H i hi âz %` 1 8`    # &ȱ ' # i" i# # #`8 ȥ H h `8 6$P`8"#%#%"$w"$#%"`荚ٍ荺 荚`荺``` D ( )  * ) 4* * h* ))` L% q ȥ q Hi hi  i" i# #% $ȱ %ȱ &ȱ '`<!((g %(r(z(q( %y(i(0z %"#$ %&' $"#$%&'   `%$%ɠ%* " ~#C #p $ %*0"#)#)i $"% * %*  L! {" j% %ƌ(X#"$% "$ #%%& '   ` {" & ɠ% %)  !( (" %(r(z(q( %y(a(0: %   "$%&e$'e% R % <`` LLɠ8`ΛLL渠`ǽi `< Ȱ+<#5 ې'` ɐ /ݐE`W8`R` 5&i ` Ȱ 0i `<8> ȐT eİF cȰB)Hh5 ˭)*ȑƑȥǑ'(ȑ`L)ɭ)Ѷ*e`M) `ۅH)Ѱ%}ʈh Qܐ'``hi ` p6۽ʹZ5 HȐ/i i `гW8`0( ɐ Ȱ ʮ6E`5 խ ɐ ޢ ȰLȍ۱Ǎ X̰% & !J8` *LĢ `8 iۥƍۥǍ`ۅ %  6 )Ѱ Ѱ` 𝭧e ǐ bǰL*ۈ5ȱ۠ƍȱǍ X̐ H h1  /ݐE`ۈۅ ۅ 8ƭ X̐`LLŠǠ  ݭv̅w̅ ðzv̍ŭw̍ŭƭ ­ōō T̰]ŅƮņ X̠8iȱiiȱi ṰŅǭŅ XLōۭ۩ۅ ȱ8D`F`8eYƍťǍŠ)͠ Wٍۭۅ5ۅƭۅ X̰ ìۈۑ T̰ۅƭۅ X̰ۙ%ۍ" T`K8`)` İ ۱ۈ` ưW/ۈęۈЍ۩@` 8 MƐ  5 Q8`LŅ ۅ ۩ۍۅ Lɰ ʰۅۄÍÍۙ'Ù ۍ*ۨ  Ѝ۹ۙ8v- ðJ ¥ ð, ðLO ʰƥLT`'  mې浰``8 8 nʰ0 ̰+泱Ƴ m° x̰ ̐8` m° x̰8 ۢ8 ˰y ` ¥ nʰ泱Ƴ T̰#泪 Ѳ *Ƴ ` L:Ϡ`泑Ƴ` LaĥH8`JȘ I8`  S`ۈۥۥ۩Íۭۍۭۍ հL¢H8`Jj Ȅ ۍۆeۅiۅ Lɰ ʰWۅۄ ¦J> ɩE` eĐL Ȑ 15WL QL5WW{5 ې'`,55 ې'` ݠ B1 ȩȑ Lɦ8`5  @ R㥶i ` İG8`F`X8``éۅĩ >` T֩xxMH]@ Kۅ5H ɐE$ eİ Ȱ h`h`8`W h8`hR`hLҿ i x +ۅ5ۅ6 ǰ `E8<W`­ `0XLۅ5` ռ``ߤeI`IiţO`Ȯʆ/ )󘑡`()0zq 滅ѺY Ueۅ5Ѻ Ѻ  Qܐ'`i ҩ *C8/y.i/ ȑ  © $ E7<3W`ȽLֽȄ @8`R ) [)_[AͰ")[)_[A:0/.ЩȑΘ8e * ȩ`Loü 7)?۽۩ W٠Յ<ōōř ռV7 uM78 V榠=ü#)@5 ɐ /ݐE ) .) @L `lqhٯ޿=ϓTXIֲ̛̐~ؠIJK,-NOPQ0vt Ѷ"` ɰ Ȑ`E`Ɔ X̐8`>>5Ѷ Qܩ<`>`\ʊJJJJ ۍ۩  ˰Fȱ X̰6 0 Lɠ 0ۑۑ8ȱ`H8` ɹ $  8JJJJ8 ` ۪` H hQ)fʅ F jF jF jF &!  eװ*  ̰F湥 ƹ`Z8`@  ʰ泭ۑƳ ʐ` ʐ` ˰ ƹ Wː`ۘ . . .۪8*Jۦȱ ˦,+* ʈJj =ؠ yiȩ`y4泱ƳHhz ʠiȱizLA`L;ؠ"  `1` Đ7@8V۩ Lɠ۪8ۊ۠X)JJJƄ X Ġȱ۠ ȍ۱۠ ۭ) ۍ ð*)#  O̰``)(`N8` ) xհۈ ̰آ*գ  Ͱ ݢգ LvL{ؠ;i ڥ(8` ְ( ȱ5 HȦ)`Lxץ: ש ְ⥺i ꥻ(8`Lx Lxש u )۠0)p խ.8`)@ ϰ) ϰۈۅƭۅǭۅ5 X̰ *ƭ۬͵̶L  ΐ` Wհ> H۪ȱHۑhƳh sϰq ` ʰiȱi `)5©éՅĩ5 }JJ+`.`8`ɂ )`@ ש ְO ֤FHۑۑh8`P) հ Wհҥ,J+j泭۪ƳۑȊ ) ~ fPL ͊.>.ʱ+,EP!.E.Lw+,,ӄ*- P*e (` հB հ5 Wհ0,J۪泭ۑƳ sϰ(` L Ͱ2 ~ P kҐ#L8 T 2ΠHHȑhhȑ`Ld )N8` xհ*eȱ+eȱ,i۠Ѻ۹ۑ񥤅- ť.Lcԥ.La Ͱ$)rJ Lɰ )# Ԑ) ͰU..++,,IJ/ ӥ-.?Цե,J+jѲ4Ƴǥ4聠 H hH kh8`8-ȥ.L 8*Ʊ )8 0*-`.G.ʱ*+,EP'.E.LұE0+,,ӄ*p-e  )LBѠٳ )8`i (` )N8`*eȱ+eȱ,i۠Ѻ*ȱ+L - ť.Lkҥ. ՅL ͐Ld ~ pа.J/)@߅4N8`) ))УJ8` ۑȭۑǠۑۑȭۑ($S8`O8` "` / 򑺠+* ͐H h8` ΰi `()  *ǵ յý5Ņ4gȩυɩč5 iψ }.8` iϙLIѠ ˢ L΢ ΰ LϠ ˢ ΰ1` Đ@ АP8`B8`ۑJJJJ -ѥ +jѲ84ƳJJ 2ΐ3泑ƳLTΩ潑ƽ`ƱƳ ΰ( {Π۵*+)e`8`)` J J + ΰ" 0 ΰ 🱼ѼL8`ǩ Ϡ` ϰ ƑȥǑ` Ѻе*`)ȥ+8ۍې  ,ѺLTΠ"LΠ5 խ ɐ /ݐE`C8`)@ ϰa)ۥ,8ېu+J,\ ȱLJΠ) ϰ'#,J(] { ΰ ƑȥǑ.8` { ΰ,JѲ ƳL΅ƱƳ ΰҥ,J0`#$"0#`!qȱi 5H5Ƶ ǽ jh5`L2̩ƍv̥Ǎw̩ÎL%ϠƄǥLj̩۬L~̠HHh` ̐`*ѺG0?M`)J"u-- M8`۬` # ː`  = O̰)= I`JJJJѶQi Lˢ  0 ̐ `"L˦ `H8`8$$"$= O̰=`$0`#$"0`$Jۑĥ` İo!)N8`WپX0 ĥLä X0 ĥLà !"#$ Đ2@H AڰCŰrP` 3ڰ(` AڰѶ? İG8`Fە1 ռ İ ЩP߭)@N8`1@8` Aڰ񈱴ۈ)ۅƭۅ X̰ 3ڰLÍLT̥L㼠  ʰ` İK ХP8` LɐH80)N  հ)@LO ˰)0 ̐` M ­۠泭ۑƳѲƱƳ X̰ Rڰä,] Xx,f (I0јIFjFjFji```x@gŽPy+wLwԠ͠ŠԹ.D1 .D2 .D3 .D`HJJJJh)y` (2ϩ 1ޠ== f ɰ`ޭ`5=(5= i Х(`=H hDC5 L3ܵ ɐ /ݐ 8`5 ˥JJJJ8 H h ` ܠ825H h5 ɐ /ݐ 8`Hh ܥ5 `ɥܥܥܥܥ5`܅܅܅܅܅5`( ݰ)Ѻ ݰL ݰ泱Ƴ ʰȭۮ ʰͩΪΩۦ eװqȭqLJ  ˰Aۅƭۅ X̰2%&N  ʰƭ X̐`Ӏ堁ӠҠՈ՘̠ƠŠӠ̠ɤӮȪŅ͠Ϊ ܆5 HȰ4 )ߍ) hjjjjۥ0CF = -$(L !LLL&L L-LJ٥eƦ ,L  # ` (L.L…ҥÅӭƅХDžѥL1LUȑ  i ߩLL )  札)  ҩLL` **éL0;` H ) abRcdTefVghXijSdfhj RR`^0U ` 0 ʠ0 8 `ůàՠԠàࠝӢӠ ȠDž̖͌͊頀ϐωŠŠӠҠȠγ`%!^0 ^)@`a R =` *^)ـooL]^)?i |TU QTU]qUoqTITsUsprRprqs]ToUXa` RL=Xa` R` *R`X`U T  *\AX[ @F\B9ɏ5\o*Ɂo)[[ @^`U V  *C?^0: ݳ ٢ ^)?i` *)@o `p^ XiH 1h `)X0 8~X 1`C X`)X0`C РǠ𠠐ŠŠӠҠȠƠŮƠҢâӠUAQY @?ZY 9ZYY^TU QZoȥɭ }`` ? }``  }`X0i 8~XX0H }h襯` ©Wéĭ }0W`F X0A */5BL. zF`LLz Lz`Y `Ơ堧 B k L( LO  %   }` ` ?!©UéĩU󥣍V }`` ?)) $p10LYeieLVȱ d0L`Hȱ hh` WɸSI I.ȩ8A 8ɸ4ɠ(H)h h8   `    i Ȣ d` $,)?P^ GL㢮 5L}P.)(Ơ L`ޠ LR  稱 I)0JJJJѤ  БĈ` H`)à`֩ нѽ>`]PU]]UPPX0 0 PPXPP  į󠠩ҙ̙ɠΠɊՐӠӢ̢ՠҠŠԠҚРĠ鱃ԠȠࠠLQ  * WHHH>%H H @`)h8`  HШБˆeЅА SYSTEM FAILURE = $hh8`hhhxآY_Z@tPRVT,p S JJJJ ) ʍL@ i0i6`îӉ͠堧ǥӥ``HhHy)(h`H` 0L?i `h` `` `x)( 8 `jjJJԥ)եӬɂ )Ӆ҅`  `H0Xh`Π'à̠ȈL` 8`څ  Lk%  Lk8Lu텚8嚅 L L Ld V ``  h` ک V `ۅץ  VLFx) ( :` H ) L  .P'pб0 &L:L5'8+8`0Fܢ` ř,Ř 0 8f)J DžŠƠŚ̮ÎȠ Ӡ̠Ӡ` LL#L/LL'Lgab `abBcd cdBrcadbho:ab.cݰdDcݰd8abҊ v+abcde0f`   cCȱcD C Ea  UV 1 ELUFVG FUUCVDեYCWZDXWXCUDV[ v`b0WXYZiUcȥVcWX eeYZ ggE` @SATR HH` (# (KXT .")"#)  #`,.$ ()-'( / .`% (.L,/0x ('( `,.0L& (,.0L7 Đ`ʥ逅8n13DL8H\0`(d  $,($  ,BSerial Printer Driver -- Copyright (C) 1983 by Apple Computer Inc..PRINTER A")Copyright (C) 1983 by Apple Computer Inc.>88  >!SHOLES 1!1!2@23#3#4$4$5%5%6^67&7&8*8*9(9(0)0)-_-=+=+\|QWERTYUI OP[{]}`~`~ASDFGHJ K L ;:;:'"'"ZXCVBNM ,<,<.>.>/?/?d0hp00000>0# #0~$ <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>>>> ""*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>>xrGA7  3  5  >>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< SOS DRVR"CUSTOM.3 )((8*,;((*,((+)((9/(p((>3  =9 :9 .(~|L|LNqooGoDDDcc0ccpc]]c"QM"|@@pAATT**|  )* i LiHh`PQPQ>P Q,PQ"PɀQ@PAQ`8`nɀ<)nopoLpp` 0h8蘠fȊf` ab 1abo)abaݰb L9c`` a N0Ioa0H ha`pLopna n`  3ɠ/8 L %iLɠ8逨J Hh $`b >_-%^%p_^^_ab"08^c_L8^c_L8^c_L8^c_ȑcc\] ab^_ ``aV R0M bba dda `Q8STRQ ST`c\ȱc]a  b 5DU e\^e]_ ^_ ^_LH8\^]_?Je\^e]_,78\^]_ ^ݰ_ ^_LH^_ $bL@A^_aoQ*@A RQL@A `T8`RLSJTKQHIQiHiIKNJ)M8逅OPOPHMIN'a MHNILHOIPaOHPI8JHFKIGFGaHMINNMʆSTL8HSITQQST4nʐ3x1eʍ1,/p/H h(eʅ8ʅİLa )`Y)D00L:1?24n21  % &$0) `/0) `,.0L tHsH`! (xy```,.0L HH`Ln,/023x #) "# (```'+"'*CFMRZ_ '058FV[fjsuw;Console rx 0, )ߍ:) J)*PR,T,V( : `,k<,: JI`I`<,:J̰`=m@>,:J}ʅ̽(I I `<Mj,:0pJՐ̑ʈ`pJհ0`ՑʭrpȐ`=m@< B h A$g " x) (,`% (gL,}0, `gé ĩ `:) j:;jN;~j;O,:0'???>>8?>p<<AAA@@8A@q==C)CB)B C}0 x) `(`hh% ( ΍ ύ逅Ñ}`` " ( ĩ~Íĩϭ & &υΠÑΈ~ F ~ҰةeÅÐн},,P,`,g$ ( efh) `xÙ+(`xÙ&(`)4`)5`)6`)7`)8`)9`,i0!M:0p ȱq L `" (~)y ~JJ* I `x|x|,,}P-X~ F }~L } `,,i0L È`,g HH`LL! l      5  Hdcefh&+si  M0   h) `(" (  (È& 8  `)2ȱÍ3`)1`Ɂ" (cefd`Hc <Le Le ,g0L HH`! ( 9EKQWbmz`(" ((è%È`2ȭ3`1`d`c`+È`&È` & IMk`4`5`6`7`8`9`<ȭ=` & @jI`:ȭpȭqéL ==L: ,lCL <=L: <,n)LL8 L8 u:L8 ;)ߍ;j`; ;j`uBL8 uCL8 u)u;) u;L8    x) `(,  LuL-upp<`uqq=L: vuL L L #1:CY` 9C<m><=m@=>@?AL8 >m<>@m=@<=L8 <m>?=m@AL8 C9L8 ; ;k`;);k`,@`<,m p<L<`<p<`,ms<L=q=L: ,lXґȥӑ,10 h0  `,g0L  ҅ӥĥŰ+,0p 4 Ls  Ls i )"|tȌs|st HH` MjH,: <J h̰ <rh,oL`%CYgu9 Ln90$0%,7 ҥ L$0T,8OK50P;ҥ,8 L%\   8҅¥Ӆé҅L,5,6  & @jIH,5 p  He҅Ґhe…å逅h,23Lhʩd8,h)ec efeede`,5 H  h 4  `5!    4(P 4 4  `,g0L,10kH0 ԥ f0)ĭ9)9҅xh(ĥŐL i,1HȊ©L,52,9-P" a{) b) )ab)a a,h0& &+%a0 +hcefd(c,@cfabdf`cnx  (,4h`dd,9P"<:J H) +̰ H) +ʭcP h̰BTVSPLH   5"ʘ HH` (# (=  0`)aIٮ@8pذ `$0"8,:Jک@ׅפ؈۩MjL,:08*Ȅ B ,:J}΅н(I I $0;P̑бʑΈ,:JՐ̑ʈ0 Ցʭr̈A萠L: ֦ڱΑ0Б֤ h L  p,:0 JfiΥiώJe΅Хiю@ B $p̑бʑΈ0 Б̱ΑʈeمΐeمАA萿 :  `ʝ"`t  !#%') V 8fxL@ ] I)!) g 80 J8}L y L 0yʽz0 y L7  Lh `*f*&*)` ϭPh0 йPL)`)L` L``  `L` H , 8 V ТΕLϦI ] +)J* g I`LL) @L) L8``Lթ`~L8L)  =H 'HH N M))Mhh0 }LO}~~Șݻ~`}}~L< L }ީ~` ɠɀ)ӮԮmwӥmxԐ mi` HHGH`  &xix 0ޤՐڢ,P<0 )ߍL- J,P,QJ,R,SJ,T,U,W`,t0L40 ( dȅɥŐ ĐL `ʝ`))ժuvЭ H ʊJyjhz|ֆ׆ح)JfJf$PIJfש ʈ8 @ש wx LVخ ʊJJJ莟mww HH`! (`ɖ" (èÈ``,t0L4 HH`L  d!  `ɖ" ( dÈ  ``,t0L4 d0Cս30. , V  @„ȄL5/((((PPPP @``` @@@@`xp<@ @ :H9H` (# ( -l..PcJt`,t$ ( t`tL4`,t0L4www """"""""33333333DDDDDDDDUUUUUUUUffffffffwwwwwwww(C) 1980 Apple Computer (+@EIR[ty} NQ9Copyright (C) 1983 Apple Computer, Inc. Graphics Driver..GRAFIX b """"""""33333333DDDDDDDDUUUUUUUUffffffffwwwww     ! ( 0 7 I N S _  . G R Y f {    ! $ 4 9 F I P S V \ a h m p s x |     ' + < ? D G N U f k p x ?BEJMRUX]`h  2;AGMS[fot|              . 3 6 9 < ? B E H N S V \ _ b w  KORY\aelpu !$(+.147<?BFILORUX]`finsw| !%*/369<+;CNU\eh "*-036<BLORX_fj &+38;?DGLTot <?BGLQgjox',/25:BG` m j`Hآ Hӭԭ h h`8٭028ٍڍ0Z$eٍeڍm٥m8٥08ٍڍ`8٥058ٍڍ0ԭeٍeڍ808٥8٥ 8مڅ H , V Εm٭mڭ))njnjnjfjfjfj+mӥmԐ8L( Ӣ 79C";"PRESS ANY KEY TO HALT LISTING"::202 1020#2,B$(I),16,B)ž#242:::1160Z=1#2;A$:"78A";A$Z=Z+1:Z>1842:::Z=1980*:=23:=0::"79C";"CONTINUE...?":1C$:C$<>"Y"C$<>"y"C$<>"N"C$<>"n"10 MENU.MAKER TEXT MODULESEG=0"MENU.MAKER"890&*X=11000: TEXT SLOW-DOWN LOOP ,X.1,180,22:2,280,21:2,2380,23:z:A$="LISTING "+B$(I),16,B)$=01:=0::"80C";A$;::12)>=23:=0::"    ) . 6 = J P S X [    $ 3 : = F d  > B H M s `e|&+.QVYcjuy~':{%(-47=FMUX\_jmz  .169DWfy   % * > A H K Z v z }      % , 1 5 : = B K R Z _ b g n s x ~ /47=G\x{~'+.149?CGIKMOQSUWY[]_acegikmoqsuwy{}J) ܭL FܪJJJJ)`'+9;=?ACEGINR\aejns~  #&).369<ADGJMP^g $*-06=HLORWcfloruzp Q%Q̑`pPIE1pΦ#$01ʐ1`JJJJ)`%υߥ`1(ȦJJJ`&&*`JJ` **&*&ߥ`J` ***`` ` Jjjߊ` ߊ`JfJfFߪ߆` `JfJfJfF`ߩ`$011̰JJJ LP \LD$7߭$PH8 nߩ nh ߍϭ - k, ϥ- kϱϮEϑʩ`P z  HH` k(h`$0#$E$0p Q%Qʑ`pPIE1p$E$0(L%τ`ϩE҅0Ȅ(fL% ('Άѽн`8Hٰ hIiHمh8Iif٤Φݰ>Jj8ۅe݅eޅ $  m`!J8݅ eۅ$  m` , V $צ!ϤҐ мφi`Jf`<,&ʰ,i8i#Hiihifʦʆi) v`i,ʐi,iPIIʥ)ifʦʆ̐pLj/Fϐ&Ȅ`'@τ`Fϐ@ E҅F8ئȢΆѽϽ`/epɀjff&ݥeepɀjffݠ %)  %)`%  0.)      0  ` ` @ ``8٨JJJ ) u˘ vͽʅ̆`8Hi #i,$0F y բӅLx  mӥmԐL] h `  )`%)8`)    H   ʥ)Ģ    H Ģ L E% %) L 8`ۅ&ۥe30C$="N"C$="n"1160;:=23:=0::"79C";"PRESS ANY KEY TO HALT LISTING": $1020.202 8::Z=1B::=23:=0::"79C";"WOULD YOU LIKE A PRINTED COPY?":1C$:C$<>"Y"C$<>"y"C$<>"N"C$<>"n"1170*C$="N"C$="n".MAKER",2202=14:"Add a border? ('Y', 'N', or 'ESCAPE')"B$&B$="Y"B$="y"=14:=44:"YES ":BD=1:B$="y"=12:=44:"YES ":N=1:530{B$="N"B$="n"=12:=44:"NO ":N=0:530 B$)=27"MENUB$="y"=10:=44:"YES ":CNDS=CNDS+57:480bB$="N"B$="n"=10:=44:"NO ":CNDS=CNDS+17:4805=12:"Include the name? ('Y', 'N', or 'ESCAPE')"B$|B$="Y""CENTERED ":430 B$)=27"MENU.MAKER",2205=10:"Rotate picture? ('Y', 'N', or 'ESCAPE')"B$ B$)=27"MENU.MAKER,220"bB$="Y"B$ԐB$="L"B$="l"CNDS=128:=8:=60:"LEFT ":430B$="C"B$="c"CNDS=0:=8:=60:":80"A$="2"330,A$="3"Z=1:330/6A$="4"::RELEASE:".D1/MENU.MAKER",220@270J^=0:=0::"79C";D$;:*h=23:=0::"79C";"PRINT GRAPHICS": rœ200E|=8:"Picture at left margin or centered? ('C','L', or 'Escape')"ENU.MAKER GRAPHICS":1=8:=20:"PRESS '1' TO SEE THE GRAPHIC ONLY"7=10:=20:"PRESS '2' TO SEE AND PRINT THE GRAPHIC"@=12:=20:"PRESS '3' TO SEE AND PRINT THE GRAPHIC INVERSED"2=14:=20:"PRESS '4' TO RETURN TO MENU.MAKER"A$A$="1CC>0160d=10:=40:"" nGLOAD.D$xXFROPTION(%6)MOVETO(%1,%190):#5D$8MOVETO(%1,%180):#5"ANY KEY QUITS TO GRAPHICS MENU" FILLPORT GRAFIXON C=C+1B$ :::=0:=0::"79C";D$;:/=23:=0::"79C";"M1 MENU.MAKER GRAPHICS MODULE (COLOR SUPPORT) SEG=0"MENU.MAKER"2".D1/BGRAF.INV",".D1/SCR.PRT.INV":INITGRAFIX#5,".GRAFIX"#CC=0(D$=B$(I),16,B)2name$=34)+D$+34)<C=1:N=0:Z=0:BD=0F200P INVERSE THE GRAPHICZC>1EAD PASCAL TEXT FILES."04=10:"78C";"ANY KEY RETURNS TO THE MENU."!>G$:::".D1/MENU.MAKER",320R",220(204::"79A";""; 2D=1:F=1 <#4;a$ FD=D+1 P#5;a$ZD=60#5;12)dD=60D=1nF=F+1::d$;::Y=1100:Y x13402  CATCH PASCAL TEXT FILES 202 :F*=08:"78C";"SORRY BUT MENU.MAKER CAN'T R".D1/MENU.MAKER",220 d$="" A$="PRINTING "+B$(I),16,B)=01:=0::"80C";A$;:#3,B$(I),16,B)Z=1#3;b$:"78A";b$Z=Z+1:Z=18:1290 1260 #4,B$(I),16,B)#5,".PRINTER"+ž#4#5;12):::".D1/MENU.MAKE6000B$="N"B$="n"=14:=44:"NO ":600 :B$)=27"MENU.MAKER",220MX=16:"Color? (0=Black;1=Red;2=Blue;3=Violet;4=Yellow;5=Orange;6=Green) "YN$ZN$>"6"600[900]=16:=70:M$" "gN$="0"620 i800:#8lX=1600: vGLOAD.D$Z=1720bBD=1  K,i"i# " O.J ní ,PJ(L\L "  L04"# O 0JH*h0,pH  "#`J)mJJJj0i(m``,PJ ,P H e,P%hL,P H e,Ph,p1 ,0 p  p,0I)M``,hhh hHHHHHL %&Ly)+/* "#~)L,P,P ,P `,0p@ A"# ,0LLLyGA3/1.01:7SY PSCREEN M$="04"M$="Yellow"M$="05"M$="Orange"M$="06"M$="Green") MENU.MAKER GRAPHICS MODULE (v 6.0) =12:=40:""4  CHANGE COLOR (Epson compatable Color Printers)4COLOR$=27)+"r"+N$>#8,".PRINTER"H#8;COLOR$\  COLORS M$="0"+N$M$="00"M$="Black"M$="01"M$="Red"M$="02"M$="Blue"M$="03"M$="Violet"MOVETO(%0,%0):LINETO(%0,%191):LINETO(%559,%191):LINETO(%559,%0):LINETO(%0,%0):BD=0!N=1MOVETO(%1,%190):#5;D$ GRAFIXONPSCREEN(%CNDS)X=12000:X N$="0"800#8;12):#8:CC=CC+1:40XFROPTION(%6) FILLPORT h,pei,PJ( "Ј L2 "#/*$hhh` "',PO""#',P)  ʱ)  ʈ Ly,0"# ` .PRINTER /0.,)&#!    ~{ywpWPOJB<3+*$  }y0 WAP /// SIG MENU.MAKER PROGRAM (v. 6.2) =".D1"210: Coldstart (320: Warmstart &*X=11000: TEXT SLOW-DOWN LOOP ,X.1 CHANGE DISK SUBROUTINE23œ202:2200<RFa$=" YOU MAY SELECT YOUR DISK BY $(/4:?IXad#ˆ̭U)? VW @ ?ddxtB˩Eʍ@Xx ,P Eʍ(itiBX`,A0Lp HH`! (```,A0Lp HH`L%&S```lBcguwy{} vHuH` (# (jjA`,A$ (BC x) @( A`% (ALpx)`(BC `,A0Lp& (,A0Lp9 æĬSɀ֙TȌS 9S`YX`X-, can be done from either keyboard or joystick (or both). Menu help is available within the program as well. Side One: Contains the Font Generator Manual Side Two: Contains the actual Font Generator program reground and background colors. As many as ten character fonts (not including working fonts) may be loaded at one time. FONT GENERATOR /// also has the capability of copying characters from one font into another one. Editing and creating charactershelp in the designing of character FONTS. With it you can test out how far your font would look before it is saved. But that's not all it can do. You can also check out how your fonts would look in different text modes, and yes. even with different fo WAP /// SIG PUBLIC DOMAIN LIBRARY PDS NAME: Font Generator /// DISK ID#: 3FNT-04 BOOTABLE?: YES - Both Sides FONT GENERATOR /// is a user-oriented Program that was designed to incorporate many of the Apple ///'s powerful built-in features to PNAME PSCREEN PSCREEN PRNAME PRNAME PNAME  E  xwvumlkhgda^[XURQNIH80!}|hc_ hhh5h66 )5HH`@HLy,0׌ VOLUME NAME (/DISKNAME) OR DEVICE NAME (.Dx)"P12);::"80C";a$;:Zb$="CHANGING DISKS"$d=23:=0::"80C";b$;::12).n=12:=20:"MAKE A NEW MENU FOR DISK: ";N$xN$)<2110=N$ :210 I=1L(A$(I),A$))200B$8C";"ANY KEY RETURNS TO THE MENU.">G$:::320H: Error Routine 202:U=11:"79C";"BAD PATH ERROR (NO DISK IN DISK DRIVE OR DESIRED FILE NOT FOUND.)"X=11000:X:::210Z a$="{,|,~,}; selects; back 1 leve 1600 &:WW=1:0 :SEG=1;".D1/SEG.F" SEG=1".D1/SEG.G"diskname$=3802  CATCH PASCAL TEXT FILES 202 :F*=08:"78C";"SORRY BUT MENU.MAKER CAN'T READ PASCAL TEXT FILES."04=10:"7M$="NOVEMBER":1750M$="DECEMBER":1750826);"-";M$;" ";Ѡ,2));", ";"19";Р,2);" ";/П,2))=>13П,2))-12;џ,6);:1780$П,2))=0"12";џ,6);:ٟ;$П,2))=>12" PM-":" AM-" 1830WW=1530 =26:=211660,1670,1680,1690,1700,1710,1720,1730,1740^M$="JANUARY":1750hM$="FEBRUARY":1750rM$="MARCH":1750|M$="APRIL":1750M$="MAY":1750M$="JUNE":1750M$="JULY":1750M$="AUGUST":1750M$="SEPTEMBER":1750M$="OCTOBER":1750T 0")2070H540R\A$="RUNNING "+B$(I),16,B)f"79C";A$;:=0pB$(I),16,B) z::SEG=1".D1/SEG.T"t=+B$(I),16,B) yCT=CT+1~240:=24:=0:"@ ..... "DATE.TIME.LINE" ....JM=Ҡ,4,2))BTM1630,1640,1650,0=+IBOTM/2-.5):I=IBOTM:I/2=I/2)I=I-1 œ2120B=B$(I),16)," ")-1 B$(I),"BASIC 0")850B$(I),"TEXT 0")890 B$(I),"CAT 0")1140*B$(I),"FONT 0")18504B$(I),"FOTO 0")1930>B$(I),"PASTXB$(I);v:520: 500THPOS=4:I/2=I/2)I=I-1I=IBOTM THPOS=44:I/2<>I/2)I=I+1I2=-1:I=I-2:IBOTM<30THPOS=44I=IBOTM/2)*2:=+IBOTM/2)-1:CA)"PRINT.ALL": OA+P 3HA=(81+UCA)A=(81+LCA):::: OA+Q Quits 3IA=(83+LCA)A=(83+UCA)"PRINT.SHOW": OA+S 2JA=(68+LCA)A=(68+UCA)/Screen.Savers/HELLON=THPOS:B$(I);XA<8A>11540bA-7640,660,690,720l:=THPOS:ٺ1600 =Q:WW=0A=:A=21A=9&oldprefix$=40A=31410: Control C "aborts" program to Basic(:A=13770: Return Selects a file *DA=27:50: Escape to change disks/FA=324000: back out one directory level 3GA=(80+UCA)A=(80+L"BASIC 0":150A$="TEXT 0":150A$="CAT 0":150A$="FONT 0":150A$="FOTO 0":150A$(L),"BLOCKS")510*=27:=19:"FREE MEMORY AVAILABLE: ";=7:=20:"80C";A$(L);$:=5:THPOS=4:I=1:IBOTM=J-1:620Q=:=26:=21:sic; +Q Quits."r12);::"80C";a$;:+w#9,"DISKNAME.DAT":#9;DISKNAME$:#9|d$=DISKNAME$$=23:=0::"80C";d$;::12)201M=3:=14:"This /// SIG Disk is \^ 19";Р,2)", Washington Apple `, Ltd."=4:B$(1)="":B$(2)=""A$=16,B) THEN 240 #1, d$="":=10:"80C";d$ ž#1300I=0"I=I+1:#1;A$(I):290,#1 6L=I-1@j=1:same=0 J:SEG=0 Tœ2030^CT<1CT=1cCT>13000Zha$="{,|,~,}; selects; to new disk; J/2)=4:=+1:ۙ=44B$(J);:J=J+1I:1,180,22:2,280,21:2,2380,23:8A$(1000),B$(1000),C%(511),C$(20),name$(20):=10:=0UCA=128:LCA=UCA+32CT=15 IF PREFIX$= PREFIX$+MID$(B$(I),l; ~|zxvtslgbWTSRPMED=hhhh   HH`420.-&#  Phhhh   HH`420.h   HH`420.-&#  Phhhhhhhhhh  HH`DB@><:86421.+*)'jhhhhhhhh    X XLJFE>987410/-   `+(%" Bhhh h h h hh hhhhhh  HH`ZXVTRPNLJHFDB@<;85431hhh    `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>:)    kL GA3/1.01/LINr GRAFIXMO nljhfdcbQNMLJFEDCBA<;6hhhhhh  HH`420.,*)&#"! Rhhhhhh    HH`DB@><:983.+('&$hhhhhhh  HH`420.,*)&#"! Rhhhhhh    HH`DB@><:983.+('&$h J)` `!0 WBUFLEN !UFLEN SOSWRITE$SWRITERWBUF BUF RETADDR ieB>INITCHK UITCHK MOVETO MOVETO  WBUFLEN _UFLEN SOSWRITEbSWRITERETADDR INITCHK ITCHK RANGECHKNGECHKWBUFLEN UFLEN SOSWRITESWRITERWBUF  INITCHK ITCHK FILLPORT FILLPORT RETADDR tpINITCHK ITCHK PENCOLOR PENCOLOR RANGECHKNGECHKWBUFLEN UFLEN SOSWRITESWRITERWBUF |x FILLCOLO FILLCOLO TRETADDR  SETCTAB SETCTAB  INITCHK ITCHK RANGECHKHKWBUFLEN UFLEN SOSWRITESWRITERWBUF  'SOSWRITESWRITERWBUF  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 詏 鮀RWBUF ZRNJFCALCABS BRETADDR SOSDSTATSDSTATGSCB  MOVEREL MOVEREL INITCHK ITCHK WBUFLEN UFLEN SOSWRITESWRITERWBUF  RETADDR c _ < 8 INITCHK O ITCHK WBUFLEN Y UFLEN SOSWRITE\ SWRITERWBUF T L H D @ DOTAT DOTAT  MENU.MAKER FONT MODULESEG=0"Menu.Maker"D"Download.Inv"NC$=B$(I),16,B)Xarray$="C%"bname$=34)+C$+34)lgetfont(@name$,@array$)vloadfont(@array$)J=1:SAME=0".D1/MENU.MAKER",320a$,1)="/"5060:s=s-1 5030=a$240 MENU.MAKER 6.2 * Thanks to C.M.Davidson for his help!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