10REM Load / init ram E/F Solidisk 20REM (C) L.Looyenga, Amersfoort The Netherlands. 30REM for 8Bit Software 40naam$="TDRom":bank$="F" 50DIMQ%60:FORi=0TO2STEP2:P%=Q% 60[OPTi:.move:SEI:LDA#15:STA&FE62:LDA &75:STA&FE60:LDY#0:.loop:LDA(&72),Y:STA( &70),Y:INY:BNEloop:INC&71:INC&73:LDA#&C0 :CMP&71:BNEloop:LDA#0:STA&F4:STA&FE30:LD A#&A1:STA&70:LDA#&02:STA&71:LDA#&C2:LDY& 75:STA(&70),Y:CLI:RTS:]:NEXT 70S$="LOAD "+naam$+" 3000":OSCLI S$ 80IFbank$="E"?&75=14ELSE?&75=15 90!&70=&30008000:CALL move 100*TD|M