10 n$="ecran":DEFINT a-z:CALL &BC02:INK 0,13:x=311:y=197:p=4:MODE 0:WHILE q=0:a$="":WHILE a$<>"E":a$=UPPER$(INKEY$):IF a$="L" THEN LOAD n$ ELSE IF a$="S" THEN SAVE n$,b,&C000,&3FFF ELSE IF INKEY(47)=0 THEN FOR z=1 TO 9 STEP 4:PLOT x+z,y,p:DRAWR 0,10:NEXT
20 t=TEST(x+6,y+4):PLOT x+6,y,15:DRAWR 0,9:c=x:l=y:x=x+12*(a$=CHR$(242)OR -(a$=CHR$(243))):x=MAX(0,x MOD 635):y=y+12*(a$=CHR$(241)OR -(a$=CHR$(240))):y=MAX(5,y MOD 401):PLOT c+6,l,t:DRAWR 0,9:p=(p+-(a$="C"))MOD 16:PLOT 0,0,p:DRAWR 639,0:WEND:CLG p:WEND'PM