paint program, need help

[Agamemnus]

Just try this.....

Code:

DEFINT A-Z
SCREEN 13

' The border of the drawing area
LINE (50, 50)-(67, 50), 15
LINE (67, 50)-(67, 67), 15
LINE (67, 67)-(50, 67), 15
LINE (50, 67)-(50, 50), 15

' The cursor
x% = 51
y% = 51
i$ = INKEY$
colour% = 0
PSET (1, 1), 15
DIM dot%(2)
GET (1, 1)-(1, 1), dot%
PSET (1, 1), 0
'cls
'put (5,5), dot%
'sleep
'system
' The almighty loop
DO
I$ = INKEY$
if I$ <> "" THEN
GOSUB cursor
GOSUB colourchoose
GOSUB drawpixel
GOSUB saveas
GOSUB loadas
GOSUB exitas
IF exitloop% = 1 THEN EXIT DO
END IF
LOOP
SLEEP
PRINT "Program has ended. Thanks for using.."

system


' SUB cursor

cursor:
PUT (x%, y%), dot%
IF i$ = CHR$(255) + "P" THEN y% = y% + 1
IF i$ = CHR$(255) + "H" THEN y% = y% - 1
IF i$ = CHR$(255) + "M" THEN x% = x% + 1
IF i$ = CHR$(255) + "K" THEN x% = x% - 1
PUT (x%, y%), dot%
IF x% < 51 THEN x% = 51
IF x% > 66 THEN x% = 66
IF y% < 51 THEN y% = 51
IF y% > 66 THEN y% = 66
RETURN

' SUB colorchoose
colourchoose:
IF i$ = "+" THEN colour% = colour% + 1
IF i$ = "-" THEN colour% = colour% - 1
IF colour% < 0 THEN colour% = 0
IF colour% > 255 THEN colour% = 255
' The current color box
LINE (69, 69)-(76, 69), colour%
LINE (76, 69)-(76, 76), colour%
LINE (76, 76)-(69, 76), colour%
LINE (69, 76)-(69, 69), colour%
PAINT (70, 70), colour%
' 1 pixel of selected color
PSET (1, 1), colour%
DIM pixel%(2)
GET (1, 1)-(1, 1), pixel%
PSET (1, 1), 0
RETURN

' SUB draw
drawpixel:
IF i$ = " " THEN PUT (x%, y%), pixel%
RETURN

' SUB save
saveas:
IF i$ = "s" OR i$ = "S" THEN INPUT "Are you sure you would like to SAVE? Y/N", response$
'IF response$ = "y" OR i$ = "Y" THEN SAVE
'IF response$ = "n" OR i$ = "N" THEN RETURN
return

' SUB load  
loadas:
IF i$ = "s" OR i$ = "S" THEN INPUT "Are you sure you would like to LOAD? Y/N", response$
'IF response$ = "y" OR i$ = "Y" THEN LOAD
'IF response$ = "n" OR i$ = "N" THEN RETURN
return

' SUB exit
exitas:
IF i$ = "x" OR i$ = "X" THEN INPUT "Are you sure you would like to EXIT? Y/N", response$
IF response$ = "y" OR i$ = "Y" THEN exitloop% = 1
'IF response$ = "n" OR i$ = "N" THEN RETURN
return