Category : Pascal Source Code
Archive   : VPAL10.ZIP
Filename : VGAPAL70.TPU

 
Output of file : VGAPAL70.TPU contained in archive : VPAL10.ZIP
TPUQâ`ß 
??OOoƒ‰œ/
`f =Ôœ~çM…à­Ê·â|÷b
-‡X£SVGAPal70Å?÷
SSystem
Ä
SDOS'ç÷PColType=î R)îQSColor=îQ pcxfilename¢R SetPalBlackÝ
R SetPalWhite÷
R
SaveColorFrom
*R FadeColorTo <
**RFadeInPalBlack( 
*RFadeInPalWhite0x 
*RFadeOutPalBlack8Û 
*RFadeOutPalWhite@:

*RSavePalH™

RRestPalP£

øR SwitchColX­

**)R
CyclePalAhead`+ 
R CyclePalBackh‡ 

R
CycleColAheadpã 
**\R CycleColBackxa 
**R
Read256PCX€u
¢~s¼çMï£à­Ê·¿â|÷‚b
-J°@&X ÖPPalTypeâî ÿR¿Îî‡Q SavePaletteâîQ TempPaletteâîQ ColrPaletteâîòQ SetCPalette âî£Q
TempPalPtr ®QScratch ®ZQ Repeatcount …Q
Datalength
>Q Video_index >‰Q
File_error rQ Page_addr >ObuffsizeRñÿR Copyright€ˆ@
RDEPCX€k
EU/QPFN"°ÿ¢Qx¯ÿ‘Qgun®ÿ¡Qpcxcode­ÿQpcxfile,ÿŠ³Q
palette_start(ÿRQ
total_read$ÿRÉQ palette_flag#ÿßQversion ÿ>QYÿ*ûRBailOut˜x
RWritePal ¦
RReadPal¨Ó
çQXþÿ|*QXþÿ£*,QOC"Ê*QXþÿÊ* ÍáõQOC"ø*FQSpeed"ø*PBTypeŒî RkxîkPRType½î Rœú©îQTempXüÿøŒîQStepsêÿø½îœQXèÿø*WQYæÿø*d S 3 QSpeed")*QXþÿ)* QYüÿ)*QSpöÿ)úC QCountðÿ)úÇ ¶ – QSpeed"X*QXþÿX*‚ QYüÿX*QSpöÿXú¦ QCountðÿXú
)
ù QSpeed"‡*QXþÿ‡*å QYüÿ‡*QZúÿ‡*
QSpôÿ‡úh
ˆ
X
QSpeed"·*QXþÿ·*D
QYüÿ·*QZúÿ·*x
QSpôÿ·ú·

 QAA"-*QBB"-*PBTypeú
î RÙ
æ
îÈ
QTXüÿ-ú
îÙ
QXúÿ-*f w PBTypeV î R5 B îQTXüÿ\V î5 QXúÿ\*Â Ó PBType² î R‘ ž îQTXüÿ…² î‘ QXúÿ…*í @ Q QAA"­*QBB"­*PBType0 î R  îþ QTXüÿ­0 î QXúÿ­*k ¾ Ï QAA"à*QBB"à*PBType® î R š î| QTXüÿà® î QXúÿà*¨08@HPX`hpx€ˆ˜  (P?820@%XP=‡@¸H8ëH8F °°)ÂPK÷`d®`ð€›"(º"(Ê~8Ú’xòxéx+æxI=HgT „SystemDos4VGAPal70¯L VGAPAL70.PAS34M:<#Uij
`o++

 
-
 ‚›œ%
°ÂÃ'
|ëî 
£øû 
Ê
ø
#!7 
IG  )04
$
* XBF$

7 ‡X\

*·ko


* 烄

‰Š
-• 
\¢¨
…¹¿­Ñ× 

àêð 


 âM b |£Êø)X‡·ç
-\…­à¿"ò% &&'@(Z)s*‰+£,¼-Ö.ï/13J:`‘b¡b³bÉcßdûde/fEgUi‚›°Â|ëçí£øúÊ,øFWkœÍáõ )0 3 2C 2S 3d 3XB‚ – D¦ D¶ EÇ E‡Xå ù Z
Z
Z)
[·kD
X
mh
mx
mˆ
nçƒ
‰-·


‘
“ ”\¢5 ¤f ¦w §…¹‘ » ½Ó ¾­Ñí þ  Ó@ ÕQ Öàêk |  ì¾ îÏ ï趍¶"Ù)Ù*¶+´,´-œ.´/¶bßd¶e´fgòk!lcqmrœs¥t:u}vPw¥zð|©~}…b†@ˆzŠ©Œ}¥‘}“íþôôúþ¶H)*02H3;BDHEQXZH[za¥bzekmHnzx¥yz|¶‘”¶¤§¶»¾@ɍѶӍ֍ê¶ìïAþþâ ` ¿%¿&¿'¿(ï=¼>‰@£AsC¼\‰]ÉksllïpÉqqÉrÖsÖtsuuÉv/vÖw/wÖxUzß|É|É~û‰¼‚É…s……£…û†£†û‡ß‡£ˆûˆßˆJ‰ÉŠûŠßŠÉŒßŒÉÖŽŽÖU‘É“@“E”@–E–U˜Z«ZÓ°ïçð@òçò ò ô‚õ°üý@ÿÿ ÿ ‚° 
, M
,
 

kœ°Fõ õFMÍõ FMÍ õ M   F á!õ!Í!W!Í"õ" "F"õ$W$ &Í( (M( ) )F)Í)á)õ) * *F*Í*á*õ*‚,d 5 5S 6C 7 73 9 ;3 ;@;S ;‚=S >d >Ç G‚ G¶ H– I&K– K@K¦ M‚ M– O Q– Q&Q¶ Q‚S¶ TÇ T
])
^å ^
_
a)
a
bù c eù e)
e‚gx
pˆ
qD
qX
r&tX
t th
vx
xˆ
xx
yX
z&|X
|ˆ
| }X
}&}‚°…ò† † ‹ò‹‚ŒÙ
“°–·
—È
˜ ™
› › ›·
› œ·
œ œÈ
œ È
 
‚Ÿ5 ¦°©f ª ªf « «f ¬ ¬w ­ ¯w ¯ °w ° ±w ± ³f ³ ´f ´ µf µ‚¶‘ ½°À Á Á Â  à ÃÓ Ä ÆÓ Æ ÇÓ Ç ÈÓ ÈÓ ÉÓ Ê Ë Ë Ì Ì Í Í‚Î Õí Øþ Ù°Ú@ Û Ûí Û@ Ü Üí Ü@ Ý Ýí ÝQ Þí Þþ Þ àQ à áQ á âQ â äþ ä@ ä åþ å@ å æþ æ@ æ‚ç îk ñ| ò°ó¾ ô ô| ô¾ õ õ| õ¾ ö ö| öÏ ÷| ÷k ÷ ùÏ ù úÏ ú ûÏ û ýk ý¾ ý þk þ¾ þ ÿk ÿ¾ ÿ‚Z ò ëM
Portions copyright (c) 1993 RAM Software Development All rights reserved.΋>1Ɋ‹Å6óü9Þt¬€ù
<Àr4ÀˆÁëìªëéóªëå‰>ˆÃU‰å1Àš‹~Ç,ÿWššÿ6ÿ6¸ñÿPš]ÂU‰å¸âšìâŒÓŽÃŒÛü~°Åv¬t鶸ñÿPš£‰¾,ÿW¾ ÿW¸P1ÀPPšš€¾!ÿ°s@¢€>tUèém¾,ÿWšš-ƒÚ‰†(ÿ‰–*ÿ¾,ÿW¸€1ÒRPššÇ†$ÿ€Ç†&ÿÆ1À£¾,ÿWÄ>W¸ñÿP¿Wšš¡1Ò†$ÿ–&ÿ‹†$ÿ‹–&ÿ;–*ÿ|;†(ÿv‹†$ÿ‹–&ÿ+†(ÿ–*ÿ)荾,ÿWššÀu‹†$ÿ‹–&ÿ;–*ÿ |ƒ;†(ÿsézÿ¾,ÿWÿ¶*ÿÿ¶(ÿšš¾,ÿW¾#ÿW¸P1ÀPPšš€¾#ÿ °t@¢€>tUèëL¾,ÿW¿W¸P1ÀPPšš1À‰†ÿëÿ†ÿ‹¾ÿŠ…0ä¹Ó苾ÿˆ…¾ÿÿuÝUè‰ì]ÊU‰å1ÀšU‰åVúºÚì¨uûì¨tû‹6ºÈ°îB¹ŠîFŠîFŠîFâòû^]]ÃU‰å1ÀšU‰åVúºÚì¨uûì¨tû‹6ºÈ°îB¹ƒîˆìFˆìFˆìFâòû^]]ÃU‰å¸šƒìè1À‰FþëÿFþ‹~þŠ…‹~þˆ…~þÿuè¿W¸P°Pšè‰ì]ËU‰å¸šƒìè1À‰FþëÿFþ‹~þŠ…‹~þˆ…~þÿuè¿W¸P°?Pšè‰ì]ËU‰å¸šƒìè‹F‹ðÑàð‰F1À‰FþëÿFþ‹FFþ‹øŠ…‹~þˆ…ƒ~þuä‰ì]ÊU‰å¸šƒìè‹F‹ðÑàð‰F1À‰FèëÿFè‹FèF‹øŠ…‹~è:…v#‹~芅0ä‹Ð‹FèF‹øŠ…0ä+‹~èˆCüë!‹FèF‹øŠ…0ä‹Ð‹~芅0ä+‹~èˆCü‹F™šRSP‹~èŠCü0ä1ҚY^_š‹~èÑç‹÷Ñç÷‰Cê‰[ì‰Sî‹FèF‹øŠ…‹~èˆCüƒ~ètéRÿ‹F‰Fä1À;Fä~éȉFèëÿFè1À‰FæëÿFæ‹~æŠCü‹~æ:…vI‹F虚‹~æÑç‹÷Ñç÷‹Kê‹sì‹{‹È‹Ú‹~æŠCü0ä1Ò+ÁӊЋFæF‹øˆ•ëG‹F虚‹~æÑç‹÷Ñç÷‹Kê‹sì‹{‹È‹Ú‹~æŠCü0ä1ÒÁӊЋFæF‹øˆ•ƒ~ætéUÿè‹Fè;Fäté=ÿ‰ì]ÊU‰å¸šƒì‹F™šRSP¸1Û1ÒY^_š‰Fð‰^ò‰VôÇFöÇFøÇFú‹F‰Fî1À;Fîn‰FüëÿFü1À‰FþëÿFþ‹~þŠ…0ä1Қ‹Nö‹vø‹~úšš‹~þˆ…~þÿuÌè‹Fö‹^ø‹Vú‹Nð‹vò‹~ôš‰Fö‰^ø‰Vú‹Fü;Fîu—‰ì]ÊU‰å¸šƒì‹F™šRSP¸1Û1ÒY^_š‰Fð‰^ò‰VôÇFöÇFøÇFú1À‰FþëÿFþ‹~þŠ…0ä‹Ð¸?+‹~þˆ…~þÿuߋF‰Fî1À;Fî{‰FüëÿFü1À‰FþëÿFþ‹~þŠ…0ä1Қ‹Nö‹vø‹~úšš‹È‹Ú¸?1Ò+ÁӋ~þˆ…~þÿu¿è‹Fö‹^ø‹Vú‹Nð‹vò‹~ôš‰Fö‰^ø‰Vú‹Fü;FîuŠ‰ì]ÊU‰å¸ šƒì ÇFú?‹F™š¹zq¾=
¿×#š‰Fô‰^ö‰Vø1À‰FüëÿFü‹Fú™š‹Nô‹vö‹~øšš‰Fúƒ~úëD1À‰FþëÿFþ‹~þŠ…0ä1Қ‹Nô‹vö‹~øšš‹~þˆ…~þÿuÌèƒ~ü?u’‰ì]ÊU‰å¸ šƒì ÇFú?‹F™š¹zq¾=
¿×#š‰Fô‰^ö‰Vø1À‰FþëÿFþ‹~þŠ…0ä‹Ð¸?+‹~þˆ…~þÿuß1À‰FüëÿFü‹Fú™š‹Nô‹vö‹~øšš‰Fúƒ~ú}ë^1À‰FþëÿFþ‹~þŠ…0ä1Қ‹Nô‹vö‹~øšš‹~þˆ…‹~þŠ…0ä‹Ð¸?+‹~þˆ…~þÿuµèƒ~ü?téxÿ‰ì]ÊU‰å1Àšè¿W¿W¸Pš]ËU‰å1Àš¿W¿W¸Pšè]ËU‰å¸šƒìè‹F‹ðÑàð‰F‹F‹ðÑàð‰F1À‰FúëÿFú‹FFú‹øŠ…‹~úˆCü‹FFú‹øŠ•‹FFú‹øˆ•‹~úŠSü‹FFú‹øˆ•ƒ~úu»è‰ì]ÊU‰å¸šƒì蠈Fü ˆFý ˆFþ1À‰FúëÿFú‹Fú‹øŠ•‹Fú‹øˆ•‹Fú‹øŠ•‹Fú@‹øˆ•‹Fú‹øŠ•‹Fú@@‹øˆ•~úüu±ŠFü¢ŠFý¢ŠFþ¢è‰ì]ËU‰å¸šƒì蠈Fü ˆFý ˆFþÇFúÿ‹Fú-‹øŠ•‹Fú-‹øˆ•‹Fú-‹øŠ•‹FúH‹øˆ•‹Fú-‹øŠ•‹FúHH‹øˆ•ÿNúƒ~úu²ŠFü¢ŠFý¢ŠFþ¢è‰ì]ËU‰å¸šƒì‹F‹ðÑàð‰F‹F‹ðÑàð‰Fè‹F‹øŠ…ˆFü‹F@‹øŠ…ˆFý‹F@@‹øŠ…ˆFþ‹F‰Fø‹F;FøU‰FúëÿFú‹Fú‹øŠ•‹Fú‹øˆ•‹Fú‹øŠ•‹Fú@‹øˆ•‹Fú‹øŠ•‹Fú@@‹øˆ•‹Fú;Føu°ŠVü‹F‹øˆ•ŠVý‹F@‹øˆ•ŠVþ‹F@@‹øˆ•è‰ì]ÊU‰å¸šƒì‹F‹ðÑàð‰F‹F‹ðÑàð‰Fè‹F‹øŠ…ˆFü‹F@‹øŠ…ˆFý‹F@@‹øŠ…ˆFþ‹F‰Fø‹F;Fø|R‰FúëÿNú‹Fú-‹øŠ•‹Fú‹øˆ•‹FúHH‹øŠ•‹Fú@‹øˆ•‹FúH‹øŠ•‹Fú@@‹øˆ•‹Fú;Føu³ŠVü‹F‹øˆ•ŠVý‹F@‹øˆ•ŠVþ‹F@@‹øˆ•è‰ì]ÊU‰å1Àšè¸ŒÚ£‰¿W¸P°Pš¿W¸P°Pš]ː   
  8 <0 0`0  #0*0  -0H=0PL0ˆQ ] a0n s w0˜Ž0“ ¢ ¦˜­0¸¹0¾0¨Þ0ã õ û 
0˜0

QT0À]0b0¨’0—0˜°0µ Đ Șϐ Ú0˜ç0ì  ˜0  0  0 ¨  '10à= B0 ¨  '10à= B0 ¨180 ¨18AQit0˜…0˜—0ˆŸÁÿ0˜0€!0¨&H0˜Q0€j0¨o‘ 0 0˜0ˆ% e0˜l0€z0¨ˆ ’0p§0 0˜0ˆ% P`0˜”0€¢0¨§½ Ç0pÜ0 0˜0€&0˜B0€P0 Us0˜z0€ˆ0 –  0 0˜0€&BR0˜j0€x0 }›0˜¢0€°0 µ¾ÅÕ ß0 ¨ 0 0  0  0 ¨=O[m v0 ¨7COYepý}þƒÿ‰ Œ0 ¨ýþÿ2>JT`kz€† ‰0 ¨'3@Ns‹•¡¬ÃÐÞ á0 ¨'3@NsŠ”ž©ÀÍÛ Þ0 ˆ   0à&+0à7

  3 Responses to “Category : Pascal Source Code
Archive   : VPAL10.ZIP
Filename : VGAPAL70.TPU

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/