LBSOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUNDINVALID KERNEL FILExةw,@  4  J  ȱ⩤i8#) ) 8LeSOS KRNLb.D1/SOS.INTERPŠ̠Š.D1/SOS.DRIVERР頞 0 ) (lH'&3&'&#e'#%e'%'&"$"$#%'#%h`$e+TE8}.SYSTEM.STARTUP"E9v/SYSTEM.WRK.TEXT%HvSYSTEM.PASCAL1P  ARTWORKS40u' *SOS.KERNEL ,VE7!a*SOS.INTERP4#D*SOS.DRIVER W4ZSYSTEM.MISCINFOrV-SYSTEM.PASCALPD.SYSTEM.LIBRARYm#im#iЛ#Lȱ  6L憦  Lsmm l y` @8(Je稽 ʈ%e,ȥ,*,- y,,,-,,,ȱ,,- yL+,ȑ,` 2"p-,-L(Ġ %>,i-i8, ȱ,%,W,pp ڠ %p`l  " ) i   !"#$%&'()*+,-./0120 `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` @SATRw w`svywyw w w w ww ww w t t t t`hhhyhyhhTy y xHH` yyy yy y  `tstty ty tt`svL&whhh th ths x yHH`}x|x yx|x`|x tsvzxv{xv}xȘvv v txx`xxhhsvhvhvhhvv vHH`svywyww ww w}xw w w w v`# Fv`vvv cv`v Fv`hhhhwwhhjjjjwjvj vLw wvsw }x|xHH`wswsw w`hhhhhhUsȑȭsȭsȭsȭsȭsȭsȢs y s }~)yL!&X(E'+@FGH{|}~ @ Ev0vDvvLQv1vEv `uv Fv`|v Fv`nsPnsPv`# Fv`vvv cv`v Fv`v`# Fv`vvv cv`v Fv`v`# Fv`vvv cv`v Fv` ts;ttttt ts?tt@ttt tss18tAttBttst t St8tLbut~sts tt tt t tttL ctDta s5sLub s&sLuA ssLu  s StLu CtЫsvv cv x356789:;<=>?@ABCDEFGHIJKLMN t.CONSOLE.GRAFIX.PRINTER.RS232.D?tt%t.t5tsss`sss`s+s&s!ss0ss0``tstt`tҰt ̮tssssssssst9tt:tttSOS NTRPs1BLsL-xL~xLjyLyL2|LY|L|L|Le{L{L{L{LzLzL@{LP{L{L{L|L |L|L|LA~LU~L^{LwQusnssPLtLt  )* 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 thj thh t thsth   hht t t.tU t8\Z][TZ[ te t tt e    FvHH`(LzLyhhh th th thji thht thsthhhtt FvHH` s` `svL&wLysv{v{vvv v{`{{sv{v{vvv v`{svLwsvL&wsv{v{vvv v{`{|sv|vveawvHvHL冠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`pA'rFͰͰͰͰͰͰͰNj䋂 Y.D1/SYSTEM.PASCALg.D1/SYSTEM.MISCINFO<Put Pascal system disk in built-in drive. Press RETURN.!?_ @` ;*(|@΍ߞJBITڌ*xY6YsB_>3F b$9ˉ?$^V`ZRybÇԮSͰͰ lllllllllllllllla^^^^^^^hhhHH``8Zv[vvv vZ[``)s svLw`)ssvL&whhhhhhHH`tststt`tststP tt`hvhvhh h h  vvh)s1 svhhh) $v v vHH`hhh))Z[L} }    ~HH`* |8  }L} |`|` } }` }`8\] ~ h|vvv v`|svLwsvsL&wsvW|vX|vvv vV|`V|}|sv~|v|vvv v`}|svLwsvL&whhhvhvhvhvhhvvh)ssvhhh vHH`hhhhhmmvLhlhlhhLhvhwhevvhewwwHvHLhhhvhwhevvhewwwvLkmhjhkhlhm Lɢhvhwhh%wH%vHLhvhwhhwHvHLhhIHIHLXXhhQX0XŏoXf0bXE0XRXŎIE8XX&XeYei揭W8XYL XiXYL hvhwv&whxhyy8\v\]w]8\Z][L\xȥ]xL ņhvhwhxhyv&wyZxȥ[xZevZ[ew[8\Z][LL ņhvhwwZvȥ[vLhvhwwvZȱv[)@ L94)  L90 2)hhLҰ`0!ƍL`&&&0 ƃƃ`\0 2)hhhhLҰ40$494) 0-L™"L™&% 8`$ `Vvvv`w8}Iȥ}v Ì665``ō0 2)bENŃ ƃƌ!Ffff 5&Ō0*0  F2)hhLҰ0 2)`Ń 0"kgffff惩ŃO0 2):46vlhh0jH*vjHHHl`w $x$y $z}J`} $~ $ $vLח$xp$~P!0 2)hhLҰx)x~)~y̢|8`$~ $$`|)@0 2)п)8`0戨L 0 8`hh •v h0 LE LElnLdLj/ L 8L •v hI=+ L •v襀I= ƀ LȄHHLhhhhh*68jh*v #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 {HzHHxiHLHHLHHLV??zF~H~HLX hh&ņL0eeƆL򆥆8儅ņ 8刪8刪ƄLhh&eȹ~Ȅh)1~)wf~jjj)?vńevw9ܒ hHHLhHHL @hhHHHHh|h}h~hzxI%vyI%wzȥzLhhh ~he~Ȅ Ȅvl %~8~e~ h9 0 ʚL %~~ hI9ʚL %~0~ hʚL|v|z}{zve|ʥ~z{ƅ|}hh &hezheHzH}H|He|HHLh~hh|h}hzh{{zȱz~80 iff| ==HHLhvhwh~hh|h}| x%vvy%ww~80vwwvxyyxi v&wx&yhzh{{zȱ檥HHL펭kmhjhkhlhmXk&ljȑlLjjlLQjlLLװwvwvLVL{ he`zhea{zHzHL he`heaHHLhh a `&L揥`a lhezheHzHLXX{0{wvz{LLV^__`XȱY`ȱL+ XYXYXXYL XYXYX步kg\8孅\]\)\]H\H0X\\8\]\ȥ\ȥ^\ȥ_\\^]_8\Z][LXeXYL iIiIi挥IiIiƌ8別剰 ` gf!ffgff8fg8&&`ffgff&&`hhhh 挥IiIiHHLhhhh 挥HHLhvhwhxhyz{Ey0y{)zx!{0wEȩLLshh0HHLIiIiHHLhvhwhhevewHHLhIihIiHHLhvhwhh8vwHHLgfff fefgegfgffff`hh0 hhLΌhh"IiIiIiIi lHHLHHLfgL`| Ù`v|`4) ``5)@v|v`0  F2)hhLҰ` {ezeyexe~ a ` 8{zy~x4) ` ; a `w}"$x~yzŀ {Ł|8`w}w}x~x~yyzzv`v Ȗ| ȖvIvL2v Ȗ| Ȗ UL˛w} Lɛ|LS}%v0tn50h0 2)XLҰw } $Lɛ}v| Ś L ^%!0~0500 2)LҰ L [Fxfyfzf{F~fff8{zy~v&<B 0\ 7PASCALSYUSERPROGDEBUGGERPRINTERRINITIALIGETCMD UCSDFILE EXTFILEMEXTFILEMLRSi TVARLWYWX8 X ΰ0 [L쨩R[SER\8居\]岅]LE08居\岅]L8\Z][ ņ8\Z][L\]eHLhzh{hvhwhxhy{wy07ȱzx0xȱx,xyL# xȱxxyL#HHLuHHLuHHxvȥyvL򆭓8~`~ȱ~wLͧ8~~vȥ~wvevȱvev~8~Ɔ`ȱUUU 1VAR WHILE WITH hhh`hahhhhLhlhmhellhemmma ʑlmLU`LmlLhhh~hhe~~hehhhhh`ehae`Ii`Iia~Ŋ.LΦ'~0 ~L~8~L~8冪HF IMPLEMEN4IN )INTERFAC3LABEL MOD 'NOT &OF OR (OTHERWIS6PROCEDURPROGRAM !PACKED +REPEAT RECORD -SET *SEGMENT !SEPARATE6THEN TO TYPE UNIT 2UNTIL USESȑLNdoǤKKK*5@KlKĥKKK@#AND 'ARRAY ,BEGIN CASE CONST DIV 'DO DOWNTO END ELSE EXTERNAL5FOR FILE .FORWARD "FUNCTION GOTO Ihhhheȱe a{8 ȱa {8 Lu0:A[_ ҕLLqȱi8A ȹȱՀƈ4i Lȱ~ȱ~ȩȥȩLȑ  LXiXYLhvhwhxhywyvxȑvxLje`jkeakle`lmeamakm ʱjlL[`L{jlLh`ha hhhhhhhhL򆭙kmhlhmhellhemmhjhkhejjhekkXL=aʱjlmkL͢`L뢱jlL8\Z][JHjHLv| w}L5)@ w}Lwv0|0X ?lhzhhhTLsUwT8vUwv8vXȥwYzT VL SRSLȱ yxȱyxL`x8xyx8xyx zxб wvȱwvЗLABzDF@GPtI$KL nN(kPQChSU焵V!cX_Z[^]k _#ǭ`xXb'dxehSgiQYjoNln9?oIqr|otEv7w߄y @{Η|½~v``| Ȗv Ȗw?}:w}NE||0vEvvv|)0L Lv $| ,0 2) LҰ0 2)HHL8w#0 xyzL]Fxfyfzzzvxyzz aLvɀ牢L(xyvxIxyIiyxxHyHLhh' HHHHLHHHH0 2)LҰ? w֢| Lw}v |  Lv Ȗv|L^LILhhhh:ɀ ,IiIi&lh{hzhyhx Y xHyHzH{HL Y LLv ȖwLi ћ Lw8}8eP&$0 LhhLҰwe}8eL^iL^挅@Fxfyfzeee~ffffإ Lr % a `v Ȗ| Ȗ U LvE|v|w&}0  F2)2LҰv L}x ~8&&&&&&&~ȥ~ ; % a `v Ȗ| Ȗ U LvE|v|w}M0 2)LҰ FL }| L}wL w0 2)LҰL v 5Li| }8wei L i8>?@O^^;COPYRIGHT APPLE COMPUTER INC. 1981-1983 RELEASE VERSION 1.1OQRSTUstuvwxyz{|}~VXYZ[\]^_`abcdefghijklmnopGA7  3  5  >>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< SOS DRVR"CUSTOM.3 )((8*,;((*,((+)((9/(p((>3  =9 :9 .(~|L|LNqooGoDDDcc0ccpc]]c"QM"|@@pAATT**|8P.TEXTׯ7צ.CODE$.BACKׯצ.ASCIaF*:˄/˄&ڲ#áצ:áD9>/ת(.Ä !á צ[š@תP4á74צ7848@צ/74צ:.Í7šצ/44š>474ȓ7.784884צ/46744ȩ4å.ˍo˩4ń\844á47צ:4*å#Í%Í4ōM4á@7Pá/á *á?@%áΪ@:ץ44ȡAá+#Ó7צ/ˍ7A P @6d\8P6ת@ת/š[ץ44š7]ץ114á7g14š^743355 5073331é731é14Ä3*á74147Í7!ץnue% " ,Í ˫T \$ á (ȡ*龫 ȡazȄaA3>/ء7ت /6: á :@7 @  5& |" "%: ˡ J#鿥  &'azȄaAB%Type to contiá+ ɡ _" ġ5 5fj <65 &ˡ 5 56!ˡ 5Rˡ 5=˄+&ȡš B5  ,á0 1ت2S# 2أ d0, P# 2أd0, I# 2أ 01@3! áצ IO error # 2 d0צ Exec err # 2d01>> ""*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>>xrL ==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`)aI88  >!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"""""< >>> <Le Le ,g0L HH`! ( 9EKQWbmz`(" ((è%È`2ȭ3`1`d`c`+È`&È` & IMk`4`5`6`7`8`9`<ȭ=` & @jI`:ȭpȭqé,i0L È`,g HH`LL! l      5  Hdcefh&+si  M0   h) `(" (  (È& 8  `)2ȱÍ3`)1`Ɂ" (cefd`Hc 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̑ʈ0 Ցʭr̈A萠L: ֦ڱΑ0Б֤ h L  p,:0 JfiΥiώJe΅Хiю@ B $p̑бʑΈ0 Б̱ΑʈeمΐeمАA萿 :  `ʝ"`t  !#%')L: 8p,:Jf׮@$PA B $P@/A'ʤ˅΄ϥ̤ͅЄ B $̑бʑΈ0Ƞ h L: $)טɀIim>ٮ@8pذ `$0"8,:Jک@ׅפ؈۩MjL,:08*Ȅ B ,:J}΅н(I I $0;P̑бʑΈ,:JՐ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 } `,`ʝ`))ժuvЭ H ʊJyjhz|ֆ׆ح)JfJf$PIJfש ʈ8 @ש wx LVخ ʊJJJ莟mwwxix 0ޤՐڢ,P<0 )ߍL- J,P,QJ,R,SJ,T,U,W`,t0L40 ( dȅɥŐ ĐL /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`ۅ&ۥe륅eٍeڍ808٥8٥ 8مڅ H , V Εm٭mڭ))njnjnjfjfjfj+mӥmԐ8L( Ӣ й` m j`Hآ Hӭԭ h h`8٭028ٍڍ0Z$eٍeڍm٥m8٥08ٍڍ`8٥058ٍڍ0ԭ 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`  &%(-47=FMUX\_jmz  .169DWfy   % * > A H K Z v z }      % , 1 5 : = B K R Z _ b g n s x ~    ) . 6 = J P S X [    $ 3 : = F d  > B H M s `e|&+.QVYcjuy~':{a(: [L&á'횩)ˡ8 >#> \ˡآآآ*=UU šC+P aaaaO@á ( ˄ ë <:ץaššë 铄˄dS: ?  ڢڢצڢ ڢ  آأأآآآ <Pš8P8>뫀 8a a:a Äڡɡá >ʁ@ צ" ˄ Ʉ;>ʁ@"ؚ"álʁ@&ʁ@ > "áVʁ@ ʁ@"Ä:ʁ@铡-@ ʁ@ >ʁ@ @>ʁ@ @>ʁ@{ :( آڢ  ڕ0قPSYSTEMPW\PIj ;́@́AƁAa@ƁAǐƁAP:ץaá:/Pa8ʁ@ >"á"ʁ@ˡ ʁ@ʁ@ʁ@ צʁ@ ʁ@á áÍáɡ 럚肚`諁6"  >  >b) á إaaġ00000תȡ  ,  & "ë 넡6 & Í< š˄ u 8 צ`&Ꟛ š#ńW   0  𓍡ńȄ (˫/ ˡ   Í wˡ ˡ ! ˡ(!!!(š]9W.TEXTת .CODEתš!!Ȅ!!P!x!P ( >ˡ 뚹  TABLE INFORMATIONCI4Current date is Hd*Bbed on U.  P ? Apple //X @{BB@6bBB@ijpbZb ԳԳ@=+>P=X>髁@@@˄@#@ˡ @@#>@@ O@ ˡ? @ ?>@ > ? @ ?>쓡 @ ?>@ > á@ > =@ >=@ >=!@ >'@ >> )#%0ë>>@@@| V  )šá4>+u uu"˶u reading fromB+söusÄ+f,u迶u"ˡצ writing toB+sársá+rL*ˡ ؞!؟C!C CˡMxC蕿@šQȡ2 š:X fצError  exec fileFBpp) rs* rs*q q{]\ ȡ*ńȄ4šáRתPńȄ ,ń.áš:00áQP 0á0 é000+-Í-ë0^ 000á'6á 000  ] |Nš 3"#쾿 A 9dá. 6ááZš "1諀멀ȡ!뾿 9šš A | á1á6 šš  A ; ɡ'áצ-32768 ` 逫-ġ@00ń0ˡ ɡc ȡꫀ v  ꫀ𩀄򩀄"7ũ  @š& "ˡ鿩/ȡhFF >"ˡFFTFN áEF > 섡/ F >"ˡFFFFFAN A=" "ˡ)á á áˡ á ń# Ȅ ꚹ~á^"Ä<7@+ > ˍ >  &ʂ)ʂ)ʂ($ʂ($Pd@ šš > "ˡ "Lá"  ë   rp ,p "ˡq*   > "á=ˡ땏  šá áK?"á83 ɻ  X\Hب&̂(ʂ( ʂ(ʂ(ʂ($ʂ(̂)ʂ)! š땫ĻD?ꓡ"á삫ûš > "ˡ˫   ɡĻ2꓄ > >"ˡ ꄓr?Lá ?š?ۂˡ 3ء #צ ۂ #ء >  >݂"ˡ ޕ݂ނɡ  ?Ąɡ낫š ꓡš3ġ  CwCvCá>pq+u"ˡ closingBuC!dt -!ˡ !蟚dt ,.z>>"ȡ{ˡo!צError # . closing FILE or DEVICE opened by last program$>"z>Dt!-ǀ@? ? צP6z>ׯ{ yD E ʃE ʃE  ʃEʃD̃EʃEʃEʃEʃEʃEʃEʃEʃE  ʃE 4$Ƃ+צ#4:SYSTEM.ASSMBLER צ#4:SYSTEM.COMPILEܣʃDܢʃD%ܢ% ʃD>ʃDʃD+ >&?̃DʃDʃDʃDʃD%̃E ʃEʃEʃEʃEʃE ʃEʃE ʃ٢ š٢ ٢٢ 4$  ؗ(/  ؗ(Ƃ+ ƃ*SYSTEM.MISCINFOתPƃ"á̃DܢʃDʃDܢʃDצUnimplemented instruction(צFloating point error(uString overflowת(]Programmed HALTת(EProgrammed break-pointת(&|dI+oYC ád0 *R#,n volת(צ vol not found(צfile not found( dup dir entryת(file already openת( file not openת(wbad input formatת(^צwrong disk format(Dצdisk write protected(' }hO2qZBצ IO error: (צSystem IO error(צ# (out of filename storage spaceת(illegal unit #ת(צillegal IO request(illegal directory specת(צvol went off-line(צfile lost in dir( bad file nameת(no room on voצUnknown run-time error(צValue range error(צNo proc in seg-table(Exit from uncalled procת(Stack overflowת(צInteger overflow(Divide by zeroת(צNIL pointer reference(צProgram interrupted by user('7SYSPASCAL/SYSTEM.TEXT*tZt^+ZRt^DEVO/SYSPASCAL"JJ*.r;t^JJ:>;t^; NNRRP ^5PECommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem,)No debugger in systemתP:o@ Compiling... NNRRRSYSPASCAL/SYSTEM.CODE:JJ>z;t^; NNRRP ^5PECommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem,)No user programתP4text? o@ Compiling... NNRRRSYSPASCAL/SYSTEM.CODE:JJ>zzˡD-F;̀̀آE'ʀˡFʀáʀá>??>D;TPVvn (D 4N RH "#%T%%%%l Fx\~ F! !"""^!z,r v Bn @ $ < L n0$FDt!-ǀ@? ? צP6z>ׯ{ yD  ?ACEGIKMǀ$ á"ˡ"" ''E>zˡD-F;̀̀آE'ʀˡFʀáʀá>??>D;TPVvn (D 4NR צ#4:SYSTEM.EDITOR צ#4:SYSTEM.FILER #4:SYSTEM.LINKERת ̂dʂdȡ+٤ ̂eʂeתʂeʂe Ȅ٤ ̂d ʂdʂd >ʂd׷ړ ؞&"ڡؿʂdá ʂd ʂd.áʂdʂdʂd ˻عcʂdצCONSOLEjʂdSYSTERMתYʂdצGRAPHICHʂdPRINTERת7ʂdצREMIN(ʂdREMOUTתk\M B3&ʂdʂdضáoʂdšf?ʂdצ*SYSTEM.STARTUP"ë1Ƃ;צ*SYSTEM.START "تP"á 3Gצ&Warning: Cannot open the library file .<.צ Warning: צ is not usedRپ$ò$Äخ  تP "á T(n$2$ $š$$צ.CODE $$ š$$ צ:š/:n@A$P.LIBTPZ> X أأ أ > , ȡ۲$ڤܾ# 411ȡs1d1ٲ ٲپ1Ä  ٗ 111w ޢ ȡڤ ˡpݢڤ?Xܢ0ۤ ݢ`ڤáޣ!ݢ`ڤˡ  ޣ  ȡ6ݤˡ&ޢ`ݤۼޢݤ!&ءdt >uˡpq- ? ? ȡoڢܤ ܤ˄R slot   is not from Apple III Compiler Based on U.C.S.D. Pascal II.1 ë0???JanFebMarAprMayJunJulAugSepOctNovDec?????????ר d't!צPΦתP22>  pq%sy!{P{ 1 %System re-initialized. j:@|N 8 f   Copyright U.C. Regents 1979 צVersion: April 1983 Based on U.C.S.D. Pascal II.1 ë0???JanFebMarAprMayJunJulAugSepOctNovDec?????????ר d't!צPΦתP22> Current date is  --  צ'Copyright Apple Computer Inc. 1981-1983 Copyright U.C. Regents 1979 צVersion: April 1983 *| צ,| Apple /// Pascal 1.1 | צ,|__________________________________________|44ȡ44 l#צSYSTERM:(>z آأ% š  + __________________________________________ |A$    H2צ*צ:צ??"?[צ0Bצ0tצ0SYSTEM.WRK.TEXTײ[2 SYSTEM.WRK.CODEײB* , צCONSOLE:(ȡ"5555vu -? ܪPAƂg/0̂gƂg*ƂgQƂg A0"ˡ\٦׷T0̂gƂgPƂg:QƂg`Ƃg š/0 0 /A0؞"Ú/ۧ?PצPUP.P1 Ƃ;P צPGתPˡǀ?P:ײP)@B$$$  wx55١ZȡIP  ٲ7)؞7)ؿ؂پ$áڸ444Z ȡ+ؾaġ +ز+ؾ $ 2تPww"ájw ++L+IÄ)++LIBRARY FILES:ׯ w.3nw w.w.b43 n4ńV54̂.5ʂ.ȡ;5575)ʂ 5554 Ƃצ*SYSTEM.LIBRARYPxƂʂx.3:R"צChange this? Y)es, N)oٶ,@@ٳH vؓ! צ NOT ת ,Currently Apple II Pascal disk routines are ,0צres,>9<<<<;67>%sצ Terminator=sצ, change it ? ٶ,áu-ٳ@@YyÍ)צNew terminator:s rqs* تP  ء  <צNew exec name:P/á>šF.á<,צ[á==P=צ[8]S=P-uu"á 9>-uu"áps,P  !UUUצ:U*UPBš!צ/PBP) Running...ءá.צNested exec commands illegal&-צError opening exechءPؓ5צExecute what file? PGתPšš,,ȡپaġ پ ,,צEXEC//Hqƀ0   áث-P   š, š!y*SYSTEM.WRK.CODE׷N"tB0*š5**צ.CODE:* * "Ͷ+>+׷W+,áD+$á/+TP.TEXT+}}}+Ä+}+P +P"ˡ%> Can't open *SYSTEM.WRK.CODE׷P+*~+:+ }+ƀ}ƀB+ƀ}+} Assemble what text? Compile what text? +P+>+ׯ+,á+( T+P +"ˡ)+>צ Can't find +*SYSTEM.WRK.CODE[*]תPצTo what codefile? +P! + + }+}( á צAssembling... צ Compiling...  á̀̀ʀW+̀ƀƀ:ƀ[@ƀצ/Aƀ2PƀP[á + ÁPdۤC1Cáۤ&./0000ˡc0 DDPDת0&;2EEDE:E&E 2C ۤ2 00ÍCC1CáۤC11 Ä  צ Linking...vܡ  # צMust L(ink firstƁ1ƀ:צ.Conflict between intrinsic and user segment(s)?ƀƀƀ 1v -ƁP-צNo file ̂iv̂jʂj@ʂjˡ  not codeʂj1ʂjHʂj ƁE> ƁEƁ5>ʁAáʂj 1>  not code"ˡצ Bad block #011Ɓ1 cݡ;ުP-vƁnPvƁΪPƂ;PƂ;ƂƁƂgƂf̂dƂPʂd ΦתPצ:Ƃáצ:ƂPƂצ/ƂPƂ̂iƂiƂPƂiƁǠƂiP?̂e?>ʂe?>"ˡCۡ>"áIllegal file name-Error: Required library files are not present33Error: These required intrinsic(s) not available: 1, 0?̂.0ʂ.ȡ@0|0,'0  111 á00LvX  ident8ؓ@ؓ! צSOSצApple II Pascal &Currently file names are displayed in & 6 צ format= ؓP צ%Option Bytes reserved for Graphicsצ%------ ---------------------------צ A) 0K bytes (No Graphics)B) 8K bytes׮C) 16K bytes׮D) 32K bytes׮"ءt  Currently  K bytes reserved for Graphicsá (No Graphics)e8)/H1HHHHHHH ^{LLSRTUX Vȱ*W.XR!R4T5UVWR\]Lð``­8Ɠ ~…`ܡ=" áܡ ܓצ $  ޓ(ݤ ߢܯߢ  d˯7 H ۣȡڤ  ۣ צۣۢ0H dō (ܓ(*(ܡ )*) *)* ܓ)ת) (!($IKPz(  Íܡ  , Ąܓ"á    (( )(á (((ܡ( **(( *Ä(*Ä**Ȅ*Ą*MȄ*)v*ȡO(ۤ +++ō++ɍ+ ō+ ȍ+ ( ́ ́ ʁ ʁ צ ʁ ʁ ˄ʁ @˄ʁ ˄3 ʁ ! ʁ Þ"Ä  = &)ʁ á ʁ   "ń,ʁ !  ʁ ޾쓡 Linking... vá% Can't Restart$צ Restarting...!-Do you wish to exit the Pascal system? (Y/N) %Yá>>OKpq7AX0J5*3; &(,.R C~  < DjvlJ~B~Nn H$תP#%!&j쓡 Linking... vá% Can't Restart$צ Restarting...!-Do you wish to exit the Pas     ˡצECommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem,? [A3/1.1]P#%!?á^GCommand: U(ser restart, I(nitialize, O(ptions, H(alt, M(ake exec, Q(uitתP#%!&jf Apple II disk routines #C) Change file name display format צO(ptions: A, B, C, Q(uitP#%سQˡع! ACQá$p $ǀ#`[!0System will re-boot to reallocate Graphics space׮Ǹ ȡ ' $  !צ$A) Change Graphics space allocation!צ+B) Change status o5Error: New options could not be saved on system disk.צ*Graphics space allocation has not changed.8(Other options have changed until reboot.$ƁƁ0# ˸ ?Ɓ*SYSTEM.MISCINFO""˄Ʉ9צ!Error: must insert system disk. P#$ááRƁá<" ""Ɓˡ ! ! A!BCD Currently you have option "צGraphics Options: A, B, C, D, QP#%ٳٹ!ADt Z!ƁƄŧSRERL槤\]L槅  `\]e&mmeeUȱP8\\]]L8\Z][ ņ8\Z][L\8]` ৠ|8Ɠ ~5~8~8\~ȥ]~8~Ə8 ƏL to continueeHH LsL審L審pX8XYL審 L審 L審 L審 L審 L寢hhhhCQHPH PȱPPQL RhPhQL9 RSwR8vSwv^ȱv_ȱv\ȱv]X i RHLj RwRvȱRwVv ΫwWvVwWWURTȱRUWYRXȱRYRRRSL ӯsPQvȑ RȥST^xȥ_xȥ\xȥ]xx\y]^_WVW8\Z][LlXz C ~ƆSRSLtȱ ȱņڠRRL Xz CL Xz CPQȑL XzX )XY  ~0 LOXz L ~8~}8|~}~L~L8~lm8 ƁPȹPȹPȹPȹPȹPȹPȹP Ym~Lhl w~iviwY8vvXwvYU~iTiURSy8xyRER`hh )Lhh ΫLhhw vwLehhWwVvWw]}\|]}XiXYv8zvwv8zvw8vv~wv~\ť~8~8~~ȥ~))i )HHl0 ۢڤ   ڪP44444444"ߚ44 4 4!4"d4$4% 4#44#4á74-4& 4&44&4T ڪ 0ޢߢšáޢޣߢ  dޣ"ޢ#ޣ$)ޣߢ  dÍÍޢ  ܓۤ ۤ Äܓۤ  dÄÍߢ ٪P3-, ,á55תآ1آ 0 5 6633 ȡ 6363 dȡ 6 3 65 4/ á5  5 -5 ---525 ˡ 5. 5.2,2h  ػ!2 jڝ?"ɡ6?#?#ھá?#٧?#ڝ?"ٕ?"ڕ?"?J=á=2áˡL2" ۝?"ܓ?#۾á ?#ܡ$?#RšR?#ئתPVdá;<:PP#PC/š:7צ:P; ./Ad ?3 1ˡI á+ݢˡڦתRáצ!צ2ڧ? š ǀڧ?ǀǀ Ǔš@:צ!á צ!P$;ئ00000תP  0ڂȡ۾0Ʉ< R<87  áG:/ |77áBš2@/áf9šoá+ھ.á ھ/á 2á9&á9á  áán8ڧ? á 6ȡ/ݾ!á ݾ /P޾ /P 5RR3ۂɄݓVá(۾'ۂ@n: צ/˄5ȡ0ƀƀP̀ʀȡ0ܾaġ 00ܾ 87CONSOLE1:7SYSTERM2:7GRAPHIC3:7PRINTER6:5REMIN7:6REMOUT8ת802Ȅ&0á݂0 4 6ȡ4 0.  á5٪P,6YتPš  ȡ޾ *:Í#Í*á ޾:ˍ צ:P?P#áL۾ ݏ۾0 4ޕ P5:Ä:P.áٳ ا?ǀǓ ا?ǀ:1!&ÍXÍc(ÍEÍ QáG'á@=+á3@á)Fá Gá Há >z? ؚ21!$4YP>3$M l 0 nL T "&"ˡ.&"ˡ$  " áP$ނ š: -Ʉ  $ $ $šš$%&$۞$$ۂۂەߓf%%&"ˡ|ɡ& & "ˡN$ߡá4 á,á"$࣡ $ $šš&$۞$$ۂۂە R%%&"ˡ.&"ˡ$  " áP$ނ š: - ݓۤ ۤ Äݓ š ۤ  ɍX ޚ "ˡ8ˡޚ   dܓڢڢ   "ġ$ނ#˄ɡۤ  dáߢ  dá ߢ &ޣ˄ ߢ  ߢ ۤ ߢޣ"ߢ ޣ#ޢ ޢۤ ޢ á٢á( ת$&(0!    š ,2-2ȡ ނ0ō>- >>+2ȡ09ō>0 ˡ c> >>0Ʉ廹> ;> > ;>c> 0Ʉ  廹> ō> 0 0,?? 19 c? ??á>0 ;? ?..15,0..7] OF CHAR; 2END; 2  VAR FotoFile: FILE; 2  PROCEDURE GrafixMode(GrfxHMode: GMode; GrfxBuf: GBuf);  PROCEDURE GrafixOn;  PROCEDURE TextOn;  PROCEDURE FillPort;  PROCEDURE PenColor(Color: Screencolor);  PROCEDURE FillColor(Color: Screencoptr = ^GSCB; %GSCB = PACKED RECORD 4GHMode,GSMode: CHAR; 4GPX,GPY: INTEGER; 4GVL,GVR,GVB,GVT: INTEGER; 4GCF,GCB: CHAR; 4GFont: PACKED ARRAY[0..3] OF CHAR; 4CWidth,CHeight: CHAR; 4GColTab: PACKED ARRAY[0   TYPE Screencolor= (Black,Magenta,DarkBlue,Purple,DarkGreen,  Grey1,MedBlue,LightBlue,Brown,Orange, 3Grey2,Pink,Green,Yellow,Aqua,White); %GMode = (BW280,CP280,BW560,COL140); %GBuf = 1..2; %XfrMode = 0..7; %GSCB7g8b9ggPGRAF PGRAF REALMODEPASCALIO  ȑL54)&#!  L?  hhhh * <Ű 깷LCB1.-,*)&# ^?  hhL  ?  hhhh * <hhʰ 쭷ȑL{@H?hhhhhhjWȑ jȑ(!Hh0?H&h*0HH`?  hh *h < L+*(" B?  hh * <` hhL&ȑ`W CL& hʈL&fi` hhHj*H*HHL&SOS-PARAM-TABLE߻5޻5ݻ5ܻ56; ; ;  <  3 5=(=2hx? ?"? ? ?  . /202hh%hh%HH`%ʎ%HHXWɡ?#X?#XW?"XWš?#X?#XW?"X?"W?"?#VVVU2 R2 ػ%2تP3+&+2T'á  ܚ2"  P ٨ ب5 5#0á-=?#?"?#?"?"?"002 ,٪PتPZ,PƀPZ3ƀ3ZƀU$UáVV?"ɡYV?"YB?#V,á?#VZ,,ZYYV?#VVY,W?"Wǐš ?"VUiV, ;?  ō> ? 0*2 )2ܪP/ۻ0/ٻ1 23/3"32\ 6۪Pá? ?"11ǐȡs. .ٻ..3P33? 223.20lor);  PROCEDURE XfrOption(GrfxSMode: XfrMode);  PROCEDURE SetCTab(Ink,Pixelcolor,Newcolor: Screencolor); :'')PBB PROCEDURE Viewport(Left,Right,Bottom,Top: INTEGER);  PROCEDURE MoveTo(X,Y: INTEGER);  PROCEDURE MoveRel(DX,DY: INTEGER);  PROCEDURE DotAt(X,Y: INTEGER);  PROCEDURE DotRel(DX,DY: INTEGER);  PROCEDURE LineTo(X,Y: INTEGER);  PROCEDURE LineRel(DX,DY: I8'088'."--ˡ-!8'x22á 8s@8s0á 8s8s8sš870á ,2á@,`,,8'21ˡD20040(008.$2á/ /,á@,`,1á/ /+/2+2ȡc,8'+á8'x188'.,,"--ˡ-!78++8wb *تP8"--ˡ-!8'ǖ8' 8'8'8'1צFOTO file I/O error: IORESULT= Hit to continue....!تP8"-- á8"--ˡ-!8'ǖ8' 8'8'8'18'00á ,18'r8'8'á8'@:8'ǖ8' 8'8)8)<8'ǖ8' 8'8(8(<88( \8'8'8'<8'ǖ8' 8'8)8'8(ٝ8)؝8(\8'8'8' 8'8'< 8'ǖ8' 8'8)8'8(ٝ8)؝8( \ 8'8'8'< 8'ǖ8' 8'8)8'8(ٝ8)؝8'ǀn]L;* 8'  8'6 8'8'8'8'8' \ 8'8'8'.8'8'.8'8'ġ ڹ8'8'8'x8'e8'R8' ?8'@,s8sš78'8'قd8'8'8'8'8'.8'8'cs buffer space.צHit to continue....\٧8' "ˡaUnit  צ write error: IORESULT =  ~á 8s@8sá 8s88s-Insufficient graphics buffer space allocated.צNeed  K bytes, but only  K bytes have been allocated.=Use O)ptions to increase the available graphiNTEGER);  PROCEDURE NewFont(VAR Font; ChrWidth,ChrHeight: INTEGER);  PROCEDURE SysFont;  PROCEDURE DrawImage(VAR Source; SRowSize,SXskip,SYskip, 4Width,Height: INTEGER);  FUNCTION XYcolor: INTEGER;  FUNCTION Xloc: INTEGER;  FUNCTION Yloc: INTEGER;  PROCEDURE GSave(FName: STRING);  PROCEDURE GLoad(FName: STRING);  PROCEDURE InitGrafix;    IMPLEMENTATION E ;  PROCEDURE DotAt(X,Y: INTEGER);  PROCEDURE DotRel(DX,DY: INTEGER);  PROCEDURE LineTo(X,Y: INTEGER);  PROCEDURE LineRel(DX,DY: INTEGER);  PROCEDURE NewFont(VAR Font; ChrWidth,ChrHeight: INTEGER);  PROCEDURE SysFont;  PROCEDURE DrawImage(VAR Source; SRowSize,SXskip,SYskip, 4Width,Height: INTEGER);  FUNCTION XYcolor: INTEGER;  FUNCTION Xloc: INTEGER;  FUNCTION Yloc: INTEGER; ,+/3+3ȡM88'."--ˡ-!87,8',,++8cd 8'8' 88r8'8r˄=&8'ǖ8' 8'8' 8rˡGraphics driver not resident!צ:Use SCP to add the .GRAFIX driver to your SOS.DRIVER file.áצ&No graphics buffer space is allocated!צ2Use the O)ptions command to allocDá HB  6GCF D Ná(EF I!  F.ٹ5'6#789: jع;<=>*á?@ áAB DDE *,ب"! .ء1ٹ#($$% &'( .ٹ)'*#+,-. jء1ٹ/(0$1 234 eal; function minnorm: real; function minreal: real; function makeNaN(signal: boolean): real; function copysign(x, y: real): real; function logb(x: real): real; function scalb(x: real; n: integer): real; '^'^function nextafter(x, y: real): real; function sqrt(x: real): real; function rem(x, y: real): real; Implementation E boolean; function integral(x: real): boolean; function unordered(x, y: real): boolean; function infinity: real; function maxreal: real; function minnorm: real; function minreal: real; function makeNaN(signal: boolean): real; function copysign(x, y: real): real; function logb(x: real): real; function scalb(x: real; n: integer): real; '^'^osure; procedure setdnorm(x: denorm); function getdnorm: denorm; function finite(x: real): boolean; function isNaN(x: real): boolean; function integral(x: real): boolean; function unordered(x, y: real): boolean; function infinity: real; function maxreal: rcedure setxcpn(e: xcpn; b: boolean); function getxcpn(e: xcpn): boolean; procedure sethalt(e: xcpn; b: boolean); function gethalt(e: xcpn): boolean; procedure setround(x: rmode); function getround: rmode; procedure setclos(x: closure); function getclos: cl type numenv = array[0..2] of integer; rmode = (rnear, rpos, rneg, rzero); closure = (proj, affine); denorm = (warning, normalizing); xcpn = (invop, underfl, overfl, div0, inxact, cvtovfl); procedure savenv(var e: numenv); procedure restenv(e: numenv); pro #REPORTERb3!7RESULT 8t3x3#PGRAF ****7end; 55 1:2 415 ); 3 411 tinue....'); d to allocate buffer space.'); le.'); 43-STARTADD~|zkhZEB-*'% 8hhhhhhHHHH`.8" ~(B N j * l  r  L .P47!2BYTECT 3SETCTMAS3 7I R3&3&3COLOR >H`F.GRAFIXNL<2.*&$ ZXA=9r8h&h'h h 'H&H`(&*('$!B8hyhzh}h~hhhh{|}{|{|zHyH`RPL88hlhmh h h h h h h h h h h h    n o mHlH`pnvtrpnljhfdb`\YVUTSRQMI8h>h?h h hhBȑE @ A ?Hate buffer space.צHit to continue....= hShTh\hh[hhXhYZWnflgm NUlVmTHSH`j`Wrpnkhfb_\[ZYXWVUTSt   \ < J K$LKL"M(N (OM/   NMz fNMN2)22)*`%Р0 % 2)8`%0Ԡ0 ffff쩀%A0 4)4074)@E0iii2)8`2)`$%ʥjŐ892hhhh&&&eeP 3b88 E50V&&jfHHHHHH`*$Pߠ0 2)HHHH l%L0 HHHH2)L2)4)@:4) \0 0  ?H HHHHH`4  `4)@0 2)hh l`T5)`hhhhhhHHHHHH`$hhhhhhHHHHHH`"hhhhhhhhhhhh**Lti ie e e &&&8 L=Ffff Ffff  e eee e e e e &&&e eeeLD     &&&%e   e e e e  hhhhhHHHHHH`"5 `hhhhhhhhhh8&&&HiHHH`8hhhhhhhhh hFfff8 @| e e e e Ffff Ffff  e **)HHH`05 @`hhhhhhhhhhhh&ffHHHHHH`>hhhhhhH5)@HHH`,hhhhhhhjhHjjHHHHH`*hhhhhhH50HHH`*h4`hhhhhhhhhh&&8ffff8e080 HHHH`HHT 4`4`hhhhhh404)@ 4) HHHH`:5)`hhhhhhhhhhH2)YU2)HD2)732)&"2)ʢ2) HHHH`hhhhhhhhhh*JHHHH`8hhhhhhhhhhhh&&jfHHHHHH`B@2)ߑ`hhhhhhhh0)YU0)HD0)730)&"0)ʢ0) HHHH`4`hhhhhhhhhhH&*HHH`.hhhhhhhh0)ߑ`2 `2 `2 `2 `2 `2 `2)`2)`2)`2)`2)` 0 2) l` 0 2) l` 0 2) l` 0 2)  l` 0)`0)`0)`0)`0)`"hhhhhh3HHHH`"hhhhhh1HHHH`"hh4hhHH`hh2hhHH`hh0hhHH`0 2) l` 0 2) l`RM M"Mf OM1S Q "-!ǀ@ hhhhhh5HHHH` ÄNM-ܡܑP  š  <R  ȡ  F XS.hhhhhhhh&*8f$3C$&&jHjHHHHH`8ߥץ0ϊLIHHHHhhhhhh k k   88 e     L     FL  C 0 F LL (ӥ L (L_  E  6EL<  FEU 0  LU HHL.٢-,ˡ-0/آ- 0-á Ä-*/-+á -á,Ná- > )09Ȅ*!~Ȅ+azōaA,آ"-0ˍ8,ɡ -ɡؿ 0Äɡ-Í á ܑ ' %!Í ' # ɡ   ~ɡ  ~ ˡǀġg/  ( ǡ?˄??&@ۂ"ˡu??š???#?$???$?#ń ?#?$?ۚ?$ܚ?AAA?AˡA  5~   ̶??@ɡ??"@?Ä?á?????,? >"Má? > >? >á @@@ Ą @ ?ˡ\?%,?%???&@?"' \'    ݂܂F  (    ޏݏ@܏ޏ@ݏ܏ޏݏ܏܏ ݏ ܏( ($آڢ٢آ&%ڢڢá ޡ?šڢڢ'ޡڢڢڢ~ڢ n& ȡ ۞$&@ $& $& ۡ!š !ȡšڢۑڢ.ɡܢڕܢښ $ ڢܢۢڢ``ڢ 2!آڢ٢آ*"آڢ٢آ(#آڢ٢آɄɡ& 8ݍ á ބݍݍܓ܄>ۢۢۢۢۢNۢۢۢܕ(TION E CALIO.TEXTil:}| tSYSLIByy6JJ>Bb^JJNR^^ bb"L^LtJ ^JECommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, PROCEDURE FSEEK(VAR F: FIB; RECNUM: INTEGER); PROCEDURE FREADREAL(VAR F: FIB; VAR X: REAL); PROCEDURE FWRITEREAL(VAR F: FIB; xx: REAL; e1, e2: INTEGER); FUNCTION SUPER_MOD(A,B : INTEGER) : INTEGER; FUNCTION SUPER_DIV(A,B : INTEGER) : INTEGER;  IMPLEMENTAXWRITEREFREADCHA~YF Y >YCH bFWRITECHZYF YY >YCH bYRLENG RFREADSTRX[4ZOHA UJIF"Z4\ h  z T 8D j ^ v   6 N f ~ 4Z:^f20\x"@< \ xj >  9S`hhhhh*68jh*vHH` `hh00 2)hh ljH*vjHHHHH`Vvvv`666``8`yyyy`8`R* . .á,Eáa0*-.,ɡ-*,Eá0+á0-á0*-*Ǹ ɡ ۏ0-ۑ+-0*L,Ná=;á/Äڡؼ-A/N/'Ä!0'ˡ+-0ڡؼáڡؼZš0á8ARTIST &hhhhhheȑȦ0+L4-I8i  L6i0i0HH`.` 4j 8rHt8b\2D"\l2r ,2?FJANDW ?Y?FNEEDCHAZ??[ȱ)uD*&**u&L&*** ʈHHHH`7hhhhhhhh訪 H & *HHH`6hhhhhhhhHHHH`& u E   ؠ ) JJJJ 0ȑ ) 0ȑᘠHH`hhhhhhR0H*8IȱjE Ȅ橀إHH`zhhhhhhhhhhh bL)5Ffeyumꩀ5JA1SKQL51QF55(5ȱ5qjȑHHHH`\hhhhhhhh  0<Ȱ`~u$hhhhhhhhhh訪 横 Ji&&0 fL]fJJJi&&v  u&&v&E& &詀&L&&ť&&ʈHH`o'hhhhhhhhhhhHH`,hhhhhhhhhh訪 横v E 詀 vE 詀  Lj0 fLfJJJi䨩ȩ50,8 &5&  6 F5L L5HHhhhhhhhhhhhhhhhhȑ**ȩȑ&HHHH`hhhhhhhhhhhh&FffHHHHHH`Phhhhhh⨥⥩ l` 0 2) l` 0 2) l` hhhhhh404)@ 4) HHHH`:hhhhhhH50HHH`*hhhh LHH`4<ˡ;2ɡ#??P?0Q?P>>.P>8??P?8U?P/ؑ>2>Nš N>>š3=>?=?ȡ#@@P@צ0Q@P==ȡ5=?=?ȡ###ɡ#"ɡ2ݓ&&Í&&&á&"&!'$%&&Í&&"&!'"%&&!$$#ȡ!ˡ ء##ȡ''0'Q'P% 2ȡ ȄPšPMšM/&<<<ۀ š ۀ)ByO7>zS8ڨ ɡ(MMMM܏M܏T1ܨ ء '$1$ &!&%š#$ە##š##$"$bbbbbbbbbbbbbbbbLI........Set start of line. |צ4L/l..........Set end of line. |צ4Arrows.......Move dot. |צ48,4,6,2......Move dot quickly. |צ4R/r..........Set radius point of circle. |צ4C/c..........Set center of circle. (Then arc nbr.) |צ41-5..........Set arc of circle. (5 is whole circle)|צ4S/s.. 7$  á777 7 7á777 á77N 7צ4 Help Screen |צ4 .á'צ#5/7"  "ˡ á77á77>á777 7 7á777 > á777#5:Saving 7"ˡצUnable to save  on this disk.8Put a blank formatted disk in Drive 2 and press any key  to continue: n: o Save as  ? (y/n): YéyÍNÍnÍNénÍ\Enter new file name: צSmall picture (1/4 page)......S8Large picture (1/2 page)......L8צ Your choice: séSÍ^léLÍMצ$Sorry. Press any key to try agai.*e#Turn printer on and press any key: æ.PRINTER>Oåáצ Printer Menu.ad.Press any key to continue.צ0Select top, middle, or bottom of page: (t/m/b): t˩T˄yAȡ.béBÍ,ȡ ȡå'/!!7VJ-Do you want to print a 1/3 page card? (y/n): yéYÍnÍNÍyéYÍ*Position top of page at top of print heWScanning quarter-page picture.ǿ!!šȡȡI! 7 7á.á$ȡ áá á?'/åL! 7 7á1á'á á0 á áá á?á'/ '/'/å /ȡå'/!!70¶ צINSERT SYSTEM DISK AND REBOOT©álxScanning half-page picture.ǿ!Ǘ!  0! šȡ |צ3Arrows......Print dot. |4T/t..........Insert text. (ESC ends text.) |4I/i..........Inverts dot/line/grid color to erase. |4RETURN.......Main Menu. |4___________________________________________________|$Press any key to return to picture: 7X 9"á6R..........Returnto Picture6צP..........Print Picture 6S..........Save Picture 6צU..........Ungrid 6Q..........Quit 6GArtworks, Main Menu-צM..........Set Mode 6N..........Draw New Picture6צL..........Load Old PictureChange pen color? (y/n): yéYÍ77ꥡå88'79xצnT16BW280ת77  nt buffer is  צSwitch buffer? (y/n): YéyÍá áצCurrent pen color is á%white on black.#צblack on white.high resolution: צ$Enter new mode or hit RETURN (H/L): LélÍ"צBW280ǿ7 ;HéhÍ./BW560ת7777CurreצEnter file name of picture: צ.ˡ#5:á 7 777léLÍCurrent mode is álow resolution: Rɡ#ǿ 7 7 ɡ7 7 'W 7"ˡr not found.צ&Press any key to return to Main Menu: 7(O,.E24?8:YO@BDFqkYNPRTVXZ\^`bdfhlnrtxz á7^ U˩u˄N)Do you want a grid on the screen? (y/n): y©YéyÍb éNjÍ L éNJÍ 68á (2á 6á  4á ǿš ɡǿ š ɡ:ɡ š $ /t  ;$& Type ? for help during plotting.8Press any key to begin: 7  7  éLjÍxéǕÍ ÍÍš$ Íš2 < ˡ  7 &7 צGRAPHIC:꩜á7 .P צ of y-axis.Enter new value: 70ɩ5ō0ũ6Ʉ˄ˡ0ššꏂ9ÍÍ(7  D0á7צ0You may squash or stretch x-axis to get an oval.צCurrent setting is x-axis =  of y-axis.צDefault for circle is x-axis = 777 ȡ삫 7  Dá777 ȡ삫 7  Dá777 ȡ앫 7  D7 á77ȡ앫 צEnter your choice: . xtplhd`\LuT *( ("" "$&(*,.02468:<>@`jhH`VhbRbQéqÍ8978879&B=L  $ z F$L<":צP..........Print Picture 6S..........Save Picture 6צU..........Ungrid 6Q..........Quit 6 procedure quit; {this ends the program} begin resp:='0'; repeat #writeln(cls); #gotoxy(25,12); #write(chr(18),'INSERT SYSTEM DISK AND REBOOT',CHR(17)); #read(resp) until resp=esc end; {quinteger; 'high: array[0..559] of integer; 'pix: packed array[0..191,0..559] of 0..1; 'oval:real; 'line,space,filnam:string[20]; 'modstr:string[5]; 'onechr:string[1]; 'resp,com,menu,cls,esc:char; 'prntr:text; 'gscreen:interactive; 'card:boolean;  program artist; uses pgraf,realmodes; var x,y,oldx,oldy,centx,centy,radx,rady,quad,hypo,leg1,leg2:integer; 'bg,temp,mode,buf,pen,edge,begx,begy,radius,l,h,low,w,q,z:integer; 'top,bottom,oldcolor,gridpen:integer; 'rowsize,xskip,yskip,width,height:q ǰȑHH`0&# L? zD<F`"tL>nRJRl: * ( 2  R     6&>@). Calls the SOS routine GET_MARK.}  :?  hhҰ L0? hhhh Ӱ HHL#6?e ?hhhhhhưȑHH`# D?hhhhhhhh   * <L*?   d *hhhhL#"!6?   * <L*?   * <b L%$:?   * <c L%$j** * <LedbVRQPONMLKJIHFDCA>963?  hhhhhhꍴ0 ȩhh * <Ȱ ȩLa`XMJ0-*('& ~? * <LGF=:43-,+*%" f?   d *hhhhL#"!6?  hhhhϰ j쭳j*쭲L=<40.-,% V?  hhhh왺ED<:520.-+*)$ f?  hh * <hhL'&$"<?  hhhhHH * <İ ȑjȑ*ȑLedbROLJI |?  hh왺צEnter your choice: . xtplhd`\LuT *( ("" "$&(*,.02468:<>@`jhH`VhbRbQéqÍ8978879&B=Lit}   procedure bigprint; {prints half a page} begin writeln(cls,'Scanning half-page picture.'); if card=false then top:=191 else top:=151; if card=false then bottom:=-1 else bottom:=30; q:=560; while top>bottom do #begin &for x:=0 to edge do )begin ,low:=0; ,for z:=0 to 3 do /begin 2y:=top-z; 2moveto(x,y); 2if xycolor=0 then 5begin 5if z=0 then low:=3 8else if z=1 then low:=low+12 8else if z=2 then low:=low+48 8else if z=3 then low:=low+192 5end {printit}  procedure saveit; {saves picture to disk} begin #writeln(cls); #repeat &write('Save as ',filnam,'? (y/n): '); &read(resp) #until (resp='Y') or (resp='y') or (resp='N') or (resp='n'); #if (resp='N') or (gin /writeln; /write(chr(07),'Sorry. Press any key to try again: '); /read(resp) ,end #end; {if mode=1} #write(prntr,chr(27),chr(111)); {turns end-of-page check on} #close(prntr) end; &writeln('Small picture (1/4 page)......S':56); &writeln('Large picture (1/2 page)......L':56); &writeln; &write('Your choice: '); &read(resp); &if (resp='s') or (resp='S') then smallprint )else if (resp='l') or (resp='L') then bigprint )else ,behr(62)); {left-to-right print} #write(prntr,chr(27),chr(79)); {turns end-of-page check off} #write(prntr,space); #if mode=2 then bigprint #else #begin &writeln(cls); &writeln('Printer Menu':46); &writeln; {cardprint} )  procedure printit; {controls printing} begin #writeln(cls); #write('Turn printer on and press any key: '); #read(resp); #writeln; #rewrite(prntr,'.PRINTER'); #cardprint; #write(prntr,chr(27),cwriteln(prntr,'.'); ,if (resp='b') or (resp='B') then /begin 2for x:=1 to 22 do writeln(prntr); 2writeln(prntr,'.') /end {if resp=b} )end {if resp<>t} &end {if resp=y} end; )write('Press any key to continue.'); )read(resp); )writeln; )write('Select top, middle, or bottom of page: (t/m/b): '); )read(resp); )if (resp<>'t') and (resp<>'T') then )begin ,write(prntr,chr(27),chr(65)); ,for x:=1 to 22 do writeln(prntr); ,you want to print a 1/3 page card? (y/n): '); &read(resp); &writeln #until (resp='y') or (resp='Y') or (resp='n') or (resp='N'); # #if (resp='y') or (resp='Y') then &begin )card:=true; )writeln('Position top of page at top of print head.'); (prntr,chr(high[x])); )writeln(prntr); )top:=top-8 / &end {while top>-1} end; {smallprint} procedure cardprint; {prints 1/3 page card} begin #repeat &write('Do {if color=0} /end; {for z=0 to 7} /if low=13 then low:=15 2else if low=16 then low:=8 5else if low=31 then low:=63; /high[x]:=low ,end; {for x=0 to edge} )write(prntr,line,q:4); )for x:=0 to edge do write)for x:=0 to edge do ,begin /low:=0; /for z:=0 to 7 do /begin 2y:=top-z; 2moveto(x,y); 2if xycolor=0 then 2begin 5if z=0 then low:=1 5else 8begin ;w:=1; ;for l:=1 to z do w:=w*2; ;low:=low+w 8end {if z>0} 2end } & end; {bigprint} # procedure smallprint; {this prints small picture} begin # #writeln(cls,'Scanning quarter-page picture.'); #top:=191; #q:=edge+1; #while top>-1 do &begin {else if mode=1} )end; {for x=0 to edge} )write(prntr,line,q:4); )for x:=0 to 559 do write(prntr,chr(high[x])); )writeln(prntr); )top:=top-4 &end {while top>-1 {if color=0} /end; {for z:=0 to 3} ,if low=13 then low:=15 /else if low=16 then low:=8 2else if low=31 then low:=63; ,if mode=2 then high[x]:=low /else /begin 2high[x*2]:=low; 2high[x*2+1]:=low /end resp='n') then &begin )writeln; )write('Enter new file name: '); )readln(filnam); )filnam:=concat('#5:',filnam) &end; #writeln; #writeln('Saving ',filnam); #{IOCHECK-} #GSAVE(filnam); #{IOCHECK+} #w:=IORESULT; #while w<>0 do #begin &writeln(chr(07),'Unable to save ',filnam,' on this disk.'); &write('Put a blank formatted disk in Drive 2 and press any key '); &write('to continue: '); &read(resp); &if pos(filnam,'.')=1 then )begin ,delete(filnam,1,4); ,filnam:=concat('#5/',filno &begin )hypeset; )x:=centx+hypo; )y:=centy-z; )lineto(x,y) &end end; {arctwo} procedure arcthr; {draws lower left quad} begin #if pen=0 then pencolor(black) else pencolor(white); #movetoo; )y:=centy+z; )lineto(x,y) &end end; {arcone} procedure arctwo; {draws upper left quad} begin #if pen=0 then pencolor(black) else pencolor(white); #moveto(oldx,oldy); #for z:=0 to radius dend; {hypeset} procedure arcone; {draws upper right quad} begin #if pen=0 then pencolor(black) else pencolor(white); #moveto(oldx,oldy); #for z:=0 to radius do &begin )hypeset; )x:=centx+hyp_______________|'); write('Press any key to return to picture: '); read(resp); GRAFIXON end; {help} procedure hypeset; {sets hypotenuse} begin #hypo:=round(sqrt(radius*radius-z*z)*oval) |'); writeln('T/t..........Insert text. (ESC ends text.) |'); writeln('I/i..........Inverts dot/line/grid color to erase. |'); writeln('RETURN.......Main Menu. |'); writeln('____________________________________'); writeln('L/l..........Set end of line. |'); writeln('Arrows.......Move dot. |'); writeln('8,4,6,2......Move dot quickly. |'); writeln(chr(255),'Arrows......Print dot. writeln('R/r..........Set radius point of circle. |'); writeln('C/c..........Set center of circle. (Then arc nbr.) |'); writeln('1-5..........Set arc of circle. (5 is whole circle)|'); writeln('S/s..........Set start of line. | {prints help screen} begin TEXTON; writeln(cls); writeln(' Help Screen |'); writeln(' |'); otat(oldx,oldy); #moveto(x,y); #oldcolor:=xycolor; #if oldcolor=0 then pencolor(white) &else pencolor(black); #dotat(x,y); #if pen=0 then pencolor(black) else pencolor(white) # end; {movedot} procedure help; {sets starting point of line} begin #begx:=x; #begy:=y # end; {startline}  procedure movedot; {moves cursor somewhere} begin #if oldcolor=0 then pencolor(black) &else pencolor(white); #dprocedure endline; {draws line from begx,begy} begin #if pen=0 then pencolor(black) else pencolor(white); #dotat(begx,begy); #lineto(x,y) end; {endline} & procedure startline; } begin #if pen=0 then pencolor(black) else pencolor(white); #dotat(vert,hor); #moveto(x,y); #oldcolor:=xycolor; #if oldcolor=0 then pencolor(white) else pencolor(black); #dotat(x,y) # end; {putdot} pen:=temp; #if pen=15 then pencolor(white) &else pencolor(black); #if bg=15 then fillcolor(white) &else fillcolor(black) end; {invert} & & procedure putdot (vert,hor:integer); {prints a dot on screenam) )end; &{IOCHECK-} &GSAVE(filnam); &{IOCHECK+} &w:=IORESULT #end & end; {saveit} procedure invert; {reverses colors}  begin #if pen<>bg then &begin )temp:=pen; )pen:=bg &end #else(oldx,oldy); #for z:=0 to radius do &begin )hypeset; )x:=centx-hypo; )y:=centy-z; )lineto(x,y) &end end; {arcthr} procedure arcfou; {draws lower right quad} begin #moveto(oldx,oldy); #if pen=0 then pencolor(black) else pencolor(white); #for z:=0 to radius do &begin )hypeset; )x:=centx-hypo; )y:=centy+z; )lineto(x,y) &end end; {arcfou} procedure getarc; {reads arc of cir {case} #until com=chr(32); #TEXTON # end; {plotter} procedure grid; {sets a grid on the screen} begin #x:=15*mode; #y:=15; #oldx:=0; #oldy:=0; #if (menu<>'U') and (menu<>lse if com>chr(127) then putdot(oldx,oldy) )else case com of ,'R','r':radset; ,'C','c':censet; ,'S','s':startline; ,'L','l':endline; ,'?','/':help; ,'f','F':flip; ,'m','M':ditto; ,'T','t':words; ,'I','i':invert )end )else if com='8' then y:=y+10 )else if com='2' then y:=y-10 )else if com='6' then x:=x+10 )else if com='4' then x:=x-10; &if y>191 then y:=0 )else if y<0 then y:=191; &if x>edge then x:=0 )else if x<0 then x:=edge; &if comchr(27) then #begin &x:=centx; &y:=centy; &moveto(x,y) #end {if resp<>chr(27)} # end; {censet} procedurldx:=centx-round(radius*oval); ,oldy:=centy; ,if (quad=3) or (quad=5) then arcthr; ,if quad>3 then arcfou )end #end {if resp<>chr(27)} end; {getarc}  procedure censet; &radius:=round(sqrt(leg1*leg1+leg2*leg2)); &if (quad=1) or (quad=2) or (quad=5) then )begin ,oldx:=centx+round(radius*oval); ,oldy:=centy; ,if (quad=1) or (quad=5) then arcone; ,if (quad=2) or (quad=5) then arctwo )end; &if quad>2 then )begin ,oresp<>chr(27)); {end of repeat} if resp<>chr(27) then #begin # &quad:=ord(resp)-48; &if radx>centx then leg1:=radx-centx )else leg1:=centx-radx; &if rady>centy then leg2:=rady-centy )else leg2:=centy-rady; of y-axis.'); &writeln; &write('Enter new value: '); &readln(oval); &if (oval<=0) then oval:=mode; &GRAFIXON #end; {if resp='0'} #if (resp<'0') or (resp>'5') then writeln(chr(07)) until (resp>'0') and (resp<'6') and (cle} begin repeat read(resp); if resp='0' then #begin &TEXTON; &writeln(chr(28),'You may squash or stretch x-axis to get an oval.'); &writeln('Current setting is x-axis = ',oval:3:2,' of y-axis.'); &writeln('Default for circle is x-axis = ',mode,' 'u') then &begin )write(cls,'Do you want a grid on the screen? (y/n): '); )read(resp) &end &else resp:='y'; #if (resp='Y') or (resp='y') then &begin )while x1 then filnam:=concat('#5:',filnam); #if mode=1 then grafixmode(BW280,buf) &else grafixmode(BW560,buf); #initgrafix; #fillport; #if (menu='l') or (menu='L') then oldname; ),filnam,' not found.'); &write('Press any key to return to Main Menu: '); &read(resp) #end end; {oldname} procedure newname; {sets picture name} begin #fillport; #writeln(cls); #write('Enter {if resp='Y'} ) #end; {grid} ) procedure oldname; {gets picture from disk} begin #{$IOCHECK-} #GLOAD(filnam); #{$IOCHECK+} #if IORESULT<>0 then #begin &writeln(chr(07