NOMONICO
LOC=PEEK(103)+256*PEEK(104)
FORI=1TO9999:TEST=PEEK(LOC)+256*PEEK(LOC+1):PRINT0;:IFTEST>0THENLOC=TEST:NEXT
PRINT
EN=LOC:ELO=EN-INT(EN/256)*256:EHI=INT(EN/256)
POKE 768, PEEK(103):POKE 769, PEEK(104)
POKE 103,ELO:POKE104,EHI
PRINT"LOAD";A$:REMLOAD.HIGHER.NUMBERED.PROGRAM
POKE 103,PEEK(768):POKE 104, PEEK(769)
INVERSE:PRINT" APPEND COMPLETE ":NORMAL