diff --git a/gui/notepad/src/notepad.tal b/gui/notepad/src/notepad.tal
index d403ab4..ff166b0 100644
--- a/gui/notepad/src/notepad.tal
+++ b/gui/notepad/src/notepad.tal
@@ -1,6 +1,7 @@
 ( A port of the macintosh classic notepad )
 
 |00 @System &vector $2 &pad $6 &r $2 &g $2 &b $2
+|10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1
 |20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1
 |80 @Controller &vector $2 &button $1 &key $1
 |90 @Mouse &vector $2 &x $1 &lx $1 &y $1 &ly $1 &state $1 &chord $1
@@ -36,7 +37,7 @@
 	( name ) "Note 20 "Pad 0a
 	( details ) "Original 20 "by 20 "Donn 20 "Denman 0a
 	( author ) "By 20 "Devine 20 "Lu 20 "Linvega 0a
-	( date ) "May 20 "28, 20 "2024 00 01
+	( date ) "May 20 "29, 20 "2024 00 01
 	( icon ) 83 =appicon
 
 (
@@ -50,6 +51,7 @@
 	DUP2 [ LIT2 "x 01 ] NEQ2 ?{ POP2 edit-cut BRK }
 	DUP2 [ LIT2 "c 01 ] NEQ2 ?{ POP2 edit-copy BRK }
 	DUP2 [ LIT2 "v 01 ] NEQ2 ?{ POP2 edit-paste BRK }
+	DUP2 [ LIT2 "p 01 ] NEQ2 ?{ POP2 edit-print BRK }
 	( | mask shift key )
 	#fb AND
 	( | arrows )
@@ -296,6 +298,14 @@
 @edit-paste ( -- )
 	;snarf-path file-inject !file-save
 
+@edit-print ( -- )
+	get-to get-from
+	&>l ( -- )
+		LDAk .Console/write DEO
+		INC2 GTH2k ?&>l
+	POP2 POP2 [ LIT2 0a -Console/write ] DEO
+	JMP2r
+
 (
 @|core )