TPS3LWz1d:\program\COFFE.EXED:\PROGRAM\COFFE.PASD:\PROGRAM\CRT.PASD:\BP7\RTL\BGI\GRAPH.PASD:\PROGRAM\SYSTEM.PASA(TPUQ` 1YYdfllX\b` m 9  ) A Y q ^      b    H R R R  R R    ! " r  # >  >WAbs WAddr@VAppend|8WArcTanlVAssign(WAssignedV BlockReadV BlockWritePBooleanrVBreakPBytePByteboolPCharVChDirpWChr8VClose4PCompKWConcatVContinueAWCopy WCosh}WCSegH@VDecVDelete$VDisposePDoublecWDSegL@#WEofWEoln VErase<WVExcludeoVExitHWExpt@PExtendedVFailOFalserWFilePosWFileSizeIVFillCharXVFlushWFracVFreeMemPVGetDirl.VGetMemLbVHaltDpWHiWHighzVInc VIncludePVInsert WInt`bPInteger*xWIOResult@XWLengthWLnp:WLoWLowPLongboolPLongintRVMarkWMaxAvail@OMaxIntRO MaxLongintRZMemWMemAvail@ZMemLR-ZMemW>SVMkDirtVMove\GXNew9WOdd0FWOfs@@[ OpenString_WOrd4UW ParamCountWParamStrPPChartWPi!PPointerYPortYPortWWPosWPred,jWPtr<WRandomV Randomize`VRead #VReadLn<PRealVReleaseVRename@6VReset,VRewrite0VRmDirxWRound|VRunError}VSeek8xWSeekEofmWSeekEoln.WSegD@V SetTextBufPShortintWSindPSingleTWSizeOfXWSPtrT@WSqr$WSqrt\WSSegP@-VStrdWSucc(WSwapPTextOTruerTWTruncx7VTruncateT^WTypeOf@WUpCaseHVValh2PWord>PWordboolAVWriteVWriteLnSSystem $Q OvrCodeList>Q OvrHeapSize>Q OvrDebugPtrQ OvrHeapOrg>Q OvrHeapPtr >aQ OvrHeapEnd >Q OvrLoadList>kQ OvrDosHandle>jQ OvrEmsHandle>QHeapOrgQHeapPtrQHeapEndQFreeList JQFreeZero$Q HeapError(& QExitProc,QExitCode0*Q ErrorAddr2Q PrefixSeg6>Q StackLimit8>bQInOutRes:* QRandSeed<RQ SelectorInc@> QSeg0040B>/QSegA000D>= QSegB000F>{QSegB800H> QTest8086JT QTest8087K QFileModeL QInput QOutput Q SaveInt00IQ SaveInt02 Q SaveInt1B! Q SaveInt21 l Q SaveInt23zQ SaveInt24Q SaveInt34A Q SaveInt35W Q SaveInt36  Q SaveInt37$+ Q SaveInt38( Q SaveInt39,Q SaveInt3A0Q Q SaveInt3B4i Q SaveInt3C8 Q SaveInt3D< Q SaveInt3E@ Q SaveInt3FD Q SaveInt75H==7>.I888888888/A]y*@a+BOC`p;\x`FXDXep`XXe PPPP<E '.PPP28`X$  :X88KHHZQPPPT88A"&*2 ^@@c(y3  @@D@q@hhhh8PM\ep( (00j8 8(<HTHP&PVP{PXX^XX(00Akc [@8A0C&(rPH(h8w(g(%HHHJPt  (k `@LXspPG0|z8FLN LSystem.( SYSTEM.PASMAIN.OBJHEAP.OBJERRC.OBJEI86.OBJEI87.OBJEM86.OBJEM87.OBJF87H.OBJOBJH.OBJDF87.OBJTCTL.OBJTGPC.OBJTCHR.OBJTPCH.OBJTSTR.OBJTBOL.OBJTINT.OBJTF48.OBJTF87.OBJTFUN.OBJFCTL.OBJFDIR.OBJCINT.OBJCF48.OBJCF87.OBJPARS.OBJDIRH.OBJVARH.OBJLONG.OBJLOVF.OBJSTRH.OBJSETH.OBJTFIO.OBJFP48.OBJF48H.OBJF48F.OBJRAND.OBJDINT.OBJDF48.OBJSINT.OBJSF48.OBJSF87.OBJFFUN.OBJMEMH.OBJCHAR.OBJDMTH.OBJLAST.OBJTPUQ`/!W$g$$$$$$$BJ`*5GA~n* n , :!0lh~p6^uKHc`}j }  {=d /a SGraphҌSSystem OgrOkRO grNoInitGraphRO grNotDetectedROgrFileNotFoundROgrInvalidDriverRO grNoLoadMemRO grNoScanMemRO grNoFloodMemROgrFontNotFoundRO grNoFontMemRO grInvalidModeROgrErrorRO grIOerrorRO grInvalidFontROgrInvalidFontNumROgrInvalidVersionRO CurrentDriverRODetectROCGAROMCGAR6OEGAR!OEGA64R0OEGAMonoROIBM8514ROHercMonoROATT400ROVGAR OPC3270R O LastDriverNumR LOCGAC0ROCGAC1R=OCGAC2ROCGAC3R+OCGAHiROMCGAC0ROMCGAC1ROMCGAC2ROMCGAC3ROMCGAMedR^OMCGAHiR'OEGALoRwOEGAHiROEGA64LoROEGA64HiRO EGAMonoHiRO HercMonoHiROATT400C0ROATT400C1R~OATT400C2ROATT400C3RO ATT400MedROATT400HiROVGALoROVGAMedROVGAHiROPC3270HiRO IBM8514LORO IBM8514HIRIOBlackROBlueROGreenROCyanRORedRkOMagentaROBrownRO LightGrayRODarkGrayRO LightBlueR O LightGreenR O LightCyanR [OLightRedR O LightMagentaR OYellowRmOWhiteR OEGABlackR6OEGABlueROEGAGreenROEGACyanROEGARedRO EGAMagentaR!OEGABrownRO EGALightgrayR5O EGADarkgrayR8O EGALightblueR9O EGALightgreenR:O EGALightcyanR;O EGALightredR<OEGALightmagentaR=O EGAYellowR>OEGAWhiteR?OSolidLnRODottedLnROCenterLnRODashedLnRO UserBitLnRO NormWidthRO ThickWidthRO DefaultFontRO TriplexFontRO SmallFontRO SansSerifFontRO GothicFontR9OHorizDirRJOVertDirRO UserCharSizeROClipOnOClipOffuOTopOnOTopOffO EmptyFillR6 O SolidFillROLineFillROO LtSlashFillR O SlashFillRO BkSlashFillRO LtBkSlashFillR O HatchFillRcO XHatchFillR OInterleaveFillR NO WideDotFillR O CloseDotFillR OUserFillR O NormalPutR OCopyPutR OXORPutROOrPutRC OAndPutR ONotPutRYOLeftTextRs O CenterTextRO RightTextRO BottomTextROTopTextRpO MaxColorsR P PaletteType   QSize QColors  R PLineSettingsTypeD , P Z Z Q LineStyleD r >QPatternD >r Q ThicknessD >: PTextSettingsType   $  QFont >Q Direction >QCharSize  > QHoriz $ > QVert >PFillSettingsTypeO 7 [ e { e QPatternO { >QColorO > PFillPatternType R  P PointType   QX *QY *P ViewPortType% 1;n;Qx1%L*Qy1%]*LQx2%n*Qy2%*]QClip%r P ArcCoordsType QX*QY*QXstart*QYstart*QXend*QYend * QGraphGetMemPtr`QGraphFreeMemPtr4R GraphErrorMsg * R GraphResult *R DetectGraph **$R GetDriverName  X R InitGraph( **JRRegisterBGIfont0 *RRegisterBGIdriver8 *RInstallUserDriver@ *RInstallUserFontH *RSetGraphBufSizeP >}R GetMaxMode X *R GetModeRange` ***R GetModeNameh * R SetGraphModep * R GetGraphModex *R GraphDefaults ( RRestoreCrtMode  R CloseGraph %RGetX *RGetY *fRGetMaxX *RGetMaxY *I R ClearDevice DR SetViewPort ****r"RGetViewSettings %JR ClearViewPort y R SetVisualPage  > R SetActivePage  >RPutPixel  **>RGetPixel  >**R SetWriteMode  *RLineTo **RLineRel **RMoveTo **HRMoveRel **KRLine  ****HRGetLineSettings( D -R SetLineStyle0 >>>!R Rectangle8 ****RBar @ ****RBar3D H ****>rRDrawPoly P >" RFillPoly X >RGetFillSettings` O RGetFillPatternh  R SetFillStylep >>RSetFillPatternx  >QR FloodFill  **>PRArc **>>>R GetArcCoords   RCircle **> REllipse  **>>>>R FillEllipse  **>>RGetAspectRatio >>RSetAspectRatio >>RPieSlice **>>>7 RSector  **>>>>R SetBkColor >RSetColor  >R GetBkColor >ORGetColor >R SetAllPalette  R SetPalette >R GetPalette  RGetPaletteSize  *:RGetDefaultPalette  d R GetMaxColor  >R SetRGBPalette  ****R ImageSize( >****\RGetImage 0 ****$RPutImage8 **>RGetTextSettings@  ROutTextH  R OutTextXY P ***RSetTextJustifyX >>R SetTextStyle` >>>RSetUserCharSizeh >>>>PR TextHeightp >N R TextWidth x >@xp(0H  (HH-HWH?HJ08H@HPH:HTH H#Xh`pHHHH8HH.HVHFHHnHHPU (08@HPX`hHLHQHHHHHHHHHH^HdxHHHHfHHHHHH)HHx6`6.dd 8/K .K7`#)<t{ 8' -X  Pc`)+0F:(G + \83 !:"!\500B(648eHU= AB0.""%hXY,|X , SystemGraphIs3\BP7\RTL\BGI\GRAPH.PAS GRAPHPAS.OBJ BGIOVRPAS.OBJ TPUQ`:RRbbu`~9~TjvO_Rwx)=L%SCrtSSystem OBW40ROCO40ROBW80ROCO80ROMonoROFont8x8ROC40ROC80ROBlackRhOBlueROGreenROCyanRORedR5OMagentaROBrownRO LightGrayRODarkGrayRO LightBlueR O LightGreenR O LightCyanR OLightRedR O LightMagentaR OYellowROWhiteROBlinkRQ CheckBreakrQCheckEOFrQ DirectVideorQ CheckSnowrQLastMode>UQTextAttrQWindMin>&QWindMax >R AssignCrt  ER KeyPressed  rRReadKey  RTextMode  *RWindow ( RGotoXY 0 RWhereX 8 RWhereY @ RClrScr H RClrEol P dRInsLine X RDelLine ` R TextColor h $RTextBackground p RLowVideo x R HighVideo  R NormVideo  RDelay  >RSound  >9RNoSound  <Q(BZ`fm  .H; SystemCrt CRT.PASCRT.OBJTPUQ`qyq `q 7~Y +@Sgraph_1SSystem SgraphҌScrt Qdetect*Q keypressed*Q graphmode* q  SystemGraphCrtgraph_1z1 COFFE.PAS  "*""3"""   *              +@Y<:}}} } } } }}}}}}}}}}}}}}}}}}} }!}"}#}$}%}&}'}(})}*}+},}-}.}/}0}1}2}3}4}5}6}7}8}9}:};}<}=:>}?}@}A}B}C}D}E}F}G}H:I}J}K}L:M}N}O}P:Q}R}S}T:U}V}W}X:Y}Z}[}\}]:_}`}a}b}c}e:f}g}h}i:j}k}l}m:n}o}p}q:r}s}t}v:w}x}y}z:{}|}}}~:}}}:}}}::}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}:}}}}u+Y