diff --git a/basic/appleiibot/xdraw128.bas b/basic/appleiibot/xdraw128.bas
new file mode 100644
index 00000000..d5baddcc
--- /dev/null
+++ b/basic/appleiibot/xdraw128.bas
@@ -0,0 +1,2 @@
+1FORI=0TO127:POKE1013+I,4*PEEK(2126+I)-192+(PEEK(2254+I/3)-35)/4^(I-INT(I/3)*3):NEXT
+2&",clMnQmZ:Fgin8H'VLX18J1ddhQi8H/X1dmYm2dR6J%akV7QgR8A/X0Xl6J1]lZ?QoZP8bjX7Ud6J1]l[:0BOS>+j?,Z?0bHLeiiYCR?1YbXRZHX084mHXn8=kagF>f0S4(P$K#%E&+9(CS4.C$+?'$OT+?3';7'C8(O'#$(LC&
diff --git a/basic/appleiibot/xor_zoom.bas b/basic/appleiibot/xor_zoom.bas
new file mode 100644
index 00000000..a4f696be
--- /dev/null
+++ b/basic/appleiibot/xor_zoom.bas
@@ -0,0 +1,2 @@
+1FORI=0TO123:POKE892+I,4*PEEK(2125+I)-192+(PEEK(2249+I/3)-35)/4^(I-INT(I/3)*3):NEXT
+2&",cl9E`P.QaNnUnKe/QbVn?j0FlRB28=mY8J0N9:61nX0QnQnIFnJnYaHl+PnUmKf/QlR>emAo8If63nb`:dgjh<][[e/J#Pl$Q0_j0LT0k0j_9`>0ST0CM0P0CO0S+E[4BWTP%6*0+#$W@X:4?+4&C###?BYVU`'#421#&
diff --git a/textmode/cursor/Makefile b/textmode/cursor/Makefile
new file mode 100644
index 00000000..6f72b5dd
--- /dev/null
+++ b/textmode/cursor/Makefile
@@ -0,0 +1,39 @@
+include ../../Makefile.inc
+
+DOS33 = ../../utils/dos33fs-utils/dos33
+PNG2GR = ../../utils/gr-utils/png2gr
+PNG2RLE = ../../utils/gr-utils/png2rle
+TOKENIZE = ../../utils/asoft_basic-utils/tokenize_asoft
+LINKERSCRIPTS = ../../linker_scripts
+
+all:	textflip.dsk
+
+$(DOS33):	
+	cd ../../utils/dos33fs-utils && make
+
+textflip.dsk:	$(DOS33) HELLO TEXT_DEMO
+	cp empty.dsk textflip.dsk
+	$(DOS33) -y textflip.dsk SAVE A HELLO
+	$(DOS33) -y textflip.dsk BSAVE -a 0x1000 TEXT_DEMO
+
+
+###
+
+HELLO:	hello.bas
+	$(TOKENIZE) < hello.bas > HELLO
+
+###
+
+TEXT_DEMO:	text_demo.o
+	ld65 -o TEXT_DEMO text_demo.o -C $(LINKERSCRIPTS)/apple2_1000.inc
+
+text_demo.o:	text_demo.s \
+	pageflip.s \
+	gr_fast_clear.s
+	ca65 -o text_demo.o text_demo.s -l text_demo.lst
+
+###
+
+clean:	
+	rm -f *~ *.o TEXT_DEMO *.lst
+
diff --git a/textmode/cursor/cursor.bas b/textmode/cursor/cursor.bas
new file mode 100644
index 00000000..1a445b75
--- /dev/null
+++ b/textmode/cursor/cursor.bas
@@ -0,0 +1,2 @@
+10 GR
+
diff --git a/textmode/cursor/hello.bas b/textmode/cursor/hello.bas
new file mode 100644
index 00000000..133a44bb
--- /dev/null
+++ b/textmode/cursor/hello.bas
@@ -0,0 +1,2 @@
+5 HOME
+10 PRINT CHR$(4);"CATALOG"