10 REM Move UP
   20 REM Moves program in main RAM into SWR
   30 REM Allan Kelly 23/2/86
   40 REPEAT
   50 INPUT "Which socket is SWR in ?"ram
   60 UNTIL ram>=0 AND ram<16
   70 ram=&D
   80 to=&8000
   90 memory=&6000
  100 len=&8
  110 FOR pass=0 TO 2 STEP 2
  120 P%=&A00
  130 [
  140 OPT pass
  150 LDA#memory MOD 256
  160 STA&70
  170 LDA#memory DIV 256
  180 STA&71
  190 LDA#to MOD 256
  200 STA&72
  210 LDA#to DIV 256
  220 STA&73
  230 LDA&F4
  240 PHA
  250 LDA#ram
  260 STA&F4
  270 STA&FE30
  280 LDY#0
  290 .back LDA(&70),Y
  300 STA(&72),Y
  310 INY
  320 CPY#0
  330 BNE back
  340 INC&71
  350 INC&73
  360 LDA&71
  370 CMP#len+(memory DIV 256)
  380 BMI back
  390 PLA
  400 STA&F4
  410 STA&FE30
  420 RTS
  430 ]
  440 NEXT
  450 *SAVE U.UP A00 +40 A00 A00
  460 END