fi$="NEW"
10 SCREEN 4:CLS
 X=0:Y=0:OX=0:OY=0:m=1
 PSET(X,Y),1
20 A$=INKEY$ : IF A$="" THEN 20
 IF A$="e" THEN 10
 if a$="l" then screen 7 : input "Filename";fi$ : screen 4 : pgload fi$
 if a$="s" then pgsave fi$ : beep
 IF A$="K" THEN X=X-1:if x<0 then x=0
 IF A$="M" THEN X=X+1:if x>199 then x=199
 IF A$="H" THEN Y=Y-1:if y<0 then y=0
 IF A$="P" THEN Y=Y+1:if y>63 then y=63
 IF A$="S" THEN M=-M
 if a$="G" then x=0:y=0
 IF A$=chr$(27) THEN SCREEN 2 : system
 IF M<0 THEN PSET(OX,OY),0
 PSET(X,Y),1 : OX=X : OY=Y
 GOTO 20