diff --git a/appleiibot/Makefile b/appleiibot/Makefile
index c6ab997a..2592dc4b 100644
--- a/appleiibot/Makefile
+++ b/appleiibot/Makefile
@@ -9,7 +9,7 @@ appleiibot.dsk:	E2.BAS FLAME.BAS FLAME2.BAS \
 	CIRCLES.BAS AUTUMN.BAS QKUMBA.BAS ASTEROID.BAS PERSON.BAS SHIP.BAS \
 	CONCERT.BAS NYAN.BAS RASTER.BAS RASTER2.BAS RASTER3.BAS LOTS.BAS LOAD \
 	RASTER4.BAS RASTER5.BAS PUMPKIN.BAS PUMPKIN_SMALL.BAS LADY.BAS \
-	A2.BAS FOURAM.BAS FLOPPY.BAS
+	A2.BAS FOURAM.BAS FLOPPY.BAS QR.BAS
 	cp empty.dsk appleiibot.dsk
 	$(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
 	$(DOS33) -y appleiibot.dsk SAVE A E2.BAS
@@ -35,6 +35,7 @@ appleiibot.dsk:	E2.BAS FLAME.BAS FLAME2.BAS \
 	$(DOS33) -y appleiibot.dsk SAVE A A2.BAS
 	$(DOS33) -y appleiibot.dsk SAVE A FOURAM.BAS
 	$(DOS33) -y appleiibot.dsk SAVE A FLOPPY.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A QR.BAS
 
 ###
 
@@ -202,6 +203,12 @@ FLOPPY.BAS:	floppy.bas
 	$(TOKENIZE) < floppy.bas > FLOPPY.BAS
 
 
+####
+
+QR.BAS:	qr.bas
+	$(TOKENIZE) < qr.bas > QR.BAS
+
+
 ####
 
 clean:
diff --git a/appleiibot/qr.bas b/appleiibot/qr.bas
new file mode 100644
index 00000000..9c6cf1c6
--- /dev/null
+++ b/appleiibot/qr.bas
@@ -0,0 +1,4 @@
+1REM________!L%P__??M]]__7T>1___%U6T__?17%]__W74?___!4%P____7____'$JJ___5?=W___")(^__7_Q1___7(1^____E#]__'0PF___]]XU__?11R\__74WY___%UP___??=+___'0!M_______________
+2FORY=0TO159:Z=PEEK(2054+Y)-32:FORI=0TO5:Q%=Z/2:POKE50,(Q%*2-Z)*192+255:Z=Q%:IFY+I-164THEN?" ";
+4NEXT I,Y:GETA
+