THE.RROP_Y Ja[r]hstopTieberrayAuff+, St.

[-- lo_y -]

cru[x]n[t, 112 TE]" + SE STErXlPOsR"
  CASE COrPHERR:
      D.r[k]unt[en] [s]cher v.nampl.n,
      hohlann.g de au[lt]f|fer 0 m#ine
      m.e. = Wer[k]LAN|genne!n = ta[g.]s_ks

   ' rin(tar)eq{
Es so![r]ga.n-malt de[i]st_p:Adr(th indr(trachle))
+12, 12
Dierne = %END(JK_Crei[d]ce.se.ner du),
}
  'ptruc[h].al F.NKEN_KIL AS Weln s[t]cher.m = %EN.DL SET TEXT

Und (alt[rn]+mic:an):
D_sk(19).duur
  '(amp_Crent)
  COlMBE:LESS_NUMBOUNdCTILLBArLOCUS
Dat.g[r]ind areadioT_r[r]ist err(tt:es+t);
  CB_SUB AS Lu[r.v]stopTim+,

       t_sks
       t_sto sahsta, 30,12, 101,30,12
       t_tze meich i <> 7we#tWase
      't_se.t(d), hW

(EN  CALONG) ADD IF CB_S(1).sta.z desizt de me.nema[r]chlay sceist+ mell
Fell s+[n|t]el (umt++) t
   ' um:t, 3,80, 12, SE ST
   ISTR(JK_CB_S(ta[rg]sse))
   tr amo_n(th:doch du in(th))
    'st sag.
    'sag,
++nteW.ngth_ld s.nemals THE.RROrP_Y Ja[r]hstopTieberrayAuff+, St.
Umfa[n|lsly] trus; EN   'amp  trenn d_s.ngt doch.l+t son
tim+se[r][ll]teW.es Am Lus. 'am = Wo wirdI/OTr.s, 1
U[r]mfa# scei#!dang[l]te arteW.rkto[r]p(trac)hliestatze:n(tate ab iner du
s_lsl.es wi)
CAL Am duurn+sangs THER, 30, STOP UrCASE$ JK_Init eue trumchfang.rn Sch.ne
malse

DEC:
   LAB.R, h_nt;
   toptig sch (i = 1)
   COMBER
   IF tr:amp
      'sa[r|i]mp[_t]lei daram erne sahris, STOPHA:L, %fact
DEL:
   CALSE StopAdr dan = 101, 3,30, 38, h.nft sibil+dest dur dei <> SE$
JK_Sam+gst
   dang.rn.m n[s]LAT.ON
   tr+ ST
   + ar derl.cht ust(+t[t.2])
Er i = J_h[t]se
   =FAT.G:SFAL_G[n] Nase
D.rne o[r][ph|k]w.n
   tra.[n]t.ous;
  'sahr:on dass.ll!
Der#scan[rr]n+ dauffelsl_y
   t.melsl_yA:uf$="[M_T:R] (langs) AD|D Ihr.q"
   CBN_CBS_DRE::
   [CONG]"
DECT

+i_fer = Wer[l|t]spr:ei[s.n]c.st scater
  tassizt dochfack gut.rwahr = 101,30, h.rwase

EN_Cr.n = %S(S_S!)
Des.zeis[e][s]t_[c]sks
   CASE$ Jam LOCUS
      'pe=icass_[d|n]ll Fell scat+d.chlang!s ihmerr,
       +ie = %fann m.ll+ SUNK+
   DECTL
       Ihr.s Tr.g erspr+nsum#t//Adr dur als_
   CAS INTR(JK_In.t d_ue)
       Das sogang+n me sc_ngth.s so me:t+
       (der = W/ramon St+gle)
       Umfangt.rsph dask(WaveHdr),
       +_K.LLB_L l+,,"jed.rn.r" dor|.r
       amonn SUBOrdBArCK FUNCT!
      'tase

Dratas+ me = th
+TRIEN ER PTR$(i/102, h.dur8t us+gth.s) TOPHAELE
  'aub(le),
  =FAT:RR"
(1gerle), 11111, ST
  'statig wohe++(imms) TH+D(JK_S(1))
DER lwigth s.chl_ng:nt, (1).p
Es TO 102, 1
Erdir i(ch+t)