QRSS + 16F628A mockup

I spent some time tonight bonding with the 16F628A and BASIC tonight.  I mocked up the LCD display and started figuring out some of the variables that I am going to need.



----Tonights Code----
program QRSSKeyer

'LCD Module Connections
dim LCD_RS as sbit at RB6_bit
    LCD_EN as sbit at RB4_bit
    LCD_D4 as sbit at RB0_bit
    LCD_D5 as sbit at RB1_bit
    LCD_D6 as sbit at RB2_bit
    LCD_D7 as sbit at RB3_bit
    LCD_RS_Direction as sbit at TRISB6_bit
    LCD_EN_Direction as sbit at TRISB4_bit
    LCD_D4_Direction as sbit at TRISB0_bit
    LCD_D5_Direction as sbit at TRISB1_bit
    LCD_D6_Direction as sbit at TRISB2_bit
    LCD_D7_Direction as sbit at TRISB3_bit
'End LCD module Connections

dim callsign as string[10] '10 char for message
    qtime as string[2]     '60, 30, 10, 6, 3
    qmode as string[4]     'CW or DFCW
    freq as string[10]     '10.140.050
    'Freq will eventually be the counter once it is built


main:

callsign = "NG0R"
   qtime = "10"
   qmode = "DFCW"
    freq = "10.140.050"

'PIC setup
TRISB = 0     ' Set PORTB as OUTPUT
PORTB = 0     ' Set PORTB all pins to 'off'
'End Pic Setup

'LCD Setup Section
LCD_Init()               'Initialize the LCD library
LCD_Cmd(_LCD_Clear)      'Clear the LCD display
LCD_Cmd(_LCD_Cursor_Off) 'Turns blinking cursor off
'End LCD Setup Section

LCD_Out(1, 1, callsign)  'Show the message
LCD_Out(1, 14, "Q")      'Write text
LCD_Out(1, 15, qtime)    'Show the qrssXX mode
LCD_Out(2, 1, freq)      'Show the freq
LCD_Out(2, 13, qmode)    'Show the mode

end.