diff --git a/Images/VBMP.dsk b/Images/VBMP.dsk
index 1a92acd..444d145 100644
Binary files a/Images/VBMP.dsk and b/Images/VBMP.dsk differ
diff --git a/Images/VBMP.po b/Images/VBMP.po
index 29722a1..0ccb7f7 100644
Binary files a/Images/VBMP.po and b/Images/VBMP.po differ
diff --git a/DISPLAY.S b/Sources/DISPLAY.S
similarity index 100%
rename from DISPLAY.S
rename to Sources/DISPLAY.S
diff --git a/Sources/SLIDESHOW.bas b/Sources/SLIDESHOW.bas
new file mode 100644
index 0000000..fb6a180
--- /dev/null
+++ b/Sources/SLIDESHOW.bas
@@ -0,0 +1,10 @@
+10 D$ =  CHR$(4)
+15  FOR I = 1 TO 8: READ F$
+20  PRINT D$;"BLOAD ";F$;".BMP,A$4000"
+30  PRINT D$;"BRUN DISPLAY"
+35  FOR J = 1 TO 1000: NEXT J
+40  NEXT I
+45  POKE  -16372,0: TEXT 
+60  DATA  "IMAGE","SJOBS"
+70  DATA  "STEVES","A2C1984"
+80  DATA  "ADVTIME2","IRONMAN","SIMPSONS","SPONGEBOB"
\ No newline at end of file
diff --git a/Sources/VBMP.bas b/Sources/VBMP.bas
new file mode 100644
index 0000000..eb21006
--- /dev/null
+++ b/Sources/VBMP.bas
@@ -0,0 +1,12 @@
+5  HOME 
+10 D$ =  CHR$(4)
+15  PRINT D$;"CAT"
+20  PRINT "FILENAME TO DISPLAY (WITHOUT EXTENSION)"
+25  INPUT F$: IF  LEN(F$) = 0 GOTO 25
+30  PRINT D$;"BLOAD ";F$;".BMP,A$4000"
+40  PRINT D$;"BRUN DISPLAY"
+50 K =  PEEK( -16384)
+60  IF K <127 GOTO 50
+70  POKE  -16368,0
+80  POKE  -16372,0: TEXT 
+90  IF K < >128 +27 GOTO 5
\ No newline at end of file