IMD 1.17: 17/11/2010 7:59:14 ucsd 2.0: ucsd pascal for terak computer lab copy  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ,lŗkm HBf     &  E.CODEbh RTEST.TEXT.TEXThlQ.TEXT*>$$~$~$$>> >.*.:*:8DD88(800   $~$|8(8TEXTGM TIC1.TEXTK.TEXTMYDOMINO.OPT.TEXTY] MEREDITH.TEXTXT]` MEREDITH.CODEDE`b RTEST.COD ~8(8``0 > BB~~BB~>BBBBB>~>~~V.TEXT>"rBB^@BBB~BBB ">B""B~fZBBBBBBFJZRbB~BBBBB~~BB~~BBBRr~@~BB>BBB<B<@B<~BBBBBB~BBBBB$BBBBBZfBB$$BBBBB<~B0< B~>> 0``|@@@@@|>TEM.WRK.CODE<@\B|:FBF:BBBB>xx > ہہǻ !@H!H! JA@bIb6r8`<1x~lrx~``@n`faf@d"# 6!"@* X r  )`*f!N  $ B h Z t  @ @"COPYRIGHT (C) 1978, REGENTS OF UNIV OF CALIF,SDf ~f{fxfufrfoflfifffcf `f"]f$Zf&Wf(Tf*Q NKHEB  P  ??<963 0"-$*&'($*!6eeee e  e e _ 6_ 8/efAA"& ,   EezN EE7- @$@$@$@" EB~ H&z%%w7&  G 7w prǀ ?̌fʌfȡƊDؤؤ P 7 &X\7 &X``WtB  aBE B<  wN EC~ B~ÿ۽ϟ&E7 5@up7w j7w 7 Nbw \-@T aÿŹýýýŹzE z3F E@ nh f9XF?X E@F F-B278?2 .~7E@U@ ýýýŻ  E7 w0 wU &    *7 7 7  7 E7 Qˡá  7 E7 tv wU W 87 H7 F BZ E@ &?  000 Q 0 ̌̌̌? ?w U@w@ > 6 & p f7 ` N H~w : ?2  "U@ $?< ~ ``0 wE7 w  "&\htx   $ ( 2 6   F X l ??`(H"a- TR cbd c  0 FR R R R R R $ 6 L p >  (.> FH  ,JN $*06<BHNTZ`f   ҂ ~ E e ` E   @ ` Gz7<z   7NH w   '((@`@`( (+m ]   P~P~7 6W w{ N B  6 E E7N eeNPP  W  ~~eee``!~ e C~C~ %~& EET Bd`n * %  D~ " ~ E D~ D C~ %  D~ C~C~cheί^Z%@ eAp6% "1,   ~& AA~E e @`& E&~AA~E e @`&AA~E1,1,^  % ^A %^A&Daef ¥_09E AZ e @`  `` t @L A@@A tBt J@ P ``f~   C  f ee@ $ $ $ $ @A eeee >e ``A~ c ҇e  ``&& `  E e @a&&6J !$'(****AND 'ARRAY ,BEGIN CASE CONST DIV E e @a&E e @a \@@`@`$fH 'DO DOWNTO ELSE END EXTERNAL5FOR FILE .FORWARD "FUNCTION GOTO @7 `e B~  B~ _7@` IF IMPLEMEN4IN )INTERFAC3LABEL MOD 'NOT &OF OR (PACKED +PROCEDUR dd&`f&d&b&  m e, ɋ e  rfwBC % ePROGRAM !RECORD -REPEAT SET *SEGMENT !SEPARATE6THEN TO TYPE UNIT 2UNTIU f &z  eN 8@ 6NE LU@t7`.~BE B @Wt 7dz\ Aɋ BJ@ Bm8~@ Bm*~@ Bm~ w`& B~z& & E N\Et& B~ & > vUB~     I?f& 7  AFeA  Ձ@  a a!~F@  B~ ~E `E `EՀW WFlxT   mhAɋF!p &.JffD e w,5 w&De D `E e `&& `& `E e `&EՀ~  7 CB@B C& Ο @ e E`E``B~A EwwD (7 #7 %7 P)\ vw J r'(((@ BCzEG@HehD A   aw7e:wXP@P7n@eI70@wnM)w\ 7 ,PtJ$LM nO(kQRChTV焵W!cY_[\^^k `#ǭaxXc'exfhShjQYkoNmo9?pIrs|ouEw7x߄z @|Η} ßz 5U$ J  E     7 7  @  27 ½  & && &7 <b7 <b7 <b7 t&<nb7 \&<z!ׯ+U E `    ͋D 5|w 5B N  5b6 \ = "  \m\  W  m e,5`\_e w5 5@ , W#D  7W ΁?Zw w   D5H5   :@ S~ e&-" \ɋE 5\\\wvr@p@8D:NDwn.5) 5|w 77 :  .-& pU`E@ wHLbjrz - e6_ 8 E E7 _ wUw .h FU@ % eC ~% C ```  K E|7 xvv vV R-N$D TO SCREENMOVE CURSOR  ezPRTV wU  E@   U@_E7 HOMEERASE TO END OF SCREEN  &fEʝ@W $  xw w ʕ_ E7 ~ TO THE PROMPT/5"NEW VALUE" WILL ESCAPE THE SINGLE OR PROMPTED CHANGE4SEQUENCE WITHOUtʕ  Q~EU 5 \ N  X UU0 >e0T CHANGING THE CURRENT FIELD'S VALUE.I0 wU  M _&5ŀ -   W #@e@ E@W $ E&@W $E  t`  Ue/ -.!  xt -.! v v ^ T `_VB JF ":7 4 Ette E e' eZ-V잇ELE7 @ e dddE7 _ 7  E7 D"U@ %LN wU  dddd|ddddddddddddd"PE Ґ~X wU &f&E@ e ]& 7 7 7ߐ2 7  | t ~"w d  L USES 1VAR WHILE WITH 7 `&X& @  z7 `&X7 &7 &7 #7 f7 \U   0ɝ^& _E7 \C DE!:7  7a ?%-0 @ ׳f&& @׳@f&7 D&#)#%(f&f&7 lD&)D&#D&#D&#D&#D&##,)#R&saveת(Wildcard not allowedת(צ"Bad form (Wild Non-Wild) card(Ill file/vol nameת(}Ill change (Vol <)   \L)f& \ e\>:L]L?ƪ@ \fEA#& e@ & f& f& f7 %#|)to> file) nameת(UBad dest for files foundת(4,"iEbUġ#(צ   X N wK w: 7 ,* $? U@ _E7 wnf U? ff w   &@& )   E7 ez\& Dr)&&\   5@5@7 X#>$#%T$T$l5 FILEHAND D&*$4$4$4$D&#D&#D&#D&#H$&^$D&#h$D&h$$f&\  \& \\r1@\[?\  ew & ?U?*@ڪAD C %     @  f&\   B -  e \z\D f C_  fW & @&&&&7 %D&`&%&%%#%D&#%##%z%#%D&%e\4Copyright (C) 1979, Regents University of California\;@\ \N @   =@f&ysE[\pCf&f&\% a @w  Gצצkת{צcתת(WצSתԦת(KצOת   6 6 &  f 6A  v  6N\z\\\ N A f C %n`Äצ(ڹצParity (CRC) error(Bad unit numberת(Bad I/O operationת( Timeout errorC B    \ w  D& &&@7 #&D& && 6  A7 ^%,'$#6','$@'#ת(Vol went off-lineת(File lost in dirת(|צ Bad file name(fצNo room on vol(ONo such vol on-lineת(F',','D&n'D&#D&#D&#D&#D&' e\ \S\ e& @7 #^''e\'f&3File not foundת( t`K1ٹVol already on-lineת(Text file lostת(צCode file lost( \:יc&>X4%]@& & & & & D&&D&& @%7 r%'  IA e  File foundת(צBlkd vol( Unblkd volת(צ File name(צFile/(unblkd vol)(צFile/(blkd vol)(צe@ e& & & & & D&&e #@  @6 7 %n(6 6 #File/vol(Vol nameת(צOutput file full(Workfile is savedת(No directory on volת(No workfile to  "  ڪ٪ت&:&Pɡ(šng <ٹFצ file name < scan string #צ vol name  M8!ۡ1á    -  --> 4ثضÍצ$*á-:char. max >- Illegal formatT<=ڲ= ݪצc&.?::á ;&Pġ - عEXå[ׯGCצ what fileצ what vol ?  , gg#š=jgjPg81(o* MJLN0A$6Uۡ &Pɡ צ, áצ ?=ɍ :g=#g=ɍ=*á =*jjjצ:j($hh=ɡX="#šáצ fܪ(G[!nء CGGá+á &"ˡ~=P="="=h"h=h"h"=P=gg=á?gg=ɡ, 󍓡 expected1(& Ş"˶ I/O error # 4!צ Filer error # ء[צ[ ˡ  .  sآWצ:آ(Y\&),áY 6(צc& آצ ? ) ,áYø" ȡ3پ!}ȄپaپzȄ پaAצI T  ܪ۪ڪ-۪     0ު(áܲ~ %&ܥKO &&ȡuˡ[ ġR&    צ ? (Y/N) - -F&צ ?  ''k'ȡKk'k-'' ܡ ɡ& Invalid #aP  ˄8&Destroy Gצ: ?  šڡK N Y˄ &"&& & ܡ&'&J ٪ # ת á 1 0 ء,ˡ   ߓ`&צPut k'{[{ c󓍄E''S'צ:'{!'0'c?'(&K& : in unit  ء ߓ  ٨š5K ˡ*   ġnot proccessedá á(3!:W~(gڲ= gg" ء " N۪ڪƁK""áN׷9& צ ? ۓ$=?'ز=g(=g=&=g&Pɡۡצ ...too lo {á򥀿Dá" G"+!+~G?KÄ?G;K #[.GC .צE&Save as :;GK,,G,:, ׯ>צRemoveǀ Remov. ? 瓡צSave asצ[š C?/צTEXT#CODE#饀!eE+Gޤ removed%á % ń,&Update directory ? .[G&TEXT&  "hKצ*..CODEOld code removed, צ Ɓ3"ڕš"قܡText file saved  & 0צCODE  "צCode file saved62!o.צCצC#ÄÄ~Íj%á*Put in G:'Insert destination diskצ not named2 Workfile is :.񄓡 (not saved) No workfilev %š " ݢÄ$.ת&תת(%Ɓ.񄓡9&צThrow away current workfile ?  ءݢÄ ۡ "ˡ ݢ ڶ /ݢ0/0 /0צ*SYSTEM.WRK.TEXTצ*SYSTEM.WRK.CODEצ*SYSTEM.LST.TEXT**.*צ.BACK*צRemove/0 0 òCń /C"ݢݢ///://tLצTrans  ء&צWorkfile cleared%Tf & ݪܪ  : .  ǀ=gPܓÄ)jjSjצ:jˡjj(jAj(ܓfOGferTo whereׯ󓄡=H3Transferצblocks# of blocks to transfer צTransferK ׷Ȅff@ Զ nުݪ"צPWkKGšׯ( Ɓ-צMakeǐh"))** **"ׯɄS{c\ڥs[KG2G:[ Remove oldR&G:[ madeצT  ߪ Ɓ8 55 *SYSTEM.WRK. 5Ɓ-צChangeChange to what׷{צSW,,W,צ:,(,,(,{A 5 4454=5  d66.6.6 65ݪ   p "٪,(*צChange*[")ǐ ),, d,,[,["𥀈צ *SYSTEM.WRK.,C:[.,  צ.CODEצCode (١%צNo  file loaded '- r>, ƃʅ( ƃ blocks usedƃ, ƃʅ* ƃ unusedƃצ, ƃʅ+ ƃצ in largest"&*- ȡ%ܾz ܾ0ŶȄ: \+%Date set: <1..3١ ƃƃ"ƃ ,  N, Vols on-line: ȡ &G1>--<00..99>Cˡ_צ Today is C -C-C  ȡR~צ; צ #  :צRoot vol is - ?  New date ?  +Cػ*škGGȡ"GؾAĥGؾZȄ GإGؾA:צPrefix is - ;: / צ Zero dir ofצH צDuplicaa ȡ$GCػ*c+C ػ?צ:@Ä Cte dir ?   Are thereצblks on the diskצ# of blocks on the disk צNew vol name ? צ The date is C -C-C 6 ),%ö 饀:˥׷!צ:DGצ : correct ? G C,ÍP$&,􍓡~%K:, %,,,|-ٕڶ+šK "צ: zeroed p0šצFile(s) endangered:Mȡl\ڸ+*ڂ*ŶB < UNUSED >     -p.ƃƅ'Dir listiؤ áצ Directoryڢڢ  v 1ˡZ ng ofצ׷١糖 צ#1:(ƃ"١̅.̅-̅,̅+̅*̅) ̅(צȡ<ڤ š+ؓښڤ ȡ2ؓ R j2צBad block scan ofצH Ä - %̅,ړצListƅ-~$ʅ.áWriting.ʅ.̅.ʅ- ̅/ʅ- Scan forצblocksScan for how many blocks ܕšۏ"ˡ`ۂȡQ"ˡ9/.ʅ/ʅ/̅)ʅ(ʅ)̅(ƃʅ/ƃצʅ/ƃʅ) ƃʅ/  ƃ-ƃƅ0ʅ/ ƅ0ƃ-2צBlock  צ is badۂġ צ bad blocks1 3צEá@ .  ڲ צ& * (&Getצǐ%G.[.ƃʅ/   ءQƃʅ/ ƃʅ/  ƃƃƅ0ʅ/ƅ0ƃfile3ƃʅ/ ƃ ƃ&ؓń=.צ.TEXT.צ.CODE ..Ȳ.׷:.TEXTצText ײ&(ƅ0ʅ/ƅ0- ڍʅ- .ƃʅ. ƃ/ƃ  ƃ files;ƃצw\ G&צSYSTEM.WRK.TEXTYbcCZ BAD.xxxxx.BADתV̂dVʂdȡV̂eʂeWʂeXT̂fTʂfġ1Z TʂeoT0ʂeʂe צSYSTEM.WRK.CODE &PĶ (Dɞ(ń?Íצ0???JanFebMarAprMaoTTT TWT ɡTTWT#VV צBad blocks markedH`]t4 ۢyJunJulAugSepOctNovDec?????????0צ Bad CodeTextInfoDataGrafFoto ~%"ˡMoving ۢۢצ SYSTEM.PASCAL G?   š 0 & L (*&brB\ "%>'&t##))h'+*,"--.. //F0`0z0004P5n70L4H5D)@ " " ġ  6צCrunch:BZ2" (@,(NXF0N>w\ G&צSYSTEM.WRK.TEXT@צFrom end of disk, blockצStarting at block # 2 % forward ת  ȡT8>`  PASCALSYUSERPROGDEBUGGERPRINTERRINITIALIGETCMD '  š 6  צback  ġ ɡ6 G : cru nched#צPlease re-boot{ X5تPFP') x  5233 ȡ 23aĩ3zȄ 23aA22š*á ?צ:22ȡá;2á š۫ ګ,0   ȡQɫ  ȡ 0  0ȡ!2ȡ5252š[ץ22š2222ȡ2š5252á4w4? ȡ  ġ  á ġMáš6 삫뻥 d]ץ11á4\1šV42233z 3042221é42é1Ä2*á444ń #( /Íáɡ 럚肚X55P.TEXTׯ]צ.CODEJ.BACKׯ7צ.INFO$.GRAFׯצ.FOTO ū   áš  h ! ! S#  , P#  , I#  l,á*6!8 <!~áë  ÄF *STK OFLOW*תPFF+ ˡ 6!:9 "8?á <ÄȄĄMȄtiȡF ōɍ ō ȍ  dč "צ Exec err #   á, ,(+, ,áb쓡ë 쓡ת!!9 D*~ `+ \ (   d˯7 H ȡ  צ to continue) & ,Í ˫hp(ުPצצ22 צ0H" ġ  *@#ٕš ګ  ) ! 767( :VQ28˄2    šš$ !邚邫镫ë퓡h  !á  d1  dÍÍˡ 퓄 Ä퓡 "ˡ ɡ!  ! "ˡf á3 á+á!   dÄÍ" ˄"ɡ  dá  dá C#C˄ C"ˡ  +Uz        áá ~צ/13:! Oš *š  4T h ɡ 逫      šˡ -á-32768ת Pġ>o00ń0ˡ oɡ Ä퓡w š   ɍL  "ˡ.` Nȡš 뾿  .dá   d쓡  21šá. 0á-   Q l>š Ä & ! !  Ä  1 Ą ɡ 낫š ꓡ2š땫ĚL삫Ú !š Í 7ÄU ǐɄ:6ń~66!  š a "á61 ɚá ~횩 ˄˥ń á   l šš áš  š uš  gá /Ä+  ɡ"á aš!邚邫镫ë퓡S  ! "ˡ! "ˡ ˄ ת     n"ˡáˡ á sá# Ȅ 隹Ká/Ä á9 铡/! !!1ˡ   x á1 š  *ńȄ4šáRתP8FNo debugger in systemתP8F6^.)G:!ńȄ ,ń.áš蕿@šQ( SYSTEM.WRK. $*(J '%Ҧ74 textȡ2 š:X fE6!~?8FצPut in :P?'773code'77$Z&ت( *SYSTEM.WRK. 4(RWtn d8FP'Ǡá*EEE   !#E$ á"ˡ" %ƮƂƂ0ƂXƁ<s$` 0T @NDZ 8 T z ~ x\6  (& E ##&Eá +6+6ˡ6á  T4צUnknown run-time error(צValue range error(צNo proc in seg-table(Exit from uncalled procת(StackP"hvfp J.*L .Tf* zF d2蕿@šQ overflowת(צInteger overflow(Divide by zeroת(צNIL pointer reference(צProgram interrupted by user(ȡ2 š:X fE6!~?8FצPut in :P?צSystem IO error(צ unknown cause( parity (CRC)ת(צillegal unit #(illegal IO requestת(צdata-FP'Ǡá*EEE   !#E$ á"ˡ"com timeout(vol went off-lineת(file lost in dirת(צ bad file name(צno room on vol( vol not found& E ##&Eá +6+6ˡ6á  T4ת(file not foundת(צ dup dir entry(צfile already open(צ file not open(צbad input format(r8FNo user programתP8F0#^.)G:!ing buffer overflowת(צdisk write protected(uillegal block #ת(]bad byte countת(Fצbad init record(.쾿  .Tá " *á( SYSTEM.WRK. $*(J '%Ҧ74 textá0á +-Í-ëzV 0'773code'77$Z&ت( *SYSTEM.WRK. 4(RWtn d8á$-á z kO  ȡ %ƮƂƂ0ƂXƁ<s$` 0T @NDZ 8 T z ~ x\6  ( &}eN:%oYDצ IO error: (צUnimplemented instruction(צFloating point error(u<ƋD*SYSTEM.CHARSETת(ƋDʋI&"áǀʋUʋTʋKƆD ʋT  ̌fʌString overflowת(]Programmed HALTת(EProgrammed break-pointת(&ReP9$oYCfȡƆD   ̌fʌfȡƈD  ل7@ǀ ?̌fʌfȡƊDؤؤ  :*צ dup dir entry(צfile already open(צ file not open(צbad input format(rP  ƋDR677::9ing buffer overflowת(צdisk write protected(uillegal block #ת(]bad byte countת(Fצbad init record(.988:9  6 ۪1٦׷)&}eN:%oYDצ IO error: (צUnimplemented instruction(צFloating point error(uצ: ܢܢH d    0&צצ.צ??String overflowת(]Programmed HALTת(EProgrammed break-pointת(&ReP9$oYC? צ*SYSTEM.WRK.TEXT& *SYSTEM.WRK.CODEײ , 7 ٢ š٢ ٢٢ 4*ƁV`tDoo odoo'zr:9CONSOLE:ת(:9SYSTERM:ת(8:98́ʁʁʁצ*SYSTEM.MISCINFOP*"áO* ?́*́ʁʁʁʁʁʁ 6ëצ???JanתצFebMarתצAprMayתצJunJʁ%ʁ% t*&*n تٞ&"á ~٤  :SYSTEM.ASSMBLERת :SYSTEM.COMulתצAug Sepת צOct Novת צDec ???תצ??????ת6! PILERת :SYSTEM.EDITORת :SYSTEM.FILERת צ:SYSTEM.LINKERƁ&̨<́b ́cʁcȡ~ؤ%7̄詄% š t Welcome ?צ, tódʁdתʁd0ʁdʁd؞&"á*ʁd ضá0?ʁdצ*SYSTEM.STARTUP(߫7U.C.S.D. Pascal System II.0Current date is C -C-%́eʁ%ʁeȡlضʁ%ʁbQ́fƁfʁdƁfƁ&ʁ% Ɓf(ߡʁ% ʁbʁ%́bʁ%́%C %System re-initialized(, 06" 0 MayתצJunJ;??ٟá'C CONSOLEצSYSTERMGRAPHICצPRINTERREMINצREMOUTexulתצAug Sepת צOct Novת צDec ???תצ??????ת6!  ,::(,$,]ˡ$-::(:צ.CODE[*]0:--"ˡ צ Can't ope Linking...ˡ&צ Restarting...צ U not allowedn -   áث 7_a 7& š+  ~ \6F& EDITOR š%צSYSTEM.WRK.CODEsSYSTEM.WRK.CODE׷Fš5 INITIALIOUT COPYFILEENVIRONMPUTSYNTAEDITCOREުP11ˡCۡ>1áIllegal file nameצNo file ́3ˡ צ.CODE.. Execute what file? not code3"ˡצ Bad block #02́42ʁ4ȡCƀ2ƀ2ō$ƀ ƀ  šA.á צ.CODEm% 3222́42ʁ4ȡuƀ2ˡaݡ9צ Linking...ܡ #צצ:) Running...ء ء:9Must L(ink firstg222́42ʁ4ȡJ22č7ʁ302́532́6ʁ5ʁ5ʁ6ʁ5ʁ6228:9á'צ*SYSTEM.STARTUP %áá  e f@^ڤ áڤ !~ e ת*U  6   FצKCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, D(ebug,? [II.0]P')%?á@F!! !:!!ڤ  ڤ  áڤ R צ*Command: U(ser restart, I(nitialize, H(altP')%$z쓡áצ Assemblingצ Compiling...á999':::::&: Linking...ˡ&צ Restarting...צ U not allowed(yáצAssembleצCompile what text? (ׯ::(:.TEXT-:( RRJHá68AX0qz((* "D&(,. Dv\x"ˡ$צ Can't find ::9 ƀצ:9 ƀ:SYSTEM.SWAPDISK&:(76   FצKCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, D(ebug,? [II.0]P')%?á@F-*SYSTEM.WRK.CODE[*]תצTo what codefile? (צ,áuצ$,,ˡ-צ*Command: U(ser restart, I(nitialize, H(altP')%$z쓡  "á <&ȡ<-á á.á é Äە߂ũȍ0 á   ٪P&áצERROR: á<& Please press to continue.۩ߞ á<á / é쾩Í ߂  á߂߂܂܂ áR۾8۾áݩ۾ ۾ á ܕR`  d>h ٪Pצ what marker? -P,-Vۥ    ڞڂ ˡ  !Uقč,Vȡ-,-, ,,-- -- C ƂNƃz   šw^  á  ܂áũؓɍš  ٚáء  á á  á ƂN-R; v< ~*^LLbP& F > Z   ~  e   ݂ɡ  ݂ەݕ ; Z ,  B!۩ߞ á<á / é쾩Í ߂  á߂߂܂܂-š 0 ۍۡ צRepeatfactor > 10,000?COPYRIGHT (C) 1979, THE REGENTS OF THE UNIVERSITY OF CALIFORNIA\ á  8ڕ škvKThere is no room to copy the deletionɡ š    H FIؾ. Do you wish to delete anyway? (y/n)תP Yá*KڕJJI IJ2IھPھNéN˄  ˥P۾ܥOڂ  ٕ ݞ݂ ˡ !U܂Zhڡ?١ ( P!کN˄9!'۹  vڤVڳNĩ1ۥ č%`wȡ'ڤġڤڤ؂  * 񿥆P&  IĩIɄ I؂ IHZګ ء8ȩ쾩 쾩 vPv v&áٕٕ:áܕܩܕ   á    L(ft R(ght C(ntr to leaveתP צ+ Edit: A, C, D, F, I, J, R, Q, X, Z [E.6f]P<צ>Editȍ .˄# ̂5Ƃ5 PƂ5צ.TEXTUƂ5P .á N vNot present. File? תP"á :צReadingNvˡצ Reading file.N5øb  > K%̂5ʂ5ʂ5ʂ5ʂ5 ʂ5PHGv.5  ĸ5 á "ˡצ Disk error:v CC^v̂5ʂ5ȡܤܚAẐ5ʂ5ȡܤAaẑ5Buffer overflow.8 4آFGأ%Fأ&G G آ-NIآHآ$5ȡܤA09̂5ʂ5ȡܤA    Ǫ צP8VteinTZ|H  Iآ Hآ$Iآ Hآ$Iآ#Hآ$Iآ#Hآ$Iآ!Hآȍ .˄# ̂5Ƃ5 PƂ5צ.TEXTUƂ5P .á N vNot present. File? תP"á $I HIآ"Hآ$Iآ!Hآ$Pأ.Oآ/ POPآ)  > K%̂5ʂ5ʂ5ʂ5ʂ5 ʂ5PHGvOآ/ Pآ-Oآ/ Pآ,Oآ/ Pآ,Oآ/ Pآ'Oآ/Pآ:v CC^v̂5ʂ5ȡܤܚAẐ5ʂ5ȡܤAaẑ5'Oآ/Pآ(Oآ/P آ(O آ/أ.áPáPJO>Quit:תP# U(pdate the workfile and leaveצ E(xit without updatingPپخ%v ACDFIJLMP Q R S V XZ,>.+-?/=+ R(eturn to the editor without updatingצ% W(rite to a file name and return v٤ؚٳ v قؚ. M Edit: A(djst C(py D(lete F(ind I(nsrt J(mp R(place Q(uit X(chng Z(ap [E<    09̂5ʂ5ȡ )  (( ń(Ą?Í .6g]תPrצH Insert: Text { a char, a line} [ accepts, escapes]PIצA Delete: < > {Edit:KN̂5Ƃ5Ƃ5:Ƃ5&Ƃ5tx> to delete, to abort}PK Adjust: L(just R(just C(enter { to leave}תP ɡ"ˡWorkfile lost.vFNo workfile is present. File? ( for no file to exit ) תPvr2 Insrt: {,} [ accepts, aborts]תPI4 Delete: { deletes, aborts}תP5 Adjst::  P á v ,á ̂5ʂ5ȡ   .TEXT    áƂ̂.ʂ.ȡƂƂ۾ .TEXTƂƂƂȍƂƂ.˄%Ƃ̂.Ƃ.ƂPƂ..TEXTUƂ. ۲ ۾ ..ȡ۲۾ צ.TEXT˲ȍ.˄#..PPƂƂ.á ƂƂƂצ*SYSTEM.WRK.TEXTPצWritingNƂCNvˡ..צ.TEXTU.P.áȡLٕڂġ)Buffer overflow.ĩɡW  ۂۂۀ Nˡۂ.ɡ3 ꕞN  ٩ڞڂZ= ˸ .   Vˡ.Nצ Your file is   bytes long.UáV?&צSYSTEM.WRK.TEĶɄ , ڨ߶ߤ ߤ Marker not there. ٲ0XTN*SYSTEM.WRK.CODENתeצ4Do you want to E(xit from or R(eturn to the editor? ز+߾á f v   ׷   ׷ U=ˡ   EګצWriting out the file K+IT Nvˡ. ׷     ׷     Ƃ=ƃiצ& Copy: From what file[marker,marker]? PɡW  ۂۂۀ Nˡۂ.ɡ3 ꕞN ƂPƂá Ƃ=Ƃ# Copy: File not present. Filename? תP"áצ CopyP  Ⓞ ˡ.Nצ Your file is   bytes long.UáV?&צSYSTEM.WRK.TEڕɄ čⓄ% Ʉ "ˡ Disk Error.ĩƂ=XTN*SYSTEM.WRK.CODENתeצ4Do you want to E(xit from or R(eturn to the editor? Ƃ=fV^vdN  ׷   ׷ U=ˡ צImproper marker specification.  2ꂶ6צMarker exceed ׷     ׷     Ƃ=ƃiצ& Copy: From what file[marker,marker]? Ps file bounds.ĩ :ꕕ,צ[á$  ƂPƂá Ƃ=Ƃ# Copy: File not present. Filename? תP"áצ CopyP  Ⓞ ר  צ]ɍٲˍ.ڕ.P..P,áؕڕɄ čⓄ% Ʉ "ˡ Disk Error.ĩƂ=" RáEáꥂNWáצ)Name of output file ( to return) -->ƂPƂ     ە ..ȡ۲۾ ..ȡ wi[M=/AT(k) geQ"c&eginning E(nd M(arker תP  Bá)EáMá ةˡة$ ; E &(38 xؤá i ĩ צInappropriate environmentKR  w w  ȡ.ءצTrueצFalse0 ڳ@צ Date Created:  - -  Last Used:  -@צT or FȡĹ TáTrue צFalse Z -   Jצ Not option d  # ڳɡ ڂ0 wi[M=/AT(k) geQ"c&   צ. Environment: {options} or to leaveP  A(uto indenvSyntax Error #תP צ . Type @Ƃ ƃ7Ƃ צ*SYSTEM.SYNTAX"ˡ hȡ9t צ F(illing  L(eft margin   R(ight margin   ~ȡ- Ǘȡ ǹȡ .ȡ  Ƃ ˡ á d d   0 P(ara margin   C(ommand ch  T(oken def  0 00 :  ؕ؞ق ق   پÍ   پÄG vؕvDؕצ  צ bytes used,   available.HG Patterns: vצ . Type  á   Ƃ #%deQ"c&G2 = 'ũEǀ'H.צ , = 'Fǀ'wá> < A&! Copy: B(uffer F(rom file תP  DB Markers: wȡ8 xؤá K멂J IũIĄצ Invalid copy.멂JġNo roommLꩂJIĩIɄIJꩂצ Date Created:  - -  Last Used:  -J IꩂJ멂JꩂJ ĩ Fá * צJump to   -   Jצ Not option d \ةwxؤ xؤ  Not there.ؤ ĩ.\ $ JUMP: B( ɡ"צNo room to insert. j˄' ǀ vá(ȡ  á Ą ꂫꂶÄ  Í  KÄ˄Ąۄy á  háOȡ% ˡܡ IJڶȡ6No insertion to back over.   oڶġd5Please finish up the    á áث8   Ʉinsertion   ڶ š Buffer Overflow!!!! á    ڂ٥ č9h  ^ġ) > ! á ^áš (š  ) <öÍ   ˄w áwȡ/ ) x٤vצ$Marker ovflw. Which one to replace?P Jéé Íɡ f ġ앞$ĩp0wSet  ׷ Gwȡx٤ xؤؤةw앞 ^ á "4áww@n *  Set: E(nvironment M(arker תP  EáMá ةˡة ! á.!~ō?    G~ ĩo < eXchange: TEXT { a char} [ escapes; accepts]תP          á   ǀd ؂ȡ ؂ġ    á8š1ؾ\ áO ˄:؂š!  ؂  P  ɡ          š   ˡ? ة꾿á٫؞ǀ 8ꕀPšrZ-    ٕةġ-á- ؕ  ؕ ٩L WARNING! You are about to zap more than 80 chars, do you wish to zap? (y/n)תP  Yˡ   ؞؞ ٫ګ    U ؂ \   EL š ꕞ ĩꕕ  rP  ˡPšǀ3á   ø ɡzɄ2  ɡáĸ š# Í 4` x š ɡ,ń    $%&؂ɡ šٮ ݮ+,    IP Ä؂ jš앞0dšצBuffer overflow' 앞ˡ앫؂  vá   w"#<á"# |!x$sá< >  (  P  Nġ Integer Ovflw) <á"#]_nlDtٕ ,˄ Má M vá    á< >   ȩMd$ Tá(J átÄ S ٕ܄Lɡ ꕞ ٩ٕٕ   ܹ-(1ڕ($ڕ( 4-"á(wá (eDŽP ثLK IٕJ٫ ö ݓ -á- á'*  á á (- áڕ(ڕ( ˡá۫ k 'šA>á  ö D. ./ Lá .Vá . Tá#áR)  M;%*&&<á%&  . VTÍLÍ/SsÍV^0/L(Invalid delimiter.  ń     ɡT "$"#<á"# !$šToo many$ġצInteger Oveb   Ȅ5  ɡášĶ  rflow<) <á"#˶˄ >á#"+ $   Í      !ń9  á   á8á  á  Cá1á  á   ɡit"  Ʉ: á    |  *ȡGھ á-ń ۂšĶ   #<áTń1 á  ꂫġ ھO Z+ȡˡˡȡ ȡ  63ǀ Ŷٶq ġ   ض á 9 ؂    á<á  ٓ(MńצPattern not in the fileצNo old pattern.  " d   2  .|v 4ǀ Ŷڶq š  P  .Má  Má   d~ á 9ض     á   2  .|v 5EE Ŷ zxt p lhd ĩD@08lb^\ZXVVVTRPN024680>@b Eá X7Ŷ EɄ ŶŶ; ˡ; z\2n  t  ^&@H t tZz0`b0 öEɄ E Ŷ EɄ Eá ? !!h"#$#,%<%l&hv;צPattern not in the fileצNo old pattern.  " d8     á78>á54v b á78   3 P  .Má  Má   d~  Ŷ š 2 á}Aáojũ˄ȍzxt p lhd ĩD@08lb^\ZXVVVTRPN024680>@b ȥ  Ä: N6.۪PڪP.P [M /&SYSTEMLELINKER  צ]: ء% áL(itT(okz9z  Replaceצ' aborts,  'R' replaces, ' ' doesn't 9 á Rr˄Fš[Fš9צBuffer full. Aborting Replace FꕞFɡFꕞFFˡ F멂FꩂF.á*۾ ń  čġ.צYour pattern is too long @:̀̀  á Findצ =>9( Replaceצ V(fy =>9. 1۶ɩۂ۾Ä۶d% 02  á./0ʀ ťE1G á./̀0ʀ F1HéG éHGl  ȩMل*6 ١ނ߫ á: 9ȡ Linker [II.0 a2]E˫[':'צ in workspǠōɍdōצ bad proc/func$  vY[]_* Ŕ&ʁ&́'ʁ'ʁ'تP%Type (continue), (terminate)++á+ á VTrace'*SYSTEM.LIBRARYצ Host file? 'ׯ?':'צ iٚi.ھZڿ Zn workspace'š  ȡXצ Lib file? 'צ***SYSTEM.LIBRARYǀ"ȡ6ݢܢ`ܢ`ښ>  Rצ Map name? 'צ,.á .TEXTץ'۫۟á! ٢٢ٟáٚUۢ٢  !ۢ٢   ٚ۟áڟˡܡڢٚڢٚT x H ȡۢ`Ä ڢڢڢۢ`qˡצ badݟˡ2ݢܱ !ݢܵ ˡ: H ܟˡBܢȡ&ޢ ۯ ޢ` host segˡצ dup host segګ Láڢ ڢګ3áۢ ڢ  yy}/Já á:צUnit  not foundl ȡ"ښ ȡ á  áצ weird hostFTO_| l - > [ ڂتP.(2.P."ˡ2צ in workspace.CODE۟ˡSȡ<ۢcá'ڢۚڢڢڢڢګٟˡ٢٫eyj P."ˡ&.!צNo file Pˡ !צOpening /s//./ٚ./  >`  ת' #Zë[ !ššˡsegtbl read errá>-2-2ȡ+/c-˫ZZ--Z/ -0,šá8 ١צ li read err ١آá11/22`-ˡצ bad byte sex02`-Ä02-2`-˄'2`n ٟˡhˡc٢ˡUáצno room in seginfo6  ٚۢۢۢ-ˍfunny code seg2-2-ɍ2-,ōצ bad diskinfo2`-1צ bad seg kind non-alpha name٢ōצ too many refsצ bad formatáōצ2 -  bad seg name,š----š0ÄצAll segs linked,á/[` bad privateá ˡٮǠōɍ Nōצ bad globdefō bad publicdefe٢٢ ٢٢٢ ٢Ǡ ٢أǠٶٸf؟ˡu!!!`أáW #ڢ욥    ˡ+  "؟ˡ`%" '" ٟˡٟˡáٸ ٢ؚ٢٢٢٢٢Ǡٶ ٸ ٸ T!!צ missing proc` ٢؟ˡ 8%"4o(ǐɡ no mem room ٟˡaáUá ؟ˡ%áá ٢ؚá ٢ iF xȡ  ܶˡ seg read errڕڟˡ0 ٟˡٚښ7B#۶ˡábá& ɡڕڕˡ4šٶەەڞ 6 $) "  ,צReading ʁ& ́%Z4Ɓ ́&ʁ&ȡƁ Ɓ >ڟá0ˡ"ڟˡˡá ڟáٟá ضؚؚo8l$ˡˡ bad litype fzá́%nšE   ۢZ ́&ʁ&ȡۢ#ݢˡݢ ݢˡݢ ݢݢ ˡݢݢ # áݢˡ á  ۟ˡá2á*Ȅ  צ bad host LCʁ% ܢ  ۡ,צProc  param mismatch #áݢˡá  ۡ,צFun ٢ áWsBJ؟ˡآōצ bad proc #ڶc  param mismatchO áݢݢ unit err$3Z:$V  ˶˄disagreeing p #Iٕȍ Nōצproc place err  N ZGlobal iצPublic VConst DProc 3צFunc "bQB 8)(ǐɡ sep seg 2 big ȡˡsep seg rea@1 undefined˄$ܚsX$ f"؟ˡ&&&آߣޟd err5Ǡō bad proc dict!   #ȡ ˡˡš ޢ? ɡ>>>>> Error # 6 l~ڟá Ɓ #Ɓ Ɓ צ assem hostƁ Ɓ  #̂MʂMȡ" ˥ ˄/~ؚ7؞áeá ؞á٢ؚ٢ؚآآ< bWW/2.WV2á/Z 2 ˡCode write erráh2#?SYSTEM.WRK.CODEת׷3ˡ'Ɓ צnext <W >),áZ ááP P &XXC f$3>A COMPDUMM  ڿڞڂ,$áˡ,Í +۹Iš)P PASCALCOCOMPINITDECLARATBODYPARTWRITELINUNITPART +ë0+ë+ë2+-Í+ë-(*á) %  ǖ X"ˡ.X(.TEXT-"ˡǓ%.Z-U*U +-Í&+ë))צ*SYSTEM.LST.TEXT("ë) -ë/򥂀 z+ë1s-ë#l+ë(e+-Í-ë11-2$(0 -CU&fc^ [^^^Uˍ^U^^ؚ^E/)ǐȄ Zá .Z Z Zڕxrmhc,ˡ áá)}Í+-*68Fu!^:,+,+ڕǴצ <<<<Line W , error  :/2( (continue), (terminat+ á +'á,'ˡ++%++á #R---+-+RZ e), E(dit EÍeÍ^ÍEeÍ ^U ǐÍ ^ /<W >  '09ō.á7.ˡ. 09ȄáEáL Ɓ #Ɓ Ɓ צ assem hostƁ Ɓ  #̂MʂMȡ" ˥ ˄/Sp Z$M/áUˡ$/á0Uˡ$$)U,+Z$/%+XU/Z 2 ˡCode write erráh2#?SYSTEM.WRK.CODEת׷3ˡ'Ɓ צnext ˡX%*U.-Z%$UˡǑá $áUU:&DK 0, Ɓ Ɓ Ɓ r2Ɓ^&2  $F.  n \:*W  \ X ZdšdZڞá% š   -á  +á09Ȅɡáȡ:  0 ń  ᚹ2ީ:&á ᚹi#ááإj$áá ; 0 #ثە$ġ  ȡ5áؚ 澂0إF0á5á.ީ ޢإ j   ޚ ášؚ0ە ȡ  0ġ 0ڕ$۟ڟÍáH Hˡ Ä ޓ%  HH ȡ 徂0 á $ $$ b3߫HÄ dݟܟ˄ބ2f JK/}*á*.á ݟÄܟÄÄÄ#`!%á á ,0I; =á '((')   =>)ؿ  ٿ 4áˡǒ )=á   {  "$&(*,.2468:<@,NPRTV6šۥٞقق؍+áˡǒٕálXZ\^`nplnprtvxz|~&%1 z [ġ%ؤáQ񂥀ؤ[NQQ.J ^؟ˡN٣`;٣ á/á á ǐ" .ٟˡإá؟؟"ġ>~ڟˡ(4٣ á-٣(uצ undefined\#!   D áڣb 3g3ChG4E(DFCBښá OO&J XIō~ %M >á á á  á á !ک9áˡ <  ڟˡá 9ÄM Mé Äܓ+MáM Mé ÄmܓMá á    y2y y%á:á9% ީ4 ޢMÄ% Ä  xMˡݣ 9.*IÄN+N[ޢ ǂإ (é`á  á  ˡgá áVީ;áá I \M!M MON Iá>D.  Má ۢ @ @INPUT רۢ7ۢۢ ۢ @ ? ?OUTPUT ۢ7ۢۢ ۢ ?  KEYBOARDʀʀ ʀ ٚ b ODD CHR MEMAVAILROUND ۢ7ۢۢ ۢ  ȡN ܢ8áFALSE TRUE ܢؚܢ ښܢ 8ٚ  SIN COS LOG ATAN  LN  EXP  NIL רۢ6ۢۢ ۢ  MAXINT ۢۢۢ   ZG G רآSQRT  MARK  RELEASE IORESULTUNITBUSYPWROFTENUNZ^FƂƃƂ0ƃ\ƂXƃƁƃ* Y ma ˡ)WW آF F آآآ آE E רآآآ آ آD D רآآV VYY *+N/W צ linesYšSצ, Y< آ آCC آآآآآآآ آ آ آآ آ BB רآآ secs, YW  lines/min/DSmallest available space = T  wordsآآآآآ آ آ آآ آ VREAD READLN WRITE  ̄ʄȡN̄̄ʄȡ3N̄̄ʄȡ̄ʄȡNWRITELN EOF EOLN PRED SUCC  ORD  SQ̄ʄȡNP̄ʄȡΟˡ Ω(̄ʄȡ R  ABS  NEW  UNITREADUNITWRITCONCAT LENGTH ƂƂ0ƂXƁ<s$` 0T @NDZ 8 T z ~ x\6 Y< INSERT DELETE COPY POS MOVELEFTMOVERIGH آآ;;آآ::dL آ99آآ88آآ66EXIT IDSEARCHTREESEARTIME FILLCHAROPENNEW OPENOLآآ77,آآ955,آآ94 4آPآآآآآآ9آPD REWRITE CLOSE  SEEK !RESET "GET #PUT $ INTEGER ۢۢ  REAL ۢ;ۢ  CHAR רۢ9ۢ  SCAN %BLOCKREA&BLOCKWRI'TRUNC (PAGE )SIZEOF *STBOOLEAN ۢ8ۢ  STRING רۢ4ۢ  TEXT ۢ7ۢ  INTERACTרۢ5R +GOTOXY +̀ʀȡ{(ٳ %`ٳڡ  ̀ʀʀʀڡ ʀ R ȡ  PASCAL Compiler [II.0.A.1]< 0>~؟آآآ(T  / ł ڢ ڢ  ˡ   ٶ˄/ڣ %ڣ áڢ ڣ ڣ Ȅ ڢ ڢ %>PNmmDz I~؟آآآ N>>آآPROGRAM آآآ ٢٢٢ á   ٢٢٢٢ 3 3 á!   áآ آ آ آ آآآ!á^ áN>ˡ >>   á (má  á   áU  ˡ8ȡ,; m   ء n      L M Mآ آآ>آآIآ\آ آLj z Z }*I /  ł á       ˡ o   R ȡ  PASCAL Compiler [II.0.A.1]< 0>~؟آآآ(T  ٢٢ ٢٢    ˫  á  á  á (  š u u uá ~ˡ  á2 ߚ  öń ˡ%      ł  á%    ˫ ITWAITUNITCLEAHALT SSȡܳ 0ܹ8 TTT9 TT   " " ˡߢ á  á  ád;T; TTTTTTۚTbZ8 TTT@;:5-& ǔ  á   ߢ ˡk ߩ4Äg  á4{ VP84$3ݡ  TTT T ݡTT؟ˡآTښTؚ ō P Pˡ ߩ4  á  váqáW ߩ:  á$Rd(&š##=AHZX)UWVȡ1Nڢڢ ڢڢ   á  á ǿ ߟˡkߢ  ǔ ޚ<Ϧ*SYSTEM.PASCALת(Ϧ*SYSTEM.LIBRARYת( -&Q[\RǂNJ+* P'!/ á   ߢ ˡk ߟˡ/á&ˡ ;áǏ š f ߚ "0, 21(.3%$ȡؤKW'  By8uyq) ٟ$; ڟ˶zbک;˄2 ġ%ɡ܂5|u]tmiexaM }*I / ɡ۸ ik3T@š  ڢ  ڢ ڢ ڢ  آ=آ =$ ˡ ˩   l   q q qu ́ [́Ɓ ʁoƁ ʁ́ʁƁʁ<ʁʁ' ʁ ʁ ʁ ʁ<[áʁ 'Uá+á$ ] ] ,á á    ߚ ' ʁ ʁ['ؓ ˫ ˡ  ؍ؓá  ʁʁƁ$ <0ce2 ޟˡ1ȡ$ީ;á m á Ǖ ޚq ˫  á   á  #áS~؟ٓˡ Ǧ ٓ۩ۢۢڢؚ       ˡ ál "ȡˡ9   ˫  á   ˡ  á ۥۢۢۢ )é Ä   ȡ ǎ   ߟá-á  ɡ ~  ł   آٚآ á%   é   ˡ ~ߚ á  *á  á   ߟˡ%Íߩ;Í s  ߩ;ár   á ݥݢݢ )é Ä   ڢۚ=ٟˡ)گ ٩=ˡآ=ߚߟˡ% š ǩ \.áW ǿ    á  á%   é  =ˡu ={ áM   ݥݢٚߚߟˡ ,(  ٟá138:+ Aٟ٥ ݢݢ I ݢ ݢ   ] ] ˫  á  -N٣ ë''٣ [N٣ /80"ˡ ǻ 0ˡ ǻ ]ٟˡ<ݢۚݢ ܂ á۟ˡáݢ~~ؚá%      Í kk    áá> 9"ڤ "ڤ ~/rڤbڤë'']PP ߚ       ˫  á   PPš Nۢۢ"ڤ ۢ ۢbڤۢ[Ǿ á $,Z+U)Uˡ ál ˡáá&     ޟˡ   68 Iˡǽ   ؓ*$<ؓ˄ $+<́ʁˡʁ ʁ́Ǽ á؟*/1-" h   آآ ái3 3 á)  إآ ء"ƁTURTLE ר́́Ɓ\Ɓ [( צ words]<W >  ! @á  ˡ = ߚá I   O MM M I \ء[&#!!  . ˫   áJ á<    ˡááy  ȡ 䏂   /@#.IéP Ä $ 1á  á' Ǻ ~   á  áá ( (  ߟˡ ˡ á( @ !  á IáNC $ !á ǹ ˡQ$  á+    آˡZޚˡ@á -á&ȡ  D+%ݍm   aTOA v$~  Zn RJ  ޚٟl ء@. Ǐ QP[ [  Ǐ  O MM M I \ء[&#!!  á X&á$ R~ ܟˡ?ܣáܣÄܣ Äܣáܣ Äܣ ÄޓǠ  /@#.IéP Ä $ 1á  á' Ǻ ~   á  áޓá     I [ $ [ $'ǀš'(&ˡǒ &&'('ک} ۢ ۢٚ۩Q؂''h&ˡ ǀ DءPš PPN[Ǖá [[á l۟ˡJá5áSړ Ǧ  ȡۢ ڡ " ^Ȅ "3ǔ ؀ ؀ ɡ  š á  š ܣ ˡܣ [ؓǏ   CI \ ܣ \IɡII :ȡ ǀ  (ǀ 3ámá šˡ ۚš$  ɡ. ~ޡ áޓܢۚo ޓܢۚáP á4ޡz  ġ  á ٳ0d@ h ٳ ǀ  FJ)ÍȄ )ܢݚݟˡ x ܢ   ޓ{ á  ܢ5é$'IˡǷ  $Ǹ ءá ؂ ؂ #Ȅ ؂ خ @MÍǀ   Gڳáق  [( צ words]<W >\*5á+ šخáخǀ  خj[ؤ[[[[Ǖš +2 ؤá "O é  ]=ˡu =OS ^   áw   @    $ܢ"é Bޡǡ ܢ"á á    @   ˡ ˡq ݟˡ < , 1 ˡ䀮šNj ˡ>'   ˡ ˡ} á/M2خ٣ɡ ٣ šث ٫+áMM: á 1 @$ńˡá  áˡˡ nj  áˡu á á :} á     t ^"ˡ ˡ} ás áؤ Oؤ8`ǀ Ȅ ?á(ۢ䚩á 䥁ǘ ^ " ǐ  !   ˡń  WˡO $ۢ9á ۢښ   8ˡLJ !خ  ٢`m Í; ááǏ ˡńǍ  i i 1-.+ۢۢ`mɡ'ġ 9!٫ خ 4Pˡáb'ڢȡ;Gv dá}   Eܮ29Ä Há=ءǚ á/9á'Rá$خڢ+;˄6á;á33S,á)6IݢݢR 4  ˡ} 4  x"ˡ' áˡ á)##:<> 4!O˄˄0  ˡS>á+t á " ٟáǞ eˡǢ WˡQ ة;Íǟ < -؟ˡ á  8I6ˡǐ #;=? E.dˡfN &ǐ E&á%2t ޮ < á  á á Iˡ"g . VCtˡuN &ǐ E&á%2I   á áá`  !á > ؟ˡ4أ á'أ أ  أ ˡ"g . VCˡˡء!%" أ } } nˡ} á  á  " ˡ} áR   ˡ Ä á)  6I ' á" ˡ} á   ˡ}  á ~á Iá)6    < ˡǖ g    8خ2خ"ɡٮM2خ˫  ɡ  šث  4 ٚ  :ˡńi; i iáݟˡˡ NJ  t á +ˡ/îá2خá   ˡ ˡ} á !   ˄ٮ%"ág ˡ[ M K; <:  )9 M     ˡ ˡ} Má   Má  M} -˫  áٮ%M- &?ö;}R ˡ(á!9á  á  á   ˡ ˡ} á  " á ˄ۮ%&؟ˡ#š á$ á% &ˡ ˡ   ˡ ˡ}  "ˡ ˡ} ˡ!áM )  ÍMá ١M ة;á5١á" " ˡ ˡ} rة:  ١]ة9á ١MJ-á ;ˡ;áá} U'NweD+$&*,._ 6 ١M5 )ˡ ݕ١ܮܮM} -˫  áۮ%M-Y4>@DFHJLޡá  (s ;;Í؍á ;á ٩;0)Í!áeNORMAL ILOCK ׯ 2PURGE CRUNCH ׯ    M- 'ޣ á ޣ ˡǐ áٟá~  "ٟ˄٣ڟˍ٣áȡw9Ä á \ "ˡˡ}  áǏ Xá   ˡ} } FM?M8ˡ 9ˡǏáá :;é1 %ک;  ; 4D Ä ,'S  M (_83 6-!ˡ ˡ} á  )á á á}  }ˡ ݕˡǎ ګ1á&ág ڟˡ ˡǎ ǚ  ǎ ٟˡˡá    ˡ 9ˡ} á  "á    "ˡٟˡ~ ޣ áޣá V"7ޣ ޣ ÄOޣ ޣ á Mޣ ޣ Ǖ ޣMޣ ޣ Fޣ ˡ}  ˡǏ á  á  " ˡ} á   ˡ} ˡ Mޣ ޣ 4ޣ áBޣ %ޣ IáNޣ ޣ áOޣ .ޣ  ޣ á(ޣ ޣ ˄ޣ (HSx%áM-#á}  ˡ.$ع0sokgc_(أ áأ á t ݳ͐o" ݳ}ݹ&'ޡ2 ˡˡ [!W"S#O$KG +@7575 799;9E"$&EC,GIGEG8SIGi٣á٣ á%٣ } 9ÄǏ @%áM M 8ˡáás ˡ ġ} ˡá 2I٣ ٣ ٣ á)٣  6I٣ ٣ J%@ö=} ˡ(á!9á " á ;á} ˡá;á}  >á  á"  ˫  á  ߡ,RRR RRRj0b ˡ ō  á 9 ˡ ȡ ٟ˄á;  ;: á "$&(*,.02468:<>@BDFtdPRTVXZ\^`M e -&:ˡ ǁ :ޡK9Ä47ˡ.  9˄Sˡǁ ٫٫ e1 $d--'á  - ܟ˄)*Ä?ܩ;;Äh ]WGޡ*٣(('( ǒ  MoQM`A#ǁ 3 /Ä   dž )ܩ;;Ä dž v*ÄÄ  dž   02 #áP~ڤˡ~ڤ؟ٓá 9 ٓǧ   7R FÄ dž -ܩ88Ä dž  'rD0 $R, (é`  n1/a˫   á  8: B2á8á ܓ ٮ á,. á";áá dž (á  , ܟ˄) 4  /ܡ ۡګ  á-ܓ  9خ ٮ /ܡ ۓګ خܓٮ 3 *Ä?ܩ;;Ä/Ä  dž )*Ä?ܩ;;Ä/Ä 9߮ ٟˡ٩;Í ǐ  á    ٟˡ^ Oܟˡ ȡáǜ    dž (ܩ88Ä  dž  |& +ˡ ە ܚޚ۟áښǓ ˫  á  /aڟˡ9 ˫   Í߮ :á ة:6*e: e e^  ܣáܮ&ܣáˡǁ ؚ,.+)á 9Íˡ ȡ  S + 9  ܮˡá ; á9 4 ˡ ȡ ܟ˄á+á   ǁ  ǂ ˡ )* .   :     á   -8Ä퓫 ˡ8ˡ LJ  S. f  ܩ;á ܩ8á  ǃ   DŽ  u   á  ˡˡ Lj   Ȅ   %  ˡ  ǃ 5ǃ  "Dž  o1 á @ áG    lj ޡȄ   ޡ 䔜ߡlj*564/1(0!7/ 1, )ǁ 8 jF@خá # خ á 6 /9ٮ خB6áX}  á   Ǜ ؟ˡũ;  ǏUW/a˫   á  ~ڟˡ 2 M %Iá<ڟˡڣ    A áW ˡ>ˡǐ 0 ! ؟ˡé1 Ǒ 3 ġ ڣ áV' áA-á۶~ܟˡ `mˡǨ ੁ  ǀ @ˡnˡǐ ` Q ؟ˡé1 8߮ 6  šߤ ޶á     ؕ  \ I ..N QQšá40Ǒ 7 @ ! á 6 / á9߮  \QG ART!99  F8``  L r4p` !2""#$$%L&&N'] 7á}   EBخˡxál ɡ_ ~á~ۢۢۢ B((( f,,F--J///0./0~00b1p222B3r 9 á  ~ڟˡ 2 M %Iá<ڟˡڣ +8~ۢۢ š nj ˫  á 6 /ڕ ٕ  8J&š(ˡ2'é&Ä&ȡW&ɡǀ' ȡ%٩(J#á[~ݤˡ~ݤޟˡ# áǥ ǧ  á  0 UW, á( ܩ&ɡ ګ ȡ  l ڣ a `}p  ܣá ܮ0v 2o 1h 3a 4Z 6S 5L 7E 8>é ڣ  ,ڣ ڣá ڣ ڣ á[ڣ áOڣá$ڣ"  6h  "$&fZUIRFAm!dš  &  JJ7 Ql   " "ڣ"  " ١qˡAۣá "ۣáȡ /#!  /# @# ( Tɡ Tˡ;צ [  `  ڣ 0  ]Z@B.١NáöÍ words]<W >ˡڟˡ ˡtáašQ2 6ٮ / ١ بȡ      áأ ` أ  أ   ݟˡ` ݚܟá ,   9 š   ݟá á  >=jF*ˡ (ޕ( áWV~ܟˡ ܢ  .Iá(<ڟˡG#4 خ/a˫   á خ 5 EG V5 ٮ@  ġ ڣ M~ڟˡN 2 2 ,á5á9áMIé$ M M I ɡ- ~ݟˡ   á   0'&6á"  @xnpdTTTTT&fE CE ww  w          ȡ   á     2ˡ "" N NN 3á   _4ˡ a $ y{ġ  ˡˡ$&LGv .Ǐ  & ۂۂۀ Nˡۂ.ɡ3 ꕞNء~Nڟˡȡ𥀲ܤˡܹ FSEEK ר~ FREADREAרj FWRITEREרV FREADDECרB ˡ.Nצ Your file is   bytes long.UáV?&צSYSTEM.WRK.TEXTFWRITEDEר$ ' DECOPS  tbP>%ȡ  "!    ܤN*SYSTEM.WRK.CODENתeצ4Do you want to E(xit from or R(eturn to the editor?   ܤ   ܤȡ      +ء*4<NG&F EګצWriting out the file*ZlDTXZ\l\B.5$<$ y{ġ  ˡˡ$&LGv .Ǐ  & ,DRAWLINEPASCALIODECOPS *SYSTEM.INFO[*]"ˡǒ . Ƕ . Ǐ QI \ [ MPPPPš [    ˡ TAݟޓݥ e ޓ* A ݫAN؞ (M M I ɡ- ~ݟˡ   á   0'&6á" ?COPYRIGHT (C) 1979, THE REGENTS OF THE UNIVERSITY OF CALIFORNIA2ˡ "" N NN 3á   _4ˡ a  `x7 7 ttw j7 j^^R7 R CptE`eE -00(7 $m- \ &š(&ˡǒ *Nݢݢ" á   ˡ  ` ~ m- ` ~-     á  M I\[ M M! Ddnt ݫAN؞ ( 5  \j \  @%   Aa@  U  D D   D          f   "& f X7 vwpn  @\Z \ V ͕0F ͕0 0 _  ``f  w\  __ _B B`A b e  QB  b   6  _ ;NJ#&;KLZzĊ @" R _j7 ev a " j b \ H HH  ` H HhHh    e^TPJ$BLOCK <= FMAXBLK) AND (BYTE <> FBLKSIZE) THEN 0BEGIN 2UNITREAD(FUNIT,FBUFFER,FBLKS_DB F  F   _% _ "77 * &IZE,DFIRSTBLK+BLOCK-1); 2IF IORESULT <> ORD(INOERROR) THEN GOTO 1 0END ,END; *IF FNXTBLK > FMAXBLK THEN ,BEGIN FMAXBLK := FRCaE ee e wz tE WuEB  N uED 7>tEpWu     w aB  ~ B   `w`7& 7 7 7 7aE` mtEp  uE` m %   ACBvC@A  E  Da7 D7zE mna R Ha H R e<! F  (&  CBv xC L@PM|C L@A C@Pmlm`A C@xm\mPe:86 _d 7dwH J7 D aw> w* (7 "D 7Da7  VTLXjh|l00000000  -w` F   &  & w %% |DRAWLINE DRAWLINEDRAWBLOC  DRAWBLOCDRAWBLOC x |rntjfhX \L -LL   *      l  b  w!     a  E _ vJ  b h^  XVD$`h d  20$`    747( a "  ` $$ _ * ˕͕07 7  2w&7$" G8  x*b`$7w& 8  & 2  D!@  ͕- ͕0  F\  F  ##- (    &  $ "TYPE DECMAX = INTEGER[36]; STUNT = RECORD CASE INTEGER OF 12:(W2:INTEGER[4]); 13:(W3:INTEGER[8]); 14:(W4:INTEGERؼɡ ؼ߀$ ؼߞ$"Hɍ -   $[12]); 15:(W5:INTEGER[16]); 16:(W6:INTEGER[20]); 17:(W7:INTEGER[24]); 18:(W8:INTEGER[28]); 19:(W9:INTEGER[32]); 110:(W10:I $ ݞ$' ݑ$ $݂ō $݂ġ ݂$NTEGER[36]) /END; ' " "PROCEDURE FSEEK(VAR F: FIB; RECNUM: INTEGER); PROCEDURE FREADREAL(VAR F: FIB; VAR X: REAL); "PROCE $ $ȡ%  0 ފ$čQ   .ˡ5  Eɡ DURE FWRITEREAL(VAR F: FIB; X: REAL; W, D: INTEGER); "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWR -ݑ š 0 0 ߿`ġ(   ݂. ݕ ؂݂3  ݕ 0 . ݑ0 ݕITEDEC(VAR F: FIB; D: DECMAX; RLENG: INTEGER); "  IMPLEMENTATION $ "PROCEDURE FSEEK(*VAR F: FIB; RECNUM: INTEGER*); $LABEL ݂ ؂ ɡ   x,  & * عuu1; $VAR BYTE,BLOCK,N: INTEGER; "BEGIN SYSCOM^.IORSLT := INOERROR; $IF F.FISOPEN THEN &WITH F,FHEADER DO (BEGIN *IF (RECNUh[NA4 '  }rg\QF;0%á M < 0) OR NOT FSOFTBUF OR 2((DFKIND = TEXTFILE) AND (FRECSIZE = 1)) THEN $ "TYPE DECMAX = INTEGER[36]; +-Í-۲z0ݡߑ ع  NXTBLK; FMAXBYTE := FNXTBYTE END *ELSE ,IF (FNXTBLK = FMAXBLK) AND (FNXTBYTE > FMAXBYTE) THEN .FMAXBYTE := FNXTBYTE; *FEOF :STUNT = RECORD CASE INTEGER OF 12:(W2:INTEGER[4]); 13:(W3:INTEGER[8]); 14:(W4:INTEGER[12]); 15:(W5:INTEGER[16]); 16:(W6:INT= FALSE; FEOLN := FALSE; FREPTCNT := 0; *IF FSTATE <> FJANDW THEN FSTATE := FNEEDCHAR; *FNXTBLK := BLOCK; FNXTBYTE := BYTE ݢݣޢÄ@@@   DECOPS DECOPS GDEC GDEC á ޣ Ąޣ ݣ ˡRݣ &ݢ ݢݢ!ݣ "ˡݣ ˄ݢ!ۂ"ˡ\ݣ ݣ šݢ ݣ ݢݣݣ ݣ ݣݣńݢݣݢݢݢˡݢݢ ۚݢܚ   p á +-Í-ڲzؼ 0.áAڲzؼ 0ڲzQeEÍݍ.á '߂ۓۡܡ ' +-Í-۲z0ݡߑ ع  1:Error in simple type  2:Identifier expected  3:'PROGRAM' expected  4:')' expected  5:':' expected  6:Illegal symbol (termPASCALIOFSEEK FSEEK FREADREA FREADREA FREADDEC FREADDEC FWRITERE inator expected)  7:Error in parameter list  8:'OF' expected  9:'(' expected  10:Error in type  11:'[' expected  12:']' exFWRITERE FWRITEDE  FWRITEDE  DECOPS @  $-1:>GKpected  13:'END' expected  14:semicolon expected  15:Integer expected  16:'=' expected  17:'BEGIN' expected  18:Error in d,/36:GJNQUbeilp}  }rg\QF;0%á eclaration part  19:error in  20:'.' expected  21:'*' expected  22:'INTERFACE' expected  23:'IMPLEMENTATION' e+-Í-۲z0ݡߑ ع  xpected  24:'UNIT' expected  50:Error in constant  51:':=' expected  52:'THEN' expected  53:'UNTIL' expected  54:'DO' expeO^cted  55:'TO' or 'DOWNTO' expected in for statement  56:'IF' expected  57:'FILE' expected  58:Error in (bad express%%ion)  59:Error in variable  101:Identifier declared twice 102:Low bound exceeds high bound 103:Identifier is not of the appropriate class  104:Undeclared identifier  105:sign not allowed  106:Number expected  107:Incompatible subrange types  108:File not allowed here  109:Type must not be real  110: type must be scalar or subrange  111:Incompatible with part 112:Index type must not be real  113:Index type must be a scalar or a subrange  114:Base type must not be rea    k P  5  O ~eL3N <<Df\A4 '  }rg\QF;0%á ( l  115:Base type must be a scalar or a subrange  116:Error in type of standard procedure parameter  117:Unsatisified forward  this record  153:Type error in read  154:Actual parameter must be a variable reference  118:Forward reference type identifier in variable declaration  119:Re-specified params not OK for a forward declare 155:Control variable cannot be formal or non-local  156:Multidefined case label  157:Too many cases in case statement  158:d procedure 120:Function result type must be scalar, subrange or pointer  121:File value parameter not allowed  122:A forward No such variant in this record  159:Real or string tagfields not allowed  160:Previous declaration was not forward  161:Againdeclared function's result type can't be re-specified  123:Missing result type in function declaration  124:F-format for reals forward declared  162:Parameter size must be constant  163:Missing variant in declaration  164:Substition of standard proc/f only  125:Error in type of standard procedure parameter  126:Number of parameters does not agree with declaration  127:Illegunc not allowed  165:Multidefined label 166:Multideclared label  167:Undeclared label  168:Undefined label  169:Error in basal parameter substitution  128:Result type does not agree with declaration  129:Type conflict of operands e set  170:Value parameter expected  171:Standard file was re-declared  172:Undeclared external file  173:Fortran procedure  130:Expression is not of set type  131:Tests on equality allowed only  132:Strict inclusion not allowed  133:File comparisoor function expected!  174:Pascal function or procedure expected  182:Nested units not allowed  183:External declaration not n not allowed  134:Illegal type of operand(s)  135:Type of operand must be boolean  136:Set element type must be scalar or suallowed at this nesting level  184:External declatation not allowed in INTERFACE section  185:Segment declaration not allowed brange  137:Set element types must be compatible  138:Type of variable is not array  139:Index type is not compatible with thin UNIT  186:Labels not allowed in interface section  187:Attempt to open library unsuccessful e declaration  140:Type of variable is not record 141:Type of variable must be file or pointer 142:Illegal parameter solution  188:Unit not declared in previous USES  189:'USES' not allowed at this nesting level  190:Unit not in library  191:File not 143:Illegal type of loop control variable  144:Illegal type of expression  145:Type conflict  146:Assignment of files not al allowed to be private  192:'USES' must be in interface section  193:Not enough room for this operation  194:Comment must applowed  147:Label type incompatible with selecting expression  148:Subrange bounds must be scalar  149:Index type must be inteear at top of program  195:Unit not importable  201:Error in real number - digit expected  202:String constant must not exceeger  150:Assignment to standard function is not allowed  151:Assignment to formal function is not allowed 152:No such field ind source line  203:Integer constant exceeds range  204:8 or 9 in octal number  250:Too many scopes of nested identifiers  25)  0 File to be written as boot: Pš /"ˡ: is,lŗkm HBf     &  N COPYBOOT %C e U7N ?IO ERROR WHILE BOOTING? 7, ?NOT ENOUGH CORE TO BOOT? 1:Too many nested procedures or functions  252:Too many forward references of procedure entries  253:Procedure too long  254: Too many long constants in this procedure  256:Too many external references  257:Too many externals  258:Too many local files  259:Expression too complicated  300:Division by zero  301:No case provided for this value  302:Index expression out of bounds  303:Value to be assinged is out of bounds  304:Element expression out of range  398:Implementation restriction Ƃ/ƃ[ צ*This program is a general bootstrap mover.צATo copy a boot from one disk to another, type the 399:Implementation restriction  400:Illegal character in text  401:Unexpected end of input  402:Error in writing code file, unit number forAthe destination disk, and the volume name of the source disk. Ifצ@the source is a not enough room  403:Error in reading include file  404:Error in writing list file, not enough room 405:Call not allowed in s disk file, then type the name of the disk file. צ) Unit to write boot to [4,5,9,10,11,12]: eparate procedure  406:Include file not legal   0 File to be written as boot: Pš /"ˡ: is not available, other file: á//ˡ`צ; is not big enough to be a bootstrap, no transfer attempted/"ˡRצ8 Error in attempt to write boot, boot area now undefined0צ Boot transferred successfully. Ƃ/}FUnit to write boot to [4,5,9,10,11,12]: *  '''۞ۂەZ Y]UˡF\ PASCALSYר\욶\UXXUU' Yض[ Zˡl]ZUˡM\ [آ [\[\[UXXUٚ.ȡ$ˡ,U ,š YáZY [[ȡY[š [[ -n  Tȡܢ"6 ERROR ( Pas ,٪PتP]ƁX\Y]UZ\̀[̀[ʀȡ;ʀ [ רʀ[cal System Binder (2.1 a2)>This program modifies the SYSTEM.PASCAL of your default prefix?d[[[ , Z\]\á ]*צCode file write error ]   e   ևߕ vߕ 7 SYSTEM.PASCAL? w7j SYSTEM.PDP-11? @Aw  isk. If any of the files it expects to be around are missing,צ?i.e. SYSTEM.PASCAL, or enough room (60 blocks) to`! m d!  \ZD C& H&  0  EL   re-create it,2it will terminate with the cryptic message "ERROR"?You also need to execute th  _ U@pe5w E ŋw Ŋw e program SETUP to get the system toצ&work intelligently with your terminal.צ* File with GOTOC! @  ̋   wLwDԤ eeW 7 ?YOU DON'T HAVE A  XY(X,Y: INTEGER) procedure:Pá "ˡ" ++P+צ.CODEU+"á2 SYSTEM.PASCߋt_v @ @ COUNT BEQ RWBAD ; HAVE WE RUN OUT OF CHOICES ?? MOV @SP,R0 ; GET ADDRESS OF IDCODE CMP (R0)+,(R1AL"ˡ2ˡ+ZZ ++++2+ˡ ˡZ)+ ; IS FIRST WORD EQUAL ? BNE 1$ CMP (R0)+,(R1)+ ; IS SECOND WORD EQUAL ? BNE 2$ CMP (R0)+,(R1)+ ; IS THIRD WORD EQUAL +צincompatible byte sex+Z ++++ +ˡe ( BINDER ZؕܕZؕܕ'ؕ'ؕە'+    PASCALSYSETUP NUMBER2 NUMBER3 NUMBER4 NUMBER5 NUMBER6 NUMBER7  MOVE CURSOR LEFT]/צPREFIXED[KEY TO MOVE CURSOR UP]/צ!PREFIXED[KEY TO MOVE CURSOR DOWN]/צ PREFIXED[NON PRINTING CHANUMBER8 NUMBER9 INITS TEACHSET RACTER]/PREFIXED[KEY FOR STOP]/צPREFIXED[KEY FOR BREAK]/צPREFIXED[KEY FOR FLUSH]/צPREFIXED[KEY TO END FILE] II0D1 Copyright(c)1979 Regents of the University of California, San DiegoF YOUR/ צPREFIXED[EDITOR ESCAPE KEY]/ צPREFIXED[KEY TO DELETE LINE]/ !PREFIXED[KEY TO DELETE CHARACTER]/ PREFIXED[EDITOR ACCEPT KEY]/ Oצ SCREEN HEIGHT%צ SCREEN WIDTH&LEAD IN TO SCREENMOVE CURSOR HOMتo צNULצSOHצSTXצETXצEOTצENQצACKצBELצBSHTצLFVEצERASE TO END OF SCREEN ERASE TO END OF LINE צMOVE CURSOR RIGHT!צMOVE CURSOR UP! BACKSPACE" ERATצFFCRצSOSIצDLEצDC1צDC2צDC3צDC4צNAKצSYNצETBצCANצEMSUBESCSE LINE#צ ERASE SCREEN#KEY TO MOVE CURSOR UP'KEY TO MOVE CURSOR DOWN'KEY TO MOVE CURSOR LEFT(KEY TO FSצGSRSצUSSPتP+ +(++!T&ڪP. (á  WMOVE CURSOR RIGHT(צKEY TO END FILE)צ KEY FOR FLUSH)צ KEY FOR BREAK*צ KEY FOR STOP*NON PRINTING CHARACTERW--̀ƀצENTER ƀVƀ/̀ʀPʀʀٚʀؚʀʀʀʀW.+צKEY TO DELETE LINE,EDITOR ESCAPE KEY,LEAD IN FROM KEYBOARD-EDITOR ACCEPT KEY-KEY TO DELETE CHARACTW.PتP,+,---ٚ-P-,-V6TFTRUE׮FALSE׮ER+VERTICAL MOVE DELAY"  /ڢתPڢ/ + +צ +צ L@æINI Ɓ62Ɓ^Ձ.  Moving procedures around  !  HAS CLOCK HAS 8510AHAS LOWER CASEצHAS RANDOM CURSOR ADDRESSINGHAS SLOW TERMINALSTUDENT2 Calling system linker to create new SYSTEM.PASCALצ SYSTEM.PASCALצSYSTEM.PASCAL[35] 2HAS BYTE FLIPPED MACHINE צHAS WORD ORIENTED MACHINE צPREFIXED[MOVE CURSOR UP]$PREFIXED[MOVE CURSOR RIGHT]$6.\ ]UZ\̀[̀[ʀȡ;ʀ [ רʀ[PREFIXED[ERASE TO END OF LINE]$צ PREFIXED[ERASE TO END OF SCREEN]$PREFIXED[MOVE CURSOR HOME]$צPREFIXED[DELETE C[[[ , Z\]\á ]*צCode file write error ] HARACTER]$PREFIXED[ERASE SCREEN]$צPREFIXED[ERASE LINE]$"PREFIXED[KEY TO MOVE CURSOR RIGHT]/צ!PREFIXED[KEY TO, T URSOR RIGHT(צKEY TO END FILE)צ KEY FOR FLUSH)צ KEY FOR BREAK*צ KEY FOR STOP*NON PRINTING CHARACTERQF// CTER 84צ$WILL ECHO ON THE SCREEN THE SEQUENCECHARAQFCTER׮$AND WILL تPR צ'IF YOU HAVE A VIDEO TERMINAL AND EXPECTצ&TO USE THE SCREENBE UNDERSTOOD AS THE STRING׮צ& "CHARACTER". WHEN YOU ACCESS A FIELD,$YOU WILL BE SHOWN ITS CURRENT VALUE.׮צ&NUMBERS A ORIENTED EDITOR, THE%CHANGES SETUP CAN MAKE WILL BE NOT BE׮'SUFFICIENT. YOU WILL ALSO HAVE TO BIND׮(IN THE PROCEDURE RE GIVEN IN OCTAL, DECIMAL OR'HEXADECIMAL RADIX, CHARACTERS ARE GIVEN׮&AS THEIR ASCII VALUE AS NUMBERS AND AS׮צ#THEIR AGOTOXY IN THE OPERATING׮צ(SYSTEM. SEE SECTION 4.7 OF THE DOCUMENT.Eצ#NOTE: DISK UPDATES CREATE THE FILE:צSCII MNEMONIC. BOOLEANS AREצ(EITHER TRUE OR FALSE. ENTER NUMBERS, OR(CHARACTERS AS THEIR ASCII NUMERIC VALUE,׮צACCOR NEW.MISCINFOצ(ON YOUR DISK. THE NAME OF THIS FILE MUSTBE CHANGED USING THE FILER TO: ׮ SYSTEM.MISCIDING TO THE FORMAT:!->O-{OCTAL}-!׮צ! !'--DEFAULT----!----------->DIGIT--->(CR)׮"! ! ! NFO׮צ&IN ORDER FOR THE CHANGES YOU HAVE MADETO BE LOADED AT BOOTSTRAP TIME.׮T צ"ALL NON-PRINTING CHARACTE ! ! !׮צ"!->H-{HEX}---! !->(-)-! !-DIGIT<-!! !׮צ!->D{DECIMAL}!Rצ$THE DEFAULT RADIXRS EXCEPT&CARRIAGE RETURN (CR) WILL ECHO AS "?".׮צ&THE INPUT ABORT CHARACTER, "*", CAN BE(!צ&TYPED IN RESPONSE STARTS AS DECIMAL.$NON-PRINTING CHARACTERS MAY BE INPUT׮צ'BY TYPING THE KEY WHICH GENERATES THEIRצ&VALUE (FOLLOWED BY  TO MOST REQUESTS FOR"INPUT AND WILL ESCAPE YOU FROM THE׮צ(SEQUENCE WHICH ASKED THE QUESTION, E.G.,(WHEN CHANGING A VCR) OR, IF THERE IS%AN ASCII MNEMONIC FOR THAT CHARACTER,׮&JUST TYPE IT IN (AND CR). BOOLEANS ARE׮צ!INPUT BY TYPING "TRALUE, TYPING "*" TO THEת( !"PROMPT "NEW VALUE" WILL ESCAPE THE׮צ"CHANGE WITHOUT ALTERING THE VALUE.Y*UE" OR "FALSE"צ (AND CR). FOR MORE INFORMATION,$PLEASE SEE THE SYSTEM DOCUMENTATION.׮z צ"HINTS ON DEALING WIצ%THE LINE DELETE CHARACTER, "*" ALLOWS(<(YOU TO DELETE A RESPONSE YOU GAVE IF YOU׮צ'HAVE NOT YET TYPED CR. CR TH BACKSPACING:'THE 'KEY TO DELETE CHARACTER' SHOULD BE׮(SET TO THE KEY YOU WISH TO TYPE TO CAUSE׮צA BACKSPACE. THE 'WILL BE SENTצ'TO THE TERMINAL AND YOU WILL BE ABLE TOצ'START OVER ON A NEW LINE. THE BACKSPACEצ(CHARACTER, "*" WILL DBACKSPACE'צ(CHARACTER WILL BE ECHOED TO THE TERMINAL"WHEN THE 'KEY TO DELETE CHARACTER'׮צ IS TYPED.  ELETE YOUR RESPONSE( /צ%TO A QUESTION CHARACTER BY CHARACTER,צ(ECHOING EACH CHARACTER AS IT IS DELETED.%THE ECH .d< L d  OR THAT CHARACTER,׮&JUST TYPE IT IN (AND CR). BOOLEANS ARE׮צ!INPUT BY TYPING "TRTS ث /ȡ٤٤צ INITIALIZING  TE xVX$\ OED DELETED CHARACTERS WILL BE׮(ENCLOSED IN ANGLE BRACKETS. FOR EXAMPLE,׮צ!TYPING THE SEQUENCE OF CHARACTERSCHARA- E NOT DONEE(XIT) TERMINATES THIS PROGRAM"DMC ,R썡E07}---! !->(-)-! !-DIGIT<-!! !!->D{DECIMAL}!ڡצ OR IF YOUR KEYBOARD CAN C(ONTINUE) Q(UIT)CUN Vצ OCTAL DECIMAL HEXADE GENERATEצ%THE VALUE YOU WANT, JUST TYPE THE KEY&AND THEN TYPE CARRIAGE RETURN, OR TYPEتPٓצ BUG LOCATION צ'PLEASE WRITE DOWN THIS LOCATION AND ANY&SUPPORTING DETAILS YOCIMALء.ǀɡצ ASCII ɡ CONTROLɡ 1) ń ġU CAN, AND REPORT$IT TO THE UCSD SUPPORT STAFF AT YOUREARLIEST CONVENIENCER    ń ġ= ɡ   aA!áHڦתP /ۄ > A ء!ɡ&o! o!DáצDEL (ٳ?<áצPצ<>/áQšHۓ<?P  ɡ^@ ?b צ NEW VALUE: ܄  ?PɡPצ#QP꿹!áá$T ( ȄBo!! o!  DELׯ !˄ȄᚹڪPP-תP---<. LتP  ˡ-ڕ F 0  ( DO 6-á =  ڂ6NƁ.`צ QUIT: D(ISK) OR M(EMORY) UPDATE,צ R(ETURN) H(ELP) E(XIT)C / ~D5 -á1 FFȡ  *NEW.MISCINFO٥`_/_́ʁȡ__'D(ISK) UPDATE PUTS  ߡ 0 A  ₚ ȡ00 THE CURRENT SETUP ONצ$ DISK AS THE FILE "NEW.MISCINFO"צ! WHICH MUST BE CHANGED IN THEA  ōޡĄȄ  "INPUT VALUES IN THE DECIMAL RANGE FILER TO "SYSTEM.MISCINFO"צ$M(EMORY) UPDATE CHANGES THE SETUP INצ! MEMORY UNTIL T: ..  IN THE FORMAT BELOW:צ!->O-{OCTAL}-!צ! !HE NEXT SYSTEM INITIALIZATIONצ"R(ETURN) TAKES YOU BACK INTO SETUPצ IF YOU'Rצ'--DEFAULT----!----------->DIGIT--->(CR)"! ! ! ! ! !"!->H-{HEX. + \ڪP.P.....O T : Tצ NEW VALUE: .  @,>r4]  (C(HANGE) ALLOWS YOU TO CHANGE OR EXAMINE& THE VA썓!צ NEW VALUE:  썡׷خeJT |á á $NAME INFORMATION' THE SYSTEM HAS ABOUT YOUR HARDWAREצ CONFIGURATIONOF FIELD: [쓄Hצ DIDN'T FIND NAME OF FIELD: 쓡]Rצ$T(EACH) TEACHES YOU HOW TO USE SETUPצ&Q(UIT) ALLOWS YOU TO MAKE YOUR CHANGESצ( PERMANENT AN쓄<쓡4 FIELD NAME = آخLצ#CHANGE: S(INGLE) P(ROMPTED) R(ADID TO LEAVE THIS PROGRAM+CT$ | "I5` \4F(  X) H(ELP) Q(UIT)צ&S(INGLE) ALLOWS YOU TO EXAMINE 1 VALUE  @,>r4]  (C(HANGE) ALLOWS YOU TO CHANGE OR EXAMINE& THE VA$THE ASCII MNEMONIC FOR THE CHARACTER C(ONTINUE)Cá &  쓡jWANT TO CHANGE THISצ BY NAME'P(ROMPTED) TAKES YOU THROUGH ALL FIELDSצ(R(ADIX) ALLOWS YOU TO CHANGE THE ASSUMED VALUE? (Y,N,!)YE@썡p | Gצ NOW OCTALLצ RADIX FROM ;צOCTALDDECIMAL1צ HEXADECIMALYC6 / NOW DECIMAL5צNOW HEXADECIMALO> 3l: O(CT) D(EC) H(EX) Q(UIT) TO EITHER ^DECIMAL OR HEXADECIMALVOCTAL OR HEXADECIMAL6OCTAL OR DECIMA/ 'DO 5썡LIfH 4 HS   Qá ,   צ"SETUP: C(HANGE T(EACHġ _'Dɡ_ؑȡ#_ H(ELP Q(UIT צ[D1]  (C(HANGE) ALLOWS YOU TO CHANGE OR EXAMINE& THE VA*hȡ  (á 2RIOUS PIECES OF INFORMATION' THE SYSTEM HAS ABOUT YOUR HARDWAREצ CONFIGURATION 쓄 쓡 N썡쓡ۮ46X r˦ SHOWSCALARˡ˦ SHOWSCALARCURREצ$T(EACH) TEACHES YOU HOW TO USE SETUPצ&Q(UIT) ALLOWS YOU TO MAKE YOUR CHANGESצ( PERMANENT ANNT VALUE IS ٢L lALLOWED VALUES ARE:צSHOWALLآáD TO LEAVE THIS PROGRAM+CT$ | "I5` \4F(  /  97 512 Codefile SYSTEM.LINKER 22 17-May-79 142 512 Codefile SYSTEM.COMPILER 68 8-Feb-79 164 512 Codefile SYSTEM.LIBRARY 17 17-Apr-79 232 512 Datafile SYSTEM.SYNTAX 14 2-May-79 249 512 Textfile BOOTER.CODE  3 7-Mar-79 263 512 Codefile QXBOOT 2 7-Mar-79 266 512 ILLEGAL BINDER.CODE 6 3-May-79 268 DOCUMENT ADDENDA:  THE TOGGLE BETWEEN UPPER AND LOWER CASE  (ALPHA LOCK) IS R.  512 Codefile SETUP.CODE 25 14-May-79 274 512 Codefile READ.ME.TEXT 4 1-Jun-79 299 512 Textfile DIRLIST 191 303 512 Datafile 15/15 files, 484 blocks used, 0 unused, 0 in largest area Z CHECKBOO  O^ U009.7: SYSTEM.CHARSET 5 2-Feb-78 10 512 Datafile SYSTEM.PDP-11 21 25-Mar-79 15 512 Datafile SYSTEM.FILER 28 24-May-79 36 512 Codefile SYSTEM.PASCAL 33 25-Mar-79 64 512 Datafile SYSTEM.EDITOR 45 22-May-790 zE  ENTER DEPOSIT צBALANCE =  צENTER CHECK NUMBER AND AMOUNT  'ˡ צWORKING BALANCE IS ENTER CHECK NUMBER AND AMOUNT ˡF'ˡ? CHECK NUMBER  צ MISSINGצFINAL BALANCE ISƁ/  +%& T0̓ʓȡTPTá TP3  á +-Í-ڲzؼ 0 +̓Ɠ MAPS:IRFOTO ƓT[Ɠצ.FOTO`ƓPT +"~~.áAڲzؼ 0ڲzQeEÍݍ.áá+}+? `'H2w&7$" G8   '߂ۓۡܡ ؼɡ ؼ߀$ ؼߞ$"Hɍx*b`$7w& 8  & 2  D!@   Aa@  U  D D   D  -   $ $ ݞ$' ݑ$ $݂ō $         f   w\  __ _݂ġ ݂$ $ $ȡ%  0 ފ$čQ  B B`A b e  QB  b   j7 ev a " j b \  .ˡ5  Eɡ  -ݑ š 0 0 ߿`ġ(   ݂. ݕ ؂݂3  ݕH HH  ` H HhHh    e_DB F  F 0 . ݑ0 ݕ݂ ؂ ɡ   x, F   _% _ "77 * &     w aB  z MAPDRAW 1 O^~ B   `w`7& 7 7 7 7a E  Da7 D7zE mnTa R Ha H R e<! F  (&   _d 7dwH J7 D aw> w* (7 "D 7Da7  -w` F   &  & w %% | x |rntjfhX \L -LL   *      l  b  w!     a  E _ vJ  b h^  XVD$`h d  20$`    747( a "  ` $$ _ * ˕͕07 7   ͕- ͕0  F\  F   PROGRAM SAMPLE;BEGIN;  WRITELN'I MADE IT';  END.   ##- (    "& f X7 vwpn  @\Z \ V ͕0F ͕0 0 _  ``f  6  _ ;NJ#&;KLZz @" R _^TPJ$, FEOLN := FALSE; FREPTCNT := 0; *IF FSTATE <> FJANDW THEN FSTATE := FNEEDCHAR; *FNXTBLK := BLOCK; FNXTBYTE := BYTE GE .<2  PROGRAM CHECKBOOK ; "CONST "OLDBAL=1000.00; "VAR "DEPOSIT, NEWBAL, AMT : REAL; "CKNUM, MISCK : INTEGER; "BEGIN $NEWBAL := OLDBAL; $AMT :=0; $ DEPOSIT :=0; $ CKNUM :=0; $ MISCK := 0; $REPEAT &WRITELN('ENTER DEPOSIT'); &READ(DEPOSIT); &IF DEPOSIT <> 0 (THEN NEWBAL := NEWBAL + DEPOSIT; &WRITELN('BALANCE = ', NEWBAL); $UNTIL DEPOSIT = 0; $WRITELN('ENTER CHECK NUMBER AND AMOUNT'); $READ(CKNUM); $READ(AMT); $MISCK := CKNUM; $WHILE (CKNUM <> 9999) DO &BEGIN (NEWBAL := NEWBAL - AMT; (MISCK := CKNUM + 1; (WRITELN('WORKING BALANCE IS ', NEWBAL); (WRITELN('ENTER CHECK NUMBER AND AMOUNT'); O^(READ(CKNUM); (READ(AMT); (IF MISCK <> CKNUM *THEN IF CKNUM <> 9999 * THEN WRITELN('CHECK NUMBER ', MISCK, ' MISSING') &END; $WRITELN('FINAL BALANCE IS', NEWBAL) "END.  1 2 3 O^U3 FILE); &END; #END;  END.  1;  POSCTR[1,1]:=3;  POSCTR[1,2]:=9;  POSCTR[1,3]:=7;  POSCTR[2,0]:=2; POSCTR[2,1]:=6; POSCTR[2,2]:=8; "POSCTR[2,3]:=4; "FOR I:= 1 TO 9 DO $BOARD[I]:=' '; "SHIFTCTR:=0; "WRITELN('WHERE WOULDST THOU PLACE MY FIRST MOVE?'); "READLN(MOVEO^); "WHILE MOVE<1 OR MOVE>9 DO $BEGIN &WRITELN('YOUR MOVE MUST BE FROM ONE TO NINE. TRY AGAIN!'); &READLN(MOVE); $END; "BOARD[MOVE]:='X'; "PRINT; "WRITELN('AND YOUR REPLY IS?'); "READMOVE; "IF BOARD[1]='X' THEN $CORNER; "IF BOARD[2]='X' THEN $SIDE; "IF BOARD[3]='X' THEN " CENTER; "FOR I:= 1 TO 2 DO $BEGIN &FOR J:= 1 TO 3 DO (BEGIN *IF BOARD[POSCTR[I,J]]='X' THEN ,BEGIN .SHIFTCTR:=J; .IF I=1 THEN 0CORNER .ELSE 0SIDE; ,END; (END; $END;  END.  $ ( ( ( ( "  PROGRAM MAPDRAW;   VAR FOTOFILE : FILE;  SCREEN : PACKED ARRAY[0..9727] OF CHAR;  FILENAME : STRING; %FILENUM : STRING;  I : INTEGER; %RESULT : INTEGER;  DELAY : INTEGER;  NUM : INTEGER;   BEGIN  WRITELN (CHR(12));  FILLCHAR(SCREEN[0],SIZEOF(SCREEN),CHR(0));  WHILE FILENUM <> '0' DO #BEGIN #FOR NUM := 2 TO 22 DO &BEGIN &WRITELN (CHR(25)); &READLN (FILENUM); &IF LENGTH(FILENUM) = 0 THEN STR (NUM,FILENUM); &FILENAME := CONCAT('MAPS:IRFOTO',FILENUM,'.FOTO'); PROGRAM TIC1;  (*THIS PROGRAM IS AN UNBEATABLE TIC-TAC-TOE PLAYER $WRITTEN BY BRUCE BLODGETT DECEMBER 1980*)  VAR "I,II,J,&WRITELN (CHR(25)); &WRITELN (FILENUM,' '); &{$I-} {turn off I/O checking} &RESET(FOTOFILE, FILENAME); &{$I-} {turn on I/O cJJ,K,KK,L,LL,M,MOVE,OMOVE,SHIFTCTR:INTEGER;  ANS:CHAR; "BOARD:ARRAY[1..10] OF CHAR; "POSCTR:ARRAY[1..2,1..3] OF INTEGER; "hecking} &RESULT := IORESULT; &IF RESULT = 0 THEN I := BLOCKREAD(FOTOFILE, SCREEN, 19); &UNITWRITE(3,SCREEN,63); &CLOSE(FOTOWINNER:ARRAY[1..2] OF INTEGER; "  PROCEDURE PRINT; "BEGIN  *******INSERT PROCEDURES HERE*******   BEGIN  POSCTR[1,0]:=4 , $VKI, $VKO, $VMUI, $VMUO, $VGO, $G1, $G2, $G3, $U, $OPER, $COSTST, $PEN, $VRE, $FUNCT, $XI, $VSO: REAL; $ $Z: ARRAY[1..10] OF REAL; $ $NP: INTEGER; $ $LB, $UB, $D, $PT, $X, $MINAT: ARRAY[1..10] OF REAL; $ $EUCDIM, $I, $J: INTEGER; $ $MIN, $VALUE: REAL; $ $PRINT : BOOLEAN; $ $ #PROCEDURE EXCH; # #VAR TNEW: REAL; # &FUNCTION CPETO^OH(VAR T:REAL):REAL; &BEGIN )TC:=0.555555*(T-32.0); )CPETOH:=(2.350+TC*(4.749E-3+TC*6.025E-5))/4.1868 &END; & &FUNCTION CPH2O(T:REAL):REAL; &BEGIN )TC:=0.555555*(T-32.0); )CPH2O:=(1.006+TC*(-2.481E-4+TC*2.301E-6)) &END; & &FUNCTION CPI(T:REAL):REAL; &BEGIN )CPI:=0.9*CPH2O(T)+0.1*CPETOH(T) &END; ) &FUNCTION CPO(T:REAL):REAL; &BEGIN )CPO:=CPH2O(T) &END; & &FUNCTION WO(TIOUT:REAL):REAL; &BEGIN )FEED:=(TIOUT-32.0)*((0.6942+CPETOH(TIOUT))/2.0) * 0.2212+(TIOUT-32.0) -*((0.9996+CPH2O(TIOUT))/2.0) * 0.7788; )WO:=4.649E+4 - 9.049E+1 * FEED; &END; & &FUNCTION FKETOH(T:REAL):REAL; &BEGIN )TC:=0.55555*(T-32.0); )FKETOH:=(0.159 +TC*(-1.303E-4 +TC*1.487E-7))*0.6723; &END; & &FUNCTION FKH2O(T:REAL):REAL; &BEGIN )TC:=0.55555*(T-32.0); )FKH2O:=(4.813+TC*(1.798E-3 +TC*(-7.307E-6)))*0.6723; &END; & &FUNCTION FKI(T:REAL):REAL; &BEGIN )FKI:=FKETOH(T)*0.1PROGRAM MINI(INPUT,OUTPUT); #  VAR TOOUT, $TIOUT, $TOIN, $TIIN, $TC, $VNT, $ERR, $HDO, $HDI, $FO, $AO, $PI, $L, $DI, $DOT, $DIFF, $FEED, $VWI, $CLEAR, $VCPI, $VCPO, $VQ, $VWO, $VSI, $VGI, $VAO, $VFT, $VDELT, $VUO, $VHI, $VHO5  + FKH2O(T)*0.9; &END; & &FUNCTION FKO(T:REAL):REAL; &BEGIN )FKO:=FKH2O(T); &END; & &FUNCTION FMUH2O(T:REAL):REAL; &BEGOIN+TOOUT)/2.0); +VGO:=(VHO*DOT/VKO)*EXP(1.67*LN((FO/AO)*EXP(0.33*LN(VKO/(VCPO*VMUO))))) 3*VMUI/DI; +VSO:=VWO/VGO; +WRITELN;IN )TC:=0.55555*(T-32.0); )FMUH2O:=(158.05+TC*(-2.4339+TC*1.0555E-2))*0.98*2.42; &END; & &FUNCTION FMUETOH(T:REAL):REAL; & +WRITELN(VSI,VGI,VAO,VFT,VDELT,VUO,VWO); +WRITELN(VKI,VMUI,VHI,VHO,VMUO,VKO,VGO,VSO); &END &ELSE )BEGIN ,VAO:=50000.0; )BEGIN )TC:=0.55555*(T-32.0); )FMUETOH:=(1.7037+TC*(-2.338E-2+TC*9.115E-5))*0.98*2.42; &END; & &FUNCTION FMUI(T:REAL):REAL; END; #END; # #FUNCTION COST:REAL; #BEGIN &COST:=(2570.0+VAO*(5.301-VAO*1.269E-4))*(1.0+0.47+0.66+0.10+ 00.70+0.33+0.41+0.1&BEGIN )FMUI:=FMUH2O(T)*0.9+FMUETOH(T)*0.1; &END; & &FUNCTION FMUO(T:REAL):REAL; &BEGIN )FMUO:=FMUH2O(T); &END; & 8+0.36+0.75); #END; & #PROCEDURE FUNC; #BEGIN &TIOUT:=PT[1]; &VNT:=PT[2]; &EXCH; &VRE:=VGI*DI/VMUI; &G1:=VRE-2100.0; &&FUNCTION FT(VAR TIOUT,TOOUT:REAL):REAL; & &VAR V1, *R, *S: REAL; * &BEGIN )R:=(TOIN-TOOUT)/(TIOUT-TIIN); )S:=(TIOUTG2:=TIOUT-TIIN-1.0; &G3:=-TOOUT+TOIN-1.0; &U:=0.0; &IF (U > G1) THEN )U:=G1; &IF (U > G2) THEN )U:=G2; &IF (U > G3) TH-TIIN)/(TOIN-TIIN); )V1:=SQRT(R*R+1.0); )FT:=V1*LN((1.0-S)/(1.0-R*S))/ 0((R-1.0)*LN((2.0-S*(R+1.0-V1))/(2.0-S*(R+1.0+V1)))) EN )U:=G3; &U:=ABS(U); &WRITELN(FUNCT,VRE,G1,G2,G3,U,XI*COST); &WRITELN(U*PEN,-VWI*OPER*COSTST); ) &FUNCT:=-VWI*OPER*COSTS&END; & &FUNCTION DELT(VAR TIOUT,TOOUT:REAL):REAL; & &VAR X1, *X2: REAL; * &BEGIN )X1:=TOIN-TIOUT; )X2:=TOOUT-TIIN; T + XI*COST + U*PEN; #END; # #  PROCEDURE MINIGRID; #BEGIN &FOR I:=1 TO 2 DO )PT[I]:=LB[I]; &WRITELN; &WRITELN; )DELT:=(X1-X2)/LN(X1/X2); &END; & #BEGIN # &TNEW:=150.0; &REPEAT )TOOUT:=TNEW; )VCPI:=CPI((TIOUT+148.0)/2.0); )VQ:=VWI&REPEAT )FUNC; )IF (PRINT) THEN ,BEGIN /WRITELN; /WRITELN( FUNCT); /FOR I:=1 TO 2 DO 2WRITE(PT[I]); /WRITELN; ,END; )*VCPI*(TIOUT-148.0); )VCPO:=CPO((TOIN+TOOUT)/2.0); )VWO:=WO(TIOUT); )TNEW:=228.0-VQ/(VWO*VCPO); )DIFF:=TOOUT-TNEW; )WRITELNIF (FUNCT < MIN) THEN )BEGIN ,MIN:=FUNCT; ,FOR I:= 1 TO 2 DO .MINAT[I]:=PT[I]; )END; )I:=1; )WHILE ((I<2) AND (PT[I]>= UB(VCPI,VQ,VCPO,VWO,TNEW,DIFF); &UNTIL(ABS(DIFF)< ERR); &TOOUT:=TNEW; &IF (TOOUT > TIOUT) THEN )BEGIN +VSI:=PI*DI*DI*VNT/4.0;[I])) DO )BEGIN ,PT[I]:=LB[I]; ,I:=I+1; )END; )IF (I>2) )THEN BEGIN /WRITELN; /WRITELN(MIN); /FOR J:=1 TO 2 DO 1WRITE( +VGI:=VWI/VSI; +VAO:=VNT*NP*PI*DOT*L; +VFT:=FT(TIOUT,TOOUT); +VDELT:=DELT(TIOUT,TOOUT); +VUO:=VQ/(VAO*VDELT*VFT); +VKI:=FMINAT[J]); .END )ELSE ,PT[I]:=PT[I]+D[I]; %UNTIL (I > 2); "END;    BEGIN #VWI:=8.747E+4; #TOIN:=228.0; #TIIN:=148.0KI((TIIN+TIOUT)/2.0); +VMUI:=FMUI((TIIN+TIOUT)/2.0); +VHI:=(VKI/DI)*0.023*EXP(0.66*LN(DI*VGI/VMUI))*EXP(0.33* ; #ERR:=1.0E-4; #HDI:=500.0; #HDO:=500.0; #FO:=1.6; #DOT:=4.86666E-2; #DI:=8.75E-2; #AO:=0.33; #PI:=3.1415927; #L:=16.02LN(VCPI*VMUI/VKI)); +VHO:=1.0/(1.0/VUO - (DOT/DI)*(1.0/VHI + 1.0/HDI)-1.0/HDO); +VMUO:=FMUO((TOIN+TOOUT)/2.0); +VKO:=FKO((T; #CLEAR:=0.98; #NP:=2; #OPER:=360.0; #COSTST:=0.6; #PEN:=1.0E+15; #XI:=2.0; # #Z[1]:=TIOUT; #Z[2]:=VNT; # #LB[1]:=146  PROGRAM STRING1;  var i, j, x, n : integer;   FUNCTION factorial (VAR n : integer):integer; "VAR nminus1 : INTEGER;  BE =This is a factorial program. What number would you like the צ factorialGIN { factorial } $IF (n = 1)THEN BEGIN factorial := 1; WRITELN('BOTTOM') END %ELSE 'BEGIN ' WRITELN('START FACTORIAL',N of? ȡ#ȡHi THIS IS A DEMONSTR ); )nminus1 := n - 1 ; )factorial := n * factorial (nminus1); )WRITELN ('END factorial ',N); 'END;  END; { factorial }  ATIONOF PROGRM EXECUTIONצFACTORIAL IS ............    9.0; #LB[2]:=1.0; #UB[1]:=180.0; #UB[2]:=100.0; #D[1]:=2.0; #D[2]:= 5.0; #MIN:=0.0; #PRINT:=TRUE; # # #MINIGRID; # "  BEGIN #writeln('This is a factorial program. What number would you like the '); #writeln('factorial of?'); #read(n); #x:   END. =factorial(n); #for i:=1 to 24 do %begin 'for j:=1 to 1500 do; 'writeln; %end; #WRITEln('Hi'); #WRITELN(' THIS IS A DEMONO^STRATION'); #WRITELN('OF PROGRM EXECUTION'); #WRITELN('FACTORIAL IS ............ ',x) #  END. p   STRING1  áצBOTTOMlצSTART FACTORIAL END factorial 7 PROGRAM RECORDTEST; "TYPE " ADDRESSTYPE=RECORD )STREET:PACKED ARRAY [1..20] OF CHAR; )CITY:PACKED ARRAY [1..12] OF CHAR; ٢ Blodgett ר Bruce ר٢ 329 Johnson Street ڢ Charlotte ڢMI ڢ48813ר٢! 517543)STATE:PACKED ARRAY [1..3] OF CHAR; )ZIP:PACKED ARRAY [1..5] OF CHAR 'END; " PERSON=RECORD )LASTNAME,FIRSTNAME:PACKED ARRAY23891x)*PQ 5173537688PQBigS Paul M JohnsYצlowcalP P [1..12] OF CHAR; )ADDRESS:ADDRESSTYPE; )HOMEPHONE:PACKED ARRAY [1..10] OF CHAR 'END; $PATIENTRECORD=RECORD )PATIENT:PERSONTruedonePo you want to E(xit from or R(eturn to the editor? ; )AGE:1..120; )NextOfKin:PERSON; )CASE Hospitalized: Boolean of +true: -(Ward:packed array [1..3] of char; .ResDoctor:pac  EګצWriting out the file*X::6z'8TVX`kV8ked array [1..12] of char; ) Diet:string); +false: -(Dayphone:packed array [1..10] of char) %end; #VAR %me:patientrecoO^rd; %i,j,k:integer; # subper:person; # #PROCEDURE SUBPERSON(VAR SUBPER:PERSON); %BEGIN )with subper do +begin -LASTNAMEbhצBOTTOMlצSTART FACTORIAL END factorial  =This is a factorial program. What number would you like the צ factorial of? ȡ#ȡHi THIS IS A DEMONSTRATIONOF PROGRM EXECUTIONצFACTORIAL IS ............    @ RECORDTE  8  then 'writeln('True'); %writeln('done') #end. + ) + + + /   O^:='Blodgett '; -FIRSTNAME:='Bruce '; -with address do /begin 1street:='329 Johnson Street '; 1city:='Charlotte '; 1state:='MI '; 1zip:='48813' /end; -homephone:='5175432389' % end %END; ) #BEGIN  with me do 'begin )subperson(patient); )age:=19; )subperson(nextofkin); )Hospitalized:=false; )dayphone:='5173537688'; )Hospitalized:=true; )ward:='Big'; )resdoctor:='Paul M Johns'; )diet:='lowcal'; & end; 'writeln(me.patient.firstname); %if me.hospitalized=true9 D; $WRITELN('FINAL BALANCE IS', NEWBAL) "END.  Z CHECKBOO  zE  ENTER DEPOSIT צBALANCE =  PROGRAM CHECKBOOK ; "CONST "OLDBAL=1000.00; "VAR "DEPOSIT, NEWBAL, AMT : REAL; "CKNUM, MISCK : INTEGER; "BEGIN $NEWBAL צENTER CHECK NUMBER AND AMOUNT  'ˡ := OLDBAL; $AMT :=0; $ DEPOSIT :=0; $ CKNUM :=0; $ MISCK := 0; $REPEAT &WRITELN('ENTER DEPOSIT'); &READ(DEPOSIT); &IF צWORKING BALANCE IS ENTER CHECK NUMBER AND AMOUNT DEPOSIT <> 0 (THEN NEWBAL := NEWBAL + DEPOSIT; &WRITELN('BALANCE = ', NEWBAL); $UNTIL DEPOSIT = 0; $WRITELN('ENTEˡF'ˡ? CHECK NUMBER  צ MISSINGצFINAL BALANCE ISR CHECK NUMBER AND AMOUNT'); $READ(CKNUM); $READ(AMT); $MISCK := CKNUM; $WHILE (CKNUM <> 9999) DO &BEGIN (NEWBAL := NEWBAL3  á +-Í-ڲzؼ 0 - AMT; (MISCK := CKNUM + 1; (WRITELN('WORKING BALANCE IS ', NEWBAL); (WRITELN('ENTER CHECK NUMBER AND AMOUNT'); .áAڲzؼ 0ڲzQeEÍݍ.áO^(READ(CKNUM); (READ(AMT); (IF MISCK <> CKNUM *THEN IF CKNUM <> 9999 * THEN WRITELN('CHECK NUMBER ', MISCK, ' MISSING') &EN:  '߂ۓۡܡ ؼɡ ؼ߀$ ؼߞ$"Hɍ -   $ $ ݞ$' ݑ$ $݂ō $  PROGRAM TAVLOO(INPUT,OUTPUT); ! #TYPE BOARD=RECORD +PTOC:SET OF 'A'..'Z'; +NUM:ARRAY['A'..'Z'] OF INTEGER; )END; # #݂ġ ݂$ $ $ȡ%  0 ފ$čQ  VAR PTB,PTW:BOARD; )BPLT:ARRAY[1..15] OF CHAR; )DIE1,DIE2:1..6; )PIPB,PIPW:INTEGER; )OPENB,OPENW:SET OF 'A'..'Z'; )EXMOV1 .ˡ5  Eɡ  -ݑ š 0 0 ߿`ġ(   ݂. ݕ ؂݂3  ݕ,EXMOV2:ARRAY[1..4] OF CHAR; )VAL1,VAL2:REAL; )BHOME,WHOME:BOOLEAN; )WTOTAL,BTOTAL:0..15; #   0 . ݑ0 ݕ݂ ؂ ɡ   x, FO^ģģO^ģģ;  000000| 5 (MOV R2,%1+2 000000| 5 (MOV (SP)+,R3 000000| 5 (MOV R3,%1+4 000000| 5 (MOV (SP)+,R0 000000| 5 (MOV (SP)+,R0 000000| 5 (MOV (SP)+,R0 000000| 5 (.ENDM 000000| 5  ; 000000| 5 (.MACRO PUSH1 000000| 5 (MOV %1,R3 000000| 5 (MOV %1+2,R2 000000| 5 (MOV R1,-(SP) 000000| 5 (MOV %1+4,PC 000000| 5 (.ENDM 000000| 5  ; 2 blocks for procedure code 8078 words left PAGE - 1 INCODE FILE:SYSTEM.WRK.TEXT 000000| 5 (.FUNC INCODE,1 Current memory available: 8331 000000| 5 (PULL1 HOLD 000000| 010367 ****** '#(MOV R3,HOLD 000004| 010267 ******   PROGRAM TAVLOO(INPUT,OUTPUT); ! #TYPE BOARD=RECORD +PTOC:SET OF 'A'..'Z'; +NUM:ARRAY['A'..'Z'] OF INTEGER; )END; # #VAR PTB,PTW:BOARD; )BPLT:ARRAY[1..15] OF CHAR; )DIE1,DIE2:1..6; )PIPB,PIPW:INTEGER; )OPENB,OPENW:SET OF 'A'..'Z'; )EXMOV1,EXMOV2:ARRAY[1..4] OF CHAR; )VAL1,VAL2:REAL; )BHOME,WHOME:BOOLEAN; )WTOTAL,BTOTAL:0..15; #  PAGE - 0 Current memory available: 9001 000000| 5 (.DEF HOLD,SYN 000000| 5 (.MACRO PULL1 000000| 5 (MOV R3,%1< 2 000050| 062702 000002 '  SKIP ADD #2,R2 000054| 000770 . (BR LOOP 000040* 006 000056| 103772 .  EXIT BCS 000212| 050763 163216 076431 (.WORD 050763,163216,076431 000220| 172461 133535 115767 (.WORD 172461,133535,115767 000226 DOIT 000060| 5 (PUSH1 HOLD 000060| 016703 ****** '#(MOV HOLD,R3 000064| 016702 ****** '#(MOV HOLD+2,R2 00007| 5  ; 000136* 000072 000130* 000076 000124* 000100 000112* 000116 000104* 000122 000100* 000124 000074* 000134 000066* 0001400| 010146 .#(MOV R1,-(SP) 000072| 016707 ****** '#(MOV HOLD+4,PC 000076| 5  ; 000076| 5  SYN PULL1 HOLD 00 000062* 000142 000014* 000214 000006* 000220 000002* 000222 000226| 000 000 000 000 000  HOLD .BLOCK 6,0 000234| 5  ; 0076| 010367 ****** '#(MOV R3,HOLD 000102| 010267 ****** '#(MOV R2,HOLD+2 000106| 012603 .#(MOV (SP)+,R3 00011 PAGE - 3 INCODE FILE:SYSTEM.WRK.TEXT SYMBOLTABLE DUMP AB - Absolute LB - Label UD - Undefined MC - Macro R0| 010367 ****** '#(MOV R3,HOLD+4 F - Ref DF - Def PR - Proc FC - Func PB - Public PV - Private CS - Consts CODE LB 000152| 000114| 012600 .#(MOV (SP)+,R0 000116| 012600 .#(MOV (SP)+,R0 000120| 012600 .#(MOV (SP)+,R0 000122| 5 (PUSH DOIT LB 000044| EXIT LB 000056| HOLD DF 000226| INCODE FC ------| LOOP LB 000036 PULL1 MC ------| PUS1 HOLD 000122| 016703 ****** '#(MOV HOLD,R3 000126| 016702 ****** '#(MOV HOLD+2,R2 000132| 010146 .#(MOV R1,H1 MC ------| SIN LB 000170| SKIP LB 000050| SYN DF 000076| PAGE - 4 INCODE FILE:SYSTEM.WRK.TEXT -(SP) 000134| 016707 ****** '#(MOV HOLD+4,PC 000140| 005001 . (CLR R1 000142| 006300 . (ASL R0 000144| 012702  '#(MOV R2,HOLD+2 000010| 012603 .#(MOV (SP)+,R3 000012| 010367 ****** '#(MOV R3,HOLD+4 000016| 012600 .#(MOV****** ' (MOV #SIN,R2 000150| 000732 . (BR LOOP 000152| 5  ; 000034* 000152 000152| 042700 021340 010560  CODE  (SP)+,R0  .WORD 42700,21340,10560 000160| 004270 002134 001056 (.WORD 04270,02134,01056 000166| 000427 . (.WORD 00427 000170|000020| 012600 .#(MOV (SP)+,R0 000022| 012600 .#(MOV (SP)+,R0 000024| 005001 . (CLR R1 000026| 072027 000011  5  ; 000146* 000170 000170| 104210 041034 026072  SIN .WORD 104210,041034,026072 000176| 011537 145364 067206 (.WOR' (ASH #11,R0 000032| 012702 ****** ' (MOV #CODE,R2 000036| 006300 .  LOOP ASL R0 000040| 001*** . (BEQ D 011537,145364,067206 PAGE - 2 INCODE FILE:SYSTEM.WRK.TEXT 000204| 037425 154473 122122 (.WORD 037425,154473, EXIT 000042| 103*** . (BCC SKIP 000044| 011203 .  DOIT MOV (R2),R3 000046| 074301 . (XOR R3,R1 000042* 00122122 = LTABLE DUMP AB - Absolute LB - Label UD - Undefined MC - Macro RF - Ref DF - Def PR - Proc | PUSH1 MC ------| SYN DF 000076|  FC - Func PB - Public PV - Private CS - Consts HOLD DF 000226| PULL1 MC ------| PUSH1 MC ------| SYN  PAGE - 10 DECODE FILE:SYSTEM.WRK.TEXT Current minimum space is 7950 words Assembly complete: 98 lines 0  DF 000076| SYNDROM FC ------| PAGE - 7 SYNDROM FILE:SYSTEM.WRK.TEXT Current minimum space is 7950 words PAGE - Errors flagged on this Assembly  8 DECODE FILE:SYSTEM.WRK.TEXT 000000| 5 (.FUNC DECODE,1 Current memory available: 8331 000000| 5 (PULL1 HOLD 000000| 010367 000222 '#(MOV R3,HOLD 000004| 010267 000220 '#(MOV R2,HOLD+2 000010| 012603 .#(MOV (SP)+,R3 000012| 010367 000214 '#(MOV R3,HOLD+4 000016| 012600 .#(MOV (SP)+,R0 000020| 012600 .#(MOV (SP)+,R0 000022| 012600 .#(MOV (SP)+,R0 000024| 072027 177770 ' (ASH #-10,R0 000030| 010001 . (MOV R0,R1 000032| 072027 177774 ' (ASH #-4,R0 000036| 074001 . (XOR R0,R1 000040| 072027 177776 ' (ASH #-2,R0 000044| 074001 . (XOR R0,R1 000046| 5 (PUSH1 HOLD 000046| 016703 000154 '#(MOV HOLD,R3 000052| 016702 000152 '#(MOV HOLD+2,R2 000056| 0101( BINDER 46 .#(MOV R1,-(SP) 000060| 016707 000146 '#(MOV HOLD+4,PC 000064| 5 (.END PAGE - 9 DECODE FILE:SYSTEM.WRK.T  Current minimum space is 7950 words PAGE - 5 SYNDROM FILE:SYSTEM.WRK.TEXT 000000| 5 (.FUNC SYNDROM,1 Current meEXT SYMBOLTABLE DUMP AB - Absolute LB - Label UD - Undefined MC - Macro RF - Ref DF - Def PR - Promory available: 8331 000000| 000167 000072 ' (JMP SYN 000004| 5  ; PAGE - 6 SYNDROM FILE:SYSTEM.WRK.TEXT SYMBOc FC - Func PB - Public PV - Private CS - Consts DECODE FC ------| HOLD DF 000226| PULL1 MC ------> '''۞ۂەZ Y]U.   šceՁ =תH[dDYDS9ˡF\ PASCALSYר\욶\UXXUU' Yض[ Zˡl]ZUˡM\ [آ [\[\[UXXUٚ.ȡ$ˡ,U ,š YáZY [[ȡY[š [[ -n  Tȡܢ"6 ERROR ( Pas ,٪PتP]ƁX\Y]UZ\̀[̀[ʀȡ;ʀ [ רʀ[cal System Binder (2.1 a2)>This program modifies the SYSTEM.PASCAL of your default prefix?d[[[ , Z\]\á ]*צCode file write error ] isk. If any of the files it expects to be around are missing,צ?i.e. SYSTEM.PASCAL, or enough room (60 blocks) to Ɓ62Ɓ^Ձ.  Moving procedures around  !  re-create it,2it will terminate with the cryptic message "ERROR"?You also need to execute th2 Calling system linker to create new SYSTEM.PASCALצ SYSTEM.PASCALצSYSTEM.PASCAL[35] 2e program SETUP to get the system toצ&work intelligently with your terminal.צ* File with GOTO6.\ ]UZ\̀[̀[ʀȡ;ʀ [ רʀ[XY(X,Y: INTEGER) procedure:Pá "ˡ" ++P+צ.CODEU+"á2 SYSTEM.PASC[[[ , Z\]\á ]*צCode file write error ] AL"ˡ2ˡ+ZZ ++++2+ˡ ˡZ ک Uȡ" +צincompatible byte sex+Z ++++ +ˡe >ȡ'v  懲ɥ Ʃ ZؕܕZؕܕ'ؕ'ؕە'( ک šOȡ!v ? VKO VMUI VMUO FO MAO KDOT CCOSTST  ERR S>, [ڼۼYۼY[Y @ @VQ 5OPER NP uVWI =VSI 1VRE  PRINT VUO '@@A@ A@  [ۼڼYFUNCT VSO PT EUCDIM VWO 3FWRITERE  TOOUT _:D_9]DA5=9]D7[_\ MINI A3]dD537A_9573ODQDM@CVG>E33>K?IIAGB;Gz@uD @ _cY Aa ]a U D @ 4D C A AdjP \  8 j  4 f   |*v .   šceՁ =תH[dDYDS9W8@ڼCffAW*?C1@AAZ aX G2 G3 LB VALUE UB HDO Qb?jC@Ap_G@5HC?xW8@C"?W$:WHDI OVCPI 9VCPO 7DI EFEED ?VDELT )VGI /VFT +X5,@JW8@CAWߪ;W.7,@J >PEN  VHI %VGO VHO #DIFF AMINAT vMIN TOOUT _ fff@,   W8@C DWAW,=Gz@HATIOUT ]TIIN YPI ITOIN [VNT UCLEAR ;VKI !XI R W8@C@Wi=W'9Gz@HAR  fff@ @ u:@ף?(@>333@7??AQ8?Q?@@x] U ݑ š 0 0 ߿`ġ(   ݂. ݕ ؂݂3  ݕ 0 . ݑ0 ݕ݂  /E @F]Y@_[@ ؂ ɡ   x, ^D P  , ^  ( Z x p T X5 FMUETOH X5LE T X5FMUI EX5ET X5FMUO  = =  ȡ( ک Uȡ" >ȡ'v  懲ɥ Ʃ ( ک šOȡ!v AAS__]1IEEUA/=1-UuICG+]_.   šceՁ =תH[dDYDS9)]_'5-)+!Y]A Y]A%!Ej=(@E/ODQDM@CVG>E33>K?IIAGB;Gz@uD @ _cY?9!#@@'CE@%@O@Q[_AAa ]a U D @ 4D C [_A #C@MK?7E31A Adɍ -   $ /-+)'3!% $ ݞ$' ݑ$ $݂ō $݂ġ ݂$# -PCH   F-ˡA- $ $ȡ%  0 ފ$čQ   .ˡ5  Eɡ  -A IN(i:INTEGER);  VAR J:RETURN;  k:integer;  BEGIN "J.I[0]:=i; "WITH J DO #FOR K:=15 DOWNTO 0 DO %IF B[K] THEN WRITE('1 CONTROL ') %ELSE WRITE ('0');  END;   Function ERROR:integer;  var j:return; $k,i:integer;  Begin #i:=3; #while i>2 do #begin  &writeln; &write('Please enter the binary error code:'); &i:=0; &for k:=0 to 15 do &begin )read(c); )if c='0' then j.b[k]:=false; )if c='1' then )begin ,j.b[k]:=true; ,i:=i+1; )end; &end; #end; #i:=j.i[0]; #error:=i;  end;   BEGIN !FLAG:=FALSE; !REPEAT #WRITE('PLEASE TYPE A CHAR '); #READ(C); #WRITE(' '); #IF C='@' THEN FLAG:=TRUE; #K:=INCODE(C); ؚġ) 1 00Hš}#Please enter the binary error c#BIN(K); #WRITE(' '); #j.i[0]:=error; #hld.i[0]:=k; #for tmp:=0 to 15 do # with j do )if b[tmp] and hld.b[tmp] then hldode:ȡ60á 1áP 8צPLEAS.b[tmp]:=false )else if not b[tmp] and not hld.b[tmp] then hld.b[tmp]:=false )else hld.b[tmp]:=true; #k:=hld.i[0]; #bin(k); E TYPE A CHAR  @á   ȡ\ #i:=syndrom(k); #bin(i); #write(' '); #C:=DECODE(K); #WRITE(C); #WRITELN; !UNTIL FLAG  END.  1      "  1 00Hš}#Please enter the binary error code:ȡ60á 1áP 8צPLEAS PROGRAM CONTROL;  TYPE #RETURN=RECORD CASE BOOLEAN OF #TRUE: (I:PACKED ARRAY [0..0] OF INTEGER); #FALSE: (B:PACKED ARRAY [0..15] OF BOOLEAN); #END; #   VAR C:CHAR; $J,hld:RETURN; $FLAG:BOOLEAN; $tmp,i,K:INTEGER;   FUNCTION INCODE(C:CHAR):INTEGER;EXTERNAL;  FUNCTION DECODE(K:INTEGER):CHAR;EXTERNAL;  FUNCTION syndrom(k:integer):integer;external; $ $  PROCEDURE BB E TYPE A CHAR  @á   ȡ\ 1     PROGRAM CONTROL;  TYPE #RETURN=RECORD CASE BOOLEAN OF #TRUE: (I:PACKED ARRAY [0..0] OF INTEGER); #FALSE: (B:PACKED ARRAY [C J I K DECODE HLD FLAG TMP  0..15] OF BOOLEAN); #END; #   VAR C:CHAR; $J,hld:RETURN; $FLAG:BOOLEAN; $tmp,i,K:INTEGER;   FUNCTION INCODE(C:CHAR):IINCODE SYNDROM  1áP 8צPLEASNTEGER;EXTERNAL;  FUNCTION DECODE(K:INTEGER):CHAR;EXTERNAL;  FUNCTION syndrom(k:integer):integer;external; $ $  PROCEDURE BE TYPE A CHAR  @á   ȡ\ IN(i:INTEGER);  VAR J:RETURN;  k:integer;  BEGIN "J.I[0]:=i; "WITH J DO #FOR K:=15 DOWNTO 0 DO %IF B[K] THEN WRITE('11    ') %ELSE WRITE ('0');  END;   Function ERROR:integer;  var j:return; $k,i:integer;  Begin #i:=3; #while i>2 do #beginO^ &writeln; &write('Please enter the binary error code:'); &i:=0; &for k:=0 to 15 do &begin )read(c); )if c='0' then j.b[kt]:=false; )if c='1' then )begin ,j.b[k]:=true; ,i:=i+1; )end; &end; #end; #i:=j.i[0]; #error:=i; #WRITELN;  end;   BEGIN !FLAG:=FALSE; !REPEAT #WRITE('PLEASE TYPE A CHAR '); #READ(C); #WRITE(' '); #IF C='@' THEN FLAG:=TRUE; #K:=INCODE(C); #BIN(K); #WRITE(' '); #j.i[0]:=error; #hld.i[0]:=k; #for tmp:=0 to 15 do # with j do )if b[tmp] and hld.b[tmp] then hld.b[tmp]:=false )else if not b[tmp] and not hld.b[tmp] then hld.b[tmp]:=false )else hld.b[tmp]:=true; #k:=hld.i[0]; #bin(k); #i:=syndrom(k); #bin(i); #write(' '); #C:=DECODE(K); #WRITE(C); #WRITELN; !UNTIL FLAG  END.  C צPLEASE TYPE A CHAR  @á   ȡ\ 1      "  00Hš}#Please enter the binary error code:ȡ60á 1áX 9צPLEASE TYPE A CHAR  @á   ȡ\ 1    C J I K DECODE HLD FLAG TMP  & CONTROL INCODE SYNDROM  1áX 9 צPLEASE TYPE A CHAR  @á   ȡ\ 1    O^ؚġ) 1 00Hš}#Please enter the binary error ctode:ȡ60á 1áX 9D  &WRITELN; &writeln(' 5432109876543210'); &write('Please enter the binary error code:'); &i:=0; &for k:=0 to 15 do &begin )read(c); )if c='0' then j.b[k]:=false; )if c='1' then )begin ,j.b[k]:=true; ,i:=i+1; )end; &end; #end; #i:=j.i[0]; #error:=i; #WRITELN;  end;   BEGIN !FLAG:=FALSE; !REPEAT #WRITE('PLEASE TYPE A CHAR '); #READ(C); #WRITE(' '); #IF C='@' THEN FLAG:=TRUE; #K:=INCODE(C); #BIN(K); #WRITE(' '); #j.i[0]:=error; #hld.i[0]:=k; #for tmp:=0 to 15 do # with j do )if b[tmp] and hld.b[tmp] then hld.b[tmp]:=false )else if not b[tmp] and not hld.b[tmp] then hld.b[tmp]:=false )else hld.b[tmp]:=true; #k:=hld.i[0]; #bin(k); #WRITE(' '); #i:=syndrom(k); #bin(i); #write(' '); #C:=DECODE(K); #WRITE(C); #WRITELN; !UNTIL FLAG  END.   PROGRAM CONTROL;  TYPE #RETURN=RECORD CASE BOOLEAN OF #TRUE: (I:PACKED ARRAY [0..0] OF INTEGER); #FALSE: (B:PACKED ARRAY [0..15] OF BOOLEAN); #END; #   VAR C:CHAR; $J,hld:RETURN; $FLAG:BOOLEAN; $tmp,i,K:INTEGER;   FUNCTION INCODE(C:CHAR):INTEGER;EXTERNAL;  FUNCTION DECODE(K:INTEGER):CHAR;EXTERNAL;  FUNCTION syndrom(k:integer):integer;external; $ $  PROCEDURE BIN(i:INTEGER);  VAR J:RETURN;  k:integer;  BEGIN "J.I[0]:=i; "WITH J DO #FOR K:=15 DOWNTO 0 DO %IF B[K] THEN WRITE('1O^') %ELSE WRITE ('0');  END;   Function ERROR:integer;  var j:return; $k,i:integer;  Begin #i:=3; #while i>2 do #begintE ') %ELSE WRITE ('0');  END;   Function ERROR:integer;  var j:return; $k,i:integer;  Begin #i:=3; #while i>2 do #beginR0 (MOV (SP)+,R0 (MOV (SP)+,R0 (.ENDM  ; (.MACRO PUSH1 (MOV %1,R3 (MOV %1+2,R2 (MOV R1,-(SP) (MOV  &WRITELN; &writeln(' 3210321032103210'); &write('Please enter the binary error code:'); & %1+4,PC (.ENDM  ; (.FUNC INCODE,1 (PULL1 HOLD (CLR R1 (ASH #11,R0 (MOV #CODE,R2  LOOP ASL R0 i:=0; &for k:=15 DOWNTO 0 do &begin )read(c); )if c='0' then j.b[k]:=false; )if c='1' then )begin ,j.b[k]:=true; ,i:=i+1(BEQ EXIT (BCC SKIP  DOIT MOV (R2),R3 (XOR R3,R1  SKIP ADD #2,R2 (BR LOOP  EXIT BCS ; )end; &end; #end; #i:=j.i[0]; #error:=i; #WRITELN;  end;   BEGIN !FLAG:=FALSE; !REPEAT  DOIT (PUSH1 HOLD  ;  CODE .WORD 42700,21340,10560 (.WORD 04270,02134,01056 (.WORD 00427  ;  HOLD .BLOCK 6#WRITE('PLEASE TYPE A CHAR '); #READ(C); #WRITE(' '); #IF C='@' THEN FLAG:=TRUE; #K:=INCODE(C); #BIN(K); #WRITE(' '); #j,0  ; (.FUNC SYNDROM,1 (PULL1 HOLD (CLR R1 (ASL R0 (MOV #SIN,R2  LOOP ASL R0 (BEQ EXIT (BCC .i[0]:=error; #hld.i[0]:=k; #for tmp:=0 to 15 do # with j do )if b[tmp] and hld.b[tmp] then hld.b[tmp]:=false )else if no SKIP  DOIT MOV (R2),R3 (XOR R3,R1  SKIP ADD #2,R2 (BR LOOP  EXIT BCS DOIT (PUSH1 HOLD t b[tmp] and not hld.b[tmp] then hld.b[tmp]:=false )else hld.b[tmp]:=true; #k:=hld.i[0]; #bin(k); #WRITE(' '); #i:=syndrom( ;  SIN .WORD 104210,041034,026072 (.WORD 011537,145364,067206 (.WORD 037425,154473,122122 k); #bin(i); #write(' '); #C:=DECODE(K); #WRITE(C); #WRITELN; !UNTIL FLAG  END.  INCODE INCODE SYNDROM SYNDROM DECODE DECODE   PROGRAM CONTROL;  TYPE #RETURN=RECORD CASE BOOLEAN OF #TRUE: (I:PACKED ARRAY [0..0] OF INTEGER); #FALSE: (B:PACKED ARRAY [0..15] OF BOOLEAN); #END; #   VAR C:CHAR; $J,hld:RETURN; $FLAG:BOOLEAN; $tmp,i,K:INTEGER;   FUNCTION INCODE(C:CHAR):INTEGER;EXTERNAL;  FUNCTION DECODE(K:INTEGER):CHAR;EXTERNAL;  FUNCTION syndrom(k:integer):integer;external; $ $  PROCEDURE BIN(i:INTEGER);  VAR J:RETURN;  k:integer;  BEGIN "J.I[0]:=i; "WITH J DO #FOR K:=15 DOWNTO 0 DO %IF B[K] THEN WRITE('1 HOLD .WORD 0,0,0 (.MACRO PULL1 (MOV R3,%1 (MOV R2,%1+2 (MOV (SP)+,R3 (MOV R3,%1+4 (MOV (SP)+,F SYN >HOLD INCODE INCODE C J I K DECODE FLAG INCODE SYNDROM      &צSYSTEM.WRK.TEXTN*SYSTEM.WRK.CODENתeצ4Do you want to E(xit from or R(eturn to the editor?   EګצWriting out the file*X::6z'8TVX`kV: CONTROL  G 054| 010560 . (.WORD 010560 SYN >HOLD INCODE INCODE SYN >HOLD SYNDROM SYNDROM SYN >HOLD INCODE INCODE SYN HOLD SYNDROM SYNDROM SYN >HOLD DECODE DECODE  HOLD DECODE DECODE  PAGE - 3 INCODE FILE:SYSTEM.WRK.TEXT Current minimum space is 8158 words Assembly complete: 26 lines 0 PAGE - 0 Current memory available: 9001 2 blocks for procedure code 8223 words left PAGE - 1 INCODE FILE:SYSTEM.WRK Errors flagged on this Assembly .TEXT 000000| 5 (.FUNC INCODE Current memory available: 8476 000000| 012603 . (MOV (SP)+,R3 000002| 012600 . (MOV (SP)+,R0 000004| 012603 . (MOV (SP)+,R3 000006| 005001 .  NCODE CLR R1 000010| 072027 000011 ' (ASH #11,R0 000014| 012702 ****** ' (MOV #CODE,R2 000020| 006300 .  LOOP ASL R0 000022| 001*** .  BEQ EXIT 000024| 103*** . (BCC SKIP O^000026| 011204 . (MOV (R2),R4 000030| 074201 . (XOR R2,R1 000024* 002 000032| 062702 000002 '  SKIP ADD #2,R2 000036| 001370 . (BNE LOOP 000022* 006 000040| 103774 .  EXIT BCS SKIP-1 000042| 010146 . (MOV R1,-(SP) 000044| 010346 . (MOV R3,-(SP) 000046| 000206 . (RTS SP 000016* 000050 000050| 042700 .  CODE .WORD 042700 000052| 021340 . (.WORD 021340 000H  #WRITELN; !UNTIL FLAG  END.    EګצWriting out the file*X::6z'8TVX`kV:~ t \ xeTRfNFD@ jE"p\.B:,_ʆn?;RQ CONTROL }1]t: ~ttxtx^\fX<DT ؚġ) 1 00H צPLEASE TYPE A CHAR  {$L+}  PROGRAM CONTROL;  TYPE #RETURN=RECORD CASE BOOLEAN OF #TRUE: (I:PACKED ARRAY [0..0] OF INTEGER); #FALSE: (B:PACKED A@á    &צSYSTEM.WRK.TEXTRRAY [0..15] OF BOOLEAN); #END; #   VAR C:CHAR; $J:RETURN; $FLAG:BOOLEAN; $i,K:INTEGER;   FUNCTION INCODE(C:CHAR):INTN*SYSTEM.WRK.CODENתeצ4Do you want to E(xit from or R(eturn to the editor? EGER;EXTERNAL;  FUNCTION DECODE(K:INTEGER):CHAR;EXTERNAL;  FUNCTION syndrom(k:integer):integer;external; $ $  PROCEDURE BIN  EګצWriting out the file*X::6z'8TVX`kV:(i:INTEGER);  VAR J:RETURN;  k:integer;  BEGIN "J.I[0]:=i; "WITH J DO #FOR K:=15 DOWNTO 0 DO %IF B[K] THEN WRITE('1')C J I K DECODE FLAG INCODE SYNDROM  %ELSE WRITE ('0');  END;   BEGIN !FLAG:=FALSE; !REPEAT #WRITE('PLEASE TYPE A CHAR '); #READ(C); #WRITE(' '); #IF C='     &צSYSTEM.WRK.TEXT@' THEN FLAG:=TRUE; #K:=INCODE(C); #BIN(K); #WRITE(' '); #i:=syndrom(k); #bin(i); #write(' '); #C:=DECODE(K); #WRITE(C);N*SYSTEM.WRK.CODENתeצ4Do you want to E(xit from or R(eturn to the editor? I 0* 000044 000034* 000046 000030* 000050 000014* 000070 000006* 000074 000002* 000076 000102| 000 000 000 000 000  HOLD .BLOCK 6,0 000110| 5 (.END PAGE - 5 DECODE FILE: SYMBOLTABLE DUMP AB - Absolute LB - Label UD - Undefined MC - Macro RF - Ref DF - Def PR - Proc FC - Func PB - Public PV - Private CS - Consts DECODE FC ------| HOLD LB 000102| PULL1 MC ------| PUSH1 MC ------| PAGE - 6 DECODE FILE: Current minimum space is 8011 words Assembly complete: 72 lines 0 Errors flagged on this Assembly PAGE - 0 Current memory available: 9001 000000| 5 (.MACRO PULL1 000000| 5 (MOV R3,%1 000000| 5 (MOV R2,%1+2 000000| 5 (MOV (SP)+,R3 000000| 5 (MOV R3,%1+4 000000| 5 (MOV (SP)+,R0 000000| 5 (MOV (SP)+,R0 000000| SYN >HOLD INCODE INCODE SYN >HOLD SYNDROM SYNDROM SYN >HOLD DECODE DECODE  02 ****** '#(MOV HOLD+2,R2 000076| 016707 ****** '#(MOV HOLD+4,PC 000100* 000004 000074* 000006 000070* 000010 00004J ode 8094 words left PAGE - 1 INCODE FILE:CODEWRK 000000| 5 (.FUNC INCODE,1 Current memory available: 8347 00PAGE - 2 INCODE FILE:CODEWRK SYMBOLTABLE DUMP AB - Absolute LB - Label UD - Undefined MC - Macro RF - Ref 0000| 5 (PULL1 HOLD 000000| 010367 ****** '#(MOV R3,HOLD 000004| 010267 ****** '#(MOV R2,HOLD+2 000010| 012603  DF - Def PR - Proc FC - Func PB - Public PV - Private CS - Consts CODE LB 000076| DOIT .#(MOV (SP)+,R3 000012| 010367 ****** '#(MOV R3,HOLD+4 000016| 012600 .#(MOV (SP)+,R0 000020| 012600 .#(MOV  LB 000044| EXIT LB 000056| HOLD LB 000114| INCODE FC ------| LOOP LB 000036 PULL1 MC ------| PUSH1 MC  (SP)+,R0 ------| SKIP LB 000050| PAGE - 3 INCODE FILE:CODEWRK Current minimum space is 8001 words PAGE - 4 DECODE 000022| 012600 .#(MOV (SP)+,R0 000024| 005001 . (CLR R1 000026| 072027 000011 ' (ASH #11,R0 000032| 012702 *** FILE:CODEWRK 000000| 5 (.FUNC DECODE,1 Current memory available: 8347 000000| 5 (PULL1 HOLD 000000| 010367 ***** ' (MOV #CODE,R2 000036| 006300 .  LOOP ASL R0 000040| 001*** . (BEQ EXIT 000042| 103*** . (BCC SK**** '#(MOV R3,HOLD 000004| 010267 ****** '#(MOV R2,HOLD+2 000010| 012603 .#(MOV (SP)+,R3 000012| 010367 *****IP 000044| 011203 .  DOIT MOV (R2),R3 000046| 074301 . (XOR R3,R1 000042* 002 000050| 062702 000002 '  SKIP * '#(MOV R3,HOLD+4 ADD #2,R2 000054| 000770 . (BR LOOP 000040* 006 000056| 103772 .  EXIT BCS DOIT 000060| 5 (PUSH1 HOLD 00000016| 012600 .#(MOV (SP)+,R0 000020| 012600 .#(MOV (SP)+,R0 000022| 012600 .#(MOV (SP)+,R0 000024| 010001 .0060| 016703 ****** '#(MOV HOLD,R3 000064| 016702 ****** '#(MOV HOLD+2,R2 000070| 010146 .#(MOV R1,-(SP) 00007 (MOV R0,R1 000026| 5 (PUSH1 HOLD 000026| 016703 ****** '#(MOV HOLD,R3 000032| 016702 ****** '#(MOV HOLD+2,2| 016707 ****** '#(MOV HOLD+4,PC 000076| 5  ; 000034* 000076 000076| 042700 021340 010560  CODE .WORD 42700,2134R2 000036| 010146 .#(MOV R1,-(SP) 000040| 016707 ****** '#(MOV HOLD+4,PC 000044| 072027 177767 ' (ASH #-11,R0 0,10560 000104| 004270 002134 001056 (.WORD 04270,02134,01056 000112| 000427 . (.WORD 00427 000074* 000022 000066* 00002000050| 042700 000177 ' (BIC #177,R0 000054| 072027 177774 ' (ASH #-4,R0 000060| 074001 . (XOR R0,R1 000062| 05 (MOV (SP)+,R0 000000| 5 (.ENDM 000000| 5  ; 000000| 5 (.MACRO PUSH1 000000| 5 (MOV %1,R3 000000| 5 (MOV 6  %1+2,R2 000000| 5 (MOV R1,-(SP) 000000| 5 (MOV %1+4,PC 000000| 5 (.ENDM 000000| 5  ; 2 blocks for procedure c000062* 000030 000014* 000102 000006* 000106 000002* 000110 000114| 000 000 000 000 000  HOLD .BLOCK 6,0 000122| 5 !; K *CREATEMOVE(FIRST,MOV1,MOV1,MOV3); (IF CANPLAY(MOV2,MOV3) THEN *CREATEMOVE(FIRST,MOV2,MOV2,MOV3) &END; (*ALLTWAY*) & ( 72027 177776 ' (ASH #-2,R0 000066| 074001 . (XOR R0,R1 000070| 5 (PUSH1 HOLD 000070| 016703 ****** '#(MOV #PROCEDURE COMBO(FIRST,SECON:CHAR;DIE1,DIE2:DICE); %VAR MOV1,MOV2:CHAR; %BEGIN (*COMBO*) 'MOV1:=CHR(ORD(FIRST)-DIE1); 'MOHOLD,R3 000074| 016702 ****** '#(MOV HOLD+2,R2 000100| 010146 .#(MOV R1,-(SP) 000102| 016707 ****** '#(MOV HOLV2:=CHR(ORD(SECON)-DIE2); ' 'IF CANPLAY(MOV1,MOV2) THEN )CREATEMOVE(FIRST,MOV1,SECON,MOV2) %END; (*COMBO*) % %   %PRD+4,PC 000104* 000004 000076* 000010 000072* 000012 000042* 000046 000034* 000052 000030* 000054 000014* 000074 000006* 000100 0OCEDURE MOVEGEN(FIRST,SECOND:CHAR;DIE1,DIE2:DICE;WHATODO:CLASS); % (VAR I,J:INTEGER; ( (BEGIN (*MOVEGEN*) )FILLARRAY(FIR00002* 000102 ST,SECOND); )J:=2; )FIRST:=BLPT[1]; )REPEAT /IF PTB.NUM[FIRST]>=2 AND WHATODO=COMPLETE 1THEN COMBO(FIRST,FIRST,DIE1,DIE2);000106| 000 000 000 000 000  HOLD .BLOCK 6,0 000114| 5 (.END PAGE - 5 DECODE FILE:CODEWRK SYMBOLTABLE DUMP AB 3IF HITB<=1 THEN ALLTWAY(FIRST,DIE1,DIE2); $ +WHILE (BLPT[J]<>' ') DO -BEGIN /COMBO(FIRST,BLPT[J],DIE1,DIE2); /IF DIE1<>D - Absolute LB - Label UD - Undefined MC - Macro RF - Ref DF - Def PR - Proc FC - Func PB - IE2 THEN COMBO(BLPT[J],FIRST,DIE1,DIE2); /J:=J+1 -END; - +J:=I+1; +FIRST:=BLPT[I] )UNTIL (FIRST=' ') OR (WHATODO=TWOPTS) Public PV - Private CS - Consts DECODE FC ------| HOLD LB 000106| PULL1 MC ------| PUSH1 MC ------| (END; (*MOVEGEN*) ( %PROCEDURE QED(PNT:CHAR;DIE1,DIE2:DICE); 'BEGIN (*QED*) )IF EXMOV1[1]=' ' +THEN PAGE - 6 DECODE FILE:CODEWRK Current minimum space is 8001 words Assembly complete: 76 lines 0 Errors -WRITELN(' NEED TO WRITE SINGLE') +ELSE -BUPDATE(EXMOV1[1],EXMOV1[2],EXMOV1[3],EXMOV1[4],DIE1,DIE2) 'END; (*QED*) ' %PROCflagged on this Assembly EDURE FINISH(BLT:CHAR;DIE1,DIE2:DICE;DOWHAT:CLASS); 'BEGIN (*FINISH*) )IF EXMOV1[1]=' ' +THEN -WRITELN('NEED TO WRITE THE PROC. SINGLE') +ELSE -BEGIN /BUPDATE(EXMOV1[1],EXMOV1[2],EXMOV1[3],EXMOV1[4], GDIE1,DIE2); /IF DIE1=DIE2 THEN 1IF BHOME 3THEN 5BEAROFF(DIE1,DIE2) 3ELSE 5BEGIN 7EXMOV1[1]:=' '; 7MOVEGEN('Y','B',DIE1,DIE2,DOWHAT); 7QED('Y',DIE1,DIE2) 5END -END (END; (*FINISH*) ( BEGIN INIT; PRNTBRD END. ( ' : > 6 - - L (ABS(ORD(MOV2[5])- SORD(MOV2[4]))=DIE1))) S &ELSE IF MOV1[1]<>"*" THEN (CHKDIE:=((ABS(ORD(MOV1[2])-ORD(MOV1[1]))=DIE1) $HUMOV1,HUMOV2:MOVE; $  BEGIN STARTG:=TRUE; &ENDG:=FALSE; &DIE1:=I;DIE2:=J; &WHILE NOT ENDG DO BEGIN *IF NOT COND THEN BE6AND(ABS(ORD(MOV1[5])-ORD(MOV1[4]))=DIE2)) .OR((ABS(ORD(MOV1[2])-ORD(MOV1[1]))=DIE2) 6AND(ABS(ORD(MOV1[5])-ORD(MOV1[4]))=DIE1GIN /PRINTBOARD; /IF NOT STARTG THEN ROLLDICECOND,DIE1,DIE2) =ELSE STARTG:=FALSE; /WRITE("YOUR PLAY:"); /FOR I:=1 TO 5 DO R)) %ELSE CHKDIE:=FALSE;  END;   FUNCTION CHKBAR(I:0..1; MOV1,MOV2:MOVE; DOUBLE:BOOLEAN;NUMP:ARRAY["A".."Z"] OF F0..15):BOOEAD(HUMOV1[I]; /DOUBLE:=DIE1=DIE2; /IF DOUBLE THEN BEGIN >READ(HUMOV2[1]); >FOR I:=1 TO 5 DO READ(HUMOV2[I]); >END; /IF CHLEAN; >  VAR I:INTEGER;   BEGIN J:=0; &IF (I=1 AND MOV1[1]="A")OR(I=0 AND MOV1[1]="Z") THEN J:=J+1; &IF (I=1 AND MOV1[4]=KMOVE(1,DIE1,DIE2,HUMOV1,HUMOV2,DOUBLE) THEN 7BEGIN 7PLAYMOVE(1,WHPIECES,HUMOV1,HUMOV2,DOUBLE,ENDG); 7COND:=NOT COND; 7END "A")OR(I=0 AND MOV1[4]="Z") THNE J:=J+1; &IF DOUBLE THEN BEGIN IF(I=1 AND MOV2[1]="A")OR(I=O AND MOV2[1]="Z" ;THEN J:=J+1; ;IF(I=1 AND MOV2[4]="A")OR(I=0 AND MOV2[4]="Z" ;THEN J:=J+1; 5END; &IF I=0 THEN CHKBAR:=J=NUMP["A"] -ELSE CHKBAR:=J=NUMP["A"];&IF NUM["A"]=0 THEN WRITELN ELSE WRITELN(" A:W",NUM["A"]:2); &IF NUM["Z"]=0 THEN WRITELN ELSE WRITELN(" Z:B"  END;  FUNCTION CHKMVOFF(I:0..1;PIECES:PTGEN;MOV1,MOV2:MOVE;DOUBLE:BOOLEAN):BOOLEAN   VAR MOFF,COND:BOOLEAN; %PT:PTGEN; ,NUM["Z"]:2); &FOR CH:="N" TO "S" DO IF NUM[CH]<>0 THEN WRITE(NUM[CH]:2); 0 THEN WRITE(NUM[CH]:2);