|00 @System &vector $2 &expansion $2 &wst $1 &rst $1 &metadata $2 &r $2 &g $2 &b $2 &debug $1 &state $1 |20 @Screen &vector $2 &width $2 &height $2 &auto $2 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 |a0 @File &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2 |c000 @source/length |100 @on-reset ( -> ) ( | system colors ) [ LIT2 0f -System/r ] DEO [ LIT2 0f -System/g ] DEO [ LIT2 0f -System/b ] DEO [ LIT2 15 -Screen/auto ] DEO .Screen/width DEI2 #01 SFT2 #0010 SUB2 ;on-frame/anchor-x STA2 .Screen/height DEI2 #01 SFT2 #0008 SUB2 ;on-frame/anchor-y STA2 ( | load source ) ;source/name .File/name DEO2 ;source/length .File/length DEO2 ;source/buf .File/read DEO2 ( | unlock ) ;on-frame .Screen/vector DEO2 BRK @on-frame ( -> ) ( | 36/60 - 0.6039604 ) [ LIT2 24 &f $1 ] INCk ,&f STR EQU ?{ BRK } ( | find word ) [ LIT2 &id =source/buf ] DUP2 #0005 ADD2 ,&id STR2 ( | reach end ) LDAk ?{ POP2 #0000 .Screen/vector DEO2 } ( | draw word ) [ LIT2 &anchor-x $2 ] .Screen/x DEO2 [ LIT2 &anchor-y $2 ] .Screen/y DEO2 emit emit emit emit POP2 [ LIT2 00 _&f ] STR BRK @emit ( addr* -- addr* ) LDAk #20 SUB #00 SWP #40 SFT2 ;font ADD2 .Screen/addr DEO2 [ LIT2 01 -Screen/sprite ] DEO INC2 JMP2r @source/name "2222.txt $1 @font [ 0000 0000 0000 0000 0000 0000 0000 0000 0038 3838 3838 3810 1010 1000 0010 3810 6c6c 2424 4800 0000 0000 0000 0000 0000 0012 1212 7f24 2424 2424 fe48 4848 4800 1038 5492 9690 5038 1412 d292 9478 1010 0262 9494 9498 6810 102c 3252 5252 8c80 0030 4848 4850 202e 5454 9488 8c72 0000 e0e0 2020 c000 0000 0000 0000 0000 0000 0204 0808 1010 1010 1010 1010 0808 0402 8040 2020 1010 1010 1010 1010 2020 4080 0000 0010 3892 d638 d692 3810 0000 0000 0000 0010 1010 10fe 1010 1010 0000 0000 0000 0000 0000 0000 0000 00e0 e020 20c0 0000 0000 0000 00fe 0000 0000 0000 0000 0000 0000 0000 0000 0000 0040 e0e0 4000 0202 0404 0808 0810 1010 2020 4040 8080 0018 2424 4242 4242 4242 4242 2424 1800 0010 7010 1010 1010 1010 1010 107c 0000 0018 2442 6202 0408 0810 2022 427e 0000 0038 4482 8202 0438 0402 8282 4438 0000 0008 1828 2848 4888 88fe 0808 083c 0000 00fc 8080 80b8 c482 0202 c282 4438 0000 003c 4246 8080 b8c4 8282 8282 4438 0000 00fe 8282 0404 0408 0808 0810 1010 1000 0038 4482 8282 4438 4482 8282 4438 0000 0038 4482 8282 8246 3a02 0282 4438 0000 0000 0000 0038 3800 0000 0000 3838 0000 0000 0000 0038 3800 0000 0038 3818 1030 0204 0408 0810 1020 2010 1008 0804 0402 0000 0000 00fe 0000 00fe 0000 0000 0000 8040 4020 2010 1008 0810 1020 2040 4080 0038 4482 c202 0404 0810 1000 0010 3810 003c 4282 9aa6 a2a2 a2a6 9a80 423c 0000 0010 2828 2844 4444 447c 8282 82c6 0000 00f8 4442 4242 4478 4442 4242 42fc 0000 003a 4642 8080 8080 8080 8242 423c 0000 00f8 4444 4242 4242 4242 4244 44f8 0000 00fe 4242 4048 4878 4848 4242 42fe 0000 00fe 4242 4048 4878 4848 4040 40f0 0000 001a 2642 4080 808f 8282 8242 661a 0000 00e7 4242 4242 7e42 4242 4242 42e7 0000 00fe 1010 1010 1010 1010 1010 10fe 0000 001f 0202 0202 0202 0282 8282 4438 0000 00e6 4444 4848 7050 4848 4444 42e3 0000 00f0 4040 4040 4040 4040 4242 42fe 0000 0082 c6aa aaaa 9292 9282 8282 82c6 0000 0087 c2a2 a2a2 9292 928a 8a8a 86c2 0000 0038 4482 8282 8282 8282 8282 4438 0000 00f8 4442 4242 4244 7840 4040 40f0 0000 0038 4444 8282 8282 8282 ba44 4438 0806 00f8 4442 4242 4478 4844 4444 42e3 0000 0034 4c84 8080 6018 0482 8282 c4b8 0000 00fe 9292 1010 1010 1010 1010 107c 0000 00e7 4242 4242 4242 4242 4242 423c 0000 00c6 8282 8282 4444 4444 2828 1010 0000 00c6 8282 8292 9292 aaaa aa44 4444 0000 00ee 4444 2828 1028 2828 4444 82c6 0000 00c6 8244 4444 2828 1010 1010 107c 0000 00fe 8488 0810 1010 2020 4242 82fe 0000 1e10 1010 1010 1010 1010 1010 1010 101e 0080 8040 4020 2010 1008 0804 0402 0200 f010 1010 1010 1010 1010 1010 1010 10f0 1028 4482 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 00ff 3030 2020 1000 0000 0000 0000 0000 0000 0000 0000 003c 4202 3e42 8282 867b 0000 00c0 4040 4078 4442 4242 4242 4478 0000 0000 0000 003a 4682 8080 8082 423c 0000 0006 0404 043c 4484 8484 8484 443e 0000 0000 0000 0038 4482 fe80 8082 423c 0000 000e 1110 10fe 1010 1010 1010 107c 0000 0000 0000 003b 4444 4438 4078 8482 827c 00c0 4040 405c 6242 4242 4242 42e7 0000 1818 0000 0078 0808 0808 0808 08ff 0000 0606 0000 003e 0202 0202 0202 8282 4438 00c0 4040 4042 4448 5864 4442 42e3 0000 0078 0808 0808 0808 0808 0808 08ff 0000 0000 0000 006c 9292 9292 9292 92db 0000 0000 0000 00dc 6242 4242 4242 42e7 0000 0000 0000 0038 4482 8282 8282 4438 0000 0000 0000 00f8 4442 4242 4244 7840 40f0 0000 0000 003e 4484 8484 8444 3c04 041e 0000 0000 00ec 3222 2020 2020 20fc 0000 0000 0000 003a 4642 403c 0282 c2bc 0000 0000 2020 20fc 2020 2020 2022 221c 0000 0000 0000 00c6 4242 4242 4242 4639 0000 0000 0000 00c6 8282 4444 4428 2810 0000 0000 0000 0092 9292 92aa aa44 4444 0000 0000 0000 00ee 4428 2810 2828 44ee 0000 0000 0000 00e7 4222 2414 0808 1090 a040 0000 0000 007e 4408 0810 1022 42fe 0000 0608 0808 0808 1020 1008 0808 0808 0806 1010 1010 1010 1010 1010 1010 1010 1010 c020 2020 2020 1008 1020 2020 2020 20c0 6092 0c00 0000 0000 0000 0000 0000 0000 ] @source/buf $source/length