10ON ERROR GOTO 140
   20MODE 7
   30PRINT''
   40PRINTCHR$(141)+"      1"+CHR$(140)+CHR$(131)+"    Read ROMs to file"
   50PRINTCHR$(141)+"      1"
   60PRINTCHR$(141)+"      2"+CHR$(140)+CHR$(130)+"    Load into sideways RAM"
   70PRINTCHR$(141)+"      2"
   80PRINT'"Press"+CHR$(131)+"1"+CHR$(135)+"or"+CHR$(130)+"2"'
   90REPEAT
  100   I%=GET-ASC("0")
  110   IF I%=1 THEN CHAIN"B.READ"
  120   IF I%=2 THEN PROCUSE
  130UNTIL0
  140CLS
  150END
  160DEFPROCUSE
  170CLS
  180PRINT''CHR$(141)+CHR$(131)+"       S/W Ram Loader"
  190PRINTCHR$(141)+CHR$(131)+"       S/W Ram Loader"''
  200*EX R
  210PRINT''
  220REPEAT
  230INPUT LINE "Load up file: R." F$
  240ON ERROR GOTO 280
  250UNTIL F$<>""
  260OSCLI("INFO R."+F$)
  270OSCLI("*ROMLOAD R."+F$)
  280ON ERROR OFF
  290REPORT
  300PRINT