password08_mod.bas

 set smartbranching off
 set kernel_options no_blank_lines
 set romsize 4k

 dim vidmem=$a4

 dim cooldown = a
 dim curchar = b
 dim curfield = c
 dim mytemp = d
 dim result = e
 dim counter = f
 dim flash = g

 const hot = 10
 const hotp = hot + 1

 cooldown = hotp
 curfield = 0
 curchar = 0

 COLUBK = $80
 COLUPF = $0E

main
 counter = counter + 1
 if cooldown  then cooldown = cooldown -  1 : goto do_cursor
 if joy0fire  then  curchar = (curchar ^ 32) & 63   : cooldown = hot
 if joy0down  then  curchar = (curchar -  1) & 63   : cooldown = hot
 if joy0up    then  curchar = (curchar +  1) & 63   : cooldown = hot
 if joy0right then    temp1 =  1 : gosub chng_field : cooldown = hot
 if joy0left  then    temp1 = -1 : gosub chng_field : cooldown = hot

 rem  d get's set by the printchar routine and is used
 rem  to restore the screen under the cursor

do_cursor
 if cooldown = hot then gosub printchar
 temp3 = scr_add[curfield] + 16
 if counter{0} then vidmem[temp3] = d else vidmem[temp3] = 255
 drawscreen
 goto main

printchar
  temp4 = scr_add[curfield]
  temp5 = curchar & 31
  temp5 = temp5 * 5
  temp6 = temp5 + 4
  for temp5 = temp5 to temp6
  if curchar{5} then d = PassFonthi[temp5] else d = PassFontlo[temp5]
  if curfield{0} then d = rev(d)
  vidmem[temp4] = d
  temp4 = temp4 + 4
  next
  return

 data scr_add
 0, 1, 2, 3, 24, 25, 26, 27
end


  rem  restores the screen under the cursor then
  rem  increments or decrements the field

chng_field
  temp2 = scr_add[curfield] + 16
  vidmem[temp2] = d
  curfield = (curfield + temp1) & 7
  return

  function rev()
 asm
  tax
  and #$0F
  tay
  txa
  lsr
  lsr
  lsr
  lsr
  tax
  lda revhi,y
  ora revlo,x
  rts
end
 return

 data revhi
 $00, $80, $40, $C0, $20, $A0, $60, $E0
 $10, $90, $50, $D0, $30, $B0, $70, $F0
end

 data revlo
 $00, $08, $04, $0C, $02, $0A, $06, $0E
 $01, $09, $05, $0D, $03, $0B, $07, $0F
end


 data PassFonthi
 %00011100,
 %00100010,
 %00111110,
 %01000001,
 %01000001,

 %01111110,
 %01000001,
 %01111110,
 %01000001,
 %01111111,

 %00111111,
 %01000000,
 %01000000,
 %01000000,
 %00111111,

 %01111100,
 %01000010,
 %01000001,
 %01000001,
 %01111111,

 %01111111,
 %01000000,
 %01110000,
 %01000000,
 %01111111,

 %01111111,
 %01000000,
 %01110000,
 %01000000,
 %01000000,

 %00111111,
 %01000000,
 %01000111,
 %01000001,
 %00111111,

 %01000001,
 %01000001,
 %01111111,
 %01000001,
 %01000001,

 %00011100,
 %00001000,
 %00001000,
 %00001000,
 %00011100,

 %00000001,
 %00000001,
 %00000001,
 %01000001,
 %00111110,

 %01000011,
 %01000100,
 %01111000,
 %01000100,
 %01000011,

 %01000000,
 %01000000,
 %01000000,
 %01000000,
 %01111111,

 %01000001,
 %01100011,
 %01010101,
 %01001001,
 %01000001,

 %01000001,
 %01100001,
 %01011101,
 %01000011,
 %01000001,

 %00111110,
 %01000001,
 %01000001,
 %01000001,
 %00111110,

 %01111110,
 %01000001,
 %01111110,
 %01000000,
 %01000000,

 %00111110,
 %01000001,
 %01000101,
 %01000010,
 %00111101,

 %01111110,
 %01000001,
 %01111110,
 %01000001,
 %01000001,

 %00111111,
 %01000000,
 %00111110,
 %00000001,
 %01111110,

 %01111111,
 %00001000,
 %00001000,
 %00001000,
 %00001000,

 %01000001,
 %01000001,
 %01000001,
 %01000001,
 %00111110,

 %01000001,
 %01000001,
 %00100010,
 %00010100,
 %00001000,

 %01000001,
 %01001001,
 %01010101,
 %01100011,
 %01000001,

 %01000001,
 %00100010,
 %00011100,
 %00100010,
 %01000001,

 %01000001,
 %00100010,
 %00011100,
 %00001000,
 %00001000,

 %01111111,
 %00000010,
 %00011100,
 %00100000,
 %01111111,

 %00111110,
 %01000101,
 %01001001,
 %01010001,
 %00111110,

 %00001000,
 %00011000,
 %00001000,
 %00001000,
 %00111110,

 %00111110,
 %01000001,
 %00011110,
 %00100000,
 %01111111,

 %01111111,
 %00000001,
 %00001110,
 %00000001,
 %01111110,

 %00100001,
 %01000001,
 %01111111,
 %00000001,
 %00000001,

 %01111111,
 %01000000,
 %01111110,
 %00000001,
 %01111110
end

 data PassFontlo

 %00000000,
 %00011111,
 %00100001,
 %00100011,
 %00011101,

 %00100000,
 %00100000,
 %00111110,
 %00100001,
 %00111110,

 %00000000,
 %00011111,
 %00100000,
 %00100000,
 %00011111,

 %00000001,
 %00000001,
 %00011111,
 %00100001,
 %00011111,

 %00011110,
 %00100001,
 %00111111,
 %00100000,
 %00011110,

 %00000110,
 %00001000,
 %00011100,
 %00001000,
 %00001000,

 %00011110,
 %00100010,
 %00011110,
 %00000010,
 %00011100,

 %00100000,
 %00100000,
 %00111100,
 %00100010,
 %00100010,

 %00001000,
 %00000000,
 %00011000,
 %00001000,
 %00011100,

 %00000110,
 %00000010,
 %00000010,
 %00010010,
 %00001100,

 %00100000,
 %00100110,
 %00111000,
 %00100100,
 %00100010,

 %00011000,
 %00001000,
 %00001000,
 %00001000,
 %00011100,

 %00000000,
 %00110100,
 %00101010,
 %00101010,
 %00100010,

 %00000000,
 %00111100,
 %00100010,
 %00100010,
 %00100010,

 %00000000,
 %00011100,
 %00100010,
 %00100010,
 %00011100,

 %00111100,
 %00100010,
 %00111100,
 %00100000,
 %00100000,

 %00011110,
 %00100010,
 %00011110,
 %00000010,
 %00000010,

 %00000000,
 %00111100,
 %00100010,
 %00100000,
 %00100000,

 %00000000,
 %00011110,
 %00110000,
 %00001110,
 %00111100,

 %00000100,
 %00000100,
 %00001110,
 %00000100,
 %00000110,

 %00000000,
 %00100010,
 %00100010,
 %00100010,
 %00011100,

 %00000000,
 %00100010,
 %00100010,
 %00010100,
 %00001000,

 %00000000,
 %00100010,
 %00100010,
 %00101010,
 %00010110,

 %00000000,
 %00110011,
 %00001100,
 %00010010,
 %00100001,

 %00000000,
 %00010010,
 %00011110,
 %00000010,
 %00001100,

 %00000000,
 %00111110,
 %00001100,
 %00010000,
 %00111110,

 %00111111,
 %01000000,
 %01111110,
 %01000001,
 %00111110,

 %01111111,
 %00000001,
 %00000110,
 %00001000,
 %00001000,

 %00111110,
 %01000001,
 %00111110,
 %01000001,
 %00111110,

 %00111110,
 %01000001,
 %00111111,
 %00000001,
 %01111110,

 %00111100,
 %01100110,
 %00001100,
 %00000000,
 %00011000,

 %00001100,
 %00001100,
 %00001100,
 %00000000,
 %00001100
end