10 REM Load / init ram E/F Solidisk
   20 REM (C) L.Looyenga, Amersfoort                  The Netherlands.
   30 REM for 8Bit Software
   40 naam$="TDRom":bank$="F"
   50 DIMQ%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:LDA#&A1:STA&70:LDA#&02:STA&71:LDA#&C2:LDY&75:STA(&70),Y:CLI:RTS:]:NEXT
   70 S$="LOAD "+naam$+" 3000":OSCLI S$
   80 IFbank$="E"?&75=14ELSE?&75=15
   90 !&70=&30008000:CALL move
  100 *TD|M