0 HL=MAXRAM-1682:CLEAR700,HL 'clear 1682 byte buffer ending at MAXRAM for saving & loading .CO picture data
7 CLS:S=1:YI=1:ONERRORGOTO71:IFINKEY$=CHR$(27)THEN9
10 '
15 IF I$=CHR$(21)THENGOSUB2002:PRINT@280,"         SAVING PICTURE...            ";:QZ$="S":GOSUB2000:SAVEMFILE$,HIMEM,HIMEM+1690
17 IF I$=CHR$(12)THENGOSUB2002:PRINT@280,"         LOADING PICTURE...            " ;:QZ$="L":LOADMFILE$:X=120:Y=32:GOSUB2000
2000 POKEHIMEM,201:HL=HIMEM+1:MZ%(1)=13005:MZ%(2)=-13964:IFQZ$="S"ORQZ$="s"THENMZ%(0)=22ELSEMZ%(0)=278
2001 FOR RZ%=0TO6:FORCZ%=0TO39:CALL30300:POKE-12,RZ%:POKE-11,CZ%:CALLVARPTR(MZ%(0)),0,HL:HL=HL+6:NEXT:NEXT:PRINT@280,SPACE$(39);:RETURN
2002 IFFILE$=""THENPRINT@280,SPACE$(39);:ONERRORGOTO71:GOTO124ELSERETURN