Merge pull request #7 from a2-4am/master

bugfix: &FILL should support mousetext characters [fixes #6]
This commit is contained in:
blondie7575 2017-12-20 11:01:37 -08:00 committed by GitHub
commit a5cf785e74
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
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.