FORMAT (? ADA COMADA2 COMp ADA8080  KAPSE ( MAZEWAR ADA<STARTREKADAQTWRS ADADUMP1 ADASTARTREKCOM  !"#$MAZEWAR COMo%&'()*+TWRS COM5,-./TWRS $$1 -~ Ada Compiler V1.20a S#00000000 Copyright (c) 1982 Supersoft Inc. and Maranatha Software Systems $  2ͯ ͖ (Ăy 2͵ ͋ ͖ ͖ Ăy0 ͖ 2ͯ 1 'd ! ^#V#*0}o|g*  ":Dy~da Compiler V1.20a S#00000000 opyright (c) 1982 Supersoft Inc. and Maranatha Software Systems $  2ͯ ͖ (Ăy 2͵ ͋ ͖ ͖ Ăy0) ͖ 2ͯ 1 'd ! ^#V#*0}o|g*  ":Dy >2kw# .E$e$_<   6:k :k¯!l"Q!-i2$ʋ0:)) )0O c !} | Invalid syntax for integer!Ic!Ec!l"Q+-!Ew}.,E>e>0 : !OG> !G4@ Floating point number errorG!H~}!Gw#p +R-X!Fw}0 : G!P> N~w>0R!E~ʍ!Mk!Lw0Z͍:Fʮ:P/<2P:Hʺ!G!Pw!1~ #~ #~ #~ *Q~*Q#"QZ! $Z^ $ S ADA2.COM not found on current disk Compilation aborted $H !s ZÀ!€ADA2 COMG!~#¥2 ʈ " % ' w#}º  S !lú String too longG:x  G: 62> ɯ2 =5 w# :/  -M /  M  [ .p w# ./ 0:/  *ʈ / w# =ʈ /  <ʈ >ʈ /  <ʈ =ʈ >ʈ /  >ʈ =ʈ / !-+ :<!4 9!1Z!46+6P+w+w !P59!1Z!46+6f+6f+6g !P4!LxwI!MZ!M̈́!M̈́I!M͎!M̈́!Kw+w!L~I!M͎xʖ!4p!3~!-wïw!0k!3~-´!4w!0̈́~#5!3z!-~!1kw .>2k# Iw# Digit expected <w# +3-8w# Iw# <  Lw#-B .[ *} /ʍ :' =ʘ <ʨ >ʽ "ʴ %ʴ 'ʴ ! >|+w#G!~#¥x+;()#,!&?@[\]^{|}~766> x > SS\!S$z!@~x !0!@Z͍:.!1k[ !.6:3L :;!.5!9k!.5!1k: !=c!5c!>6͎>@w#>} w S Unexpected end of file within literal string Aborting compilation $!l~ # !4!~ 4o&MD  s#r*)S}< %!~#  \6 >!)"*~#":S =2 g :2P !4P P P *#"}Œ >.9 > :P :2#G:#oO&D  ^#V#F S *T]a  S  9  H :=2ž P : $ Error in line $*+"!4*+w#"+S}4 !"+S_> 9 > 9  w !~9 + k !26 # € +ͥ ͥ ͥ ͥ {0w Ҷ 4>2å y/_x/W: ~0w+ w# _ 7? A{ a[ 7?0: 7?7!!l~'7JB#'+~#877?a{ }o|g~#Z6#c~/w#~/o~w+{~w#Åw#ÏABORTACCEPTACCESSALLANDARRAYASSERTATBEGINBODYCASECONSTANTDECLAREDELAYDELTADIGITSDOELSEå Ada Phase II $  2 ͠ ͻ ͵ ͠ ͖ 8{ Ăy0 2͵ ͖ Gͻ ͋ ͖ 1ͻ ͯ 2ͯ ͖ (Ăy 2͵ ͋ ͖ ͖ y0 ͖ 2ͯ 1 'd ! ^#V#*0}o|g*  ":D x=D yå Ada Phase II $  2 ͠ ͻ ͵ ͠ ͖ 8{ Ăy0 2͵ ͖ Gͻ ͋ ͖ 1ͻ ͯ 2ͯ ͖ (Ăy 2͵ ͋ ͖ ͖ y0 ͖ 2ͯ 1 'd ! ^#V#*0}o|g*  ":D x=D y22:_5pI2*n6pp\!\$6# Gp!\ w# V:_7 syntax error(s) $Pass 3 not loaded because of pass 2 errors $Intermediate file not found $*j*S!"S*U!"7!W4!+@2Ϳ2͎!"7!92 ! 92"!@22T2l2]HT2l*UW4ZgT22!@2lT2*U:S†~ʆ T2~ʑ>J͞5>'͞5*U"f~͞5#~͞5"U"S"j!W5"Is" expected"Begin" expected"End" expectedDesignator or semicolon expectedDesignator expectedInvalid subtype indication found in procedure specification2R2ͨ !@2] !@2|  T22Right parenthesis or semicolon expected!"56 !"5~#½ >2u42ͭ ͧ#O:w^#V#^#V!"5~# "5*5~#-  "5u4 s#r#q#p !"5*5~#ʪ ; "53*s#r" ~‡ ^#V! 85}‡ *##" ~5 * s#r"5 y!6!@2 2!(@2>22R T22!(@2> In/out and out binding modes n#* "5u4 s#r#q#pͬ/ y!@2J !@2 T2,2!"5*5~#V "53'2 ^#V"N.1*5~#† "53''͙11À Semicolon or ":=" expectedAssignment operator or semicolon expectedType not completely defined for object declaration!"N2! @2:Ͷ"!@2I"!=@2X"! @2g "! @2v"!@2Ž "!$@2͇"!3@2¬"!+@2»Ϳ"! @2"!@2!@2!@2!<@2T2,2"3*ELSIFENDENTRYEXCEPTIONEXITFORFUNCTIONGENERICGOTOIFININITIATEISLOOPMODNEWNOTNULLOFOROTHERSOUTPACKAGEPACKINGPRAGMAPRIVATEPROCEDURERAISERANGERECORDRENAMESRESTRICTEDRETURNREVERSESELECTSEPARATESUBTYPETASKTHENTYPEUSEWHENWHILEXORREM!"#%&'()***+,-.....//=::=:=:;<<<<===:=<=>>>>>=?@[\]^{|}~<>å Ada Phase II $  2 ͠ ͻ ͵ ͠ ͖ Ăy0 278 2ͯ ͖ (Ăy 2͵ ͋ ͖ ͖ y0 ͖ 2ͯ 1 'd ! ^#V#*0}o|g* l":D x=D yå Ada Phase II $  2 ͠ ͻ ͵ ͠ ͖ Ăy0 278  $$1y 2͵ ͋ ͖ *2|\  !\p ~# pp2!l"\expectedNo RETURN statement found within function bodyRETURN not expected in procedure specificationMis-match of begin and end designatorsT2xʦ-ʦT22*L">͞55#"L>͞5:W͞5͞5 T2>>2>2u4"U"j!"f2!"2!@2Y O*U*s#r*U:RC~CT2C##:w++y!3@2g~eT2yy~u T22*U"\ͧ#Invalid binding modes for function parametersSubtype indication expected in function specification"Procedure" or "Function" ot yet supported!Q6#  T27*5!!5zC {C  T27~#* 6"5!Q4!42!@27?! @2w 2  T27Comma or colon expectedToo many variables in object declarationIdentifier expected!"N2!"52! @2!@2 !-@2 =  *L#"L+>͞55*7!"7"7>͞55A !+@2ʿN  X ,2!"5~#a 2u42O! @2>2 >22O:wy!@2ʫ ͧ#î o$O: w0  T2:w#:wͬ/ ^#V#^#V!"5~# "5*5~~3"T2>*͞5çw6ڳx=\=b=h=w=}=ʃ=ʉ=ʏ=ʕ=ʛá+ä?-ä;)O>*͞5yçQ.çw.ä͚.äͽ.ä.ä/äw,ä͹-2! 92"T2,2"Illegal subprogram callUndeclared identifierSyntax errorI ! 92I"O"7"U"f!W5͞5y!@2:T22!92*f>2>2u4"J*U*7*J"U!"f!"7!W4>͞5:W͞5͞5No label used for this blockSemicolon expected2ͅ6VT2,2x2!e922͌65:i2i2!e922͌65x=G:i2i2!922!92>T2Invalid pragma argumentInvalid pragmaLeft parenthesis expected**f>͞5!5> ͞5*7#"7>͞5:Wo&)|/g}/o#55!"N2.!92> ͞5*N 85|T2*L#"L*N*L#"L2!<@2M>͞55*L#"L2!'@2b2O9>*͞5y!@2IT2"!<@2MOT2yO>͞5:Wo&)|/g}/o#5!9^#V5>͞5"Nyͺ!@2>͞5>͞5:Wo&)|/g}/o#5!9^#V5>͞52ͺO>͞5>͞5O>͞5>͞5y!'5ù*f>2>2u4*U*7"U!"f*L##"L2X2H T2>222d5>͞5!5> ͞5\ !@2|T22!4@2>2X2ͺ!'92> ͞5>͞5!5> ͞5*7#"7>͞5:Wo&)|/g}/o#552ͺ! 92> ͞5 :Nw#:Ow>͞55>͞5:Wo&)|/g}/o#55>͞5'>͞5:XCx͞5> ͞55:X"!922! 922!922X'>)͞5>͞5:Xʜ>͞5{͞5z͞5>͞5> ͞5>͞55>͞55>+͞5!5"7"U"f"In" expected"Loop" expected>2SexpectedAssignment not defined for this type*N!"N!@2V!&@2V!>@2—O*N@85jT2!"N2*N@8O5ʋT2yy;O*N"N]0yèBoolean relation expectedz&xÞ5T2Operator type mismatchͺ!@2C!@2C!@2C!@2C!@2C!@2C!@2C!@2O2ͺO]!@8"Ny!8]0ʦ!`8]0ʦ!@8]0ʦ! 8]0z5ʢʢʢʢʢxÞ5z°>·>Þ5! @2! @2!#@2O2͆Oy͆! @2! @2O!@2'#!@2G#~65x=ʾ)=T*=P"=ʸ*=*==+Æ+3p~P"ggOT2y\ ͙1͓6ڜ*N@8]0¨!@8"N>͞5x=͞5͞52T2Type mismatchRight parenthesis expectedInvalid use of procedure in expression>͞5*L5#"L*f22u4"f|"*U6#6*N2!@2O£!"N2!@2[ã!"N2.O!9^#fk N4# *Ns#ry! @2R!@2ʣ"NT2a~# ®*f|*U3!"J ~<2 N#F =#:=2/x! ~+ ^#V͕/"N"\ ~ʕ >*͞5!!@28!O,"T2y!:`E!,"T2*\2!8"N.O>*͞5>-͞5*7#"7>͞5:Wo&)|/g}/o#5*7+5>2c*\͚0>͞5:Wo&)|/g}/o#5*5y"N!@2!!T2y!2O*N|ĕ/"N]0!T2yToo many indecesComma, right parenthesis or ".." expectedComma or right parenthesis expected 85|b" #T2~6l"! 8]0y""T2!"N2!e922.!9285}½"*N 85}">I͞5" 85}"*N85}">H͞5"N2Qualified expression type@2>O>͞5y!@2+T2> ͞55"O>͞5!9^#V5y!92>͞55>͞55"f">+͞5!5*7+"72! 922! 92Invalid type for case expression=> or | expectedCASE expectedInvalid WHEN found after choice OTHERS used*L#"L2!@8"N.!992> ͞5*L5#"L"O>͞55>͞55y!@2!@2i"!922!92>͞552!92"Then" expected"End if" expected2"!922! 922!92>͞55>͞5522.> ͞52!@2O*j~#ʘT2Ø9T2!"NÅ*j ^#V"N>K͞5*j~͞5͞5#^#V*j͕/ ~~#~~!Á!5y.!@2ʘ T2*j~*j͕/ ~3#~3 x͞5*jF:W>O͞5x͞5͞5>'͞5*j^#V5Return expression expectedReturn expression not expected~#Fʋxʕ\ _!@2fT2,2*N85|~ T2,22.1T2,2T2,2Assignment to constantAssignment to "in" mode parameterUndeclared variableAssignment operator 2͆OOy/Þ5z >Þ5!@8]0>Þ5!8]0s! 8]0z1 ʂ>/͞5>1Þ5z ʂ>͞5xÞ5! @2ʮ!!@2ʮ!?@2ʮ!@2O2OyÊz!?!8]0! 8]0z0 >2Þ5z xÞ5!8]0z! xÞ5͂! @22*N!8"NO"N85|Y*N 85|4YbT2x͞5yInvalid type for exponentiation 8ʘ8*N}ʱ]0ʵT2"N y͞5!~͞5#2Oy!@22.!@2T2<2+#! N#F*J/4"NT2a|S"N*J ^#V]0a# T2a*J ^#V"N>͞5*J^#V5"f6#6*+">͞55*J ~·^#V! 85|ʷ>*͞5*JVy!@2Oz< T2y2Subprogram not foundLeft parenthesis or semicolon expectedSubprogram type mismatch() expected after function call'"\*N*\ ~^#V"N"\!•  ~!f 2`2!@2!!8"N*\2."\! @2 >!͞5>2`*\ ^#V"\ ~ʥ !T2!@2+!>!͞5*\ mismatchIllegal use of reserved word2!8]09#T2>"͞522!`8]0V#T2>͞52:l#x#T2:͞52Single character expected in character literal"\-$*\ s#r ~#>*\ w2O!@2$$2c&!'>͞5:Wo&)|/g}/o#5^#V##5:c=2c#*\ 6#62~2y3?$_$T2~Q$"40$! ~2Undeclared type2c"\ 6>2>2>2u4*\ s#r"\2e!922O3$~$2!/&922!*&92>2Y2Ox%2Yy&%:Y%2-$2!/&92!*&922Ox%!"N2*\'"\O>-͞5>2>2>22d5^#V!':cO s#r<2c :Nw:O#w*\ s#ry! @2¶%>2>22>2u4*\ s#r"\$!@2%|&T2%2!%@2%&T2%2-$2!@2&O*\ s#ry5&>2>2>22u4*\ s#r"\ s#r&2!6O:Yw&!'>͞5:Wo&)|/g}/o#5^#V##5:c=2cG&yRight parenthesis or comma expected"OR" expectedRANGE expected<> expected&*\ ^#V"^ ~&&'T2##^#V! "N͞5x͞5͞5)>L͞5^#V!^#V N#fi55>͞5Å)F:WZ)>N͞5x͞5͞5_)>͞5n&)|/g}/o#5^#V#5Compiler error - var is not scalar, array or derived!8]0)T2*N2!e92!8"N2.! @2 *!92>͞5!\5E*!"N2.!92*N85|4*>*͞5E**N 85|E*ͨ>$͞52"N2!@2^2.!92!8]0ƒ*>%͞52! 8]0‘*>;z**T2ABS not defined for this type! 8]0*T22!e922.!92>#͞52!8]0*T22!23ڜ\ !e92{͞5FILE READ undefined for this type2!@2^2.!92>!8]0ʖ-! 8]0ʖ-!@8]0ʖ-!`8]0ʖ-!8]0ʖ--T2{͞5PUT undefined for this type2!@2^!8"N23ڜ\ ! @2-h,T2,2!"N2.! h,92_!`8]0,!8]0,! 8]0,!8]0,3.T2WRITE undefined for this type2!@2i.O>c͞5ỳ/>V͞522!@2ʏ.T2,2&/>R͞52!@2ʲ.T2,2̀/>T͞52!@2.T2,2M/>W͞52!@2.T2,2&/>S͞5͞5><͞5*7"#"77?*\"a ^#V"d*\ ^#V"\ ~'10 ^#V! ~!c4'1*d}ˆ1*a ^#V"a ~}17##^#V"d[1*d ^#V"d'1O*N͕/ ~1#~111>.͞51>P͞51>͞5y! 8]01>3Þ5*N ~1>&Þ5!8]02> Þ5>QÞ5ʞ5͞5 2*L#>͞55#"L2!@2,2@2T2ɼWxz$X6I2!42I2*5s2X6g22I22 Error in line $ Hit any key to continue, cntl-C to quit... $> X6> X6%32T2End of file encounter#r6#6#6#6#:Ww#:w#:w*#""f75T2Symbol table overflow - aborting compilation*7"#"7u4*l5}”5\!l"*~#"*nw#"n5}5!"np}o|g}͞5|͞55!W6~ X6+ 5> X6!S62R66 # 6+*6*6*6*6{0w ;64>2R6*6y/_x/W:R6P6~0w+ting __:v6q6!6Ú6!37Ú6!6Ú6!6Ú6!6Ú6~§6766#ʧ6+~#ʜ6ø6·67?a{ FALSETRUELISTPRINTOFFONGETPUTBDOS~'*^ ^#V"^&2ͼ'O>-͞5>2>2>222d5^#V!':cO s#r<2c*\ s#r"\ :Nw:O#wy! @2'!92Index constraint not expectedctedRANGE expecü''ͺ''T2!'922úRange error".." expected85|(>͞5!X5Å)~2|(F:W<(>M͞5x͞5͞5A(>L͞5^#V!^#V N#fi5 N#F! ~v(++5(F:Wʚ(>N͞5x͞5͞5ß(>͞5n&)|/g}/o#5^#V#5 ~ʅ)(()T2Å):<)>͞5F:W)>Me92*N!8"N236+\ !92"N>X͞52"NÜ!@8]0L+T22!e92*N!8"N236+\ !92"N>Y͞52!@8]0ʕ+T22!e92*N!8"N236+\ !92"N>Z͞52!8]0+T2>͞5!X522!@2^23ڜ\ !92C!8]0ʖ-! 8]0ʖ-!@8]0ʖ-!`8]0ʖ-!8]0ʖ-L,T2GET undefined for this typeComma expected2!@2^!8"N23ڜ\ ! @2ʪ,h,T2,2!"N23ڜ\ ! h,92[!`8]0,!8]0,! 8]0,!8]0,-T2!@8"N2!@2/T2,2̀/>U͞5!8"N23ڜ\ ! @2M/h,T2,2!8"N2.! @2A/!@8"N23ڜ\ !e92!8"N23ڜ\ Y/ ~ ^#VÕ/*7s#r#"7 ~0>͞5 ^#V n&####|/g}/o#5> ͞585|'>͞5!5>Q͞5>͞5:Wo&)|/g}/o#5^#V#5>͞5>͞5!5>͞5>͞5> ͞5*N|n0"N5}"\!"2c*\ ^#~š0#^#Vw0*\ ~1*\ ^#V ~ʾ07!c4*\ ^#V ~0"\ç01 >͞5:c͞5͞5>͞5~͞5ed unexpectedly Compilation abortedq5ʍ3ʍ3ʔ3ʦ3ʵ3ʔ33W3T2Internal compiler error - invalid code from scanner $q5G!q5w#™3q52q52q52q52q52q52*#"}%3>.X6%3*f|3*U"Z^#V"J|47^#V|"4*JW4*JI4"JW4*J*Z5|I4*J^#V"4*Z^#V3g4~77?67? #Y4*!7 {4:=.5 6# ‘46w#ʯ4 Ÿ4:w#:w#:w#6#6#6#6#:w#:w#:w#*Us#r*f}44*UsNEWLINEOPENCLOSEDELETECREATEFLUSHREADWRITEBDOSABSREALRNDNAMEIS_OPENEND_OF_FILE!"77˜7}7 Code generator not found $*77*7"7Ø7ADA8080 { FALSETRU8BDOSINTEGER7 8REATEFLOAT7@8REALBOOLEAN7`8LE!CHARACTE78CodSTRING8`878FILE78ADAUFCB87à Ada 8080/8085 code generator $     KAPSE     KAPSE     KAPSE   ^#V2~:zO! & ##N:}5 y0 > 5 >2~2}yC >2}~ *">! ͍ ~ > ͡ ~ >! ͡ s ~ ^#V~ ~  s ~ ~ _s ~ s#rs ~ 933>! ͷ 2ͷ 2ͷ 2ͷ 2*ͮ > >! *ͮ v~ ~ ͦs ~ }os ~ }os ~ }o~ F~ ~ ?>! ͷ o&ͮ ~ ͓~ *~ ~ ʹ> ͡ > ͡ ~ d~ ͷ ͷ > ͍ > > ͍ ~ 7!ͷ w# ó > *v*v  ͮ i`ͮ !ͮ i`ͮ *v  !  ~ͻ~ ~ #~ :~ V~ ̀~  ~ ~ '~ A~ c~ ͕~ ~ ~ ~ -~ ́:~> N#~ #  ͷ oͷ g)v^#Vî ͷ ͷ } | *{ } \ >!"{*{~#"{*vw#"v}o|g  Internal compiler error - invalid a-code $\!e6C#6O#6M!h6!k6!|6#6#6#6\\š  Directory full $!"x*x\ Disk full*x*v |}*x"xà*x\µ 2 ͖{ Ăy0 2͵ ͖ Gͻ ͋ ͖ 1ͻ ͯ 2ͯ ͖ (Ăy 2͵ ͋ ͖ ͖ Ăy0 ͖ 2ͯ 1 'd ! ^#V#*0}o|g*  ":D x=D y2X*+!"Ù{/_z/W+D|W|G|WB}!7?M)Fx|/g}/o#"4m*420zz+!1s#r#6!3{_zW5ʹyOxG++yO#xGҵ+yO#xG?Î:0"4| !*4|!*4+|`i+ KAPSE     KAPSE     KAPSE * R»  KAPSE not found $*vR*v"vû!#"v!|6\%  Intermediate code file not found $\!"x2}ͷ 2zo&MD &~#F#N_*x"x:}xyx*x++"xxʠ:zʓͷ Çy;<2}?ͷ £:z"“*x"xÓͷ oͷ g)v*xs#r;!|6\!"{2}ͷ 2zo&)+ # >! ͮ > >! ͮ ~ ͪs ~ ~ ͂~ ͎> ͡ ~ âs ~ s >! ͡ ~ 9s ~ ~ s ~ ^#V#N#F~ ͜~ ͼ~ ~ ̀s ~ s#r#q#p~ K~ ~ `~ ~ ͹~ '~ ͏~ ͧ~ ~  ~ ͕ ~ ͨ ~  ~  ~ R ~  ~ ͕ ~  ~  ~ a~ ͘~ J>> ͷ ͷ > ͡ ~ v> ͡ ~ *>> ͷ ͷ > ͡ ~ ͏>> ͷ ͷ > ͡ > ͡ ~ {>> ͷ ͷ > ͡ ~ ͮs ~ n&s ~ s~ }~ \ Compilation complete $E Q ` o z   # * 1 8 I P W <^ e | ! ( 4 ; B Q Y _ m w ~       $ + 2 9 @ G N U r     & - 4 ; B I P W ^ e l *4Constraint error, negative exponent $"4xmAy/Ox/G*4"4zWx怪.myo!*4+}/o|/g#*4zʑ{/_z/Wʡ¡ʡʡxz{"!" 2 ʰ! ð"4"" 2: ʹ! ! >O!  *:#|/g}/o#*4"4"" ""ð! ~-!+ .~,-!. ~.j/<=/<L~. .~. `O. ͊ TjO.͊ a22. ͊.͊4  4-~  "4"" ! * **4"4"" ""ð!+:. @w,>uw"4"" ""͚ð!+. ²-²-+:. ,w>,w 020ɯ~w# ~w+ ~/w#~/ ~#+ w#5 w#@ 6#J "4 :7e p   V !82 :8- 2 :7=e 270e :e )) )0O :7=Œ : ʼ |/g}/o#s#r*4Invalid data, try again: $"4! J .J !74!8"  + - .w ʘ .K E[ e[ 0@ :@ .&G>@ .4S     G.~˜ .w,p  @ +n -t .w ʘ 0@ :@ G.'>@ N~w>0n .~ʦ .$ .#w+  : :'/<2': ..'w  5 *s#r#* s#r*4./ .6./~) ./>0.5r E  .'5..~ -~ -~ .'w ./6.,(+ ., ., .,(4 ., >E.'~ >+È /-~ wÎ >0~0*4"4ڶ  ù   *4FALSE$TRUE$"4N#Fx ~# *46  _"4*T]!9"y.**4+V+^ !"4!^#V###yO#xG^#V+`i+*4*yu^#V h##*<++=^#Vh*<++=“N#fi*"9*<++=²N+fi"9"4!9*4"4"6}!8s#r#=!8"H*6))}/o|"4"W~XX6ò"4"W~X(Xò"4"W> eX> eXò"4"W~27!Ua!UsYXò"4>27~ʣ@>:>27# ʽ~ ʽ#:7<27æZ>.~ #:7<27:7o&"" !!*46##6ò"4¡¡"4"WXJXò"4"WXJXJXò"4"WXJXJXJXJXò"4"W~27X:7ʲ=27JXê"4"WX{eXò"4"WX{eXzeXò"4 . 4.! !+ . ? ~4 Divide by zero error $"4"" xi!@!*4*"* "xʃy/Ox/G xʑÃʰ!"!@"͚ðy³"4bk"`i" ! ð"4"" ""!#Ç*4"4"" ""!‡#"4"" ""! : !~‡#S"4"" ""! : *4"4"" ""! : Ç"4"" ""! : ‡!~#Çzz/W{/_::7=27* ~#" T.+ . 6-6P-w-w.'5T.+ . 6-6f-6f-6g.'4.#xw .$+ .$ .$  .$4 .$ ."w-w.#~ .$4 "4 ! ͼ ! ͼ *4ʡ  Ù :7O8# #~$"4w*4"4 !8" !74N:7G    "4!8J !8>272 z: z/W{/_6-#:7<27e e e e {0w#6$8 *4  ~<0w2 :7<27e y/_x/W: ~0w#"4"" !'6. ~ ü . >->0>.. 5 >  . ~ 5 ,T.+ ./6., E . 4 /g9*H^#V#"HN#F#^#V{/oz/g## +:6=26 DM"4!^#V##8S  No value at end of subprogram $"4*<++=~N#fi*4"4N#Fx¢*4w# Ù"4xºz!G6#6#p#q#s!L J !AK~w!E!w+K +F!PK>2V  +:V=*J&}o*K*4@Me#8S  Nvalue at end of subprogram $"4*"4"W~27~XasX6#6##6*W6*4"4"W~27~XasXX6#6##6ò"WXyeXxeX{eXzeXò"4"W~27X:7ʲ=27eXB*W6*46# i :7bk6# 6 # ˆ#~+:¬~##@!755í:7Oxy~. #õy~. ##!  xy~ #~###~=#6######6=#6###(#~+V #N4 ' ~#~O if x_pos /= 2 and maze(y_pos)(x_pos-1) = ' ' then x_pos := x_pos - 1; moved := true; end if; when 'K' | 'k' => if x_pos /= 54 and maze(y_pos)(x_pos+1) = ' ' then x_pos := x_pos + 1; moved := true; end if; when character(3) | 'Q' | 'q' => end_game; end case; if moved then for i in y_pos-1..y_pos+1 loop for j in x_pos-1..x_pos+1 loop if maze(i)(j) = '$' then lose_treasure; add_score(100); end if; end loop; end loop; maze(y)(x) := ' '; display(' ',x,y); maze(y_pos)(x_pos) := user_symbol; display(user_symbol,x_pos,y_pos); end if; end USER_INPUT; procedure MOVE_GUARDS is x,y,d : integer; begin x := guards(next_guard,1); y := guards(next_guard,2); d := guards(next_guard,3); timer2 := timer2 + 150; display(' ',x,y); -- erase this guard maze(y)(x) := ' d if; when 4 => if y = 2 then guards(next_guard,3) := 1; else guards(next_guard,2) := y - 1; end if; end case; if guards(next_guard,1) = t_x_pos and guards(next_guard,2) = t_y_pos then lose_treasure; end if; if guards(next_guard,1) = x_pos and guards(next_guard,2) = y_pos then end_game; else maze(guards(next_guard,2))(guards(next_guard,1)) := 'X'; display('X',guards(next_guard,1),guards(next_guard,2)); end if; next_guard :=d(75) = 1 then if not treasure then treasure := true; t_x_pos := rand(55); t_y_pos := rand(14); while maze(t_y_pos)(t_x_pos) /= ' ' loop t_x_pos := rand(55); t_y_pos := rand(14); end loop; maze(t_y_pos)(t_x_pos) := '$'; display('$',t_x_pos,t_y_pos); else if rand(25) = 1 then lose_treasure; end if; end if; end if; end loop; end MAZE_WAR; ; else if rand(25) = 1 then lose_treasure; end if; end if; end if; procedure STAR_TREK is energy : integer := 4000; torpedoes : integer := 10; star_date : integer := 3421; klingons : integer; total_klingons : integer; -- # klingons in galaxy star_bases : integer; -- # starbases in galaxy x_sector,y_sector : integer; -- position of Enterprise x_quadrant,y_quadrant : integer; -- position of Enterprise condition : string(1..6) := "Green "; damage : array(1..6) of integer; x,y : integer; max_klingons : constant integer := 4; x_klingon, y_klingon, power_k a,b : integer; function sqrt(a : integer) return integer is begin if a=0 then return 0; elsif a=1 then return 1; else for guess in 2..256 loop if guess**2 = a or (guess+1)**2 > a then return guess; end if; end loop; end if; end sqrt; begin -- distance a := i - x; b := j - y; return sqrt(a ** 2 + b ** 2) + 1; end distance; procedure get_blank_sector is begin x := rand(7); y := rand(7); if sectors(x,y) /= '.' then get_blank_sector; end if; end get'; case d is -- switch on direction of guard i when 1 => if x = 54 or (x > 17 and x < 38 and rand(9) = 1) then guards(next_guard,3) := 2; else guards(next_guard,1) := x + 1; end if; when 2 => if y = 13 then guards(next_guard,3) := 3; else guards(next_guard,2) := y + 1; end if; when 3 => if x = 2 or (x > 17 and x < 38 and rand(9) = 1) then guards(next_guard,3) := 4; else guards(next_guard,1) := x - 1; en (next_guard rem 4) + 1; end MOVE_GUARDS; begin -- MAZE WAR! initialize; while game loop timer2 := timer2 + 1; while timer2 > 800 loop timer2 := timer2 - 800; timer := timer + 1; add_score(1); if timer = 100 then end_game; end if; position_cursor(51,15); put(timer); position_cursor(1,16); end loop; if timer2 rem 2 = 0 then move_guards; end if; if bdos(11) /= 0 then user_input; move_guards; end if; if ranlingon : array(1..max_klingons) of integer; sectors : array(0..7,0..7) of character; quadrants : array(0..7,0..7) of integer; command : integer; moved, docked : boolean := false; function rand(A : integer) return integer is function truncate(A : float) return integer is b : integer := integer(A); begin if real(b) < a then return b; else return b-1; end if; end truncate; begin return truncate(rnd(0.0) * real(a)); end rand; function distance(i,j,x,y : integer) return integer is _blank_sector; procedure reset is -- reset all enterprise variables begin newline; energy := 4000; torpedoes := 10; for i in 1..6 loop damage(i) := 0; end loop; condition := "Green "; end reset; procedure dock is -- dock the enterprise at a starbase begin reset; docked := true; condition := "Docked"; end dock; function unexplored(A,B : integer) return boolean is begin if quadrants(a,b) < 0 then return true; else return false; end if; end unexplored; procedure initialize is begin put("Please wait while I create the universe");newline; put("(Even God took seven days...)");newline; reset; x_quadrant := rand(7); y_quadrant := rand(7); star_date := 3421; total_klingons := 0; star_bases := 0; for i in 0..7 loop for j in 0..7 loop declare n : integer := 1; o : integer; begin o := rand(max_klingons+1); -- get rand # klingons total_klingons := total_klingons + o; n := n + o * 100; n := n + rand(8);-- gnd if; if abs(quadrants(x_quadrant,y_quadrant)) >= 100 then declare i : integer := abs(quadrants(x_quadrant,y_quadrant))/100; begin for j in 1..i loop get_blank_sector; sectors(x,y) := 'K'; x_klingon(j) := x; y_klingon(j) := y; power_klingon(j) := rand(20) * 10 + rand(20) + 5; end loop; klingons := i; end; else klingons := 0; end if; if abs(quadrants(x_quadrant,y_quadrant)) mod 10 > 0 then declare i : integer := abs(quaut(y_klingon(i)+1); put(" ("); put(power_klingon(i)); put(')'); newline; energy := energy - j; end; end loop; end if; end attacked; procedure commands is procedure short_range_scan is begin -- set starship condition if klingons > 0 then condition := "Red "; elsif docked then dock; elsif energy < 300 then condition := "Yellow"; else condition := "Green "; end if; -- print quadrant map for i in 0..7 loop for j in 0..7 loop -- prie; when 7 => put("Klingons left=");put(total_klingons);newline; when others => newline; end case; end loop; end short_range_scan; procedure long_range_scan is procedure display(number : integer) is procedure dispnum(number : integer) is begin if number = 0 then put('-'); else put(number); end if; end dispnum; begin dispnum(number/100); dispnum((number/10) rem 10); dispnum(number rem 10); end display; begin put(" Long range scan"); news to fire? "); get(units); energy := energy - units; while units > 0 and klingons /= 0 loop aux := power_klingon(klingons); length := distance(x_klingon(klingons),y_klingon(klingons), x_sector,y_sector); if length /= 0 then aux := aux * length; end if; -- aux has relative power needed to destroy klingon if units >= aux then -- more than enough to kill units := units - aux; put("Klingon at "); put(x_klingon(klingons)+1); put(','); put(y_klingon(kliet rand # stars if rand(8)=1 then n := n + 10; star_bases := star_bases + 1; end if; quadrants(i,j) := -n; end; end loop; end loop; end initialize; procedure set_up_quadrant is begin for i in 0..7 loop for j in 0..7 loop sectors(i,j) := '.'; end loop; end loop; x_sector := rand(7); y_sector := rand(7); sectors(x_sector,y_sector) := 'E'; if abs(quadrants(x_quadrant,y_quadrant)) mod 100 > 9 then get_blank_sector; sectors(x,y) := 'B'; edrants(x_quadrant,y_quadrant)) mod 10; begin for j in 1..i loop get_blank_sector; sectors(x,y) := '*'; end loop; end; end if; end set_up_quadrant; procedure attacked is begin if klingons /= 0 then for i in 1..klingons loop declare j : integer; begin j := power_klingon(i) / distance(x_klingon(i),y_klingon(i),x_sector,y_sector); put(j); put(character(9)); put("unit hit from Klingon at "); put(x_klingon(i)+1); put(','); pnt a row of quadrant put(sectors(i,j)); put(' '); end loop; put(" "); -- print a line of starship information case i is when 1 => put("Stardate=");put(star_date);newline; when 2 => put("Condition: "); put(condition); newline; when 3 => put("Quadrant="); put(x_quadrant+1);put(","); put(y_quadrant+1);newline; when 4 => put("Sector="); put(x_sector+1);put(","); put(y_sector+1);newline; when 5 => put("Energy=");put(energy);newlinline; for i in 0..7 loop for j in 0..7 loop if abs(i-x_quadrant) =< 1 and abs(j-y_quadrant) =< 1 then quadrants(i,j) := abs(quadrants(i,j)); end if; if unexplored(i,j) then put("***"); elsif i = x_quadrant and j = y_quadrant then put(" E "); else display(quadrants(i,j)); end if; put(' '); end loop; newline; end loop; end long_range_scan; procedure phasors is units : integer; aux : integer; length : integer; begin put("Number of unitngons)+1); put(" destroyed!!!"); sectors(x_klingon(klingons),y_klingon(klingons)) := '.'; klingons := klingons - 1; quadrants(x_quadrant,y_quadrant) := quadrants(x_quadrant,y_quadrant) - 100; total_klingons := total_klingons - 1; newline; else -- subtract what we threw at it... power_klingon(klingons) :=power_klingon(klingons) - units / length; put(units / length); put(" unit hit on Klingon at "); put(x_klingon(klingons)+1); put(','); put(y_klingon(klingons)+1); newline; units := 0; end if; end loop; end phasors; procedure navigate is type_of_propulsion : character; x, y : integer; procedure get_x_y is begin put("New x co-ordinate: "); get(x); put("New y co-ordinate: "); get(y); if x<1 or x>8 or y<1 or y>8 then put("Invalid co-ordinates, try again!");newline; get_x_y; end if; x := x - 1; y := y -1; end get_x_y; procedure new_sector is begin get_x_y; if sectors(x,y) = '.' then sectors(x,y) := ' begin put("Impulse (I) or Warp (W) power? "); get(type_of_propulsion);newline; docked := false; if type_of_propulsion = 'W' or type_of_propulsion = 'w' then get_x_y; moved := true; energy := energy - distance(x_quadrant,y_quadrant,x,y) * 100; x_quadrant := x; y_quadrant := y; else new_sector; short_range_scan; end if; check_docked; end navigate; begin -- commands command := 0; attacked; -- Enterprise is attacked immediately short_range_scan; -- show the cand case; end loop; end commands; begin -- main startrek program initialize; while energy > 0 loop moved := false; -- say we haven't moved out yet set_up_quadrant; -- initialize the quadrant commands; end loop; if total_klingons = 0 then if energy > 0 then put("Congratulations, you have saved the Federation"); newline; put("and have been promoted to Admiral.");newline; else put("You have destroyed the klingon manace and have"); newline; put("killed  out. The Klingons have invaded"); newline; put("en masse and wiped out the Federation."); end if; end STAR_TREK; put("not to think of the pidgeons."); newline; end if; elsif energy <= 0 then put("You have been destroyed and the empire has been"); newline; put("taken over by Klingons. Better luck next time."); newline; else put("Time has run out. The Klingons have invaded"); newline; put("en masse and wiped out the Federation."); end if; end STAR_TREK;E'; sectors(x_sector,y_sector) := '.'; energy := energy - distance(x,y,x_sector,y_sector); x_sector := x; y_sector := y; else put("That sector is not empty, try again!");newline; new_sector; end if; end new_sector; procedure check_docked is begin docked := false; for i in x_sector-1..x_sector+1 loop for j in y_sector-1..y_sector+1 loop if sectors(i,j) = 'B' then docked := true; end if; end loop; end loop; if docked then dock; end if; end check_docked; ptain what he is up against while not moved and energy > 0 and total_klingons /= 0 loop put("Command? "); get(command); case command is when 0 => long_range_scan; when 1 => short_range_scan; when 2 => phasors; attacked; short_range_scan; when 3 => navigate; when others => -- menu if bad command put("0 - long range scan");newline; put("1 - short range scan");newline; put("2 - phasors");newline; put("3 - navigate");newline; eyourself in the process. A statue will"); newline; put("erected in your honor. Rest in peace and try"); newline; put("not to think of the pidgeons."); newline; end if; elsif energy <= 0 then put("You have been destroyed and the empire has been"); newline; put("taken over by Klingons. Better luck next time."); newline; else put("Time has run out. The Klingons have invaded"); newline; put("en masse and wiped out the Federation."); end if; end STAR_TREK;procedure TOWERS_OF_HANOI is number_of_disks : integer; procedure writeln(A : string) is -- output a string followed by crlf begin put(A); newline; end writeln; procedure MOVE (N : integer; source, auxiliary, destination : integer) is procedure move_a_disk_from_source_to_destination is procedure print_pole (P : integer) is begin put("pole "); put(P); end print_pole; begin put("Move a disk from "); print_pole(source); put(" to "); print_pole(es. A stack of n disks of decreasing size (such"); writeln("that the largest disk is on the bottom) is held on the"); writeln("first pole by holes in the center of each disk. The"); writeln("problem is to move all of the disks from the first pole"); writeln("to the third pole, only moving one disk from pole to pole"); writeln("at a time and ensuring that a larger disk is not placed on"); writeln("top of a smaller one.");newline; -- input # of disks and solve put("How mprocedure DUMP is -- sample program using file calls title : string(1..14); procedure ascii(A : character) is begin if A < ' ' or A > '~' then put('.'); -- print a period for non-printable characters else put(A); end if; end ascii; procedure hex2(number : integer) is -- print number as 2 hex digits procedure hexdigit(number : integer) is begin if number < 10 then put(number); else put(character(integer('A') + number - 10)); end if; end hexdigit; begin d"); newline; else newline; -- fill buffer with characters and check for eof read(ufcb,buffer,result); -- get a record while result loop for i in 0..7 loop hex4(address); -- write address in hex put(" "); -- print hex characters for j in 0..15 loop hex2(integer(buffer(i*16+j))); put(' '); end loop; put(" "); -- print ascii string for j in 0..15 loop ascii(buffer(i*16+j)); end loop; newline; address programs end DUMP; nd if; end loop; -- end of this record read(ufcb,buffer,result); -- get another record end loop; close(ufcb,result); -- ignore result end if; end dumpit; begin -- main program dumpit(""); -- first dump program in ccp string loop put("Name of program to dump or cntl-C to exit: "); get(title); dumpit(title); end loop; -- continue dumpingdestination); newline; end move_a_disk_from_source_to_destination; begin if n=1 then move_a_disk_from_source_to_destination; else move(n-1, source, destination, auxiliary); move_a_disk_from_source_to_destination; move(n-1, auxiliary, source, destination); end if; end move; begin -- instructions writeln("This program solves the legendary ""Towers of Hanoi"" "); writeln("problem, given any number of disks. You are given three"); writeln("wooden polany disks on pole 1? "); get(number_of_disks);newline; while number_of_disks > 10 or number_of_disks < 1 loop put(character(7)); -- beep error if number_of_disks > 10 then put("Too many disks, try again: "); else put("Must be positive number, try again: "); end if; get(number_of_disks); end loop; writeln("The required moves are:"); move(number_of_disks,1,2,3);newline; put("All disks are on pole 3."); end TOWERS_OF_HANOI; he required moves are:"); move(numbhexdigit(number/16); hexdigit(number rem 16); end hex2; procedure hex4(number : integer) is -- print number as 4 hex digits begin hex2(number/256); hex2(number rem 256); end hex4; procedure dumpit(title : string) is result : boolean := true; -- for file I/O results buffer : string(0..127); -- input buffer address : integer := 0; -- address of output bytes begin open(ufcb,title,result); -- open file if not result then put("File "); put(name(ufcb)); put(" not foun := address + 16; -- check for key depressed if bdos(11) /= 0 then bdos(0); -- system reset if key end if; end loop; -- end of this record read(ufcb,buffer,result); -- get another record end loop; close(ufcb,result); -- ignore result end if; end dumpit; begin -- main program dumpit(""); -- first dump program in ccp string loop put("Name of program to dump or cntl-C to exit: "); get(title); dumpit(title); end loop; -- continue dumping 2 ͖{ Ăy0 2͵ ͖ Gͻ ͋ ͖ 1ͻ ͯ 2ͯ ͖ (Ăy 2͵ ͋ ͖ ͖ Ăy0 ͖ 2ͯ 1 'd ! ^#V#*0}o|g*  ":D x=D y2X*+!"Ù{/_z/W+D|W|G|WB}!7?M)Fx|/g}/o#"4m*420zz+!1s#r#6!3{_zW5ʹyOxG++yO#xGҵ+yO#xG?Î:0"4| !*4|!*4+|`i+! ~-!+ .~,-!. ~.j/<=/<L~. .~. `O. ͊ TjO.͊ a22. ͊.͊4  4-~  "4"" ! * **4"4"" ""ð!+:. @w,>uw"4"" ""͚ð!+. ²-²-+:. ,w>,w 020ɯ~w# ~w+ ~/w#~/ ~#+ w#5 w#@ 6#J "4 :7e p   V !82 :8- 2 :7=e 270e :e )) )0O :7=Œ : ʼ |/g}/o#s#r*4Invalid data, try again: $"4! J .J !74!8"  + - .w ʘ .K E[ e[ 0@ :@ .&G>@ .4S     G.~˜ .w,p  @ +n -t .w ʘ 0@ :@ G.'>@ N~w>0n .~ʦ .$ .#w+  : :'/<2': ..'w  5 *s#r#* s#r*4./ .6./~) ./>0.5r E  .'5..~ -~ -~ .'w ./6.,(+ ., ., .,(4 ., >E.'~ >+È /-~ wÎ >0~0*4"4ڶ  ù   *4FALSE$TRUE$"4N#Fx ~# *46  _"4*T]!9"y.**4+V+^ !"4!^#V###yO#xG^#V+`i+*4*yu^#V h##*<++=^#Vh*<++=“N#fi*"9*<++=²N+fi"9"4!9*4"4"6}!8s#r#=!8"H*6))}/o|*4Constraint error, negative exponent $"4xmAy/Ox/G*4"4zWx怪.myo!*4+}/o|/g#*4zʑ{/_z/Wʡ¡ʡʡxz{"!" 2 ʰ! ð"4"" 2: ʹ! ! >O!  *:#|/g}/o#*4"4"" ""ð . 4.! !+ . ? ~4 Divide by zero error $"4"" xi!@!*4*"* "xʃy/Ox/G xʑÃʰ!"!@"͚ðy³"4bk"`i" ! ð"4"" ""!#Ç*4"4"" ""!‡#"4"" ""! : !~‡#S"4"" ""! : *4"4"" ""! : Ç"4"" ""! : ‡!~#Çzz/W{/_::7=27* ~#" T.+ . 6-6P-w-w.'5T.+ . 6-6f-6f-6g.'4.#xw .$+ .$ .$  .$4 .$ ."w-w.#~ .$4 "4 ! ͼ ! ͼ *4ʡ  Ù :7O8# #~$"4w*4"4 !8" !74N:7G    "4!8J !8>272 z: z/W{/_6-#:7<27e e e e {0w#6$8 *4  ~<0w2 :7<27e y/_x/W: ~0w#"4"" !'6. ~ ü . >->0>.. 5 >  . ~ 5 ,T.+ ./6., E . 4 /g9*H^#V#"HN#F#^#V{/oz/g## +:6=26 DM"4!^#V##8S  No value at end of subprogram $"4*<++=~N#fi*4"4N#Fx¢*4w# Ù"4xºz!G6#6#p#q#s!L J !AK~w!E!w+K +F!PK>2V  +:V=*J&}o*K*4@Me#8S  Nvalue at end of subprogram $"4*"4"W~27~XasX6#6##6*W6*4"4"W~27~XasXX6#6##6ò"4"W~XX6ò"4"W~X(Xò"4"W> eX> eXò"4"W~27!Ua!UsYXò"4>27~ʣ@>:>27# ʽ~ ʽ#:7<27æZ>.~ #:7<27:7o&"" !!*46##6ò"4¡¡"4"WXJXò"4"WXJXJXò"4"WXJXJXJXJXò"4"W~27X:7ʲ=27JXê"4"WX{eXò"4"WX{eXzeXò"433!933!933!933!933!! d!! d^#V!933 d dÀGreen !z!t͎!!d!!d^#V!933!933!933!933d!s#r!d^#Vd!!d^#V!933d^#V!933d^#V!933!!!!dd!!d^#V!933!!!!dd!!d!s#rd^#Vd^#Vd^#V!*^#V͓d^#V!!*^#Vʹ}oҰ>vd^#Vs#râðd^#V!s#r !9Jâd*^#V*^#Vs#rd*^#V*^#Vs#r>v!td^#V!d^#V!u!s#râJâ8>{!!Zs#r>{!!Zs#r>{>{>{^#V7>s#râ#> v!s#râJâ e''Please wait while I create the universe!>!8 ́Ù(Even God took seven days...)!|!v ́!;> {!!Zs#r> {!!Zs#r>{!] s#r>{!s#r>{!s#r!933d!s#r!933d!s#rd^#Vd^#V !933d!s#r!933d!s#rd^#Vd^#Vң !933d!s#r!933d!s#rd^#Vd^#V"!933d!s#r!933d!s#rd^#Vd^#V!>{>{d^#V7d^#V7!.sd^#V!s#rb!!9d^#V!s#r !!9>{!$"!Zs#r>{!C"!Zs#r>{>{>{^#V7>{^#V7!Es> {>{> {^#V7> {^#V7^#V͂!dF! ʹ<#!"Ñ>{>"WXyeXxeX{eXzeXò"4"W~27X:7ʲ=27eXB*W6*46# i :7bk6# 6 # ˆ#~+:¬~##@!755í:7Oxy~. #õy~. ##!  xy~ #~###~=#6######6=#6###(#~+V #N4 ' ~#~O vd^#Vs#râ > vd^#V!s#râJâ>v!C!!ͪ*^#Vaͼcs#râJâÎ!933!933*^#V!͓ҫ>v!s#râ*^#V!͓>v!s#râ!933d!s#r!933{^#V7n&!.ͦ2!-Ñ2âJ́>{!s#r>{! s#r!933d!s#r!933d!s#rd^#Vd^#V>{>{d^#V7!s#rd^#V!s#rÜ!9> {> {9Green !3!-͎âå!\;>#{!s> {> {ÔDocked!!͎â,> {>{*^#V7*^#V7^#V! > v!d!'>{^#V!Zs#r>{>{^#Vd^#Vs#rdd^#Vd^#V!d s#rdd^#V!!Zs#r!!Z!͓' dd^#V! s#r>{>{^#V!s#r' > {>{>{^#V7>{^#V7d^#Vs#r*"d^#V!s#rò!9d^#V!s#r[!9âÌ'!933d!s#r!933{>{^#V7>{^#V7!Bs<#> {>{> {^#V7> {^#V7^#V͂!d%!933d> {>{> {^#V7> {^#V7^#V͂!d_s#r!933d!s#r!933dd^#Vs#rd^#Vd^#VҠ%!f$Ñ>{>{>{^#V7>{^#V7!Ks>{>{d^#V7>{^#Vs#r>{>{d^#V7>{^#Vs#r>{>{d^#V7!_%!Z! !t%!Z!s#rd^#V!s#r8$!9>{d^#Vs#r*"%>{!s#r> {>{> {^#V7> {^#V7^#V͂! F!ʹ҆'!933d> {>{> {^#V7> {^#V7^#V͂! Fs#r!933d!s#r!933dd^#Vs#rd^#Vd^#VV ! /)unit hit from Klingon at !)!) >{>{>{^#V7^#V! !, >{>{>{^#V7^#V! ) (!)!) >{>{>{^#V7^#V !) ́>{>{^#Vd^#Vs#r*"d^#V!s#r'!9l*âEBR/>{^#V!ʹ*> {> {*Red !*!*͎t+>#{n&*!*Mt+>{ >{^#V ́%/d^#V!͓s-I-  Condition: !>-!8- > {> { ́%/d^#V!͓-ß-  Quadrant=!-!- > {^#V! -,!-!- > {^#V! ́%/d^#V!͓}.#.Sector=!.!. >{^#V! R.,!Q.!K. >{^#V! ́%/d^#V!͓.ç.Energy=!.!. >{^#V ́%/d^#V!͓"/.Klingons left=!.{^#V͂!d^#V> {^#V͂!}o1> {>{d^#V7d^#V7> {>{d^#V7d^#V7^#V͂s#r1!2d^#Vd^#Vè$22***!2! 2 2d^#V> {^#V͓d^#V> {^#V͓}oҎ2À2 E !}2!w2 2!2> {>{d^#V7d^#V7^#V^/! d^#V!s#r0!Vd^#V s#r5d^#Vd^#VҤ7dd^#Vd^#Vs#rÉ5  Klingon at !~5!x5 >{>{>{^#V7^#V! !, >{>{>{^#V7^#V! %6  destroyed!!!!6!6 >{>{>{>{>{^#V7^#V7>{>{>{^#V7^#V7!.s>{>{^#V!s#r> {>{> {v'!'Ñ>{>{>{^#V7>{^#V7!*sd^#V!s#r&!9*"Æ'âr*>{^#V!ͦl*!933d!s#r!933d>{^#Vs#rd^#Vd^#Vd*!933d>{>{>{^#V7^#V!(>{>{>{^#V7^#V>{>{>{^#V7^#V>{^#V>{^#V\_s#rd^#^#V!,D+> {> {6+Yellow!0+!*+͎t+> {> {i+Green !c+!]+͎!933d!s#r!933d!s#rd^#Vd^#VG/!933d!s#r!933d!s#rd^#Vd^#V҉,>{>{d^#V7d^#V7n& ! d^#V!s#r+!9Û, !,!, !933dd^#Vs#rd^#V!͓-,  Stardate=!,!,!. >{^#V ́%/́!9d^#V!s#ræ+!9â.3 0ã/*^#V!͓Ҏ/!- Ý/*^#V â!/*^#V!d_g/!/*^#V! _! *g/!0*^#V! *g/â.0 Long range scan!0! 0 ́!933d!s#r!933d!s#rd^#Vd^#V#3!933d!s#r!933d!s#rd^#Vd^#V2d^#V> 9́d^#V!s#rn0!9â9!933!933!933q3Number of units to fire? !X3!R3 dR >{>{^#Vd^#Vs#rd^#V!ʹ>{^#V!ͦ}o9d>{>{>{^#V7^#Vs#rd!4>{>{>{^#V7^#V>{>{>{^#V7^#V>{^#V>{^#V\s#rd^#V!ͦ5dd^#^#V7> {^#V7> {>{> {^#V7> {^#V7^#V!ds#r>{>{^#V!s#ŕ 9>{>{>{^#V7>{>{>{^#V7^#Vd^#Vd^#V_s#rd^#Vd^#V_ q8 unit hit on Klingon at !Y8!S8 >{>{>{^#V7^#V! !, >{>{>{^#V7^#V! ́d!s#rþ3â@!933!933!933ÿ:Z9New x co-ordinate: !G9!A9 >{R Ï9New y co-ordinate: !|9!v9 >{R >{^#V!>{^#V!ʹ}o>{^#V!}o>{^#V!ʹ}oc:G:  Invalid co-ordinates, try again!!':!!: ́!^:89c:>{>{^#V!s#r>{>{^#V!s#râð<!:89>{>{>{^#V7>33d>{^#V!s#rd^#Vd^#Vl>!933d>{^#V!s#r!933d>{^#V!s#rd^#Vd^#VJ>>{>{d^#V7d^#V7n&!B͓->>#{!s->d^#V!s#ré=!9d^#V!s#r'=!9>#{n&ғ>!>MÓ>â>Impulse (I) or Warp (W) power? !>!> d ́>#{!sdn&!W͓A! AU/7Bd^#V!͓7A!2A~*7Bd^#V!͓uA!ZA13!eAÏ'!pA~*7Bd^#V!͓ҝA!A97BùA0 - long range scan!A!A ́A1 - short range scan!A!A ́B  2 - phasors!A!A ́)B  3 - navigate!B!B ́!9C@â!NB/d^#V!ʹҒB"d!s!B !Bu*PBd^#V!͓LDd^#V!ʹGCB..Congratulations, you have saved the Federation!Bme has run out. The Klingons have invaded!D!D ́gE&&en masse and wiped out the Federation.!AE!;E âme has run out. The Klingons have invaded!D!D ́gE&&en masse and wiped out the Federation.!AE!;E âand try!C!C ́;Dnot to think of the pidgeons.!D!D ́rEd^#V!DÞD//You have been destroyed and the empire has been!oD!iD ́D//taken over by Klingons. Better luck next time.!D!D ́rE*E,,Ti 2 ͖{ Ăy0 2͵ ͖ Gͻ ͋ ͖ 1ͻ ͯ 2ͯ ͖ (Ăy 2͵ ͋ ͖ ͖ Ăy0 ͖ 2ͯ 1 'd ! ^#V#*0}o|g*  ":D x=D y2X*+!"Ù{/_z/W+D|W|G|WB}!7?M)Fx|/g}/o#"4m*420zz+!1s#r#6!3{_zW5ʹyOxG++yO#xGҵ+yO#xG?Î:0"4| !*4|!*4+|`i+{^#V7n&!.͓d<>{>{>{^#V7>{^#V7!Es>{>{>{^#V7>{^#V7!.s>{>{^#V!<>{^#V>{^#V>{^#V>{^#V\s#r>{>{^#Vs#r>{>{^#Vs#rê<Ñ<$$That sector is not empty, try again!!m>#{!s!933d>{^#V!s#r!9dn&!w͓}o?!)?89>"{!s>{>{^#V!?> {^#V> {^#Vd^#Vd^#V\!d s#r> {d^#Vs#r> {d^#Vs#r @!?:!@~*!@ó<â>!{!s#r!6@Ï'!A@~*>"{n&?>{^#V!ʹ}o>{^#V!ͦ}o?Bè@  Command? !@!@ >!{R !933d>!{^#Vs#rd^#V!͓!B ́6C""and have been promoted to Admiral.!C!C ́ID~C..You have destroyed the klingon manace and have!PC!JC ́C..killed yourself in the process. A statue will!C!C ́D--erected in your honor. Rest in peace and try!C!C ́;Dnot to think of the pidgeons.!D!D ́rEd^#V!DÞD//You have been destroyed and the empire has been!oD!iD ́D//taken over by Klingons. Better luck next time.!D!D ́rE*E,,Ti*4Constraint error, negative exponent $"4xmAy/Ox/G*4"4zWx怪.myo!*4+}/o|/g#*4zʑ{/_z/Wʡ¡ʡʡxz{"!" 2 ʰ! ð"4"" 2: ʹ! ! >O!  *:#|/g}/o#*4"4"" ""ð! ~-!+ .~,-!. ~.j/<=/<L~. .~. `O. ͊ TjO.͊ a22. ͊.͊4  4-~  "4"" ! * **4"4"" ""ð!+:. @w,>uw"4"" ""͚ð!+. ²-²-+:. ,w>,w 020ɯ~w# ~w+ ~/w#~/ ~#+ w#5 w#@ 6#J "4 :7e p   V !82 :8- 2 :7=e 270e :e )) )0O :7=Œ : ʼ |/g}/o#s#r*4Invalid data, try again: $"4! J .J !74!8"  + - .w ʘ .K E[ e[ 0@ :@ .&G>@ .4S     G.~˜ .w,p  @ +n -t .w ʘ 0@ :@ G.'>@ N~w>0n .~ʦ .$ .#w+  : :'/<2': ..'w  5 *s#r#* s#r*4./ .6./~) ./>0.5r E  .'5..~ -~ -~ .'w ./6.,(+ ., ., .,(4 ., >E.'~ >+È /-~ wÎ >0~0*4"4ڶ  ù   *4FALSE$TRUE$"4N#Fx ~# *46  _"4*T]!9"y.**4+V+^ !"4!^#V###yO#xG^#V+`i+*4*yu^#V h##*<++=^#Vh*<++=“N#fi*"9*<++=²N+fi"9"4!9*4"4"6}!8s#r#=!8"H*6))}/o|"4"W~XX6ò"4"W~X(Xò"4"W> eX> eXò"4"W~27!Ua!UsYXò"4>27~ʣ@>:>27# ʽ~ ʽ#:7<27æZ>.~ #:7<27:7o&"" !!*46##6ò"4¡¡"4"WXJXò"4"WXJXJXò"4"WXJXJXJXJXò"4"W~27X:7ʲ=27JXê"4"WX{eXò"4"WX{eXzeXò"4933!933d!^s!933!933!933!933!933!933!933!933!!!!dd!!d^#V!933!933d!s#r!933d!s(! != *^#V! *^#V! â.!933d*^#V#N#F͘s#rd^#Va*^#V#N#F'Ҽ> vd^#V!s#râ> vd^#Vs#râJâ>v!!!ͪ . 4.! !+ . ? ~4 Divide by zero error $"4"" xi!@!*4*"* "xʃy/Ox/G xʑÃʰ!"!@"͚ðy³"4bk"`i" ! ð"4"" ""!#Ç*4"4"" ""!‡#"4"" ""! : !~‡#S"4"" ""! : *4"4"" ""! : Ç"4"" ""! : ‡!~#Çzz/W{/_::7=27* ~#" T.+ . 6-6P-w-w.'5T.+ . 6-6f-6f-6g.'4.#xw .$+ .$ .$  .$4 .$ ."w-w.#~ .$4 "4 ! ͼ ! ͼ *4ʡ  Ù :7O8# #~$"4w*4"4 !8" !74N:7G    "4!8J !8>272 z: z/W{/_6-#:7<27e e e e {0w#6$8 *4  ~<0w2 :7<27e y/_x/W: ~0w#"4"" !'6. ~ ü . >->0>.. 5 >  . ~ 5 ,T.+ ./6., E . 4 /g9*H^#V#"HN#F#^#V{/oz/g## +:6=26 DM"4!^#V##8S  No value at end of subprogram $"4*<++=~N#fi*4"4N#Fx¢*4w# Ù"4xºz!G6#6#p#q#s!L J !AK~w!E!w+K +F!PK>2V  +:V=*J&}o*K*4@Me#8S  Nvalue at end of subprogram $"4*"4"W~27~XasX6#6##6*W6*4"4"W~27~XasXX6#6##6ò"WXyeXxeX{eXzeXò"4"W~27X:7ʲ=27eXB*W6*46# i :7bk6# 6 # ˆ#~+:¬~##@!755í:7Oxy~. #õy~. ##!  xy~ #~###~=#6######6=#6###(#~+V #N4 ' ~#~O{^#V !933d!s#r!933d!s#rd^#Vd^#V!>{>{d^#V71d^#V!s#rê!9d77Score: Time: !-!' â> {> {^#V*^#Vs#r!!!> {^#V !!!â?!*^#V*^#V*n& !7!!â>{>{> {^#V7> {^#V7! s!! > {^#V> {^#V> {!s#r> {!s#r> {!sâÒ#>{>{!7a77*******************************************************!*!$͎>{>{!777* *!!͎>{>{!7177* | 7* | | *!!͎>{>{! 7á77* +------- | | -------+ *!j!d͎>{>{! 7 77* | | | | *!!͎>{>{! 7q77* | | | | *!:!4͎>{>{! 777* +------- | | -------+ *!!͎>{>{! 7{!7!7! s#r>{>{!7!7!s#r>{>{!7!7!s#r>{>{!7!7! s#r>{>{!7!7!s#r>{!!!7+s#r>{!"!+s#r>{>{>{^#V7>{^#V7n&! ͦҞ">{!u"!7+s#r>{!"!+s#r"!"^!">{n&>{^#V>{^#V> {!s#r> {^#Vs#r!933d>{^#Vs#r!933d!!\s!m%! !!>{>{^#V!#s#r!933ddn&s#rd^#V!U͓d^#V!u͓}oҦ&>{^#V!ͦ>{>{>{^#V!7>{^#V7n&! ͓}oң&>{>{^#V!s#rd!sã&ü)d^#V!M͓d^#V!m͓}oҊ'>{^#V! ͦ>{>!7n&! ͓}oY)>{>{^#V!s#rd!sY)ü)d^#V!͓d^#V!Q͓}od^#V!q͓}oҼ)!)Õ#ü)!9dn&҂,!933d>{^#V!s#r!933d>{^#V!s#rd^#Vd^#V~+!933d>{^#V!s#r!933d>{^#V!s#rd^#Vd^#V\+>{>{d^#V7+---+---+-- --+---+---+ | *!!͎>{>{!7Ù77* | | *!b!\͎>{>{!777* | | *!!͎>{>{!7i77* +----+---+---+ +---+---+----+ *!2!,͎>{>{!777* | | *!!͎>{>{!797A77* *! !͎>{>{!7é77*******************************************************!r!l͎>{>{!7!7!s#r>{>{!7!7!s#r>{>{!7!7!s#r>{>{!7!7!6s#r>{>{!7!7!s#r>{>{!7!7!s#r>{>{!7!7!6s#r>{>{!s#r>{!s#r> {!s> {!s#r> {!s#r!c#!x!v#!3!> {^#V â$!933!933d!s!#!!$00The game has ended. Do you want to play again? !#!# dn&$d dn&!Y͓dn&!y͓}oҀ$!l$d!s$dn&!N͓dn&!n͓}o$!!\$$âÈ,!933d!s!933d>{>{^#V!7>{^#V7n&! ͓}o҇'>{>{^#V!s#rd!sÇ'ü)d^#V!H͓d^#V!h͓}ox(>{^#V!ͦ>{>{>{^#V7>{^#V!7n&! ͓}ou(>{>{^#V!s#rd!su(ü)d^#V!K͓d^#V!k͓}o\)>{^#V!6ͦ>{>{>{^#V7>{^#Vd^#V7n&!$͓?+!++B!:+!dx?+d^#V!s#rò*!9d^#V!s#r0*!9>{>{d^#V7d^#V7! s!+! d^#Vd^#V>{>{>{^#V7>{^#V7>{n&s!},>{n&>{^#V>{^#VÂ,âÂ4!933!933!933d>{>{>{^#V7!7^#Vs#rd>{>{>{^#V7!7^#Vs#rd>{>{>{^#V7!7^#Vs#r>{>{^#V!s#r!-! d^#Vd^#V>{>{d^#V7d^#V7! s!933dd^#Vs#rd^#V!͓@/d^#V!6͓d^#V!ʹd^#V!&}o!.! +!͓}o}o.>{>{>{^#V7!7!s#r=/>{>!s#r1d^#V!͓1d^#V!͓҅1>{>{>{^#V7!7!s#r1>{>{>{^#V7!7d^#V!s#r1!9>{>{>{^#V7!7^#V> {^#V͓>{>{>{^#V7!7^#V> {^#V͓}oҍ2!2BÍ2>{>{>{^#V7!7^#V>{^#V͓>{>{>{^#V#r d d^#V!s#r!15!x d^#V!d͓[5!V5Õ#[5!l5!3! d^#V !5!!4d^#V!*!͓5!5Ë,5! !\!ͦ5!5$!5Ë,5!6!K+!͓҈7 dn&?^7 d!s d!I6!7+s#r d!f6!+s#rdd d^#V7 d^#V7n&! ͦ6 d!6!7+s#r d!6!+s#rm6d 2 ͖{ Ăy0 2͵ ͖ Gͻ ͋ ͖ 1ͻ ͯ 2ͯ ͖ (Ăy 2͵ ͋ ͖ ͖ Ăy0 ͖ 2ͯ 1 'd ! ^#V#*0}o|g*  ":D x=D y2X*+!"Ù{/_z/W+D|W|G|WB}!7?M)Fx|/g}/o#"4m*420zz+!1s#r#6!3{_zW5ʹyOxG++yO#xGҵ+yO#xG?Î:0"4| !*4|!*4+|`i+! ~-!+ .~,-!. ~.j/<=/<L~. .~. `O. ͊ TjO.͊ a22. ͊.͊4  4-~  "4"" ! * **4"4"" ""ð!+:. @w,>uw"4"" ""͚ð!+. ²-²-+:. ,w>,w {>{^#V7!7d^#V!s#r1d^#V!͓/d^#V! ͓ұ/>{>{>{^#V7!7!s#r/>{>{>{^#V7!7d^#V!s#r1d^#V!͓1d^#V!͓d^#V!ʹd^#V!&}o!n0! +!͓}o}o0>{>{>{^#V7!7!s#r1>{>{>{^#V7!7d^#V7!7^#V>{^#V͓}o=3!83Õ#O4>{>{>{>{>{^#V7!7^#V7>{>{>{^#V7!7^#V7!Xs!M4!X>{>{>{^#V7!7^#V>{>{>{^#V7!7^#V>{>{^#V!*!s#râ!4dn&ҋ7dd^#V!s#rd^#V! ʹҖ5dd^#V! sd d^#V7 d^#V7!$s!Y7!$ d^#V d^#VÅ7!k7!+!͓҅7!7BÅ7È7Í4âs#ŕ 9>{>{>{^#V7>{>{>{^#V7^#VÅ7È7Í4âs#ŕ 9>{>{>{^#V7>{>{>{^#V7^#V d^#V7 d^#V7n&! ͦ6 d!6!7+s#r d!6!+s#rm6d*4Constraint error, negative exponent $"4xmAy/Ox/G*4"4zWx怪.myo!*4+}/o|/g#*4zʑ{/_z/Wʡ¡ʡʡxz{"!" 2 ʰ! ð"4"" 2: ʹ! ! >O!  *:#|/g}/o#*4"4"" ""ð . 4.! !+ . ? ~4 Divide by zero error $"4"" xi!@!*4*"* "xʃy/Ox/G xʑÃʰ!"!@"͚ðy³"4bk"`i" ! ð"4"" ""!#Ç*4"4"" ""!‡#"4"" ""! : !~‡#S"4"" ""! : *4"4"" ""! : Ç"4"" ""! : ‡!~#Çzz/W{/_:020ɯ~w# ~w+ ~/w#~/ ~#+ w#5 w#@ 6#J "4 :7e p   V !82 :8- 2 :7=e 270e :e )) )0O :7=Œ : ʼ |/g}/o#s#r*4Invalid data, try again: $"4! J .J !74!8"  + - .w ʘ .K E[ e[ 0@ :@ .&G>@ .4S     G.~˜ .w,p  @ +n -t .w ʘ 0@ :@ G.'>@ N~w>0n .~ʦ .$ .#w+  : :'/<2': ..'w  5 *s#r#* s#r*4./ .6./~) ./>0.5r E  .'5..~ -~ -~ .'w ./6.,(+ ., ., .,(4 ., >E.'~ >+È /-~ wÎ >0~0*4"4ڶ  ù   *4FALSE$TRUE$"4N#Fx ~# *46  _"4*T]!9"y.**4+V+^ !"4!^#V###yO#xG^#V+`i+*4*yu^#V h##*<++=^#Vh*<++=“N#fi*"9*<++=²N+fi"9"4!9*4"4"6}!8s#r#=!8"H*6))}/o|"4"W~XX6ò"4"W~X(Xò"4"W> eX> eXò"4"W~27!Ua!UsYXò"4>27~ʣ@>:>27# ʽ~ ʽ#:7<27æZ>.~ #:7<27:7o&"" !!*46##6ò"4¡¡"4"WXJXò"4"WXJXJXò"4"WXJXJXJXJXò"4"W~27X:7ʲ=27JXê"4"WX{eXò"4"WX{eXzeXò"4! *^#V â7Move a disk from !&!  !Y>͏^#Vh to !d!^ !>͏^#V́â*^#V!͓Һ!Q!*^#V!*^#V*^#V*^#V! !O*^#V!*^#V*^#V*^#Vâ!Ú44This program solves the legendary "Towers of Hanoi" !f!`ê!88problem, given any number of disks. You are given three!!ê!Otop of a smaller one.!!ếHHow many disks on pole 1? !.!( dR ́d^#V! ʹd^#V!}o2! d^#V! ʹToo many disks, try again: !! #$$Must be positive number, try again: !! dR b!cXThe required moves are:!A!;ê!d^#V!!!́ïAll disks are on pole 3.!! âor derived!8]0)T2*N2!e92!8"N2.! @2 *!:7=27* ~#" T.+ . 6-6P-w-w.'5T.+ . 6-6f-6f-6g.'4.#xw .$+ .$ .$  .$4 .$ ."w-w.#~ .$4 "4 ! ͼ ! ͼ *4ʡ  Ù :7O8# #~$"4w*4"4 !8" !74N:7G    "4!8J !8>272 z: z/W{/_6-#:7<27e e e e {0w#6$8 *4  ~<0w2 :7<27e y/_x/W: ~0w#"4"" !'6. ~ ü . >->0>.. 5 >  . ~ 5 ,T.+ ./6., E . 4 /g9*H^#V#"HN#F#^#V{/oz/g## +:6=26 DM"4!^#V##8S  No value at end of subprogram $"4*<++=~N#fi*4"4N#Fx¢*4w# Ù"4xºz!G6#6#p#q#s!L J !AK~w!E!w+K +F!PK>2V  +:V=*J&}o*K*4@Me#8S  Nvalue at end of subprogram $"4*"4"W~27~XasX6#6##6*W6*4"4"W~27~XasXX6#6##6ò"WXyeXxeX{eXzeXò"4"W~27X:7ʲ=27eXB*W6*46# i :7bk6# 6 # ˆ#~+:¬~##@!755í:7Oxy~. #õy~. ##!  xy~ #~###~=#6######6=#6###(#~+V #N4 ' ~#~O