dir char anyfile(0) [
 pl ""
 char where(10000),lfs(1);int cnt,ix,lines
 lfs(0)=10
 if ((cnt=readfile(anyfile,where,where+10000,1))>0) [
  while ((ix=index(where,cnt,lfs,1))>0) [
   pft where,where+ix-1
   where=where+ix
   cnt=cnt-ix
   if (++lines>19) [sak;pl "";pl "";lines=0]
 ]]]

setup [
 hilo '1';color '3'
 posc 10,20;ps "mykarel.tc - tct - 12/19/16 - p1"
 color '7'
 posc 21,20;ps "seed (odd number from 1-999)? ";last=seed=gn
 posc 22,20;ps "bag (0-9999)? ";bag=gn
 off
 ]

/* ref: http://primepuzzle.com/tc/karel-problem-book.html */

turnaround [turnleft;turnleft]

fetch_beeper [
 while (not_next_to_a_beeper) move
 pickbeeper
 ]

goto_wall [
 while (front_is_clear) move
 ]

turnright [turnleft;turnleft;turnleft]

main [
 setup
 putbeeper /* leave marker */
 turnright
 move
 turnright
 for (i=1;i<=2;++i) fetch_beeper
 turnright
 for (i=1;i<=4;++i) move  
 turnright
 fetch_beeper
 turnright
 goto_wall
 turnright
 while (left_is_blocked) move
 turnleft;move;turnleft
 goto_wall;turnright
 move
 turnleft
 move
 turnleft
 goto_wall;putbeeper;putbeeper;putbeeper
 turnaround;move;turnleft;move;turnleft
 goto_wall;turnright
 fetch_beeper
 ]
  
int cnt,i,j,k,l,p,bag,ka,ks,q
char iwa(24*80),kc,wall(400)
char gworld(12)

reverse char s(0) [
 int c,i,j
 j=strlen(s)-1
 while (i<j) [
  c=s(i);s(i)=s(j);s(j)=c;++i;--j
 ]]

itoa int n;char nst(0) [
 int w
 nst(0)=n%10+'0';n=n/10
 while (n) [
  nst(++w)=n%10+'0';n=n/10
  ]
 nst(++w)=0
 reverse nst
 ]

split int t(0);char s(0),d(0) [
 int y,ix,tx,sl,ds;ds=strlen(d);t(0)=s;sl=strlen(s)
 while (sl-tx) [
  ix=index(s+tx,sl-tx,d,ds)
  tx=tx+ix+ds-1;t(++y)=s+tx;s(tx-ds)=0
  ]
 return y
 ]

loadcol int k,str(0) [
 int r;char wrk(24)
 strcpy wrk,str
 for (r=0;r<24;++r) iwa(r+24*k)=wrk(r)
 ]

loadrow int k,str(0) [
 int c;char wrk(80)
 strcpy wrk,str
 for (c=0;c<73;++c) iwa(23-k+24*c)=wrk(c)
 ]

loadobj int str(0) [
 char wrk(180),wwrk(180),bc,crlf(2)
 int rl(4),rla(0),rlb(0),rls(0),rlt(0),rlbeep(0),wa,ws,wb,wt,ba,bs
 crlf(0)=13;crlf(1)=10
 strcpy wrk,str
 strcpy wwrk,wrk
 strcat wrk," "
 split rl,wrk," "
 if (ceqn(rl(0),"k",1)) [
  atoi rl(1),rla;atoi rl(2),rls
  if (ceqn(rl(3),"N",1)) kc='^'
  else if (ceqn(rl(3),"S",1)) kc='v'
  else if (ceqn(rl(3),"E",1)) kc='>'
  else kc='<'
  ka=4*rla(0)
  ks=21-2*rls(0)
  ]
 if (ceqn(rl(0),"w",1)) [
  atoi rl(1),rla;atoi rl(2),rls;atoi rl(3),rlb;atoi rl(4),rlt
  wa=4*rla(0)+2
  ws=20-2*rls(0)
  wb=4*rlb(0)+2
  wt=20-2*rlt(0)
  int wwa,wwb
  if (ws==wt) [
   for (wwa=wa;wwa<=wb;++wwa) iwa(ws+24*wwa)='*'
   ]
  if (wa==wb) [
   for (wwb=ws;wwb>=wt;--wwb) iwa(wwb+24*wa)='*'
   ]
  strcat wall,wwrk;strcat wall,crlf
  ]
 if (ceqn(rl(0),"b",1)) [
  atoi rl(1),rla;atoi rl(2),rls;atoi rl(3),rlbeep
  ba=4*rla(0)
  bs=21-2*rls(0)
  if (rlbeep(0)==1) bc='@'
  else bc=rlbeep(0)+'0'
  if (rlbeep(0)==0) bc='!'
  iwa(24*ba+bs)=bc
  ]
 if (ceqn(rl(0),"g",1)) [
  atoi rl(1),rla
  bag=rla(0)
  ]
 ]

readworld char iw(0) [
 int i,j,r,c,s,br,wl(200);char w(2600),lf(1),lits(100)
 for (r=0;r<24;++r) [
  for (c=0;c<80;++c) iwa(r+24*c)=' '
  ]
 lf(0)=10
 br=readfile iw,w,w+2600-1,1
 while (i<br) [
  if (w(i)!=13) [
   w(j)=w(i);++j
   ]
  ++i
  ]
 w(j)=0
 strcat w,lf
 s=split wl,w,lf
 while s [loadobj wl(s-1);--s]
 strcpy lits," S T R E E T S          ";loadcol 0,lits
 strcpy lits," A 9 8 7 6 5 4 3 2 1    ";loadcol 2,lits
 strcpy lits,"    1   2   3   4   5   6"
 strcat lits,"   7   8   9   A   B   C   D   E   F   G   H   I"
 loadrow 2,lits
 strcpy lits,"    A   V   E   N   U   E   S"
 strcat lits,"                                             "
 loadrow 1,lits
 ]

printworld [
 int r,c
 for (r=0;r<24;++r) [
  for (c=0;c<80;++c) [
   if !((r==ks)*(c==ka)) [
    posc r+1,c+1;putchar iwa(r+24*c)
  ]]]
 posc ks+1,ka+1
 color('3');putchar kc;color('7')
 ]

saveworld char iw(0) [
 char crlf(2),ow(20),w(2600),st(5),mcs(2)
 int a,s,n(0),beeps,m,i
 crlf(0)=13;crlf(1)=10
 for (a=4;a<80;++a) [
  for (s=1;s<19;++s) [
   beeps=(iwa(24*a+s)=='@')
   beeps=beeps+(iwa(24*a+s)>='2')*(iwa(24*a+s)<='9')
   beeps=beeps+(iwa(24*a+s)=='!')
   strcpy mcs," "
   if (beeps) [
    if (iwa(24*a+s)=='@') strcat mcs,"1"
    else if (iwa(24*a+s)=='!') strcat mcs,"0"
    else mcs(1)=iwa(24*a+s)
    n(0)=a/4
    itoa n(0),st
    strcat w,"b "
    strcat w,st
    strcat w," "
    n(0)=(22-s)/2
    itoa n(0),st
    strcat w,st
    strcat w,mcs
    strcat w,crlf
  ]]]
 strcat w,"k "
 n(0)=ka/4
 itoa n(0),st
 strcat w,st
 strcat w," "
 n(0)=(22-ks)/2
 itoa n(0),st
 strcat w,st
 if (kc=='^') strcat w," N"
 else if (kc=='v') strcat w," S"
 else if (kc=='>') strcat w," E"
 else strcat w," W"
 strcat w,crlf
 strcat w,"g "
 n(0)=bag
 itoa n(0),st
 strcat w,st
 strcat w,crlf
 strcat w,wall
 strcpy ow,"n"
 strcat ow,iw
 writefile ow,w,w+strlen(w)-1,1
 pl w
 ]

right_is_blocked [
 int ta
 if (kc=='^') ta=24*(ka+2)+ks
 else if (kc=='<') ta=24*ka+ks-1
 else if (kc=='v') [
  if (ka-2==0) return 1
  else ta=24*(ka-2)+ks
  ]
 else if (ks+1==20) return 1
 else ta=24*ka+ks+1
 return iwa(ta)=='*'
 ]

right_is_clear [return !right_is_blocked]

left [
 char ks(4),kcw(1)
 strcpy ks,"v>^<v"
 kcw(0)=kc
 kc=ks(index(ks,4,kcw,1))
 ]

front_is_blocked [
 int bool
 left
 bool=right_is_blocked
 left;left;left;return bool
 ]

front_is_clear [return !front_is_blocked]

left_is_blocked [
 int bool
 left;left
 bool=right_is_blocked
 left;left;return bool
 ]

left_is_clear [return !left_is_blocked]

next_to_a_beeper [
 int t
 t=(iwa(24*ka+ks)=='!')+(iwa(24*ka+ks)=='@')
 t=t+(iwa(24*ka+ks)>='2')*(iwa(24*ka+ks)<='9')
 return t
 ]

not_next_to_a_beeper [return !next_to_a_beeper]

facing_n [return kc=='^']

not_facing_n [return !facing_n]

facing_s [return kc=='v']

not_facing_s [return !facing_s]

facing_e [return kc=='>']

not_facing_e [return !facing_e]

facing_w [return kc=='<']

not_facing_w [return !facing_w]

any_beepers_in_beeper_bag [return bag]

no_beepers_in_beeper_bag [return !any_beepers_in_beeper_bag]

move [
 if (front_is_blocked) turnoff(1)
 if (kc=='^') ks=ks-2
 else if (kc=='v') ks=ks+2
 else if (kc=='>') ka=ka+4
 else ka=ka-4
 if ((ka/4<1)+((22-ks)/2<1)) turnoff(3)
 else if ((ka/4>18)+((22-ks)/2>10)) turnoff(5)
 if q!=1 printworld
 wait p
 ]

turnleft [
 left
 if q!=1 printworld
 wait p
 ]

pickbeeper [
 char wbc,bc
 if (not_next_to_a_beeper) turnoff(2)
 wbc=iwa(24*ka+ks)
 if (wbc=='@') bc=' '
 else if (wbc=='2') bc='@'
 else if (wbc=='!') bc='9'
 else bc=wbc-1
 iwa(24*ka+ks)=bc
 ++bag
 if q!=1 printworld
 wait p
 ]

putbeeper [
 char wbc,bc
 if (no_beepers_in_beeper_bag) turnoff(4)
 wbc=iwa(24*ka+ks)
 if ((wbc=='9')+(wbc=='!')) bc='!'
 else if (wbc==' ') bc='@'
 else if (wbc=='@') bc='2'
 else bc=wbc+1
 iwa(24*ka+ks)=bc
 --bag
 if q!=1 printworld
 wait p
 ]

turnoff int err [
 int msg(10);char foo(150)
 printworld
 wait 1
 strcpy foo,"Mission complete!,Front is blocked,Not next to beeper,"
 strcat foo,"Boundary detected,No beepers in bag,Went out of bounds,"
 strcat foo,"Too many beepers,"
 split msg,foo,","
 posc 24,33;beep(440,2);ps msg(err)
 saveworld gworld
 if (err) [pl "";on;exit]
 ]

rwait int p [
 int i,j
 for (i=0;i<p;++i) [
  for (j=0;j<p;++j) []
 ]]

wait int p [
 ++cnt;posc 24,65;ps "count =";pn cnt
 posc 24,53;ps "bag =";pn bag;ps "  "
 rwait p
 ]

karel char world(0);int qp [
 p=50;q=qp;cls
 on
 strcpy gworld,world
 readworld world
 main
 beep(440,2)
 --cnt;rwait 200;--cnt;rwait 200
 turnoff(0)
 on
 ]