// Test string encoding via literals
.pc = $801 "Basic"
:BasicUpstart(main)
.pc = $80d "Program"
main: {
    .label SCREEN = $400
    ldx #0
  b1:
    lda screencode_mixed1,x
    sta SCREEN+$28*2,x
    lda petscii_mixed1,x
    sta SCREEN,x
    lda petscii_mixed2,x
    sta SCREEN+$28*1,x
    lda screencode_mixed2,x
    sta SCREEN+$28*2,x
    lda screencode_upper,x
    sta SCREEN+$28*4,x
    lda screencode_mixed3,x
    sta SCREEN+$28*3,x
    inx
    cpx #6
    bne b1
    rts
}
  // Default encoding (screencode_mixed)
  screencode_mixed1: .text "abcABC1@"
.encoding "petscii_mixed"
  petscii_mixed1: .text "abcABC2@"
  petscii_mixed2: .text "abcABC3@"
.encoding "screencode_mixed"
  screencode_mixed2: .text "abcABC4@"
  // Override default encoding using suffix
.encoding "screencode_upper"
  screencode_upper: .text "abcABC5@"
.encoding "screencode_mixed"
  screencode_mixed3: .text "abcABC6@"
