bugfix: &FILL should support mousetext characters [fixes #6]

This commit is contained in:
4am 2017-12-20 09:20:54 -05:00
parent 971da7c4da
commit 03132095c6
2 changed files with 4 additions and 6 deletions

View File

@ -468,7 +468,7 @@ WGAmpersand_CHKBX:
lda #VIEW_STYLE_APPLESOFT
ora WG_VIEWRECORDS+4,y
sta WG_VIEWRECORDS+4,y
jsr WGPaintView
jsr WGBottomCursor
@ -505,7 +505,7 @@ WGAmpersand_PROG:
lda #VIEW_STYLE_APPLESOFT
ora WG_VIEWRECORDS+4,y
sta WG_VIEWRECORDS+4,y
jsr WGPaintView
jsr WGBottomCursor
@ -871,7 +871,6 @@ WGAmpersand_FILL:
jsr WGAmpersandNextArgument
jsr WGAmpersandIntArgument
ora #$80 ; Convert to Apple format
pha
jsr WGAmpersandEndArguments
@ -956,7 +955,7 @@ WGAmpersand_PLOT:
pla
jsr WGPlot
jsr WGBottomCursor
rts
@ -1033,7 +1032,7 @@ WGAmpersand_GETstore:
iny
pla
sta (VARPNT),y
; String version:
; sta WG_KEYBUFFER ; Store the key
; lda #1 ; Create an Applesoft string record in the
@ -1276,4 +1275,3 @@ WGAmpersandCommandTable:
WGAmpersandCommandTableEnd:

Binary file not shown.