UPASCAL<@X!@X@` :GFORMAT ERRORTINY PASCAL V-1.0COMPILEREDITORSOURCEP-CODE NOT IN MEMORY .AMA@..gBBBBBBBBBCCqB ͣAͣAͣA> ><@[?{CP2gFgojC (+(- 2gFjC08 0_W)DM))  C!C :gF^DÛD!C̈́D INPUT ERROR SIZE ERROR WDկ=D>-{C^D E>0| {C$D*eF#V#^"eF#V#^ |B BN+F+^+V^+V+ɯogր OGր:A!B̈́D~#{C j<@\Dx OtDr#s BMDÑDMDxրŽDyÒD믖wO+w#)0MDx!DyDÛDMDEÛD!D̈́D!T] DIVIDE CHECK x(⯀jD^D!># 0 33= 6E= ^Dzȯ_WMDEÛD>MDB ɯYEMD|( dE}8x <@]nEnEnEMD|}MD|}//MDEEG)ÛDMD(EDG<ÛDbk+4bk+5bk+FF"FO"FjC08 8!C̈́DbkEF#oNFo 80{C~# B{CͦAbkN++xw+6bk~++NyͳFO_<@^86Gx8wͳF>(<WD0E{F0O0xo&))G8HG>( NbkN+F+xjDq+pWD!KzDyDs+rWDMDB0`iPY +1@!@EH1@!@EHOHC(>E(pLGWHR•H[Az!@?H͝H(C•H2A2A*A"A*A<@_A[Az!@9H:A6H͝H*A#(S( P•H!2A*A"A͏H[Az!@(d2A*AA͂HP(S•HͼH"ASACGͼH"ASACG͂HP(S•HKAx([AKAx !@[A7ICG!@EH!@EHFG~ͣA#~ !@͠AͣA  (4+ ( w# y 0%> G6 #6 !@*@~# ("@<@`H >?ͣACG͂H / ͂H- ͂H (O͏Hy!@EH2A2A2@͖5U E#5 <#,5x(>< +5G:@ "@<2@|O5w#O5(>C2>Ud#~d#>xd (Q<@a* SAMPLE TINY PASCAL PROGRAM BY H. YUEN *) VAR X0,Y0,X,Y,K,F:INTEGER; BEGIN X0:=13000; Y0:=18000; F:=11; REPEAT X:=X0; Y:=Y0; WRITE(15,28,31); FOR K:=1 TO 1000 DO BEGIN X:=X+Y DIV 4; Y:=Y-X DIV 5; PLOT(X SHR 8,Y SHR 8,1) END; X0:=X0+X0 DIV F<@b; Y0:=Y0+Y0 DIV F; F:=F+F DIV 6 UNTIL F>70; WRITE(28,31,'THE SHOW IS OVER') END.  2 \ \.  fILLEGAL .fFILE HAS ! `f LINES   4T`f BYTES ( df- df) f PTR AT LINE  ` .        .!  <@c*    4    .B0  \Z *>@" >\\V T *" DD  f LINE TOO LONG...RETYPE  > >b .  H$ *>'   VXD" |<@d04 *B FJ D 62 T ,  F .'>{  2V *! F!  XDK *\ T   >'T ,  *    4  .fENTER TEXT  ? , @ 2   ! T ! <@e*  VXD 2T" $T , >z 2  *$ .4 *B. ! XD*2  T ,Z! XHY2  V 7,! 2 ! . 2  2 4Tv 24  . s<@f4T  @ e#,,       VXD 22" $T ,. 2 *H{ ! D"  BX ,TX HT  V 4   V  4, ,VX D   2   T  `,!,.? , @ Xi<@gD  2 DJfMEMORY FULL   ! >  T  * T",,  2    #,? ,. 2 *! FE'>'{  V !   *$! @ .  VXDr 2 T S, ",,e#,, V  *>{ .  <@h   4  .A" A"  ! A >df T * >T *4 *F $!T !* >T >J *${FffINVALID FILE  !d#!>fEMPTY FILE... d!@q#>,# <@i >yXP>,uXU>,uXN>,uXX>< VVXD 2 T"\T ,0T, @u,uXI>JuXD>\,uXQ>lXS>r#u, FXR>,*c:<@jXP>,XU>0,XN>,XD>,,,Q>iA&.AND ARRAY BEGIN CASE CONST DIV DO DOWNTOELSE END FOR FUNC IF INTEGEMOD NOT OF OR PROC READ REPEATSHL SHR THEN <@kTO UNTIL VAR WHILE WRITE CALL(MEM  MEMW"INKEhINP jOUTPlPLOTnPOINpABS rSQR tMOVEv gA"V  A"  *  A"VVV  A @  A" 4     2  @ T  *6"h  6TTT" <@lh  2   ! 2 K! 2 !2 E.@T @* @*\@ B @.AB04 .A4 2 .@ @P2%@!@"@P2%@.  >3# /"* BZ  T  /">@ [<@mXD  T q,  2R *6 2  T * 2 @DJ 2 BV T FDJD 2  .  . /">d    6 204   /"@A. X:><@n =>  :  X<> X=>  X>>    ,X>> =>    X=>  X'>P     '@D  (  T  $(  X(> *>  <@o*@|l )> l !(  X%>     /"> AD FHLJ P* ,2  T >%    ,.\f2I$,.I$,.@2  A4 *FD,@TT @$@T$@TTPLRJ$@TTT @.@N4$>>L6I$,.@$@T&@TTT @.@T @*6 *%@h@T&@7<@qh@@@X>@@A X>@ A@ A T   X>@@@ TA X>X>@ A@@@4A X> @ TA,.%@h@&@h@@6TT VV *h@%@>Th@&@>L.R >fhD,.@<@r@{D, A.>O%,@;> A>@VKA@A.@KA.@(@ D,  AT @>O%,D, A@,@@4>4KA0 XDJ@2TAT *,>d@40VA)g&,,F<@s;g&,,.@@ @X+> AX->  A,@X>*& *@>A @2D,X>2D,,@0 @ A.@T@4&.X>F *  X>M,,B X>cd,,B X>sX>h<@t *I,>V K>d,,B  (@ , T ,@K@~,)g,,d,,0,,B X>; ( g,,) g,,d,,B :,, X>V X>e ,,  X(>  <@u)g,, X>  (NI, :,,.*>>J>J>J>J>JV   X*> 6I,R X> 8I,R X> LI,R X>1 <I,R X>C PI,R X>R RI,, .+>->J  <@v  -> 0Id,  +>->J>J    X+> 2Id, X-> 4Id, X> JId,, .W `D`HL# `  aW 4>2ID,.{gXId,e,,>Id,,>n  e,, $+TTTh,,.5<@w$ :gF,,` E,,.L`X;> ` E,,`H,, ao+`H,,, X> ` E,,`H,, a.L gF,,`H,,, X>% `H,, a, d,,. @X>F *&  A@X>\ X>x 3g&,, <@xd$,,B X> ( g&,, ) g&,,3g&,, d$,,B X>; KA> d$,,B  @(@ D, A T @,@ KA@ ~D,)g&,,d$,,0%,,B ;D,,5X>l  A.,@;@N g&,,5Xx<@y>  A 4g&,,@ %,,.,@> @ %,,@(,, A.,@(,,5@(,,5X>  A @@ D, Ao ,I$,5X>Z@@4  A @ %,,6g&,,.,%,,@(,,5X>@@4  A<@z.,@;@l5g&,, %,,5X> A@@D,*& *@@D, A3g&,, d$,,@X>T X>V 7D,, A @@4 XI$,d$,,T>LDI$,SHI$,@ %,,6g&,,.,<@{d$,,I$, d$,,%,,@(,,,I$,5X>] A@(@ D, A@> fI$, @VXD(@I$,T ,I$, AE @X#>(`I$, ADX%>=dI$, AD\I$,,@,@)g&,,5X>5 A@(@g<@|y D, A@@D,*&  A@X> X> ( g&,, ) g&,,D,,@X#>^I$, AX%> bI$, AZI$,,d$,,@,@y)g&,,,.   ,, > ! @m$, !<@}g,,{O,;g,, @m > !   >O,$, ! ,> ! :g,, >v !( g,,{) g,,g,, 42 T  XDu  K!! 2T T y<@~=,g,,;g,, @ > >J >   ! >O,$,  !,T71,,  ;g,, >_ ,,  4!,, !.  ;@<g,,.I,.$,. <@XD/T t,A ZXD/T ,0 9XD/T ,  7,,.@,$A&+4T`f CODES. df-d.Nx@X