` Create packet containing "Hello World"
Packet = mn Create Packet From String("Hello World")
DisplayContents(Packet, "Packet before inserting 'Big':")

` Create empty space after hello
mn Set Cursor Packet, 5
mn Insert Packet, 4
mn Add String Packet, " Big", 0, 0
DisplayContents(Packet, "Packet after inserting 'Big':")

` Erase the word big
mn Erase Packet, 6, 4
DisplayContents(Packet, "Packet after erasing 'Big':")

` Exit
print
print "Press any key to exit..."
wait key
end

` Outputs the contents of Packet with TextData$ prefix
function DisplayContents(Packet as double integer, TextData$ as string)
   ` Move cursor to start of packet
   mn Set Cursor Packet, 0

   ` Return string containing contents of packet
   Contents$ = mn Get String(Packet, mn Get Used Size(Packet), 1)

   ` Write packet contents to screen
   print TextData$
   print Contents$
   print
endfunction