&@}3COMPIS SCANDIS/H1ISPY EJKR4NBR8N7R1NFG0tH@1>[u.%%[[u$.t>\u<u.2XZP.sa>\u!]]uLxtL<uL[XZP.(XZP..22U]3H.\$3[QLNP
y$4CSQRWV2P(^_ZY[SQRWVL&U^.Ct^]
W   _2<Ar<Pw:u,@CC2Ft^u<?t<*t<.t=?.uCF$ut<?t<*ttCFuC? Fu%< rQY: .,;:=?*[]<>{}<ar<zw, PXPX$'@'SQRWV.t*BW.>UtK>
P3^_ZY[.V.Wuy2K2.J0hud.tC.Ntxu@-s3[X.GD.GF.S3&2&Ht&r2&Ht\JU3V3TBZ.Hu2946DJ>PFyP[`^SQ2XXb6`^y-C2'd2+sut0C3?$uCPX0r%rursRZr2st-uCQYr-u=u-u[&2A+^.2A+Z62C6?:v6Ag[2+L6
G[262+t'y6A6AG!t6
2G62F;vu:ZYQ@6@[62F6r$62+AV^NOAGM)@6@[Y5u0H62+v;v36)[62D@62G62F3+r@BQWV^_Yt@GJu3&@|p[tv&xzS>tWPpHB>x>t6p%|Yr[ptvS>tWPpHpru>tP[XuS(6\26@6@[6:t22AG[Z Qt2uY **t2u[ 36[XS*r2A6sCFF6| 6D"22$[22 ;tNOG3t5@3}Huu3@_ Q# A# 6G"t36"t@"2$;u;u@;u;uHt3>u:v*(r>&>06r3r
2tuus^uT*s6u2,ruuu33326totq233G-u2s&Nuuu
t26u333t*;u;u:&r*&Nu-tOs*&r;u;u:&uuYrv[333s[3.6>WVQY^_WVQY^_WVQY^_WVQY^_R3ZyRZtt:ut;u;u:u33yuxyx3<sI233v9rr
tu##"2RSPX[Z[&u&u&5[.w.w.7[XYZ_&&M&U@Y^_X[ZrRSP&@"@Y^_X[Z{@Y^_X[Zg@Y^_X[Zt"6t6w6g@Y^_X[Z6@tH@Y^_X[Z6@uH@Y^_X[Zd6@sH@Y^_X[ZJ6@vH@Y^_X[Z06@wH@Y^_X[Z6@rH@X[Z @X[ZL@X[Z=|=%!@33 uu2XSQR2[XZZS*r"wst@xt3?!YRSP@Y^_XxRSPWVQ&@@X[ZtAuC,RSP:Y^_sWVQ&@ @Y^_!Ii@X[Z<lr[!IRZrWVQXY^_ttrsr <lrurtjX9?`C00g?(2n*8t

z@X[Ztt *P3533RSP3Y^_+8r1wYRSPr1VY^_]<gs333}}.:}8cI$IL*@X[Zr1<sURSPY^_PtYsQ35Yrt33)Xm.`1pF,t6|!wS<.z}[|%FXcur1@X[Zt3tAQ33rYAAQJos{QW.
.u.}_YrW.
.u.}FRSP33X[ZH_.
.u.}YtQ!IYtT0joD,:j!I}.}8cI$ILRSPQW2_YY^_'..].UQWQW.
.u.}6>_Y33Sr!Et*s2<rRZuy<r[t-jtyYKyt.It@ux,uE++y-/s:tF0C]Uu00FFuPR,MZXuQvY<sQ*tu0,RSPYYYFuY2?5rx
K?:r1G-uCQYr-u=tu3333arzw r&6r2WVQRSP2Y^_Y^_@t.u@u@FEu;ErF+t-u FErPF<r
FX t]U|&QVW_^Y0r:r0RSPy2X..].UtVuX[Zu@ >hx-Sx9?+{@uQRSPYYYYsuFP F(F(FP&t&t
&s3G@0.-pQ3:.?..t4.(..P.3p $@0@1$ $$X>hy-++sZ.4=r-=Zv-.$y@tHtW[[X[XS,[XSP
6>3+>}+6};}.eLPXO=+2++'l4
_HXWHBrLBl_HXWH&u)"#u"2"urx6&2IgLaNHEhQ>tQ&w6t`PD0&X56LX:11
PL>XPIL>X_[W.&r$3R2)&).L5"Hl'$# !&%"_YWty=hPhX
=}PXZyP%-shqVXPdXy;rh06666-.....9>w>)>)>sL;v;tt++S&HXb&!l$!&# %"'$!&# %"'_W)Lb>tu
"#u"=3_+XWs(+s>uI%>mLA"$H$@_6 w&6QV^Y&_&P6DI&6LAr&w&w%[+ `. . SY[u/"#u"2"u,'Vx&&2@2^&&Lxehq$^X_VtH}S>[#L&NsNuu_Y^W&&&t+wJ!Loxhu&uuL;>QDYt /&*+|}*0u&&*u};FFtasH+&Lo>t 4su
"#u"HIC-x70u0tx00220PJ2X>t6$0t20>t>$u& u"t& u&xf
P3#(t,0:59=BBFJOXSW[_d h1l9p9t/x|m'yL':?5s<o\xGephL`j[_S;u>v+>jtE0&E r&&QQ%QS.:t[YFCYY<:u.CONTRMKBDLSTCAUXUSRjj@6@&$u7&Mv>Qu(+>Qu&E&E>jt&E@&E&
&% >jtQYu.QW3_@6@&$u(&@t4&tuQ&@b>d&@@>bd&uQ&@@>bd&@uQ&@2@b>d&>WPXtD_&@2.PvPL2<t9<t5<tC<t+<t'<t5<tC<
tE< r:t'C s'x Ku< rCutu
CCN>b>Quo& uc$u&]&;]rZ&C&]?W<uL;Nr"LCL<uL&<uL.L2_&E&
 &E&M&UQRZYuw&B&U&]&]WSG[<t &%< vCtS-[< v&%?_r?tQW&%_[&[Strs&&[StW_r[S32WSQY[<
t<t&%_C&_&[S2WQY<
t<t&%__ c<t&%<t<
uP<u&%>b>Qu>&
u&]&C&]&;]s%Pttt0(*,&M&U+t$QRFZYuwQ&E&Et<vI QrY[XSi[XSQX+vS QJY[SQ:Y[C[YEESQ[YS))4TRUEFALSEaCC6*v2S QY[62C
6SQY[CZ[.2C
.SQY[C



@6@&tRZ:t<t< wt&%3@3j=jjf@6@m>QuI>Qu?&
&E&E&E-u>ju2>Quf&9EtQ&Ef&E@6@&t#Z&E&E-u=@>bd&uQ&@[ZS>Qu!>b&E&;Es2&MB&EQ[ZS>Qu*>b&E&;Er&Et&M&EQ>Qt&t&&%t&}uus
QRV!^ZYuRt&
 &]+;s&M3&E+Wy03-_&}uQRV=^ZYu&E-QQ
u@6@tQ
"&
& t&%U0QR3ZYURW_@_6@&;Ew2&E&U&M&;E-tPX&E-Q[&E&;Eu@[&E[&E2j@6@>>Qu-m>Qu#&#O&E-&E-&E&E&E@6@&uk!k"@[Y^Z_SP_&&@&tCQV3ZY3;t!SQRkZY[u&E-C&E-&E&;Ev&EQ@_6@&;Ev&E&E-@6@u}uQ@_6@uW_Kth3@6@HuPSuRZt=&U-33R!Zu&E-&XJU3YQ&$tQ[.t53tSB[;t+NOJu^.;u
PRVFFZ3tA3^XY.!
VQR!ZYu!^V=wZL$[YSt[+L3
2G3< t<uGI< t<tGI+tCJu}>[YXSQ2#}>[ZXEESP/Y>W}2-+v
G& :tCG&:t_&52>[=S>u6r!>&Br>38t->&X62BvF(^`[_s[+s[Y_[_^;sNO[ST&V&Ur%TV[_[T&V&U[&T&EV+VH[XUPWSPPP^XWUXXXX[];su;|;g+r=r;VrH[XS\LtL&\<t@@#3Q>QuQ[XS@RZ@-BuRR6BJZs^C
USER INTERRUPT,w
I/O
EXECUTION ERROR  AT PC=B
Program terminated

 *!"%1$2#3&4)0PASCAL  HLPPASCAL  ERMWORK    PASPASBAKCMDCHNSDEX
RCHY
FA !B"K#Y$C%V&P'R(W)H*D+Xu@3-s3K-@=rH.@2.A++++>3.LB>u>*u&qsb.4s.4t.4u;
COMPIS Pascal V3.12 (   Nyckelfri  Version)
Copyright (C) 1985 PolyData MicroCenter A/S
r.>4r*wOInclude error messagesu4ETCCEnter 'HELP' or 'H' for help
&6S>>?tI?t? uC? t.%?uWhat?
 (Y/N)? P<YtNxXr7s7.Dw2.
2G.%X.:uFG;uGGHELP8LOAD8SAVE9NAME;DIRT>USE?EDIT5;COMPILE<PROGRAM;OBJECT;FIND;WHERE,;RUN>MEMORY?ZAP$@QUIT@$$ttu? t8s5uHelp file not found
zNo such help text
w4tBtF34<%t<u!$:wuSX[<%t<tuNuC*r@Loading !>+<rPXuNo such file
File too big
QR3XZYtFRv2QRZYu_+uO+XPrXPv hX ^vP&JXu
t2 =Saving 2+9rruDirectory is full
Disk is full
QR.>4tE.4.4i]3zZYt87SQRe]ZYu
s[P=X>rt'! not saved. Saveu<NtCurrent file is L?t336S.8i=[6>t>rtufr_rF4'24!3Compiling to BBBBSearching
Compiling
Nw
o>uT} lines
>t>t>tFPTarget address not found
:>u(Interrupted
>u
Disk I/O error
>tError 2WFound in>t file  line 2bF<t7<
uF<t'<
t#<t< rZb%G:u< rGDuZPress <RETURN> to edit or <ESC> to abort"<
t<u;(&6S-L3?,u6C?,t0?t+3PX0rr
rsCS>uRunning
^3<tFC&&63P&BB???33RZtl2u[u%uSRoZ[@.@,s: C$u ut uuNo file,A<wCS[P?t20rrwmC?u P
Z ZpCurrent drive is A6Q, user  <rP1X,0Eja>uC+)Code: &Data: =uFree: P3F bytes (X paragraphs)
?tK4?uAre you sureu;mErasing t#crPL6rk?sZ?t?,uVC^..D?t/464@@3$uS[@:C$< txu.n3Q2Y< uuMGuxQ;rd00OOII0O3YIW<0u G_&'S.K>K
.@2H[;r+.4"&'BP!.Vtq>B.'BBC9DDE_EEdEEQED@EEEGGH3HGHHXFFfGFF
FFQLHHIJJJKJMKKKLMM>+ .&XS[*rPress <RETURN>L&<
u;tK6>NO;rP< rJ<
t<u/<
uSVWF_^[u<uSVWFX_^[FG6>+;w;v;w;v;tC6>;sR< rB<t<
u7<u3.:ArV66^<u6>+;r;w);r;w)K<
t<u< t<uKot<
t<tvK< t<tPu<
t<u9u< t<t<
t<tu< t<uD()*+,-./;:<=>[\]{|}.Au3226;6tINN<
tF3RZK.A.A*u'26W;6s6RZ9s<
t<tRZ6>+NO36>6+#Ef6s6t6u>su<
t<t_u>uta Au
>suP%X<
t<u/>tt6NNF< t<uV^2>su<
t<t?
t?ru<
utn<
uDut[.A:u>u6
6>t/o<u
u<t*DK;vr&>tt%-;6tF< t<tN;tN
6>t.:6At,rK ;t<P=
u2/X<
t<u%>t6>t.:6Atr6>G<
t<t<
t<t<
t<uhvu< t<t<
t<tSu< t<uvt#  ;>;uY t[
hCt)<Gu <Nu <Uu <Wu  t;2Cs t t
 u!L$u2#.:Au`j.3SQRL$ZY[uL&<YuN t<Nukh;tj26++rZ>ED QV<uu1<ar<zw, u!^YtDss^YrF<0r<:s|<Ar<[;tPX[tFPV%^XW_ oAi;6sG+>t;6tPNN<
tFX6+NOG>r+t4+r1;v+;u;u6;u6r3;t&<t"<
t<  AuFQVWP*_^YR+r%6>6>NOG>r9VWYZ+^rP?t?u>t>>uv;v6>;6u6;t;>u>;u<uqr<uq<t<uL>u:u<u:r[
sNtyQYuQYu<t|? u?
tI +L.8v.&'!3SQY[u<t-<t<t <u;t<
t<tCtK!3CR!:=uw6N<
t<uF3;tG<uBF<t<
u<uF3tu;v;u6+<t<
uBIt<tB.A6P!XuX;tPX.42;s));r;s;v+6.&@2;r;.2>!s2.>u'|.?uuP.6AR.Z.A*.@26++++ .&2.>us.?t{KR.Z.A*.@2>OO++FFt =wPXHu=rP)X@u.6;6v;6w.263>>;6u.26;6u6;6u.26< r;r;sA<t<
t%<t!@.2& ;r;sAu;s;w+A .&+.&;6s
u<uF6 .&>!s.&0B>!sVP2^.>!sQ!2F.&< s@.2&GG!Qt.2AERROR: . Press <RETURN>Help file not foundNo such help textNo room to insertNo block is markedNo such fileFile too bigInvalid filenameDisk is fullRead which file? Write to which file? Find? Replace with? Options (G,N,U,W)? Replace (Y/N)?  .&RRJ.U2@>>FR++R+>>v>stRw>ttRj>utR]>tRPCOMPIS Pascal   Line  Col Used  Free INS AUT TAB ADJ>>W.@2_.2F.GG3QWc_YF< tGG.@26>tBNNOOVWAA_^QVW_^Y.@*.>t.&wQVP^YFr..;r;w.2. s@.2..>t6>.&!P(.>uO.&:&"tD2"&"":t.?tPTXtPSQu9Y[X##ug>!tS2Z#.:AsV6<u6e66##:u
2:u
#.:Ar>!uY2kL&&P5X>u\)t<r<w@+C)32+.t$F.Ft.:uFGtu2u4&2$#)>u$L$u#PXt#.:Ar$o7st/>u< r<u )3< r
<Ar<Zw,@&>r>t>uY5A>u>r;>u>r
>u28C+>>Z>X>OG>>>../;CC\>`3o3>t
>u3@;7E333N6N67>uo33/3&5W&%3o/_&++3@
&&
&&Hu
&&&+.3@;s;s;so/03*2Xu}2uu2t22mG-3>u
t
P6>-9-4-,5
>`=.5[X>t
(.,.6?06,6S15<uj<u<u<u<u<tvEY+[C-.p,},@@u,+-3d,)//&//%/q1t163//m1uDI*.u8.6.4.ub.Cu..+G16....]F]1]F 110tn<r<sk4R<uT-..+@P..Y>uu0u0QYI0Qd)Z:4N*0-<uN-063QP/30H.X;3OPr0c50XYtP0XY+t2+r-<u\D-6...0bW/tP|/uX/t0 bY*C-<u$(*s2*t2*u<u0](t33N4684H*6B*8<*
>t/*7*(:2P;|;2Q66,K-6,,/]F]FB/S.uPX*/;.uOJ2R000S6/w))J)C+)P666666V$N$>u+V>t*JO2NR1Z11ca-1bo66PCXNYZU+t2(]F+;VrV*)9-t>tN0N$VVX+V)0(+(2Q,Xu,*\+66.03!-uqSQ6./,uQ+Y,tQu-,t-.EY]FNt2Y[,t-T*>u9,SQwY[>s>0]UF^&F,]X>t-F^FF2N>uK+duFN&V,+lu./>/a,5,F^C+F-'66UF>t^6+GFNt]Q6oS.)[6O.2Q6.MMFKM6VKM6Fu.)]YS0![Y%U>u%'%2%v&ut%n%U2PPXX+]UvF\.FX->uR]UP(}X>u-:>u!+a%Hz%$]^%,P"X>u$$]u$$?%*]NU)t(uvV*#X*X6"2b.4.4b,|-D3,b,,g-dcQ3,b,,A-dY3b$ItCux,X]F)>r.;.t&ntu62+6,]vQUo)]Y>t>u3>u!>u
,F)w,Fg,F^2+FFF+63Q_&&.b&YA(t]6'(ue>,B'uFVAc!uD!S(:!6#X2#!'t
't
!Pm(!X&ut'u'+>u>r>w+.;.tYnuFutF^6W2BU.;.t(nuNNNO66:u]6DF+9t6&uDt,t'jt"ttt7t\tt*%un.3%3&|uMB'3QY6+@*FPA'tQ('x'}Y[a*FX$V&uRPP66%XXB$ntk%3t";rX&t;t&At>6
>&tl&&PX&t>tw&%`)>t&%`{%u1m&xp)+@#%u'X#6#\#[#%u0%u*>r>w)##.$u'%u#(Qd%0".>$u"1%(('%C"$uIS"#l"X@Ps""$[t(%3t@g"u%QS(
$(QZX:(;}(tt)'>s'Z6.;.tD^t6G6o'XP^CN*u'PuX[C
o#`t'$t#t/vu!p"ue"t]"u"t.'#:F'\'FF
36"&h"u[6CR[C6i
6"&+[XC6}"t5#/
X!i& }>u>s]&P&#
9XP:7&!P-&X:&"&Y+.Q6.G>j6Qw6aY.G6.w>w[X+HHt[KKh"3Q3Qc!tu/|YQYR6!u.r2[Z+HHR6f!L2[Z+HH^Y6AQPXV!t2R `Zt;Y[6QKK"R ZttE>$$<< `tV!Y[KK:$={$F:p$\{ub&P>C$ sD$">;$!>}u&*&2i t#{X&*t
!>I t<= t33SQu#2=>u* u%utd#^FY[3+tI-t>wtuwuZUNuQUNnQuo>rM;>s>uR`>u&F>u?{4F""E1+gk>t;Yt6h]FMN2+uYt?"]FtRFaFi tFFS2U>t>r>w"#>s>u>u>}t
>rOi6X+PXuPMX>s>ut>}t]_>uQi{!"V.11>uu7{->uu!P>u
uT:uut.:nt!$u
t;u<tS<s5<u@t'<s!<s<s>u.us:uFG $> "_*u$Px0XP8X#.I K,t.PH!0 Vv,@.y.PoXk.ooSW>u.S
>u-0[.o,2.*p%9-*i%5-+%-ptJt>r>wc32truuSL=&|T"i:"trt
r+)G.u.uu>(2u&)(k(t9(t
L(>wI()uv(>tt2+&t
y&>tu&2t+&r%uuPLY&y+&p2+&e8u$u>`=,t=)u1*G|r
rHrVuQ5Yu)GuQ#Y3uu)t)t)t)tu)uX\I*m++>tIPQ+.u2aXPX--P4W7.l>u>tZH/@3*aoT&PXG>UkuuQYt,uQsY3tvathSQ&Y&0t?0tt(Y>uQ>u>tZY0t0-/P Xg1>uI.1Ar}>u)Z1%11PMXX>uX8Co':ff1} +WB]13glS1MX[2PMAZX>P?
)Xb))J{
)H7(!XSNIDmPFq5h,_#XPPTP3!!P
r
3*W
mRaUut%zttTis't'q(u:o"MTF&tut1r^vuPuPvP4wP3uPuPvP4wPQYttZSQ*66Z0[r.G1.2tCCtCCtCC.fv*QLZ{*t:q)8URdlQYt*SQe6zu u::ZN[.?s4tu.?tu.?*,t*hQQoYt*SQ6bZ[S.?uu{[.?w#ttunt?*.?ut*u(%ct*9
4-
6pztu
!
ruf
RPuu7{
*u%u u:p
#
N
uuq
u
u]
ruY;t
u[Y:)u:t.t*t$)u>t>t
;t)u:uQRZYurtaTHQu.Gu.G:S:8u'.Gu.Gt.W87'/.Gt.Gt.W\.GtY(t%t tEtttt-u<r>wb<t<t<t<u..u>n9<+j.+.t+k+x3
uFuk4{6u8ou
:LQY:237u(^6GWu3=wLGtPXtuM%t?QYu:,Qz7uxYQ:q,>Yt3u^%3{unF<%SP=X3u333Eu.u3u't0t{!
OPPt{XFBP3Xu@HPX22%/TPXt8/qS=uK,/Ee/$ us.2Xr]*S*X*P>qIX%-%-----PS[XGKt1Z
n
eZ
;t3uF!"

">t>tr
unF"]UMP

4X<t'2-b*-





us:"(J>qu<.H}-b33tu'*}>ttGtrt3ZcuW.P")GX2<u}32KySQTXY[u}=t.U+]>u%u-b
>ut>u>}tH6PX>tX+tPQeYXHt>}tC_>u7>uH..:=/u$:;|;4Q+u))t=uH-++@;2=t8=u+=u=up_>}tRJ}>uu3>u(u#N
066X3>u$u.8}3<r7>}u62ht]EttL::t^6>}t@t@ux>t>&t.>r+>}uuttPXtt8Q"">t>trT>rE>r>}t>wc>w>w2>u
o>t!>t>rC>r>}t>wQ>w,>t>t>u&YP]5._&>r"tH;t@E2"12tM,RRZt3J2tu>4t693>`=-tB=+uBGUt
tK3JKumu?Nr^0uF4F6F8nbtMFC3>`<'t<^t<@udb<^t"<@t1<'u?G4<'uG='uCG44@GCGSQY[}5ub2<$t7Ws3HGKsR<Et<.uG<.t<)t406)!5PU^.'C.xCu^]Xhbt\CPXW2+$+HHPX>tPP,X>tPX>tPWXS>t+&;Bttu[AF=>r?+r1S'X%t>SR31Z[+!QRN"oZY+HHS+[>t;rS+&[QWV6>X;t6;r+ONF66DXX;Zu^_Y>sPSQU6o.o;.XtY^;ot\oP^Fy#^C;u
&')o3Xo]Y[XQ!>ot'Q"PSRQ3NYrZ[XY}B+&B}B}QY.MF..MMF.+,.KKMMFu.3FFnQMMKKFY3PBXct8s<7uyX.b2M^MbFKu.>@><uN3>`rt<ar, CbGsGCb<.t<=t<>uGCbb>@<u:<tS[<r=.>.>>@:.=3=Hb2.;t4nFt<tF:u:u+cuF+[..S2b.
2
AtI.[.?CCSb2AuB.tS.[[CCC>r>`=[tE=(uDG=.8>`=]t1=.u0G=)$:;,.()=^>`:uGji8a9Y:t];t>tM<8=0>(? @AB>`<< v<{t=(*t>`3% R}$t*u=*)u<}uZSQRy<ItR<RtK<BtD<Ct=<Ut6<K t/<V@t(3<At"<Dt<St<FtE<GtA<Pt=<Wt9dfZY[3<+tI<-tt&33o<,upcs< uS>eRJ^DW$_Db3HeGtSQR>C>u0\^?u<tC<
tG?uC\IDH-bFD<tC<
tG1<uCDv6ZY[br)Q3[SKtHY>r'
vVW4_^tv<u[VWU]_^PSQ>u@@;iF+@ ;rRVW/E_^ZY[X<Ar<[s<_t<ar<{s<0r<:>`s">`r>`u>`uUF]>`[.t`->u+^FL>rN>t&.>88FINTEGERRCHAR^REALjBOOLEANBYTETRUE
FALSEMAXINT!IPIPBUFLENTHPTR>vOUTPUT>vINPUT4vCON4vTRM6vKBD8vLST:vAUX<vUSR\jCBREAK$FCSOFS&FCIOFS(FCOOFS*FLOOFS,FAOOFS.FAIOFS0FUOOFS2FUIOFSJFEHOFSXCLRHOMaCLREOSjCLREOLsINSLIN|DELLINRVSONRVSOFFINTONINTOFFULNONULNOFFBLKONBLKOFFALLOFFRFSYSRESREPLACEREVERSECLEARBITSETBIT

BLACK
DARKGREEN
DARKRED
DARKYELLOW
DARKBLUE
DARKCYAN
DARKMAGENTA
GREY
BLACK2

GREEN
RED
YELLOW
BLUE

CYAN
MAGENTA

WHITEFTURTLEXFTURTLEYFTURTLEANG$SOLID#COLOR
:MODE0&4x.>N^n
$4EUfv'XP}PROGRAMENDFORWARDEXTERNALPACKEDARRAYFILETEXTSETRECORDSTRINGOFATTHENELSEDOUNTILOTHERWISENOTNIL..:=LABELCONSTTYPEVARBEGINOVERLAYPROCEDUREFUNCTIONBEGINJgIFgWHILE
hREPEAT8hFORZhCASEFiGOTOHjWITHqjCODEjTO}AIDOWNTOIAMEMMEMW*/AND%#MODDIVSHLSHR+--+OR
EXOR53=t<>u>=}<=> <(|IN=;WRITELNPpWRITETpREADLNPoREADToDELETEqINSERTqGOTOXYrASSIGNInRESETnREWRITEnCLOSEnERASEjnRENAMEnSEEKrnNEWsALLOCATE!sMARK=sRELEASEBsSTR(rVALrBLOCKREADqBLOCKWRITEqOVDRIVEqRANDOMIZErBLOCKMOVE[sBLOCKFILLssEXITsHALTsPORTWsPORTsFLUSHnEXECUTEnCHAINnSWINTsINITTURTLEsINITHIRESsTURN{tTURNTOtMOVEtMOVETOtMOVEBYtLINEtLINETOtLINEBYtPENCOLORsBACKGROUNDtPENMODEtLINETYPE0tCHARDIR5tCHARSIZE:tCHARTYPE?tFILLSCREENtRECTItRECTFILLDtPICPLANE+tGETPICtPUTPICtCIRCLEtARCtPLOTrtPATTERNtWRITESTRtCURSORONuCURSOROFFuCHR|ORD|COPY|LEN|POS|CONCAT|SUCCe|PREDi|TRUNCB|ROUNDG|ODD|ABS{SQR{FLOAT{SQRT|SIN|COS|ARCTAN|LN|EXP |RANDOM}INT%|FRAC*|PWRTENZ|ARGCNT}ARGSTR}LOs|HI}|SWAP|IORES3}EOF8}EOLNN}SEOFD}SEOLNI}LENGTHj}POSITIONb}KEYPRESS|MEMAVAIL}PORTWMPORTQADDR}PTR}OFS}SEG}SIZEDSEG4CSEG<SSEGDPOINTt                                       