LnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)SOS DRVR"CHARSET )((8*,;((*,((+)((9/(p((>3  =9 :9 .(+( 8#8# %3(8 ((,+)(%.4$)?((,(103 ?*HELLO.TEXTn/ O%SEG.T ji8Ÿ/ -READ.ME.FIRST O'L !{ -CALENDAR.CODE j !\ *CAL.RAQUELl!*MENU.MAKER r i8;DISKNAME.DATl0!0(CAL.LION Q!( *CAL.FLOWER qQ!'2III.BLM.21CS.15u' *SOS.DRIVER (.!*SOS.KERNEL %,V8!a*SOS.INTERPQ6!,CALENDAR.DOC !{,CALENDAR.AW3| P !{-CALENDAR.TEXT >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@L 7  3  5  >>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""<  `9`<ȭ=` * @jI`:ȭpȭqé,i0LÈ`,g HH`LL! l      5  Hdcefh&+si M0  h) `(" ( (È& 8 `)2ȱL1upp<`uqq=L> vuL L L <Li Li ,g0L HH`! ( 9EKQWbmz`(" ((è%È`2ȭ3`1`d`c`+È`&È` * IMk`4`5`6`7`8<L<`<p<`,ms<L=q=L> ,lXL ==L> ,lCL <=L> <,n)LL8 L8 u:L8 ;)ߍ;j`; ;j`uBL8 uCL8 u)u;) u;L8   x) `(, Lu%CYgu #1:CY` 9C<m><=m@=>@?AL8 >m<>@m=@<=L8 <m>?=m@AL8 C9L8 ; ;k`;);k`,@`<,m pHe҅Ґhe…å逅h,23Lhґȥӑ,10 h0  `,g0L ҅ӥĥŰ+,0p 4 Ls Ls i )"|tȌs|st HH` MjH,: <J h̰ <rh,oL`L i,1HȊ©L,52,9-P" a{)9 Ln90$0%,7 ҥ L$0T,8OK50P;ҥ,8 L%\   8҅¥Ӆé҅L,5,6  * @jIH,5 p  ,9P"<:J H) +̰ H) +ʭcP h̰ʩd8,h)ec efeede`,5 H h 4 `5!   4(P 4 4 `,g0L,10kH0 ԥ f0)ĭ9)9҅xh(ĥŐ`8 iIi`9A)I@`a{ ~I)_ bJ) b) )ab)a a,h0& &+%a0 +hcefd(c,@cfabdf`cnx  (,4h`dd ((((PPPPBTVSPLH   5"ʘ HH` (# (=  0`)aI!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>" <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  8>> ""*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>>3`)1`Ɂ" (cefd`Hcefh) `xÙ+(`xÙ&(`)4`)5`)6`)7`)8`)9`,i0!M:0p ȱq L`" (~)y ~JJ* I `x|x|,,}P-X~ F }~L } `,}0 x) `(`hh% ( ΍ ύ逅Ñ}`` " ( ĩ~Íĩϭ & &υΠÑΈ~ F ~ҰةeÅÐLLW x0Lx:9,<0 `Ld L)(I bL)8 ʪi)I8R & h:1ߠ*x (,< K 1x ` (`98  bLH8 xʍ6ʍ7hh)ɄJJRH88,< ʠʠ &,5դԦ kˍ12/` N=    `H Wh (0­1í2L-. * <өхυ L"= N8 =i N% JL@ҭ"A N! xLC L 'Lp- >)AE)H ;*J%/hh`դ8eԅԥi ՄԐhh, (MIPLIOKN`ȑȥ.- * ө<ѩ ϩ - (A= NL% AҩA N= ,>- JD)3E)X,qȑ ;?L x0LC L '##D0C 3 *̍m%%#$  " ` L ``(%, ( *x (I  ) (j` DÈ` ȑ`! (`.-LLL$?`?` hh- ( `)ߍQI "L), (3C> SHJI̍ƅԥDžծ*x (3'͝ )X@ @ ' (  L "x) Q(`x)(` 2H1H` (& ( ( (    + / @ C H K R Y j o t | ,/DIMV_x}  RU;Profile Driver -- Copyright (C) 1983 by Apple Computer Inc.`.PROFILE&%      . 3 6 9 < ? B E H N S V \ _ b w      ! ( 0 7 I N S _  . G R Y f {    ! $ 4 9 F I P S V \ a h m p s x |   !%*/369<?BEJMRUX]`h  2;AGMS[fot|        BGLQgjox',/25:BGKORY\aelpu !$(+.147<?BFILORUX]`finsw| > `ʝ"`t  !#%')+;CNU\eh "*-036<BLORX_fj &+38;?DGLTot <?J}΅н(I I $0;P̑бʑΈ,:JՐ̑ʈ0 Ցʭr̈A萠L> ֦ڱΑ0Б֤ l L p,:0 JfiΥiώJe΅Хiю@ F $p̑бʑΈ0 Б̱ΑʈeمΐeمАA萿հ0`ՑʭrpȐ`=m@< F l AL> 8p,:Jf׮@$PA F $P@/A'ʤ˅΄ϥ̤ͅЄ F $̑бʑΈ0Ƞ l L> $)טɀIim>ٮ@8pذ `$0"8,:Jک@ׅפ؈۩MjL,:08*Ȅ F ,:A@@8A@q==C)CB)B Crx 00 )ߍ:) J,P,QJ,R,S,T,V( > `,k<,: JI`I`<,:J̰`=m@>,:J}ʅ̽(I I `<Mj,:0pJՐ̑ʈ`pJн},,P,`,g$ ( $g " x) (,`% (gL,}0, `gé ĩ `:) j:;jN;~j;O,:0'???>>8?>p<<AA<0,80ʬ8ʠ6ʠ7( hL8 989::m8ʥi,;Ɂ)˭5i ɠ)54`x* ,< ʝ88 (`…ʍ0Åˍ142;)5I)5i 4`)5;`xH)$ 45R8 h(`x ( 3  +J FF tѤ `U t`*8`AB*0 B8` L=?՝ԝϝН ` 1`*x (DEHG 1h H J IFD`*_________________________________________ | | | CALENDAR: Print a Calendar With Optional Art 07/27/86| |____________________e have PG-13 and R, too. Each art work is an ASCII file named with a "CAL" prefix. You can preview the art with any handy text editor. The CALENDAR screen looks like this: ___________________________ CALENDAR prints calendars -- for any year from 1985 through 1999. It can also print "typewriter graphics" art works to accompany with the calendar. CALENDAR comes with several such works of art. Most is G-rated, but w !"#stuvwxyzg, VA 24061 2303 San Marcos Street, Blacksburg, Virginia 24060 Office: (703) 961-7921 Home: (703) 951-2025 CIS: 76656,1514 BitNet: IRBLOOM @ VTVM1 CALENDAR ALLAN M. BLOOM, PhD CDP Institutional Research, Virginia Tech, Blacksbur '058FV[fjsuw0) `/0) `,.0L tHsH`! (xy```,.0L HH`Ln,/023x #) "# (```'+"'*CFMRZ_('( `,.0L& (,.0L7 Đ`ʥ逅8n134nʐ3x1eʍ1,/p/H h(eʅ8ʅİLa )`Y)D00L:1?24n21  % &$pyright (C) 1983 by Apple Computer Inc. HH` (# (KXT .")"#)  #`,.$ ()-'( / .`% (.L,/0x  #4:=Z_bpsv{ "%(+.2ADGJx{~BSerial Printer Driver -- Copyright (C) 1983 by Apple Computer Inc..PRINTER A")Co\mrv{#&+25FKQT\adgjmry~$/6;>AHOTW\_bx{'69@IPW]`cfjmpsx} H FFLx (̠`x (̠` [   `L `` ``I FF x (̠%L#fowz*13579;=?ACFNWaehmpx "'+@________________________________________________| | | A: | Enter the pathname of the print file: .PRINTER | | | B: | Enter the pathname of the input file: prefix/CAL.SUSAN | | | C: | Ent%#%"$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 % <$&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNO%e,ȥ,*,- y,,,-,,,ȱ,,- yL+,ȑ,` 2"p-,-L(Ġ %>,i-i8, ȱ,%,W,pp ڠ %p`l  " ) i SOS KRNLb.D1/SOS.INTERPŠ̠Š.D1/SOS.DRIVERР頞 0 ) (lH'&3&'&#e'#%e'%'&"$"$#%'#%h`$eiginal default year is the current one (from the date on screen top). You may select the default by pressing RETURN. You may change that default year by entering any other year between 1985 and 1999. The "19" is art accompanying your calendar, press the space bar and press RETURN. Saying "prefix/CAL.^" lets you choose from all the CAL files in the directory indicated by "prefix." C: The or B: Edit the pathname as in A. The original default is the file CAL.SUSAN (for PG males) in the same directory as the CALENDAR program. Subsequent defaults are whatever you entered the last time. If you want no L/R Arrows: Move cursor. Openapple-I : Toggle insert. Openapple-L-Arrow: Delete left. Openapple-R-Arrow: Del right. Openapple-ESCAPE: Default reappears. Up-Arrow: File selection menu. |____________________________________________________________________| A: Edit the pathname (after the colon) as follows: ESC: No file. Pgm ends. RET: Accept bracket contents. |____________________________________________________________________| | | E: | Program messages | er the year for your calendar (1985-1999, Def=1986) --> { } | | | D: | Loading calendar ...... |   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"#(1 6$P8"ȥ#L1$8"ȥ#(ϸ`"##L]$"qȥ#q0,$p)@"q"ȩq"8`*$% $% 8% $L$* $8%8 $`8 &'$% 8&$'% 8$%%`H` ռ``ߤ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 `` LLɠ8`ΛLL渠`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`X8``éۅĩ >` T֩xxMH]@ Kۅ5H ɐE$ eİ Ȱ h`h`8`W h8`hR`hLҿ i x +ۅ5ۅ6 ǰ `E8<W`­ `0XLۅ5 ɩE` eĐL Ȑ 15WL QL5WW{5 ې'`,55 ې'` ݠ B1 ȩȑ Lɦ8`5  @ R㥶i ` İG8`FХ+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`$` H hQ)fʅ F jF jF jF &!  eװ*  ̰F湥 ƹ`Z8`@  ʰ泭ۑƳ ʐ` ʐ` ˰ ƹ Wː`ۘ . . .۪8*JۦȱѶ"` ɰ Ȑ`E`Ɔ X̐8`>>5Ѷ Qܩ<`>`\ʊJJJJ ۍ۩  ˰Fȱ X̰6 0 Lɠ 0ۑۑ8ȱ`H8` ɹ $  8JJJJ8 ` ۠ǽ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>  *ǵ յý5Ņ4gȩυɩč5 iψ }.8` iϙLIѠ ˢ L΢ ΰ LϠ ˢ ΰ1` Đ@ АP8`B8`ۑJJJJ -ѥ N8`) ))УJ8` ۑȭۑǠۑۑȭۑ($S8`O8` "` / 򑺠+* ͐H h8` ΰi `()=`Insert volume: Τ in device: 蠠ɠ then press the ALPHA LOCK key twicex)_ @,P,R,T,V) )) `)8( ߠ',@ ߠ0  '葺 ݰL`5`i 祻(8`2ޝ51©ޅéąŅƍ >ϩ 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Ȱۈ)ۅƭۅ X̰ 3ڰLÍLT̥L㼠  ʰ` İK ХP8` LɐH80)N  հ)@LO ˰)0 ̐` M ­۠泭ۑƳѲƱƳ X̰ RڰäJۑĥ` İo!)N8`WپX0 ĥLä X0 ĥLà !"#$ Đ2@H AڰCŰrP` 3ڰ(` AڰѶ? İG8`Fە1 ռ İ ЩP߭)@N8`1@8` Aڰ񈱴 ˦,+* ʈ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/)@߅4ڠ) w߭)Ů􅮈 ߠ'x)) J,QJ,SJ,U,P,W(`)(()  8)j`J j߅`0X ٠͠堘ӠȠŠ堠󠠩à٠΀ƉŠŠӠҠȠHHH *ح)0 D) HHHH,, ߘ)@ *)X  xI)}h)L, L ) 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žѥL1LUȑ  i ߩLL )  札)  ҩLL` **éL0;` H ) 4 )ߍ) hjjjjۥ0CF = -$(L !LLL&L L-LJ٥eƦ ,L  # ` (L.L…ҥÅ,] Xx,f (I0јIFjFjFji```x@gŽPy+wLwԠ͠ŠԹ.D1 .D2 .D3 .D`HJJJJh)y` (2%H H @`)h8`  HШБˆeЅАѤ  БĈ` H`)à`֩ нѽ>`]PU]]UPPX0 0 PPXPP  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ʆSTL8HSITQQSTde0f`   cCȱcD C Ea  UV 1 ELUFVG FUUCVDեYCWZDXWXCUDV[ v`b0WXYZiUcȥVcWX eeYZ ggE` @SATRDžŠƠŚ̮ÎȠ Ӡ̠Ӡ` LL#L/LL'Lgab `abBcd cdBrcadbho:ab.cݰdDcݰd8abҊ v+abcabRcdTefVghXijSdfhj 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騩  )* i LiHh`PQPQ>P Q,PQ"PɀQ@PAQ`8`nɀ<)nopoLpp` SOS NTRP4LLLLGL#LJLqLzLLLLLLLՋLދLhLLLLLgnPL_Lc.CONSOLE.GRAFIX.PRINTER.RS232.D?ʃ҃ۃ⃮莓` *|ΝJBTڜxYʦYsB_> b$9˙?̰^V`ZRyb×tS lllllllllllllllla^^^^^^^͓ LQ`)͓LhhhhhhHH` $ nHH`hhh))Z[LW g    ֍HH`* T8  Lw T`T` ` `8\] ֍ hhhhHH``8Z[ nZ[``)ghi A`;<= n`;LQLhhhjhkhhhihhfgh)͓ehhh AHH`hhhhhhhhh h h  h)͓1 hhh) ` `L䆩LeHfIghi AG`Gnop n`nLQL䆭efghi A`ҋӋԋ n`ҋLQL䆭ef hh .U8\Z][TZ[e e    HH`(LLhhhhhhji hhhhhh HH`  D D D D`hhh{h|hhT_ } qHH` VbZ }{ |  ``a`L䆩hhhhhhj hh hh   De8f9g;Șhi A D6`6hhhhhh nHH`XY  ;   `XY   hhjjjjjj LJ ͔ ;:HH` `hhhhhhUȑȭȭȭȭȭȭȢ q ˈHH`;: 7:`: ۅL `3 `: `nPnPd`# `e4 !`d ``# `4 !` ``# `4 !` ``# `4 !` `hhhh僭 L~L Da 5Lb &LA L   L Ы4 ! q ˈ $~nƳ)^L!&X(E'+@FGH{|}~ @ PRSTUVWXYZ[\]^_`abcdefghijk莒`͔+͖&͕!͝0ݗ0``ZSR`Z] [惍烍胍郍ꃍ냍샍탍 1aզ~eFǛUm{Y.D1/SYSTEM.PASCALg.D1/SYSTEM.MISCINFO<Put Pascal system disk in built-in drive. Press RETURN.!?_ @`檥HHL힭kmhjhkhlhmXk&ljȑlLjjlLQjlLLwvwvL)L{ he`zhea{zHzHL he`heaHHLhh a `&L查`a lhezheHzHLXX{0{wvz{LL)^__`XȱY`ȱL+ XYXYXXYL XYXYX步kg\8孅\]\)\]H\H0X\\8\]\ȥ\ȥ^\ȥ_\\^]_8\Z][LjXeXYL iIiIi挥IiIiƌ8別剰 ` gf!ffgff8fg8&&`ffgff&&`hhhh 朥IiIiHHLhhhh 朥HHLhvhwhxhyz{Ey0y{)zx!{0wEȩLLhh0HHLIiIiHHLhvhwhhevewHHLhIihIiHHLhvhwhh8vwHHLgfff fefgegfgffff`hh0 hhLΜhh"IiIiIiIi lHHLHHLfgL}X&XeYei揭W8XYL XiXYL hvhwv&whxhyy8\v\]w]8\Z][Lj\xȥ]xL Ŗhvhwhxhyv&wyZxȥ[xZevZ[ew[8\Z][LjL ŖhvhwwZvȥ[vLhvhwwvZȱv[mmvLhlhlhhLhvhwhevvhewwwHvHLhhhvhwhevvhewwwvLkmhjhkhlhm L]hvhwhh%wH%vHLhvhwhhwHvHLhhIHIHLXXhhQX0XŏoXf0bXE0XRXŎIE8XveawvHvHL喠Xw e`veawhvhvL喠X e`eaHHL𨭙whvhwȱvHvHLhvhwhxhyyvxȥwxLȱXȘ vX)XYXHXHXevXYL ȱX khjhkjHjHLȱXvevevlPe`fQeag fHfHL Pe`fQeagfi fggHfHL gPe`fQeag hfhfLX  eg`edfaeeg fHfHL喠X  `edfaeegfi fggHfHL喠X  eg`edfaeeg hfhfL喠Xw e`HHXYp X lLhh)X0 eXXYLeTveUwUwv8vXwvYL HHLXHXHL飨RHRHL gRe`fSeag fHfHL Re`fSeagfi fggHfHL gRe`fSeag hfhfLèPHPHL g\R]S]S_\ȥ]Z[[ z RPRRSQRRQ RȥRi fL XaXYX `&a` `a`RdSeSedvȱdevd`ȱ`Zȱ[`XiXYXiXY HH LURSTUVWRmvmwwyz{{|}}}|Fxy exxx&yvexxweyyxȩxxixyzxȱzxȱzxȱzxziz{|i|}Г\]\8\]SU T쐍VW@RRSTUVARARWXYZ[ 8 8 ť 8i杩村ƝRSTbVcWXYZd[e\Rح)pRSERRSTUVARX8  W8LZW RSUTVW@RRSTVXWRHH LRUSTUWVR3vRRvjjj)*R`p|}hh &hezheHzH}H|He|HHLh~hh|h}hzh{{zȱz~80 iff| ==HHLhvhwh~hh|h}| x%vvy%ww~80vwwvxyyxi v&wx&yhzh{{zȱzxI%vyI%wzȥzLhhh ~he~Ȅ Ȅvl %~8~e~ h9 0 ʚL %~~ hI9ʚL %~0~ hʚL|v|z}{zve|ʥ~z{}8|~}~Lj~Lj8~Ɓ8 ƁP Ymi lim~Lrhl w~iviwY8vvXwvYU~iTiURSy8xy^xȥ_xȥ\xȥ]xx\y]^_WVhh Lhhw vwLPhhWwVvWw]}\|]}XiXYv8zvwv8zvw8vv~wv~\ť~8~8~~ȥ~))i )HHl0 L 宥~8~~ȥ]~8~Ə8 ƏL-PQ t~v~8~8~~ȥ~~8~~ iiL| )i )i 8Ɠ|L-` 38`"\]ŧ SRER`hh LRERLש\]Lש  `\]e&mmeeUȱP8\\]]Lj8\Z][ Ŗ8\Z][Lj\8]` ѩ|8Ɠ t~5~8~8\)/HHHHHHHH LLSRTUX Vȱ*W.XR!RȦTɦUVWR\]L``­8Ɠ t~…`ŧSSi TVARLpWYWX8 X ΰ0 [LݪR[SER\8居\]岅]LjE08居\岅]Lj8\Z][ Ŗ8\Z][Lj\]ee8h`ehae`Ii`Iia~Ŋ.L='~0 ~L,~8~L,~8冪HHL򖭓8~`~ȱ~wL8~~vȥ~wvevȱvev~8~Ɔ`ȱUUULjRL罹`LjlLh`ha hhhhhhhhL򖭙kmhlhmhellhemmhjhkhejjhekkXLѧaʱjlmkLa`LjlL8\Z][JHjHLhhh`hahhhhLhlhmhellhemmma ʑlmLĨ`LܨlLhhh~hhe~~hehhhhXȥwYzT VL SRSL6ȱ yxȱyxL3x8xyx8xyx zxб wvȱwvЗL  LXiXYLhvhwhxhywyvxȑvxLje`jkeakle`lmeamakm ʱjlЈL 0 8`hh ¥v h0 LE LElnLdLj/ L 8L ¥v hI=+ L ¥v襀I= ƀ LȄHHLX ӦlhzhhhTLUwT8vUwv8v#n0 2)L%n HHLHHLh)vhh)hvL nhxhyhvhwEy0wyvx/1'w0+!hvhwhvhwHHLhHHL%nHHLhhh ~hxe~ |ŀ8~e|vl8 nXLLL=LN   Faf`LM hxhyhvhwXYwy`LvxvwxyaLL Lwyhxhyxyxyhvhwvwvwvxx ȱvxvx L})L8|~}L~) w~fjv|) y|f}jx8xvyz{{HzHz{{HzHzw9ޣz{9ߣ{{HzHz{v {HzHHxiHLHHLHHL)??zF~H~HLX hh&ņL0eeƆL򖥆8儅ņ 8刪8刪ƄLhh&eȹ~Ȅh)1~)wf~jjj)?vńevw9ܢ hHHLhHHL @hhHHHHh|h}h~hW8\Z][LjlXz 1 ~ƆSRSLGȱ ȱņڠRRL Xz 1L Xz 1PQȑL XzX XY ~0 L"Xz 1QHPH PȱPPQL RhPhQL RSwR8vSwv^ȱv_ȱv\ȱv]X i RHL= RwRvȱRwVv wWvVwWWURTȱRUWYRXȱRYRRRSL PQvȑ RȥSTȑVȑUT8U8eries of excellent PD disks from Dr. Al Bloom. Calendar is a Pascal program that will produce calendars for you with "Typewriter Art" graphics, like the "old computers" used to produce. This disk has a number of typewriter art graphics on it, as do disksmo0 WELCOME! WAP /// SIG Public Domain Library Disk Category/Number: Bloom Disks/3BLM-21 Disk Format: Self-booting Side 1 This is another in a long s /// /// /// /// /// /// /// /// /// /// /// /// /// /// /// /// SIG, Washington Apple Pi 12022 Parklawn Drive Rockville, MD. 20852 (301)-984-030CALENDAR BY BLOOM `8Z[0[HZHHH L qL ՋL L򖥏HHHH񹅼8X廑Y弑zLLLL/ Stack overflow Type to continue8iHhH LLLpX8XYL L L L L Lhhhh漥HHHH < 楽H 3GRX-16 and 17. Documentation is on Side 1 of this disk, though there's very little to know, except to run it and enjoy! Art work on this disk includes: ead.Me files on disks 3GRX-16 and 17 for a complete listing of typewriter art available. We hope you enjoy these disks! 3. Arrow to highlight the menu entry you want the program to precede. 4. Press "A" to add a program entry. 5. Respond to the "Catalyst" queries as follows: _______________________________________________________der "Catalyst," follow the instructions in the section titled "Installing Simple Pascal Programs." Briefly, 1. Select "Catalyst Edit" from the main menu. 2. Enter "1" to "Edit Catalyst Menu." .D1/SYSTEM.STARTUP --> .PROFILE/CALENDAR/CALENDAR.CODE .D1/SYSTEM.LIBRARY --> .PROFILE/CALENDAR/CALENDAR.LIB .D1/CAL.= --> .PROFILE/CALENDAR/CAL.= To install the system un ARTSIG on CompuServe is a great place to get art. CATALYST INSTALLATION Create a CALENDAR sub-directory and then copy the boot disk files aper, start your print head about 3 spaces from the left edge so the calendar is centered on the sheet. CALENDAR will accept any width art work, but it will print no more than the leftmost 79 characters. USAGE NOTES Replace the SOS.DRIVER on the boot disk with one of your favorites. CALENDAR is designed to print on a 10-pitch 80-column printer on continuous forms. For 8.5 inch p CALENDAR November 27, 1986 Page 1 Bloom Art Calendar uent calendars of the same year, you don't see this. Once the calendar is loaded, the program checks the size of the art work for a left margin that will center the art on an 80-column printer. optional. Subsequent defaults are whatever you entered the last time. D: You will see "Loading calendar" when you invoke the program. The running dots let you know that the program hasn't gone away. For subseqqOLUME 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$(/ WAP /// SIG MENU.MAKER PROGRAM (v. 6.1) =".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 V______________ | | | | Display Name: Calendar | | | Interpreter Pathname: CATALYST/PASCAL | (A) | | Extra Drivers: Press RETURN | | | Character Set Pathname: Press RETURN | | | Screen: lendar ...... | |____________________________________________________________________| | | E: | Program messages | | | C: | Enter the year for your calendar (1985-1999, Def=1986) --> { } | | | D: | Loading ca | A: | Enter the pathname of the print file: .PRINTER | | | B: | Enter the pathname of the input file: prefix/CAL.SUSAN_ | | | CALENDAR: Print a Calendar With Optional Art 07/27/86| |____________________________________________________________________| | rated, but we have PG-13 and R, too. Each art work is an ASCII file named with a "CAL" prefix. You can preview the art with any handy text editor. The CALENDAR screen looks like this: ___________________________________________________________________{}~25 CIS: 76656,1514 BitNet: IRBLOOM @ VTVM1 .lj CALENDAR prints calendars -- for any year from 1985 through 1999. It can also print "typewriter graphics" art works to accompany with the calendar. CALENDAR comes with several such works of art. Most is G-.tl*Bloom**Art Calendar* .bl*CALENDAR*November 27, 1986*Page # * .cj CALENDAR ALLAN M. BLOOM, PhD CDP Institutional Research, Virginia Tech, Blacksburg, VA 24061 2303 San Marcos Street, Blacksburg, Virginia 24060 Office: (703) 961-7921 Home: (703) 951-20 CALENDAR November 27, 1986 Page 2 ESCAPE twice to return to the edit menu. 7. Enter option "5" to update the INTERPS file. You do not need to re- calculate the minimum load address. 8. Exit to the Catalyst main menu via entering option "7" f Pascal 1.2 is installed via "Super PMove", the interpreter pathname is "SOS.INTERP". Verify via other Pascal program menu entries. 6. If all entries are correct, enter "Y" to the final question. Press 3 | | | Program Path: .PROFILE/CALENDAR/CALENDAR.CODE | | |_______________________________________________________________|_____| NOTE (A): I Press RETURN | | | Keyboard: Press RETURN | | | Prefix: Press RETURN | | | Max Files Allowed Open: | |____________________________________________________________________| .pm-3 .lm+3 A: Edit the pathname (after the colon) as follows: ESC: No file. Pgm ends. RET: Accept bracket contents. L/R Arrows: Move cursor. Openapple-I : Toggle insert. Openapple-L-Arrow: Delete left. Openapple-R-Arrow: Del right. Openapple-ESCAPE: Default reappears. Up-Arrow: File selection menu. B: Edit the pathname as in A. The original default is thO^Dfy via other Pascal program menu entries. 6. If all entries are correct, enter "Y" to the final question. Press ESCAPE twice to return to the edit menu. 7. Enter option "5" to update the INTERPS file. You do not need to re- calculate the minimum loa| Program Path: .PROFILE/CALENDAR/CALENDAR.CODE | | |_______________________________________________________________|_____| NOTE (A): If Pascal 1.2 is installed via "Super PMove", the interpreter pathname is "SOS.INTERP". Veri Press RETURN | | | Keyboard: Press RETURN | | | Prefix: Press RETURN | | | Max Files Allowed Open: 3 | | r Pathname: CATALYST/PASCAL | (A) | | Extra Drivers: Press RETURN | | | Character Set Pathname: Press RETURN | | | Screen: ies as follows: _____________________________________________________________________ | | | | Display Name: Calendar | | | Interpreteple Pascal Programs." Briefly, 1. Select "Catalyst Edit" from the main menu. 2. Enter "1" to "Edit Catalyst Menu." 3. Arrow to highlight the menu entry you want the program to precede. 4. Press "A" to add a program entry. 5. Respond to the "Catalyst" quer .PROFILE/CALENDAR/CALENDAR.CODE .D1/SYSTEM.LIBRARY --> .PROFILE/CALENDAR/CALENDAR.LIB .D1/CAL.= --> .PROFILE/CALENDAR/CAL.= To install the system under "Catalyst," follow the instructions in the section titled "Installing Simwidth art work, but it will print no more than the leftmost 79 characters. ARTSIG on CompuServe is a great place to get art. .cj CATALYST INSTALLATION .lj Create a CALENDAR sub-directory and then copy the boot disk files .D1/SYSTEM.STARTUP -->with one of your favorites. CALENDAR is designed to print on a 10-pitch 80-column printer on continuous forms. For 8.5 inch paper, start your print head about 3 spaces from the left edge so the calendar is centered on the sheet. CALENDAR will accept any ars of the same year, you don't see this. Once the calendar is loaded, the program checks the size of the art work for a left margin that will center the art on an 80-column printer. .pm0 .lm-3 .cj USAGE NOTES .lj Replace the SOS.DRIVER on the boot disk between 1985 and 1999. The "19" is optional. Subsequent defaults are whatever you entered the last time. D: You will see "Loading calendar" when you invoke the program. The running dots let you know that the program hasn't gone away. For subsequent calendhoose from all the CAL files in the directory indicated by "prefix." C: The original default year is the current one (from the date on screen top). You may select the default by pressing RETURN. You may change that default year by entering any other year e file CAL.SUSAN (for PG males) in the same directory as the CALENDAR program. Subsequent defaults are whatever you entered the last time. If you want no art accompanying your calendar, press the space bar and press RETURN. Saying "prefix/CAL.^" lets you ceger; begin if (LGTH < 0) or (LGTH > 80) then exit (NEWLEN); *old_lgth := length (STR); *{$rangecheck-} *STR [0] := chr (LGTH); *{$rangecheck+} *if old_lgth < length (STR) then -fillchar (STR [old_lgth + 1], (LGTH - old_lgth), ' '); *{endif} g) > 0) then if (strg [1] =' ') 7then delete (strg, 1, 1); 3if (length(strg) > 0) then if (strg [length(strg)] =' ') 7then delete (strg, length(strg), 1); end; {BLANK1} procedure NEWLEN (var STR: string; LGTH: integer); var old_lgth: int3{Strip double/lead/trail blanks from string }  var double: integer; 8 *begin double := pos (' ', strg); 3while (double > 0) do begin 9delete (strg, double, 1); 9double := pos (' ', strg); 3end; {while} 3if (length(str *ALLBLANK := true; *if length (txtline) > 0 then begin -i := scan (length (txtline), <> ' ', txtline [1]); -if i < length (txtline)then ALLBLANK := false; -end; *{endif} end; {ALLBLANK} procedure BLANK1 (var strg: string); n_title: string; *printer_used: boolean; *err_str1: string; *err_str2: string; *err_str3: string; *err_str4: string; *err_char: char; * function ALLBLANK (var txtline: str255): boolean; var i: integer;  begin*cal_margin: integer; *pr_string: string; *pr_start: array [1..3] of integer; *pr_mo: array [1..3] of integer; *pr_file: text; *pr_path: string; *infile: filetp; *inblock: fileblock; *inpath: string; *scr*j_wk: integer; *k_da: integer; *cal: packed array [1..12] of 8packed array [1..6] of string [21]; *pr_margin: integer; *pr_width: integer; *pr_left: integer; *pr_right: integer; *pr_lines: integer; ay [1..12] of integer; *da_no: integer; *yr: integer; *hold_yr: integer; *hold_pic: string; *yr_name: string; *mo_name: array [1..12] of string; *da_str: string; *i_mo: integer; e = file;  var *i,j,k,l: integer; *ok: boolean; *wk_str: string; *wk_255: str255; *wk_char: char; *yyyymmdd: string; *wk_curpos: integer; *yr_start: array [1985..1999] of integer; *mo_days: arr type str255 = string [255]; buftype = packed array [1..1025] of char; fileblock = record :BUF: buftype; :LEN: integer; :PTR: integer; :EF: boolean; :REC: str255; :end; *filetp = file; *filetyp{$list+}  program CALENDAR; {Print calendar, optional artwork -- AMB 09/25/86} 4{Modified 10/28/86 - Allow for existing art margins} 4{Modified 11/27/86 - Use DIRSTUFF unit } {$list-}  uses applestuff, genutil, dirstuff;  {$list+} end; (* NEWLEN *) $ procedure READ_ASC (var fl: filetp; var f: fileblock); var i,j,k: integer; line_end: boolean; rec_pos: 0..255; *rec_lf: string [1]; *ok: boolean; begin rec_lf := ' '; *rec_lf [1] := chr (10); *line_end := false; *with F do begin *rec := ''; *repeat if ((ptr < 1) or (ptr > len)) then begin i := blockread (fl, buf, 2); 0if i = 0 then begin ef :oolean; *wk_str1: string; *wk_str2: string; *wk_str3: string; *wk_str4: string; *wk_char: char; *ok: boolean; *x,y: integer; *curs_at_eol: boolean; * procedure BLANK0 (var strg: string); var i 2. If pathname starts with "**" } 3{ open without user interface. } 3{ } 4 var error_num: integer; *i: integer; *user: b3{ ABORT causes an EXIT(PROGRAM) to be issued. } 3{ QUIT exits the program with a null pathname. } 3{ } 3{ Modified 11/13/83 AMB 1. Don't scroll on error. } 3{ conditions this proc will try to } 3{ get a valid pathname forever. If none exists, } 3{ the user may exit abnormally: } 3{ } } 3{ OPEN (fname,dspname,'RESET/REWRITE',pathname) } 3{ END; } 3{ } 3{ Under normal sub-procedure to use OPEN: } 3{ } 3{ PROCEDURE open_rec; } 3{ TYPE FILETYPE = FILE OF whatever; } 3{ BEGIN3{ work for both TEXT files and UNTYPED files. This } 3{ should be the default for a program generally. } 3{ } 3{ A file of records must generally have its own } 3{ N{ Null String if QUIT from proc } 3{Open a supplied filename } & 3{Notes: The calling program/procedure must have a TYPE } 3{ variable called FILETYPE. If "TEXT," OPEN will } for the file. } 4DISPLAY_NAME: string; {English title of for display } 4IO_METHOD: string; {Either RESET or REWRITE. } 4var PATHNAME: string); {In: Default PATHNAME or null} N{Out: Actual PATHNAME if OK. } (rec) > 0 then begin -i := pos (rec_lf, rec); -if i > 0 then delete (rec, i, 1); -end; *{endif} *end; {with F} end; {READ_ASC} procedure XOPEN (var FILENAME: FILETYPE; {FILENAME: Internal name of file} N{FILETYPE:User-defined data TYPE} N{ 0moveleft (buf [ptr], rec [length (rec) + 1], j); 0rec [0] := chr (length (rec) + j); 0{$rangecheck+} 0ptr := ptr + j; 0if ptr <= len then line_end := true; 0ptr := ptr + 1; -until ((line_end) or (ptr > len)); until (line_end); *if length {endif} end; {check for actual read} {endif} -if ptr > 0 then repeat 0j := scan (len + 1 - ptr, =chr(13), buf [ptr]); 0if (j + length (rec)) > 255 3then j := 255 - length (rec); 0{endif} 0{$rangecheck-} ok := true 6else if buf [j] = chr (26) then begin 9buf [j] := chr (0); 9ok := true; 9end; 6{endif} 3until (ok); if eof (fl) then len := scan (len, =chr(00), buf [1]); 3ptr := 1; end; {block read} = true; 3line_end := true; ptr := 0; end else begin len := i * 512; 3ok := false; 3j := 0; 3repeat 6j := j + 1; 6if j > len 9then ok := true 6else if buf [j] = chr (00) 9then: integer; begin repeat -if length (strg) = 0 then begin 0i := 0; 0end -else begin 0i := pos (' ', strg); 0if i > 0 then delete (strg, i, 1); 0end; -{endif} *until (i = 0); end; {BLANK0} procedure UPPERSTR (var str: string); var i: integer;  begin for i := 1 to length (str) do .if ord(str[i]) in [97..122] 1then str[i]:= chr(ord(str[i]) - 32); .{endif} *{end for i} end; {UPPERSTR} begin upperstr (IO_METHOD); *upperstr (PATHNAME ); *blank0 (IO_METar; end; {YN_23} procedure initiation; begin *for i := 1 to 12 do mo_days [i] := 31; *mo_days [4] := 30; *mo_days [6] := 30; *mo_days [9] := 30; *mo_days [11] := 30; *da_str := ' S M T W T F S'; *yr := 1985; *yr_start [yr] := 3; *for yr swer "Y" or "N."'; 0err_str2 := ' Press RETURN'; 0err_str3 := ''; 0err_str4 := ''; 0write_error (err_str1, err_str2, err_str3, err_str4, 3[chr(13)], err_char); 0end; -{endif} *until success; *write (chr (30)); *unitclear (1); *YN_23 := wk_ch-if wk_char in ['Y','y','N','n'] then begin 0if wk_char > 'Y' then wk_char:= chr (ord (wk_char) - 32); 0success := true; 0end -else if default in ['Y','N'] then begin 0wk_char := default; 0success := true; 0end -else begin 0err_str1 := 'Please an-if length (s) > 66 then s := copy (s, 1, 66); -write (chr(30), s); -gotoxy (66, 23); -write ('(Y | N) --> '); -if default in ['Y','N'] then begin 0write (default); 0gotoxy (78,23); 0end; -{endif} -read (keyboard, wk_char); } *{Allow a default response or require a "Y" or "N" } var wk_char: char; *success: boolean; begin *if default > 'Y' then default:= chr (ord (default) - 32); *repeat -unitclear (1); -success := false; -gotoxy (0, 23); if wk_char in ['A', 'a'] then begin 3close (FILENAME); 3exit (program); 3end; 0{endif} 0end; *until error_num = 0; *{$iocheck+} end; {XOPEN} function YN_23 (s:string; default: char): char; *{Prompt for "Y" or "N" response at screen bottom 0wk_str4 := ' or A to abort this program'; 0write_error (wk_str1, wk_str2, wk_str3, wk_str4, 3[chr(13),'q','Q','a','A'], wk_char); 0if wk_char in ['Q', 'q'] then begin 3PATHNAME := ''; 3error_num := 0; 3close (FILENAME); 3end; 0{endif} 0> 0 then begin 0user := true; 0get_pas_error (error_num, wk_str1); 0wk_str1 := concat (PATHNAME, ' is invalid. ', wk_str1); 0wk_str2 := 'Press RETURN to retry'; 0wk_str3 := ' or Q to quit with no file'; (error_num > 0) 0and (pos ('.TEXT', PATHNAME) = 0) then begin 4wk_str1 := concat (PATHNAME, '.TEXT'); 4reset (filename, wk_str1); 4error_num := ioresult; 4if error_num = 0 then PATHNAME := wk_str1; 4end; 0{endif} 0end; -{endcase} -if error_num <= '' then begin 0error_num := 0; 0writeln; 0writeln ('No file'); 0end -else if IO_METHOD = 'REWRITE' then begin 0rewrite (FILENAME, PATHNAME); 0error_num := ioresult; 0end -else begin 0reset (FILENAME, PATHNAME); 0error_num := ioresult; 0if 0ok := prompt_for_filename (wk_str1, x, y, 6PATHNAME, curs_at_eol); 0if not ok then PATHNAME := ''; 0i := length (PATHNAME); 0if length (PATHNAME) > 0 then 3if PATHNAME [i] = '.' then delete (PATHNAME, i, 1); 0{endif} 0end; -{endif} -if PATHNAME e (PATHNAME, 1, 2); -user := false; -end; *{endif} *x := -1; *curs_at_eol := false; *dot_text_code := false; *repeat -if user then begin 0wk_str1 := concat 0 ('Enter pathname of the ', DISPLAY_NAME, ': '); program, please.'; -wk_str4 := 'Press RETURN to exit program.'; -write_error (wk_str1, wk_str2, wk_str3, wk_str4, 9[chr(13)], wk_char); -exit (program) -end; *{endif} *{$iocheck-} *user := true; *if copy (PATHNAME, 1, 2) = '**' then begin -deletHOD); *blank0 (PATHNAME ); *if (IO_METHOD = 'REWRITE') or (IO_METHOD = 'RESET') -then *else begin -wk_str1 := 'Procedure OPEN error: Invalid IO_METHOD parm'; -wk_str2 := concat ('I/O method passed = "',IO_METHOD,'".'); -wk_str3 := 'Fix the calling:= 1986 to 1999 do begin .if ((yr - 1) mod 4) = 0 1then yr_start[yr] := yr_start [yr-1] + 2 1else yr_start[yr] := yr_start [yr-1] + 1; .{endif} .if yr_start[yr] > 7 then yr_start[yr] := yr_start[yr] - 7; *end; {for yr} *mo_name [ 1] := 'JANUARY'; mo_name [ 2] := 'FEBRUARY'; *mo_name [ 3] := 'MARCH'; mo_name [ 4] := 'APRIL'; *mo_name [ 5] := 'MAY'; mo_name [ 6] := 'JUNE'; *mo_name [ 7] := 'JULY'; mo_name [ 8] := 'AUGUST'; *mo_name [ 9] :B PRESS ANY KEY-&-۪PYš &/Bš0B0PBצ (Y | N) --> ڳ@N..@@šᣂᣂ ᣂ ᢂš ᢂᣂᢂᢂ۞ᢂᢂۂᢂᣂۂᣂᣂȡᢂᣂᣂᣂōݡᢂšᢂš ᢂr,0ڪP&Aš.A.Pš  ɡ*   ᢂתᣂᣂᣂōáᢂᢂyᢂ ᣂš /á á ᢂᣂ ᢂᣂpQ88n_dzCALENDAR ng := ''; *newlen (pr_string, 72); *writeln (pr_file); *writeln (pr_file, '':cal_margin, yr_name); *for i := 1 to 4 do begin .writeln (pr_file); .for j := 1 to 3 do begin 2pr_mo [j] := (3 * i) - (3 - j); 2moveleft (mo_name [pr_mo[j], 1], nd; {for da_no} .{$varstring-} .newlen (cal [i_mo, j_wk], 20); .for j := (j_wk + 1) to 6 do begin 2cal [i_mo, j] := ''; 2newlen (cal [i_mo, j], 20); .end; {for j} .{$varstring+} *end; {for i_mo} end; {load_cal} procedure print_cal; begin *pr_striat(' ', wk_str); 2if k_da < 7 then wk_str := concat (wk_str, ' '); 2cal [i_mo, j_wk] := concat (cal [i_mo, j_wk], wk_str); 2k_da := k_da + 1; 2if k_da > 7 then begin 5k_da := k_da - 7; 5j_wk := j_wk + 1; 5cal [i_mo, j_wk] := ''; 5end; 2{endif} .e.j_wk := 1; .cal [i_mo, j_wk] := ''; .for i := 1 to (k_da - 1) do begin 2cal [i_mo, j_wk] := concat (cal [i_mo, j_wk], ' '); .end; {for i} .for da_no := 1 to mo_days [i_mo] do begin 2str (da_no, wk_str); 2if length(wk_str) = 1 then wk_str := conc yr_name, i); *yr_name := concat ('- ', yr_name, ' -'); *justify (yr_name, yr_name, CENTER, ' ', 72); *if (yr mod 4) = 0 -then mo_days [2] := 29 -else mo_days [2] := 28; *k_da := yr_start [yr]; *for i_mo := 1 to 12 do begin .write ('.'); tart [2] := 27; pr_start [3] := 53; *inpath := concat (exec_prefix, 'cal.susan'); *yr := 0; *hold_yr := 0; *hold_pic := ''; *printer_used := false; end; {initiation} procedure load_cal; begin *str (yr, yr_name); *for i := 4 downto 2 do insert (' ',= 'SEPTEMBER'; mo_name [10] := 'OCTOBER'; *mo_name [11] := 'NOVEMBER'; mo_name [12] := 'DECEMBER'; *for i := 1 to 12 do begin .justify (mo_name [i], mo_name [i], CENTER, ' ', 21); .newlen (mo_name [i], 20); *end; {for i} *pr_start [1] := 1; pr_s.Yš. ./ڳ@./i&Please answer "Y" or "N."B PRESS ANY KEY./&.E ^ ȡ       8צ S M T W T F SPܩȡá.ܩܩ,ܩܩܩš*ܩܩ&q ?[DJD H ~'~}|}Oɡ O}| *)'*y+~ɡ +~|+OšO|+P+Pצ|'ꥉ  Print another calendar?NNá橍S 1Reset Printer to 12 cpi. Press RETURN when ready.+l+š+훾 áš+ȡ+훾 á~ɡ~'~}|}Oɡ O}| *)'*y+~ɡ +~|+OšO"Q " is invalid.^Pˡ$צLoading calendar.ױ襀צChecking size of art work.P*)'~*á ./Enter the year for your calendar (1985 - 1999,  Default = צ) ---> PáP á צ19RPšP ɩōFREWRITEץ input fileצRESETׯ. צNo art work will be printed*צNUDEš Shame on you!& á9P áצ1985PP צ 䥉'Χ ~~PǠצ9CALENDAR: Print a Calendar With Optional Art (AMB.10/86)Pצ.printerPצ print file B 򥆱שOwDئ.PRINTERׯaW צ/Set Printer to 10 cpi. Press RETURN when ready.צ.CONSOLE#ȡ쥆ȡE압L )שȡ8שȡnȡ:decccš,ccbbda Bb צda Bb  bȡ:da B צda B  aaPw[jתPH צcȡNda Bb da Bb צ 멃a ȡP á QPcɡP QPda Bb da Bb ͫצPZRh#P ġצ #P#- #R -TP## Há   ܩca aȡ.bda Bb ת  )צDECEMBERP ȡ2L )L ) L ) 𥆫5צPצ/šEPƀצ/ƀǠPצ/P cal.susanYPL )צJANUARYPL )FEBRUARYתPL )MARCHתPL )צAPRILPL )MAYתPL )צJUNEPL )צJULYPL )צAUGUSTPL  )צ SEPTEMBERPL  )OCTOBERתPL  )צNOVEMBERPL|+P+Pצ|'ꥉ  Print another calendar?NNá橍S 1Reset Printer to 12 cpi. Press RETURN when ready. pr_right then pr_right := i; 9i := 1; 9ok := false; 9repeat  0 then begin ?if inblock.rec [i] = ' ' inpath then begin 3gotoxy (0, 17); 3write (chr (30), 'Checking size of art work.'); 3hold_pic := inpath; 3inblock.ef := false; 3inblock.ptr := 0; 3readasc (infile, inblock); 3pr_lines := 0; 3pr_right := 1; 3pr_left := maxint; 3while not inblockstr4, 6[chr(13)], err_char); 3ok := false; 3yr := 0; 3end; 0{endif} -until OK; -if yr <> hold_yr then begin 0gotoxy (0, 17); 0write ('Loading calendar.'); 0load_cal; 0end; -{endif} -hold_yr := yr; -if inpath > '' then begin 0if hold_pic <> 0yr := evalint (wk_str, wk_curpos); 0if ((yr < 1985) or (yr > 1999)) then begin 3err_str1 := concat ('"', wk_str, '" is invalid.'); 3err_str2 := ' Press RETURN'; 3err_str3 := ''; 3err_str4 := ''; 3write_error (err_str1, err_str2, err_str3, err_ = ', wk_str, ') ---> '); 0readln (wk_str); 0blank1 (wk_str); 0if length (wk_str) = 0 then str (yr, wk_str); 0if length (wk_str) = 2 then wk_str := concat ('19', wk_str); 0if length (wk_str) > 4 then wk_str := copy (wk_str, 1, 4); := evalint (wk_str, wk_curpos); 3if yr = 0 then begin 6yr := 1985; 6wk_str := '1985'; 6end; 3{endif} 3end 0else begin 3str (yr, wk_str); 3end; 0{endif} 0write (chr (30)); 0write ('Enter the year for your calendar (1985 - 1999, ', 3'Default'input file', 'RESET', inpath); -if inpath = '' then begin 0gotoxy (0, 9); 0write ('No art work will be printed'); 0end; -{endif} -repeat 0ok := true; 0unitclear (1); 0gotoxy (0, 13); 0if yr = 0 then begin 3wk_str := copy (yyyymmdd, 1, 4); 3yr-scrn_title := -('CALENDAR: Print a Calendar With Optional Art (AMB.11/86)'); -stdscreen (scrn_title); -gotoxy (0, 3); -pr_path := '.printer'; -xopen (pr_file, 'print file', 'REWRITE', pr_path); -cal_margin := 3; -gotoxy (0, 7); -xopen (infile, (end; %{endif} %if pr_path = '.CONSOLE' then begin (gotoxy (0, 0); (write (chr (28)); (end; %{endif} end; {pre_check} % begin *initiation; *repeat -date (yyyymmdd); -today := concat (copy (yyyymmdd, 5, 4), copy (yyyymmdd, 3, 2)); '.PRINTER' then begin (if not printer_used then begin +stdscreen (scrn_title); +gotoxy(16, 12); +write ('Set Printer to 10 cpi. Press RETURN when ready.'); +read (keyboard, wk_char); +stdscreen (scrn_title); +end; ({endif} (printer_used := true; do begin 1for j := 1 to 3 do begin 5moveleft (cal [pr_mo[j], k, 1], 5pr_string [pr_start [j]], 20); 1end; {for j} 1writeln (pr_file, '':cal_margin, pr_string); .end; {for k} *end; {for i} end; {print_cal} procedure pre_check; begin %if pr_path = end 3else begin 6delete (inblock.rec, 1, pr_left - 1); 6end; 3{endif} 3i := pr_margin + length (inblock.rec); 3if i > 79 then begin 6j := 79 - pr_margin; 6pr_string := copy (inblock.rec, 1, j) 6end 3else begin 6pr_string := inblock.rec; 6end; 3{endif} 3writeln(pr_file, '':pr_margin, pr_string); 3readasc (infile, inblock); 0end; 0close (infile); 0end -else begin 0pre_check; 0end; -{endif} -print_cal; -page (pr_file); -close (pr_file, lock); -stdscreen (scrn_title); -wk_char~240:=24:=0:"@ ..... "DATE.TIME.LINE" ....JM=Ҡ,4,2))BTM1630,1640,1650,1660,1670,1680,1690,1700,1710,1720,1730,1740^M$="JANUARY":1750hM$="FEBRUARY":1750rM$="MARCH":1750|M$="APRIL":1750M$="MAY":1750M$=B$(I),"CAT 0")1140*B$(I),"FONT 0")18504B$(I),"FOTO 0")1930>B$(I),"PASTXT 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+1I=1:I=2I>2=-1:I=I-2:IBOTM<30THPOS=44I=IBOTM/2)*2:=+IBOTM/2)-1: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 81+LCA):::: RebootN=THPOS:B$(I);XA<8A>11540bA-7640,660,690,720l:=THPOS:B$(I);v:520: 500THPOS=4:I/2=I/2)I=I-1I=IBOTM THPOS=44:I/2<>I/2)I=I+1I13000Zha$="{,|,~,}; 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),1d address. 8. Exit to the Catalyst main menu via entering option "7" .tl .ff .bly (0, 0); write (chr (28)); end. {CALENDAR} := yn_23 ('Print another calendar?', 'N'); *until wk_char = 'N'; *if printer_used then begin -stdscreen (scrn_title); -gotoxy(15, 12); -write ('Reset Printer to 12 cpi. Press RETURN when ready.'); -read (keyboard, wk_char); -end; *{endif} *gotox"JUNE":1750M$="JULY":1750M$="AUGUST":1750M$="SEPTEMBER":1750M$="OCTOBER":1750M$="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:=21 1600 &:WW=1:0 :SEG=1;".D1/S EG.F" SEG=1".D1/SEG.G"diskname$=3802  CATCH PASCAL TEXT FILES .: .********** **$$. . *. $**.... ; $$* . ****** .*$ $*$ $$$$.$*.. .; $$* . **** .$ *$*$$$$*.....; $$$ .. ** .*$ .*$$$$$**.....; . .$*.. . : $$$$$$$$$$$$$*: *$$$$$$. . . .$* . . ; $$$$$$$*****$$$$ .$$$$ $ * $**.*. .. : .::.$*$$$$****$$$$. .**$$$*$*$...$$. * .. .; .: .$******$. .*$ $*$.* $$$**...... ; .$$$$$$$$$$$$:: $$*******$*..::: .$$$$$$$$$$$$: $$**. .*******. .$$$$$$$$$**$: $$$ **** $******::: .$$$$$$$$**: $$$$$$$$$** $*. . .; .$.$$$$$$****: *$$$$$$$* .$$$. $$$$$*:. . $*.* ..::: .$$$*$$$$$$$:: **$ .$**. ..:: .$$$$$$$$$$$$$:: $$$$* $**.*.:::: .$$$$$$$$$$$$$$$*$ $$*.**** **.::: .$$$$$$$$$$$$::: $**$****$...::: * . .:: .$$.$ $:: .. . $* . ..:: .$$.*$ :: .$$*$. **.* . .:: .$$. $ $::. .: ... **.*. ..::: .$$ . $ $::.. .$$*$*$ : $*. * ..:: .$$$$. *$*$:: . .**** $**. .::::: ..*$$*. . .$*..*... ..: .$$$* .. *$*::$. ...:: .$$$ *. / $$$*$** ....: .$$.$. . / .$$. .$* :..* ..:: .$$$. $ . .$$$$$$ * $$$$ *. . :: .$$$$.$:. * ***::::: **: ::: **. . .:: **$$. . . .: **.. .::.**$* :: .*$.. . '*$. :: 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::"12405l=ơ):: Routine to back up one directory level.a$=С,l-1) s=a$)a$=a$,s-1)a$,1)="/"5060:s=s-1 5030=a$240( MENU.MAKER 6.10 * Thanks to C.M.Davidson for his help!NOT FOUND.)"X=11000:X:::210Z a$="{,|,~,}; selects; back 1 level; G$:::320H: Error Routine 202:U=11:"79C";"BAD PATH ERROR (NO DISK IN DISK DRIVE OR DESIRED FILE $$$ .**. ** $ ** *$*.......; $$$$$.*.*. .*.* $$$**......; $$$$..** .* &****......; .$$$.** . ***$$$****.....; $$$*$$ . . *$$$$$***....; .$$*$ . * $$$$***....; $$$$ : : * $$$***.....; $$$$ ** : : * ************. .; ...... .******** ***********.. .; *..... .******* **********... .; ***... .******** ************... *... .; $****. ..*****$ *************. .; ***... ...****** ************... .; ***.... .******* ************.. .; ***.......******* **.. ....*$ $*************... .; $****.. ..***$ $**************... ..; $*****. ....*$ $************... ..; $***... ...***$ $********** ....**$$ $$$$************... ...; $***... .....*$$ $$$*************... ...; $***. .....*$ $**************.... .; $***.. ..***$ $**************.... .; $*... $$$$$$$:##$$$$$$$$*********...........; $**.... $$$$$$ $$$$$$$$*********..... ...; $**.... $$$$$ $$$$$$$**********... ...; $**.... ..$$$$$ $$$$$***********.. ...; $**.... ...........; $*.... $$$$$$$:###########$$.................; $**..... $$$$$$:#########*******..............; $**. $$$$$$*:#######***********............; $**. . $$$$$$$:#####$$$$$$********...........; $**... $$$$$$*::::: :: ..............$$; $.*$... $$$$$$$$;;;;; :::::: ................; $*$.... ***$$$$**::::##########::.............**; *..... $$$$$.***;;############::...........**.; *.... $$$$$$$*::############::......; $ *......$$ ......................................****.; ......*$$ $$..............:::................ $$$$..; $.....*$ $$$$******** ;;::: .. ..........$$..$ $...*$$ $$$$$$*****::: : ............$$$$..$ $..*$****************; $$$. $....$$$$****$....*** :: ()..............****.; $.. *.....$$$.......$$..... ::: ******* ** ****...; $. *.....$$$...*......******................ **..$$$*****...$$$$$$$$$$$$$ .*** ; $$$$*.. $$$$$$$$$.$$$$$*****.....$$$$$$$$$$$$$$$$****; $$$*.. .$$$$$$$$*..................$$$$$*************; $$$*. $...$$$$$* *....... .$$$$$$$.$$$.............. * ***. ...* $$****.....; .$$$$$$$$.$$$$..........$$$$ .* ** ..* $$***..... .$$$$$$$$.$$$$$$$........$$$$$ . *. .; $$$*..... .$$$$$$$$$.$$ $$$...*....; $$$$$$.$$$$$$$$$......$................* $*.........; .$$$$$$.$$..................*...........* $$***......; .$$$$$$$.$$$**::::::::::::: * * .....* $$*****....; ... ** ********...........* $$$*****...; .$$$$$.$$*.... $$ * ****::::::** $$$**.***..; $$$$$.$$$$$$****..........$$$*********** $$$**.*....; $$$$$.$$$$*****.................******.* * * $$$$***...; $$$4 *()* .$$ .. *()* .* $$***.....; $$$$.. ***. .*$$$***. ** . * $$$$***...; .$$$$.... .. ** *** ...* $$*****. .; .$$$$$*..... ..; ***......****.** ************** .; **.........*...; *****************. ; ***.....*. ; ***************. ; *****..***.....; *************** . ; *******.......; ****************.; ***...........; ****************** ******..****.; WAP /// SIG PUBLIC DOMAIN LIBRARY 12022 Parklawn Drive Rockville, MD. 20852 (301)-984-0300 PDS NAME : CALENDAR BY BLOOM DISK ID # : 3BLM-21: BOOTABLE? EAD 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.MAKE30C$="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" **.....* *..........* *....... ***.....** ***.........* ***.....** **.........* ***.....* *..........* ****.....***. *****.........* ***....* *. ****..........* ***.....*** ****.........* .........* ***....****... ****..........* ****....***... *****..........* ***......**.. ******.........* ***...... ***.........** *********...... ****.........* ****.*****..... **............* ****..****.... ***.. **************** ************..; ***************; *******. .*; *************..; ***..***......; *******: YES This is another in a long series of excellent PD disks from Dr. Al Bloom. Calendar is a Pascal program that will produce calendars for you with "Typewriter Art" graphics, like the "old computers" used to produce. This disk has a number of ************** *** * ** ***************... *** * ** .' *****************.... ** *' ***************** * ** * .. **..*. . $*******.. *** $$ $ $$ * ** . ****.. . . * ****************$$* * * .. *.. .' $*************** *. . *'*. .* *$$$$$***$$**.*.. * * **..... *. *$$$$$****** * .$..*. . *$*******..*..*..* . *. .. . * * * *..**..*.. *************..**... **** ..**. *$$.$$$***... * .. .**** **..$.$$$*$$*$$*$... * ** * **** ****$$$**.**..*... * * *.. ** *** *. .. . ***.**$$$..*. ** * **... . *$$***$$$$*** . . ** .*.. . $***.$$$$***.. . * * $*.*..*.**** ****** ... . .. *$$$ $*..*..$$*.***. ****** . * .. . .$ $*..*..$$.. ***..*. . ... . $*.*.*$$***.. ****** * *$$$..$$$$$ $$.*..*...$$$*$ *$$$..$ .$.*..*.*..$$$* . * . $$$$$$ $$ $.*..*.$$.$ ** . * .. *$$$$$$$ *... ***$$*. ... * ** *$$$$..$$$ *$**......**.**$$$.. ** * $$$$..$$$$ $$$ *$*..*....*..$$..* * ** *$$$....$$$$$$ $*.*..*...*.$*... * ******** * ***$$$$$$$$$ $****** **** * **$$$$$$$$ *$****... . .* $$ . **** ** *$$$$$$$$$ $$****... . *$ $ .. ** **** $$$$$$$$$$ $$**... $$ $*******.. *$$$*$$$$$***** *********$$.. $$$$ $********.. $$$$$$$$$ *******$$$$$$$$$ *$******... ***$$$$ * ******$$$$$$$$$ $****** . . * $***********. ******$$$$$$$ * * *********$$$$$$ $$********.... ***$$$$$$$$***** **********$$$$ $$*******... *****$$$$$*** **********$$ $$******... *$$$$$$$$$*** **********.. CAL.NUDE CAL.MICKEY CAL.SNOOPY See the Read.Me files on disks 3BLM-22 and 23 for a complete listing of typewriter art available. typewriter art graphics on it, as do disks 3GRX-16 and 17. Documentation is on Side 1 of this disk, though there's very little to know, except to run it and enjoy! Art work on this disk includes: Side 1 CAL.RAQUEL CAL.LION CAL.FLOWER Side 2 CAL.SUSAN * * $ $************* .* . *. . * * * . * *************** .*. *.... $************* * .. $************ ... *********** * .* ********* *. * .. ********* ** * .* *******...... ** $$$ **********..... .**** *....... ** $$$ .$$$$$$$$$..... $******...... ** $$* $********...... $******......... *** $$ $ *$*******.**... $********....... $$$* *$********..... $********...... $$$$ .$*********.. $*********....... ** $$$$ $*********.... $$$$$$$$..... .*** $$$$$$*.******.****... *********.... * **$$$$$$**************.. $********..... *$$*$$$$$********.*...*... $*********...... *$$. $*********...... * **$$$$$$$$$$$.**.**.******... $********....... **.*$$$$$$$$$$**.*****.***... *$********..... ..**.*$$$$$$$**.***.*.***... $$$$$$$$$$$ ....****.*. . **.**********.... ..* .$$$$$$$$$$$$$$$$$ .*.*****..... **********..... * ..$$$$$$$$$$$$$$$***.******... $**********.... ** $$$$$$$$$$$$$$*****...**....***. ** * . $$ ..***..... *$***.*....*****... $$$$$$$$$$$$$$$ ...**** *$..*......*..... . ** $$$$$$$$$$$$ ..**.****. $..*..******.* * ** $$$$$$$$$$$ .$*..******* .. .* * * .....***.. $*********** .. * . . .*.*... $********* * * . * ** * . ...*.*... $**.**.*.*** ..*$.$****$*** . .* * ** ......$* ******,*,**** . . * **. . .. * .....$$* ****.****** .. * * * *. .** ....$**** * $. $****$$***** * * $* .$*.**$.**$**** ......$* .$********.* .. * $* $ . . .. ***$* $****$** ** * . ... $$. *$.***$$.$ *.. * ...* $* ********** ** *** * ** ** .. *. .$**.* . ** * . . * * *$**** ** $$ . .. *$ $******* $******* . * $*..***** . * * . .$.**.*.* * . * *. * $** * * * $..*.*******.**.* . *$* ** * ****.******* . * . $* *. . .. *.****.** * * . $ .. . ..* $********* * * * * ***..*..**** ** * * * * $**..****.**.*.* . * * * * . $....*****......* $********..... *$*******......... ***** $* .$******...... $*******........ ****$$$ $*********...... $*******....... ****$$ $*********...... $*******......... *****$$ *$**********.... $*******....... ****$ *$************.... .$*********........ ****$. .$**********..... *$**********.. Pá xP á ||צ19|R|Pš||P[ xxɩxōD||"|Q| " is invalid.^|P1xxyˡ$צLoading calendar.be printed)NUDEץ)šצ Shame on you!1& xá42||P[ xxáxצ1985P xP /Enter the year for your calendar (1985 - 1999, צ Default = ) ---> ||2P|2%%Ǡ|R9CALENDAR: Print a Calendar With Optional Art (AMB.08/86)תPRV.printerתP/ print fileצREWRITEVצ input fileRESETץ))צ. No art work will ****** $********..... ****$ $******** $$$******* $*******....... ***. $$******.. $******.*.... ***$$ $$*******. $*******.*...... ***$. $** $ $$$******** $********....... $. $$******** $********..... $ $$$******* $*******..... *$ $*******...... $. .$*********** .$*******........ $.. $$*********. $*******...... $. $$*********. .$*******........ $********.... $********* ....... $. $*******... $******** ....... $ $*******.... $*******.......... $ $*A******.... . .$***********.. $**********...... ..$. $*********.... $********* ........ $$. $********.... $********* ......... $$ . $$ $********.... .********* ....... $. $**********.... $********** ...... . $. $**********.... $********* ..... . $. **........ $$ $**********..... $******* ....... $ *$********...... .$*******....... $. .$*********..... $********........ ... $********....... **$. .$********.... .$********.... *$ $*********..... $*******....... *$. $*********...... .$***** $*********..... *$*********... *** $*******..... $*********..... *$$ $*******....... .$*********.... ***$ *$*********....... ****$ $**********..... $$*********....... ****$. $*********..... .$*********..... **$$ $***********.... .$*********...... ***$ xy)ױz)Checking size of art work.z)P8á .šOɡ O)`OšO||PP/ש/// /RצPrint another calendar?N11Ná쩍{RR צ1Reset Printer to 12 cpi. Press RETURN when ready.1@ @@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@ "@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@" @@@@@@@@ @@@@@@@@ "@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@" @@@@@@@@ @@@@@@@@ "@@@@@@@@@@@@@@ @@@ @@@@@@@@@@@@@@@@@@@@@@@@@@" @@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@" @@@@@@@@m mm@@@@@@@m m@@@@@@@mm m@@@@@@@@ @@@@@@@@@ m@@@@@@@@@@@@ @@@@@@@@@@@@m @@@@@@@@@ @@@@@@@@@ m@@@@@@@@@@@@@@m m@@@@@@@@@@@@@@m @@@@@@@@@ "@@@@@@@@@@@@@@@@@@@@@@@ m@@@@@@@@ "@@@@@@@@@ @@@@@@@@@" "@@@@@@@@@ @@@@@@@@@" "@@@@@@@@@ @@@@@@@@ ""@@@@@@@@@@@@@@"" @@@@@@@@ @@@@@@@@ "@@@@@@""" """@@@@@@" @@@@@@@@ "@@@@@@@m """ """ m@@@@@@@" @@@@@@@@m @m mmm@@@@@@@@@@@@@@@@@@@mmm m@@@@@@@@@@@@@@@@@@@@@ m@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@m @@@@@@@@@" "@@@@@@@@@@@@@@@@@@@@@@@"""""@@@@@@@@@@@@@@@@@@@@@@@" "@@@@@@@@@ @@@@@@@@ ""@@@@@@@@@@@@@@"" mmmmmmm mmmmmmm m@@@@@@@@@@@mm mm@@@@@@@@@@@m @@@@@@@@@@@@@@@@@m mmmmmmmmmmmmm m@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@-write ('Reset Printer to 12 cpi. Press RETURN when ready.'); -read (keyboard, wk_char); -end; *{endif} *gotoxy (0, 0); write (chr (28)); end. {CALENDAR} /|LdxU< <8á .šOɡ O)`OšO @@@@@@@@@@@@@@" @@@@@@@@ @@@@@@@@m """@@@@@@@@@ @@@@@@@@@""" m@@@@@@@@ @@@@@@@@@@mm "@@@@@ @@@@@" mm@@@@@@@@@@ @@@@@@@@@@@@@@@mm @@@@ @@@@ mm@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@ @@@" "@@@ @@@@@@@@@@@@@@@@ "@@@@@@@@@@@@@@@ @@@m m@@@ @@@@@@@@@@@@@@@" @@@@@@@@@@@@@@@ @@@@@mmmmmmmmm@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@@" m]F@[]]]][]]]]]]]],"mm"mm"m[',[',,]@]]]]]],]]["mm"mm"mm@ ]@[]]]@[ ]F\,',[ @m][@[]]]][]]]]]]]]["mm"mm"m[',[',]@[]]]]][]]@L"mm"mm"mm"@ ]F\]]]]@[][,,',[@mm][@@[]]]][]]]]]]]LFmm"mm"m][,[',@[]''']F\]@[m"mm"mm"mm"m ][]]]]]@[F',,',[@mm][]F\] ][]]]]]]]@[mm"mm"m@[]]]][,]7[mm"mm"m ]@[ ][,F' ]@[]]]],]]] ]]@[m"mm"mm"],'],',,',F\]]]][,]][mm"mm"@ ]@@L, [',[ @[[]]]]]' ',,]]7Lm"mm"mm"],'][',,'][]]]]][,]][mm"mm"m ]F]]@, ]@,',[ @]LL/]]]]]]]]]]]]@m"mm"mm"m[',[',,]@]]]]]],]]F'mm"mm"m@m ,][]]]L, ][,',[ \][ ][[]]7],]]]]]]@[mm"mm"][',7[,,',,',@[]],,]]]["m@"m ],][ ][[]7]],]]]]]]][mm"mm"m7[,]7[,',,',@[]]],]]]@[mm"@ ,] ][ ][[@]]],]]]]]],[mm"mm"m][,,][,',,',@[]]],,]]@[mm"m ][ ,],][ ]L[]]]] ]]]']],][m"mm"mm]L,'],',,', ]@][ [,,,,,]]]]7,["mm"][',,',,',,',7L][]]]]]L ]@7][ [],,,,]@7]],["mm"m7[,,',,',,',,'7[]]]]]]@Fm ]L,]L,[],,,,]]]]],["mm"m]7[,',,',,',,']L/]]]]]]@m@ ]L, ][[],,m7]]]]],LFmm"mm]L,',,',,',,',@[]]]]]]7,"@ L@@[ ,][]@,,]]]]L, ][,]"7m, '7@[]@ ][[]7,,]]]]7L, ]Lm7"777@"mm '7[]7[ ,,]@[[,,,,,]]]],7 mm@"m][,,',,',,'7 ]F7]7@[ ][][ [,,,,,]]]],]@"mm",[',,',,',,'][ ][]]77@ ]]@[ ]@[,]@ ][]]]]@, L, ]@,,][ ]@[]]]]L, @[ ][,,@[ ]@L/]]]@L, @@[ 'L/,@[ ]F7[,]]]]7, ][]L, ]@ ,@@@L, 7@@ L/]]7@ ]Lm@L, ]L/]]7[ ]@[]@L '7@]@@@@@" "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@" ""@@@@@@@@@@@@@@@@@@@@@@@"" ""@@@@@@@@@@@@@"" @@@mm @@@@@@@ @@@@@@@@@@m@@@@@@@@@@@@@@@@@@@@@m@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@"""@@@@@@@@@@@@@@@@@@@ "@@@@@@@@@@@m@"""" """"@m@@@@@@@@@@@" "@@@@@@@@@@@@mmm mmm@@@@@@@@@@@@@@ @@@@@@" @@@@ @@@@@ @@@@ @@@@@ m@@@@@m @@@@@ @@@@@m m@@@@@@@m m@@@@@ @@@@@@@ mm@@@@@@@@ "@@@@@@@@@@@@@ "@@@@@@@@@@@ @@@@@@@@@@@@@@@@@ @@@@@@@@@@@" @@@@@@@@@@" "@@@@@@@@@@@" "@@@@@@@@@@ "@@@@@@@@ "@@@@@@@@@" @@@@@@@@" "@@@@@@ ][],']['] @L,@FLm"mm"mm"mm"m ][]]]]]]@[',,',@"mm][][]] ,][]]]] ']@@[m"mm"m]L],]]\ ]],F\,F'mm"mm"mm"mm"m@ ][]]]]]]]7@L,',]"m][ ]@[ ]]]]@]]]]]]]F77L,m"]F',]@[]]]']]']@m"mm"mm"mm"mm"mm@ ]@[]]]]]]]]7L/,]"m@[ ]@[,]]]]@]]]]]]][],'77"7,',@[]]]] ]@]@Fm"mm"mm"mm"mm"mm@ ]@[]]]]]]]]]7@L]"mF' []L]]]]]7] ']]]][]L/,,',,',@[]]]]]]@@FLm"mm"mm"mm"mm"mm@ ]L]]]]]L]]]]]@@L] ],'7]]] ]][]]] @[,,]L,',]@@\]]]]]]@[m"mm"mm"mm"mm"mm"mm"@ ]@]]]]]]/]]]]@]@L ,],'][]],]][]]]]]@[,,']F"",]@]' ]]]@[mm"mm"mm"mm"mm"mm"mm"@ ][]]]]]L/] @@@@@#nssooi/""/""''.:.;:' :.;.:;i**?+;-??o+xs#@@@@@@@@@@@@@#### $$nn$$nnnnnn@@@@@ss$$xsi*";?=?/?=ixi/-":;:::'?*8*o8o+/;-'-?/i*xoo#@@@@##@##### $$n$nn$n$nnn@@@soo8no+++?=+="""+=++?-::.:.::'-*o8soo8$ss+/:';-?*oson@@@@#@###@ $$$$$$$n$8$soi=on#nn8nn$ox+??+"'- @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@n#s$s#sno@n@@@#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@$8is?=;-:;'";-'"-i"+"*d@@@@@@@@@@@@@@@@@@@@@""77""7 pnnnnnn$nn#n@@@@@@@@@@@88=/-''... :.':'?in#@@@@@@@@@@@@@@@@@@""@@ $nnnnn$$mnnn#@ye Bloom '84 '[ ' '7[ "F@mm"m,][m@m""" ][ ' """77F" '[ ],F' ],[ ]/' Lesl m@mL7,m"m]m]m"mm",,]Fm"mm"mm"mm"mm"mm" ],,m"m]7mm"mm"m,][m"mm"mm"mm"mm" ]@mm"mm]F["mm"m,][m"mm"mm"mm"m ],F@mm'7["mm"m,][m"mm"mm"m"" "mm"],][m]L'7[m'@m]@]@L["mm"mm"mm"mm"mm"mm"m @m"mm"],'Lm"] ][m"mm]@'7L["mm"mm"mm"mm"mm"mm"@ @mm"],][m"m,]Lm"mm"],]L["mm"mm"mm"mm"mm"m "m"m[,[m"mm7]m"mm"],]@m"mm"mm"mm"mm"mm@" m"mm"mm"mm"m" "mm"mm"m7,]]@F]m]@F' '[ ,[],["mm"mm"mm"mm"mm"mm"mm"m @m"mm"m]L]]@[m7,@[ [ ]L],["mm"mm"mm"mm"mm"mm"mm"@ "@mm"mm]@,7[m]m]@L@L]7Lm]@L["mm"mm"mm"mm"mm"mm"m" @mm ] 7[, ]m[]L@L ["mm"mm"mm"mm"mm"mm"mm"mm"@ "m"mm"mm"mL,] ],]@][' ]L' '@[,["mm"mm"mm"mm"mm"mm"mm"mm@" m"mm"mm"mL,F ]]@@]L,L/\ ]L,["mm"mm"mm"mm"mm"mm"mm"mm@ "@mm"mm"m[,]][]],],][ ]@ /7,["mm"mm"mm"m @"mm"mm"mm"mm"m[ ] ]L,, '7@,][,@,m"mm"mm"mm"mm"mm"mm"mm"mm"m@ "@mm"mm"mm"mm7,[ ] ]][ ]@][m]F7m"mm"mm"mm"mm"mm"mm"mm"mm"m" @mm"mm"mm"m]7[[ ] ]/' ,]][m],],"mm"mm"mm"mm"mm"mm"mm"mm"m @m"mm"mm"mL,]'m"mm"mm"mm"mm"@ "@L] ]][',,',,',][]'7@ ]@ ],7[m"mm"mm"mm"mm"mm"mm"mm"mm"mm"mm@" ]7@@@@,',,',m]m][] ][ '7[ ],][m"mm"mm"mm"mm"mm"mm"mm"mm"mm"mm@ m"mm"],',,]FL"m][] ][[ ]L,],][m"mm"mm"mm"mm"mm"mm"mm"mm"mm"mm@ ]]]@"@m"mm"mm"mm"mm"mm"mm"mm"mm"m@ ]@[]@]]]]]]@L/]]]]]]F7@]@@@@Lm]@F"Lm"mm"mm"mm"mm"mm"mm"mm"mm"mm"mm"@ '@L@]]] ]]7@]]]]@@ ]@]F'@@F@"@m"mm"mm"mm"mm"mm"mm"mm"mm"mm"mm"mm"@ ]@@]]],]]]@@L]@@F\]F7][,7L,][,,"mm"mm"mm"mm"mm"mm"m\,]L,',,',,',]@F]'']]]]]@m"mm"mm"mm"mm"mm"mm"mm"m@ ]@L]]]]@]]]7L/] ]]7@L],@@@,',,',,]][']],]]]]@FLm"mm"mm"mm"mm"mm"mm"mm"m@ ]@/]]]@]]]]@L/,]]'' 777@@@[',,',]@F] ]]]]]@F'mm"mm"mm"mm"mm"mm"mm"mm"m@ '@[]]@]]]]'7@]]], ]]]]@[@[,,',@F\],,]]@]]7L][,'][]]]]'L/]' ]@[,,',7L,]F\] ]]]F'mm"mm"mm"mm"mm"mm"mm"@ ]@[]]]]]][@,]]]]]7[',@@[]]]@@@@@]\',,',,'][]]]]] ]]L"mm"mm"mm"mm"mm"mm"mm"m@ '7@]]]]]]7@/]]]]]]@@L]7@@@@\],,',,',,',,]]\]]]]] ]@m"mm"mm"mm"mm"mm"mm"mm"m@ ]L/]]]]]@7L/]]]]]7@,',7"?=+"":: ';=?+/+xo$$$$$n8s+?;"?o*xsn@@@@@@44@@ $$$$$$$n8o*+=+x@#@@@@@$o8sx*=+-""=ix==/q/xxo8$*iis888$n#n$xx=?+*soo$@@@@@@@@@@ $$$88$$$s/?*+*#@@@@@nnn#n##noo8#@@@8sx+8#@@@#@@@@##@n88$nn88x=+ox;'?sn@@@@@@@@ 888$$$$8*+-;/8@@#n#@#$#@@@@##nn##$8soxois@@@@@@@@@@@ii*xxxs#@@@@@@@@ "/?/???//+n@##@@@@#n8s*i+?/?o@###nn#n8i+""/??+?+?--;"?i=++?++==i*xooo@@@@@@@@@ x////???//=o##@@@@##$ooxi+/i$@@nn##n##oo+==iiss*/;;;;-+v++++vvii*xoso@@@@@@@@@ "///???????+o@@@@@##n$os*i*n@n$nn@@@@@@#n$x/"----------"?++====*xoosn@@@@@@@@@ x/"??/+?/-;''';';'-"/?+=i*xsoss$@@@@@ ????"/8n$n8$$###$8soi=?/"';"?+io8###no="-;-"??/?==?/;-----;"/?+=ii*xoo8@@@@@@@ ??//??/"'x#nn####n8ooi/-;--/"?on#####no=/;';"?+?/++ixi=///?/+++=i**oosn@@@@@@@ x/?????""8@nn#@@##$8s*?/-"""/x$#####ns+-;';"??/"??+=x*=q/??+v=-;;;;'-*ss8nno=";;-""--;':''''''''.';-"""??+=x8*+??s@@ ??//xn$n@#oo8nnn8s*?"---;-;;-?*so8n##8i"---//----;:::'':'::;-"//?==i*ox+?+s@@@ ?xx"=nn$@@oo,n#n$s*+"-----;;-=*s88n@@o*/--;c?"---;'''''":::;-"/?+=iixx^!!x@""" ????/i#@#$88$###$8ox+/"?"--""+xon8##noi"--"n$oxi:;sn#n##@@$8xx*=/;:;'-*$#n$s+;::"/-;;-==*/";;';;';;;--;""//?*no="-+# x//xn$$8x+:-onn$nn#@#8oi=+/"--;;+$#n$s+-''-/"-----"-;;;;;'';;;;--""/?+x$o"-/=@ ??"+8$n@8x/*$nn$$n8soxo++"-;-'./o88nno=-;'-//---'';';;'''':'';-""//?+*8s+??i$@ ??//8$n@#8*o$n$$$8s*=??""//"+n@$i/*=o ??o#$8o8**-""on@@@#nnsssn#@@@@@@#n$o=++/"/=o88888- '8@@@$n#@o=""-"/"?o@@o/ii8 x"*n$n8s=?'"x@@@#n$nn@#@8n@@@8##nnnnox+-;;++?"=+?=?=+i*/+i==?-;;--"""/*n#o?"/o x/i$nn$8i?'-x@@###@@@oi*n@@o?;on#nnn$o?;:'//-;/ix*i=??+??+?"--;;---"//i$8o?-/8 ?//s#';;;'"-?+x*oxoosox=+?/+o@@#?+8s# ??"-8@on@#o-/;;sn$8$88so*xixoox="/"-:;/?///=+i+*i**ss8oossso8o$ox?/"/s@@n??sio ?" 8n=ooo?'":;8#@#n$88oxossoooxi=?"'-???+iosoooo$8n$8o=+/+iixosx/""/x@@$/?sis x?*nnoos*x-':-o@@@@#n$$##@#@@@nn8$oo/"///?=sn#@#@n8/o8#@n#$nsx=?/";'::::';""---;':::;""-"/"""-//?++?+=*8@@@@@@@@@@@@ +$@@@@@@@@@nosnn$88888ooos*=??";:.:::';"-'''':.:'-";-;""---"/?++?++=s@@@@@@$@@ ??o@@@@@@@@n$soo$8ososssossoxx=;..:::;""';-'.:'';;';';"??=ix=*ii=++?=$@@@i?xo@ ??x@@@@@@@@ss/'*$8soxxoxoox*oo*".::::-//--"-:'@@@@ns8nnn$8sxx*i=+a?///---"--""-;':''':::':.;-"/"-//"/?+=x8@@@@@@@@@@ -$@@@@@@@@@@#osn#n$$ooxx*i=+////";''';;-;;';-"-;':::';////"///?++"x$@@@@4@@@@@ +n@$#@@@@@@@@8on#n$$$oso*i=+?/""-;'';;';-;;----;:.::--/??/"//???++*o@@@@@@@@@@ @n@@@@@@@#$8$#$$$$8sssoi+/"@@@@@@@@@8 +xx8@@@@@@@@8+on#nzosoi??/??"--------;;':::'''::..:..:'----"-//??=x8n@@@@@@@@4 8ix8$@@@@@@@o-in#n8sso*8/"/""------;;'';':'::::.:.::::'--";"""/??+*8#@@@@@@@@# :*m@@@@@@@@@@8x8nnn$8sox*=+?/"""""---""";;:::::'::::.:'-"""-"""/??=o$#@@@@@@@@ *@@@@@@;';---"/-/"/?+=?n@@@@##@@@$#@ /-x8$@@@@@nx*=*nn8osoxi=++/?//""-""---;;':::.::::::':;;-"-"///???s#@@@@@@@#o#t =":?o#@@@@@#no+*sn$osoo*i+/"-;;---;;---;;;'. ...:';---//"/+?/*$#@@@@@@@@8 "='+x8@@@@@#$=/onn$ssox*+/""-;----;;;;;;;::.. ...:';-"-"""?+??*$$88$888sssox+?""---;;;;--""//"///++is$@@@##$lxs4 oi"?$@@@@@@@@@@#n$$88$$$osooooxx*xxo**ii?/";;;;;;;;;;;;-"""-"//?=io#@@@#n@@@n$ x+=*$@@@@@@@#ooxxnn8ossox*i=?///////""-;;;';::'''':'';;;;-"-////xxxs#@@#n@44$o xx/x#@@@@@@##$non$08$osoo*x**ii=ii*=i++"-;;;;';-;@@@@@@@@@n*x#@@@@@@@@@@@@@@@@#n$8ooxxxi=+???????==ii*os#$@@@@@#n#@@ o=:+=n@@so@@@@@@@@@@s+x@@@@@@@@@@@@@#@@@n8ooxi=*=+?/"//?///"?++ix$n#@@#@#88#@@ oo8ox@@@@##@@@@@@@@n*?$@@@@n$n$nnnnn8$$8osx=++""-----"-"///"??/+=xo$#@##8sxon@ sss+8@@@@@@@@@@@@@#$*i$@@@n$8$o8#@@@@ osso= ?$?"s@@@@@@@@@@@@@@88$n88nn8$#@@@@@@@@@@@@@@@@@@#nnn$sso8nox+xs##$8n@@@# ooo?:*so$ooo$@@@@@@@@@@$8$@@@@@@@@#@@@@@@@@@#nnn@nn$$oo8n$oooo88sn#n#@@@n8n@@@ poi:.o$nn+x@@@@@@@@@@@*x#@@@@@@@@@@@@@@@@@###n8$ossosoxoo88os*o8o$#@@#@@@@n#@@ o+ ./o@@=?###8$#n$$sossi-;=x8@@@@@@@@ 88888si*s/'s$88@@@@@@@@@@@@$n##@#n8$8n$#n@#@@@@@@@@@#@#n#n$8x**+?==++x8@@@@@@@ 888$8='=x"/$#ox@@@@@@@@@@non#@@@@@##@@@@@@@@@@@@@@@@@@@#nnn8*i+??/?/?+x8@@@@@@ oooos;;s-:+#@@@#@@@@@@@@@@@nn#noo$n#@@@@@@@@@@@@@@@@@@@nn@nso8ssix*/?ss////????+=o#@@@@@##nosx*onnn#@@@@@@#n#s=/---------""/?+++==*oooss#@@@@@@@@@@ x////??????=x$@@@@@@@#n8sososs8oooox*==*ooi?""/?///?/+++++++=*xsso8@@@@@@@@@@@ x/////?????=x$@@@@@@@#n$8$88soso***x*=++*ox=//?????+=i=++++=ixossoo8@@@@@@@@@@ cc////?????+xn@@@@@@@#nnn@n$8$8sso**x=/-"?+?"?/??==*/8/x==+i*osoxoss#@@$@@@@@@ "-""//x/???+xn@@@@@@@#nn#@#$$nn$ooxxxx??"+ioxo*x*ooo8$$o*=+i*osoooos#@#x==$8@@ """""""///?+x$@@@@@@@@#n###n#@@@##nnn#nnz$$$$$$so*i???=i*i=xosso8$ox,@@@#$=/7" ---"""/////?*8@@@@@@@@@nn$$n@@@@@@@@@@@# $$$$ # +++####### $$* ############## *$$# # ++ ++++ ###### $$### ++### ## ++ $# +# #######+ $$$$$$ ##++ #+ ## ###### $$$$$# ### ## ## $$$$$# ## ###### $$$### ## ## ##### $#$ # +## # ## ## # *$**$$**$$$@@ [ ##### ## # *$$$*****$$$$$$ ..### ### **$$$$$$$$ [[$$ ## +++ ### $$$$$$**[[ [[$$ # ## $$$***#[ # ### # ## $$$$$$$** * $$$$$$$$$$$$$ $$$$$$$$$**$$* $$ $$$$$$$ $$$$$$$$ $$$$$$$$$$$$ *$ *$$$$$$$$$$$*$*$*$ *****$*** **$$ $$$$$$*$ ** [[[[[[[ [[[ * ** ** ************** ***** **$$$$ **** $$******* * $$$$$$$$$ $$* ** *$** * $ $$$$$* $* *$$@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@#8osoxxxx -;'=8s+i##$sson@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"8o88oooos ;;/sno*8@@@####@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@##@@@@@#@@ -=x$$os@@@@@#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@#n$8oos88$$n#@@@@#####$n#@@@@@""""""$xxso* ----";;+=";/x@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@###@@@@@@@@@@@@@@@@"sosx** --"-;;/o="/ix#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"@@@@@@@sx*x*** --;'-oo=?o8$xi8@@@@@@@@@@@@@@@@@@@@@@ "-""""////?+=-;*n@@@@@@@@@@@@@@#n88$oso*iiii====i*xo8##@#$$$8oo8$@@@@@@@@@ooss ---"""""///;'-i@@@@@@@@@@@@@@@@@n$$n8sx*iiii===**os$n@@#nn8$88on@@@@@@@@@$xxso ---"""""";;-+@@@@@@@@@@@@@@@@@@@@@##n$osxoxoosso8n#@@##nn#$$$#@@@@@@@@@@@oxoox ---""""-;"-;*@@@@@$n$888>oon@@@@@4$i= x"/"""//??++x$@@@@@@@@@@@@#nn##@@@@####@@#nn$8so*i==i*ooo8n#8o88so8@@@@@@@8*i= """"""//?/?+x$@@@@@@@@@@@@@@@#n$nn#$$o8soss*i+++++==iooo8##n8ooooo8@@@@@@@@*=i """"""/////+*$@@@s@@@@@@@@@@@#n$8$8ssoox*ii==++++==*oo8$n##$8oooo8@@@@@@@@$**xn8$xx+++=??+??+vi**ooos888oxo@@@@@o+"" x"/////????+x$@@@@@@@@@nooson@#n$8so*i+?+?//++==iii+=+xsooo8$n$8oos@@@@@@@@8?/ "//////????=on@@@@@@@@@#$oo8n@@#n$$8ox*ixii=ii***ii=ixoos8snn$$8ooo@@@@@@@@n+/ ""////?????+x$@@@@@@@@@@@@$nn#@@@#nnn#n#####$$8oso*i=iixsoo +##+ ## ## *#+ ## ++###+### + ###+ ## ## ##+# # ++ +++++## + #++## ## ##+# ## ++##+ ###++ ##++ # ##+ + ++ +##+ +