Category : Pascal Source Code
Archive : KPAS.ZIP
Filename : KPASCAL.TPU
Output of file : KPASCAL.TPU contained in archive : KPAS.ZIP
!
DÞ ¨  ~ w 0 C X \ Õ ªä 0RÇç -u ñ ¢| È U} ì YKPASCAL ÙxÕ ö YSYSTEM aéç YCRT Êö Õ YDOS ñ ç Q STRINGOF2&Í æ ß ß Í Q
STRINGOF80TÍ P æ ß Q ß DÍ QATTRSTRÍ æ ß ß oÍ QPOSRECÍ ¡« ¹ « RX ¹¶ ß RY ¶ ß QERRORPROCEDUREÝÍ
ß Æ ß `R
MONOCHROME þ ß R VIDEOBASE Ö ß RXYPOS Í RCURSOR þ ß R DEFAULT_ATTR ¶ ß R VARPROCERROR ÝÍ R DOSAYPROC þ ß ö RSAYENTER Í
RSAYEXIT ¾Í
SCURSORON D
S CURSOROFF _
SOC z
¶ ß ¶ ß 2SIC ¦
¶ ß ¶ ß SBSTR å
Í þ ß SRSTR ý
TÍ ¢ ß SITOS #
TÍ æ ß ¶ ß SRTOS d
TÍ ¢ ß ¶ ß ¶ ß SSTOI$ ´
æ ß TÍ ÀSSTOR( ú
¢ ß TÍ SCAPS, ?
ß ß SSTRINGOF0 w
ß ¶ ß ß Â STRIM4 «
ß ß SCLRLN8 Ô
¶ ß S DONOTHING< A
ÂSSAYATTR@ K
Í ¶ ß SSAYLEND z
Í ¶ ß SSAYH
¶ ß ¶ ß ß 0SSWRITEL ë
ß éSSWRITELNP
ß SIOCHECKT
Æ ß ~ w 0 C ' X \ Õ ªä 0RÇç -u ñ ¢| È U} ì N RREGSìÿÈý i RREGSìÿéý RCHAR ¶ ß RATTR ¶ ß °Ò RCHAR
0¶ ß RATTR 0¶ ß ÁRINTPOSþÿ0Ö ß ï RB Uþ ß RR w¢ ß RS®ÿwTÍ @O- RNUMBER æ ß RB1 ¶ ß RTEMP_STR®ÿTÍ n RNUMBER
À¢ ß RB1 À¶ ß RB2 À¶ ß RTEMP_STR®ÿÀTÍ Øè¾ R
NUMBER_STRINGªÿìTÍ RINT¦ÿìæ ß RERROR¤ÿìÆ ß 0 R
NUMBER_STRING¨ÿTÍ RERROR¦ÿÆ ß RRL ÿ¢ ß g Y RSTR ÿ0 ß IRS þ0 ß RINTþý0Æ ß RN R¶ ß RC Rß RS ÿR ß Ã RS ÿ} ß µRTEMP þ} ß ú . RY ¶ ß RXÿÿ¶ ß ÞRMINXþÿ¶ ß RMINYýÿ¶ ß ìRWIDTHüÿ¶ ß RHEIGHTûÿ¶ ß f U RATTR ä¶ ß RTEMPSTRúÿäÍ RLEN ¶ ß ã
²
d
RX -¶ ß RY
-¶ ß RMESSAGE ÿ- ß RSXÿþ-¶ ß º RSYþþ-¶ ß RATTRýþ-¶ ß ¬ RSPEEDüþ-¶ ß ì RPûþ-¶ ß ý RMINXúþ-¶ ß Î RMINYùþ-¶ ß
RWIDTHøþ-¶ ß ?
RHEIGHT÷þ-¶ ß Q
RDôþ-Æ ß .
RNòþ-Æ ß Ý RMSG_LENðþ-Æ ß r
RGXYïþ-þ ß
RCîþ-ß ¤
SWRITECHARACTERX -Ù
OWCð õ
RMESSAGE ÿX ß RMESSAGE ÿ| ß SDOERROR\ Q
ß Æ ß z RMSG ÿ' ß RCD ' Æ ß k RCHÿþ' ß [ RTFþþ' þ ß µ ¢ RIOCODEüÿ¢Æ ß RIOERRûÿ¢þ ß ¸ ( 0 8 @ H P X ` h p x ° / ¨ < S @ I ) [ ( 6 I ( E g T ` d w t \ o ¨ @ ¢ E ² ± 8 Á æ X Ò ç n 8 ó Q 0 } ø 9 ª S 0 · d H Ä ¢àÕ c KPASCAL DOS SYSTEM CRT ½\ KPASCAL.PASÈ V
é e
% r
90 y U
w À !#ì ¨ ! ² !0 ½ # IR È } Ò # Þ Q Â ì
ä ó ( ú 9²
m- #
H
"
"
' & "
" X #| #%' ¤ # ¢ /±' Ü
Uå¸ ìÇFì > tÇFð ëÇFð°P~ìW Æ ì]ËUå¸ ìÇFì ÇFð °P~ìW 0äÐ 0ä@+ÂP 0äÐ 0ä@+ÂP Æ ì]ËUå1À F0äÐF0ä¹ ÓàÂP¡ P 0äHÑàØ 0äH¹ ÷é ÃøX&ì]Ê Uå¸ ì 0äHÑàØ 0äH¹ ÷éÃFþ¡ PFþ ø&Ä~
&¡ PFþ @ø&Ä~&ì]Ê TRUEFALSEUå1À ~ t¿ WÄ~W¸ P ë¿ WÄ~W¸ P ì]Ê Uå¸R ìRÿv
ÿvÿv1ÀP¸ P~®W¸P P F®0äø{®0uþN®ëîF®0äø{®.uþN®~®WÄ~ W¸P P ì]Ê Uå¸R ìR~ uÿv
ÿv1ÀP~®W¸P P ëÿv
ÿvF0äP~®W¸P P ~®WÄ~ W¸P P ì]Ê Uå¸R ìR~ u'~ u!ÿvÿv ÿv
¸ P¸ÿÿP~®W¸P P ë#ÿvÿv ÿv
F0äPF0äP~®W¸P P ~®WÄ~W¸P P ì]Ê
Uå¸\ ì\Ä~W~ªW¸P P ~ªW~¤W F¦V¨~¤ t
ÇF¦¡ÇF¨ÿÿÄF¦ÂFüVþÄFüÂì]Ê Uå¸` ì`Ä~W~¨W¸P P ~¨W~¦W F ^¢V¤~¦ tÇF iåÇF¢ÕÇF¤¿ÖF ^¢V¤Fú^üVþFú^üVþì]Ê Uå¸ ìÄ~W¾ ÿW¸ÿ P Æ þ ÿ0äüý¸ ;üýSþýëÿþý¾üûW¾ þW ¾üüW¾þý ÿP P ¾ þW¸ÿ P þý;üýu³¾ þWÄ~
W¸ÿ P ì]Ê Uå¸ ì ¾ÿWF0äPFP F ÿ¾ ÿWÄ~
W¸ÿ P ì]Ê ÿÿÿÿ Uå¸ ì Ä~W¾ ÿW¸ÿ P ¾ ÿW¾ þW¸ÿ P ¾ þ v8 þ0äø þP¿ W t ¾ þ v¾ þW þ0äP¸ P ëȾ þWÄ~
W¸ÿ P ì]Ê Uå¸ ì> tÿ 0ä@Fþ 0ä@FýFþ0äÐ 0ä+ FüFý0äÐ 0ä+ FûFüFú°:FúwuFÿëþFÿFÿ:Füw]~ÿrWF:FûwO~rI 0ä¹ Óà P¡ PFÿ0äÐFþ0äÂ- ÑàØF0äÐFý0äÂ- ¹ ÷é ÃøX&Fÿ:Fúu> tÿ ì]Ê Uå1À ì]Ë`aUå¸ ìF0ä1ÒRP¸ P~úW¸ P ¾úþW¿ W ~úW ~úW¸ P ~úWÄ~W¸ P ì]Ê `lUå¸ ì ¾ þW¿ W ¾ ÿWF0ä1ÒRP°Pè Ä~W¸ P ì]Ê Uå1À ~6 îþ0äÐ~6 ýþ0ä¹ ÓàÂP¡ P~6 ÿþ0äÐ~6 úþ0äÂ- ÑàØ~6 þþ0äÐ~6 ùþ0äÂ- ¹ ÷é ÃøX&ì]Ê Uå¸ ìÄ~W¾ ÿW¸ÿ P > tÿ Æüþ Æïþ 0ä@úþ 0ä@ùþúþ0äÐ 0ä+ øþùþ0äÐ 0ä+ ÷þ ýþ~ u ~
uÆïþ~ u F ~
u F
ÿ0äðþF ÿþ¾ÿþZsé ÿíþ°:íþwpûþëþûþûþ0äø» ÿ`uMûþ0ä@ø» ÿ`t=ûþ0ä@ø ÿP
uÆüþPëF= uÆüþdë:= uÆüþxë.= uÆüþë"= uÆüþ ë= uÆüþ´ë
= uÆüþ é
File not openFile not open for inputFile not open for outputInvalid numeric formatDisk is write protected Unknown unitDrive not readyUnknown commandCRC Error in dataDisk seek errorUnknown media typeSector not foundPrinter out of paperPrinter not readyDevice read faultHardware failure
Unknown errorUå¸ ì Fü~ü u° ë°Fû~û ué8Fü= u¿ Wÿvüÿ é!= u¿ Wÿvüÿ é
= u¿ Wÿvüÿ éù= u¿ Wÿvüÿ éå= u¿ Wÿvüÿ éÑ= u¿ Wÿvüÿ é½= u¿ Wÿvüÿ é©= u¿ Wÿvüÿ é= u¿ Wÿvüÿ é=d u¿ Wÿvüÿ ém=e u¿ Wÿvüÿ éY=f u¿ Wÿvüÿ éE=g u¿ Wÿvüÿ é1=h u¿ Wÿvüÿ é =i u¿ Wÿvüÿ é =j u¿ Wÿvüÿ éõ = u¿ Wÿvüÿ éá = u¿ Wÿvüÿ éÍ = u¿ Wÿvüÿ é¹ = u¿ Wÿvüÿ é¥ = u¿ Wÿvüÿ é = u¿ Wÿvüÿ ë~= u¿ Wÿvüÿ ëk= u¿ Wÿvüÿ ëX= u¿ Wÿvüÿ ëE= u¿ Wÿvüÿ ë2=¡ u¿ Wÿvüÿ ë =¢ u¿ Wÿvüÿ ë ¿ Wÿvüÿ FüFþFþì]ËUå1ÀP¿I&$<uÆ ëÆ > tÇ °ëÇ ¸Æ ¸ º £ Æ ¢ è Æ Æ ì]Ë 0Ð
0 / 5 0Ð
0 ! &
- 6 = 0 F L 0Ð # - 0Ð ) ? 0Ð P 00 * P 1 00 ? 0Ð 0ä ( 00 ] 0Ð 0 ' 0 C 00 V 0Ð 0ä 5 0ä Z 00 m 0Ð 00 0 , 0Ð 00 0è , 0Ð 00 0, R 0h f 0H l 0< q 00 00 0Ð 0p 00 ; 0Ð ' 00 ? 00 T P` m 0` r 0T 00 § 0Ð #
3 G × Þ 0Ð 0Ð
0 ) Px 4 0, 9 0< C 00 Q 00 d 0Ð
P 0, 6 0< 9 00 G 0Ð ) 0Ð 00 % , 9 C
U k y 0 0 ¥ 0h 0H 0H 00< 50 @0h S0 Ö Û0è à0È å0 ê0 ó X ÷ X ¸ X X O0H `0 0Ð 00 H 1 0Ð 00 $ 0, ; P @ 0< E H K 0Ð 00 0L ( 0H 1 0P 6 0 ; 0 D 0 M 0 V 0Ð 60Ä > P° f o P° z P° P° 2 ¢ « P° E ¶ ¿ P° Y Ê Ó P° r Þ ç P° ò û P° § P° Ã # P° Ó . 7 P° ä B K P° ö V _ P° j s P° ~ P° 5 P° L¦ ¯ P° dº Ã P° qÎ × P° â ë P° ö ÿ P° £
P° ³ & P° Æ0 9 P° ×C L P° ìV _ P° þi r P° | P° ! ! ( 0 6 \ : \ = @
D H L O S W \
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
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/