> PatchNetEx : *OSASCI=&FFE3:OSNEWL=&FFE7:OSWRCH=&FFEE ( mem% &3FFF 2"LOAD NETEXP120 "+~mem% < P=0 1 FP%=&81D6:O%=P%-&8000+mem% P[OPT P*3+4 Z .L81D6 dJSR OSNEWL n LDX #0 x .L81D8 LDA &8009,X:BEQ L81E6 JSR OSWRCH INX:BNE L81D8 .L81E6 :] P%=&81EC:O%=P%-&8000+mem% [OPT P*3+4 .L81EC LDA #&14:STA &F2 LDA #&82:STA &F3 JSR &81B2 LDY #0 .L81F6 LDA (&F2),Y:BEQ &8208 JSR OSASCI INC &F2:BNE L81F6 "INC &F3:BNE L81F6 , .L8208 6:] @P%=&8214:O%=P%-&8000+mem% J[OPT P*3+4 T#EQUS " CONT ":EQUB 13 ^$EQUS " FATAL ":EQUB 13 h#EQUS " HALT ":EQUB 13 r7EQUS " PEEK ;;;":EQUB 13 |;EQUS " POKE ;;;":EQUB 13 $EQUS " PROTECT (PJUOH)":EQUB 13 EQUS " ROFF":EQUB 13 *EQUS " SEND ;":EQUB 13 0EQUS " SENDPROG ;()":EQUB 13 EQUS " SYS":EQUB 13 #EQUS " VIEW ":EQUB 13 $EQUS " VIEWF ":EQUB 13  EQUS " WHERE ":EQUB 13  EQUB 0  .L831D :] P%=&9EB2:O%=P%-&8000+mem% [OPT P*3+4:NOP:NOP:NOP:] P%=&9EEF:O%=P%-&8000+mem% PT P*3+4:JSR Patch1:] P%=&9F4F:O%=P%-&8000+mem% &[OPT P*3+4 0#LDA &0EDD: #&F0 :\ yyyy0000 :%LSR A:LSR A:LSR A :\ 000yyyy0 D# &0ECC :\ YYYwwwwx N# #&1E :\ 000wwww0 X# &0ECC :\ yyyyyyyx bJSR Patch2 l:] vP%=&A4A0:O%=P%-&8000+mem% [OPT P*3+4  .Patch1 LDA &0ECC: #31:RTS  .Patch2 %LSR A :\ 0yyyyyyy LDX #"1":LDY #"9" CMP #19:BCC Under2000 LDX #"2":LDY #"0"  SBC #100 .Under2000 PHA TXA:JSR OSWRCH TYA:JSR OSWRCH  PLA:CLC  RTS :]   *&"SAVE NETEXP120a "+~mem%+"+4000"