ClrDraw

AxesOff

0->Xmin:256->Xmax

0->Ymin:256->Ymax

10->A

10->B

While 1

Lbl S

DispGraph

Pxl-On(A,B)

getKey->K

If K=105

Then

Stop

End

If K=45

Then

ClrDraw

End

If K=24

Then

B-1->B

Pxl-On(A,B

End

If K=25

Then

A-1->A

Pxl-On(A,B

End

If K=26

Then

B+1->B

Pxl-On(A,B

End

If K=34

Then

A+1->A

Pxl-On(A,B

End

If K=85

Then

While K=85

getKey->L

Pxl-On(A,B

If L=24

Then

B-1->B

Pxl-Off(A,B

Pxl-Off(A,B+1

End

If L=25

Then

A-1->A

Pxl-Off(A,B

Pxl-Off(A+1,B

End

If L=26

Then

B+1->B

Pxl-Off(A,B

Pxl-Off(A,B-1

End

If L=34

Then

A+1->A

Pxl-Off(A,B

Pxl-Off(A-1,B

End

If L=45

Then

ClrDraw

End

If L=95

11->K

End

End

End

End

End

A Drawing Program

Summary:

It's a drawing program that l hand-coded using the graph screen. Please feel free to suggest improvements to my code. The arrow keys move the pixel, press Clear to, well, clear, press enter to stop, press minus to enter erase mode, and press plus to go back to draw mode.