(notepad) Starting text wrapping

This commit is contained in:
Devine Lu Linvega 2023-04-26 09:40:50 -07:00
parent 69e3760ce5
commit 87ad933e56
2 changed files with 188 additions and 0 deletions

BIN
gui/notepad/newyork12.uf2 Normal file

Binary file not shown.

View File

@ -19,6 +19,7 @@
;on-mouse-body .Mouse/vector DEO2
draw-header
draw-note
draw-footer
BRK
@ -159,6 +160,14 @@ JMP2r
JMP2r
@draw-note ( -- )
#0008 .Screen/x DEO2
#0018 .Screen/y DEO2
;mem draw-uf2
JMP2r
@draw-footer ( -- )
#26 .Screen/auto DEO
@ -178,6 +187,43 @@ JMP2r
JMP2r
@walk-uf2 ( text* -- )
JMP2r
@draw-uf2 ( text* -- )
#15 .Screen/auto DEO
&while
( wrap )
LDAk #20 NEQ ?&no-wrap
DUP2 word-length .Screen/x DEI2 ADD2 #00d0 LTH2 ?&no-wrap
#0008 .Screen/x DEO2
.Screen/y DEI2k #0010 ADD2 ROT DEO2
INC2 LDAk ?&while
&no-wrap
LDAk #20 SUB #00 SWP
DUP2 #50 SFT2 ;font/glyphs ADD2 .Screen/addr DEO2
;font ADD2 LDA #00 SWP .Screen/x DEI2 ADD2
#01 .Screen/sprite DEOk DEO
.Screen/x DEO2
INC2 LDAk ?&while
POP2
JMP2r
@word-length ( str* -- length* )
[ LIT2r 0000 ]
&while
LDAk #20 SUB #00 SWP ;font ADD2 LDA #00 SWP STH2 ADD2r
INC2 LDAk #20 GTH ?&while
POP2
STH2r
JMP2r
@phex ( short* -- ) SWP phex/b &b ( byte -- ) DUP #04 SFT phex/c &c ( char -- ) #0f AND DUP #09 GTH #27 MUL ADD #30 ADD #18 DEO JMP2r
(
@ -222,4 +268,146 @@ JMP2r
ff00 ff00 ff00 ffff ]
@line-icn [
00ff 0000 0000 0000 ]
@font ( newyork12 ) [
0404 0508 0709 0a03 0505 0606 0306 0307 0808 0808 0808 0808 0808 0303 0507 0507
0a0a 0807 0807 0708 0906 0508 080c 0908 0808 0807 0809 0a0d 0808 0604 0704 0407
0407 0806 0807 0507 0804 0408 040c 0807 0808 0606 0508 080b 0708 0605 0305 0601
0a0a 0707 0908 0907 0707 0707 0706 0707 0707 0404 0404 0807 0707 0707 0808 0808
0405 0708 0708 0907 0909 0904 0400 0c08 0000 0000 0800 0000 0000 0007 0600 0a07
0704 0000 0000 0007 0709 080a 0a08 0c0b 0509 0505 0303 0009 080a 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 00ff 0000 0000 0000 0000 ffff ffff ffff ffff
&glyphs
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0020 2020 2020 2020 0020 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0050 5000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0014 7e28 fc50 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 1038 5450 3010 1814 5438 1000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 003e 494a 3408 1629 4946 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0018 2428 1029 4542 4539 0000 0000 0000 0000 0000 0080 0000 0080 0000 0000
0000 0040 4000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 1020 2040 4040 4040 2020 1000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 4020 2010 1010 1010 2020 4000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 20a8 7070 a820 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 2020 f820 2000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0040 4080 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 7800 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0040 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0004 0408 0810 1020 2040 4000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0018 2442 4242 4242 2418 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0008 1808 0808 0808 081c 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0038 4404 0408 1020 447c 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0018 2404 0818 0402 0202 4438 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0004 0810 2444 7e04 040e 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 007c 4040 7804 0202 0204 0870 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 1820 4058 6442 4242 2418 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 007e 4204 0408 0810 1010 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0018 2424 1824 4242 4224 1800 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0018 2442 4242 261a 0204 1800 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 4000 0000 0040 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 4000 0000 0040 4080 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 1020 4020 1000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 007c 007c 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 4020 1020 4000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0038 4404 0408 1010 0010 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 001e 214c 5252 4d20 1e00 0000 0000 0000 0000 0080 8080 0000 0000 0000
0000 0008 0814 1422 3e41 41e3 0000 0000 0000 0000 0000 0000 0000 0080 0000 0000
0000 00f8 4444 7844 4242 44f8 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0038 4480 8080 8080 4438 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 00f8 4442 4242 4242 44f8 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 00fc 4440 4878 4840 44fc 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 00fc 4440 4878 4840 40e0 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 003c 4480 808e 8484 4438 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 00e7 4242 427e 4242 42e7 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0070 2020 2020 2020 2070 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0070 2020 2020 2020 2020 2020 c000 0000 0000 0000 0000 0000 0000 0000 0000
0000 00ee 4448 5060 5048 44ee 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0070 2020 2020 2020 227e 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 00e0 6060 5151 4a4a 44e4 0000 0000 0000 00e0 c0c0 4040 4040 40e0 0000 0000
0000 00e7 6252 524a 4a46 46e2 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0038 4482 8282 8282 4438 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 00f8 4442 4244 7840 40e0 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0038 4482 8282 8282 4438 100c 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 00f8 4444 4478 5048 44e6 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 003c 4440 2010 0804 4478 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 00fe 9210 1010 1010 1038 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 00e7 4242 4242 4242 2418 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 00e3 4141 2222 1414 0808 0000 0000 0000 0080 0000 0000 0000 0000 0000 0000
0000 0077 2222 1515 1508 0808 0000 0000 0000 0070 2020 4040 4080 8080 0000 0000
0000 00ee 4428 2810 2828 44ee 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 00ee 4428 2810 1010 1038 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 00f8 8810 1020 4040 88f8 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 6040 4040 4040 4040 4040 6000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0040 4020 2010 1008 0804 0400 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 6020 2020 2020 2020 2020 6000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0040 a000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 00fe 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0080 4020 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0070 8818 6888 8874 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0040 c058 6442 4242 6458 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0030 4880 8080 4830 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 000c 0434 4c84 8484 4e34 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0030 4884 fc80 4830 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0030 40e0 4040 4040 40e0 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0074 8888 8870 8078 8484 7800 0000 0000 0000 0000 0000 0000 0000 0000
0000 0040 c058 6444 4444 44ee 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0040 0040 c040 4040 40e0 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0040 0040 c040 4040 4040 4040 8000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0040 c04c 4850 6050 48ee 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0040 c040 4040 4040 40e0 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0059 e644 4444 44ee 0000 0000 0000 0000 0080 4040 4040 40e0 0000 0000
0000 0000 0058 e444 4444 44ee 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0030 4884 8484 4830 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 00f8 4442 4242 6458 4040 e000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0034 4c84 8484 4c34 0404 0e00 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0058 e040 4040 40e0 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0070 8880 7008 8870 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0040 40f0 4040 4040 4830 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 00cc 4444 4444 443a 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 00ee 4444 2828 1010 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 00e0 4444 2a2a 1111 0000 0000 0000 0000 00e0 4040 8080 0000 0000 0000
0000 0000 00ee 4428 1028 44ee 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 00ee 4444 2828 1010 2060 4000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 00f8 8810 2040 88f8 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0010 2020 2020 2040 2020 2020 2010 0000 0000 0000 0000 0000 0000 0000 0000 0000
0040 4040 4040 4040 4040 4040 4040 0000 0000 0000 0000 0000 0000 0000 0000 0000
0040 2020 2020 2010 2020 2020 2040 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0068 b000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 00ff 0000 0000 0000 0000 ffff ffff ffff ffff ]
@mem
"Keep 20 "up 20 "to 20 "eight 20 "pages 20 "of 20 "notes 20 "in 20 "the 20 "Note 20 "Pad. 20
"Click 20 "on 20 "the 20 "dog-ear 20 "to 20 "turn 20 "to 20 "to 20 "the 20 "next 20 "following 20 "page. 20
"Click 20 "in 20 "the 20 "lower 20 "left 20 "corner 20 "to 20 "turn 20 "to 20 "the 20 "next 20 "previous 20 "page.