10
20 mcode%=TOP+2000:HIMEM=mcode%
30 :
40 FOR P=0 TO 1
50 P%=&9FB5:O%=mcode%
60 [OPT P*3+4
70 CMP #9:BEQ help
80 RTS
90 .help
100 LDX #0:.help_lp
110 LDA help_txt,X:JSR &FFE3
120 INX:CMP #0:BNE help_lp
130 LDX &F4:LDA #9:RTS
140 .help_txt
150 EQUB 13
160 EQUS "Second ROM (eg SerNet)"
170 EQUB 13:BRK
180 ]
190 NEXT
200 PRINT"*SAVE 2ROM ";~mcode%;" ";~O%;" 4FB5 4FB5"
210 PRINT"Then:"'"*LOAD NFSROM 3000"'"*LOAD 2ROM 4FB5"'"*SAVE 3ROM 3000 ";~(O%-mcode%+&4FB5)