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