IMD 1.17: 14/12/2009 9:46:38 pascal-80 software package for iPDS part no. 114265-001 version 2.1 intel 1979, 1980    0ISIS.PDS VOL1ISISPDS M 04 1      *DM *DMՊ:(>ͪ*#"#:%<>!6V!6:f:2!"&:!&ϋ0:22>!ҫ:2!6:22ÿ:2!6:22@:ڄ!6F*DMW!6E*DM͝::2(:2):0: -S%>/&.%xG0:=-%%DAH>/#Vy aɀ!~ „6+4Å4* ".×.*n!qr+s+q+p++yqOk!q#w»>2r:׈Cڈσ:r=2rɈ͟ H=11H CBY 0 TO 200H CBY 0 TO 100`(9^JDIAGNOSTIC TESTING COMPLETED 0123456789ABCDEF ISIS-PDS, V0.11 E/ISISPDS  H |DISK ERROR NON SYSTEM DISK BAD LOAD FORMAT DRIVEH C STATUS=10!":w! 6D|ۋ: DHU!"!ҋU*"*"6! 6#~D>{!">!ϋڑ*< NV*"n:¡!6æ!6!">!ϋ܁:͋0 a̓ w*"Ҭ! 6ц:2 :2:2aN62*//:(2:)2:*2>Oͪ*&"&r>>!.r+s+p+q!"/-/ͷ{* */+*+w*#"*/"/G!m6:җ!'"4!36â!"4!36/*4DM͐!16>!1І*1&)))) ~¢!26>!2*2& *1&)))) *2& yyï2  .Q/Q@# l#X:s_۰ڇ vvʉ۰ڇʘ۱w#‡ ʲ#Þ:s_۰ ¼¼ӰӰӰ>C=҉۰ʉ#ß۰~ӱ# TO 2O0H=H 730 NNlBY 0 TO 200H CBY 0 TO 100H=11H CBY 0 TO 100H CBY 0 TO 100H=11H CBY 0 TO 100H CBYTE 100H TO 200H = 00 CBYTE 100H TO 120H ;CHECK MEMORY FOR CODE LOAD CBYTE 100H TO 200H = 00*>& yL*?& |Ll_!<6#6݋Pv!s+p+q+q+q+p+q!6:!ک**&͘Z !:O* w**&͘"!4f!6*&*~0:=O:H*&*:w!4î!p+q! 6>! * & Ɇ!24Ӆ!m6*1&))))  N#F͐!"4!"!16#6>|!2ڞ\:222BÞ*2&) >ϋw!26Û*2&) *4 N#F͐*4"4NɆ*1&)))) ~Ɇ: DÆ3Ɇʌ!14²77:7"/!7ی>!7*8*۰5 ӱ!>@=۰-!q۱w# >@=7۰;݊#)Њ-NJAay!aO ~!C ^#V# sOys@:s˜>Ú>2!N#FyyOx=!w#w> A!~@#Ŋ>A!>w#A4w00>A>AA~@H CBYTE 100H TO 14BH ;CHECK CODE LOAD CBYTE 200H TO 500H = 00H CBYTE 200H TO 250H CBYTE 400H TO 450H CBYTE 100H TO 200H CBYTE 100H TO 200H CBYTE 0 TO 10H = 0 CBYTE F00 TO FFFH = 0 CBYTE FF0H TO 1005H CBY 0 TO 10H CBYTE 1000H TO 10A0H CBY 0 TO 1*NV! 4ͼ*& L! 6:! m* & N : =O! DML! 45! 6>1! ڏ* & NV! 4r>>>Û!!q!"q: !6+4ă!4*"*Mc:O!j ~2%O!"#:!#ϋ:͌:"w:7O!o ^#Vیw*8*"ww:7::Jی>8ċ+s#r*;DM*87:7w!/3цGo&xGڝ>p###’~~և###>~UUUUUU RAM ERROR O1ԇ!LJ~#އ&.zW#A>AA"@w#AA@w#(!Cr+s+p+q+p+q>@!D"DD @!Mr+s+p+q+p+q+p+qF@i`N#Fog_ogDM!>))덑o|gұ =Ÿi`N#Fogo&og_{_z#W y011H CBY 0 TO 100H CBY 0 TO 1000H *JTT *! 59 42 59 42 59 42 59 42 59 42 59 42 59 42 59 42 59 42 59 42 59 42 59 42 59 42 59 42 59 42 59 42 59 42 59 42 59 42 59 42 59 42 59 42 59               8s#rG *%9^#V=G~#~# ‚=‚=F ! G}o^#V#Ÿ=MDG Go&)+V+^=¹=G =o&)9^#Vs#r#==G^@|ʴ@!Gý@@EAA!FEAA!FEAAAAEAAAAEAAAEAAA i`"8_!R<^#V>28|pA}28!8|Az|A{288N28GڈAAyʕA#ŒA:8qG~# >>FG O>GG᯲9>9>4>9>G#i`"8G 28i`"8|Z>}28!8N:8o> ~# d>FHGGG _ 28i`"8KͲ?) :8o&E¦>oFi`"8CK^#Vx>GjS]>>>zW{_>!F ~_#~WAyAGw#w#A*8F;FBGxB{/w#z/w# B*8F;FBBx;B{w#zw#.B*8FO!9Ax]Bw#w#OB*8H+~+~bBF ^_!B^#VCVC`B.CBCE#)9N##Y"8xڵBAO{28xOB"8yBAѳBB*8::K:;d?Xw?X5?A?AXq@WWDAA??T@/X~?JXM?|C?&XyCb@8X.=">"B|>Dj<0DI%=L=Y=<><0II)KA 2929{2MN#F#^#V#N#F#"M:MMM*Ms#r#s#r#q#p#wF29GoQ>M8w#PFAO*8 N#Fi` ))6*8 "8"8"8*8@Q#$Q!*8*8s#rFYQ*8^#V{=Q!2Q*8 ^#V{=Q!2Q!Q~ʄQ#^#V#rQ7!"95RsR R R )S 4S =SRSfSSS3R3R*SESG:97{2:2:yOzW{_Q":xFyE~# ~# EEF ͨHFyF+~ +~ FFF7FnF:FHF}o|gF͑F^FͨH{# RFRF{+ _F_F͑FxFͨH{# xFxF{+ …F…Fy_??i`"8E#)9~"8##Copyright (C) 1980 bI:9̉G~I")9Go&))8 F-N q,py*8!9}| , o>g9*8{z"8EJ*)9"9"8 2 9i`"8/<_*9^#V7}o|g"9^#V#N#FJGڏJo>g9àJ o>g9*9##yʽJO>G~#~# ¬J¬J*8*)9*'9*%9!9"%9 "8*9")9*  #&'(****AND 'ARRAY ,BEGIN CASE COMPONEN2CONST DIV 'DO DOWNTO ELSE END EXTERNAL4FOR FILE .FORWARD "FUNCTION GOTO 2929!"9!9"99@ͽQ:9 R>#7:9!9w"9x2929!"99@ͽQ7!͉R0S:9GS!͎RhR:9bR!͎RhR!͎R:9G!͉R0S:9GSHR"9"99@ͽQx2929Q9@ͽQ0S70S?0SRDÝRDM>!":":":":xy INTEL Corporation*8MDGo&:8G:9 G F&;o^#V!9:9_:9W*9]G"9*9:8_:8W*9]G"9*9]G"9}|:9*8"9!"9"9"9*9"9>29ɯ29&"9*8"-9GG>29>29:929>299G!"9*9*9åL.ÎG.ÎG.ÎG!Z^"89"'9+V+^}O|G*89JG9J*#9G9J*#9*8"8*%9"#9N#Fq#pG9J*%9MD*'9#~=?K K! V+^+F+N#?KKBG *)9)KtK<*8#"8*8ÅKi`"8/L>*8MD"92J:9,K: 9,KdGͦK,K::**+9##^#V#N#F#{*8q#pñK*9&)]T)=9"9^#VJIF IN )LABEL MESSAGE 6MOD 'NOT &OF OR (PACKED +PARTITIO1PROCEDURPROGRAM !PUBLIC 5RECORD -REPEAT SET *SEGMENT 0SEPARATE3THEN TO TYPE UNTIGyOS*:*:":*:*:S#":*:)":*:$S)":=R::O*:)#SyRQ0S~R0S~#=S7Q0Sw#RS7x2929"9"9"99@ͽQ0S*9*9}¢S|¢S7>#x2929"9"99@ÃSx2:2 ::@ͽQ0S =S.ÎG.ÎG.ÎG.28ÎG. ÎG. ÎGi`"8. ÎG. ÎG. ÎGi`"8.ÎG.ÎGq<:9Gi`"8[)SMH])SFZH=S!860#`H8 ?>0w+zpH#> :9ʕH>28> :929ɯO>G~# x°HH# x»H7ɷyHH)HyG{G!9"9}o|g,#"9*9+++F+N!9*9+F+NGM:9G*9:9G"829o&))8~W-SL^s,r#^,VáL" 9K*9+V-}_|W~qL#~wL*#9ÐLV-^+F-N  o>g9"9*9* 94,#s,r7*8"8"9*'9^#V7}o|g"8*'9:8L*)9:9F*#9^#V"8*%9MDL VAR WHILE WITH !MP"8"8"8!8> #w)P*8^#V*8!8`IP w_tP`ZP AdP[nP0xP:xPtP#wKP*87{_zW*8s#r:8P:8S>TS>GT/[TZQHNTorTxGyOzW{_-aT$%~o###TzW+yO+~7GjVGyOzW{_,jV_~W+~O+~7G;V$g_|W|O|G;VSGNʁV ʁV#x=T    ҋVTڅVƁOGOG~#V#^_P|gxUzWyOxGyOzW- U||?U}l&.U_WVSOG~ʅV ʁVG#yoUڋVrU҅VƁO ~#V#^_~G#N#VڪUxڪU´UyڪU´U}?ҴU}o|g{_7}oU!9~U+~r#wSU@){_ÑU{XX*X*XIU*X*XTIU*X*XTIU*X*XT*8*8V*8*8X T*8*8*X*XT TV*8*8V*8*8X T*8*8*X*XT TVVV"8"8X"8"8TX*8*8V*"8:8=\:9o:8]W*X*X T"8"8*X"8*X"8>28o&U:8<OYPHU*8*8T*8*8IUT"8"8:8=0]*8*8*8*8IU|]}¥]>28]>29ҷ]W>29}ց29. ]͍]*9&U*X*X"%9"#9 "8"8::-a!S"8H!q^^#V#{"aq#p+ a!Z^"82829!"9F^_CUZxñTzG{֐VVV>28!V>_xGyO"V9VO>GWV{ʁV} ڋVÌV,GOWoʢV,-ʆV|<怨BW]"8}o:828l&9*8zWzWT8*8 TIUVV"8"8XV"8"8T*8*8*8*8 TIUV*X*XIUU}28U"8"8*X*XT"8"8:8Z:YÐZrY"8"8?Z:8ʳZ¹ZͪYüZY:8ZV:8ZV"8"8TT:9g͍]*X*XTT:9gW͖ZWWZWWz[WWͻ[WWn\WW]WW]WV2.2Bad command line ;;;;,; ;2;;$;T<.<0<2<4<6<8<:<<<>28 Hz@CPt$> nk(:Chԥ5!c_ʹ1^ l $-xX(y)hSYR%oNˑ?;! I|oŰE7v@pvi`"8?Z:8ZZYZͪY:8 [V{*X*X5[28*X*XT:8= ["8"8VX"8"8T*8*8*8*8 TIU"8"8VU"8U T;[*8[T:8[W"8"8V{[W"8"8*X"8*9ͰH!"9^_n_6.#6R#6E#6S#6 }֧29͗_95R`x29͹_2:2:-@_Q_Q_͹_2:^_n_6.͗_::* `*++"+9 ` :@::_!9Q____w .-_ #q_.Q____ -_ Ú_ Q_ ü_a{ 7:7 7.728:8FHWUFW"8"8U*8*8FWVFWTWW TWWTWWVWWIUWWVFWUWWVWWWW"8zWx怺¢XʌXYPÍX{£Xz£X{¤XzäX*8@ `-TIہI1r ^[X"8!"8)-U*8KBHU*8*8T*8*8IUT"8"8*8-[:8U\*X*X*8*8*8*8TW Th\*8*8*8*8IU"8"8|\>28Í\}–\Ҟ\W}ց29_}o"8"8*X"8*X"8>28*8*8*8*8IUTX"80?:A?[!_^"9!"9`!^"9!%"929299@S*9!i!@!GM>2:99!i>~#~#~#~#::=2:>`!=9^#V*+9##}o|g:9O*;9GM!8w# ˆ`ˆ`!"8*+9"8*+9")9+F+N}o|g"'9+F+N}o|g"8*'9 N#Fo>g99!9!!9            userPSystem I/O errorPISIS-II Error #  PUnimplemented instructionPFloating point errorPqString overflowPZProgrammed HALTPCProgrammed break-pointP%aM7#kVAt 84| $RESIDENTUSERPROGDEBUGGERPRINTERRINITIALIGETCMD REALSEG  (C) 1980 INTEL CORP. REFERENCE V1.0NREFERENCE V1.0N / Segment: /  Procedure: /  Instruction: /// Z "8"8VU"8U T;[*8[T:8No user program linked in0No debugger linked in,Unspecified run-time errorPValue range errorPNo procedure in segment tablePExit from uncalled procedurePStack overflowPInteger overflowPDivide by zeroPNIL pointer referencePProgram interrupted byREFERENCE V1.0N     > ˡ(*ˡ#뿥TTǀTǁT åS-r-R %PASCAL-80 V2.2% [No reals]TT-%I TT : Unw1"L ٢٢٢٢ ٢٢٢٢ ٢٢O٢٢ $ø!ǘ:ɡ ؂ Tǘ:؂š3)cš 30 š 300 3000 pܪP//ˡ$ not found́11)"1Í0: bad codrecognized switchquitquitQUITTRACEONtraceonTRACEOFFtraceoff'TRACEONtraceonSIZEONsizeonSIZEOFFsizeoff&SIZEONsizeonREFERENCE V1.0N!;PASCAL-80 V2.2 re-initializedRe file0́20ʁ2ȡAƀ0ˡ- : not linked^000́20ʁ2ȡD00č1ʁ1 0́310́4ʁ3ʁ3ʁ4ʁ3ʁ400T^ Zؾšg:ˡ:F0:TPؾSTATSstatsTInterpreter Version: TAvailable Free Space: & bytesMaximum HEAP Size: TP  bytesMaximum STACK Size: TQ  bytesREFERENCE V1.0N.á ؾ.á.CODPؾ  تVv*R R S %SW SPASCAL-80 V2.2% [No reals]Maximum Combined Size: TR  bytesTV On OffRun Time Monitoring: T On OffRun Time Tracing:  ȡ á +-Í-ڲ!ؼ 0.áCڲ!ؼ0ݞ$ڲ!reEÍɍEáޢ  Fۓ    ɡ ؼ݀$ ؼݞ$ۡޢ ܡؼ  2 Rɍ -   $ $ ݞ$' ݑ$ $݂ō $á))&á) )<F": ˡ2ö#Í #á둫 @蚶)á6á.+-%C0듄+ 0 E ɡ ّئP* 0QP áڡ-݂ġ ݂$ $ $ȡ&  ߂0 ފ$č^   .ˡ>  Eɡ  -ݑ š ߂ 0 ߂ 0 ߿lġ-   ݂. ݕ ؂ Í á ɡ 럚  肚Zš ):!뚶 š :ˡ3:F0: áˡ  á ##áá  蚶6)ˡ ` 隶*QPMVp"" 꾂ȡ龞꾂(ń꾂Ȅ4š뾂á뾞꾂NPńȄ.ń0á :  ݕ 0 . ݑ0 ݕ݂ ؂ ɡ  , &š  ál铡))á2!ˡ @隶˄I6á)á )J áá 0š  0á 4 Pȡš肂蕿BšT뾕ȡ4 š삥뾞;d Sááa** Stack Overflow **)**  REFERENCE V1.0N))!šá 4 Ą8ġ,ǀ  ǀ ) <)D)<š 龕龫)Fš ):á  (   á Ä*)  ! O)Qšš, <s      not found(Insert correct diskette and press RETURN !(&5%  <ádd p                       ted%B|ȡ &[ D$'(d ȡ'e۫/d ȡǑTPASCAL-80 Compiler V2.1nv Pa %  ˡáL( 2nd`QV ,z.,  D"| .!?DF PQCOMPIL COMPINITCOMPFINADECLARATBODYPARTROUTINEAROUTINEBge: } {}}| Line Seg Proc Lev Disp||L0$|<š1|dš|d|B|ȡ( G 0R  W S  e||$-ERROR  || yڟá yؚ<؞áeá ؞á٢ؚ٢ ؚآ آ@fRRREFERENCE V1.0Nث֧$C/d e^Line R  , Procedure: Iˡ&Iˡ IPROGRAMPROGRAM Error:  ǐšOCompilation termina% áP (SSB ڿڞڂ 0$áˡ,Í +azȄaA۹Eš)PEš{){P    +ë.+-Í+ë)( á *á% ' ǖ:˥n:Ä%nƀƀ7(/&Include file: "ˡǓ'ۧd|d||B š|d|ġ 傾0ڕ$ ȡ 傾0 á $ $$ b#X  !FG!/ á}*á*  ڟˡá 7Ä t2t t%á:á7% ާ2 ޢޢ ǂإ (ç`á  áV  Vġ%٤áM򂥀٤VCMM* ȡfقȡȡ?ȡȡث +ë+-ë&$$Ä""++)+.xs$$Äh +Z`^X  "$&(*,.0468:u@BDFHLNlXZ\^q,ˡ áá)}Í/1.:<aJ@,.á =á '((')   =>) )=á   {  "ˡ8á á'ާ8áá ᚹiM#ááإ1$áá 8إ j   ޚ \á۟ڟÍáD Dˡ #CcCC Cا*ȡȡ?ȡȡ4Qn| W؟ˡR٣`?٣ á8٣ á1٣,٣&uֶ+,++ á !+'á,'ˡ++%++á %N---+-+NZ   '09ō.á:.ˡ0 09Ȅ$&(*,.2468:<F2 TVXZ\^`bdf nprtvxz|~)(4/á á !ǐ$0 Fٟˡإ Ä ޓ%  DD߫DÄcݟܟ˄ބݟÄܟÄÄÄ"j  _ % undefinedh&# KK(F S"EōyáçEç"Eç" I   á Iܓ%IáI IܧhܓáEáP -á  +á09Ȅɡáfȡ<  傾0 ń  傾0#ث  ȡ  傾0á؟؟" ġ>yڟˡ(áڣb ,g,ChC4A(@B?>ښ á !ڧ7áˡ <  á ,0H5 |ؿ   šۂٞقق؍Fɡ áˡǒٕáIá á IÄ  OIˡ&ݣ *VE WI!I I K  IákAƃCƃW ƃƃƃƃ/ƃ/ƃCƁƂ    ƁƁ h\ ˡ ƃCƃƃƃ/ƁƁ0:V |>6r2J.Jpv  V\:ʃʃá PFʃ ʃ ʃ ʃ ʃ š4ʃ ʃʃ ʃ ' External ؿr ing : O  bytesR  lines compiledá No errors3á1 error  errors detectedB|ȡ Symbol table space reآ733آآ72 2آPآآآآ آ آ7آP ۦINTEGER Щۢ ۢ ۦREAL Щۢ 8ۢ ۦCHAR Щۢ 7ۢ ۦBOOLEAN Щۢ 6ۢ C CاC|||<š0|dš|d|B|ȡ ||" JتP%R"|Bš|d|&šExternal Symbols:  ة Ʉ ˡޮ ȡ PN ^  ظȡٲ؂ -5\Ƃ-ƂAšmaining : O  bytesR  lines compiledá No errors3á1 error  errors detected ȡCȡ/CȡڢSTRING Щۢ 2ۢ ۦTEXT Щۢ 5ۢ% ۦINTERACTЩۢ 3ۢ< <ۦINPUT Щۢ 5ۢۢۢ<; ;ۦOUTPUT Щۢ 5ۢۢۢ;ȡN ܢ 6áܦFALSE ЩܦName Class Sizeš٤ښ̃ʃġ٤C̃ʃ̃ʃ ʃáƃ Procedure*ʃáƃ Function ƃ Variable ƃʃ -"ˡD' failed to open; no ERT file generated. š>C̄ʄ̄ƂA٤̄ʄʄʄʄʄʄ PQETAB    ̄ʄȡƂA٤ PQPEXT ȡC짃Oȡˡ (ȡ / 0g@( P  TRUE Щܢؚܢښܢ6ٚ ۦNIL Щۢ 4ۢۢۢ ۦMAXINT Щۢ ۢۢ ۦCOMMANDNЩۢ 2ۢۢۢ  ۦERRNUMBEЩۢ ۢۢۢ ۦERRSEGMEЩ( ńProcedure/Function Statistics:%Name P/F Seg Proc Lev 0Param Size Local Vars Total Data Code Sizeš٤ښ̃ʃġ٤C̃ʃ̃   PQETAB   ̄ʄȡƂA٤̄ʄ ʄ    ̄ʄȡ    Ƃ-Ƃ- B~VB  RR%|d|Symbol table space remainȡ*azȄaA}2 @ؾȡ"قaقzȄ ققaA)8آآ88آآ77آآ66آآ44آآ55آۢ ۢۢۢ ۦERRPROCEЩۢ ۢۢۢ ۦERRDISPLЩۢ ۢۢۢ ۦERRSYSTEЩۢ ۢۢۢ LC Cئ Щآ آB Bئ Щآ آآآ    A Aئ Щآ آآآآ@ @ئ Щآ آآآ??ئ Щآ آآآ&آآ"آآآآآآ>>ئ Щآ آآآ"آ&آآآآآآآy Щ,systemcaЩ-setpointЩ.bufferreЩ/bufferwrЩ0portinpuЩ1portoutpЩ2errorsetЩ2̀ʀȡٳX4`"ٳٳٳpٳTln Щ exp Щ sqrt Щ mark Щ release ЩioresultЩpwroftenЩSSȡá0ܹ6 TT T7 TT 8T8QP Í9cV x 0NOLIST0NOCODE0ERRLIST0LIST0CODE0NOECHO0GLOBAL0ETAB0 DATE0 WORKFILE0  NOSTATISTICS/ Vread Щreadln Щwrite Щwriteln Щeof Щeoln Щpred Щsucc Щ ord Щ sqr Щ abs Щ new Щڡ  ̀ʀʀ͢ʀ͢ ڡ ʀ͢ʀ͢ʀ͢ʀ͢ʀٚ͢  `rqsetlt Щrqgetlt Щrqsend Щrqwait Щrqacpt Щrqctck Щrqctsk Щ TTTTTT ۚTc[6 TT TA8 TT T' ]W?ݡ  TTTTݡTT؟ˡآT ښTؚlfȡ0ڤڸ/# 8ؾȡ"قaقzȄ ققaAؾš P=T L-&á'**BBDB)**P-.DB)DB)P.QP&á Rconcat Щlength Щinsert Щdelete Щcopy Щpos ЩmoveleftЩmoverighЩexit ЩidsearchЩtreesearЩtime Щfillcharrqcxch Щ rqdlvl Щ rqdtsk Щ rqdxch Щ rqelvl Щ rqendi Щrqisnd Щrqresm Щrqsetp Щrqsetv Щrqsusp ЩLLȡhڡ  9=DUSPRQȡ,Cڢڢ Щڢ  )(MVWNǂNJe3d3e L#-&.+"*,'$ץ{!Gf  Ä +w(á+(Pb)á+)PMP PQP ö)Í(Í+CT *+آP,+ˡ5 rejectrewrite Щclose Щ seek Щ!reset Щ"get Щ#put Щ$scan Щ%blockreaЩ&blockwriЩ'trunc Щ(page Щ)sizeof Щ+gotox MMMM ڡMMMMMٚpodd Щchr ЩmemavailЩround Щsin Щcos Щlog Щarctan Щ REFERENCE V1.0   t8ptl@|pX @thd`x\d x ڦP   Ä  6ۿPed,+á P/K+á=+á/()P+ˡ RTXZ\^ء rejected, accepted/O%g1b0]1TK/    F=4v +~"  VSPMF?<5.' iT t - P+̀,BDB)̈ƈ>ƈ Qƈ Rƈpƈ qƈP. ƀʀ*̈ʈ+ʈPʀ̀ʀ2šTToo many optioPASCAL-80 Compiler V2.1 invoked by:CBCȡDC)CC|B|:BB:$~:á~9~ P80WRK.TMPC9"ˡ-9 failedޢʁޢ ʁޢ:ʁޢ ʁޢEʁʁޢWʁޢʁޢH' $*v V . l . F ^b4* á ߢ ˡk~ߧ2çÄf á4ō P Pˡ ߧ2 á ߟˡlߢ  ǔޚ ns** Compilation Terminated **+á̀+ˡ +ˡ,5** Compilation Terminated **% UN N  3 Error : no source file specified. to open.$ z }B|E IPASCAL-80 Compiler V2.1 COMPILING ýʁޟʁޢʁޢʁޢ(O  ":LJ EýʁޟʁޢʁޢʁCˡءh geg̀ʀʀLʀMʀOʀ WʀVʀ y4ʀtPASCAL-80 Compiler V2.1PʀƧʀh̀gʀʀˡǖh̀ʀʀˡǖh!iPASCAL-80 Compiler V2.1Ph geá ߢ ˡkߟˡ/á&ˡ 8áǏš fߚ ٟ&Gu ڟ˶xbڧ8˄2 ġ%ɡ܂3 ACACá C&Aá.PAS"/"ˡ- failed to open.n%10/ v !.!A!CAˡ!ACA!.COD"1!ޢ J::́ʁޢʁޢʁަPROGRAM Щʁޢ ʁޢʁޢʁޢʁޢʁޢʁޢʁޢʁޢ"ʁޢ&ʁޢ (N!á 2,!2$0  J0eáC:ˡ̀gʀʀˡǕgeh!e   ߚ  ˫ á ˡ álˡ áá'   á   yߚ6Ú  á *á á ߟˡ%Íߧ8Í s ߧ8ár ߚߟˡ% š ǩMݢٚݢݢݢ ݢEXX ˫ áXٟˡݢ ۚݢ ܂ JCޢޢݩߢݣߢ ݣ ߢ ߢ۟ˡ ߢˡ á*@! á, آˡZޚˡ@á -á&ȡ  ޚٟl+  ޟˡ ߚá؟*/94" r   آآái,  , á)  إآ  آ9آ 9$ ˡ ˧"   l l l.áG  á ߚߟˡ ٟá249;$ #áSy؟ٓˡ Ǧٓۧۢۢڢؚá۟ˡáݢyyؚá& ˧X9ˡu9R 5áááá á á ءR* ǏMLš LLV V Ǐ á S(áy ܟˡ?ܣáܣÄܣ Äܣáܣ Äܣ ÄޓǠޓá &    E$VءLȡLLCVǕáVVáx۟ˡJá5á  š á  š ܣ ˡܣ VؓǾC?E W ܣ WEáJ'0áˡ'ݍh \Kç-p 0 X l  ǀٿ <ǀ&á&ȡڢFǀ3ámá šˡ ۚš$ġ á kٳ0d@E6ˡǐ#;=? E.d ˡhP&ǐG(á%2E!ˡ"g0 XEv    á'  6E ɡEE ɡ. yޡáޓܢۚq ޓܢۚáQá4ޡz ܢ ݚݟˡ xܢ  ޓ{á" E  á ˡǐáٟá~"ٟ˄٣ڟˍ٣áȡV7Ä á ;ç+ %ڧ8 82CÄ +&Pˡ ߕˡǎá FJ'ÍȄ 'á ؂؂#Ȅ ؂خ @MÍ;ǀMáá  Zڳ$%áقšخ%áخǀخyá Eá'6  2 Í Ä á"   < ˡǖg    :ˡń d;d dášǷܢ"Wܢ$C   ]C     "ç3Íhޡǡܢ3á%Ešǿؓܢ C0á%ág ڟˡá ˡǎǚǎٟˡˡáٟˡ~ áxܮ'áݮSá ˡ M 4 áB % EáN  áO .  á( `ǀȄ?á(ۢá$ۢ9á ۢښ  6ˡLJ!خ٢`m ۢۢ`mɡݟˡˡ NJ  ˡ ˡqݟˡ<,  + ˡ䀮šNjˡA*á+ @$ńˡá  á @ߡK &"II I E WءV(.*&## -5á á á á E ˄ (أ ánأ át ݳo" ݳ}ޡá Ȅ3ǔ ,ȡ('ġ 9!٫ خ 4P ˡr8˄4á8á33S,á'6E)##:<> 4!zO˄ ˡS>á+ 8áˡˡ njáˡ  á ǘ # ǐ " 2 Í Ä á"   ˡń WˡOÍ; ááǏ    ˡńǍdd ^.[\v áx Aܮ27ÄIá >ءǚá07á(NݢݢN 2 NNN NNNV&N| "$&(*,.02468:<>@BDFdUE` ($6'á á  ǁ ǂˡ  Pa ܧ8á ܧ6á  ǃ DŽ r $  ˡ  4 ܡ ۡګ  á-ܓ  9خٮ ܡ ۓګ خ ܓٮ   9ٟ߮ˡ٧8Í ǐ á ٟˡ^Oܟˡ ȡáǜ  ˡ}2 x٣á٣ á%٣  2E٣ ٣ ٣ á'٣  6E٣ ٣ J88Í؍á 8á ٧8 0`:` `^ ܣáܮ&ܣá  ܟ˄Ä,ܧ88Ä  džܧ88Ä dž_Ä džFÄ dž-ܧ66Ä dž w'[D ""ǃ3ǃ Dž }l/*564/1(0!7/ 1, )ǁ6 Zq&@خá ˡ ō á 7 ܚޚ۟áښǓ˫ á\ڟˡ9˫  Í߮ ݟˡ` ݚܟá , 9 š   ݟá  á @?l ܮˡá8á7 2  á6Ä ˡ6ˡ LJ  (ç`   á8á dž(á   ܟ˄Ä,ܧ88Ä džiÄ,ܧ88Ä ˡ ȡ  ٟ˄á8 8ޡJ7Ä26ˡ-   7˄Pˡǁ٫٫lQ+  Q  F @ޡ*٣)($(ǒ8Z<I: ǁ3MN* خ \˫  áخ5IK Z  ٮ @ خá69ٮخ D!áXx  á   Ǜ؟ˡŧ8á ˡˡ Lj Ȅ  áF  ljޡȄ   ޡ 䔜ߡlj˫ á ߡ,(ܧ66Ä  dž e& Hˡ ەˡǁؚ,)á7Íˡ ȡ   7Í ˡ ȡ  ܟ˄á+  d#áPyڤˡyڤ؟ٓá 9ٓǧ7R f\˫  á <> Fá6á ܓ ٮ á ǏA áWˡ>ˡǐ0! ؟ˡç+  Ǒ3  ǀ@ˡnˡǐ`Q ؟ˡç+ 8߮      6 šá40Ǒ7@ !á6 á 9߮  ]"áx ABخˡxál ɡ_ yáy      "  ˡ' áˡ átá"ٟáǞeˡǢWˡQا8Íǟ<-؟ˡ á t  O ? Ǐcá   ˡ}}M LM DM <ˡ 7ˡǏ  M 1 (k>8 :) ˡ}á)á! á  á }}  7ˡ}ۢۢ+ 8yۢۢ šnj˫ á6ڕ ٕ #FF#á\yݤˡyݤޟˡ# áǥ ǧá.URڟˡL 2 2 á3á7áM\˫  á yڟˡ 2 MáV' áA-á۶yܟˡ   áá    á   á á  á` !á :؟ˡ-أ á أ أ 2á أ ˡ}}}2á  á"  á        ˡˡ} ˡǏá  á"  ˡ}á   ˡ}  0 \ `xp ܣá ܮvohaZ!S L"E#>6h  "$&fZUIRFAm!dš  & F`mˡǨ见 š򥁸ߤá ؕWE**CMMWM 䧃C  á3PROGRAM Щ <x 8 2 " ɡ  M 2 ˫ ɡ  šث  2 ٚyá +ˡ2 á 2 á * $ %/  &"  M )  áx ˡ 0   ˡátá    X ˡ}á0FRm  &#   ( Oɡ Oˡڟˡ ˡpá]šM2 6ٮ+ *ˡ )ޕ( áRQyܟˡ ܢ y   !WLfwH$$  h  r p>d (x.TjFFH $  ˡ}á   ˡ}á1M 2 ٣ɡ ٣ šث ٫+áM M    ˡ ˡ} M )  <"  ˡˡ} á      ˡ} ` &# ع0}yuqmi e a ] Y U 2N79 ;==?=I"$&IG,KMKIK8WM>mBQ[]SUsr`    (jV|  M dا7á١ M O١ M 8,ˡ ݕ١  M }) ˫ á M ) M9 &#ٹء5   ˡˡ}7,.L46  >@DFHJLPRTVc 8         ÄǏ<   áM M 6 ˡáá  sˡ6á    ġ}ˡá 8á }ˡá 8á }  >  áF JOIN <ö=x ˡ*á#7á"á˄ " ág ˡOM >8M ,7M  M }) ˫ á M )   á   ˡ}M  á    M   á    á  á    ;ö=xR ˡ*á#7á"á˄ & ؟ˡš  á'& ˡ ˡ á١ M ا8á=١ á$"  ˡ ˡ} "  ˡ ˡ}ˡ!áM /  Í   M ) á 8ˡ8á }á   ) ) _,X      lI.$&*78"ˡ49:Unable to open ;<>?@ˡ3@Error while reading dictionaryAIJK@L@MˡNOP@CQ@ۚR`     `STCڂCUnVnWXš7YZn[n\]/` *** No data in Segmentab5u ,f(Incorrect command line - JOIN ter14Հ15Հ,+?+ՀCՀBՀՀ12345678PՀՀئ3 PՀՀĂAʆȡZՀՀՀ@AՀ@AՀ`AՀ+[an (@h                          minatedgh@Noo o p Äqr rs&á-tu**vvvwxyؿz{| Í,Í&Í}&á1~** ЩՀAAAՀ@Ǐ̆@ʆȡՀ@Ǐ@@Հn:CO:Հ+nՀՀՀՀՀm áՀՀՀՀ@@Հ¥*ՀöՀĶJOIREFERENCE V1.0rz GENOBJ ( Copyright (C) 1980 by INTEL ՀՀՀՀՀثmՀS$ՀՀՀ,تPՀáՀՀ+ՀBՀNՀՀ٧B,Հ,šՀ+-,-Հ+ՀB,BՀՀxՀN V1.0 UtilityՀŶՀFile Name (Module)ՀSegmentՀ+IndexՀՀՀՀՀՀՀ@̆@ʆȡ(ՀΥ@`@@@Հ̆ƆƆ ( ƆpƆ)qƆՀՀACorporationVU"8U T;[*8[T:8 0Հ 1Հ 2Հ 3Հ 4Հ 5Հ 6Հ 7Հ 8Հ  9Հ 10Հ 11Հ 12Հ 13Հ̆AʆȡՀҥAå`A з @AńnՀՀ@̆@ʆȡ*Հ֥@`A@@@ՀՀ+AՀ٧AՀՀۧAAՀܥՀՀՀߥ*Հ@@ՀuڦPu u v Äwx xNz{|ۿ}PQP~ Í(ÍՀՀՀOV ՀǠՀՀՀՀՀmBՀՀError: no source file specifi     edՀՀՀmՀumՀ}KՀՀAՀՀError: bad command line formatՀՀՀTOto7ՀՀError: 'TO' expectedՀՀՀeBՀՀError: n ɡ!ՀՀۥۚՀܧ\ۂ\ՀݹՀՀՀՀՀقˡ@ՀՀError: I/O error reading fileՀՀՀ襃DՀՀ!Error: wrong version of CODE fileՀՀՀȡ)Հ-TՁ6G Ձ:٦00PՁ;0 Ձ<0 Ձ=. ՁCՁDՁEՁF+ՁG+ՁHՁIՁJՁKՁLՁMY ՁN-TLՁOġ4ՁPՁQTTՁRYYՁSՁTՁU"Ձȡ ՁՁ Ձ ՁՁȡ,Ձ1قՁՁՁՁՁ ՁYYՁՁՁ§Y ՁTȡ ՁՁ Ձ ՁՁ)ȡ*Ձɥ9?ՁՁՁՁՁ Ձ̧YTYo object file specifiedՀՀՀeՀ,,ȡՀՀRMXrmx ՀՀFREEfree#ՀՀ ՀՀՀFILENAMEfilename_ՀuՀuuAՀՀEՀȡ)Հ111Հ?ȡ)Հ9?9?9?Հȡ)ՀyyyՀՀ7p تPՀՀ"ˡ>ՀՁErrՁWՁXTۂTՁYYۂYՁZՁ[Ձ\ Ձ]áՁ^ Ձf Ձg؏Y ՁhG ՁlՁmՁnY ՁoՁo ՁpՁq Ձs ՁtՁu ՁuY Ձv ՁwՁxYYՁyrՁ}Ձ~ՁՁՁY Ձ ՁՁՁЧY ՁȡՁӥuقՁ Ձ֧YYՁՁՁڧY Ձȡ ՁՁ ՁާDՁՁ ՁՁȡՁՁՁՁՁ ՁՁ觃YYՁՁՁ짃Y ՁȡGՁrror: bad command line formatՀՀ9ՀՀError: no such controlՀՀՀu:ˡ"Հu,,:F0:,u,Հu,,u, ,ՀS^`bj4Հ\ՀYՀǥREFERENCE V1or: unable to open ՁՁՁ+Ձ+++ˡAՁՁError while reading dictionaryՁՁ Ձ TՁ-LؿՁTՁ"Ձ-TLՁTTՁ,Ձ- Ձ ՁՁՁ ՁՁ ՁՁՁ ՁՁ ՁY Ձ ՁY Ձ ՁYYՁՁ ՁՁYՁՁՁՁY Ձȡ Ձ Ձ Ձ ՁՁ[ՁՁ Ձ弄 ՁՁՁ Ձ ՁՁ Ձ"ՁՁȡ&ՁšՁY Ձ ՁY@YՁ6ՁՁՁՂY Ղ Ղ Ղ ՂYYՂՂՂ Ղ Ղ mՂ  Ղ Ղ .0ՀȡՀȥՀȡՀɥ1Հ?ȡՀʥ9?ՀȡՀ˥yՀȡՀ̥ՀͭDiՀՀՀՀ֥+Հץ+ՀTLՁTTՁ* ةՁ#Ձ$ Ʉ Ձ$Ձ% ˡՁ%Ձ&Ձ'ȡՁ(Ձ)b x Ձ.TՁ/TՁ/ Ձ0ثTՁ1Ձ2TȡՁ3٥-LՁ4Ձ5ȡ*ՁՁՁՁՁՁY[YՁȡ ՁՁՁY YՁȡ ՁՁՁY YՁՁՁYYՁȡ ՁՁՁYYՁ ՁՁՁՁY ]Ղ ȡՂšՂ ՂՂ"4X-IY%ՂTšՂՂ Ղ Ղ!Ղ" Ղ#UՂ$UՂ%U Ղ&Ղ'`Ղ*Ղ,Ղ.[ȡ,Ղ/سՂ0     Ղ1[[ȡՂ2Ղ3ȡQՂ4Ղ5س=Ղ6yՂ6Ղ70Ղ8yՂ8Ղ9Ղ:Ղ:Ղ;UPQPC00 ЩՂ<[ȡՂ=Ղ>Ղ@PQBEGN Ղ@ՂBUPՂ~UPQSG00 ЩՂȡՂš~ՂՂ ՂUՂUՂYՂ ՂU ՂՂYYՂՂ ՂՂՂ ՂPQFSNP ՂՂ ՂPQFSSP Ղ   QCM00 ЩՂCȡՂD1؂ՂEՂGUPQSP00 ЩՂH)ȡՂI9?ՂJՂL2ՂMՂNPQOSGF ՂNՂOPQRSGF ՂOՂPՂQdՂRՂSPQISNL ՂSՂTՂUՂUPQISTH ՂUՂUՂVՂWՂ ՂW +Ղ GENOBJ V1.2ՂՂՂ+̅+ʅȡ4Ղ+ՂՂ++šՂ+++ՂՂՂ] P80RMX.PLBՂ] P80ISS.PLBՂ :á.Ղ]̅ƅ ƆREFERENCE V1.0r,\pP80EXT PQETAB  PQPEXT(P80EXT!& * PQPEXTWPQISDF ՂWՂWՂXՂY ՂZYjPlՂaՂbՂcՂdYՂeY ՂePQPCDT ՂeՂfYYՂgY ՂgPQINIT ՂgՂhY ՂhP8INIT ՂhՂiYYՂjY ՂjPQCMDT ՂjՂkYYՂlY ՂlPQSPDTƆPƅ]_ƅՂ]ՂՂyyՂՂՂՂՂ\@T\Ղ Ղ\\Ղ Ղ\\ՂՂ} ՂՂՂՂ\ ՂՂՂ ՂՂ ՂՂՂՂՂՂ ՂlՂmYTYՂnY ՂnPQCFNM ՂnՂoYYՂpY ՂpPQSTAB ՂpՂqYYՂrY ՂrPQISGT ՂrՂsY@YՂt/ՂuՂvY ՂvPQETAB ՂvՂwYYՂxՂy/ՂzՂ{Y Ղ{PQDTAB Ղ{Ղ|YYՂ}ՂՂՂ ՂՂ ՂݥՂݥՂz 06   >Br(                                  PC35PQPC90PQPC91/ARRVAR<!PQ0179PQ0007PQ0103PQ0079@i`"`i{=) i`"O>G~#~# ))_"37k :PQPC36PQPC40zMLTVARLVARR)PQ0018PQ0007PQ0104PQ0079PQ0094} _ 2i`"K) :o&E"oi`"CK^#VxIGjS]NXXzW{_N! ~_#~Wi`"y! N#F"%=DGLV> * */YfkroW"#;BJQUZ_cgq  +FIy7yoxgɯO>Gz”ʧ+{/_z/W}o|g#ɯo>go>gT"  *PQ0104NPQ0105PQPC06PQPC14/MPIOPRPQ0007, ;4>LGIVAR>1PQ0001PQ0078PQ0005PQ0006PQ0003PQ0056$| o g! _W _R_*^#V**^#V*s#r2_*^#V*" 0<Kjv8 > %- PQ0078iP ! G}o^#V# MD o&)+V+^=$ Ho&)9^#Vs#r#=? " +4F .J  PQPC51PQPC600PQPC61BYTVAR5!PQ0078PQ0179PQ0007PQ00799<yڋo`ALbS\’âʢo{_zWyOxG-’y/w#x/w" | % ,PQPC58hPQPC59PQPC64BMSKTAB"&??PQ0094PQ0102BOLOPR/PQ0079PQ0103!i`"i`"KB(  cPQPC15PQPC24CHKOPR7PQ0078PQ0007PQ0080|;z}|..z'{z//i`"" %,( 39?HNW_gmsQx*^#V*s#r *^#V=˜͓͓^#V͓s#r)" &y(zPQ0179 PQPC31iPQPC37uPQPC39PQPC43PQPC50PQPC5^si`"O>G~# "%)  ,3)*PQPC41PQPC62PQPC63.PQPC81STRVARnx9PQ0078PQ0007PQ0080PQ0023PQ0011PQ0079PQ0091r O>G PQ0078i3{ozg}o|g}/o|/g{_}  !*#PQCM02PQPC04 PQPC13PQPC19INTOPR2 PQ0078i6|o>gᯕo>g}o|gw" ")25 PQPC08;CPIOPRY PQ0078i]} |H!z$}|H H z${zH }H| !-" "&)07:AFRW5 Mu>PQPC67PQPC68+PQPC694PQPC56/PQPC70PQPC71;PQPC74JPQPC76PQPC88YPQPC89INDVAR4PQ0078PQ01798s#r^#V_^#V^#V %)24 PQPC26PQPC34'PQ####i`" 2i`"|D}2!N:Y ~# NJ";JT : !(+/5?BFW[^dl> PQPC27fPQPC29PQPC38-PQPC42`PQPC80]PQPC82|PAK$0N*PQPC00PQPC02PQPC17&PQPC21DVIOPR6!PQ0007PQ0023PQ0079PQ0085}i`"Ni`"N`i<) MD!2xGyO){_zWD E#:=*ɯ\ʹʹxj{/oz/g{/_z/OPQPC72TPQPC73<PQPC75CMPOPRWPQ0007PQ0079PQCMDT[D!D!DDDD i`"_!^#V4"&!$'*-0369<?B  IO >     PQPC47;PQPC48PQPC49&PQPC522PQPC53 PQPC55SCMOPRBPQ0011PQ0023F>2|}2!$z${2N2G0Ay=#4:ɶ" ,2; "'> PQCM01" +9J <P PQPC289CMPSET)PQ0010PQ0063PQ0018PQ0009PQ0079 ^_!^#V0" "{#E#)9N##Y"xAAO{2xOS"y i`"(G)9)9+~+~EO/>w#w# L" !<HR  &U; PQPC32>INNSEToPQ0007PQ0079PQ0080{si`"])9N#F#! ^yoxgyGMUy8PQ0079PQ0186l@y!y*(*!0"" "&, 26: PQSP15PQSP164PQSP17jMOVSTPmrPQ0079PQ0184qs#  }|IEBCMOPR2PQ0007PQ0179PQ0184u6i`"KBi`")MD # ##"  *.P !zPQCM04 PQCM05SETSETPQ0007PQ0010i`"iAѳk_*"%ʊ{#z#y:—IßR" #=PYcgtw}' 5DTlqoß*oðo>O*%{/#z/#:Iðð%~/#~/#:Rð"(_!g~h&##)yF#9U!!! @o" +4CJ S\e PQPC11ACSPSTPPQ0007PQSPDT i`"_!^#Vv   PQPC30@MEMSTP&y7~# ~# 22 y^+~ +~ YYy" !0=AWdh &'*DNQk #PQSP02FPQSP03PQSP10\SCNSTPtyPQ0079PQ0184xFE#)9~"##ɻ   PQ0195gINTSET3PQ0195PQ0010PQ0079z7 GOx{w#zw#y,Gw#w#$*"  *W -1m PQPC12@DIFSET#PQ019  PQCM03CBLDSETS)PQ0007PQ0102PQ0023PQ0079PQ0080}i`"x!ڐ{zډyoxgyGM{ozg{2&^#Va]=\PQ0004PQ0078PQ0079w*o>g9|g}o,  PQSP40/NEWSTP.)PQ0004PQ0078PQ0079PQ0083PQ01232*s#r^#V"*s#r "^ & # }o|gi6{# **{+ 77ix\{# PP{+ ]]y_-"" #/3<@DIUYbfi &L@ PQSP111(LGIVARINDVARARRVARMLTVARBYTVARSTRVARPAKVARMSKTABBOLOPRINTOPRDV5PQ0010PQ0079z'Gx{/w#z/w# *"  ! PQPC05>UNISETRPQ0195PQ0010PQ0079zV x{w#zw# *O!9Ax;w#w#-*H+~+~@x! G{_#zWx~" SZ_ew FK5Byy:P0078'PQ0079PQ0080PQ0081PQ0082PQ0083PQ0084PQ0085PQ0086PQ0087PQ0088PQ0089azPQ0090PQ0091PQ00934PQ0097BPQ0098BPQ0099BPQ0100BPQ0101 PQ0103PQ0142PQ0143PQ0180>PQ0181PC27PQPC82PQPC42PQPC59PQPC58PQPC64PQ0094PQ0102PQCM02PQPC19PQPC04PQPC13PQPC17PQPC00PQPC21PQPC02PQ0105PQ0104PQPC14PQPC06PQPC15PQPC24PQPC08PQPC68PQPC69PQPC67PQPC75PQPC72PQPC73PQPC49PQPC48PQPC47PQPC55PQPC53PQPC52PQC, ?`%GLOBALB Td$@ 2 PQ0001 PQ0002 PQ0003xzPQ0004PQ0005PQ0006PQ0007 PQ0008 PQ0Q0194LGLOOP% yPQPCDTPQFSNPPQ0007PQ0017PQ0051PQ0060PQ0169PQ0004PQ0052PQ0024PQ0053PQ0179PQ0134PQ0136PQ0105YPQ0075PQ0076PQ0065PQ0186PQ0193PQ0194PQSP04PQ0189PQ0190PQ0191PQ01PQ0184XPQ0187PQPC85tPQPC87PQSP39 PQ0188`PROC1qyPQ0078PQ0079PQ0007PQ0057PQ0056PQ0055PQ0003PQ0006PQ0005PQ0058PQ0013PQ0004PQ0009PQ0083PQ0065IPQ0066PQ0067PQ0068PQ0M01PQCM04PQCM05PQ0195PQPC12PQPC05PQPC28PQCM03PQPC20PQPC23PQPC32PQPC11PQPC30PQSP40PQSP01PQSP32PQSP33PQSP13PQSP12PQSP15PQSP17PQSP16PQSP10PQSP03PQSP02PQSP11009PQ0010PQ0011PQ0012PQ0013PQ00142PQ0015 z"PQ0016PQ0017TPQ0018VPQ0019XPQ0020ZPQ0021\PQ0022dPQ0023fPQ0024PQ0025TPQ0026VPQ0027}zTPQ0028TPQ0029VPQ0030XPQ0031ZPQ0032\PQ0033T92Z>Copyright (C) 1980 by INTEL Corporation*MD4o& /5"-8p ( :&o^#Vs ; }D&"*"U4>2>2:2>2 4!"**.D.D.D!".D.D.D.2D. D. Dil"069PQ0070PQ0071PQ0072PQ0073PQ0180}}&|&"}"|"&& 5O>G*O ^#V7}O|Gyo`N#F#^#V#"zk}|oxy"  *_fs "$36GXimw:my}o|g#)*PQ0034VPQ0035XPQ0036fPQ0037zPQ0038jPQ0039znPQ0040rPQ0041vPQ0042|PQ0043~PQ0044rPQ0045vPQ0046TPQ0047VPQ0048PQ0049PQ0050PQ0051zPQ0052PQ0053PQ0054PQ0055PQ0056PQ0057PQ005PSr$ \aglo .GJMdx{(l`". D. D. Di`".D.D4ɯO>G~# x# x7ɷyH)y"!  Nz4PQN#F+}o|gMD*+V+^""*~2*^#V O* #~+~+ *" ""L >{":: *~:~"o&)) F-N q,py*!9}|      , o>g9*{z"^*"^" P :    ( D M SV}Y" 2i`"/<_*^#V7}o|g"^#V#N#F4ڨo>g9ù o>g9*##yO>G~#~# " r21PQ0070PQ0014PQ0071PQ0124ZyPQ0083PQ0081PQ0072PQ0065PQ0140PQ0050PQ0087PQ0028PQ0067PQ0055PQ0002PQ0066PQ0123PQ0122PQ0057QPQ0115PQ0056PQ0082PQ0110PQ0108PQ0026PQ0027PQ0181PQ0069PQ01834R *^#V:i`##N#FÊ"A  !"# BPQPC77KPQSP041SYCALLHQPQ0078PQ0079PQ0007PQ0015PQ0050PQ0088PQ0012PQ0133PQ0139PQ01251*}*7* w"x22!"N7!:GU!:!"$!z& {!:G!:GU"" Nx2#2$U#N7?  Zafn} V****!9""*"*"+V+^}O|G*RR*R/" " >   Q$**"*"N#Fq#pR*MD*#~=X<*#"*-i`">*MD"::N*"  "HB >(. 1 4 9&< A%E L}N:*!^#V#N#F#{*q#pW*&)]T)"^#V{!9"}o|g,#"*+++F+N  p }2"""J{WyO:>:GyK[**[> 22{2aN#F#^#V#N#F#"_:a͠Ԝ*_s#r#"9CIVjz~$#'4LP <FS\d&s#r#q#p#w2]D.DM>!"7" +:EHNRV[@$ #37?e> (Bg{g"9"=";xGyOҖ*;*7"7*=*9Ғ#"9*;)";*=ڵ)"==q:9O*7)#äyͣt~ͣ~#X"z$!hko}$! V+^+F+N#XKB" CRVgw &%+.14@GLo\p PQ0107PQ0108PQ0109PQ0110PQ0111PQ0112PQ0113PQ0114PQ0115PQ0116PQ0117zKPQ0118RPQ0119$PQ0120EPQ0121PQ0122'PQ!9*+F+N:"mj >'OUd p z ~ }*:"2o&))~W-^s,r#^,VG"o*+V-}_|W~#~*6V-^+F-N  o>g9"**v" : G>ڰg"+  4PQ0140PQPC86PQSP00 PQSP34bPQSP41IFACE?ISISPQ0187&" ""!"! %-/g"')+X3g}7tw#7x22"""N**}3|37>#x22""").S?$  $=ADHM Pm4Wx21221N T]01234PQ0124PQPC33IPQPC44PQPC45BPQPC46&PQPC57H>PQPC65!PQPC66PQPC78PQPC79PQPC83PQPC84LGPRC2GyPQETABPQ0078PQ0079PQ0007PQ0005PQ0058PQPC46PQ0013PQ0059PQ0118PQ01 +7:>X@4,#s,r7*""*^#V7}o|g"*:{*:*^#V"*MD*}—|9"o >H#M QTWeh#kr uy|$$F! ^#V!^#V7}_|W! s#r+++:"35m}!~#^#V#7!" . T   8U*nEu:7{2/20yOzW{_a"-x2"(!$'*-0369<?BEHm1$OY]qv K{y2!"!"N:ž>#7:!7!"5 "ils$ Z^c} fpPQ0125yPQ0126PQ0127tPQ0128.PQ0133PQ0134PQ0135PQ0136PQ0137PQ01388PQ0139V*PQ0129PQ0130PQ0131PQ0132LGINIT5y     PQSG00PQISGTPQFSNPPQFSSPPQETABPQSTABPQ0001PQ0003PQ0004PQ0005PQ0006PQ0007PQ0012PQ0013PQ0017qPQ0049PQ0055PQ0056PQ0057PQ0058PQ0059PQ0064PQ0074PQ0117PQ0126PQ0142PQ0079PQ0186PQ0188. V2.0=2k!Þ!ͷ!^W#ͷ!8ͷ""22Ʌ"$ "  :PQOSGFPQRSGF\ISIS @ISISd(<GLOBALLGLOOPPROC1LGPRC2SPQ0097PQ0086PQSP39PQ0188PQ0181PQ0180PQ0101PQ0143PQ0100PQ0142PQ0184PQ0103PQ0187PQPC85PQPC87PQ0109PQ0119PQ0108PQ0118PQ0115PQ0124PQ0114PQ0107PQ0117PQ0116PQ0111PQ0120PQ0110PQ0121PQ0113PQ0122PQ0112PQ0123PQPC78PQPC79PQPC57PQ                 ]!++}o"!!"!N !"> 2!~#B>*2!@*}[[!" ;TW$2@^ > $'*-5C FLO\"j^"+F+N}o|g"+F+N}o|g"* N#Fo>g9!9!YCALLIFACELGINITLGOSGFISIS&% I &f*g5a;B?0t*PQ0009PQ0019PQ0028PQ0038PQ0008PQ0018PQ0029PQ0039PQ0049PQ0059PQ0068PQ0048PQ0058PQ0069PQ0005PQ0015PQ0024PQ0034PQ0047PQ0057PQ0066PQ0076PQ0004PQ0014PQ0025PQ0035PC66PQPC46PQPC45PQPC83PQPC44PQPC65PQPC84PQPC33PQSP04PQPC77PQSP00PQSP41PQSP34PQ0140PQPC86PQ0128PQ0138PQ0139PQ0129PQ0134PQ0125PQ0135PQ0126PQ0136PQ0127PQ0137PQ0130PQ0131PQ0132PQ0133PQPEXTPQ0169PQ0183PQBEGNPQOSGFPQRSGF,)/rFPIqPQ0078PQ0079PQ0007PQ0147PQ0145PQ0146PQ0150PQ0148PQ0149PQ0008PQ0090PQ0009PQ0047PQ0048<}zWzW|g.!!]T u!9"" ""!"22!a >_l y|  "F  PQPEXTPQ0169PQBEGN PQ0183hLGOSGFAWPQ0014PQ0015PQ0126PQ012PQ0046PQ0056PQ0067PQ0007PQ0017PQ0026PQ0036PQ0045PQ0055PQ0064PQ0074PQ0006PQ0016PQ0027PQ0037PQ0044PQ0054PQ0065PQ0075PQ0001PQ0011PQ0020PQ0030PQ0043PQ0053PQ0062PQ0072PQ0010PQ0021PQ0031PQ0042PQ0052PQ0063PQ0073PQ0003PQ0013PQ0ISIS#))F+N+V+^9"ag 7:O}y>2 Hz@CPt$> nk(:Chԥ5!c_ʹ1^ l $-xX(y)hSYR%oNˑއ  ~Pz?;! I|oŰE7v@pvi`"2:7PQ0129PQ0130PQ0131PQ0132PQ0140ISISPQCFNM}Unable to open overlay file Unable to read overlay file ҏx22hg!!@!Ҙ>2<!):~#~"A^6$ Oci  ;>EI[flsYy#~#~#:022PQ0032PQ0041PQ0051PQ0060PQ0070PQ0002PQ0012PQ0023PQ0033PQ0040PQ0050PQ0061PQ0071PQ0189PQ0191PQ0190PQ0193PQ0192PQ0194PQ0186PQ0089PQ0099PQ0088PQ0098PQ0078PQ0079PQ0081PQ0091PQ0080PQ0090PQ0083PQ0093PQ0082PQ0085PQ0084PQ0087""** 'Q"2;TW]cf >  $ (, /58 ? CF I MQZ`}h''''"'"%'"W'"zWx怺YP{z     {z"4loux{~ ir h *8  zPQ0152 PQ0153PQ0154%PQ0155@PQ0156WPQ0157PQ0158"PQ0159'PQ0160PQCM00SPQPC01\PQPC03fPQ > !S$"F****""P""-h> >%*048;?CFUX]akp]s"***{,""*"*"!")-*KB**"'5;3 >! *.28>DJM SWZ^ Ja**""*-C:ڭ***(****"  >beim   ,2}j7*0:g*:*8:g/"9VY]w >=@Dadh t z }      O"F"PC07:PQPC091PQPC10nPQPC16PQPC18ePQPC22wPQPC25PQSP23PQSP24PQSP36vFPT-yPQ0148PQ0145PQ0153PQ0146PQ0147PQ0154PQ0152PQ0150PQ0149PQ0156PQ0159PQ0160PQ0008PQ0103PQ0037I**&*$}2""**"  >ty||"":͒""͗: N::)ptx{ w****""|>2}}ց2_}o""* "*">" d >  az      9HsPQSP25|PQSP26PQSP27PQSP28PQSP29PQSP30PQSP31FPA*PQ0008PQ0009}!9]T>>>G'/PQ0038PQ0039PQ0040PQ0041PQ0042PQ0043PQ0044PQ0045PQ0046{@ `-TIہI1r ^[DN*****"AK[_fjtA cnq[w* * ""͗:"  $=s : '48@}DLRNU:b{**ʍ2*"* :=x""P""**F"EJMPS]2****<"":=:o:[**"" 4FVhl >"&*.19=BJQ YptKw"*"*">2o&:<OYP****;"eZQHXo|xGyOzW{_-?"!+0T[ci|yk$%~o###zW+yO+~7GtGyOzW{_,t_~W+~O+~7GE$g_|W|O|GEGNʋ ʋ#x=ҕl"z}ڏƁOGOG~#V#^_P*****<***.*,*"x; >|Z***<***.*,""P"I" mqv|H 6V`yO^**"""͓*h: Ŏ" > N""{ >x~ i}"":=ˆ****|}>2>2>2}ց2.a*&*2L")5 >|gx'zWyOxGyOzW-||I}l&._aOG~ʏ ʋG#?"2;GQT`e}jyyڕ|ҏƁO ~#V#^_~G#N#Vڴxڴ¾yڴ¾}?Ҿ}o|g{_7}o!9~+~r#wS@){"qtwz     }_Û{_MZxûzG{֐$>2+>_xGyO,CO>Ga{ʋ} ڕÖ,GOWoʬ,-                |<怨BW]"}o:2l&9*"^bfrw{- HPQ0144PQ0145PQ0146PQ0147SPQ0148PQ0149PQ0150D( FPIFPTFPA"& h s*PQCM00PQSP23PQSP24PQSP36PQ0159PQ0158PQ0L 84|  RESIDENTUSERPROGDEBUGGERPRINTERRINITIALIGETCMD REALSEG  (C) 1980 INTEL CORP. REFERENCE V1.0rREFERENCE V1.0r157PQ0156PQ0155PQ0154PQ0153PQ0152PQ0160PQPC09PQPC18PQPC25PQPC07PQPC16PQPC01PQPC10PQPC03PQPC22PQSP28PQSP29PQSP30PQSP31PQSP25PQSP26PQSP27PQ0149PQ0148PQ0147PQ0146PQ0145PQ0144PQ0150"8"8VU"8U T;[*8[T:8No user program linked in0No debugger linked in,Unspecified run-time errorPValue range errorPNo procedure in segment tablePExit from uncalled procedurePStack overflowPInteger overflowPDivide by zeroPNIL pointer referencePProgram interrupted by     userPSystem I/O errorPISIS-II Error #  PUnimplemented instructionPFloating point errorPqString overflowPZProgrammed HALTPCProgrammed break-pointP%aM7#kVA / Segment: /  Procedure: /  Instruction: /// Z ٢٢٢٢ ٢٢٢٢ ٢٢O٢٢ $ø!á +-Í-ڲ!ؼ 0.áCڲ!ؼ0ݞ$ڲ!reEÍɍEáޢ  Fۓ!;PASCAL-80 V2.0 re-initializedRɡ ؼ݀$ ؼݞ$ۡޢ ܡؼ  2 Rɍ -   $ $ ݞ$' ݑ$ $݂ō $REFERENCE V1.0rREFERENCE V1.0rREFERENCE V1.0r݂ġ ݂$ $ $ȡ&  ߂0 ފ$č^   .ˡ>  Eɡ  -ݑ š ߂ 0 ߂ 0 ߿lġ-   ݂. ݕ ؂    :  ݕ 0 . ݑ0 ݕ݂ ؂ ɡ  , &š  ál铡))á2!ˡ @隶˄I6á)á )J áá 0š  0á 4 Pȡš肂蕿BšT뾕ȡ4 š삥뾞;d SáváN** Stack Overflow ***)**  *)  REFERENCE V1.0r))!šá 4 Ą8ġ,ǀ  ǀ ) <)D)<š 龕龫)Fš ):á  (   á Ä! P)šš, < %  Lá))&á) )<F": ˡ2ö#Í #á둫 @蚶)á6á.+-%C0듄+ 0 E ɡ ّئP* 0QP áڡ-n &@N\\<p^~8 ŗdRf  D" Í á ɡ 럚  肚Zš ):!뚶 š :ˡ3:F0: áˡ  á ##áá  蚶6)ˡ ` 隶*QPMVp"" 꾂ȡ龞꾂(ń꾂Ȅ4š뾂á뾞꾂NPńȄ.ń0á REFERENCE V1.0r         is: ',i:0); writeln; end {example}. program example; var i, j: integer; function sub (value1, value2: integer): integer; begin sub:= value1 - value2; end {sub}; procedure diff_and_sum (var sum, difference: integer); var temp: integer; function add (value1, vprogram example; { Example using bufferread and bufferwrite with break characters } var buffer: string; disk_storage: file; break: char; new_len, len: integer; buff_array: packed array[0..80] of char; begin rewrite (disk_stoalue2: integer): integer; begin add:= value1 + value2; end {add}; begin {diff_and_sum} temp:= add(sum, difference); difference:= sub(sum, difference); sum:= temp; end {diff_and_sum}; begin {example} writeln; wrrage, 'data'); writeln('Input a line of text: '); readln (buffer); len := bufferwrite(disk_storage, buffer[1], length(buffer)); repeat reset(disk_storage); writeln; writeln; write('Input break char [cntrl Z to stop]: '); reaiteln; writeln; write('Input two integers: '); readln(i, j); if (i <> 0) or (j <> 0) then begin diff_and_sum (i, j); writeln; end; writeln; writeln('The difference of the two is: ',j:0); writeln('The sum of the twodln(break); if not eof(input) then begin new_len := bufferread(disk_storage, buff_array, len, ord(break)); writeln('The buffer read: '); writeln(copy(buffer, 1, abs(new_len))); writeln('Length: ', abs(new_len    ):0); if new_len < 0 then writeln('(Break char not found)'); end; until eof(input); end. ,j:0); writeln('The sum of the two is: ',i:0); writeln; end {example}.       program example; var i, j: integer; function sub (value1, value2: integer): integer; begin sub:= value1 - value2; end {sub}; procedure diff_and_sum (var sum, difference: integer); var temp: integer; function add (value1, vprogram demo_seek; type status = (married, widowed, divorced, single); date = record month: (jan, feb, mar, apr, may, jun, jul, aug, sep, oct, nov, dec); day: 1..31; year: integer; end; person = recalue2: integer): integer; begin ERROR := sum; {cause an error} add:= value1 + value2; end {add}; begin {diff_and_sum} temp:= add(sum, difference); difference:= sub(sum, difference); sum:= temp; end {diff_and_suord allocated: boolean; name: record first, last: string[20]; end; ssnum: integer; sex: (male, female); birth: date; dependents: im}; begin {example} writeln; writeln; writeln; write('Input two integers: '); readln(i, j); if (i <> 0) or (j <> 0) then begin diff_and_sum (i, j); writeln; end; writeln; writeln('The difference of the two is: 'nteger; debts: integer; case marital_status : status of married, widowed: (date_married: date); divorced: (date_divorced: date; first_divorce: boolean); single: (independent: boole    an); end { person }; var people: file of person; ch: char; recnumber: integer; procedure initfile (only_one: boolean); var i: integer; ch: char; procedure get_date(var date_to_set : date); begin with date_to {get_date}; begin {init_files} if not only_one then rewrite(people, 'people.dat') else seek(people, recnumber); repeat with people^ do begin writeln; write('First name: '); readln(input, name.first); repeat write('Marital Status-- [M(arried), S(ingle), '); write('D(ivorced), W(idowed)]: '); readln(input, ch); case ch of 'M','m': begin marital_statusNTH: '); get_date(date_married); end; end {case}; until ch in ['M','m','S','s','D','d','W','w']; allocated := true; put(people); writel_set do begin repeat readln(i); case i of 1: month := jan; 2: month := feb; 3: month := mar; 4: month := apr; 5: month := may; 6: month := jun; 7: month := jul; 8: month if not eof(input) then begin write('Last name: '); readln(input, name.last); write('S.S. number: '); readln(input,ssnum); repeat write('M(ale) or F(emale): ');  := married; write('Input date married .. MONTH: '); get_date(date_married); end; 'S','s': begin marital_status := single; n; end; end {with}; until eof(input) or only_one; if not only_one then close(people); end {initfile}; function display (a_record: integer) : boolean; procedure print_date (date_to_print: date); begin with date_to_pr := aug; 9: month := sep; 10: month := oct; 11: month := nov; 12: month := dec; end {case}; if (i< 1) or (i> 12) then write('Bad date.. Try again: '); until i in [1..12]; write(' DA readln(input, ch); case ch of 'M','m' : sex := male; 'F','f' : sex := female; end; until ch in ['M','m','F','f']; writeln; write('Input bi independent := true; end; 'D','d': begin marital_status := divorced; first_divorse := true; write('Input daint do begin writeln(ord(month)+1:0,'/',day:0,'/',year:0); end {with}; end {print_date}; begin {display} seek(people, a_record); get(people); with people^, name do begin if eof(people) or not allocated thenY: '); repeat readln(i); if (i< 1) or (i> 31) then write('Bad date.. Try again: '); until i in [1..31]; day := i; write(' YEAR: '); readln(year); end {with}; endrth date... MONTH: '); get_date (birth); writeln; write('Number of dependents: '); readln(input, dependents); write('Amount of money owed: '); readln(input, debts); te divorced .. MONTH: '); get_date(date_divorsed); end; 'W','w': begin marital_status := widowed; write('Input date married .. MO begin display := false; exit(display); end; display := true; writeln; writeln; writeln(first,' ',last); case sex of male: writeln('Male'); female: writeln('Female    '); end {case}; writeln('Social security number : ', ssnum:0); write('Birth date : '); print_date(birth); writeln('Number of dependents : ', dependents:0); writeln('Debts : ', debts:0); case marital_status o begin write('Do you wish to change this record? '); readln(ch); if ch in ['y','Y'] then initfile (true); end else writeln('NO SUCH RECORD'); until eof(input); end.  f married: begin write('Married on : '); print_date(date_married); end; widowed: begin write('Widowed, married on : '); print_Miccole!ڧSueeˡ  <NJackson!ڧHeneryˡ # 9 NJWrightn!ڧJoeeryˡ *:< Hamelmire!ڧLindayˡ { This program illustrates the use of the predeclared procedures reset, rewrite, get, put, and close: } program three1; var i: integer; datafile: file of integer; begin { 3-1 } rewrite(datafile,':F1:DDATA.DAT'); { create DDdate(date_married); end; divorced: begin write('Divorced on : '); print_date(date_divorced); end; single: writeln('Single'); end {case}; eH<Mathewsre!ڧCrissyˡ K<Clarkwsre!ڧStevenˡ  6@DWaterssre!ڧMillieˡ +|DLakerssre!ATA.DAT on drive 1 } for i := 0 to 10 do { write 0..10 onto the file } begin datafile^ := i; put(datafile); end; reset(datafile); { re-position file to beginning } repeat nd {with}; writeln; writeln; end {display}; begin reset(people,'people.dat'); repeat writeln; write('Display which record [Enter number] : '); readln(recnumber); if not eof(input) then if display(recnumber) then ڧMissieˡ  <DSturmsone!ڧJoesieˡ o (#D { read in and display the integers } writeln(datafile^:5); get(datafile); until eof(datafile); close(datafile); { and then close the file } end. { 3-1 } { Executing this progr    am will result in the following output: 0 1 2 3 4 5 6 7 8 9 10 }     owing output: Record number: 10 Record value: 10 Record number: 9 Record value: 9 Record number: 8 Record value: 8 Record number: 7 Record value: 7 Record number: 6 Record value: 6 } { This program uses the data file created in program three1 to illustrate the use of the predeclared procedures reset, seek, and get: } program three2; var i: integer; datafile: file of integer; begin { 3-2 } reset(datafile{ This program illustrates the use of the predeclared procedures read and readln: } program three3; var a,b,c,y,z: char; datafile: text; begin { 3-3 } rewrite(datafile,':F1:TDATA.DAT'); { create a temporary file on drive 1 ,':F1:DDATA.DAT'); { open the file DDATA.DAT on drive 1 } for i := 10 downto 6 do begin seek(datafile,i); { seek to a record } get(datafile); { get its value } w} writeln(datafile,'AB'); { write a two character line } writeln(datafile,'YZ'); { and a two character line } reset(datafile); { re-position file to the beginning } a := '1'; rite(output,'Record number:',i:3); { and display the data } write(output,' Record value:',datafile^:3); writeln(output); end; close(datafile); end. { 3-2 } { Executing this program will result in the foll { initialize variables } b := '2'; c := '3'; y := '8'; z := '9'; read(datafile,a,b,c,y,z); { c := ' ' since at end-of-line } writeln(a,b,c,y,z); { display the values } reset(datafile);      a := '1'; b := '2'; c := '3'; y := '8'; z := '9'; readln(datafile,a); { read the 'A'; skip to the next line } readln(datafile,y); { read the 'Y' and skip to eof } writeln(a,b,c,y,z); he array } buffer^[i] := i*i; { process the array } release(htop); { set the top of the HEAP back to its original value, which was saved in   close(datafile); end. { 3-3 } { Executing this program will result in the following output: AB YZ A23Y9 } { This program illustrates the use of the predeclared procedures new, mark, and release: } program three4; type intarray = array[0..10] of integer; var i: integer; htop, htop1: ^integer; buffer: ^intarray; begin  htop. } { The pointer variable 'buffer' now points to locations above the valid area of the HEAP, and must not be used until, using the 'new' procedure again, it points to a valid array. } end. { 3-4 } { Executing t{ This program illustrates the use of the predeclared procedures ord and chr: } program three5; type colors = (red,green,yellow,blue); begin writeln(ord(red):3,ord(green):3,ord(yellow):3,ord(blue):3); writeln(chr(ord('A'))) mark(htop); { record the top of the HEAP } new(buffer); { allocate an array of integers from the top of the HEAP. This moves the his program will result in the following output: 22 } ; end. { 3-5 } { Executing this program will result in the following output: 0 1 2 3 A }  top of the HEAP upwards by 22 bytes. } mark(htop1); { record the new HEAP top } writeln(ord(htop1) - ord(htop)); { display the amount of allocated space } for i:=0 to 10 do { set the values of t     writeln('Exit program'); end. { 3-6 } { Executing this program will result in the following output sequences, depending upon the value of : Please enter a digit: { is entered by the user } Thank you Thank you T     we are defining First STRING defined } { This program illustrates the use of the predeclared procedure exit: } program three6; var i: integer; procedure alpha; forward; procedure beta; forward; procedure gamma; forward; procedure alpha; begihank you Thank you Thank you Exit program Exit alpha Exit beta Exit gamma Exit program Exit alpha Exit beta Exit program Exit alpha { This program illustrates the use of the string manipulation routines length, pos, concat, copy, insert, and delete: } program three7; var sa,sb,sc,sd: string[70]; begin sa := 'First STRING to be defined'; sb := 'Second STn beta; writeln('Exit alpha'); end; { alpha } procedure beta; begin gamma; writeln('Exit beta'); end; { beta } procedure gamma; begin write('Please enter a digit: '); readln(i);  Exit program { = 1} { = 2} { = 3} { = 4} { >= 5 or <= 0} } RING we are defining'; sc := ' in this example'; sd := ''; { null string } writeln(length(sa):3,length(sd):3); writeln(pos('nd ',sb):3, pos('XXX',sc):3); writeln(concat(sb,sc)); writeln(copy(sa,7,3));  writeln; writeln('Thank you'); case i of 1: exit(three6); 2: exit(alpha); 3: exit(beta); 4: exit(gamma); end; { case } writeln('Exit gamma'); end; { gamma } begin alpha; insert('Pascal ',sb,8); writeln(sb); delete(sa,14,6); writeln(sa); end. { 3-7 } { Executing this program results in the following output: 26 0 5 0 Second STRING we are defining in this example STR Second Pascal STRING    n(cb); sa := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'; writeln(sa); fillchar(sa[1],25,'0'); { a string is a packed array of char } writeln(sa); end. { 3-8 } { Executing this program results in the following output: 4 2  { This program illustrates the use of the character array routines scan, moveleft, moveright, and fillchar: } program three8; var ca,cb: packed array[0..9] of char; sa: string[30]; begin ca := '0123456789'; writeln(sca 10 5 -1 -10 0123456789 0123456789 0000000000 0012345678 ABCDEFGHIJKLMNOPQRSTUVWXYZ 0000000000000000000000000Z } ASUM  "ɜ$ ASUM ARSLTR; ; External module to compute the SUM of the three arguments: ; ; function asum(a,b,c: 0..1000): integer ; ; NAME ASUM PUBLIC ARSLT,ASUM ; Declare the result variable DSEG ARSLT: DW 0 CSEG n(10,='4',ca):3, scan(10,='4',ca[2]):4); writeln(scan(10,='X',ca):3, scan(5, ='X',ca):4); writeln(scan(-10,='8',ca[9]):3, scan(-10,='X',ca[9]):4); moveleft(ca,cb,sizeof(ca)); { copy ca to cb both ways } writeln(cb); moveright ; Compute the sum of the three arguments ASUM: XCHG ; Move DE to HL DAD B ; Add in the second argument POP D ; Skip over the return address POP B ; get the third argu(ca,cb,sizeof(ca)); writeln(cb); moveleft(ca,ca[1],9); { the incorrct way to move characters up by one position } writeln(ca); moveright(cb,cb[1],9); { the correct way } writelment DAD B ; and add it in PUSH D ; Restore return address SHLD ARSLT RET END ; No starting address, since not a main module      16 CSEG 17 18 ; Compute the sum of the three arguments 19 0000 EB 20 ASUM: XCHG ; Move DE to HL 0001 09 21 DAD B ; Add    ASM80 :F1:ASUM.ASM ISIS-II 8080/8085 MACRO ASSEMBLER, V3.0 ASUM PAGE 1 LOC OBJ LINE SOURCE STATEMENT 1 ; 2 ; External module to compute the SUM of the three arguments in the second argument 0002 D1 22 POP D ; Skip over the return address 0003 C1 23 POP B ; get the third argument 0004 09 24 DAD B ; and add it in 0005 D5  /* External module to compute the SUM of the three arguments: */ /* function psum(a,b,c: 0..1000): integer */ PSUM$MODULE: DO; DECLARE PRSLT ADDRESS PUBLIC; PSUM: PROCEDURE(A,B,C) ADDRESS PUBLIC; DECLAR PSUMMODULE1#V PSUM PRSLTC'!r+s+p+q+p+q*** "ɝ$  f: 3 ; 4 ; function asum(a,b,c: 0..1000): integer 5 ; 6 ; 7 NAME ASUM 8 9  25 PUSH D ; Restore return address 0006 220000 D 26 SHLD ARSLT 0009 C9 27 RET 28 29 END ; No starting address, since not aE(A,B,C) ADDRESS; PRSLT = A + B + C; RETURN PRSLT; END PSUM; END PSUM$MODULE;  PUBLIC ARSLT,ASUM 10 11 ; Declare the result variable 12 13 DSEG 0000 0000 14 ARSLT: DW 0 15  main module PUBLIC SYMBOLS ARSLT D 0000 ASUM C 0000 EXTERNAL SYMBOLS USER SYMBOLS ARSLT D 0000 ASUM C 0000 ASSEMBLY COMPLETE, NO ERRORS     3 72 MOV M,D 0004 2B DCX H 0005 73 MOV M,E 0006 2B DCX H 0007 70 MOV M,B 0008 2B DCX H 1A 2A0600 LHLD C 001D C1 POP B ; 1 001E 09 DAD B 001F 220000 SHLD PRSLT 6 2 RETURN PRSLT;   PL/M-80 COMPILER PAGE 1 ISIS-II PL/M-80 V3.1 COMPILATION OF MODULE PSUMMODULE OBJECT MODULE PLACED IN :F1:PSUM.OBJ COMPILER INVOKED BY: :F2:PLM80 :F1:PS 0009 71 MOV M,C 000A 2B DCX H 000B D1 POP D 000C C1 POP B 000D 70 MOV M,B 000E 2 ; STATEMENT # 6 0022 C9 RET 7 2 END PSUM; ; STATEMENT # 7 8 1 END PSUM$MODULE; PL/M-80 COMPILER { Main Program Compilation Unit - Source on SIX1.PAM } partitioned program six1; const header = 'This is procedure '; type procname = string[10]; var level: integer; segment procedure aa; separate; segment procedure bb; separateUM.PLM CODE /* External module to compute the SUM of the three arguments: */ /* function psum(a,b,c: 0..1000): integer */ 1 PSUM$MODULE: DO; 2 1 DECB DCX H 000F 71 MOV M,C 0010 D5 PUSH D 4 2 DECLARE(A,B,C) ADDRESS; 5 2 PRSLT = A + B + C;  PAGE 2 MODULE INFORMATION: CODE AREA SIZE = 0023H 35D VARIABLE AREA SIZE = 0008H 8D MAXIMUM STACK SIZE = 0002H 2D 18 LINES READ 0 PROGRAM ERROR(S) END; segment procedure cc; separate; function increment(i: integer): integer; begin writeln(' level: ',i:3); increment := i + 1; end; { increment } begin { six1 } level := 1; write('This is the main program'LARE PRSLT ADDRESS PUBLIC; 3 1 PSUM: PROCEDURE(A,B,C) ADDRESS PUBLIC; ; STATEMENT # 3 ; PROC PSUM 0000 210700 LXI H,C+1H 000 ; STATEMENT # 5 0011 2A0400 LHLD B 0014 EB XCHG 0015 2A0200 LHLD A 0018 19 DAD D 0019 E5 PUSH H ; 1 00 OF PL/M-80 COMPILATION ); level := increment(level); aa; end. { six1 }        { Component 2 Compilation Unit - Source on SIX1.PA2 } component six1c2; segment procedure bb; begin write(header,'bb'); level := increment(level); cc; end; { bb } segment procedure cc; begin write(header,{ Component 1 Compilation Unit - Source on SIX1.PA1 } component six1c1; segment procedure aa; var name: procname; begin name := 'aa'; write(header,name); level := increment(level); bb; end; { aa } begin PASCAL COMP :F1:SIX1.PAM CODE(:F1:SIX1.COM) LIST(:F1:SIX1.LSM) COMP :F1:SIX1.PA1 CODE(:F1:SIX1.CO1) LIST(:F1:SIX1.LS1) COMP :F1:SIX1.PA2 CODE(:F1:SIX1.CO2) LIST(:F1:SIX1.LS2) JOIN :F1:SIX1.COM,:F1:SIX1.CO1,:F1:SIX1.CO2 TO :F1:SIX1.COD QUIT  SIX1 AA BB CC 'cc'); level := increment(level); end; { cc } begin end. { six1c2 }  end. { six1c1 }  level:  :This is the main program BH      1 1 segment procedure cc; 12 12 1 1 separate; 13 1 2 3 function increment(i: integer): integer; 14 1 2 0 0 begin 15 1 2 1 0 writeln(' level: ',i:3); 16  62 SIX1 P 1 1 0 4 2 18 70 Symbol table space remaining : 14124 bytes 24 lines compiled No errors detected REFERENCE V1.0  PASCAL-80 Compiler V2.0 :F1:SIX1.PAM Page: 1 ISIS-II PASCAL-80 Compiler V2.0 invoked by: >[compiler] :F1:SIX1.PAM CODE(:F1:SIX1.COM) LIST(:F1:SIX1.LSM) Line Seg Proc Lev Disp 1 1 1  1 2 1 41 increment := i + 1; 17 1 2 0 48 end; { increment } 18 1 2 0 62 19 1 1 0 0 begin { six1 } 20 1 1 1 0 level := 1; 21 1 1 1 5 write('This is   1 { Main Program Compilation Unit - Source on SIX1.PAM } 2 1 1 1 3 1 1 1 partitioned program six1; 4 1 1 3 const header = 'This is procedure '; 5 1 1 3 type procname = the main program'); 22 1 1 1 42 level := increment(level); 23 1 1 1 51 aa; 24 1 1 0 56 end. PASCAL-80 Compiler V2.0 :F1:SIXstring[10]; 6 1 1 3 var level: integer; 7 10 1 1 segment procedure aa; 8 10 1 1 separate; 9 11 1 1 segment procedure bb; 10 11 1 1 separate; 11 121.PAM Page: 2 Procedure/Function Statistics: Name P/F Seg Proc Lev Param Size Local Vars Total Data Code Size INCREMEN F 1 2 1 6 0 18     I e<oom     4!fmooospaces := ' ';PASCAL-80 Compiler V2.0DweCw*iMwhT;q VF;qV?$mpSIX1 ml:HV SIX1C1 AA REFERENCE V1.0 mmHEADER oFomn)eThis is procedure #6S#6 }֧29͏_95R_x29ͱ_2:2:-8_Q_Q_ͱ_2:V_f_6.͏_::*`*++"+9` :@::_!9Q____w .-_ #i_.Q____ -_ Ò_ Q_ ô_a{ 7:7 7.70?PROCNAME0oo7"ee LEVEL oeAA no BB o CC  INCREMENeoaa This is procedure    N      } 12 10 1 0 82 13 1 2 0 0 begin 14 1 1 0 0 end. PASCAL-80 Compiler V2.0 :F1:SIX1.PA1      REFERENCE V1.0  PASCAL-80 Compiler V2.0 :F1:SIX1.PA1 Page: 1 ISIS-II PASCAL-80 Compiler V2.0 invoked by: >[compiler] :F1:SIX1.PA1 CODE(:F1:SIX1.CO1) LIST(:F1:SIX1.LS1) Line Seg Proc Lev Disp 1 1 1  Page: 2 Procedure/Function Statistics: Name P/F Seg Proc Lev Param Size Local Vars Total Data Code Size AA P 10 1 1 0 12 24 82 Symbol taNH SIX1C2 BB CC  1 { Component 1 Compilation Unit - Source on SIX1.PA1 } 2 1 1 1 3 1 1 1 component six1c1; 4 10 1 1 segment procedure aa; 5 10 1 1 var name: procname; 6 10 1 ble space remaining : 14080 bytes 14 lines compiled No errors detected  0 0 begin 7 10 1 1 0 name := 'aa'; 8 10 1 1 10 write(header,name); 9 10 1 1 52 level := increment(level); 10 10 1 1 62 bb; 11 10 1 0 67 end; { aaThis is procedure bb  F     REFERENCE V1.0 REFERENCE V1.0 REFERENCE V1.0  PASCAL-80 Compiler V2.0 :F1:SIX1.PA2 Page: 1 ISIS-II PASCAL-80 Compiler V2.0 invoked by: >[compiler] :F1:SIX1.PA2 CODE(:F1:SIX1.CO2) LIST(:F1:SIX1.LS2) Line Seg Proc Lev Disp 1 1 1  1 { Component 2 Compilation Unit - Source on SIX1.PA2 } 2 1 1 1 3 1 1 1 component six1c2; 4 11 1 1 segment procedure bb; 5 11 1 0 0 begin 6 11 1 1 0  This is procedure cc @  write(header,'bb'); 7 11 1 1 44 level := increment(level); 8 11 1 1 54 cc; 9 11 1 0 59 end; { bb } 10 12 1 1 segment procedure cc; 11 12 1 0 0 begin 12     12 1 1 0 write(header,'cc'); 13 12 1 1 44 level := increment(level); 14 12 1 0 54 end; { cc } 15 12 1 0 68 16 1 2 0 0 begin 17 1 1 0 0 end.   PASCAL-80 Compiler V2.0 :F1:SIX1.PA2 Page: 2 Procedure/Function Statistics: Name P/F Seg Proc Lev Param Size LocaVNH SIX1 AA BB CC aa This is procedure    N  This is procedure cc @ l Vars Total Data Code Size BB P 11 1 1 0 0 12 74 CC P 12 1 1 0 0 12 68 Symbol table space remaining : 14102 bytes 17 lines compiled No errors detected  level:  :This is the main program BHThis is procedure bb  F          LINK SIX3.ERT, P80EXT.LIB, PSUM.OBJ, ASUM.OBJ & TO EXTMOD.OBJ PRINT(:CO:) MAP LOCATE EXTMOD.OBJ CODE(0E000H) PUBLICS PRINT(:CO:) { Program with external linkages - Source on SIX3.PAS } program six3; public asum; type range = 0..1000; var arslt: integer; function asum(a,b,c: range): integer; end; { asum } public psum; type range = 0..1000; var SIX3 REFERENCE V1.0  prslt: integer; function psum(a,b,c: range): integer; end; var i,j,k: range; result: integer; begin i := 10; j := 12; k := 14; result := asum(i,j,k); writeln(result,arslt); result := psum(i,j,k); writeln(result,prslt); end. { six3 }               1 5 var prslt: integer; 14 1 3 3 function psum(a,b,c: range): integer; 15 1 1 6 end; 16 1 1 7 17 1 1 7 var i,j,k: range; 18 1 1 10 resul P 1 1 0 4 16 32 158 External Symbols: Name Class Size ARSLT Variable 2 ASUM Function 0 PRSLT Variable 2 PSUM Funct  PASCAL-80 Compiler V2.0 :F1:SIX3.PAS Page: 1 ISIS-II PASCAL-80 Compiler V2.0 invoked by: >[compiler] :F1:SIX3 Line Seg Proc Lev Disp 1 1 1 1 { Program with external linkages t: integer; 19 1 1 0 0 begin 20 1 1 1 0 i := 10; j := 12; k := 14; 21 1 1 1 30 result := asum(i,j,k); 22 1 1 1 56 writeln(result,arslt); 23 1 1 1 87 result := psion 0 Symbol table space remaining : 14284 bytes 25 lines compiled No errors detected PQETAB#PSUMPRSLTASUMARSLTPQPEXT5 PQETAB  - Source on SIX3.PAS } 2 1 1 1 3 1 1 1 program six3; 4 1 1 3 5 1 1 3 public asum; 6 1 1 3 type range = 0..1000; 7 1 1 3 var arslt:um(i,j,k); 24 1 1 1 113 writeln(result,prslt); 25 1 1 0 144 end. PASCAL-80 Compiler V2.0 :F1:SIX3.PAS Page: 2  integer; 8 1 2 3 function asum(a,b,c: range): integer; 9 1 1 6 end; { asum } 10 1 1 5 11 1 1 5 public psum; 12 1 1 5 type range = 0..1000; 13 1 Procedure/Function Statistics: Name P/F Seg Proc Lev Param Size Local Vars Total Data Code Size ASUM F 1 2 1 10 External PSUM F 1 3 1 10 External SIX3      Instruction: 54     06 { This program illustrates the use of the errorset procedure } program eight1; type value = 0..255; procedure rterror; begin writeln; writeln('Detection of Error Number: ',errnumber:0); writeln; end; pro EIGHT1 REFERENCE V1.0 cedure square(i: value); begin writeln('Input value: ',i:0); i := i * i; writeln('Squared result: ',i:0); writeln; end; begin errorset(rterror); square(10); square(100); square(200); end. { eight1 } Executing this program results in the following output: Input value: 10 Squared result: 100 Input value: 100 Detection of Error Number: 1 Input value: 200 Value range error Segment: 1 Procedure: 3   Detection of Error Number:    Z Input value:  ؏Squared result:   | d    0 80 end; 14 1 2 0 94 15 1 3 1 procedure square(i: value); 16 1 3 0 0 begin 17 1 3 1 0 writeln('Input value: ',i:0); 18 1 3 1 44 i := i * i; 19  94 SQUARE P 1 3 1 2 0 14 128 EIGHT1 P 1 1 0 4 0 16 52 Symbol table space remaining : 14532 bytes 28 lines compiled No er PASCAL-80 Compiler V2.0 :F1:EIGHT1.PAS Page: 1 ISIS-II PASCAL-80 Compiler V2.0 invoked by: >[compiler] :F1:EIGHT1 Line Seg Proc Lev Disp 1 1 1 1 2 1 1 1 {  1 3 1 56 writeln('Squared result: ',i:0); 20 1 3 1 103 writeln; 21 1 3 0 113 end; 22 1 3 0 128 23 1 1 0 0 begin 24 1 1 1 0 errorset(rterror); 25 rors detected This program illustrates the use of the errorset procedure } 3 1 1 1 4 1 1 1 program eight1; 5 1 1 3 6 1 1 3 type value = 0..255; 7 1 1 3 8 1 2  1 1 1 6 square(10); 26 1 1 1 16 square(100); 27 1 1 1 26 square(200); 28 1 1 0 38 end. PASCAL-80 Compiler V2.0 :F1:EIG 1 procedure rterror; 9 1 2 0 0 begin 10 1 2 1 0 writeln; 11 1 2 1 10 writeln('Detection of Error Number: ',errnumber:0); 12 1 2 1 70 writeln; 13 1 2 HT1.PAS Page: 2 Procedure/Function Statistics: Name P/F Seg Proc Lev Param Size Local Vars Total Data Code Size RTERROR P 1 2 1 0 0 12                                                                   !    !    "    "    #    #    $    $    %    %    &    &    '    ''''''' ' ' ' ' ''''SIX3LST SIX3ERTEIGHT1PASEIGHT1COD EIGHT1LSTd ISISDIR'ISISFREO'ISIST0ISISLABPASCALb(PASCALRES4COMPCOD JOINCODGENOBJCOD P80EXTLIB~ P80RUNLIB" P80ISSLIB & P80RARLIB P80ISSPLB, EXPAS)BUFFERPASm ERRORPASNSEEKEXPASPEOPLEDATFIG31PASdFIG32PASFIG33PAS| FIG34PASDFIG35PASmFIG36PASFIG37PAS* FIG38PASASUMOBJcASUMASMASUMLSTPSUMPLMh PSUMOBJ PSUMLST SIX1PAM?SIX1PA2ZSIX1PA1SIX1CSD SIX1COM SIX1LSM SIX1SYM7SIX1CO1 SIX1LS1SIX1CO2SIX1LS2 SIX1COD SIX3CSDSIX3PASSIX3COD '    '(    (    )    )    *    *    +    +    ,    ,    -    -    .    .    /    /    0    0    1    1    2    2    3    3    4    4    5    5    6    6    7    7    8    8    9    9    :    :    ;    ;    <    <    =    =    >    >    ?    ?    @    @    A    A    B    B    C    C    D    D    E    E    F    F    G    G    H    H    I    I    J    J    K    K    L    L    M    M    N    N    O    O