@@ 101,35 101,34 @@
BRK
@manifest
- &menu
- 05 "File $1
- 01 "n =file-new "New $1
- 01 "r =file-rename "Rename $1
- 01 "o =file-open "Open $1
- 01 "s =file-save "Save $1
- 01 "q =exit "Exit $1
- 03 "Edit $1
- 01 "c =edit-copy "Copy $1
- 01 "C =edit-copy-string "CopyText $1
- 01 "v =edit-paste "Paste $1
- 09 "Move $1
- 10 00 =move-up "Up $1
- 20 00 =move-down "Down $1
- 40 00 =move-left "Left $1
- 80 00 =move-right "Right $1
- 14 00 =move-dech "Decr.H $1
- 24 00 =move-inch "Incr.H $1
- 44 00 =move-decw "Decr.W $1
- 84 00 =move-incw "Incr.W $1
- 00 1b =move-reset "Reset $1
- 06 "Options $1
- 00 0d =option-insert "Insert $1
- 00 08 =option-erase "Erase $1
- 00 ". =option-incr "ValIncr $1
- 00 ", =option-decr "ValDecr $1
- 04 "< =option-roll "RollLeft $1
- 04 "> =option-rolr "RollRight $1
- $1
+ 05 "File $1
+ 01 "n =file-new "New $1
+ 01 "r =file-rename "Rename $1
+ 01 "o =file-open "Open $1
+ 01 "s =file-save "Save $1
+ 01 "q =exit "Exit $1
+ 03 "Edit $1
+ 01 "c =edit-copy "Copy $1
+ 01 "C =edit-copy-string "CopyText $1
+ 01 "v =edit-paste "Paste $1
+ 09 "Move $1
+ 10 00 =move-up "Up $1
+ 20 00 =move-down "Down $1
+ 40 00 =move-left "Left $1
+ 80 00 =move-right "Right $1
+ 14 00 =move-dech "Decr.H $1
+ 24 00 =move-inch "Incr.H $1
+ 44 00 =move-decw "Decr.W $1
+ 84 00 =move-incw "Incr.W $1
+ 00 1b =move-reset "Reset $1
+ 06 "Options $1
+ 00 0d =option-insert "Insert $1
+ 00 08 =option-erase "Erase $1
+ 00 ". =option-incr "ValIncr $1
+ 00 ", =option-decr "ValDecr $1
+ 04 "< =option-roll "RollLeft $1
+ 04 "> =option-rolr "RollRight $1
+ $1
(
@|vectors )
@@ 779,8 778,8 @@ JMP2r
.options-frame/x LDZ2 #0028 ADD2 .Screen/x DEO2
.options-frame/y LDZ2 .Screen/y DEO2
;filepath ( scroll )
- DUP2 ;slen JSR2 #0014 GTH2 #00 SWP
- ;filepath ;slen JSR2 #0014 SUB2 MUL2 ADD2
+ DUP2 ;slen JSR2 #0014 GTH2k STH
+ SUB2 #00 STHr MUL2 ADD2
ROT
;draw-string ( .. )