Advertisement
Pieman7373

Untitled

May 11th, 2017
77
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.21 KB | None | 0 0
  1. Lbl SAVE
  2. SetColor(0
  3. FillRectangle(40,40,50,50
  4. SetColor(254
  5. Rectangle(41,41,48,48
  6. Rectangle(42,42,46,46
  7. Lbl SAVEGETKEY
  8. getKey->K
  9. If K=53
  10. Goto DRAWSCREEN
  11. End
  12. If K
  13. Goto Save
  14. End
  15. Goto SAVEBETKEY
  16. Return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement