M src/apps.tal => src/apps.tal +6 -2
@@ 437,10 437,14 @@ JMP2r
INC2k INC2 LDA2 #001c ADD2 .Screen/y DEO2
DUP2 #0008 ADD2 LDA2 ;make-src JSR2
- ;has-metadata JSR2 ,&valid JCN
+ ;has-metadata JSR2 ,&valid-metadata JCN
+ ( TODO: make prettier )
+ ;dict/no-metadata ;draw-str JSR2 POP2
POP2
-&valid ( win* -- )
+JMP2r
+
+&valid-metadata ( win* -- )
;load-metadata JSR2
M src/assets.tal => src/assets.tal +1 -0
@@ 35,6 35,7 @@
"Jan $1 "Feb $1 "Mar $1 "Apr $1 "May $1 "Jun $1
"Jul $1 "Aug $1 "Sep $1 "Oct $1 "Nov $1 "Dec $1
&err-space "Space 20 "Unavailable $1
+ &no-metadata "Metadata 20 "Missing $1
( icn )