`L i=L\Ʃx ? N'i  ͭЅ?0ȱ Ѕ?iȱi lԠԠ͠ԠϠŠͮŠ SYSTEM.APPLE   L$J ˶ ZˍZ  ظ  E1+ǐȄ_á ._ _ _ڕڕǴ <<<<צLine \ צ, error  :12צ( (continue), (terminate), E(diBBB B B B B BBBBBBBB4(C)Apple Computer Inc. 1979,1980 (C)U.C.Regents 1979  (/V 5>9:;F<Z>2@@D$G`I PASCALCOCOMPINITDECLARATBODYPARTROUTINE STATEMENCASESTATFORSTATEBODY1 BODY3 WRITELINUNITPARTCOMPOPTINUMSTRINFINISHUPLAZERTYPE.CODESYSTEM.STARTUPg SYSTEM.LIBRARYg9 SYSTEM.LIBRARYg9MONROE QSYSTEM.COMPILER9QSSYSTEM.CHARSETgW[ NEWSCORE.TEXTvg[\ HISCORE.DATARdThj NEWSCORE.CODEvgw SYSTEM.APPLEvg SYSTEM.PASCALvgiSYSTEM.MISCINFOELAZERTYPE.TEXT{&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7Ixix&&  ') + &п x) ++`FG8`0($ p,&") (jJJ>L+ "?I>  N `  ` x V Nx .x- z `V0^*^*>` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&t EÍeÍٶÍEeÍ Z ǐÍ 1<\ >Nk _ $詂BB$HIáZˡ$JZˡ$$CZFE_$/%+rZˡr%DZHG_%$ ZˡǑá áZZ:&DO 0.*\  a ] _dšd_ڞá% š  QáJNm^ rf *  $!        @<JJvrQQé ÄrܓQááQÄ ÄjQˡݣ +0,MÄO ` M aQ!Q QS=Má02á+3٣ á,٣'u  undefinedZ2é *"!áǘSS&N ]Mō  Q Aá>á Q Qé Äܓ+Qáȕšۥɩٞققȩ؍- áˡǒٕán | `ġ%ؤáVؤ`O VV0Pd؟ˡM٣`:٣ á#`!%á á ,0I; ۡOڤ   H ؿ ٿ 2áL Lˡ Ä ޓ%  LL߫LÄdݟܟ˄ބݟÄܟÄÄù2ީ<&á ᚹi#ááإg$áá =إC0á5áީޢإ j ޚ á۟ڟÍ~2~~%á:á;% ީ6 ޢޢ ǂإ (`á  á  ˡgá áVީ=áá ᚹJFEښ á !ک;áˡ < ɡ ءUb b & ڟˡá ;Ä /á á ǐ"x_ ٟˡإá؟؟"ġ?ڟˡ(áڣb 5g5ChK4I(G   =>) )=á   {  "$&(*,.2468:<,nplnprtvxz|~&%1Ʉ 0ۂܳ @ۂ#ګ}*á*.á =á '((')<\ >+.á_ ááP P &]] $á  á á)}Í,.+ VNO/ܳڞ d Zö _ń/>>>>>> Error #  jڟá ؚ7؞áeá ؞á٢ؚ٢ؚآآ< d\\12.\[2áC"Jr "fn nZ~<Tp  F  :ˡݣ +0,MÄO ` M aQ!Q QS=Má02á+ آآ==آآ<<dLآ;;آآ::آآ88آآ99,آآ;77,آآ;6 6آPآآآآآآ;آP "zzzá ˡ á7 ߚ  ˡߢááḾʁʁʁʁ RO AÁʁʁʁPROGRAM ʁʁʁ ʁ ʁ ʁ ʁ ʁʁʁ!á_á O Aˡ AAá(rááP Q Q́ʁ ʁʁAʁʁMʁʁaʁ ʁP} :@v.  < 0>́ʁʁʁʁ(Y%A URrrḾʁʁʁʁ RO AÁʁʁʁPROGRAM ʁʁʁ ʁ ʁ ʁ ʁ ʁʁʁ!á_á O Aˡ AAá(rnjxf   M1V ́ʁȡ  צApple Pascal Compiler [1.1]< 0>́ʁʁʁʁ(Y%A URrr٢ ?*( /&V`aWǂ,)(' Uȶ1-2. #43*05%$O ~8z~v|zbtr'" t LF0,+%ݡ    ɡ  ݡ؟ˡآښؚ=b(ɞ(&ō""!@DL_]+Z\[ ȡ6O ٢٢ ٢٢׮;IORESULT.UNITBUSY.PWROFTEN.UNITWAIT.UNITCLEA.HALT.MEMAVAIL.׮ɡ`ܹ:  ;  =   ۚZR:  :=4/T.GET.PUT.SCAN.׮צ8BLOCKREA.BLOCKWRI.TRUNC.PAGE.SIZEOF.STR.GOTOXY.UNITSTAT.ɡj*ٳ $Lٳڡ  ߢߢڡߢߢߢ ߢ ٚwODD.CHR.XXX.ROUND.MARK.RELEASE.ق>=READ.READLN.WRITE.WRITELN.EOF.EOLN.PRED.SUCC.ORD.SQR.ABS.NEW.׮7UNITREAD.UNITWRIT.CONCAT.LENGTH.INSERT.DELETE.COPY.POS.׮7MOVELEFT.MOVERIGH.EXIT.IDSEARCH.TREESEAR.TIME.FILLCHAR.׮6OPENNEW.OPENOLD.REWRITE.CLOSE.SEEK.RESEܢܢܢܢܢܢܢ ܢ ܢ ܢܢ ܢ EEܢܢܢܢܢܢܢ ܢ ܢ ܢܢ ܢ .تPɡR: . ٞNIL רۢ8ۢۢ ۢ MAXINT ۢۢۢ  Z רK KܢܢJ Jܢܢܢ ܢI Iܢܢܢ ܢ ܢG Gܢܢܢ ܢFFۢ̚C CINPUT רۢ9ۢۢ ۢ CB BOUTPUT ۢ9ۢۢ ۢ B KEYBOARDۢ9ۢۢ ۢ ȡN ܢ:áFALSE TRUE ܢؚܢ ښܢ:ٚ  INTEGER ۢۢ REAL ۢ=ۢ CHAR רۢ;ۢ BOOLEAN ۢ:ۢ STRING רۢ6ۢ TEXT ۢ9ۢ INTERACTרۢ7 ái ǔ á ߢ ˡkߩ6Äi á6ō P Pˡ ߩ6 á yá\áUߩ<  á$ōá á -ǿߟˡkߢ  ǔޚ á ߢ ˡkߟˡ6á,ˡ%=áǏ h   (  T?(, \[(! š^T (áQP L @'Z( `ۢۢۢ`á $F_EZCZ4  ب 1U [( צ words]<\ >` (  ? ˚(٣ T٣ T IhJˡJJJצ*SYSTEM.LIBRARY"ˡJˡII  Ǿǻlrڤ(ڤ `M)aU  O ۢۢ"ڤۢ P ^yۡ?a7ǀá(TڤT`( ^ Dٟٲ TO٣  ۣ٣ ``٣ ߚߟˡ% š ǩ\.áW -ǿ  á ߚߟˡ ,(ٟá!&( 7"  b  ȡ ǎ  ߟá-á ɡ ł ߚ á *á á ߟˡ%Íߩ=Í s ߩ=ár  ޟˡ1ȡ$ީ=á má Ǖޚq˫ á  á ˡ ál"ȡˡ9 إآ آ@آ @$ ˡ ˩   l v vvz á +á$b b,áá   ߚ ˡ álˡá%  ޟˡ ߚá؟*/)}%* n   آآái5 5 á)  ˫   Í QyQ  áá>  ߚ  ˫ áˡ o  ٢٢ ٢٢    ˫ áá á (  š  öń ˡ%      ł  á  á!  ááU  ˡ8ȡ,=m  ء n ł á      ڢ ڢ ڢ / ł ڢ ڢ  ˡ   ٶ˄/ڣ %ڣ áڢ ڣ ڣ Ȅ ڢ ڢ ٢٢٢á   ٢٢٢٢ 5 5š fߚٟ: ڟ˶zbک=˄2 ġ%ɡ܂5 ɡ۸ ik3T@š  ڢ( (ݫT, Mšǽ $?ˡ+$#?؟ˡإ Ǽ ˫ ˡá$ ?tc #áT؟ٓˡ Ǧٓ۩ۢۢڢؚ ˫ ár ˡás ۥۢۢۢ) Äآٚآ á  é { ˡ&ˡ ǀDXړǦȡۢڡ" ^Ȅ"3ǔ؀؀ɡ:ȡǀ(ǀ3ámá šˡ ˡ M  f˫ ,.PX  "&@ǀš'A?ˡǒ??@A@ک ۢ ۢٚ۩V؂@@h1(Yɡ Yˡ< [  words]<\ > -fˡU2أ أ 2أ أ ,á7á;áM%? 2˄+%ݍr fS! ZbF & <$d ,@Lp(@ߡS QQ Q M aء` ^(d1@#  1á áNJá' ǺáááMáRC $!á ǹˡE$words]<\ >5ˡ ``ܢ ܢ,á$ܢz"é /ޡǡܢ"áá@ߡS QQ Q M aء` ^áޓܢۚo ޓܢۚáPá4ޡzܢݚݟˡ xܢޓ{á5áMˡǷ $ǸءǏ [( צ `Ǖ ál۟ˡJá5á  š á  š ܣ ˡܣ `ؓǏFM a ܣ aMɡMM ɡ/ޡá$ Sܟˡ?ܣáܣÄܣ Äܣáܣ Äܣ ÄޓǠޓá     M ` ` ($ء O áآˡZޚˡ@á -á&ȡ   ޚٟl vء@0 ǏVU ` ` Ǐ á ]&.˫  áJá<   ˡááy ȡ 䏂 á  (( ߟˡ ˡ á)@!b@ˡu@UY d áw@!@á  ˡ= ߚá M.ݢ Tݢ Mݢ M ݢ ݢ bb˫ ábٟˡ>ݢۚݢ ܂ á ۟ˡáݢؚá  é á ݥݢݢ) Äڢۚ@ٟˡ)گ ٩@ˡآ@á  é @ˡu@b ák   ݥݢٚݢݢ()Mȡ ۚš$ġ á ٳ0d@h ٳ ǀFJ)ÍȄ )á ؂؂#Ȅ ؂خ @MÍǀڳáقšخ\á خO٩MáخAɡ*6áǝ8áǧّخǀMٕخٗMخ:á DŽ`ǀȄ?á(ۢáأ át ݳo"   ޡá ~==Í؍á =á ٩=0Í#á <á ة<8 j:jǎٟˡˡáٟˡ~ߣ áߣáߣ á ߣMߣ ߣ Fߣ ˡ Mߣ ߣ 4ߣ áBߣ %ߣ MáNߣ ߣ áOߣ .ߣ ߣ ߣ ˄ߣ dCأ ám <ܡ  ;é3 %ک= =6DÄ ,'Xˡ ޕˡǎګ]áRág ڟˡ@+ˡǎ*ߣũ'ǯ35(ǚ ݕ١ܮܮM}/˫ áۮM/\4 ߣ á ߣ ˡǐáٟá~" ٟ˄٣ڟˍ٣áȡ;Äˍáܡ  š há'à ؟ˡ$š á$á%& ˡ ˡá ١M ة=á6١á"" ˡ ˡ}sة< ١]ة;á ١MJ ١M5)ˡ ˡ]M M==< );M M}/˫ áٮM/ Bö<Rˡ(á!;á"á˄ۮ&Iܮ0 ٢ ``Ǖš``٣ ,٢: ٣á 2٣ ٣  6٣ ٣ &Cö>ˡ(á!;á"á ˄ٮ" ág !    ˡń eˡ]ÍIááǏ ;áˡńǍnnA-<;U Vá,  3 ˡ䀮šNjˡ>'á3 @$ńˡá áˡˡ njáˡu á ǘ^ " ǐ     ; ˡǖg   z9ˡń n;nnáݟˡˡ NJ  ˡ ˡqݟˡ<  H5ˡˡt ء!%R   ˡ Ä 6 á 6MˡC.86ˡǐ#;=? 5.TˡX@&ǐ72ˡ"g  H5f ˡg@&ǐ72ˡ"g'ڢȡ?á$خڢ+=˄8á=á33D6(#":<> % @˄˄0 $ۢ9á ۢښ :ˡLJ!خ٢`mۢۢ`mɡ'ġ 9!٫ خ 4Pˡágj^ܣá ܮ#ܣá ܮˡá=á; 6  <   á#:Ä쓫ˡ:ˡ LJ á  ˡˡ Lj Ȅ  áG   ljޡȄ  2M ٣ɡ ٣ šث ٫+áM M  <á  <}    tT  ˡ ˡ}áwáiNORMAL  LLOCK   8M 2M ɡ  M 2M ˫ ɡ  šث  6 ٚs á +ˡîá 2M  ˡ  ˡá2M!á A؟ˡ=٣ á-٣ á ٣ ٣  ) ٣  }} x  áá    á    á  zٟáǞeˡǢWˡQة=Íǟ<-؟ˡ á t   >  á      á á  bá`áˡ} ;ÄJá >ءǚá0;á'Wݢݢ쿩W 6  ˡ}6 x ˡ' áˡ átá #Dž p2!á A*57401)0"7/ 2-!*ǁ: lL   %"!% D< N&|d jjDlPpF$J %$ X$f ܩ=á ܩ:á  ǃ  DŽ v %  ˡ  ǃ6ǃ #Dž p2!á A*57401)0"7/ 2-!*ǁ: lL   %"!% D< N&|d jˡ   $ X$f ܩ=á ܩ:á  ǃ  DŽ v %  ˡ  ǃ6ǃ}& !ˡ ەˡǁؚ,$!)á;Íˡȡ á  X !;Íˡ ȡ ܟ˄á+á  ǁ ǂ "ܟ˄ Ä@ܩ==Ä0Ä  dž Ä@ܩ==Ä0Ä  dž(ܩ::Ä  dž džw ÄÄ  džFÄ dž-ܩ::Ä dž 'sD0 $R" (` "/á#=áá  dž(áXZ\^`Kj%&$\##'á #ܟ˄ Ä@ܩ==Ä0Ä   džܩ==Ä ޡ 䔜ߡlj˫ á ߡ,WWWWWWj0b "$&(*,.02468:<>@BDFrbPRTV4PURGE  CRUNCH   M /   ˡˡ} áǏTá  } KM CM ;ˡ ;ˡǏ  M  ([=7 9/  ˡ)á á  á }} ˡ ;ˡ} á     ˡˡ} ˡǏ  á   %á    9 ٟˡ٩=Í ǐ á ٟˡ^Oܟˡ ȡáǜ  ܚޚ۟áښǓ˫ á fá2 U\ . f apܣá  xqjc [TM E>6i  "$&h\WJSGAo!dš  & NNMj  |&z ۢۢ šnj˫ á6ڕٕ NN#á^ݤˡݤޟˡ$ áǥ ǧá2 U\ . f apܣá  xqjc [TM E>6i  "$&h\WJSGAo!dš  áۢۢۢ/ 8M ۢۢ šnj˫ á6ڕٕ NN#á^ݤˡݤޟˡ$ áǥ ǧ    f˫  á 5EG X  @   á69  FáIB ˡ~ár ɡe 9 ٓǧ9V rf˫  á 8: B ܓ    á4 ܡ ۡګ  á.ܓ 9  ܡ ۓګ  ܓͫ٫u3    s  f _    Jޡ *٣  ( ( '( ǒV~ZUkD#ǁ3  4#áSڤˡڤ؟ٓá@ á ˡ ō  á ;ˡȡ  ٟ˄á= =<"á   <ˡ ǁ<ޡL;Ä68ˡ/   ;˄X ˡǁF"$&FD,HJHFH8TJHj  ,RP 8 "  , öÍ   M / á =ˡ"=á á   } ˡ   W,PKM'"$&tW5. 68<>@BDHJLN[    س}{ع0tp l hd` \ XTPL H +@8686 8::<: ˡ  ˡ  ˡ ˡ}ˡ!áM , öÍ   M / á =ˡ"=á á   } ˡ   ˡá =á }ˡá =á }  >    ˡM    M            M / áˡ 01  ˡˡ};˶ÄǏC   áM M : ˡáá  sˡˍ}ˡ9 ˫  Í ݟˡc ݚܟá ,  9  š   ݟá  á ?>mLM)  á   } ˡ   áV á   Ǜ؟ˡũ= ǏAá` ˡFˡǐ8)  ؟ˡé3    Ǒ3 ǀݨTݢ  `ݢ áU  O  %O ǚ ؞ AQ Q M ɡ.ݟˡTV$ QáINTRINSI )TáCODE T  á7    O åDATA ׯ u áXTT Tb ߩTO ʥ*SYSTEM.INFO[*]"ˡǒ. Ƕ0 ǏV M a` Qa`  ˡDݟߓݥ eߓ6D   ݫDáT,. \b8٣  ٣ ɸ) /)٣ T˄) ٣ <٣ ٣á٣ ٣ á9٣ á+٣á٣  ٣    ˡ0٣٣Ï٣ E )٣ ٣ ٣  \8:C'ˡġ ,D 0Ǐ ?Rȡ ؟ˡ٣ ٣é ٣  ٣ ɸ) /)٣ T˄) ٣ <٣ ٣á٣ ٣ á9٣ á+٣á٣  ٣ ?šAˡ2@˩?ˍd?ȡW?ɡǀ@ ȡ%ةAáAܩ?ɡá ګ ٫ ȡ u 'aM00O ǚVVaVe ?ˡ5    #   9  KzI á  1ˡ 2أ أ  M ˶#?˄áV / áA-á      ˡ# `mˡǨ   š   áأأ ˡ  pȡ!   ?ˡ5    #   9  KzI á  1ˡ 2أ أ  M?ˡJ #      ?ġ!   ˡ+   9     9 >˶  FY[f> apܣá  xqjc [TM E>6i  "$&h\WJSGAo!dš  Má ˡˡˡأávšc2Mأ 6M 7 *٣ $ˡ   (   (  أá\[  ˡ    @ ˡ}ˡǐo`  ؟ˡé3   8M   6M  šá4 0 Ǒ7@ ! á6   á   9   c Q Q٢کDڢڢڢڢ ڢ ڢ ڢ ڢ ڢڢڢڢڢ٢٢ ؚ M>á Q Q Q QáNJ@?B %ǖ3áB š  ġ 詂B EšB BÄ)ޓ`4ˡf_ˡPLˡ+\\  [ [^^,O J1\ צ lines^šSצ, ^<  secs, ^\  lines/min1DSmallest available space =  zGJ~ ١áȡ:  0 ń  0 #ثە$ġ  ȡ5áؚ 澂0šؚ0ە ȡ  0ȡ  0 ȡ 徂0  'ˡ ڂޕ ɡ $ $$áEáM -á  +á09Ȅɡáȡ:  0 ń  0 #ثە$ġ  ȡ5á,+,++ á  +'á,'ˡ++%++á #W---+-+WZ   ''09ō.á8.ˡ/ 09Ȅ0UɄU+ë#-ë1򥂚 +-Í+ë3+ë"+ë!۳(+ë*+-Í-ë33/3'4.$)J(J"ˡǻ7+ë'0CV( o$5,ˡB8| % ǖ(+r"ˡǓ%H_GZDZ+-Í&+ë++צ*SYSTEM.LST.TEXT((+"ë+SsÍT(šȡ 0UɄU+ë#-ë1򥂚 +-Í+ë3+ë"+ë!۳(+ë*+-Í-ë33/3'4.$)J(J"ˡǻ7+ë'0CV( o$5+ë/m(*á+ % ǖ(+r"ˡǓ%H_GZDZ+-Í&+ë++צ*SYSTEM.LST.TEXT((+"ë+SsÍT(šȡ ;ۣáۣ  آ ۣ آ>ث> آ ۣ آ>ث>,áڡP  ˡ,Í*Ä)˄ +`š ݹMš)P+ë2+ë-+ë+ë4+-Í ەۂ *á*܂)ܕńܕ܂ ܑ ܂ ەڕܿۂܞ܂ۂڂZ P á#á ٢ ٢>٫>[ˡQ55ٟ˶ˡ),,:)O ?šA?ˡǒ9 á D O ǚ),ݡOߩT  š^) ˡáQ Ma` Q Q!2ˡr  > šB BÄ)ޓ`4ˡf_ˡPLˡ),,:)O ?šA?ˡǒ9 á D O ǚ),ݡOߩT  š^) ˡáQ MY  words NJ ȡO  ȡO   ȡO  ȡO  ȡ!O ˡ    8*ȡ  ǰġǗǰɡꩁˡ PP P 8q@fcs, ^\  lines/min1DSmallest available space = N^BILLL;UT-Há6OKTU7AX0NBILLL;UT-Há6OKTU7AX0NpACXAL;UT-Há6OKTU7AX0NhPAWLUT-Há6OKTU7AX0N`.#!#.1!1. ?!$ .11.!!!#    ****"""""""## .11.# >$.1!!! !!!6**""! ! .1!!? ? <5)"!!!?! """"!!"""""???!!9!!!!?!!!8!  !?!!!--3!!!1)%#!!!!!!!!.)!!!! !!! !>!!!!!! !!!!3--!!!!! !!"""?  ? "??( <12#.) *>*> ?  !#-1!> ? !!  !? ?!!!?!!!! >!!   !6>60HH06>>*>**"*6">""> $88>>>>>>*? ><>{:>Y  words NJ ȡO  ȡO   ȡO  ȡO  ȡ!O ˡ    HLHUT-Há6OKTU7AX0NHLHUT-Há6OKTU7AX0NHLHUT-Há6OKTU7AX0NEMONROET NEWSCORE.CODEz6 ʪz|z6 ONb.6 *,,MONROE:NEWSCORE.CODESKMONROE:NEWSCORE.TEXTMONROE:NEWSCORE.CODEMONROE:SYSTEM.SWAPDISKץ-Y* P,-MONROE:HISCORE.DATA-*--- V ԍ֍br r b^br MON`b6 6 ^``Pb6 r REELDONNDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDELDORE^; &PUT(HISCORE); &CLOSE(HISCORE,LOCK) " END.    PROGRAM SETSCORE;    $TYPE (DAT=RECORD 0PERSON:STRING; 0HISC:INTEGER *END; * * $VAR ' 'WINNER:DAT; 'HISCORE:FILE OF DAT; ' ' #BEGIN &WINNER.PERSON:=' '; &WINNER.HISC:=0; &REWRITE(HISCORE,'MONROE:HISCORE.DATA'); &WINNER:=HISCOHLHUT-Há6OKTU7AX0NHHHUT-Há6OKTU7AX0N/HLHUT-Há6OKTU7AX0N!HLHUT-Há6OKTU7AX0NHLHUT-Há6OKTU7AX0N HLHUT-Há6OKTU7AX0N HLHUT-Há6OKTU7AX0NHLHUT-Há6OKTU7AX0N^SETSCORE LAZERTYPE* WRITTEN BY PHIL WHITE' COPYRIGHT 8-84ȡ ݥ * צENTER YOUTHE HIGH SCORE IS  BY YOUR SCORE IS *צBETTER LUCK NEXT TIMEkȡ$ P ܩ6ɡS TSTȡSSSSTSTȡSSSSTSTġSSS6ܥ`PCONGRATULATIONS `צ WE HAVE A NEW HIGH SCORE OF *P צ3YǓ3Hǚ3Nǡ37Ǩ3Uǯ3JǶ3Mǽ383I3K393O3L3Pe  6*3A3Z323W#3S*3X13383E?3DF3CM34T3R[3Fb3Vi35p3Tw3G~3BDž36njTHE GAME IS OVE OVER.צ$PRESS ANY KEY TO START----GOOD LUCK!ȡ33,3.3/3; 30313QESS THAT LETTER FIRING A .LAZER AND EXPLODING THE FALLING LETTER BEFORE +IT TOUCHES DOWN. THE HIGHER THE SCORE THE צFASTER THE LETTERS MOVE DOWN.8WHEN 5 LETTERS HAVE TOUCHED DOWN S D F G H J K L ; צ( Z X C V B N M , . / -THIS GAME IS DESIGNED TO HELP YOU TYPE BETTERצ+A LETTER WILL APPEAR IN EACH OF 10 COLUMNS.,THE OBJECT IS TO PRX XXXXXXXXXXXXX XX XXXXXXXXXXXXXXXXXXXX XXXXXXXXXX XX  ǡDz`Dz000(1 2 3 4 5 6 7 8 9 0 צ( Q W E R T Y U I O P ( A ELDONNDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDELDO`APPLE1NEW.CODExz6 z|z6 PPb6 *,,NEW.CODEESTEM.SWAPDISK ̅(צNEWSCORE.TEXT - APPLE1:SYSTEMNEW.CODEWRK.CODE[*]APPLE0:SYSTEM.SWAPDISKRTzץ-Y* P,-MONROE:HISCORE.DATA-*--- Vԍ֍br r b^br APP`b6 6 ^``Pb6 r BR NAME PLEASE `P  צDO YOU WISH TO PLAY AGAIN `P`Ná^/hj  Fl P ^SETSCORE HH(x rh(`~Ȍ``hhh )hJ¥jJJhhihhhJi֍hhha [U8ſƅh)x h H('eƍ8ƅи ĘHH`ߠ ߮ PHILUT-Há6OKTU7AX0N[RE^; &PUT(HISCORE); &CLOSE(HISCORE,LOCK) " END.    PROGRAM SETSCORE;    $TYPE (DAT=RECORD 0PERSON:STRING; 0HISC:INTEGER *END; * * $VAR ' 'WINNER:DAT; 'HISCORE:FILE OF DAT; ' ' #BEGIN &WINNER.PERSON:=' '; &WINNER.HISC:=0; &REWRITE(HISCORE,'MONROE:HISCORE.DATA'); &WINNER:=HISCON^PRz̎6 hhjb̎6 ,MONROE:SYSTEM.SWAPDISKAPPLE1:SYSTEM.WRK.TEXT*SYSTEM.WRK.CODE[*]MONROE:SYSTEM.SWAPDISKץ-Y* P,-MONROE:HISCORE.DATA-*--- Vbr Ѝr b^썈br APP6b6 6 466Pb̎6 r APPLE1TSYSTEM.WRK.CODE6 B  Ͱ()I يJJJ(jǩF؅G(  7ֈ k( F G  Xj0 Ю $Ӱ8 xH ߩ`Ǚx kh kL~ѩ@(LYLWҭH͍h (ͥpi)ͥˤ˹LјJ 8彐.mĿ"Š>?( X֮ˍL հ˩($8` Ґh Hǹxhx N`8Ύ߽0|ϩHhHh ӈ ө ө ӘVYԦΝYԮߝꪽԦ ө h0 L LllL=LC/ L ߰8L ߦt~ hI=+ L ߤt~I= ~ LȄHHL;hh tuLhhVtWu\z]{XiXYt8xtut8xtu8tTERFAC3LABEL MOD 'NOT &OF OR (PROCEDURPROGRAM !PACKED +REPEAT RECORD -SET *SEGMENT !SEPARATE6THEN TO TYPE UNIT 2UNTIL USES 1VAR WHILE WITH ))))?)`vߗ߸)))@#AND 'ARRAY ,BEGIN CASE CONST DIV 'DO DOWNTO END ELSE EXTERNAL5FOR FILE .FORWARD "FUNCTION GOTO IF IMPLEMEN4IN )INe ~a{8 ~ȱa {8 LT0:A[_ ҕ~L+݈qȱi~8A ݅ȹ݅ȱ~Ɔ4i Lȱ|ȱ}|ȩȥ}ȩLݠȑȑ~uHtH`,BMcބޥHH8(iPH ۠'(hH'O'OhhmhLۭJL80%`M8$LLLhhhhhhhhץHH` ܩȑآL ܥ8ؘ ܩ؈ȩؠ#hthuhhhheȱÈ jh`@ fנ f׭0`L` CLL۠LۥHH j ڥhhLۦ vې` ۤOȄ`H$)A[hIH80(hI`i(L8(hI`LۥJ) )i i`¥ĥ`` - 9HL r 9 MȽ`H 9٠L rH $h`   -y6=CLjO808 0PLڥ8 0 ۥ``) ` )? Lvۢ 8` GڅFڅl```LۥH ۠' `H 9٠ hlQ`) թ` 9 Ȣ`JJJJ ϱ` r,p 0*P$ ۤ b ۢ`H - 9٠L r׊H 9h ɢ`) 2 r׭0` r׹)` ( `) ' r׹J)?L I@L3؊  L3؎,QLxת,c*A[ Lע0H)@hILө Ъhhh(`N`hhhhhhHH)> ` Yܠ0* )` r׮ ؎`(54#ƊgƈЪ 6`י ֙QRTW = Э*0 LqŐ`8Hh`HHH*@^]U)j7 [ )L3~ lJf)jjAUIL3ة0 $ڐ> L׈ ϐ8 (ֹH 7֥ +ֹP 7 7)*Ȫ`FG8`0($ p,&"VU>)Q>jj``P@J I*I `\xDŽ XׅІ X?;78H<8H  8`Ί aՍxՍՍՍե>?Ռ8T8ՌWuՌvՠ ýI꽌ɪ꽌ɭ蠪ϮәVE]ӾV]H)]ӾV]ԙ)]ӾT]ԙ)]ӦΨ 8$hU>`ȅSϭ߅83Iߐi ө ө ө ӽ`Hh`Q꽌ɪɖν*Ͻ%ϙEΈ 꽌ɪ`8` Hh݌`  $(,048<@DHLPTX\`dhlptx|Հ؈䤨谴t|ut}|=0 8|8|}8||ȥ}|MHLHlLSH|8|}8z|~{|@|:~8|~(~8 ~8~Z[ 8~Z[LѠP~ ~i jik|Lhj ~|it}iu8ttXutY|iT}iU･~R콥S~8vw\vȥ]vv\w]V𽥃WlXx |ƄRSL{ȱȱńRRLSҠXx ~~~~LSҠXx P~Qȑ~LSҠXxX XY |0 L\Xx L0 L0 L0 $ L0޽L;hhHHHH{HzHyHxHwHvHHH`L;ҩLp|~hJJJJ) ޽)~)hhvhwhxhy0LhhhhhhL;h0yhzh{hezzhe{{hh ) 6| 9L* " 6HL;ҭ޽LL;hh HHL;hh L;ҩ|hhhzh{hezzhe{{hh HH{HzH)X  _ 0L0 *L0 -L0 3L0 hhhhL0|hh ) | 9L0 | o>HBtCu\8t\]u]\Z][ 8\Z][Lѥ]H\HuHtHAH@H > ޽Р SYSTEM.PASCAL Insert boot disk with SYSTEM.PASCAL on it, then press RESET#usthL'hح/0 !"opqr)VV#$6ֲkW9Z~?bU ~fBU ܉}{Hy0_҇kٚCKW%iӞ?Sݭӕ݇gr#=*e7/ҝ3+߶;&M+Mҩҩҩҩҩҩҩҩҩҩҩҩҩҩҩҩjggggggg ҹHH` ``LrLLPLLLL(L,LLLLLXLLXLLLLLrLLBL܅hiZhihh ҭHH`l]^@MNP]^@(8LLLLLLLLLLLLLLLLL) emօөmօԥllL֭l/LRѩ`THISISIT THISISIT RSQRR RȭR)[ [Zg lqnps⽭!  LSp% < Ni iSHHHH "1#"! ! ""ˬ##Е8Ɓzȱ{HHHH`HHHH{HzH  < @tu`wvtȩttituveztȱve{tȱvtȱvttituvivwз\R]S[ \l]m]|\ l\m]x RPR </\z FLLIEHJh**F`F$Lө ޽޾ HHHH`HHHHHH  < Ni iSHHHH "1#"! ! ""ˬ##Е/֠in:@A'&kւ3LuX_XYX ^&_` ^_`RbScbtȱbctb``Z罅[潩`޽t@<8潍罅Z\]b[      ཀྵὥXY\8轥]齭,҅X-҅YLS)ҥXiXYXiXY HHXYX oLnhh)X0 eXXYL;eTteUut8tXutYLSҩHHLMҠXHXHL.飨RHRHLMҠ UѥRe^dSe_e dHdHL;Ҡ UѥRe^dSe_edi deeHdHL;Ҡ UѥN 8>4 v$PASCALSYUSERPROGDEBUGGERPRINTERRINITIALIGETCMD FILEPROC 0LސLh)thh)htLީ lhvhwhthuEw0uwtv/1'u0+!hthuhthuHHLMhHHLMҩ%lHHLMhhh |~hve| z~~8|eztl8冨Lߤ 0 8`hh ߦt~LL'   UF_f^L#ޠ UhvhwhthuXY^LOޱtvtuvw_LްLL~hvhwv~`ޅvaޅwhthutbޅtcޅutvv ȱtvtv %l HHL;ҩHHL;ҢhtExx0tEtttx u|f}jtz) wzf{jv8vtw݅x݅yyHxHxyyHxHxu9݅xy9݅yyHxHxyt yHxHHviHLMҩHHLMҩHHL?? lXLLdeeƄL;ҥ8傅ń 8冪8冪ƂL;hh&eȹ|ȹ}f)1|)uf}|jjj)?tłetu9 fHHLMҦfHHLM @hhHHHHhzh{h|h}}Lݥ{)L8z|~{}Lݥ|)h |he|Ȅ~ Ȅtl ڦ|8|e| h9 0 ~ʚLM ڦ|| hI9~ʚLM |0| h~ʚLM҅ztzx{yxtezʥ|x}y~xF|}H|HLMҠX hh&ńL;0HxH{HzHezHHL.h|h}hzh{hxhyx~ȱx|80~~ iff~z ~=݅~=H~HLMhthuh|h}hzh{z ݅v%tt݅w%uu|80tuutvwwvi t&uv&whxhyx~ȱxvI%~t~wI%u~xȥxLMhhYLShhhihjhkXi&jhȑjL;ҠhhjL@ٱhjL;LѺtutLLMҠ Uhe^xhe_yxHxHL;Ҡ Uhe^he_HHL;hh Uѥ_ ^&L٥^_ ץhexheHxHL;ҠXXz{hh &hexhef"f fefd8de8&&`ffefd&&`hhhh ץIiIiHHLMhhhh ץHHLMhthuhvhwxyEw0wy)xv!y0uEy0yutxyLMLXYXXYYHXHLXYYHXHXXYeXXLMhthuhh8tuHHLMҩedff dedeeefefdff`hh0 hhL}hh"IiIiIiIi ץHHLMҺHHLBנdeLѥIiIi报IiIiƊ8冥凰 ` ei捠8XYLSҥXiXYLS hthuhvhwt&uZvȥ[vZetZ[eu[8\Z][LL; hthuZtȥ[tL;hthutZȱt[潩L;ҩlLhh0HHLMҨIiIiHHLMhthuhheteuHHLMhIihIiHHetjktLhjhjhhL;hthuhettheuuHtHLMhhhthuhettheuutLMhhhihjhk ULhthuhh%uH%tHLMhthuhhuHtHLMhhIHIHLMҩXXhhQX0XōiX`0\XE0XLXŌC?8XX&XeYeҠX Uѽe^te_utHtHL.ҠX Uѽe^te_uhthtL.ҠX Uѽe^e_HHL.hthuȱtHtHLMhthuhvhwtvȥuvLMȱXȘ tX)XYXHXHXetXYLSȱXt v8vthhhihHhHL;LȱXtetRe^dSe_e hdhdL;èPHPHLMҠ UѥPe^dQe_e dHdHL;Ҡ UѥPe^dQe_edi deeHdHL;Ҡ UѥPe^dQe_e hdhdL;ҠX qѠ Uѥ^ebd_ece dHdHL.ҠX qѠ Uѥ^ebd_ecedi deeHdHL.ҠX qѠ Uѥ^ebd_ece hdhdL.BBBBBBƁ\Ƃ6&06ˡ6áց\8 ˡ :9 "&8(2ȡ2'*2 ?2 1TU-bi ( 6!0 צ Press RESETͶ%ɡšɡš  PꟚšw#ńE z 0 ń Ȅ! ~Í`~W ˡ! !~q|3?Bp  v\EL "$&(*,.02468:<>@BDFHJLNPRBx-~}cy*צ LEXTOKEN IS: 02"KKKK@LLNOOTQ<< xH$V ,  9   &*$á09ō>##$ á> á>>á>낫š ꓡ5š땫Ě@6"á1ꓡ삫Ú š K6"á61 ɚ V @VBBChCfDEE>FFFhGGXHHH"JbJJתPńȄ ,ń.áš蕿@šQȡ2 š:X f Ą ɡ 쾿  .Tá " * ȡ*ńȄ4šáR há1á4   Q lMȡš ȡ뾿  + d>š oɡa   áá0Oš *š  4TzY 000á'4á 0z00 rT\  ɡ'áצ-32768 ^ 逫-ġ>o00ń0ˡ +á! "ˡ  +Uz    00áQP 0á0 é000+-Í-ë0 á1 š5    šš$ !邚邫镫ë퓡h  ! "ˡ ɡ!  ! "ˡf á3 á,  )á á ávˡ á cń# Ȅ ꚹ6áÄ7  .*š  šš!ꂚꂫꕫëS  ! "ˡ! "ˡ ë  qT8T "ˡU  Íáɡ 럚肚X  šš  ġ킯 ,ȫ$* "ë넡, ~ *Í2~ š˄ `1 b~ éÍ~  , Ą쓡"á  :"ë á 쓡ת$ (   d˯7 H Pצצ22ȡ523E$ á"ˡ"& E ##&EáN R3b9Q[Ä-D8铡6!~? *~?=FצPut in :P?FP'Ǡȡ*EEתE&VX X9   /13579;=?E&* 5?š?ˡ?ء "ˡ6ߕނ߂ɡ F b6ب"́$ʁ$ ʁ$ ʁ$ ʁ$ʁ$!"ʁ$ʁ$ʁ$ʁ$FZ7OQ QQQRš.[öO3fj <4  šˡ 퓄 Ä퓡w š   ɍL  "ˡ.ˡ   d쓡 צ to continue) <! ȡ   צ0H" ġ  *@#3$$&ˡ 3 36%ꢫ11á4\1šV42233z 3042221é42é1Ä2*á444ń55P.TEXTׯ]צ.CODEJ.BACKׯ7צ.INFO$.GRAFׯצ.FOTO3 ȡ 23aĩ3zȄ 23aA22š*á ?צ:22ȡá;2á!2ȡ5252š[ץ22š2222ȡ2š5252á4w4]ץ8FNo user programתP8F0:::::&:(xáצAssembleצCompile what text? ( ׯ,á(+(צ.TEXT888Ä8??? *SYSTEM.WRK.TEXTײ& צ*SYSTEM.WRK.CODE ,  7 :9CONSOLE:ת(:9YצSYSTERM:(8:99988:9  6 ۪1٦׷)צ: ܢܢH d    Y0&תת.ת Ɓf(ߡʁ% ʁbʁ%́bʁ%́%Y;??ٟá'C צCONSOLESYSTERMצGRAPHICPRINTERצREMINREMOUTz>77:: צ:SYSTEM.LINKERƁ&̨<́b ́cʁcȡ~ؤ́dʁdתʁd0ʁdʁd؞&"á*ʁd ضá0?ʁdצ*SYSTEM.STARTUP(߫7́%́eʁ%ʁeȡlضʁ%ʁbQ́fƁfʁdƁfƁ&ʁ%ʁݢʁݢʁʁݢʁݢʁݢʁݢ  ʁ تٞ&"á ~٤  :SYSTEM.ASSMBLERת :SYSTEM.COMPILERת :SYSTEM.EDITORת :SYSTEM.FILERתʀ=ʀ* ʀ́ʁܢGʁܢHʁܢIʁܢ%O tƀ&́ʁܢʁʁܢʁܢ%́ݲ ʁݢʁݢʁݢʁݢʁݢ ʁݢʁݢ ʁݢ ʁݢ ʁݣ  ʁݢʁܢ́ʁݢ٢ š٢ ٢٢ 4$  ؗ(/  ؗ(tDoo odoo'z*SYSTEM.MISCINFOתPƀƀerror: (צUnimplemented instruction(צFloating point error(uString overflowת(]Programmed HALTת(EProgrammed break-pointת(&nS5  oYC: *( vol not foundת(file not foundת(צ dup dir entry(צfile already open(צ file not open(צbad input format(disk write protectedת(bצillegal block #(Jצillegal buffer address(+$fO7  y^Hצ IO צSystem IO error(צ unknown cause( parity (CRC)ת(צillegal unit #(illegal IO requestת(צdata-com timeout(vol went off-lineת(file lost in dirת(צ bad file name(צno room on vol( vol not foundצUnknown run-time error(צValue range error(צNo proc in seg-table(Exit from uncalled procת(Stack overflowת(צInteger overflow(Divide by zeroת(צNIL pointer reference(צProgram interrupted by user( "ˡ$צ Can't find ::9 ƀצ:9 ƀ:SYSTEM.SWAPDISK&:(7,*SYSTEM.WRK.CODE[*]ת{צTo what codefile? ( צE,á2צ$̶8FNo debugger in systemתP8F6:::&:(xáצAssembleצCompile what text? ( ׯ,á(+(צ.TEXT888Ä8 "ˡ$צ Can't find ::9 ƀצ:9 ƀ:SYSTEM.SWAPDISK&:(7,*SYSTEM.WRK.CODE[*]ת{צTo what codefile? ( צE,á2צ$8 6øYצ???JanתצFebMarתצAprMayתצJunJulתצAug Sepת צOct Novת צDec ???תצ??????תY6!  ת&צP%[VTUWX%Y7888% š tWelcome ?, to Apple II Pascal 1.1Based on UCSD Pascal II.1+00.0.0ȡ#+.//a/zȄ +./ ..+EXEC/ׯjUTVP+\"á(TS.OQ[QQP+  Hm% á.צNested exec commands illegal"צError opening execd Z6PO6 "ء PKצExecuteצ what fileצ? Pš7`  7 š+ š%SYSTEM.WRK.CODE׷sצSYSTEM.WRK.CODEFš5.CODEׯ.:(7,*SYSTEM.WRK.CODE[*]תצTo what codefile? ( צO,á<צ$88š8(8X+,,"ˡ  Can't open ,   áث what text? ( ׯ&,á (+(צ.TEXT888Ä8 "ˡ$צ Can't find ::9 ƀצ:9 ƀ:SYSTEM.SWAPDISK&Ʋڤ  R   88( áצ Assemblingצ Compiling...á999':::::&:(áצAssembleצCompilec(s) not available 1 \ @ ڤ  áڤ !~ e ת*U  !! !:!!ڤ  ڤ  áܡ #צMust L(ink firstƁ1ƀ:צ.Conflict between intrinsic and user segment(s)ƀצ*SYSTEM.LIBRARY ,צ Can't load required intrinsic(s)Nƀ/צ#Required intrinsi"ˡCۡ>"áIllegal file nameצNo file ́3́4ʁ4́5ʁ5ˡ  not codeʁ41ʁ5"ˡ Bad block #01Ɓ1aݡ9צ Linking...ݢ`ڤá Zxȡ2ݤˡ"ޢ`ݤۼ: TڪƁ Ɓ "á9̂.ʁ ʁ"ˡ  Ɓ Ɓ Vj ުPڶڳ@@YyÍ, 4ۢڤ ɡ$ڪP-19:!1ׯ)Illegal filenamenTޢ ȡSڤ ˡ@۳-ܢ0ۤ צCurrent date is C -C-C 99ȡצ"(C) Apple Computer Inc. 1979, 1980צ(C) U.C. Regents 1979%System re-initialized 6:rNP  צP%[VTUWX%Y7888% š tWelcome ?, to Apple II Pascal 1.1Based on UCSD Pascal II.1צCurrent date is C -C-C 99ȡצ"(C) Apple Computer Inc. 1979, 1980צ(C) U.C. Regents 1979%System re-initializedצ: ) Running...ء ء   Swapping is VonoffצToggle swapping? VVzNew exec name:(šR.%+(]ˡ([8]+(\"á%[צ Terminator=[צ , change it?)צNew terminator:[UO !!P!x!P %',@@JBGD> Z`<@X áޢá ~תޢޢޢ024<& צ š š۾.ˡצ([šܕ!!(š۾:ˡ١.TEXTת .CODEת!!ȡ(ܾܾ š!!Ȅۤ  dÄÍ"ߢ ˄"ɡۤ  dáߢ  dá ߢ C#ޣC˄ ߢ C ߢ ۤ ߢޣ ޣߢ ޣޢ ޢۤ ޢ áޢá ~תޢޢޢ024<& צ ) ! 767䚹 :V@28˄ޢߢšáޢ ޣ ߢ  dޣޢޣޣߢ  dÍÍޢˡ ݓۤ ۤ Äݓۢת   ١  n ١ á9 ٓ/! !!١ˡá ~ݤݚ ˄ܟń ١á  ޤ wš  iá Ä,ޤ  ɡ"áޤ PġMáš7 ܂ۻݪ d #(   !š Í 7ÄU ǐɄ:6ń~66! šá٢.ٕ۶š ڸ۸۶ š۸ ڸ:   ȡQ  ȡ   ȡ? ȡ  ġ  á ڢڢڢڣ ڣ ١ڢ ڣ ڣ١ ڢڣڣ ڣ áڣڣš ڢڣڣ hڢ ڢ١ڢ!ڣڣ ڢ!ڣڣ ڢÄڣ &ڢ ڣ ڢ! ڢ!ڣڣ ڢڢ ڣڢÄڢ  쓡 Xצ Linking...  ˡ&צ Restarting...צ U not allowedxRpUT-Há6OKTU7AX0NNP3 "jC(,. C fpP @$ j4 6L $.1]P')%?áSF=Command: U(ser restart, I(nitialize, H(alt, S(wap, M(ake execתP')%W 6!W,z3쓡 Xצ Linking...  ˡ&צ Restarting...צ U not allowedxRpUT-Há6OKTU 6   ˡFצJCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, D(ebug,? [1.1]P')%?áSF=Command: U(ser restart, I(nitialize, H(alt, S(wap, M(ake execתP')%W 6!W,z3SȡU/U[,-Z N:98:9á.Y(Y*SYSTEM.ATTACH   áá'*SYSTEM.STARTUP % áá š š۾.ˡצ([šܕ!!(š۾:ˡ١.TEXTת .CODEת!!ȡ(ܾܾ š!!Ȅ۶ (not saved) No workfileS%  O ?(&Ɓ.񄓡9&צThrow away current workfile ?  ءצ*SY.IF CH=CHARS[B] THEN 1BEGIN 3MOVETO(X,Y2); 3PENCOLOR(WHITE); 3MOVETO(X,LOC[2,B]); 3NOTE(30,2); 3PUTBLAST(X,LOC[2,B]); 3PENCOLOR(BLACK); 3MOVETO(X,Y2); 3R:= RAND(B*4-3,B*4); 3CHARS[B]:=LETTERS[R]; 3LOC[2,B]:= Y1; 3LOC[1,B]:=(R-1)*7; 3MOVETO(LON :R:=SEQ[2,I]; :SEQ[2,I]:=SEQ[2,J]; :SEQ[2,J]:=R; :R:=SEQ[1,I]; :SEQ[1,I]:=SEQ[1,J]; :SEQ[1,J]:= R 8END 5END 1END )END; ) $PROCEDURE FIRE(CH:CHAR; X,B:INTEGER); $ $ 'VAR R:INTEGER; ' 'BEGIN *IF CHARS[B]<>'*' THEN ,BEGIN RAY[1..2] OF CHAR; ( ( %PROCEDURE RANDLETTER; % (VAR I,J,R:INTEGER; ( & BEGIN +FOR I:=1 TO 10 DO .BEGIN 0SEQ[1,I]:=I; 0SEQ[2,I]:=RAND(1,10) .END; . *FOR I:= 1 TO 9 DO -BEGIN /FOR J:= I+1 TO 10 DO 3BEGIN 5IF SEQ[2,I]> SEQ[2,J] THEN 8BEGIODE,4,0,0,22,24,X,Y,6) &END; & #PROCEDURE PLAYGAME; # (VAR CHARS:ARRAY[1..10] OF CHAR; (LOC:ARRAY[1..2,1..10] OF INTEGER; (SEQ:ARRAY[1..2,1..10] OF INTEGER; (Y3,J,R,X,HIT,I:INTEGER; (CH:CHAR; (LETTERS:STRING[40]; (LANDED:BOOLEAN; (CH1:PACKED AR$PROCEDURE PUTHI; $ &BEGIN (REWRITE(HISCORE,'MONROE:HISCORE.DATA'); (HISCORE^:=WINNER; (PUT(HISCORE); (CLOSE(HISCORE,LOCK) &END; & $PROCEDURE PUTBLAST(X,Y:INTEGER); $ &BEGIN )DRAWBLOCK(EXPLODE,4,0,0,22,24,X,Y,14); )NOTE(6,8); )DRAWBLOCK(EXPL:= (MAXINT-HIGH+LOW) DIV C+1; 1MX:=MX*(HIGH-LOW)+(MX-1); 1REPEAT D:= RANDOM UNTIL D<= MX; 1RAND:=LOW+D MOD C /END 'END; ' #PROCEDURE LOADHI; # 'BEGIN )RESET(HISCORE,'MONROE:HISCORE.DATA'); )WINNER:=HISCORE^; )CLOSE(HISCORE,LOCK) 'END; ' ELN 'END; + #FUNCTION RAND (LOW,HIGH:INTEGER):INTEGER; % 'VAR MX,C,D:INTEGER; ' 'BEGIN 'RAND:=LOW; 'IF LOW>HIGH THEN EXIT(RAND); 'IF LOW<0 THEN +IF HIGH>MAXINT+LOW THEN EXIT(RAND); 'IF LOW=HIGH THEN RAND:=LOW *ELSE BEGIN 1C:=HIGH-LOW+1; 1MX'VAR +BET:BOOLEAN; +EXPLODE:BLAST; +SCORE,SKILL,ROW:INTEGER; +QUIT,NAME,S1:STRING; +CH:CHAR; +WINNER:DAT; +HISCORE: FILE OF DAT; +LETLOC:ARRAY[1..127] OF INTEGER; + $PROCEDURE PRINTPAGE; $ $ 'VAR I:INTEGER; ' 'BEGIN *FOR I:=1 TO 25 DO WRIT (*$S+*) # #PROGRAM TYPINGSKILL; # # # &USES TURTLEGRAPHICS,APPLESTUFF; & &CONST Y1=150; ,Y2=32; , &TYPE BLAST=PACKED ARRAY[1..24,1..21] OF BOOLEAN; ,STROW=PACKED ARRAY[1..21] OF CHAR; ,DAT=RECORD 1PERSON:STRING; 1HISC:INTEGER / END; 0 N^珑珒╅╅􆂝🌓쏕쏅锘쏕𗍋쏕񲭌䍖䌔OTE(8,3); 3PENCOLOR(BLACK); 3MOVETO(X,Y2); 3PENCOLOR(NONE) 1END -END )END; ) ) &BEGIN (* PLAYGAME *) & LETTERS:='1QAZ2WSX3EDC4RFV5TGB6YHN7UJM8IK,9OL.0P;/'; +HIT:=0; +SCORE:=0; +LANDED:=FALSE; +CHARTYPE(10); +RANDLETTER; + +FOR I:=1 4WRITELN('LAZER AND EXPLODING THE FALLING LETTER BEFORE '); 4WRITELN('IT TOUCHES DOWN. THE HIGHER THE SCORE THE '); 4WRITELN('FASTER THE LETTERS MOVE DOWN.'); 4WRITELN('WHEN 5 LETTERS HAVE TOUCHED DOWN THE GAME IS '); 4WRITELN('OVER.');WRITELN; 4WRIVAR I:INTEGER; 2 2BEGIN 5PRINTPAGE; 5WRITELN('THIS GAME IS DESIGNED TO HELP YOU TYPE BETTER'); 4WRITELN('A LETTER WILL APPEAR IN EACH OF 10 COLUMNS.'); 4WRITELN('THE OBJECT IS TO PRESS THAT LETTER FIRING A '); 0 '); 4MOVETO(0,16); 4WSTRING(' Q W E R T Y U I O P '); 4MOVETO(0,8); 4WSTRING(' A S D F G H J K L ; '); 4MOVETO(0,0); 4WSTRING(' Z X C V B N M , . /')END; 2 -PROCEDURE INSTRUCTIONS; - 0UFF(EXPLODE,'XXXXXXXXXX XX') 2END; 2 2 -PROCEDURE SHOWKEYBOARD; - 2BEGIN 6MOVETO(161,178); 6WSTRING(NAME); 6MOVETO(245,178); 6WSTRING('000'); 4CHARTYPE(5); 4PENCOLOR(NONE); 4MOVETO(0,24); 4WSTRING('1 2 3 4 5 6 7 8 9 4STUFF(EXPLODE,'XXXXXXXXXXX XXXX '); 4STUFF(EXPLODE,'XXXXXXXXX XX X'); 4STUFF(EXPLODE,'XXXXXXXX XXXX X '); 4STUFF(EXPLODE,'XXXXXXXXXXX XX '); 4STUFF(EXPLODE,'XXXXXXXXXXXXX XX '); 4STUFF(EXPLODE,'XXXXXXXXXXXXXXXXXXXX '); 4STX XX '); 4STUFF(EXPLODE,'XXXXXXX XXX XX '); 4STUFF(EXPLODE,'XXXXXXXXXXX XXX '); . STUFF(EXPLODE,'XXXXXXXXXX XX '); 4STUFF(EXPLODE,'XXXXXXXXX XX XXX'); 4STUFF(EXPLODE,'XXXXXXXX XX XXXX '); XX '); 4STUFF(EXPLODE,' X X XX XXX '); 4STUFF(EXPLODE,'X X X XX XXX '); 4STUFF(EXPLODE,'X X X XX XXXX XXX '); 4STUFF(EXPLODE,'X X XX XXX XX '); . STUFF(EXPLODE,'X X XX XXXX X '); 4STUFF(EXPLODE,'X XX XX XXX=24; 7 4STUFF(EXPLODE,'X X X X XX '); 4STUFF(EXPLODE,' X X X X X '); 4STUFF(EXPLODE,' X X X X X '); 4STUFF(EXPLODE,' X X X XX '); 4STUFF(EXPLODE,' X X X XX '); 4STUFF(EXPLODE,' X X XX X/UNTIL HIT>9 (*MAJOR LOOP*) / - END; / / /PROCEDURE STUFF(VAR BITMAP:BLAST; S:STROW); / 4VAR J:INTEGER; 4 4BEGIN 7FOR J:=1 TO 21 DO :BEGIN ' ' :END; 7ROW:=ROW-1 4END; 4 4 /PROCEDURE BUILDBLAST; / / 4BEGIN 7ROW:9','O','L','.': FIRE(CH,X,9); 9'0','P',';','/': FIRE(CH,X,10) 4END 1END; 1 4IF LANDED=TRUE THEN 7BEGIN 9LANDED:=FALSE; 9CHARS[Y3]:='*'; ;FOR I:=4 DOWNTO 0 DO =BEGIN ?MOVETO((Y3-1)*28,I*8); ?WSTRING(' ') =END; 9HIT:=HIT+1 7END RE(CH,X,1); 9'2','W','S','X': FIRE(CH,X,2); 9'3','E','D','C': FIRE(CH,X,3); 9'4','R','F','V': FIRE(CH,X,4); 9'5','T','G','B': FIRE(CH,X,5); 9'6','Y','H','N': FIRE(CH,X,6); 9'7','U','J','M': FIRE(CH,X,7); 9'8','I','K',',': FIRE(CH,X,8); 9'LANDED:=TRUE; .R:=R+1; .IF R>10 THEN 1BEGIN 3R:=1; 3IF (SCORE/10)=TRUNC(SCORE/10) THEN RANDLETTER 1END . +UNTIL LANDED OR KEYPRESS; + +IF KEYPRESS THEN .BEGIN 1READ(CH); 1X:=LETLOC[ORD(CH)]; 1 1IF X>-1 THEN 4CASE CH OF 9'1','Q','A','Z': FI.WHILE CHARS[Y3]='*' DO 1BEGIN 4R:=(R MOD 10)+1; 4Y3:=SEQ[1,R] 1END; 1 .MOVETO(LOC[1,Y3],LOC[2,Y3]); .WCHAR(' '); .LOC[2,Y3]:=LOC[2,Y3]-(TRUNC((SCORE+1)/10)+1); .MOVETO (LOC[1,Y3],LOC[2,Y3]); .WCHAR(CHARS[Y3]); NOTE(1,1); .IF LOC[2,Y3]4 THEN EXIT(PLAYGAME); .Y3:=SEQ[1,R]; TELN('PRESS ANY KEY TO START----GOOD LUCK!'); 4 4 4 4FOR I:= 1 TO 127 DO 7LETLOC[I]:=-1; 7 4LETLOC[44]:=217; 4LETLOC[46]:=245; 4LETLOC[47]:=273; 4LETLOC[59]:=266; 4LETLOC[48]:=252;LETLOC[49]:=0;LETLOC[81]:=7; 4LETLOC[65]:=14;LETLOC[90]:=21;LETLOC[50]:=28; 4LETLOC[87]:=35;LETLOC[83]:=42;LETLOC[88]:=49; 4LETLOC[51]:=56;LETLOC[69]:=63;LETLOC[68]:=70; 4LETLOC[67]:=77;LETLOC[52]:=84;LETLOC[82]:=91; 4LETLOC[70]:=98;LETLOC[86]:=105;LETLOC[53]:=112; 4LETLOC[84]:=119;LETLOC[71]:=126;LETLOC[66]:=133;  ؚ        ؚ > L *ˡڲ á ٲ   ٲ    B( ȡ6  ښ    ȡ ȡ    š      ȡ$šɡ ۂšá2ەڕۂ݆ەȡݎdݦMONROE:HISCORE.DATAݨ*:ݦMONROE:HISCORE.DATAݥ*Bp@*TYPINGSK 5SHOWKEYBOARD; 5PLAYGAME; 5TEXTMODE; 5SHOWSCORE;WRITELN; 5WRITELN('DO YOU WISH TO PLAY AGAIN ');READLN(NAME) 3 UNTIL NAME[1]='N' 3END. . 1 0FOR I:=1 TO 1000 DO -END; - - 2BEGIN (* MAIN PROGRAM *) 4LABELIT; 5INITTURTLE; 5LOADHI; 5RANDOMIZE; 5TEXTMODE; 5INSTRUCTIONS; 5BUILDBLAST; 2REPEAT 5WRITELN('ENTER YOUR NAME PLEASE ');READLN(NAME); 5GRAFMODE; 5FILLSCREEN(BLACK); - -BEGIN 0PRINTPAGE; 0FOR I:=1 TO 5 DO WRITELN; 0WRITELN(' LAZERTYPE');WRITELN; 0WRITELN; 0WRITELN(' WRITTEN BY PHIL WHITE'); 0WRITELN; 0WRITELN(' COPYRIGHT 8-84'); N 8END 4ELSE 8BEGIN :STR(WINNER.HISC,S2); :WRITE('THE HIGH SCORE IS ',S2,' BY ',WINNER.PERSON); :WRITELN; :WRITELN('YOUR SCORE IS ',S1); :WRITELN;WRITELN; :WRITELN('BETTER LUCK NEXT TIME') 7 END 1END; ; (PROCEDURE LABELIT; ( -VAR I:INTEGER; ;FOR I:=5 TO 10 DO >NOTE(I,20);FOR I:=8 TO 15 DO NOTE(I,20); >FOR I:=20 DOWNTO 5 DO NOTE(I,20); > ;WINNER.HISC:=SCORE; ;WINNER.PERSON:=NAME; ;WRITELN; ;WRITE('CONGRATULATIONS ',NAME,' WE HAVE A NEW '); ;WRITELN('HIGH SCORE OF ',S1); ;PUTHI;WRITEL4LETLOC[79]:=231;LETLOC[76]:=238;LETLOC[80]:=259; 4 4REPEAT UNTIL KEYPRESS;READ(CH);PRINTPAGE 2END; 2 ,PROCEDURE SHOWSCORE; , /VAR S1,S2:STRING; , I:INTEGER; , 0BEGIN 4PRINTPAGE; 4STR(SCORE,S1); 4 4IF WINNER.HISC  L *ˡڲ á ٲ   ٲ    B( ȡ6  ښ    ȡ ȡ    š      ȡ$šɡ ۂšá2ەڕۂ݆ەȡݎdݦMONROE:HISCORE.DATAݨ*:ݦMONROE:HISCORE.DATAݥ*Bp@*THE GAME IS צOVER.$PRESS ANY KEY TO START----GOOD LUCK!ȡ33,3.3/3; 30313Q3A3Z323W#3S*3X13383E?3DF3CM34T3R[3Fb3Vi35p3Tw3G~3BDž36nj3Y~HHHHHHL,~ʈƅFHHHH恥HL,0~}ʈƅ0I愊iʈؚH恥LŁ|} ƅL\ ~~8ʈƅ  ILlL, DhƁ}eʆƀƀ|ʊe~8偅z{lzhhhhhh8冐 0 h HHHL,L5IL,h h'(ʈ D.ł( Ł|} ŀ}|ƀL;~HHL,~HHY   9    ' sU7z ;|hvhwhhxylxMz|vwlvl llhzh{hƁhh-۲z0ݡߑ ع      y  &  * عteVG8  )  T uh[NA4'á +-ÍNTEGER[36]) /END; ' " "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWRITEDEC(VAR F: FIB; D: DECMAX; RLENG: INTEGER); "  IMPLEMENTATION L E M.SWAPDISK&:(7,צ*SYSTEM.WRK.CODE[*]To what codefil $ "TYPE DECMAX = INTEGER[36]; STUNT = RECORD CASE INTEGER OF 12:(W2:INTEGER[4]); 13:(W3:INTEGER[8]); 14:(W4:INTEGER[12]); 15:(W5:INTEGER[16]); 16:(W6:INTEGER[20]); 17:(W7:INTEGER[24]); 18:(W8:INTEGER[28]); 19:(W9:INTEGER[32]); 110:(W10:IG BB'"G5(C)Apple Computer Inc. 1979,1980 (C)U.C. Regents 1979 ! RLONGINTIPASCALIOCHAINSTUTRANSCENTURTLEGRTURTLEGRAPPLESTU  E `P  צDO YOU WISH TO PLAY AGAIN `P`Ná^/\^  :` D LAZERTYPE* WRITTEN BY PHIL WHITE' COPYRIGHT 8-84ȡ ݥ * צENTER YOUR NAME PLEASORE IS  BY YOUR SCORE IS *צBETTER LUCK NEXT TIMEkȡ$ LAZERTYPES TSTȡSSSSTSTȡSSSSTSTġSSS6ܥ`PCONGRATULATIONS `צ WE HAVE A NEW HIGH SCORE OF *P צTHE HIGH SC3Hǚ3Nǡ37Ǩ3Uǯ3JǶ3Mǽ383I3K393O3L3Pd  6*P ܩ6ɡL\LlL,E0LL DL\ ILlL,ELL DL\Ee8刅刪ʈʈww&~ʈƅFyʈƅ}ʈƍƎƋƊЌإLl2d|e~28ʈƅyʈƅƉ` DL?Ł|}ƅL\E||怦}ʚH恺8倅偪ʈƅ})H揥 "FUNCTION SIN(X:REAL):REAL; "FUNCTION COS(X:REAL):REAL; "FUNCTION EXP(X:REAL):REAL; "FUNCTION ATAN(X:REAL):REAL; "FUNCTION LN(X:REAL):REAL; "FUNCTION LOG(X:REAL):REAL; "FUNCTION SQRT(X:REAL):REAL;   IMPLEMENTATION E BBBLNz)$ $ ݞ$' ݑ$ $6aLTOHR5QQ) +6))8#!),)+")( (:)."!)( +)# 03 !)>/##!)* (*"*/}"*"*#*" (!! "o)ɡ  -ݑ š 0 0 ߿`ġ(   ݂. ݕ ؂݂3  ݕ 0 . ݑ0 ݕ݂ ؂ ɡ  |, R -   $ $ ݞ$' ݑ$ $݂ō $݂ġ ݂$ $ $ȡ%  0 ފ$čV   .ˡ:  E.áBڲzؼ0ݞ$ڲzjeEÍɍEáޢ >ۓɡ ؼ݀$ ؼݞ$ۡܡ ؼ$ Dɍ -   "ˡ\ݣ ݣ šݢ ݣ ݢݣݣ ݣ ݣݣńݢݣݢݢݢˡݢݢ ۚݢܚ  / |á +-Í-ڲzؼ 0ݢݣޢÄɡ3ڕġ$ڕšš"šޣ Ąޣ ݣ ˡRݣ &ݢ ݢݢ!ݣ "ˡݣ ˄ݢ!ۂBEGIN RECNUM := RECNUM-1; .BYTE := BYTE+FRECSIZE; .WHILE BYTE > FBLKSIZE DO ' "PROCEDURE FSEEK(VAR F: FIB; RECNUM: INTEGER); PROCEDURE FREADREAL(VAR F: FIB; VAR X: REAL); "PROCEDURE FWRITEREAL(VAR F: FIB; X: REAL; W, D: INTEGER); IZE < FBLKSIZE THEN ,BEGIN N := FBLKSIZE DIV FRECSIZE; .WHILE RECNUM-N >= 0 DO 0BEGIN RECNUM := RECNUM-N; 2BYTE := BYTE+N*FRECSIZE; 2WHILE BYTE > FBLKSIZE DO 4BEGIN BLOCK := BLOCK+1; 6BYTE := BYTE-FBLKSIZE 4END 0END ,END; *WHILE RECNUM > 0 DO ,LOCK,N: INTEGER; "BEGIN SYSCOM^.IORSLT := INOERROR; $IF F.FISOPEN THEN &WITH F,FHEADER DO (BEGIN BLOCK := 0; BYTE := FBLKSIZE; *IF (RECNUM < 0) OR NOT FSOFTBUF OR 2((DFKIND = TEXTFILE) AND (FRECSIZE = 1)) THEN ,GOTO 1; (*NO SEEK ALLOWED*) *IF FRECS ' "PROCEDURE FSEEK(VAR F: FIB; RECNUM: INTEGER); PROCEDURE FREADREAL(VAR F: FIB; VAR X: REAL); "PROCEDURE FWRITEREAL(VAR F: FIB; X: REAL; W, D: INTEGER);   IMPLEMENTATION $ "PROCEDURE FSEEK(*VAR F: FIB; RECNUM: INTEGER*); $LABEL 1; $VAR BYTE,B:L,VSNNNNNNNNNNNYO MIHA<4-('  AH3P|v:n ƅ|L,hƀhhh8hohlhXhhhFffff80)ƅܥ#FfII懥HHL,L5hhhhhƀhh-ȑhhƀ 0ȑƀ0hJJJJ 0ȑ) 0ȑƀĆL>ʈƅ ~~擥 ~ 抦|ɥ8包~ƅLlII懩&&u`hh HHHHHL,} ei|ʽ 8襁i} ŽDnP42D<.CODECEND.CODECODEPDISKҎԎ,nr r nrnʤr INT^n6 6 \^^\n6 r <INTP3XTTtI$'>ߡڑ߳RI@߳}:#9oLE.6Z"O$<=*     4? ZG>? ZT>ca Z >*r Z;>aq ZL>^ ZN>9 Z ? ZO?ٽ Z ?ƨ !Z; ?vm "ZB?F' #ZR?ս $ZP?y %ZX? &Z ZN1>н Z)C>oc ZET> Zf>Y Z(w>g ZP>탽 Z(>K  ZL>ȱ ZT>z7 ZU>ٰ ZO>? Z(>| ZC>}̽ ZE> 6تP+,+,ȡ+++V 0 Z Zʎ^ Z) ><0l   ڪP."ˡ[̄$ʄ$N.ʄ$M ń.ʄ$M  ʄ$̄$.ʄ$M .ʄ$M Y@ ) Sǯ?Ǭ?ǰ?Ǯ?ǩ?áǫ?Ǭ?r2 ٢ؚڢؚڢٚ ۚܢښܢٚܢؚɡšܢɡܢǿšܢǿɡܢɡܢ; $PROCEDURE CHARTYPE(MODE: INTEGER); $ "IMPLEMENTATION E $PROCEDURE TEXTMODE; $PROCEDURE GRAFMODE; $PROCEDURE FILLSCREEN(FILLCOLOR: SCREENCOLOR); $PROCEDURE VIEWPORT(LEFT,RIGHT,BOTTOM,TOP: INTEGER); $FUNCTION TURTLEX: INTEGER; $FUNCTION TURTLEY: INTEGER; $FUNCTION TURTLEANG: INTEGER; $FUNCTION SCREENBIT(X,Y: INTEGER): BOOLEAN; $PROCEDURE DRAWBLOCK(VAR SOURCE; ROWSIZE,XSKIP,YSKIP,WIDTH,HEIGHT, 8XSCREEN,YSCREEN,MODE: INTEGER); $PROCEDURE WCHAR(CH: CHAR); $PROCEDURE WSTRING(S: STRING) MOVETO(X,Y: INTEGER); $PROCEDURE PENCOLOR(PENMODE: SCREENCOLOR); $PROCEDURE TEXTMODE; $PROCEDURE GRAFMODE; $PROCEDURE FILLSCREEN(FILLCOLOR: SCREENCOLOR); $PROCEDURE VIEWPORT(LEFT,RIGHT,BOTTOM,TOP: INTEGER); $FUNCTION TURTLEX: INTEGER; $FUNCTION T $TYPE $ SCREENCOLOR=(none,white,black,reverse,radar, 3black1,green,violet,white1,black2,orange,blue,white2); $ $PROCEDURE INITTURTLE; $PROCEDURE TURN(ANGLE: INTEGER); $PROCEDURE TURNTO(ANGLE: INTEGER); $PROCEDURE MOVE(DIST: INTEGER); $PROCEDURE??2 ?  ??  1?   ?=~@:?^>[' ~ ~>?  ȡ!2? 5? f   '~~5?. ????2 ?  ??  1?   ?=~@:?^>[' ~ ~  ġ+@ነ? ?> ??   '~~5?. ??  ??;ܳ1?ܳ^; Sƀ> ?L=[?    ??D? 'ZO!? (ZC$? )Z '?| *Z)+?+L +ZR.?l ,ZR1?ս -ZA5?D .Z8?& /Z;?: 0Z>?> 1ZA?4 2Z.D?v 3Z.F?  4ZI? 5ZTL?Xs 6ZUO? 7Z)Q? 8ZNT?; 9Z)V?% :ZEY? ;Z[?Lo <Z(]?г =ZP_? >Z(b? ?ZLd?  @ZTf?] AZUh?OF=2. F | R T DL X,j X & Z,DX p,vp,DY vBKGND PEEKSTRO,ADDRESS ,vDIRSRCe*e+)*)fjfjfj+*fjfjfj8 8) )` (J(F ((Lee Lw  )Lb I1Lb )QLb        xhXhhhhhhhhHH v # " `' & 8 ! 0"ee8 !  e e8"#0 88$ % 0"ee8$ %  e e8&'0 8heheHHL<  B  ""##8&$iT8&UU !  U"# UT`+%$Y)!p v hhhhhhhhhhH8 )%HHH`5>hhh)hh h h h hhhh &    0&!"   #"  ` ` `SN-(' . hhhhhhHH `  HH8H8  hhhL .+ rhh hehe)`%)8`)    L)ˢ   â LE % %  )  `8`&e epɀj f f&e e pɀjff %) % )`% L=`0(%$ $ @'cY}zeNEDh0h1hhhhh.h/h,h-h*h+h(h)(ȱ(*ȱ*,ȱ,.ȱ. HH1H0H(ȹ(*ȹ*,ȹ,.ȹ.`   ""##  Iif E J j 8  e e  `(J 8 e  ` Z Z< $ %$PQ $  ߩ $ Li`t^ JL` T$Q%P)Q I L`#JI`'  I` I0ݩ(0/,",i8i#Hiihifi`i,i,3iPII4ifH8H hIiH h hL8SETáSYSTEM.CHARSET  @! @4` - G`` 8`*UH)JJh & & f)4#ihh h2ɡhh h.آآآǿآآǿآآD ٚ SYSTEM.CHARؑؑ!ٹا ZZا Zا Zا ZZfا ZZا Z:ا Zا ZZb8 ؂ɡLjB|?a QZR|?ٽ RZP}?4 SZX~? TZD~? UZO? VZC?[` WZ ?& XZ)?ؽ YZR?  ZZR?2 ZZá.ٹ# BZOi?޽ CZ(k?7 DZCm?[ EZEn? FZGp? GZTr?  HZ s?yx IZ;t?hн JZLv?D KZNw?F LZ x?Re MZOy?Pp NZ z?g OZ;{?K PZH v-DRIVE $-P-v$-FNAM D.SETSINE1`--SETSINE2SETDEFAU-SETPORT -P -2(MAKEPO $ $FUNCTION PADDLE(SELECT: INTEGER): INTEGER; $FUNCTION BUTTON(SELECT: INTEGER): BOOLEAN; $PROCEDURE TTLOUT(SELECT: INTEGER; DATA: BOOLEAN); $FUNCTION KEYPRESS: BOOLEAN; $FUNCTION RANDOM: INTEGER; $PROCEDURE RANDOMIZE; $PROCEDURE NOTE(PITCH,DURATIext? ( ׯ,á(+( "ˡ$ Can't find ::9 ƀ:ײ9 ƀ:צSYSTEM.SWAPDISK&:(7,צ*SYSTEM.WRK.CODE[*]To what codتPš++0تPRš&+R+P&P0&Ršز&RPز&PR,VV"6h ssembleצCompile what text? ( ׯ,á(+( "ˡ$ Can't find ::9 ƀ:ײ9 ƀ:צSYSTEM.SWAPDISK&:(7,צ*SYSTEM.WRK.CODE[*]To what cod "PROCEDURE SETCHAIN(TYTLE:STRING); "PROCEDURE SETCVAL(VAL:STRING); "PROCEDURE GETCVAL(VAR VAL:STRING); "PROCEDURE SWAPON; "PROCEDURE SWAPOFF; "  IMPLEMENTATION E :::&:(xáצAssembleצCompile what t$hhhhhh9.:.;.<0(0(099JH;HHH`Z310/$ T?@AB ?UB`2<(^`L+L10`LELK뭕 JF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !hhhhhhh)hpdHHHH`4hhhhhhhi)hH`HHH`0hhhJhh)*XhHH`"hhhhhhH! \L HHH`<hhhhhhHHLM0ON: INTEGER); $ "IMPLEMENTATION E .CODESKSWAPDISKҎԎ,nr r nrnʤr LIT^n6 6 \^^\n6 r DLITURAS P