home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 2 / AACD 2.iso / AACD / Programming / fpc / doc / ref / img81.gif < prev    next >
Graphics Interchange Format  |  1998-09-25  |  2.8 KB  |  530x202  |  1-bit (2 colors)
   ocr: var - - Longint; p: - Longint - i pP : arrayl [0.. 1 100] af Longint; begin far i 0 ta 100 da pplil:= i; I Fill array 1 i Oppl0]; i Let p point to pp J far i : 0 ta 100 da if PlIk>PPli] then WriteLn ('D Dhoh, problem !') end.