10 REM Rom save and load program               for Solidisk SWR - Bank E/F
   20 REM (C) L.Looyenga, Amersfoort                  The Netherlands.
   30 REM for 8Bit Software
   40 MODE7:DIMQ%60:FORi=0TO2STEP2:P%=Q%
   50 [OPTi:.save:SEI:LDA&75:STA&F4:STA&FE30:LDY#0:JMPloop:.load:SEI:LDA#15:STA&FE62:LDA&75:STA&FE60:LDY#0:.loop:LDA(&70),Y:STA(&72),Y:INY:BNEloop:INC&71:INC&73
   60 LDA#&C0:CMP&71:BEQquit:LDA#&C0:CMP&73:BNEloop:.quit:LDA#0:STA&F4:STA&FE30:CLI:RTS:]:NEXT
   70 :
   80 REPEAT:PRINT''" Rom  Save / Load or Quit.... ";
   90 t$=GET$:IFt$="S"THEN PROCs ELSE IFt$="L"THEN PROCl ELSE IFt$<>"Q"THEN90
  100 UNTILt$="Q":PRINT'':END
  110 :
  120 DEFPROCs:!&70=&30008000:PRINTt$;
  130 INPUT''" Rom nr. "r%:?&75=r%:CALL save:INPUT'" Save name "N$:S$="SAVE "+N$+" 3000 +4000 8000 8000":OSCLI S$
  140 ENDPROC
  150 :
  160 DEFPROCl:!&70=&80003000:PRINTt$;
  170 INPUT''" Rom name "N$:S$="LOAD "+N$+" 3000":OSCLI S$:PRINT'" Bank E/F ";
  180 REPEAT:r%=GET:UNTILr%=69ORr%=70:PRINTCHR$r%'':?&75=r%-55:CALL load
  190 ENDPROC