Browse code
(dos.tal) When in doubt, add flowers
neauoire authored on 23/01/2022 19:18:55
Showing 1 changed files
| ... | ... |
@@ -37,9 +37,9 @@ |
| 37 | 37 |
|
| 38 | 38 |
%RTN { JMP2r }
|
| 39 | 39 |
|
| 40 |
-%WIDTH { #50 }
|
|
| 41 |
-%HEIGHT { #28 }
|
|
| 42 |
-%PAD { #0020 }
|
|
| 40 |
+%WIDTH { #40 }
|
|
| 41 |
+%HEIGHT { #20 }
|
|
| 42 |
+%PAD { #0018 }
|
|
| 43 | 43 |
|
| 44 | 44 |
( devices ) |
| 45 | 45 |
|
| ... | ... |
@@ -55,15 +55,16 @@ |
| 55 | 55 |
|
| 56 | 56 |
@buffer $80 |
| 57 | 57 |
@path $40 |
| 58 |
+@frame $1 |
|
| 58 | 59 |
|
| 59 | 60 |
( init ) |
| 60 | 61 |
|
| 61 | 62 |
|0100 ( -> ) |
| 62 | 63 |
|
| 63 | 64 |
( theme ) |
| 64 |
- #0f55 .System/r DEO2 |
|
| 65 |
- #0fc5 .System/g DEO2 |
|
| 66 |
- #0fa5 .System/b DEO2 |
|
| 65 |
+ #05f5 .System/r DEO2 |
|
| 66 |
+ #0cf5 .System/g DEO2 |
|
| 67 |
+ #0af5 .System/b DEO2 |
|
| 67 | 68 |
|
| 68 | 69 |
( vectors ) |
| 69 | 70 |
;on-button .Controller/vector DEO2 |
| ... | ... |
@@ -90,16 +91,19 @@ BRK |
| 90 | 91 |
#00 ;draw-input JSR2 |
| 91 | 92 |
;validate JSR2 |
| 92 | 93 |
#01 ;draw-input JSR2 |
| 94 |
+ .frame LDZk INC SWP STZ |
|
| 93 | 95 |
&no-enter |
| 94 | 96 |
DUP #08 ! ,&no-backspace JCN |
| 95 | 97 |
#00 ;draw-input JSR2 |
| 96 | 98 |
;buffer ;spop JSR2 |
| 97 | 99 |
#04 ;draw-input JSR2 |
| 100 |
+ .frame LDZk INC SWP STZ |
|
| 98 | 101 |
&no-backspace |
| 99 | 102 |
DUP STHk #1f > STHr #7b < #0101 !! ,&no-valid JCN |
| 100 | 103 |
;buffer ;slen JSR2 #007f >> ,&no-valid JCN |
| 101 | 104 |
STHk ;buffer STHr ;sput JSR2 |
| 102 | 105 |
#04 ;draw-input JSR2 |
| 106 |
+ .frame LDZk INC SWP STZ |
|
| 103 | 107 |
&no-valid |
| 104 | 108 |
POP |
| 105 | 109 |
|
| ... | ... |
@@ -177,7 +181,14 @@ RTN |
| 177 | 181 |
@cmd-rm "rm $1 &docs "remove_file $1 |
| 178 | 182 |
&func |
| 179 | 183 |
|
| 184 |
+ ;buffer #0003 ++ .File/name DEO2 |
|
| 185 |
+ #01 .File/delete DEO |
|
| 186 |
+ |
|
| 187 |
+ ;&remove-txt #01 ;draw-str JSR2 |
|
| 188 |
+ ;buffer #0003 ++ #01 ;draw-str JSR2 |
|
| 189 |
+ |
|
| 180 | 190 |
RTN |
| 191 |
+ &remove-txt "removed_file: $1 |
|
| 181 | 192 |
|
| 182 | 193 |
@cmd-tx "tx $1 &docs "display_file_as_text $1 |
| 183 | 194 |
&func |
| ... | ... |
@@ -303,7 +314,11 @@ RTN |
| 303 | 314 |
PAD .Screen/x DEO2 |
| 304 | 315 |
.Screen/height DEI2 PAD -- .Screen/y DEO2 |
| 305 | 316 |
|
| 306 |
- ( marker ) LIT '> #01 ;draw-char JSR2 |
|
| 317 |
+ ( flower ) |
|
| 318 |
+ ;flowers-icn #00 .frame LDZ #06 MOD 20** ++ .Screen/addr DEO2 |
|
| 319 |
+ #81 .Screen/sprite DEOk DEO |
|
| 320 |
+ .Screen/y DEI2 #0010 -- .Screen/y DEO2 |
|
| 321 |
+ .Screen/x DEI2 #0008 ++ .Screen/x DEO2 |
|
| 307 | 322 |
|
| 308 | 323 |
#20 #00 ;draw-char JSR2 |
| 309 | 324 |
|
| ... | ... |
@@ -491,6 +506,20 @@ JMP2r |
| 491 | 506 |
aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55 |
| 492 | 507 |
aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55 |
| 493 | 508 |
|
| 509 |
+@flowers-icn ( by elioat ) |
|
| 510 |
+ 0000 0020 1408 0810 40a0 4205 0200 40a0 |
|
| 511 |
+ 0810 103c 7e7e 3c18 4205 0234 7e7e 3c18 |
|
| 512 |
+ 0000 0020 100c 0818 0040 a042 0522 5024 |
|
| 513 |
+ 0008 083c 7e7e 3c18 0a04 002c 7e7e 3c18 |
|
| 514 |
+ 0000 0000 0000 000c 0000 0000 0000 0000 |
|
| 515 |
+ 1c10 083c 7e7e 3c18 0000 002c 7e7e 3c18 |
|
| 516 |
+ 0000 0000 0000 0004 0000 0000 0002 0502 |
|
| 517 |
+ 0810 103c 7e7e 3c18 0000 0034 7e7e 3c18 |
|
| 518 |
+ 0000 0000 0000 0010 0000 0000 0020 5225 |
|
| 519 |
+ 080c 083c 7e7e 3c18 0200 002c 7e7e 3c18 |
|
| 520 |
+ 0000 0000 0800 1800 0000 040a 2450 240a |
|
| 521 |
+ 1010 103c 7e7e 3c18 0400 0034 7e7e 3c18 |
|
| 522 |
+ |
|
| 494 | 523 |
@font ( terminus01x02 ) |
| 495 | 524 |
0000 0000 0000 0000 0000 0000 0000 0000 |
| 496 | 525 |
0000 183c 3c3c 1818 1800 1818 0000 0000 |