Print to console with ctrl+p
This commit is contained in:
parent
12e156ebec
commit
3dc4405c8b
|
@ -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 )
|
||||
|
||||
|
|
Loading…
Reference in New Issue