diff --git a/index.html b/index.html
index 6ccad3a..71ea47f 100644
--- a/index.html
+++ b/index.html
@@ -84,6 +84,7 @@ By <a target=_blank href="mailto:inexorabletash@gmail.com">Joshua Bell</a>
     <option value="sample.blackhole">&nbsp; Black Hole Maze (S.M.Compton c/o Melody Ayres-Griffiths)</option>
     <option value="sample.chase">&nbsp; Chase (Dominik Heidler)</option>
     <option value="sample.spaceattack">&nbsp; Space Attack! (Alan Ratliff)</option>
+    <option value="sample.building">&nbsp; Building (Melvin Rosario)</option>
 
     <option disabled>____________________________________________</option>
     <option disabled>Graphics</option>
diff --git a/samples/sample.building.txt b/samples/sample.building.txt
new file mode 100644
index 0000000..a18a09e
--- /dev/null
+++ b/samples/sample.building.txt
@@ -0,0 +1,61 @@
+0 clear : text : normal : home
+1 rem BUILDING GAME BY MELVIN ROSARIO
+2 rem Use Arrow keys to look around, Use wasd to move
+3 rem Press E to place a block and Q to remove one
+4 rem Use N and M to scroll through block type
+
+5 inverse : htab 3 : vtab 3 : print " BUILDING GAME " : normal : htab 3 : vtab 5 : print "press any key to start" : get unused$ : gr
+6 etp = 4 : ctp = 0
+7 if unused$="0" or unused$="U" then blk=5000
+8 if unused$><"U" then elevation=20
+9 if unused$="U" then elevation=10
+10 px=20 : py=1 : pr=0 : bkg=6 : for i = 0 to 39 : color=4 : vlin 1,38 at i : next i
+11 for i = 0 to 39 : color=bkg : vlin 1,elevation at i : color=13 : vlin elevation+3,38 at i
+12 rand=val(mid$(str$(rnd(-1*(peek(78)+256*peek(79)))*10),1,1))
+13 if unused$><"U" and rand = 8 and elevation < 34 then elevation=elevation+2 : goto 20
+14 if unused$><"U" and rand > 2 and elevation < 34 then elevation=elevation+1 : goto 20
+15 if unused$><"U" and rand = 1 then elevation=elevation-2 : goto 20
+16 if unused$><"U" and rand < 4 then elevation=elevation-1
+20 next i
+
+30 home : rand=val(mid$(str$(rnd(-1*(peek(78)+256*peek(79)))*10),1,1))
+40 gosub 350
+50 if pr=0 then print "facing left |"
+51 if pr=1 then print "facing right|"
+52 if pr=2 then print "facing up   |"
+53 if pr=3 then print "facing down |"
+100 if ctp=0 then ptb$ = "grass" : pldtp = 4
+101 if ctp=1 then ptb$ = "dirt" : pldtp = 13
+102 if ctp=2 then ptb$ = "brick" : pldtp = 11
+103 if ctp=3 then ptb$ = "platform" : pldtp = 2
+104 if ctp=4 then ptb$ = "glass" : pldtp = 15
+300 htab 15 : vtab 21 : print "blocks:" ; blks : print "block type: [" ; ctp ; "] " ; ptb$ : get btn$ : goto 30
+
+350 color=bkg: plot px, py
+351 if btn$="D" and px=39 and scrn(0,py) = bkg then px=0 : goto 500
+352 if btn$="A" and px=0 and scrn(39,py) = bkg then px=39 : goto 500
+401 if btn$=chr$(21) then pr=1
+402 if btn$=chr$(8) then pr=0
+403 if btn$=chr$(10) then pr=3
+404 if btn$=chr$(11) then pr=2
+405 if btn$="E" and pr=0 and px><0 and scrn(px-1,py) = bkg and blks>0 then color=pldtp: plot px-1,py : blks=blks-1
+406 if btn$="E" and pr=1 and px><39 and scrn(px+1,py) = bkg and blks>0  then color=pldtp: plot px+1,py : blks=blks-1
+407 if btn$="E" and pr=2 and scrn(px,py-1) = bkg and blks>0 then color=pldtp: plot px,py-1 : blks=blks-1
+408 if btn$="E" and pr=3 and scrn(px,py+1) = bkg and blks>0 then color=pldtp: plot px,py+1 : blks=blks-1
+409 if btn$="Q" and pr=1 and px><39 and scrn(px+1,py) >< bkg and scrn(px+1,py) >< 0 then color=bkg: plot px+1,py : blks=blks+1
+410 if btn$="Q" and pr=2 and scrn(px,py-1) >< bkg and scrn(px,py-1) >< 0 then color=bkg: plot px,py-1 : blks=blks+1
+411 if btn$="Q" and pr=3 and scrn(px,py+1) >< bkg and scrn(px,py+1) >< 0 then color=bkg: plot px,py+1 : blks=blks+1
+412 if btn$="Q" and pr=0 and px><0 and scrn(px-1,py) >< bkg and scrn(px-1,py) >< 0 then color=bkg: plot px-1,py : blks=blks+1
+413 if btn$="D" and px><39 and scrn(px+1,py) = bkg then px=px+1 : goto 415
+414 if btn$="D" and px><39 and scrn(px+1,py) >< bkg and scrn(px+1,py-1) = bkg then px=px+1 : py=py-1
+415 if btn$="S" and scrn(px,py+1) = 2 and scrn(px,py+2) = bkg then py=py+2
+418 if btn$="A" and px><0 and scrn(px-1,py) = bkg then px=px-1 : goto 420
+419 if btn$="A" and px><0 and scrn(px-1,py) >< bkg and scrn(px-1,py-1) = bkg then px=px-1 : py=py-1
+420 if btn$="M" then ctp = ctp + 1
+421 if btn$="N" then ctp = ctp - 1
+489 if ctp > etp then ctp = 0
+490 if ctp < 0 then ctp = etp
+497 if btn$="W" and py><0 and scrn(px,py-1) = 2 and scrn(px,py-2) = bkg then py=py-2 : goto 500
+498 if scrn(px,py+1) = bkg then py=py+1 : goto 500
+499 if btn$="W" and scrn(px,py-1) = bkg then py=py-1
+500 color=0: plot px, py : return
\ No newline at end of file